Changeset 56 for ccr/trunk/p


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCR.m

    r55 r56  
    1313       S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
    1414       S ONAM="PAT_"_DFN_"_CCR_V1.xml"
    15        S ODIR="/home/glilly/CCROUT"
    16        ;S ODIR="/home/cedwards/"
    17        ;S ODIR="/opt/wv/p/"
     15       S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
     16       I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
     17       . S @ODIRGLB="/home/glilly/CCROUT"
     18       . ;S @ODIRGLB="/home/cedwards/"
     19       . ;S @ODIRGLB="/opt/wv/p/"
     20       S ODIR=@ODIRGLB
    1821       D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
    1922       Q
  • ccr/trunk/p/GPLXPATH.m

    r55 r56  
    365365PARY(GLO)       ;PRINT AN ARRAY
    366366        N I
    367         F I=1:1:@GLO@(0) W @GLO@(I),!
     367        F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
    368368        Q
    369369        ;
Note: See TracChangeset for help on using the changeset viewer.