Index: ccr/trunk/p/C0CRIMA.m
===================================================================
--- ccr/trunk/p/C0CRIMA.m	(revision 679)
+++ ccr/trunk/p/C0CRIMA.m	(revision 680)
@@ -428,10 +428,10 @@
     . I $P(ZATBL,"^",ZAP)'="" D  ; CAT HAS ATTR
     . . S ZCATTBL=$P(@ZCBASE@(ZATBL),"^",1) ; NAME OF TBL
-    . . M LSTRTN=@ZPBASE@(ZCATTBL) ; MERGE PATS FROM CAT
+    . . M @LSTRTN=@ZPBASE@(ZCATTBL) ; MERGE PATS FROM CAT
     S ZCNT=0 ; INITIALIZE COUNT OF PATIENTS
-    S ZPAT=0 ; START AT FIRST PATIENT IN LIST
-    F  S ZPAT=$O(LSTRTN(ZPAT)) Q:ZPAT=""  D  ;
+    S ZPAT="" ; START AT FIRST PATIENT IN LIST
+    F  S ZPAT=$O(@LSTRTN@(ZPAT)) Q:ZPAT=""  D  ;
     . S ZCNT=ZCNT+1
-    S LSTRTN(0)=ZCNT ; COUNT OF PATIENTS IN ARRAY
+    S @LSTRTN@(0)=ZCNT ; COUNT OF PATIENTS IN ARRAY
     Q
     ;