Changeset 103 for ccr

Timestamp:

Aug 26, 2008, 12:17:44 AM (16 years ago)

Author:

Sam Habiel

Message:

CCRMEDS mappings half-way done.

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -52 +52 @@
    . N MED M MED=MEDS(RXIEN) ; PULL OUT MEDICATION FROM
    . S @MAP@("MEDOBJECTID")="MED"_MED(.01) ;Rx Number
-   . S @MAP@("MEDISSUEDATETXT")
-   . S @MAP@("MEDISSUEDATE")
-   . S @MAP@("MEDLASTFILLDATETXT")
-   . S @MAP@("MEDLASTFILLDATE")
-   . S @MAP@("MEDRXNOTXT")
-   . S @MAP@("MEDRXNO")
-   . S @MAP@("MEDTYPETEXT")
-   . S @MAP@("MEDDETAILUNADORNED")
-   . S @MAP@("MEDSTATUSTEXT")
-   . S @MAP@("MEDSOURCEACTORID")
-   . S @MAP@("MEDPRODUCTNAMETEXT")
-   . S @MAP@("MEDPRODUCTNAMECODEVALUE")
-   . S @MAP@("MEDPRODUCTNAMECODINGINGSYSTEM")
-   . S @MAP@("MEDPRODUCTNAMECODEVERSION")
-   . S @MAP@("MEDBRANDNAMETEXT")
-   . S @MAP@("MEDSTRENGTHVALUE")
-   . S @MAP@("MEDSTRENGTHUNIT")
-   . S @MAP@("MEDFORMTEXT")
+   . S @MAP@("MEDISSUEDATETXT")="Issue Date"
+   . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($P(MED(1),U))
+   . S @MAP@("MEDLASTFILLDATETXT")="Last Fill Date"
+   . S @MAP@("MEDLASTFILLDATE")=$$FMDTOUTC^CCRUTIL($P(MED(101),U))
+   . S @MAP@("MEDRXNOTXT")="Prescription Number"
+   . S @MAP@("MEDRXNO")=MED(.01)
+   . S @MAP@("MEDTYPETEXT")="Medication"
+   . S @MAP@("MEDDETAILUNADORNED")=""  ; Leave blank, field has its uses
+   . S @MAP@("MEDSTATUSTEXT")=$P(MED(100),U,2)
+   . S @MAP@("MEDSOURCEACTORID")="ACTORPROVIDER_"_$P(MED(4),U)
+   . S @MAP@("MEDPRODUCTNAMETEXT")=$P(MED(6),U,2)
+   . S @MAP@("MEDPRODUCTNAMECODEVALUE")=MED(27)
+   . S @MAP@("MEDPRODUCTNAMECODINGINGSYSTEM")="NDC"
+   . S @MAP@("MEDPRODUCTNAMECODEVERSION")="none"
+   . S @MAP@("MEDBRANDNAMETEXT")=MED(6.5)
+   . N MEDIEN S MEDIEN=$P(MED(6),U)
+   . D DOSE^PSS50(MEDIEN,,,,,"DOSE")
+   . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
+   . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
+   . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
+   . S @MAP@("MEDFORMTEXT")=$P(MED("OI"),U,4)
    . S @MAP@("MEDCONCVALUE")
    . S @MAP@("MEDCONCUNIT")
@@ -91 +94 @@
    . S @MAP@("MEDDURATIONUNIT")
    . S @MAP@("MEDPRNFLAG")
-   . S @MAP@("MEDPROBLEMOBJECTID")
-   . S @MAP@("MEDPROBLEMDESCRIPTION")
-   . S @MAP@("MEDPROBLEMCODEVALUE")
-   . S @MAP@("MEDPROBLEMCODINGSYSTEM")
-   . S @MAP@("MEDPROBLEMCODINGVERSION")
-   . S @MAP@("MEDPROBLEMSOURCEACTORID")
+   . S @MAP@("MEDPROBLEMOBJECTID")=""
+   . S @MAP@("MEDPROBLEMDESCRIPTION")=""
+   . S @MAP@("MEDPROBLEMCODEVALUE")=""
+   . S @MAP@("MEDPROBLEMCODINGSYSTEM")=""
+   . S @MAP@("MEDPROBLEMCODINGVERSION")=""
+   . S @MAP@("MEDPROBLEMSOURCEACTORID")=""
    . S @MAP@("MEDSTOPINDICATOR")
    . S @MAP@("MEDDIRSEQ")