Changeset 74 for ccr/trunk/p/GPLVITALS.m

Timestamp:

Jul 25, 2008, 10:01:34 PM (16 years ago)

Author:

George Lilly

Message:

First commit for CCD

File:

• ccr/trunk/p/GPLVITALS.m (modified) (2 diffs)

ccr/trunk/p/GPLVITALS.m

@@ -36 +36 @@
           . . S VITVMAP=$NA(@VITTVMAP@(J))
           . . K @VITVMAP
-          . . I DEBUG W "VMAP= ",VMAP,!
+          . . I DEBUG W "VMAP= ",VITVMAP,!
           . . S VITPTMP=VITRSLT(J) ; PULL OUT VITAL FROM RPC RETURN ARRAY
           . . S @VITVMAP@("VITALSIGNSDATAOBJECTID")="VITAL"_J ; UNIQUE OBJID FOR VITAL
@@ -158 +158 @@
           . . . ; W "FIRST ONE",!
           . . . D CP^GPLXPATH(VITARYTMP,VITOUTXML)
-          . . . ; W "OUTXML ",OUTXML,!
+          . . . W "VITOUTXML ",VITOUTXML,!
           . . I J>1 D  ; AFTER THE FIRST, INSERT INNER XML
           . . . D INSINNER^GPLXPATH(VITOUTXML,VITARYTMP)
           ; ZWR ^TMP($J,"VITALS",*)
-          ; ZWR ^TMP($J,"VITALARYTMP",*) ; SHOW THE RESULTS
-          ; ZWR @OUTXML
+          ZWR ^TMP($J,"VITALARYTMP",*) ; SHOW THE RESULTS
+          D PARY^GPLXPATH(VITOUTXML)
           N VITTMP,I
           D MISSING^GPLXPATH(VITOUTXML,"VITTMP") ; SEARCH XML FOR MISSING VARS