Changeset 104 for ccr/trunk/p/GPLCCR.m

Timestamp:

Aug 26, 2008, 8:27:36 PM (16 years ago)

Author:

George Lilly

Message:

batch CCR export support

File:

• ccr/trunk/p/GPLCCR.m (modified) (3 diffs)

ccr/trunk/p/GPLCCR.m

@@ -25 +25 @@
        I Y<1 Q  ; EXIT
        S DFN=$P(Y,U,1) ; SET THE PATIENT
+       D XPAT(DFN,"","") ; EXPORT TO A FILE
+       Q
+       ;
+XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
+       ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
+       ; FN IS FILE NAME, DEFAULTS IF NULL
        N CCRGLO
        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
-       S ONAM="PAT_"_DFN_"_CCR_V1.xml"
+       S ONAM=FN
+       I FN="" S ONAM="PAT_"_DFN_"_CCR_V1.xml"
        S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
        I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
@@ -34 +41 @@
        . ;S @ODIRGLB="/home/cedwards/"
        . S @ODIRGLB="/opt/wv/p/"
-       S ODIR=@ODIRGLB
+       S ODIR=DIR
+       I DIR="" S ODIR=@ODIRGLB
        D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
        Q
@@ -81 +89 @@
     . S IXML="INXML"
     . S OXML=$P(XI,";",4) ; ARRAY FOR SECTION VALUES
+    . ; K @OXML ; KILL EXPECTED OUTPUT ARRAY
     . ; W OXML,!
     . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL