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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 496 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 D | |
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 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.