Changeset 326

Timestamp:

Jan 15, 2009, 10:49:07 AM (16 years ago)

Author:

George Lilly

Message:

new Lab limit parameter ^{TMP("GPLCCR","LABLIMIT")="T-360" to control
dates of Lab extract}

File:

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

ccr/trunk/p/GPLLABS.m

@@ -142 +142 @@
  . W "LAB LOOKUP FAILED, NO SSN",!
  . S C0CNSSN=1 ; SET NO SSN FLAG
- S C0CSPC="*" ; LOOKING FOR ALL LABS
- I $D(^TMP("GPLCCR","RPMS")) D  ; RUNNING RPMS
- . D DT^DILF(,"T-365",.C0CSDT) ; START DATE ONE YEAR AGO TO LIMIT VOLUME
- E  D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING
- D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY 
+ S C0CSPC="*" ; LOOKING FOR ALL LAB TYPES
+ 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
+ D DT^DILF(,C0CLLMT,.C0CSDT) ; 
+ W "LAB LIMIT: ",C0CLLMT,!
+ D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
  S C0CR=$$GCPR^LA7QRY(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
  Q