GPLALERT.m - adding small bits; awaiting CCR document for mapping

GPLUNIT.m - fixed correct QUIT statement

p/GPLALERT.m

@@ -31,9 +31,24 @@ EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
 	  ; ORQQAL LIST
 	  ; 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
 
           N VITRSLT,J,K,VITPTMP,X,VITVMAP,TBUF,VORDR

p/GPLUNIT.m

@@ -78,9 +78,8 @@ ZTEST(ZARY,WHICH)   ; try out the tests using a passed array ZTEST
           ; . F J=1:1:@NT@(0) D  ;
           ; . . 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)
           S LAST=$P(ZARY(WHICH),"^",2)