Produced by Araxis Merge on 11/9/2018 12:34:12 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 | CHMXRP02.m | Mon Nov 5 16:41:26 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXRP02.m | Mon Nov 5 17:53:19 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 514 |
Changed | 2 | 4 |
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 | CHMXRP02 ;HAC /RKN;MMI R eversal Ra w Data Imp ort/DRIVER ;01/03/00 14:21 AM | |
2 | ;; 1.0;CHAMPV A SYSTEM;; JULY 4, 19 90;Build 2 | |
3 | ;; PROJ # 494 Chgd file name from REVmmyy.T XT TO RVdd mmyy.TXT a nd | |
4 | ;; file name from RVXmm yy.TXT TO RXddmmyy.T XT 03/08/2 002 rkn | |
5 | ;; PROJ # 207 automated pickup/pr ocessing a nd set sch edule | |
6 | ;; to run M-F @ 7PM (wi ll do mult iple files ) 03/19/20 02 rkn | |
7 | ;; NOV 25, 03 , CHGD FLA T FILE COL 70-78 FRO M DFN TO B FN SSN | |
8 | ;; RECODED FO R ARCHIVED CLAIMS LA BELS(CWRIT IT,MISMTCH ) 07/23/20 04 RKN | |
9 | ; ;Cache Upd ates - 3/1 7/2005 RKN | |
10 | ; ;CACHE TES TED/PASSED 03/15/20 06 RKN | |
11 | ; ; | |
12 | ; ; | |
13 | ; ; | |
14 | TOPEND K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S") | |
15 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S_EXCP_NOM ATSSN") | |
16 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S_EXCP_NON DE2") | |
17 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S_EXCP_NOC LNM") | |
18 | K ^CHMZHOLD( "EXDATA_MM X_RECOUP_R EVERSALS") | |
19 | ; | |
20 | K CMMZRD,CMM ZRDLN,CMMZ CENT,CMMZI VAL,CMMZJV AL,CMMZKVA L,CMMZCLNM ,CMMZBAMT, CMMZECLM,C MMZCKML,CM MZNSCT,CMM ZNDCT,CMMZ NLCT,CMMZR PCT,CMMZN2 ,CMMZCHAR, CMMZRD | |
21 | K CMMZRDLN,C MMZLEN,CMM ZCLST,CMMZ REOP,LINE1 ,LINE2,X,M X,SX,CMMXC LMS,QFLAG, CMMZHCLM,C MMXNMAT,CM MZRCNT,CMM ZNAM,CMMZL FL,CL,Y,CH MMYY,CMMZA PAY,CMMZRN UM,SFILE,S FILE2,SFLE N | |
22 | D NOW^%DTC | |
23 | S CHDDMMYY=$ E(%,2,7) | |
24 | S (CMMZNSCT, CMMZNDCT,C MMZNLCT,CM MZRPCT,CMM ZRCNT)=0,C MMZCLST="" ,CMMZREOP= "" | |
25 | ; | |
26 | START K CMMZLFL,SF ILE,SFILE2 ,SFLEN | |
27 | D GETINDX | |
28 | I CMMZLFL="" D END Q | |
29 | D FTPGETF | |
30 | D FTPCHK | |
31 | D END | |
32 | Q | |
33 | ; | |
34 | RESTART ;C MMZLFL="RV 290403.TXT " | |
35 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S") | |
36 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S_EXCP_NOM ATSSN") | |
37 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S_EXCP_NON DE2") | |
38 | K ^CHMZHOLD( "MMX_RECOU P_REVERSAL S_EXCP_NOC LNM") | |
39 | K ^CHMZHOLD( "EXDATA_MM X_RECOUP_R EVERSALS") | |
40 | K CMMZRD,CMM ZRDLN,CMMZ CENT,CMMZI VAL,CMMZJV AL,CMMZKVA L,CMMZCLNM ,CMMZBAMT, CMMZECLM,C MMZCKML,CM MZNSCT,CMM ZNDCT,CMMZ NLCT,CMMZR PCT,CMMZN2 ,CMMZCHAR, CMMZRD | |
41 | K CMMZRDLN,C MMZLEN,CMM ZCLST,CMMZ REOP,LINE1 ,LINE2,X,M X,SX,CMMXC LMS,QFLAG, CMMZHCLM,C MMXNMAT,CM MZRCNT,CMM ZNAM,CMMZL FL,CL,Y,CH MMYY,CMMZA PAY,CMMZRN UM,SFILE,S FILE2,SFLE N | |
42 | D NOW^%DTC | |
43 | S CHDDMMYY=$ E(%,2,7),C LCNT=0 | |
44 | S (CMMZNSCT, CMMZNDCT,C MMZNLCT,CM MZRPCT,CMM ZRCNT)=0,C MMZCLST="" ,CMMZREOP= "" | |
45 | K CMMZLFL,SF ILE,SFILE2 ,SFLEN | |
46 | ; | |
47 | D LOADFL | |
48 | D CKDCREF | |
49 | ;D ^CHMXRP03 ;Jim's rev ersal and report rou tine | |
50 | D ^CHMXRP03 ; Jim's reve rsal and r eport rout ine | |
51 | ;D FTPSEND | |
52 | ;D FTPSCHK | |
53 | ;G START | |
54 | D END | |
55 | Q | |
56 | ; | |
57 | CKDCREF ;c hecks the ^CHMXRX("D ",EDI CLAI M ID,I,J,K ) cross re f RKN | |
58 | S CMMZECLM=0 | |
59 | CLMLOOP S CMMZECLM=$ O(^CHMZHOL D("EXDATA_ MMX_RECOUP _REVERSALS ",CMMZECLM )) Q:'CMMZ ECLM | |
60 | S CMMZBAMT=$ E(^CHMZHOL D("EXDATA_ MMX_RECOUP _REVERSALS ",CMMZECLM ),47,54) | |
61 | D STRIPIT | |
62 | S CMMZIVAL=0 | |
63 | CILOOP S CMMZIVAL=$ O(^CHMXRX( "D",CMMZEC LM,CMMZIVA L)) G:'CMM ZIVAL CLML OOP | |
64 | S CMMZJVAL=0 | |
65 | CJLOOP S CMMZJVAL=$ O(^CHMXRX( "D",CMMZEC LM,CMMZIVA L,CMMZJVAL )) G:'CMMZ JVAL CILOO P | |
66 | S CMMZKVAL=0 | |
67 | CKLOOP S CMMZKVAL=$ O(^CHMXRX( "D",CMMZEC LM,CMMZIVA L,CMMZJVAL ,CMMZKVAL) ) G:'CMMZK VAL CJLOOP | |
68 | K CMMZCLNM | |
69 | ;n ew code to validate bene ssn a gainst ben e file 08/ 26/2004 RK N | |
70 | K XSSN | |
71 | S XSSN=$E(^C HMZHOLD("E XDATA_MMX_ RECOUP_REV ERSALS",CM MZECLM),70 ,78) | |
72 | I $D(^CHMXRX (CMMZIVAL, 100,CMMZJV AL,100,CMM ZKVAL,0)) I '$D(^AHC HVA("G",XS SN)) D G CKLOOP | |
73 | .S ^CHMZHOLD ("MMX_RECO UP_REVERSA LS_EXCP_NO MATSSN",CM MZECLM)=CM MZIVAL_"^" _CMMZJVAL_ "^"_CMMZKV AL_"^"_CMM ZBAMT_"^"_ ^CHMZHOLD( "EXDATA_MM X_RECOUP_R EVERSALS", CMMZECLM) | |
74 | .S CMMZNSCT= CMMZNSCT+1 | |
75 | .K XSSN | |
76 | .Q | |
77 | ; | |
78 | I '$D(^CHMXR X(CMMZIVAL ,100,CMMZJ VAL,100,CM MZKVAL,2)) D G CKL OOP | |
79 | .S ^CHMZHOLD ("MMX_RECO UP_REVERSA LS_EXCP_NO NDE2",CMMZ ECLM)=CMMZ IVAL_"^"_C MMZJVAL_"^ "_CMMZKVAL _"^"_CMMZB AMT_"^"_^C HMZHOLD("E XDATA_MMX_ RECOUP_REV ERSALS",CM MZECLM) | |
80 | .S CMMZNDCT= CMMZNDCT+1 | |
81 | I $P(^CHMXRX (CMMZIVAL, 100,CMMZJV AL,100,CMM ZKVAL,2)," ^",1)<1 D G CKLOOP | |
82 | .S ^CHMZHOLD ("MMX_RECO UP_REVERSA LS_EXCP_NO CLNM",CMMZ ECLM)=CMMZ IVAL_"^"_C MMZJVAL_"^ "_CMMZKVAL _"^"_CMMZB AMT_"^"_^C HMZHOLD("E XDATA_MMX_ RECOUP_REV ERSALS",CM MZECLM) | |
83 | .S CMMZNLCT= CMMZNLCT+1 | |
84 | S CMMZCLNM=$ P(^CHMXRX( CMMZIVAL,1 00,CMMZJVA L,100,CMMZ KVAL,2),"^ ",1) | |
85 | ; | |
86 | CWRITIT S CMMZRPCT=C MMZRPCT+1, CMMZCLST=" ",CMMZREOP ="" D | |
87 | .K X1 | |
88 | .S X1=CMMZCL NM | |
89 | .I X1>" " D PROGTYP^CH FCD001 | |
90 | .S CMMZCLST= $P(@(GLPAY _"CMMZCLNM ,0)"),"^", 2),X=CMMZC LST | |
91 | .S X=$S(X=0: "0 Rejecte d",X=1:"1 Inprog",X= 2:"2 Payme nt reqstd" ,X=3:"3 EO B reqstd", X=4:"4 Com plete",X=5 :"5 Adjudi cated",X=6 :"6 Paymen t rej'd CA PPS",X=7:" 7 Admin su spense",X= 8:"8 Payme nt apprv'd CAPPS",X= 9:"9 Manua lly proc'd ",X=10:"10 Deleted", 1:"") | |
92 | .S CMMZCLST= X | |
93 | .I $D(@(GLPA Y_"CMMZCLN M,6)")) I $P(@(GLPAY _"CMMZCLNM ,6)"),"^", 1)'="" S C MMZREOP="1 YES" | |
94 | S CMMZAPAY=$ E(^CHMZHOL D("EXDATA_ MMX_RECOUP _REVERSALS ",CMMZECLM ),142,149) | |
95 | S CMMZRNUM=$ E(^CHMZHOL D("EXDATA_ MMX_RECOUP _REVERSALS ",CMMZECLM ),150,159) | |
96 | S LINE1=$E(^ CHMZHOLD(" EXDATA_MMX _RECOUP_RE VERSALS",C MMZECLM),1 22,141)_"^ "_CMMZCLST _"^"_CMMZR EOP | |
97 | S LINE2=CMMZ APAY_"^"_C MMZRNUM | |
98 | S ^CHMZHOLD( "MMX_RECOU P_REVERSAL S",CMMZCLN M)=CMMZIVA L_"^"_CMMZ JVAL_"^"_C MMZKVAL_"^ "_CMMZECLM _"^"_CMMZB AMT_"^"_^C HMZHOLD("E XDATA_MMX_ RECOUP_REV ERSALS",CM MZECLM)_"^ "_LINE1_"^ "_LINE2 | |
99 | S ^CHMZHOLD( "MMX_RECOU P_REVERSAL S",CMMZCLN M,"RAW")=$ P(^CHMZHOL D("EXDATA_ MMX_RECOUP _REVERSALS ",CMMZECLM ),"^",1) | |
100 | K X,LINE1,LI NE2 | |
101 | G CKLOOP | |
102 | Q | |
103 | ; | |
104 | GETINDX | |
105 | S X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MMX_ REV_GET_1_ FTP.COM /N AME=MMX_RE V_GET_1_FT P_JOB/NOPR INTER/USER =HACCACHEM GR") | |
106 | ; | |
107 | GETFNAM K RINDX,ZE,R NDXLN,CHFT PWT,QFLAG, CHFTPTIM | |
108 | H 10 | |
109 | S RINDX="HAC _HFS$:[KER MIT.REVERS AL]MMINDEX .DAT" | |
110 | C RINDX | |
111 | S $ZT="QTGET ^CHMXRP02" ,CMMZLFL=" " | |
112 | S $ZE="",QFL AG=0,CHFTP WT=$P(^CHM DIC(741002 .17,1,2)," ^",10),CHF TPWT=10 | |
113 | F CHFTPTIM=1 :1:CHFTPWT H 10 O R INDX:"R":1 0 D Q:(Q FLAG=1)!($ ZE["ENDOFF ILE") | |
114 | .I '$T C RIN DX Q | |
115 | .F U RINDX R RNDXLN D Q:(QFLA G=1)!($ZE[ "ENDOFFILE ") | |
116 | .. I ($E(RNDX LN,60,61)= "RV")!($E( RNDXLN,60, 61)="rv") S CMMZLFL= $E(RNDXLN, 60,71),QFL AG=1 Q | |
117 | QTGET C RINDX | |
118 | K RINDX,ZE,R NDXLN,CHFT PWT,QFLAG, CHFTPTIM | |
119 | Q | |
120 | ; | |
121 | FTPGETF ;W @IOF,!,"E nter file: " R CMMZL FL | |
122 | S X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MMX_ REV_FTP_DE LLOG.COM / NOPRINTER/ USER=HACCA CHEMGR") | |
123 | ;H 300 ;han g/wait 5 ( 300 second s) minutes | |
124 | H 3 ;hang/w ait 5 (300 seconds) minutes | |
125 | S X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MMX_ REV_GET_FT P.COM /NAM E=MMX_REV_ GET_FTP_JO B/NOPRINTE R/USER=HAC CACHEMGR/P ARAM="_CMM ZLFL) | |
126 | ;H 600 ;han g/wait 10 (600 secon ds) minute s | |
127 | H 6 ;hang/w ait 10 (60 0 seconds) minutes | |
128 | S ^CHMZHOLD( "MMX_RECOU P_REVERSAL S",0)=$E(C MMZLFL,3,8 ) | |
129 | Q | |
130 | ; | |
131 | FTPSEND S SFLEN=$L(C MMZLFL) | |
132 | S SFILE="RX" _$E(CMMZLF L,3,SFLEN) _" " | |
133 | S SFILE2=CMM ZLFL | |
134 | S CHFTPMSG=0 | |
135 | S X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MMX_ REV_FTP_DE LLOG.COM / NOPRINTER/ USER=HACCA CHEMGR") | |
136 | ;H 300 ;han g/wait 5 ( 300 second s) minutes | |
137 | H 3 ;hang/w ait 5 (300 seconds) minutes | |
138 | S X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MMX_ REV_SEND_F TP.COM /NA ME=MMX_REV _SEND_FTP_ JOB/NOPRIN TER/USER=H ACCACHEMGR /DATA=("_$ ZU(144,1,S FILE)_","_ $ZU(144,1, SFILE2)) | |
139 | ;H 600 ;han g/wait 10 (600 secon ds) minute s | |
140 | H 6 ;hang/w ait 10 (60 0 seconds) minutes | |
141 | S SFILE=$E(S FILE,1,12) | |
142 | Q | |
143 | ; | |
144 | LOADFL R "ENTER FUL L FILE NAM E W/EXT: " ,CMMZLFL | |
145 | S CMMZRD="HA C_HFS$:[KE RMIT.REVER SAL]"_CMMZ LFL ;LI VE | |
146 | C CMMZRD | |
147 | O CMMZRD:"R" :1 I '$T G END | |
148 | F U CMMZRD R CMMZRDLN Q:$E(CMMZ RDLN,1,8)= "XXXXXXXX" D | |
149 | MISMTCH .S CMMXCLMS= $E(CMMZRDL N,122,141) ,QFLAG=0,C MMZHCLM="" ,CMMXNMAT= "" | |
150 | .; 1.0 IS THE INITIAL V ERSION (HI PAA Ready LLC) Chang ed MX as g etting pie ce 1 and 2 now | |
151 | .; Added code to write out if no claim numb er and qui t out 7/31 /06 JPN | |
152 | .F MX=1,2 D Q:QFLAG=1 | |
153 | .. S CL=$P(CM MXCLMS,"/" ,MX) I CL= "" S CL=" " | |
154 | .. S:$E(CL,1, 3)="CHV" C L=$E(CL,4, $L(CL)) | |
155 | .. S:($E(CL,1 ,7)?2A5N) CL=$E(CL,1 ,7) | |
156 | .. I ($E(CL,1 ,7)'?2A5N) S CL=$P(C MMXCLMS,"/ ",2),CL=$E (CL,1,7) I CL="" S CL=" " | |
157 | .. K X1 | |
158 | .. S X1=0,X1= $O(^CHMIND EX("B",CL, X1)) | |
159 | .. I X1>" " D PROGTYP^C HFCD001 | |
160 | .. I X1="" S CMMZHCLM=" ",C MMXCLMS=CL ,CMMXNMAT= "*NoMat*" Q | |
161 | .. I $D(@(GLP AY_"""B"", CL)")) S Q FLAG=1,CMM ZHCLM=CL,C MMXCLMS=CL ,CMMXNMAT= " " | |
162 | .. I '$D(@(GL PAY_"""B"" ,CL)")) S CMMZHCLM=" ",C MMXCLMS=CL ,CMMXNMAT= "*NoMat*" | |
163 | .. Q | |
164 | .I $L(CMMZRD LN)="141" S CMMZRDLN =CMMZRDLN_ " " | |
165 | .S CMMZLEN=$ L(CMMZRDLN ) | |
166 | .I $E(CMMZRD LN,9,10)=" 18" S CMMZ CENT="1"_$ E(CMMZRDLN ,11,16) | |
167 | .I $E(CMMZRD LN,9,10)=" 19" S CMMZ CENT="2"_$ E(CMMZRDLN ,11,16) | |
168 | .I $E(CMMZRD LN,9,10)=" 20" S CMMZ CENT="3"_$ E(CMMZRDLN ,11,16) | |
169 | .S CMMZECLM= $E(CMMZRDL N,17,23)_C MMZCENT | |
170 | .S CMMZNAM=$ E(CMMZRDLN ,79,113) | |
171 | .S CMMZRCNT= CMMZRCNT+1 | |
172 | .S ^CHMZHOLD ("EXDATA_M MX_RECOUP_ REVERSALS" ,CMMZECLM) =CMMZRDLN_ "^"_CMMXCL MS_"^"_CMM ZHCLM_"^"_ CMMXNMAT_" ^"_CMMZLEN | |
173 | .Q | |
174 | C CMMZRD | |
175 | ;H 600 ;han g/wait 10 (600 secon ds) minute s | |
176 | H 6 ;hang/w ait 10 (60 0 seconds) minutes | |
177 | Q | |
178 | ; | |
179 | STRIPIT S CMMZN2="" | |
180 | F SX=1:1:$L( CMMZBAMT) D | |
181 | .S CMMZCHAR= $E(CMMZBAM T,SX) I (C MMZCHAR?1N )!(CMMZCHA R=".") S C MMZN2=CMMZ N2_CMMZCHA R | |
182 | S CMMZBAMT=C MMZN2 | |
183 | Q | |
184 | ; | |
185 | FTPCHK K CHFTPMSG,F MGDATE,RDG ,CHFTPTIM, CHFTPWT,ZE ,RDGLN1,CH NB,QFLAG | |
186 | D NOW^%DTC | |
187 | S CHFTPMSG=0 ,FMGDATE=$ E(%,1,7) | |
188 | S RDG="HAC_H FS$:[DSMMA NAG]MMX_RE V_GET_FTP_ JOB.LOG" | |
189 | C RDG | |
190 | S ZE="",QFLA G=0,CHFTPW T=$P(^CHMD IC(741002. 17,1,2),"^ ",10) | |
191 | ;F CHFTPTIM= 1:1:CHFTPW T H 60 O RDG:"R":10 D Q:(QF LAG=1) | |
192 | F CHFTPTIM=1 :1:CHFTPWT H 6 O RD G:"R":10 D Q:(QFLA G=1) | |
193 | .I '$T C RDG Q | |
194 | .F U RDG R RDGLN1 D Q:(QFLAG= 1)!($ZE["E NDOFFILE") | |
195 | .. I (RDGLN1[ "226 Trans fer comple te") S CHF TPMSG=1,QF LAG=1 Q | |
196 | .. I (RDGLN1[ "Charged C PU time:") S QFLAG=1 Q | |
197 | FTPERR C RDG | |
198 | S CHNB=2,ZML (CHNB)="", ZML(CHNB)= CMMZLFL,CH NB=CHNB+1, ZML(CHNB)= "",CHNB=CH NB+1 | |
199 | I (CHFTPMSG= 0) D | |
200 | .S ZML(CHNB) ="FTP UNSU CCESSFUL.. .Rev "_CMM ZLFL_" fil e FROM Med ical Matri x." | |
201 | .S CHNB=CHNB +1,ZML(CHN B)="CHFTPT IM = "_CHF TPTIM | |
202 | .S CHNB=CHNB +1,ZML(CHN B)="CHFTPW T = "_CHFT PWT | |
203 | .S CHNB=CHNB +1,ZML(CHN B)="CHFTPM SG = "_CHF TPMSG | |
204 | .S CHNB=CHNB +1,ZML(CHN B)="QFLAG = "_QFLAG | |
205 | .S CHNB=CHNB +1,ZML(CHN B)="$ZE = "_$ZE | |
206 | .S CHNB=CHNB +1,ZML(CHN B)="RDGLN1 = "_RDGLN 1 | |
207 | I (CHFTPMSG= 1) D | |
208 | .S ZML(CHNB) ="FTP succ essful...R ev "_CMMZL FL_" file FROM Medic al Matrix. " | |
209 | S XMDUZ=.5,X MY("274577 ")="",XMY( "246183")= "",XMY("24 88")="",XM Y(" PII ")="",XMY( "
|
|
210 | S XMTEXT="ZM L(" | |
211 | I (CHFTPMSG= 1) D | |
212 | .S XMSUB="SU CC Rev FT P from MMX .."_FMGDAT E | |
213 | I (CHFTPMSG= 0) D | |
214 | .S XMSUB="UN SUC Rev FT P from MMX .."_FMGDAT E | |
215 | D ^XMD | |
216 | K CHFTPMSG,F MGDATE,RDG ,CHFTPTIM, CHFTPWT,ZE ,RDGLN1,CH NB,QFLAG | |
217 | Q | |
218 | ; | |
219 | FTPSCHK K CHFTPMSG,F MGDATE,RDG ,CHFTPTIM, CHFTPWT,ZE ,RDGLN2,CH NB,QFLAG | |
220 | D NOW^%DTC | |
221 | S CHFTPMSG=0 ,FMGDATE=$ E(%,1,7) | |
222 | S RDG="HAC_H FS$:[DSMMA NAG]MMX_RE V_SEND_FTP _JOB.LOG" | |
223 | C RDG | |
224 | S ZE="",QFLA G=0,CHFTPW T=$P(^CHMD IC(741002. 17,1,2),"^ ",10) | |
225 | ;F CHFTPTIM= 1:1:CHFTPW T H 60 O RDG:"R":10 D Q:(QF LAG=1) | |
226 | F CHFTPTIM=1 :1:CHFTPWT H 6 O RD G:"R":10 D Q:(QFLA G=1) | |
227 | .I '$T C RDG Q | |
228 | .F U RDG R RDGLN2 D Q:(QFLAG= 1)!($ZE["E NDOFFILE") | |
229 | .. I (RDGLN2[ "226 Trans fer comple te") S CHF TPMSG=1,QF LAG=1 Q | |
230 | .. I (RDGLN2[ "Charged C PU time:") S QFLAG=1 Q | |
231 | FTPSERR C RDG | |
232 | S CHNB=2,ZML (CHNB)="", ZML(CHNB)= SFILE,CHNB =CHNB+1,ZM L(CHNB)="" ,CHNB=CHNB +1 | |
233 | I (CHFTPMSG= 0) D | |
234 | .S ZML(CHNB) ="FTP UNSU CCESSFUL.. .Rev "_SFI LE_" file TO Medical Matrix." | |
235 | .S CHNB=CHNB +1,ZML(CHN B)="CHFTPT IM = "_CHF TPTIM | |
236 | .S CHNB=CHNB +1,ZML(CHN B)="CHFTPW T = "_CHFT PWT | |
237 | .S CHNB=CHNB +1,ZML(CHN B)="CHFTPM SG = "_CHF TPMSG | |
238 | .S CHNB=CHNB +1,ZML(CHN B)="QFLAG = "_QFLAG | |
239 | .S CHNB=CHNB +1,ZML(CHN B)="$ZE = "_$ZE | |
240 | .S CHNB=CHNB +1,ZML(CHN B)="RDGLN2 = "_RDGLN 2 | |
241 | I (CHFTPMSG= 1) D | |
242 | .S ZML(CHNB) ="FTP succ essful...R ev "_SFILE _" file TO Medical M atrix." | |
243 | S XMDUZ=.5,X MY("274577 ")="",XMY( "246183")= "",XMY("24 88")="",XM Y(" PII ")="",XMY( "
|
|
244 | S XMTEXT="ZM L(" | |
245 | I (CHFTPMSG= 1) D | |
246 | .S XMSUB="SU CC Rev FT P to MMX.. "_FMGDATE | |
247 | I (CHFTPMSG= 0) D | |
248 | .S XMSUB="UN SUC Rev FT P to MMX.. "_FMGDATE | |
249 | D ^XMD | |
250 | K CHFTPMSG,F MGDATE,RDG ,CHFTPTIM, CHFTPWT,ZE ,RDGLN2,CH NB,QFLAG | |
251 | Q | |
252 | ; | |
253 | END I $D(CMMZRD) C CMMZRD | |
254 | I $D(RDG) C RDG | |
255 | I $D(RDS) C RDS | |
256 | K CMMZRD,CMM ZRDLN,CMMZ CENT,CMMZI VAL,CMMZJV AL,CMMZKVA L,CMMZCLNM ,CMMZBAMT, CMMZECLM,C MMZCKML,CM MZNSCT,CMM ZNDCT,CMMZ NLCT,CMMZR PCT,CMMZN2 ,CMMZCHAR, CMMZRD | |
257 | K CMMZRDLN,C MMZLEN,CMM ZCLST,CMMZ REOP,LINE1 ,LINE2,X,M X,SX,CMMXC LMS,QFLAG, CMMZHCLM,C MMXNMAT,CM MZRCNT,CMM ZNAM,CL,Y, CHMMY,CMMZ APAY | |
258 | K CMMZRNUM,S FILE,SFILE 2,SFLEN,CM MZLFL | |
259 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.