Changeset 680


Ignore:
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:
1 edited

Legend:

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

    r678 r680  
    428428    . I $P(ZATBL,"^",ZAP)'="" D  ; CAT HAS ATTR
    429429    . . S ZCATTBL=$P(@ZCBASE@(ZATBL),"^",1) ; NAME OF TBL
    430     . . M LSTRTN=@ZPBASE@(ZCATTBL) ; MERGE PATS FROM CAT
     430    . . M @LSTRTN=@ZPBASE@(ZCATTBL) ; MERGE PATS FROM CAT
    431431    S ZCNT=0 ; INITIALIZE COUNT OF PATIENTS
    432     S ZPAT=0 ; START AT FIRST PATIENT IN LIST
    433     F  S ZPAT=$O(LSTRTN(ZPAT)) Q:ZPAT=""  D  ;
     432    S ZPAT="" ; START AT FIRST PATIENT IN LIST
     433    F  S ZPAT=$O(@LSTRTN@(ZPAT)) Q:ZPAT=""  D  ;
    434434    . S ZCNT=ZCNT+1
    435     S LSTRTN(0)=ZCNT ; COUNT OF PATIENTS IN ARRAY
     435    S @LSTRTN@(0)=ZCNT ; COUNT OF PATIENTS IN ARRAY
    436436    Q
    437437    ;
Note: See TracChangeset for help on using the changeset viewer.