Changeset 79 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jul 30, 2008, 10:00:08 AM (16 years ago)

Author:

Christopher Edwards

Message:

added processing for meds in GPLCCR.m
added <description><text></text></description> for meds in GPLCCR0.m
changed I variables in GPLCCR.m so that it would run

File:

• ccr/trunk/p/GPLCCR.m (modified) (4 diffs)

ccr/trunk/p/GPLCCR.m

@@ -31 +31 @@
        S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
        I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
-       . S @ODIRGLB="/home/glilly/CCROUT"
-       . ;S @ODIRGLB="/home/cedwards/"
+       . ;S @ODIRGLB="/home/glilly/CCROUT"
+       . S @ODIRGLB="/home/cedwards/"
        . ;S @ODIRGLB="/opt/wv/p/"
        S ODIR=@ODIRGLB
@@ -72 +72 @@
     S CCRXTAB=$NA(^TMP("GPLCCR",$J,"CCRSTEP")) ; GLOBAL TO STORE CCR STEPS
     D INITSTPS(CCRXTAB) ; INITIALIZED CCR PROCESSING STEPS
-    N I,XI,TAG,RTN,CALL,XPATH,IXML,OXML,INXML,CCRBLD
-    F I=1:1:@CCRXTAB@(0)  D  ; PROCESS THE CCR BODY SECTIONS
-    . S XI=@CCRXTAB@(I) ; CALL COPONENTS TO PARSE
+    N PROCI,XI,TAG,RTN,CALL,XPATH,IXML,OXML,INXML,CCRBLD
+    F PROCI=1:1:@CCRXTAB@(0)  D  ; PROCESS THE CCR BODY SECTIONS
+    . S XI=@CCRXTAB@(PROCI) ; CALL COPONENTS TO PARSE
     . S RTN=$P(XI,";",2) ; NAME OF ROUTINE TO CALL
     . S TAG=$P(XI,";",1) ; LABEL INSIDE ROUTINE TO CALL
@@ -92 +92 @@
     D EXTRACT^GPLACTORS("ACTT",ACTGLO,"ACTT2")
     D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
-    N I,J,DONE S DONE=0
-    F I=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
+    N TRIMI,J,DONE S DONE=0
+    F TRIMI=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
     . S J=$$TRIM^GPLXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
     . W "TRIMMED",J,!
@@ -104 +104 @@
     ; ORDER FOR CCR IS PROBLEMS,FAMILYHISTORY,SOCIALHISTORY,MEDICATIONS,VITALSIGNS,RESULTS,HEALTHCAREPROVIDERS
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
-    ;D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
+    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLMEDS;//ContinuityOfCareRecord/Body/Medications;^TMP(""GPLCCR"",$J,DFN,""MEDICATIONS"")")
     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
     I TESTLAB D PUSH^GPLXPATH(TAB,"EXTRACT;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")