Changeset 680 for ccr/trunk/p

Timestamp:

Jan 22, 2010, 10:24:34 PM (15 years ago)

Author:

George Lilly

Message:

fixed PCLST to return the patients with a given attribute

File:

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

ccr/trunk/p/C0CRIMA.m

@@ -428 +428 @@
     . 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
     ;