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

Timestamp:

Jul 8, 2008, 3:32:50 PM (16 years ago)

Author:

George Lilly

Message:

Put ODIR in global to ease versioning and numbered lines in PARY

File:

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

ccr/trunk/p/GPLCCR.m

@@ -13 +13 @@
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
        S ONAM="PAT_"_DFN_"_CCR_V1.xml"
-       S ODIR="/home/glilly/CCROUT"
-       ;S ODIR="/home/cedwards/"
-       ;S ODIR="/opt/wv/p/"
+       S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
+       I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
+       . S @ODIRGLB="/home/glilly/CCROUT"
+       . ;S @ODIRGLB="/home/cedwards/"
+       . ;S @ODIRGLB="/opt/wv/p/"
+       S ODIR=@ODIRGLB
        D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
        Q