Changeset 665 for ccr/trunk/p

Timestamp:

Jan 10, 2010, 11:00:53 AM (15 years ago)

Author:

George Lilly

Message:

get correct occurance count for meds variables

File:

• ccr/trunk/p/C0CRIMA.m (modified) (1 diff)

ccr/trunk/p/C0CRIMA.m

@@ -464 +464 @@
     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