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

removed break debugging command

This commit is contained in:
george 2009-02-03 19:24:48 +00:00
parent 1737150301
commit 8e0ee0561f
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/GPLIMMU.m
View File

@ -26,7 +26,6 @@ MAP(IPXML,DFN,OUTXML) ; MAP IMMUNIZATIONS
N C0CZT ; TMP ARRAY OF MAPPED XML N C0CZT ; TMP ARRAY OF MAPPED XML
S C0CZV=$NA(^TMP("GPLCCR",$J,"IMMUNE")) ; TEMP STORAGE FOR VARIABLES S C0CZV=$NA(^TMP("GPLCCR",$J,"IMMUNE")) ; TEMP STORAGE FOR VARIABLES
D EXTRACT(IPXML,DFN,OUTXML) ;EXTRACT THE VARIABLES D EXTRACT(IPXML,DFN,OUTXML) ;EXTRACT THE VARIABLES
B
N C0CZI,C0CZIC ; COUNT OF IMMUNIZATIONS N C0CZI,C0CZIC ; COUNT OF IMMUNIZATIONS
S C0CZIC=@C0CZV@(0) ; TOTAL FROM VARIABLE ARRAY S C0CZIC=@C0CZV@(0) ; TOTAL FROM VARIABLE ARRAY
F C0CZI=1:1:C0CZIC D ;FOR EACH IMMUNIZATION F C0CZI=1:1:C0CZIC D ;FOR EACH IMMUNIZATION