Changeset 128 for ccr/trunk/p

Timestamp:

Sep 2, 2008, 1:20:47 AM (16 years ago)

Author:

Sam Habiel

Message:

Update of CCRMED

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -1 @@
-CCRMEDS ; WV/CCDCCR/SMH,CJE,GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;08/24/08
+CCRMEDS ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;08/24/08
           ;;0.1;CCDCCR;;JUL 16,2008;
           ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -96 +96 @@
           . N QTYDATA M QTYDATA=^TMP($J,"QTY",IEN)
           . S @MAP@("MEDQUANTITYUNIT")=QTYDATA(14.5)
-          . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT")=""
-          . S @MAP@("MEDDOSEINDICATOR")
-          . S @MAP@("MEDDELIVERYMETHOD")
-          . S @MAP@("MEDDOSEVALUE")
-          . S @MAP@("MEDDOSEUNIT")
-          . S @MAP@("MEDRATEVALUE")
-          . S @MAP@("MEDRATEUNIT")
-          . S @MAP@("MEDVEHICLETEXT")
-          . S @MAP@("MEDDIRECTIONROUTETEXT")
-          . S @MAP@("MEDFREQUENCYVALUE")
+          . ;
+          . ; --- START OF DIRECTIONS ---
+          . ;
+          . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT")=""  ; This is reserved for systems not able to generate the sig in components.
+          . S @MAP@("MEDDOSEINDICATOR")="1"  ; means that we are specifying it. See E2369-05.
+          . ; Sig data not in any API :-(  Oh yes, you can get the whole thing, but...
+          . ; we want the compoenents.
+          . ; It's in node 6 of ^PSRX(IEN)
+          . ; So, here we go again
+          . ; ^PSRX(D0,6,D1,0)= (#.01) DOSAGE ORDERED [1F] ^ (#1) DISPENSE UNITS PER DOSE
+            ; ==>[2N] ^ (#2) UNITS [3P:50.607] ^ (#3) NOUN [4F] ^ (#4)
+            ; ==>DURATION [5F] ^ (#5) CONJUNCTION [6S] ^ (#6) ROUTE
+            ; ==>[7P:51.2] ^ (#7) SCHEDULE [8F] ^ (#8) VERB [9F] ^
+            N SIGDATA S SIGDATA=^PSRX(IEN,6,1,0)
+          . S @MAP@("MEDDELIVERYMETHOD")=$P(SIGDATA,U,9)
+          . S @MAP@("MEDDOSEVALUE")=$P(SIGDATA,U,1)
+          . S @MAP@("MEDDOSEUNIT")=@MAP@("MEDCONCUNIT")
+          . S @MAP@("MEDRATEVALUE")=""  ; For inpatient
+          . S @MAP@("MEDRATEUNIT")=""  ; For inpatient
+          . S @MAP@("MEDVEHICLETEXT")=""  ; For inpatient
+          . S @MAP@("MEDDIRECTIONROUTETEXT")=$$GET1^DIQ(51.2,$P(SIGDATA,U,7),.01)
+          . S @MAP@("MEDFREQUENCYVALUE")=$P(SIGDATA,U,7)
           . S @MAP@("MEDFREQUENCYUNIT")
           . S @MAP@("MEDINTERVALVALUE")
           . S @MAP@("MEDINTERVALUNIT")
-          . S @MAP@("MEDDURATIONVALUE")
+          . S @MAP@("MEDDURATIONVALUE")=$P(SIGDATA,U,5)
           . S @MAP@("MEDDURATIONUNIT")
           . S @MAP@("MEDPRNFLAG")
@@ -118 +130 @@
           . S @MAP@("MEDPROBLEMCODINGVERSION")=""
           . S @MAP@("MEDPROBLEMSOURCEACTORID")=""
-          . S @MAP@("MEDSTOPINDICATOR")
-          . S @MAP@("MEDDIRSEQ")
-          . S @MAP@("MEDMULDIRMOD")
+          . S @MAP@("MEDSTOPINDICATOR")=""
+          . S @MAP@("MEDDIRSEQ")=""
+          . S @MAP@("MEDMULDIRMOD")=""
+          . ;
+          . ; --- END OF DIRECTIONS ---
+          . ;
           . S @MAP@("MEDPTINSTRUCTIONS")
           . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")