Changeset 665 for ccr


Ignore:
Timestamp:
Jan 10, 2010, 11:00:53 AM (15 years ago)
Author:
George Lilly
Message:

get correct occurance count for meds variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CRIMA.m

    r663 r665  
    464464    N ZZGN ; NAME FOR SECTION VARIABLES
    465465    S ZZGN=$NA(@ZVBASE@(DFN,ZWHICH)) ; BASE OF VARS FOR SECTION
    466     I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
     466    ;I '$D(@ZZGN@(0)) Q ; NO VARS FOR THIS SECTION
     467    I $O(@ZZGN@(""),-1)=""  D  ;
    467468    E  D  ; VARS EXIST
    468     . N ZGVI
    469     . F ZGVI=1:1:@ZZGN@(0) D  ; FOR EACH MULTIPLE IN SECTION
     469    . N ZGVI,ZGVN
     470    . S ZGVN=$O(@ZZGN@(""),-1) ;COUNT OF VARS
     471    . F ZGVI=1:1:ZGVN D  ; FOR EACH MULTIPLE IN SECTION
    470472    . . K ZZGA N ZZGA ; TEMP ARRAY FOR SECTION VARS
    471473    . . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE
Note: See TracChangeset for help on using the changeset viewer.