CCRMEDS now working

This commit is contained in:
sam 2008-09-22 02:25:22 +00:00
parent bb13c4df44
commit d8b6612b03
1 changed files with 3 additions and 2 deletions

View File

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