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

meds debugging

This commit is contained in:
george 2008-08-28 17:45:45 +00:00
parent e939fb0e7d
commit dce2f8faac
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/GPLMEDS.m
View File

@ -32,6 +32,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. S @MEDOUTXML@(0)=0 . S @MEDOUTXML@(0)=0
. Q . Q
I DEBUG ZWR MEDRSLT I DEBUG ZWR MEDRSLT
M GPLMEDS=MEDRSLT
S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS")) S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP")) S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
K @MEDTVMAP,@MEDTARYTMP K @MEDTVMAP,@MEDTARYTMP