iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update of CCRMED

This commit is contained in:
sam 2008-09-02 05:20:47 +00:00
parent b7fbc2304d
commit b1f260f646
1 changed files with 30 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
p/CCRMEDS.m
View File

@ -1,4 +1,4 @@
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
; General Public License See attached copy of the License.
@ -95,20 +95,32 @@ EXTRACT(INXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. D DATA^PSS50(IEN,,,,,"QTY")
. 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")
. S @MAP@("MEDPROBLEMOBJECTID")=""
@ -117,9 +129,12 @@ EXTRACT(INXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. S @MAP@("MEDPROBLEMCODINGSYSTEM")=""
. 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")
. S @MAP@("MEDRFNO")=MED(9)