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-10-07 16:32:15 +00:00
parent 4da383b284
commit 7cfbe69c61
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/CCRMEDS.m
View File

@ -79,7 +79,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. . S ZK=$P(ZA(ZI),U,2)+1 ; INCREMENT LINE COUNT FOR CURRENT MED . . S ZK=$P(ZA(ZI),U,2)+1 ; INCREMENT LINE COUNT FOR CURRENT MED
. . S $P(ZA(ZI),U,2)=ZK ; AND STORE IT IN ARRAY . . S $P(ZA(ZI),U,2)=ZK ; AND STORE IT IN ARRAY
;ZWR ZA ;ZWR ZA
S @MEDTVMAP@(0)=ZA(0) ; SAVE NUMBER OF MEDS ; S @MEDTVMAP@(0)=ZA(0) ; SAVE NUMBER OF MEDS
F ZI=1:1:ZA(0) D ; FOR EACH MED F ZI=1:1:ZA(0) D ; FOR EACH MED
. I DEBUG W "ZI IS ",ZI,! . I DEBUG W "ZI IS ",ZI,!
. W ZI," ",MEDCNT,! . W ZI," ",MEDCNT,!