Changeset 327 for ccr

Timestamp:

Jan 15, 2009, 10:51:18 AM (16 years ago)

Author:

George Lilly

Message:

set default Lab Limit to "T-360" ... override with "T-5000" to get all
labs

File:

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

ccr/trunk/p/GPLLABS.m

@@ -145 +145 @@
  I $D(^TMP("GPLCCR","LABLIMIT")) D  ; IS LAB LIMIT SET? MOVE THIS TO PARMS
  . S C0CLLMT=^TMP("GPLCCR","LABLIMIT") ;USE THE LAB LIMIT PARAMATER
- E  S C0CLLMT="T-5000" ;START DATE LONG AGO TO GET EVERYTHING
+ E  S C0CLLMT="T-360" ;START DATE LONG AGO TO GET EVERYTHING
  D DT^DILF(,C0CLLMT,.C0CSDT) ; 
  W "LAB LIMIT: ",C0CLLMT,!