Tiny corrections: Change @@PROBLEM@@ in meds section to @@MEDPROBLEMTYPETXT@@
This commit is contained in:
parent
d8b6612b03
commit
07405275b2
|
@ -84,6 +84,8 @@ EXTRACT(INXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
|
|||
. N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
|
||||
. N VAPROD S VAPROD=$P(NDFDATA(22),U)
|
||||
. N CONCDATA
|
||||
. ; If a drug was not matched to NDF, then the NDFIEN is gonna be ""
|
||||
. ; and this will crash the call. So...
|
||||
. I NDFIEN="" S CONCDATA=""
|
||||
. E S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
|
||||
. S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
|
||||
|
@ -142,6 +144,7 @@ EXTRACT(INXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
|
|||
. S @MAP@("MEDDURATIONUNIT")=""
|
||||
. S @MAP@("MEDPRNFLAG")=$P(SIGDATA,U,8)["PRN"
|
||||
. S @MAP@("MEDPROBLEMOBJECTID")=""
|
||||
. S @MAP@("MEDPROBLEMTYPETXT")=""
|
||||
. S @MAP@("MEDPROBLEMDESCRIPTION")=""
|
||||
. S @MAP@("MEDPROBLEMCODEVALUE")=""
|
||||
. S @MAP@("MEDPROBLEMCODINGSYSTEM")=""
|
||||
|
|
|
@ -385,7 +385,7 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
|
|||
;;<Problem>
|
||||
;;<CCRDataObjectID>@@MEDPROBLEMOBJECTID@@</CCRDataObjectID>
|
||||
;;<Type>
|
||||
;;<Text>@@PROBLEM@@</Text>
|
||||
;;<Text>@@MEDPROBLEMTYPETXT@@</Text>
|
||||
;;</Type>
|
||||
;;<Description>
|
||||
;;<Text>@@MEDPROBLEMDESCRIPTION@@</Text>
|
||||
|
|
Loading…
Reference in New Issue