Changeset 441 for ccr/trunk

Timestamp:

May 5, 2009, 5:24:14 PM (16 years ago)

Author:

George Lilly

Message:

batch processing and options

Location:

ccr/trunk/p

Files:

• C0CBAT.m (modified) (5 diffs)
• C0CCCR.m (modified) (1 diff)
• C0C_1_0_22_T1.KID (added)

ccr/trunk/p/C0CBAT.m

@@ -28 +28 @@
  I '$D(^TMP("C0CBAT","STOP")) D  ; SIGNAL RECEIVED
  . W "CCR BATCH JOB TERMINATING",!
- E  K ^TMP("C0CBAT","STOP") ; STOP SIGNALING
+ E  D  ;
+ . K ^TMP("C0CBAT","STOP") ; STOP SIGNALING
+ . W !,"BATCH PROCESSING APPARENTLY NOT RUNNING",!
  Q
  ;
@@ -104 +106 @@
  . S C0CEST=$$FMADD^XLFDT(C0CBDT,0,0,0,C0CETOT) ; ADD SECONDS TO BATCH START
  . S C0CFDA(C0CBF,C0CIEN_",",4.2)=C0CEST ;ESTIMATED COMPLETION TIME
+ . S C0CFDA(C0CBF,C0CIEN_",",5)=C0CBCUR ; LAST RECORD PROCESSED
  . D UPDIE ;
  . I $D(^TMP("C0CBAT","STOP")) D  ; IF STOP SIGNAL DETECTED
@@ -112 +115 @@
  . I $D(@C0CBH@(C0CBCUR)) Q  ; SKIP IF IN HOT LIST - ALREADY DONE
  . D ANALYZE^C0CRIMA(C0CBCUR,1,"LABLIMIT:T-760^VITLIMIT:T-760")
- . I $G(C0CCHK) D  ;
+ . I $G(C0CCHK) D  ; IF CHECKSUMS HAVE CHANGED
  . . D PUTRIM^C0CFM2(C0CBCUR)
  . . D XPAT^C0CCCR(C0CBCUR) ; IF VARIABLES HAVE CHANGED GENERATE CCR
@@ -130 +133 @@
  . S C0CEST=$$FMADD^XLFDT(C0CBDT,0,0,0,C0CETOT) ; ADD SECONDS TO BATCH START
  . S C0CFDA(C0CBF,C0CIEN_",",4.2)=C0CEST ;ESTIMATED COMPLETION TIME
+ . S C0CFDA(C0CBF,C0CIEN_",",5)=C0CBCUR ; 
  . D UPDIE ; 
  . I $D(^TMP("C0CBAT","STOP")) D  ; IF STOP SIGNAL DETECTED
@@ -135 +139 @@
  . . K ^TMP("C0CBAT","STOP") ; SIGNAL RECEIVED 
  . H 1 ; GIVE IT A BREAK
+ I (C0CSTOP) S C0CDISP="KILLED"
+ E  S C0CDISP="FINISHED"
+ S C0CFDA(C0CBF,C0CIEN_",",6)=C0CDISP
+ D UPDIE ; SET DISPOSITION FIELD
  K ^TMP("C0CBAT","RUNNING")
  Q

ccr/trunk/p/C0CCCR.m

@@ -43 +43 @@
  I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_22.xml"
  S ODIRGLB=$NA(^TMP("C0CCCR","ODIR"))
- S ^TMP("C0CCCR","FNAME",DFN)=UFN ; FILE NAME FOR BATCH USE
+ S ^TMP("C0CCCR","FNAME",DFN)=ONAM ; FILE NAME FOR BATCH USE
  I $D(^TMP("GPLCCR","ODIR")) S @ODIRGLB=^TMP("GPLCCR","ODIR")
  I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET