Tiny corrections: Change @@PROBLEM@@ in meds section to @@MEDPROBLEMTYPETXT@@

This commit is contained in:
sam 2008-09-22 02:37:13 +00:00
parent d8b6612b03
commit 07405275b2
2 changed files with 4 additions and 1 deletions

View File

@ -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")=""

View File

@ -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>