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

Timestamp:

Jan 30, 2009, 1:07:28 PM (15 years ago)

Author:

George Lilly

Message:

update to support parameters .. XPAT^{GPLCCR(1,"LABSTART:T^LABLIMIT:T-5000")}

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 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-360" ;START DATE LONG AGO TO GET EVERYTHING
- D DT^DILF(,C0CLLMT,.C0CSDT) ; 
+ ;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-360" ;START DATE LONG AGO TO GET EVERYTHING
+ 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(,"T",.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
+ 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
@@ -159 +161 @@
  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 ^TMP("GPLCCR","LABTBL",0)'="V2" 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=""
@@ -377 +379 @@
  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
- ;
+ M ^TMP("GPLCCR","LABTBL")=X ; SET VALUES IN ^TMP("GPLCCR","LABTBL")
+ S ^TMP("GPLCCR","LABTBL",0)="V2"
+ Q
+ ;