Changeset 415 for ccr/trunk/p/C0CLABS.m


Ignore:
Timestamp:
Mar 22, 2009, 3:06:25 PM (15 years ago)
Author:
George Lilly
Message:

Renamed CCRDPT to C0CDPT

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CLABS.m

    r396 r415  
    139139 ; N C0CPTID,C0CSPC,C0CSDT,C0CEDT,C0CR
    140140 ; SET UP FOR LAB API CALL
    141  S C0CPTID=$$SSN^CCRDPT(DFN) ; GET THE SSN FOR THIS PATIENT
     141 S C0CPTID=$$SSN^C0CDPT(DFN) ; GET THE SSN FOR THIS PATIENT
    142142 I C0CPTID="" D  Q  ; NO SSN, COMPLAIN AND QUIT
    143143 . W "LAB LOOKUP FAILED, NO SSN",!
Note: See TracChangeset for help on using the changeset viewer.