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

make silent by default

This commit is contained in:
george 2012-04-12 16:58:03 +00:00
parent 0c2a033f5c
commit 2fbaf856f5
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/C0XF2N.m
View File

@ -526,7 +526,7 @@ ADDINN(ZG,ZS,ZARY) ; ADD IF NOT NULL
F S ZI=$O(ZARY(ZI)) Q:ZI="" D ; F S ZI=$O(ZARY(ZI)) Q:ZI="" D ;
. I ZARY(ZI)'="" D ; . I ZARY(ZI)'="" D ;
. . D ADD^C0XF2N(ZG,ZS,ZI,ZARY(ZI)) . . D ADD^C0XF2N(ZG,ZS,ZI,ZARY(ZI))
. . W !,"ADDING",ZI," ",ZARY(ZI) . . I $D(DEBUG) W !,"ADDING",ZI," ",ZARY(ZI)
;ZWR ZARY ;ZWR ZARY
Q Q
; ;