Produced by Araxis Merge on 11/9/2018 12:34:16 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 | CHPIVMS.m | Mon Nov 5 16:41:38 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHPIVMS.m | Fri Nov 9 03:45:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 468 |
Changed | 3 | 6 |
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 | CHPIVMS ;B YLIGHT/JLS Export CP E Extract data to Mo veIt folde r 11.03.1 6 | |
2 | ;;1.0;CHP I;****;Sep 24, 2016; Build 9 | |
3 | S DEBUG=0 | |
4 | ; | |
5 | ; 11/03/1 6 - MoveIt folder lo cation: DNS fs3. DNS | |
6 | ; HAC us es utility FTPFILE^C HTFLIB9(fi le,server, folder,get /put) | |
7 | ; | |
8 | ; 10/18/1 6 Export f ile format (from CPE -PIT v2.8 XLS): | |
9 | ; | |
10 | ; Extract Data 0 'T erminal' f ile format for Daily (D) and H istory (H) : | |
11 | ; Daily ( D) - CHPIT YPE["D" | |
12 | ; | |
13 | ; CPE-Ter minal-Deta ils-YYYYMM DDHHMM.txt | |
14 | ; Examp le - CPE-T erminal-De tails-2012 07040159.t xt | |
15 | ; Compani on File | |
16 | ; CPE-T erminal-C- YYYYMMDDHH MM.txt | |
17 | ; Examp le - CPE-T erminal-C- 2012070401 59.txt | |
18 | ; | |
19 | ; History (H) - CHP ITYPE["H" | |
20 | ; | |
21 | ; CPE-His tory-Detai ls-YYYYMMD DHHMM.txt | |
22 | ; Examp le - CPE-H istory-Det ails-20120 7040159.tx t | |
23 | ; Compani on File | |
24 | ; CPE-H istory-C-Y YYYMMDDHHM M.txt | |
25 | ; Examp le - CPE-H istory-C-2 0120704015 9.txt | |
26 | ; | |
27 | ; Returns to MOVEIT ^CHPIEX1: | |
28 | ; CHPIMT = 0/unsucc essful, 1/ successful CPE-Termi nal-Detail s file exp ort | |
29 | ; CHPIMC = 0/unsucc essful, 1/ successful CPE-Termi nal-C comp anion file export | |
30 | ; | |
31 | ; -- to t est: | |
32 | ; | |
33 | ; S CHPIT YPE="DFF", CHPIEN7=1, ZTSK=100,T EST=1 D ^C HPIVMS << < Daily | |
34 | ; S CHPIT YPE="HFF", CHPIEN7=2, ZTSK=100,T EST=1 D ^C HPIVMS << < History | |
35 | ; | |
36 | Q:$G(CHPI TYPE)="" | |
37 | Q:$G(CHPI EN7)="" | |
38 | ; | |
39 | S CHPIMT= 0,CHPIMC=0 | |
40 | ; | |
41 | I CHPITYP E["D" D DA ILY | |
42 | I CHPITYP E["H" D HI STORY | |
43 | ; | |
44 | HANG 60 | |
45 | KILL | |
46 | KILL ^TMP ($J) | |
47 | Q | |
48 | ; | |
49 | DAILY ; -- build exp ort files for Daily extract | |
50 | D HLDATE | |
51 | D PATH | |
52 | D TFILE | |
53 | D CFILE | |
54 | Q | |
55 | ; | |
56 | HISTORY ; -- build e xport file s for Hist ory extrac t | |
57 | D HLDATE | |
58 | D PATH | |
59 | D TFILE | |
60 | D CFILE | |
61 | Q | |
62 | ; | |
63 | TFILE ; CP E-Terminal -Details-Y YYYMMDDHHM M.txt, CPE -History-D etails-YYY YMMDDHHMM. txt | |
64 | K TFILE | |
65 | I CHPITYP E["D" S TF ILE="CPE-T erminal-De tails-"_FI LEDATE_".t xt" | |
66 | I CHPITYP E["H" S TF ILE="CPE-H istory-Det ails-"_FIL EDATE_".tx t" | |
67 | I $G(TODA TE)'="" S TFILE="CPE -History-D etails-"_F ILEDATE_". txt" | |
68 | S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIDRVR", 1)),3,PATH ,TFILE) | |
69 | ; | |
70 | H 10 | |
71 | D FTP(PAT H_TFILE) | |
72 | ; | |
73 | S CHPIMT= $G(Y) | |
74 | Q | |
75 | ; | |
76 | ;******** ********** ********** ********** ********** ********** ***** | |
77 | CFILE ; Co mpanion Fi le | |
78 | ;******** ********** ********** ********** ********** ********** ***** | |
79 | ; CPE-Ter minal-C-YY YYMMDDHHMM .txt, CPE- History-C- YYYYMMDDHH MM.txt | |
80 | ; Compani on File | |
81 | ; | |
82 | S ETYPE=" " | |
83 | I CHPITYP E["D" D | |
84 | . S CFILE ="CPE-Term inal-C-"_F ILEDATE_". txt" | |
85 | . S ETYPE ="D" | |
86 | I CHPITYP E["H" D | |
87 | . S CFILE ="CPE-Hist ory-C-"_FI LEDATE_".t xt" | |
88 | . S ETYPE ="H" | |
89 | I $G(TODA TE)'="" D | |
90 | . S CFILE ="CPE-Hist ory-C-"_FI LEDATE_".t xt" | |
91 | ; | |
92 | K SEQ1,SE Q2,SEQ3,SE Q4,SEQ5,SE Q6,SEQ7,SE Q8,CFILEDA T | |
93 | K ^CHPIEX T2(ZTSK,"C FILE0") | |
94 | K ^CHPIEX T2(ZTSK,"C FILE") | |
95 | S SEQ1=$G (ETYPE) ; F EED TYPE | |
96 | S SEQ2="C PE" ; P ROGRAM | |
97 | S SEQ3="" ; | |
98 | ; | |
99 | ; process feed date - SEQ4 | |
100 | S TMPDT=$ G(FILEDATE 2) | |
101 | S TMPDT=$ E(TMPDT,1, 8) ;get date piece | |
102 | S YYYY=$E (TMPDT,1,4 ) | |
103 | S MM=$E(T MPDT,5,6) | |
104 | S DD=$E(T MPDT,7,8) | |
105 | S YYYYMMD D=YYYY_MM_ DD | |
106 | S TME=$E( FILEDATE2, 9,14) ;get time piece | |
107 | S TME=$E( TME,1,2)_" :"_$E(TME, 3,4)_":"_$ E(TME,5,6) | |
108 | S SEQ4=YY YYMMDD | |
109 | ; | |
110 | S SEQ5=$G (CHPIDTOT) ; R OWCOUNT | |
111 | S SEQ5=$O (^TMP($J," CHPIDRVR", ""),-1) | |
112 | ; | |
113 | ; process tranfer b egin date - SEQ6 | |
114 | S TMPDT=$ $FMTHL7^XL FDT($G(ZTS CH)) ;con vert FM da te to HL7 | |
115 | S YYYY=$E (TMPDT,1,4 ) | |
116 | S MM=$E(T MPDT,5,6) | |
117 | S DD=$E(T MPDT,7,8) | |
118 | S HH=$E(T MPDT,9,10) | |
119 | S MM=$E(T MPDT,11,12 ) | |
120 | S SS=$E(T MPDT,13,14 ) | |
121 | S SEQ6=YY YY_MM_DD_" "_HH_":"_ MM_":"_SS ; TRANS FERBEGTIME | |
122 | ; | |
123 | ; process tranfer e nd date - SEQ7 | |
124 | S TMPDT=$ $FMTHL7^XL FDT($G(CHP IEND)) ;c onvert FM date to HL 7 | |
125 | S YYYY=$E (TMPDT,1,4 ) | |
126 | S MM=$E(T MPDT,5,6) | |
127 | S DD=$E(T MPDT,7,8) | |
128 | S HH=$E(T MPDT,9,10) | |
129 | S MM=$E(T MPDT,11,12 ) | |
130 | S SS=$E(T MPDT,13,14 ) | |
131 | S SEQ7=YY YY_MM_DD_" "_HH_":"_ MM_":"_SS ; TRANS FERENDTIME | |
132 | ; | |
133 | S SEQ8=$G (CHPISIZE) ; F ILESIZE (B YTES) | |
134 | S CFILEDA T=SEQ1_U_S EQ2_U_SEQ3 _U_SEQ4_U_ SEQ5_U_SEQ 6_U_SEQ7_U _SEQ8 | |
135 | S CFILEDA T0="Feed_T ype^Progra m^Filler^F eed_Date^R owcount" | |
136 | S CFILEDA T0=CFILEDA T0_"^Trans ferBegTime ^TransferE ndTime^Fil eSize^" | |
137 | ; | |
138 | S ^TMP($J ,"CHPIVMS" ,1)=$G(CFI LEDAT0) | |
139 | S ^TMP($J ,"CHPIVMS" ,2)=$G(CFI LEDAT) | |
140 | ; | |
141 | N S3,LCNT ,PDATE | |
142 | S LCNT=2 | |
143 | F S3="(3) ","(4)","( 5)","(6)" DO | |
144 | . S S3=$O (^TMP($J," EX2A",S3)) Q:S3="" | |
145 | . S PDATE ="" FOR D O Q:PDATE ="" | |
146 | . . S PDA TE=$O(^TMP ($J,"EX2A" ,S3,PDATE) ) Q:PDATE= "" | |
147 | . . S PCN T=^TMP($J, "EX2A",S3, PDATE) | |
148 | . . S LCN T=LCNT+1 | |
149 | . . S ^TM P($J,"CHPI VMS",LCNT) =$$CVTDATE ^CHPIDRVR( PDATE)_" - "_S3_" - "_PCNT | |
150 | ; | |
151 | S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIVMS",1 )),3,PATH, CFILE) | |
152 | ; | |
153 | H 10 | |
154 | D FTP(PAT H_CFILE) | |
155 | ; | |
156 | S CHPIMC= $G(Y) | |
157 | Q | |
158 | ; | |
159 | HLDATE ;co nvert curr ent date t ime to HL7 timestamp | |
160 | ;returns FILEDATE = YYYYMMDDH HMM | |
161 | K FILEDAT E | |
162 | D NOW^%DT C | |
163 | S %=$E($P (%,".",2), 1,6) | |
164 | S FILEDAT E=(1700+$E (X,1,3))_$ E(X,4,7)_% _$E("0000" ,1,4-$L(%) ) | |
165 | S FILEDAT E2=FILEDAT E | |
166 | IF $L(FIL EDATE)=14 SET FILEDA TE=$E(FILE DATE,1,12) ;remove seconds | |
167 | K %,%H,%I | |
168 | Q | |
169 | ; | |
170 | PATH ; get from PARA METER file #741777 V MS DIRECTO RY PATH fl d #.03 | |
171 | K PATH | |
172 | S PATH="" | |
173 | S PATH=$$ GET1^DIQ(7 41777,CHPI EN7,.02,"E ") | |
174 | Q | |
175 | ; | |
176 | ZVMS2 ; cr eate hostf ile using global sub script lev el ^TMP($J ,"CHPIDRVR ",1) | |
177 | S CHPITYP E="DFF" | |
178 | S CHPIEN7 =1 | |
179 | D HLDATE | |
180 | D PATH | |
181 | K TFILE | |
182 | I CHPITYP E["D" S TF ILE="CPE-T erminal-De tails-"_FI LEDATE_".t xt" | |
183 | I CHPITYP E["H" S TF ILE="CPE-H istory-Det ails-"_FIL EDATE_".tx t" | |
184 | N I,Y | |
185 | F I=0:1:1 0 S ^CHPIE XT(I)="TES T RECORD " _I | |
186 | S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIDRVR", 0)),3,PATH ,TFILE) | |
187 | Q | |
188 | ; | |
189 | ; | |
190 | ZVMS3 ; cr eate hostf ile using global sub script lev el ^CHPITE ST($J,ZTSK ,1) | |
191 | S CHPITYP E="DFF" | |
192 | S CHPIEN7 =1 | |
193 | D HLDATE | |
194 | D PATH | |
195 | K TFILE | |
196 | I CHPITYP E["D" S TF ILE="CPE-T erminal-De tails-"_FI LEDATE_".t xt" | |
197 | I CHPITYP E["H" S TF ILE="CPE-H istory-Det ails-"_FIL EDATE_".tx t" | |
198 | N I,Y | |
199 | K ^CHPITE ST($J) | |
200 | S ZTSK=10 0 | |
201 | F I=1:1:3 0 S ^CHPIT EST($J,ZTS K,I)="TEST extract r ecord "_I | |
202 | S Y=$$GTF ^%ZISH($NA (^CHPITEST ($J,ZTSK,1 )),3,PATH, TFILE) | |
203 | Q | |
204 | ; | |
205 | ; | |
206 | DOST2 ; cr eate hostf ile using global sub script lev el ^TMP($J ,"CHPIDRVR ",1) | |
207 | N I,Y | |
208 | K ^TMP($J ,"CHPIDRVR ") | |
209 | F I=1:1:5 0 S ^TMP($ J,"CHPIDRV R",I)="TES T extract record "_I | |
210 | S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIDRVR", 1)),3,"C:\ USERS\OWNE R\DESKTOP" ,"CPEDOST2 .DAT") | |
211 | Q | |
212 | ; | |
213 | DOST3 ; cr eate hostf ile using global sub script lev el ^TMP($J ,"CHPIDRVR ",ZTSK,1) | |
214 | N I,Y | |
215 | K ^TMP($J ,"CHPIDRVR ") | |
216 | S ZTSK=10 0 | |
217 | F I=1:1:2 0 S ^TMP($ J,ZTSK,I)= "TEST extr act "_ZTSK _" record "_I | |
218 | S Y=$$GTF ^%ZISH($NA (^TMP($J,Z TSK,1)),3, "C:\USERS\ OWNER\DESK TOP","CPED OST3.DAT") | |
219 | Q | |
220 | ; | |
221 | FTP(INFILE ) ; use HA C ftp util ity to tra nsfer extr act files | |
222 | ; | |
223 | K XFILE,X SERVER,XFO LDER,XOPER | |
224 | ; | |
225 | S XFILE=I NFILE | |
226 | ; | |
227 | S XSERVER =" DNS fs3. DNS " | |
228 | ; | |
229 | S XFOLDER ="/fs3big/ PIE/PROD" | |
230 | ; S XFOLD ER="/fs3bi g/Engelbac h/PIE" ; t emp RFE 5/ 25/18 | |
231 | ; I $G(TO DATE)'="" S XFOLDER= "/fs3big/P IE/History " | |
232 | ; I $User Name = " AI " S XFOLDE R="/fs3big /PIE/In_Pr ogress" | |
233 | ; | |
234 | S XOPER=" PUT" | |
235 | ; | |
236 | D FTPFILE ^CHTFLIB9( XFILE,XSER VER,XFOLDE R,XOPER) | |
237 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.