Changeset 399 for ccr/trunk/p/C0CRIMA.m


Ignore:
Timestamp:
Mar 15, 2009, 8:35:00 PM (15 years ago)
Author:
Sam Habiel
Message:

Changed CCRSYS to C0CSYS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CRIMA.m

    r391 r399  
    9494    . W "CATEGORY NAME: ",CATNAME,!
    9595    . ;
    96     . F  S RIMDFN=$O(^DPT(RIMDFN)) Q:'$$PTST^CCRSYS(RIMDFN) ; NEXT PATIENT
     96    . F  S RIMDFN=$O(^DPT(RIMDFN)) Q:'$$PTST^C0CSYS(RIMDFN) ; NEXT PATIENT
    9797    . ; PTST TESTS TO SEE IF PATIENT WAS MERGED
    9898    . ; IF CCRTEST=0, PTST WILL CHECK TO SEE IF THIS IS A TEST PATIENT
Note: See TracChangeset for help on using the changeset viewer.