Changeset 152 for ccr/trunk


Ignore:
Timestamp:
Sep 12, 2008, 10:45:03 PM (16 years ago)
Author:
chrisu
Message:

GPLALERT.m - adding small bits; awaiting CCR document for mapping
GPLUNIT.m - fixed correct QUIT statement

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLALERT.m

    r151 r152  
    3232          ; ORQQPP LIST
    3333          ;
    34         W "GOT TO ALERTS",!
    35         M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
     34          N ALTRSLT,ALTVMAP
     35          D LIST^ORQQAL(.ALTRSLT,DFN)
     36          I $P(ALTRSLT(1),U,1)="" D  Q ; NO ALLERGIES FOUND
     37          . S @ALTOUTXML@(0)=0
     38          . ; QUESTION - SHOULD !KNOWN OR !ASSESSMENT BE DIFFERENT INDICATORS
     39          . I DEBUG W !,"NO KNOWN ALLERGIES or NO ALLERGY ASSESSMENT"
     40
     41          ; DEFINE MAPPING
     42          ; ...
     43          ;
     44          ;
     45          ; D MAP^GPLXPATH(VITXML,VITVMAP,VITARYTMP)
     46
     47          X $ZINT
     48
     49          M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
    3650          Q ; QUIT
     51
    3752          ; BELOW CODE REMAINS FOR MY KNOWLEDGE AS TEMPLATE
    3853
  • ccr/trunk/p/GPLUNIT.m

    r122 r152  
    7979          ; . . W @NT@(J),!
    8080          ; . . D ZTEST^GPLUNIT(@ZARY,@NT@(J))
    81           I '$D(ZARY(WHICH))  D  ; TEST SECTION DOESN'T EXIST
     81          I '$D(ZARY(WHICH))  D  Q ; TEST SECTION DOESN'T EXIST
    8282          . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,!
    83           . Q  ; EXIT
    8483          N FIRST,LAST
    8584          S FIRST=$P(ZARY(WHICH),"^",1)
Note: See TracChangeset for help on using the changeset viewer.