iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

new Lab limit parameter ^TMP("GPLCCR","LABLIMIT")="T-360" to control 

dates of Lab extract
This commit is contained in:
george 2009-01-15 15:49:07 +00:00
parent aadad004e4
commit ee9b73a444
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
p/GPLLABS.m
View File

@ -141,11 +141,13 @@ GHL7 ; GET HL7 MESSAGE FOR LABS FOR THIS PATIENT
I C0CPTID="" D Q ; NO SSN, COMPLAIN AND QUIT
. 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
;