Changeset 151 for ccr/trunk/p

Timestamp:

Sep 12, 2008, 4:09:31 PM (16 years ago)

Author:

George Lilly

Message:

added Alerts to CCR processing on a switch - TESTALERTS=1 ;also ZTEST^{GPLCCR("ALERTS")}

Location:

ccr/trunk/p

Files:

• GPLALERT.m (modified) (1 diff)
• GPLCCR.m (modified) (4 diffs)

ccr/trunk/p/GPLALERT.m

@@ -32 +32 @@
           ; ORQQPP LIST
           ;
-
+        W "GOT TO ALERTS",!
+        M @ALTOUTXML=@ALTXML ; JUST COPY THE TEMPLATE FOR TESTING ..GPL
           Q ; QUIT
           ; BELOW CODE REMAINS FOR MY KNOWLEDGE AS TEMPLATE

ccr/trunk/p/GPLCCR.m

@@ -53 +53 @@
     S G1=$NA(^TMP("GPLCCR",$J,DFN,"CCR"))
     I $D(@G1@(0)) D  ; CCR EXISTS
-    D PARY^GPLXPATH(G1)
+    . D PARY^GPLXPATH(G1)
+    E  W "CCR NOT CREATED, RUN D XPAT^GPLCCR(DFN,"""","""") FIRST",!
     Q
     ;
@@ -70 +71 @@
     S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
     I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
+    I '$D(TESTALERT) S TESTALERT=0 ; FLAG FOR TESTING ALERTS SECTION
     S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
     S CCRGLO=$NA(^TMP("GPLCCR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
@@ -127 +129 @@
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
+    I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
     Q
     ;
@@ -214 +217 @@
  ;;>>>D ZTEST^GPLCCR("CCR")
  ;;>>>W $$TRIM^GPLXPATH(CCRGLO)
+ ;;><ALERTS>
+ ;;>>>S TESTALERT=1
+ ;;>>>K GPL S GPL=""
+ ;;>>>D CCRRPC^GPLCCR(.GPL,"2","ALERTS","","","")
+ ;;>>?@GPL@(@GPL@(0))["</Alerts>"
+