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

Timestamp:

Apr 20, 2009, 11:00:43 PM (15 years ago)

Author:

George Lilly

Message:

new LAB interface

File:

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

ccr/trunk/p/C0CLABS.m

@@ -153 +153 @@
  W "LAB LIMIT: ",C0CLLMT,!
  D DT^DILF(,C0CLSTRT,.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
- S C0CR=$$GCPR^LA7QRY(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
+ S C0CR=$$LAB^C0CLA7Q(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
  Q
  ;