280. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:17 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

280.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHTFLIB9.m Mon Nov 5 16:44:28 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHTFLIB9.m Mon Nov 5 17:55:39 2018 UTC

280.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 496
Changed 1 2
Inserted 0 0
Removed 0 0

280.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

280.4 Active regular expressions

No regular expressions were active.

280.5 Comparison detail

  1   CHTFLIB9 ; SBB;CHAMPV A TOOLS FU NCTION LIB RARY; IO &  FTP Modul e;12/09/20 13  02:00  PM
  2    ;;1.0;CHA MPVA SYSTE M;;DECEMBE R 9, 2013;
  3    ;
  4    ;SBB-DEF0 16554-11/1 9/13 - Ini tial Creat ion
  5    ;
  6    ;Ftp file s from VMS  <--> Wind ows. Imple mented sin ce DECNET  is going a way.
  7    ; I/P Par ameters
  8    ;    : FI LENAME  -  Filename t o FTP from  VMS <-->  WINDOWS
  9    ;      EX : HAC_HFS$ :[SCR.TEMP _FILES]CMS _DISCREPAN CY_REPORT. TXT for HA C
  10    ;           HAC_HFS$ :[DSMMANAG .CHAMPVA]C MS_DISCREP ANCY_REPOR T_UCI_.TXT  for non H AC areas
  11    ;    : SE RVER    -  Server to  connect to  for FTP
  12    ;        EX:  DNS     fs3. DNS                fully Qual ified Dns  Name(FQDN)
  13    ;    : FO LDER    -  PATH to pl ace the fi le @ or ge t from on  WINDOWS
  14    ;      EX : /FS3BIG  or /CMS/CM S_Discrepa ncies etc
  15    ;    : DI RECTION -  'PUT' or ' GET'
  16    ;      EX : PUT or G ET dependi ng on Writ e or Read
  17    ;
  18   FTPFILE(FI LENAME,SER VER,FOLDER ,DIRECTION ) ;
  19    ;
  20    N CHUCI,L OCALDIR,FI LENAME1,PU TFILE,GETF ILE,PARAMS ,CMD,X
  21    S LOCALDI R=$S(FILEN AME["]":$P (FILENAME, "]")_"]",1 :$P(FILENA ME,":")_": ")
  22    S FILENAM E1=$S(FILE NAME["]":$ P(FILENAME ,"]",2),1: $P(FILENAM E,":",2))
  23    S PUTFILE ="FTP_FILE _PUT.COM"
  24    S GETFILE ="FTP_FILE _GET.COM"
  25    S CMD="SU BMIT "_LOC ALDIR
  26    ;
  27    I DIRECTI ON="PUT" D   
  28    . S CHTMP ="SET PROT ECTION=(W: RWED) "_FI LENAME
  29    . S X=$ZF (-1,CHTMP)
  30    . S CMD=C MD_PUTFILE
  31    . S PARAM S=""""_FIL ENAME_""", """_SERVER _""","""_F OLDER_""""
  32    . Q
  33    I DIRECTI ON="GET" D
  34    . S CMD=C MD_GETFILE
  35    . S PARAM S=""""_FIL ENAME1_""" ,"""_SERVE R_""","""_ FOLDER_""" "
  36    . Q
  37    S CMD=CMD _"/PARAMET ERS=("_PAR AMS_")"
  38    I DIRECTI ON="PUT" H  5
  39    S X=$ZF(- 1,CMD)
  40    D NOW^%DT C
  41    S ^CHMZHO LD("FTP_LO G",%,$J,DI RECTION)=C MD
  42    D SETBK
  43    D QFTPLGC N
  44    D KILLBK
  45    Q
  46    ;
  47    ;Open a f ile in rea d mode and  reads it  to a globa l
  48    ; I/P        : 
  49    ;              FILEN AME filena me to open  for read
  50    ;              HANDL E   handle  is needed  for OPEN^ %ZISH
  51    ; Sends b ack:  
  52    ;              0 - f ailure
  53    ;              1 - s uccess
  54   READFILE(F ILENAME,HA NDLE) ;
  55    N CNT,REC ORD,ZTSAVE ,RDDONE
  56    S CNT=0,R ECORD="",R DDONE=0
  57    K ^CHMZHO LD("FILE_R EAD",$J)
  58    I '$$OPEN FIRD(.FILE NAME,HANDL E) Q 0
  59    U FILENAM E
  60    S ZTSAVE= $ZT,$ZT="R DEXIT"
  61    ;Read the  file into  a tempora ry global  till EOF
  62    F CNT=1:1  G:$$STATU S^%ZISH SR DDONE D 
  63    . R RECOR D
  64    . S ^CHMZ HOLD("FILE _READ",$J, CNT)=RECOR D
  65    . Q
  66   SRDDONE ;
  67    ;This is  done, sinc e STATUS^% ZISH might  not stay  same to us e it again  in RDEXIT
  68    S RDDONE= 1
  69   RDEXIT ;
  70    ;Close th e file onc e file is  read
  71    S $ZT=ZTS AVE
  72    I RDDONE  D CLOSEF(F ILENAME,HA NDLE) S $Z E="" Q 1
  73    D ^%ZTER
  74    Q 0
  75    ;
  76    ;Open a f ile in rea d mode (R)
  77    ; I/P        : 
  78    ;              FILEN AME filena me to open  for read
  79    ;              HANDL E   handle  is needed  for OPEN^ %ZISH
  80    ; Sends b ack: 
  81    ;              0 - f ailure
  82    ;              1 - s uccess
  83   OPENFIRD(F ILENAME,HA NDLE)
  84    N POP
  85    S POP=0
  86    Q $$OPENF (.FILENAME ,HANDLE,"R ")
  87    ;
  88    ;Open a f ile in wri te mode (N WS)
  89    ; I/P        : 
  90    ;              FILEN AME filena me to open  for rwrit e
  91    ;              HANDL E   handle  is needed  for OPEN^ %ZISH
  92    ; Sends b ack: 
  93    ;              0 - f ailure
  94    ;              1 - s uccess
  95   OPENFIWR(F ILENAME,HA NDLE)
  96    N POP
  97    S POP=0
  98    Q $$OPENF (.FILENAME ,HANDLE,"W ")
  99    ;
  100    ;Open the  file
  101    ; I/P        :
  102    ;              FILEN AME filena me to open  
  103    ;              HANDL E   handle  is needed  for OPEN^ %ZISH
  104    ;              MODE      W for  Write with  NWS, R fo r Read
  105    ; Sends b ack: 
  106    ;              0 - f ailure
  107    ;              1 - s uccess
  108   OPENF(FILE NAME,HANDL E,MODE)
  109    N MSG,RES N
  110    S POP=0,M SG="",RESN =""
  111    I FILENAM E [ "]" D  OPEN^%ZISH (HANDLE,$P (FILENAME, "]")_"]",$ P(FILENAME ,"]",2),MO DE)
  112    I FILENAM E '[ "]" D  OPEN^%ZIS H(HANDLE,$ P(FILENAME ,":"),$P(F ILENAME,": ",2),MODE)
  113    I POP D 
  114    . S MSG=" Could not  be opened  for "_$S(M ODE="W":"W rite.",MOD E="R":"Rea d.",1:"")
  115    . ;% has  VISTA time  stamp eg  3131217.15 1411
  116    . D NOW^% DTC S ^CHM ZHOLD("FIL E_OPEN_LOG ",%,$J,HAN DLE,FILENA ME,0)=MSG
  117    . Q
  118    I 'POP S  FILENAME=I O
  119    Q 'POP
  120    ;
  121    ;Close th e file
  122    ; I/P        :
  123    ;              FILEN AME filena me to set  IO
  124    ;              HANDL E   handle  is needed  for CLOSE ^%ZISH
  125   CLOSEF(FIL ENAME,HAND LE)
  126    S IO=FILE NAME
  127    D CLOSE^% ZISH(HANDL E)
  128    D SETBK
  129    D QFLOGCL N
  130    D KILLBK
  131    Q
  132    ;
  133   SETBK ;
  134    S CHTFBK= 1
  135    Q
  136    ;
  137   KILLBK ;
  138    K CHTFBK
  139    Q
  140    ;
  141    ;Kill TMP  global
  142    ; I/P         :
  143    ;               JOB       $J of  the proce ss that re ad the fil e.
  144   KTMPFIL(JO B) ;
  145    K ^CHMZHO LD("FILE_R EAD",JOB)
  146    Q
  147    ;
  148   QFLOGCLN ;
  149    N NAME,DY S2GOBK
  150    D INITD2G B
  151    I '$D(^CH MZHOLD("FI LE_OPEN_LO G",0)) S ^ CHMZHOLD(" FILE_OPEN_ LOG",0)=+$ H
  152    I (+$H-^C HMZHOLD("F ILE_OPEN_L OG",0))<DY S2GOBK Q
  153    S CHFIO=" ",ZTDTH=$H ,ZTIO="",N AME=""
  154    S ZTRTN=" FILOGCLN^C HTFLIB9",Z TDESC="Fil e Log Clea nup Utilit y",NAME=ZT DESC
  155    S ZTSAVE( "CHFIO")=" "
  156    S ZTSAVE( "DUZ")=""
  157    D ^%ZTLOA D
  158    I $G(CHTF BK)'=1 D 
  159    . I $D(ZT SK)[0 W !! ?5,NAME_"  not starte d!"
  160    . E  W !! ?5,NAME_"  queued! TS K#: "_ZTSK
  161    . Q
  162    Q
  163    ;
  164   FILOGCLN ;
  165    N CDT,PUR GDT,DOLHD, DYS2GOBK,F DT
  166    D INITDT
  167    S ^CHMZHO LD("FILE_O PEN_LOG",C DT,$J,0)=" FILE_OPEN_ LOG: Purge  Started"
  168    S X="" F   S X=$O(^C HMZHOLD("F ILE_OPEN_L OG",X)) S  FDT=$P(X," .") Q:(FDT =PURGDT)!( FDT>PURGDT )  K ^(X)
  169    S ^CHMZHO LD("FILE_O PEN_LOG",C DT,$J,1)=" FILE_OPEN_ LOG: Purge  Ended"
  170    Q
  171    ;
  172   QFTPLGCN ;
  173    N NAME,DY S2GOBK
  174    D INITD2G B
  175    I '$D(^CH MZHOLD("FT P_LOG",0))  S ^CHMZHO LD("FTP_LO G",0)=+$H
  176    I (+$H-^C HMZHOLD("F TP_LOG",0) )<DYS2GOBK  Q
  177    S CHFIO=" ",ZTDTH=$H ,ZTIO="",N AME=""
  178    S ZTRTN=" FTPLGCLN^C HTFLIB9",Z TDESC="FTP  Log Clean up Utility ",NAME=ZTD ESC
  179    S ZTSAVE( "CHFIO")=" "
  180    S ZTSAVE( "DUZ")=""
  181    D ^%ZTLOA D
  182    I $G(CHTF BK)'=1 D 
  183    . I $D(ZT SK)[0 W !! ?5,NAME_"  not starte d!"
  184    . E  W !! ?5,NAME_"  queued! TS K#: "_ZTSK
  185    . Q
  186    Q
  187    ;
  188   FTPLGCLN ;
  189    N CDT,PUR GDT,DOLHD, DYS2GOBK,F DT
  190    D INITDT
  191    S ^CHMZHO LD("FTP_LO G",CDT,$J, 0)="FTP_LO G: Purge S tarted"
  192    S X="" F   S X=$O(^C HMZHOLD("F TP_LOG",X) ) S FDT=$P (X,".") Q: (FDT=PURGD T)!(FDT>PU RGDT)  K ^ (X)
  193    S ^CHMZHO LD("FTP_LO G",CDT,$J, 1)="FTP_LO G: Purge E nded"
  194    Q
  195    ;
  196   INITDT ;
  197    D NOW^%DT C
  198    D INITD2G B
  199    S FDT=""
  200    S CDT=%,D OLHD=+$H
  201    S PURGDT= DOLHD-DYS2 GOBK,PURGD T=$$HTFM^X LFDT(PURGD T)
  202    Q
  203    ;
  204   INITD2GB ;
  205    S DYS2GOB K=30
  206    Q
  207    ;
  208    ;;
  209    ;;
  210    ;;Unit Te sting the  API
  211    ;;
  212    ;;
  213   TESTR ;
  214    S RIO="HA C_HFS$:[DS MMANAG.CHA MPVA]REC_C OPY.COM"
  215    N RES,LN, I
  216    S RES=0,L N="",I=0
  217    W !,"Test ing Readin g!"
  218    W !!
  219    S RES=$$O PENFIRD(.R IO,"RIO")
  220    I RES D 
  221    . F I=1:1  U RIO R L N Q:$$STAT US^%ZISH  
  222    . . U 0 W  !,LN
  223    . . Q
  224    . Q
  225    I 'RES W  !,"Couldn' t open and  read the  file"
  226    D CLOSEF( RIO,"RIO")
  227    D KTMPFIL ($J)
  228    Q
  229    ;
  230   TESTW ;
  231    S WIO="HA C_HFS$:[DS MMANAG.CHA MPVA]REC_C OPY.TXT"
  232    N RES
  233    S RES=0
  234    W !,"Test ing Writin g!"
  235    W !!
  236    S RES=$$O PENFIWR(.W IO,"WIO")
  237    I RES D  
  238    . U WIO W  !,"Creati ng a new t emp file"
  239    . U WIO W  !,"writin g some stu ff"
  240    . U WIO W  !,"if i c an write i t to a fil e "
  241    . U WIO W  !,"this i s awesome. "
  242    . U WIO W  !,"What e lse to wri te, no ide a"
  243    . U WIO W  !,"no clu e, hmmmmmm "
  244    . U WIO W  !,"what e lse? :)"
  245    . D CLOSE F(WIO,"WIO ")
  246    . Q
  247    I 'RES W  !,"Couldn' t open and  read the  file"
  248    Q
  249    ;