252. EPMO Open Source Coordination Office Redaction File Detail Report

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.

252.1 Files compared

# 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

252.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 514
Changed 2 4
Inserted 0 0
Removed 0 0

252.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

252.4 Active regular expressions

No regular expressions were active.

252.5 Comparison detail

  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( "
P II                   ")=""
  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( "
P II                   ")=""
  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