Changeset 314 for ccr/trunk/p/GPLLABS.m
- Timestamp:
- Jan 6, 2009, 12:07:27 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLLABS.m
r313 r314 143 143 . S C0CNSSN=1 ; SET NO SSN FLAG 144 144 S C0CSPC="*" ; LOOKING FOR ALL LABS 145 D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING 146 D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY TO GET EVERYTHING 145 I $D(^TMP("GPLCCR","RPMS")) D ; RUNNING RPMS 146 . D DT^DILF(,"T-365",.C0CSDT) ; START DATE ONE YEAR AGO TO LIMIT VOLUME 147 E D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING 148 D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY 147 149 S C0CR=$$GCPR^LA7QRY(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP 148 150 Q
Note:
See TracChangeset
for help on using the changeset viewer.