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

253.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXRP04.m Mon Nov 5 16:42:37 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXRP04.m Mon Nov 5 17:53:20 2018 UTC

253.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 274
Changed 2 8
Inserted 0 0
Removed 0 0

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

253.4 Active regular expressions

No regular expressions were active.

253.5 Comparison detail

  1   CHMXRP04         ;HAC /JLR;MMI R eversal Re port Gener ator;04/24 /00  8:39  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           ;; RECODED FO R ARCHIVED  CLAIMS LA BELS(VEN2, BEN3) 07/2 3/2004 RKN
  6           ;; CACHE TEST ED/PASSED  03/15/2006  RKN
  7           ;
  8           D  VENDOR
  9           D  VMAIL
  10           ;D  BENE
  11           ;D  BMAIL
  12   END     C  VFILE
  13           Q
  14           ;
  15   VENDOR  S  CHFY=0,GRT OT=0,TOTVN =0
  16            S  DIR="HAC_ HFS$:[KERM IT.REVERSA L]"
  17           S  VFILE=DIR_ "RX"_$E(CM MZLFL,3,8) _".TXT"
  18           O  VFILE:"NWS "
  19   VEN1    S  CHFY=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "VEND",CHF Y))
  20           ;I  'CHFY U V FILE W "To tal Recoup ment: ",TO TVN Q
  21           D  NOW^%DTC K  CHRPDT S  (CHRPDT)=$ E(%,1,7)
  22           I  $E(CHRPDT, 1,1)="1" S  CENDTE="1 8"
  23           I  $E(CHRPDT, 1,1)="2" S  CENDTE="1 9"
  24           I  $E(CHRPDT, 1,1)="3" S  CENDTE="2 0"
  25           I  'CHFY U VF ILE W "/// ////////// ///// [End  Of File -  Tot Recou pment = $" _GRTOT_" -  "_$E(CHRP DT,4,5)_"/ "_$E(CHRPD T,6,7)_"/" _CENDTE_$E (CHRPDT,2, 3)_"("_$E( %,9,14)_") ] //" Q
  26           ;
  27           S  OCPT=0,TOT VN=0
  28   VEN2    S  OCPT=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "VEND",CHF Y,OCPT))
  29           I  'OCPT S TO TVN(CHFY)= TOTVN G VE N1
  30           S  X1=OCPT
  31           I  X1>"" D PR OGTYP^CHFC D001
  32           G: '$D(@(GLPA Y_"OCPT,0) ")) VEN2
  33           S  OCLM=$P(@( GLPAY_"OCP T,0)"),"^" ,1)
  34           S  VAMT=$P(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "VEND",CHF Y,OCPT),"^ ",1)
  35           S  TOTVN=TOTV N+VAMT
  36           S  GRTOT=GRTO T+VAMT
  37           S  VAMT=$FN(V AMT,"",2)
  38           S  LEN=8 S VA L=VAMT D S PACE1 S VA MT=VAL
  39           D  DATA G:$D( QUITFG) VE N2
  40           S  REC=^CHMZH OLD("MMX_R ECOUP_REVE RSALS",OCP T,"RAW")_R EC2
  41           U  VFILE W RE C,!
  42           G  VEN2
  43   DATA    K  QUITFG
  44           I  '$D(@(GLPA Y_"OCPT,0) ")) S QUIT FG=1 Q
  45           S  VAL=$P(@(G LPAY_"OCPT ,0)"),"^", 1) S LEN=7  D SPACE2  S CLNUM=VA L
  46           S  VAL=$P(@(G LPAY_"OCPT ,0)"),"^", 10)
  47           S  YR=$$FMYR^ CHTFLIB(VA L)
  48           S  VAL=YR_$E( VAL,4,5)_$ E(VAL,6,7)
  49           S  LEN=8 D SP ACE2 S PDT =VAL
  50           S  VAL=""
  51           S: $D(@(GLPAY _"OCPT,1)" )) VAL=$P( @(GLPAY_"O CPT,1)")," ^",16)
  52           S  LEN=10 D S PACE2 S CH KNUM=VAL
  53           S  REC2=CLNUM _PDT_VAMT_ CHKNUM
  54           Q
  55   SPACE1  F  X=$L(VAL)+ 1:1:LEN S  VAL=" "_VA L
  56           Q
  57   SPACE2  F  X=$L(VAL)+ 1:1:LEN S  VAL=VAL_"  "
  58           Q
  59   VMAIL   K  ^UTILITY($ J,"MMX-REV "),CVRTDT
  60           S  CVRTDT=$E( CMMZLFL,1, 2)_$E(CMMZ LFL,5,6)_$ E(CMMZLFL, 3,4)_$E(CM MZLFL,7,8)
  61           S  %DT="P",X= $E(CVRTDT, 3,8) D ^%D T
  62           X  ^DD("DD")  S DATE=Y
  63           S  ^UTILITY($ J,"MMX-REV ",1,1,0)=" Total reco upment on  Medical Ma trix rever sals for " _DATE
  64           S  ^UTILITY($ J,"MMX-REV ",1,2,0)="  "
  65           S  CNT=3 S FY =0 D
  66   VM1     .S  FY=$O(TOT VN(FY)) Q: 'FY
  67           .S  AMT=TOTVN (FY)
  68           .S  ^UTILITY( $J,"MMX-RE V",1,CNT,0 )="Fiscal  Year "_FY_ ": "_"$ "_ AMT
  69           .S  CNT=CNT+1  G VM1
  70           S  CNT=CNT+1
  71           S  ^UTILITY($ J,"MMX-REV ",1,CNT,0) =" "
  72           S  CNT=CNT+1
  73           S  ^UTILITY($ J,"MMX-REV ",1,CNT,0) ="Please i nitiate ap propriate  recoupment  procedure s."
  74           S  XMDUZ=.5,X MSUB="Medi cal Matrix  Recoupmen t Notice"
  75           S  XMTEXT="^U TILITY($J, ""MMX-REV" ",1,"
  76           S  XMY("27457 7")="",XMY (" PII                   ")=""
  77           S  XMY("24618 3")="",XMY ("
P II                   ")=""
  78           S  U="^" D ^X MD
  79           Q
  80           ;
  81   BENE    K  ^UTILITY($ J,"MMX-REV -BENE")
  82           S  CHFY=0,TAM T=0,CCNT=0 ,BCNT=0,BA MT=0 D BHE AD
  83   BEN1    S  CHFY=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "BENE",CHF Y))
  84           Q: 'CHFY
  85           S  BSSN=""
  86   BEN2    S  BSSN=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "BENE",CHF Y,BSSN))
  87           G: BSSN="" BE N1
  88           S  BCNT=BCNT+ 1
  89           S  OCPT=0
  90   BEN3    S  OCPT=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "BENE",CHF Y,BSSN,OCP T))
  91           I  'OCPT D BT OT S BAMT= 0 G BEN2
  92           S  X1=OCPT
  93           I  X1>"" D PR OGTYP^CHFC D001
  94           S  VAL=BSSN S  LEN=9 D S PACE2 S BS SN=VAL
  95           G: '$D(@(GLPA Y_"OCPT,0) ")) BEN3
  96           S  OCLM=$P(@( GLPAY_"OCP T,0)"),"^" ,1)
  97           S  VAL=OCLM S  LEN=7 D S PACE2 S OC LM=VAL
  98           S  OREC=^CHMZ HOLD("MMX_ RECOUP_REV ERSALS","R EPORT","BE NE",CHFY,B SSN,OCPT)
  99           S  AMT=$P(ORE C,"^",1)
  100           S  TAMT=TAMT+ AMT
  101           S  BAMT=BAMT+ AMT
  102           S  VAL=AMT S  LEN=8 D SP ACE1 S AMT =VAL
  103           S  DATE=$P($P (OREC,"^", 2),".",1)
  104           S  Y=DATE X ^ DD("DD") S  DATE=Y
  105           S  VAL=DATE,L EN=11 D SP ACE2 S DAT E=VAL
  106           S  NAME=$P(OR EC,"^",3)
  107           S  VAL=NAME S  LEN=25 D  SPACE2 S N AME=VAL
  108           S  REC=BSSN_"   "_NAME_"   "_OCLM_"   "_AMT_"   "_DATE_"    "_CHFY
  109           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=REC
  110           S  CCNT=CCNT+ 1
  111           S  CNT=CNT+1
  112           G  BEN3
  113   BTOT    S  BAMT=$FN(B AMT,"",2)
  114           S  VAL=BAMT S  LEN=8 D S PACE1 S BA MT=VAL
  115           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="                                                    ------ --"
  116           S  CNT=CNT+1
  117           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="                                                    "_BAMT
  118           S  CNT=CNT+1
  119           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=" "
  120           S  CNT=CNT+1
  121           Q
  122   BHEAD   S  ^UTILITY($ J,"MMX-REV -BENE",1,1 ,0)="Benef iciary Rec oupment on  Medical M atrix Reve rsals for  "_DATE
  123           S  ^UTILITY($ J,"MMX-REV -BENE",1,2 ,0)="Pleas e initiate  appropria te recoupm ent proced ures."
  124           S  ^UTILITY($ J,"MMX-REV -BENE",1,3 ,0)="  "
  125           S  ^UTILITY($ J,"MMX-REV -BENE",1,4 ,0)="Bene  SSN   Bene  Name                    Claim     Rcp Amt    Date Pai d     FY"
  126           S  ^UTILITY($ J,"MMX-REV -BENE",1,5 ,0)="_____ ____  ____ __________ __________ _  _______   ________   ________ ____  ____ "
  127           S  CNT=6
  128           Q
  129   BMAIL   S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=" "
  130           S  CNT=CNT+1
  131           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="Tot al Recoupm ent Amount : "_TAMT
  132           S  CNT=CNT+1
  133           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="Tot al Number  of Benes:  "_BCNT
  134           S  CNT=CNT+1
  135           S  ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="Tot al Number  of Claims:  "_CCNT
  136           S  XMDUZ=.5,X MSUB="Medi cal Matrix  Beneficia ry Recoupm ent Report "
  137           S  XMTEXT="^U TILITY($J, ""MMX-REV- BENE"",1,"
  138           S  XMY("27457 7")="",XMY (" PII                   ")=""
  139           S  XMY("24618 3")="",XMY ("
P II                   ")=""
  140           S  U="^" D ^X MD
  141           Q