Changeset 152 for ccr/trunk

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:

• GPLALERT.m (modified) (1 diff)
• GPLUNIT.m (modified) (1 diff)

ccr/trunk/p/GPLALERT.m

@@ -32 +32 @@
           ; ORQQPP LIST
           ;
-        W "GOT TO ALERTS",!
-        M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
+          N ALTRSLT,ALTVMAP
+          D LIST^ORQQAL(.ALTRSLT,DFN)
+          I $P(ALTRSLT(1),U,1)="" D  Q ; NO ALLERGIES FOUND
+          . S @ALTOUTXML@(0)=0 
+          . ; QUESTION - SHOULD !KNOWN OR !ASSESSMENT BE DIFFERENT INDICATORS
+          . I DEBUG W !,"NO KNOWN ALLERGIES or NO ALLERGY ASSESSMENT"
+
+          ; DEFINE MAPPING
+          ; ...
+          ;
+          ;
+          ; D MAP^GPLXPATH(VITXML,VITVMAP,VITARYTMP)
+
+          X $ZINT
+
+          M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
           Q ; QUIT
+
           ; BELOW CODE REMAINS FOR MY KNOWLEDGE AS TEMPLATE
 

ccr/trunk/p/GPLUNIT.m

@@ -79 +79 @@
           ; . . W @NT@(J),!
           ; . . D ZTEST^GPLUNIT(@ZARY,@NT@(J))
-          I '$D(ZARY(WHICH))  D  ; TEST SECTION DOESN'T EXIST
+          I '$D(ZARY(WHICH))  D  Q ; TEST SECTION DOESN'T EXIST
           . W "ERROR -- TEST SECTION DOESN'T EXIST -> ",WHICH,!
-          . Q  ; EXIT
           N FIRST,LAST
           S FIRST=$P(ZARY(WHICH),"^",1)