Changeset 314 for ccr

Timestamp:

Jan 6, 2009, 12:07:27 PM (15 years ago)

Author:

George Lilly

Message:

update for RPMS operations

Location:

ccr/trunk/p

Files:

• GPLLABS.m (modified) (1 diff)
• GPLPROBS.m (modified) (1 diff)

ccr/trunk/p/GPLLABS.m

@@ -143 +143 @@
  . S C0CNSSN=1 ; SET NO SSN FLAG
  S C0CSPC="*" ; LOOKING FOR ALL LABS
- D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING
- D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY TO GET EVERYTHING
+ 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 C0CR=$$GCPR^LA7QRY(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
  Q

ccr/trunk/p/GPLPROBS.m

@@ -33 +33 @@
           S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
           K @TVMAP,@TARYTMP ; KILL OLD ARRAY VALUES
-          ;D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
-          D GET^BGOPROB(.RPCRSLT,DFN) ; CALL THE PROBLEM LIST RPC
+          I $D(^TMP("GPLCCR","RPMS")) D  ; IF IN RPMS
+          . D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
+          E  D GET^BGOPROB(.RPCRSLT,DFN) ; CALL THE PROBLEM LIST RPC
           I '$D(RPCRSLT(1)) D  Q  ; RPC RETURNS NULL
           . W "NULL RESULT FROM LIST^ORQQPL3 ",!