Changeset 383 for ccr/trunk/p/GPLLABS.m

Timestamp:

Feb 26, 2009, 5:32:34 PM (15 years ago)

Author:

George Lilly

Message:

Vitals date limits and restored Labs date limits

File:

• ccr/trunk/p/GPLLABS.m (modified) (3 diffs)

ccr/trunk/p/GPLLABS.m

@@ -143 +143 @@
  . 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 
+ ;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 C0CLLMT=$$GET^C0CPARMS("LABLIMIT") ; GET THE LIMIT PARM
+ S C0CLSTRT=$$GET^C0CPARMS("LABSTART") ; GET START PARM
+ D DT^DILF(,C0CLLMT,.C0CSDT) ;
+ 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
  Q
@@ -156 +161 @@
  I '$D(C0CQT) S C0CQT=0
  I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
- I '$D(^KVAI(0)) D SETTBL ; INITIALIZE LAB TABLE
- I ^KBAI(0)'="V2" D SETTBL ; NEED NEWEST VERSION
+ I '$D(^TMP("GPLCCR","LABTBL",0)) D SETTBL ;INITIALIZE LAB TABLE
+ I ^TMP("GPLCCR","LABTBL",0)'="V3" D SETTBL ;NEED NEWEST VERSION
  I '$D(^TMP("HLS",$J,1)) D GHL7 ; GET HL7 MGS IF NOT ALREADY DONE
- S C0CTAB=$NA(^KBAI) ; BASE OF OBX TABLE
+ S C0CTAB=$NA(^TMP("GPLCCR","LABTBL")) ; BASE OF OBX TABLE
  S C0CHB=$NA(^TMP("HLS",$J))
  S C0CI=""
@@ -375 +380 @@
  S X("OBX","OBX16")="16^00584^Responsible Observer"
  S X("OBX","OBX17")="17^00936^Observation Method"
- M ^KBAI=X ; SET VALUES IN ^KBAI
- S ^KBAI(0)="V2"
- Q
- ;
+ K ^TMP("GPLCCR","LABTBL")
+ M ^TMP("GPLCCR","LABTBL")=X ; SET VALUES IN LAB TBL
+ S ^TMP("GPLCCR","LABTBL",0)="V3"
+ Q
+ ;