Changeset 93 for ccr/trunk/p/GPLMEDS.m

Timestamp:

Aug 19, 2008, 4:50:47 PM (16 years ago)

Author:

George Lilly

Message:

fixed Meds processing - patched up until new APIs are in place

File:

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

ccr/trunk/p/GPLMEDS.m

@@ -32 +32 @@
    . S @MEDOUTXML@(0)=0
    . Q
-   IF DEBUG ZWR MEDRSLT
+   I DEBUG ZWR MEDRSLT
    S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
    S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
    F J=1:3 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
-   . W "J IS ",J,!
+   . I DEBUG W "J IS ",J,!
    . S MEDVMAP=$NA(@MEDTVMAP@(J))
    . K @MEDVMAP
@@ -43 +43 @@
    . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
    . ; PROCESSING FOR MEDS GOES HERE
-   . S @MEDVMAP@("MEDICATIONDATETIMETEXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
+   . S @MEDVMAP@("MEDISSUEDATETXT")=$$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")="ACTORSYSTEM_1"
-   . S @MEDVMAP@("MEDICATIONPRODUCTNAMETEXT")=$P(MEDPTMP,"^",3)
+   . S @MEDVMAP@("MEDTYPETEXT")="Medication"
+   . S @MEDVMAP@("MEDSTATUSTEXT")=$P(MEDPTMP,"^",10) ; STATUS FROM RPC
+   . S @MEDVMAP@("MEDSOURCEACTORID")="ACTORSYSTEM_1"
+   . S @MEDVMAP@("MEDPRODUCTNAMETEXT")=$P(MEDPTMP,"^",3)
    . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVALUE")=""
    . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODINGINGSYSTEM")=""
    . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVERSION")=""
-   . S @MEDVMAP@("MEDICATIONBRANDNAMETEXT")=""
+   . S @MEDVMAP@("MEDBRANDNAMETEXT")=""
    . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVALUE")=""
    . S @MEDVMAP@("MEDICATIONBRANDNAMECODINGSYSTEM")=""
    . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVERSION")=""
-   . S @MEDVMAP@("MEDICATIONSTRENGTHVALUE")=""
-   . S @MEDVMAP@("MEDICATIONSTRENGTHUNIT")=""
-   . S @MEDVMAP@("MEDICATIONFORMTEXT")=""
+   . S @MEDVMAP@("MEDSTRENGTHVALUE")=""
+   . S @MEDVMAP@("MEDSTRENGTHUNIT")=""
+   . S @MEDVMAP@("MEDFORMTEXT")=""
+   . S @MEDVMAP@("MEDQUANTITYVALUE")=""
+   . S @MEDVMAP@("MEDQUANTITYUNIT")=""
+   . S @MEDVMAP@("MEDRFNO")=""
    . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
-   . S @MEDVMAP@("MEDICATIONDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
+   . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    . S @MEDVMAP@("MEDICATIONDIRECTIONDOSEVALUE")=""
    . S @MEDVMAP@("MEDICATIONDIRECTIONROUTETEXT")=""