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

more meds debugging.. looking for 5 line med rpc results

This commit is contained in:
george 2008-08-28 18:28:03 +00:00
parent dce2f8faac
commit 4cfd92d859
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
p/GPLMEDS.m
View File

@ -36,7 +36,8 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
K @MEDTVMAP,@MEDTARYTMP
F J=1:3 Q:'$D(MEDRSLT(J)) D ; FOR EACH MEDICATION IN THE LIST
N DONE S DONE=0
F J=1:3 Q:'$D(MEDRSLT(J))!DONE D ; FOR EACH MEDICATION IN THE LIST
. I DEBUG W "J IS ",J,!
. S MEDVMAP=$NA(@MEDTVMAP@(J))
. K @MEDVMAP
@ -68,7 +69,12 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. . S @MEDVMAP@("MEDDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
. I $D(MEDRSLT(J+2)) D ; IF THIRD LINE EXISTS
. . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
. S @MEDVMAP@("MEDDIRECTIONDOSEVALUE")=""
. I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
. S @MEDVMAP@("MEDDOSEVALUE")=""
. S @MEDVMAP@("MEDDOSEUNIT")=""
. S @MEDVMAP@("MEDFREQUENCYVALUE")=""
. S @MEDVMAP@("MEDDURATIONVALUE")=""
. S @MEDVMAP@("MEDDURATIONUNIT")=""
. S @MEDVMAP@("MEDDIRECTIONROUTETEXT")=""
. S @MEDVMAP@("MEDDIRECTIONFREQUENCYVALUE")=""
. S MEDARYTMP=$NA(@MEDTARYTMP@(J))