Changeset 79 for ccr/trunk/p/GPLMEDS.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/GPLMEDS.m (modified) (2 diffs)

ccr/trunk/p/GPLMEDS.m

@@ -28 +28 @@
           N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
           D ACTIVE^ORWPS(.MEDRSLT,DFN)
-          Q
+          ZWR MEDRSLT
           I '$D(MEDRSLT(1)) W "ERROR RUNNINIG MEDICATIONS RPC",! Q
           S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
           S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
           F J=1:1 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
+          . W "J IS",J,!
           . S MEDVMAP=$NA(@MEDTVMAP@(J))
           . K @MEDVMAP
@@ -39 +40 @@
           . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDICATION
           . ; PROCESSING FOR MEDS GOES HERE
-          . S @MEDVMAP@("MEDICATIONDATETIMETEXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT")
-          . S @MEDVMAP@("MEDICATIONDATETIMEAGE")="TEST2"
-          . S @MEDVMAP@("MEDICATIONDATETIMEAGEUNITS")="TEST3"
-          . S @MEDVMAP@("MEDICATIONTYPETEXT")="TEST4"
-          . S @MEDVMAP@("MEDICATIONSTATUSTEXT")=$P(MEDPTMP,"^",10)
-          . S @MEDVMAP@("MEDICATIONSOURCEACTORID")="TEST6"
-          . S @MEDVMAP@("MEDICATIONPRODUCTNAMETEXT")="TEST7"
-          . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVALUE")="TEST8"
-          . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODINGINGSYSTEM")="TEST9"
-          . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVERSION")="TEST10"
-          . S @MEDVMAP@("MEDICATIONBRANDNAMETEXT")="TEST11"
-          . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVALUE")="TEST12"
-          . S @MEDVMAP@("MEDICATIONBRANDNAMECODINGSYSTEM")="TEST13"
-          . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVERSION")="TEST14"
-          . S @MEDVMAP@("MEDICATIONSTRENGTHVALUE")="TEST15"
-          . S @MEDVMAP@("MEDICATIONSTRENGTHUNIT")="TEST16"
-          . S @MEDVMAP@("MEDICATIONFORMTEXT")="TEST17"
-          . S @MEDVMAP@("MEDICATIONDIRECTIONDESCRIPTIONTEXT")="TEST18"
-          . S @MEDVMAP@("MEDICATIONDIRECTIONDOSEVALUE")="TEST19"
-          . S @MEDVMAP@("MEDICATIONDIRECTIONROUTETEXT")="TEST20"
-          . S @MEDVMAP@("MEDICATIONDIRECTIONFREQUENCYVALUE")="TEST21"
-          . S J=J+3
+          . S @MEDVMAP@("MEDICATIONDATETIMETEXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
+          . S @MEDVMAP@("MEDICATIONDATETIMEAGE")=""
+          . S @MEDVMAP@("MEDICATIONDATETIMEAGEUNITS")=""
+          . S @MEDVMAP@("MEDICATIONTYPETEXT")="Medication"
+          . S @MEDVMAP@("MEDICATIONSTATUSTEXT")=$P(MEDPTMP,"^",10) ; STATUS FROM RPC
+          . S @MEDVMAP@("MEDICATIONSOURCEACTORID")=""
+          . S @MEDVMAP@("MEDICATIONPRODUCTNAMETEXT")=$P(MEDPTMP,"^",3)
+          . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVALUE")=""
+          . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODINGINGSYSTEM")=""
+          . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVERSION")=""
+          . S @MEDVMAP@("MEDICATIONBRANDNAMETEXT")=""
+          . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVALUE")=""
+          . S @MEDVMAP@("MEDICATIONBRANDNAMECODINGSYSTEM")=""
+          . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVERSION")=""
+          . S @MEDVMAP@("MEDICATIONSTRENGTHVALUE")=""
+          . S @MEDVMAP@("MEDICATIONSTRENGTHUNIT")=""
+          . S @MEDVMAP@("MEDICATIONFORMTEXT")=""
+          . S J=J+1
+          . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J)," *",2)
+          . S J=J+1
+          . S @MEDVMAP@("MEDICATIONDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J),"\ Sig: ",2)
+          . S @MEDVMAP@("MEDICATIONDIRECTIONDOSEVALUE")=""
+          . S @MEDVMAP@("MEDICATIONDIRECTIONROUTETEXT")=""
+          . S @MEDVMAP@("MEDICATIONDIRECTIONFREQUENCYVALUE")=""
           . S MEDARYTMP=$NA(@MEDTARYTMP@(J))
           . K @MEDARYTMP
           . D MAP^GPLXPATH(MEDXML,MEDVMAP,MEDARYTMP)
-          . I J=1 D  ; FIRST ONE IS JUST A COPY
+          . I J=3 D  ; FIRST ONE IS JUST A COPY
           . . ; W "FIRST ONE",!
           . . D CP^GPLXPATH(MEDARYTMP,MEDOUTXML)
-          . I J>1 D  ; AFTER THE FIRST, INSERT INNER XML
+          . I J>3 D  ; AFTER THE FIRST, INSERT INNER XML
           . . D INSINNER^GPLXPATH(MEDOUTXML,MEDARYTMP)
-          N MEDTMP,I
+          . S J=J+1
+          N MEDTMP,MEDI
           D MISSING^GPLXPATH(MEDOUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS
           I MEDTMP(0)>0 D  ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
           . W "MEDICATION MISSING ",!
-          . F I=1:1:MEDTMP(0) W MEDTMP(I),!
+          . F MEDI=1:1:MEDTMP(0) W MEDTMP(MEDI),!
           Q
           ;