Changeset 56 for ccr/trunk/p

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

Location:

ccr/trunk/p

Files:

• GPLCCR.m (modified) (1 diff)
• GPLXPATH.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

ccr/trunk/p/GPLXPATH.m

@@ -365 +365 @@
 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
         ;