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

get correct occurance count for meds variables

This commit is contained in:
george 2010-01-10 16:00:53 +00:00
parent 271e23caa5
commit cce588553b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
p/C0CRIMA.m
View File

@ -463,10 +463,12 @@ ZGVWRK(ZWHICH) ; DO ONE SECTION FOR RPCGV
;
N ZZGN ; NAME FOR SECTION VARIABLES
S ZZGN=$NA(@ZVBASE@(DFN,ZWHICH)) ; BASE OF VARS FOR SECTION
I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
;I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
I $O(@ZZGN@(""),-1)="" D ;
E D ; VARS EXIST
. N ZGVI
. F ZGVI=1:1:@ZZGN@(0) D ; FOR EACH MULTIPLE IN SECTION
. N ZGVI,ZGVN
. S ZGVN=$O(@ZZGN@(""),-1) ;COUNT OF VARS
. F ZGVI=1:1:ZGVN D ; FOR EACH MULTIPLE IN SECTION
. . K ZZGA N ZZGA ; TEMP ARRAY FOR SECTION VARS
. . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE
. . S ZZGN2=$NA(@ZZGN@(ZGVI))