Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 55)
+++ ccr/trunk/p/GPLCCR.m	(revision 56)
@@ -13,7 +13,10 @@
        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
Index: ccr/trunk/p/GPLXPATH.m
===================================================================
--- ccr/trunk/p/GPLXPATH.m	(revision 55)
+++ ccr/trunk/p/GPLXPATH.m	(revision 56)
@@ -365,5 +365,5 @@
 PARY(GLO)       ;PRINT AN ARRAY
         N I
-        F I=1:1:@GLO@(0) W @GLO@(I),!
+        F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
         Q
         ;