Changeset 440 for ccr/trunk/p/C0CCCR.m

Timestamp:

May 5, 2009, 2:58:05 PM (15 years ago)

Author:

George Lilly

Message:

updates to Batch processing

File:

• ccr/trunk/p/C0CCCR.m (modified) (1 diff)

ccr/trunk/p/C0CCCR.m

@@ -41 +41 @@
  S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
- I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_21.xml"
+ 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
  I $D(^TMP("GPLCCR","ODIR")) S @ODIRGLB=^TMP("GPLCCR","ODIR")
  I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET