CCRMEDS now working
This commit is contained in:
parent
bb13c4df44
commit
d8b6612b03
|
@ -83,8 +83,9 @@ EXTRACT(INXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
|
||||||
. N NDFDATA M NDFDATA=^TMP($J,"CONC",MEDIEN)
|
. N NDFDATA M NDFDATA=^TMP($J,"CONC",MEDIEN)
|
||||||
. N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
|
. N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
|
||||||
. N VAPROD S VAPROD=$P(NDFDATA(22),U)
|
. N VAPROD S VAPROD=$P(NDFDATA(22),U)
|
||||||
. B:NDFIEN=""
|
. N CONCDATA
|
||||||
. N CONCDATA S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
|
. I NDFIEN="" S CONCDATA=""
|
||||||
|
. E S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
|
||||||
. S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
|
. S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
|
||||||
. S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
|
. S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
|
||||||
. S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4)
|
. S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4)
|
||||||
|
|
Loading…
Reference in New Issue