Changeset 140 for ccr/trunk


Ignore:
Timestamp:
Sep 5, 2008, 1:30:17 PM (16 years ago)
Author:
George Lilly
Message:

Check in ANALYZE for merged patients

File:
1 edited

Legend:

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

    r137 r140  
    8383    . W "CATEGORY NAME: ",CATNAME,!
    8484    . ;
    85     . S RIMDFN=$O(^DPT(RIMDFN)) ; NEXT PATIENT
    86     S @RIMBASE@("RESUME")=RIMDFN ; WHERE WE ARE LEAVING OFF THIS RUN
     85    . F  S RIMDFN=$O(^DPT(RIMDFN)) Q:'$$PTST^CCRSYS(RIMDFN) ; NEXT PATIENT
     86    . ; PTST TESTS TO SEE IF PATIENT WAS MERGED
     87    . ; IF CCRTEST=0, PTST WILL CHECK TO SEE IF THIS IS A TEST PATIENT
     88    . ; AND WE SKIP IT
     89    . S @RIMBASE@("RESUME")=RIMDFN ; WHERE WE ARE LEAVING OFF THIS RUN
    8790    ; D PARY^GPLXPATH(@RIMBASE@("ATTRTBL"))
    8891    Q
Note: See TracChangeset for help on using the changeset viewer.