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

more meds debugging

This commit is contained in:
george 2008-08-28 18:51:49 +00:00
parent 75f4cfec11
commit 61fba61cfd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
p/GPLMEDS.m
View File

@ -70,7 +70,10 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. I $D(MEDRSLT(J+2)) D ; IF THIRD LINE EXISTS . I $D(MEDRSLT(J+2)) D ; IF THIRD LINE EXISTS
. . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2) . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
. I $D(MEDRSLT(J+3)) D ; IF THERE IS ANOTHER LINE . I $D(MEDRSLT(J+3)) D ; IF THERE IS ANOTHER LINE
. . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES . . I MEDRSLT(J+3)?1"t".E D ; CONTINUATION LINES
. . . I $D(MEDRSLT(J+6)) D ;
. . . . S J=J=3 ; SKIP THREE LINES TO NEXT MED
. . . E S DONE=1 ; ELSE NO MORE MEDS
. S @MEDVMAP@("MEDDOSEVALUE")="" . S @MEDVMAP@("MEDDOSEVALUE")=""
. S @MEDVMAP@("MEDDOSEUNIT")="" . S @MEDVMAP@("MEDDOSEUNIT")=""
. S @MEDVMAP@("MEDFREQUENCYVALUE")="" . S @MEDVMAP@("MEDFREQUENCYVALUE")=""