Produced by Araxis Merge on 8/2/2017 2:39:13 PM Eastern Daylight 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 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US30 SDD.docx | Wed Jun 21 15:29:38 2017 UTC |
| 2 | OSCIF_MCCF EDI TAS_ PRCA_4.5_318_July_2017.zip | MCCF EDI TAS US30 SDD.docx | Tue Aug 1 20:39:30 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 676 |
| Changed | 1 | 3 |
| Inserted | 0 | 0 |
| Removed | 1 | 10 |
| 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 | MCCF EDI T AS US30 | ||
| 2 | System Des ign Docume nt | ||
| 3 | PRCA*4.5*X XX | ||
| 4 | |||
| 5 | |||
| 6 | |||
| 7 | |||
| 8 | Department of Vetera ns Affairs | ||
| 9 | December 2 016 | ||
| 10 | Version 1 | ||
| 11 | User Story Number: U S30 (USPY- 07) | ||
| 12 | User Story Name: ERA s and EFTs must bala nce, in or der to aut o-post (B acklog ID# 113, Row 9 2) | ||
| 13 | |||
| 14 | Background | ||
| 15 | As a user, I need th e sum of a ll payment s to equal the total of the ER A and for the ERA/EF T totals t o balance before the system co mpletes th e auto pos ting proce ss. When t he transac tions do n ot balance due to mi ssing line items or unbalanced ERAs, an out of bal ance occur s within V istA/FMS r equiring m anual step s to corre ct or in s ome cases entering a ticket wi th VistA P roduct Sup port for a ssistance. If an ERA /EFT does not balanc e, it shou ld not be considered an auto p ost candid ate and th e software should no t complete auto post ing. The E RA should appear on the workli st with an indicator that the ERA does n ot balance so as a u ser, I’m a lerted to the out of balance i ssue and i t can be r esolved an d posted m anually. I n case of transmissi on error, the missin g line ite ms may be retransmit ted to Vis tA, in whi ch case, I want Vist A to reeva luate duri ng the nig htly job f or potenti al auto po sting. | ||
| 16 | ERAs and E FTs must b alance, in order to auto-post -- EEOB li nes must b alance to ERA total - ERA must balance t o EFT. If an ERA is truncated or the li ne item pa yments do not balanc e to the a ttached EF T, ERA/EFT are not e ligible to auto-post and manua l posting will resum e. VistA auto-posti ng routine needs to reject any ERA/EFT o ut of bala nce, to en sure the i ntegrity o f VistA's accounts r eceivable files. | ||
| 17 | Conversati on | ||
| 18 | Nightly pr ocess need s to rejec t the ERA from the a uto-post q ueue if th e ERA line items do not balanc e and ERA and EFT to tals do no t match. | ||
| 19 | |||
| 20 | ERA Workli st | ||
| 21 | New behavi or when se lecting ER A WORKLIST option. | ||
| 22 | When displ aying the ERA Workli st and sel ecting an ERA-EFT ma tch status filter of either ‘N OT MATCHED ’ or ‘BOTH ’, any unm atched ERA s that are also unba lanced wil l have the text ‘- U NBALANCED’ appended to EFT MAT CH Status value disp layed in t he worklis t for the ERA. | ||
| 23 | Select EDI Lockbox O ption: WL ERA Workl ist | ||
| 24 | |||
| 25 | DO YOU WAN T A (L)IST OF ERAs O R A (S)PEC IFIC ONE?: LIST// | ||
| 26 | |||
| 27 | LIMIT THE SELECTION TO A DATE RANGE WHEN THE ERA W AS RECEIVE D?: NO// | ||
| 28 | |||
| 29 | Select par ameters fo r displayi ng the lis t of ERAs | ||
| 30 | |||
| 31 | ERA POSTIN G STATUS: (U)NPOSTED , (P)OSTED , OR (B)OT H: U// NPO STED | ||
| 32 | |||
| 33 | DISPLAY (A )UTO-POSTI NG, (N)ON AUTO-POSTI NG, OR (B) OTH: B// O TH | ||
| 34 | |||
| 35 | ERA-EFT MA TCH STATUS : (N)OT MA TCHED, (M) ATCHED, OR (B)OTH: B // NOT MAT CHED | ||
| 36 | |||
| 37 | (M)EDICAL, (P)HARMAC Y, OR (B)O TH: B// OT H | ||
| 38 | |||
| 39 | (A)LL PAYE RS, (R)ANG E OF PAYER NAMES: A/ / LL | ||
| 40 | |||
| 41 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | ||
| 42 | |||
| 43 | The user i s presente d with the ERA Workl ist | ||
| 44 | When the E RA Worklis t is displ ayed, the header wil l contain all of the selected Sorting/fi ltering op tion value s as befor e. This i s current functional ity. | ||
| 45 | ERA List - Worklist Oct 05, 20 16@11:38:2 9 Page: 1 of 1 | ||
| 46 | SELECTED M ATCH STATU S: NOT MAT CHED POST STAT US : U NPOSTED | ||
| 47 | DATE RANG E: NONE SE LECTED AUTO-POST ING : B OTH | ||
| 48 | ALL PAYERS PHARMACY/ MEDICAL: B OTH | ||
| 49 | # ER A # Trace # | ||
| 50 | PAYER NA ME/MATCH S TATUS ERA PA ID DT TOT AMT PAID DT REC'D | ||
| 51 | 1 1 12345 | ||
| 52 | 10/29/02 20.00 10/29/02 | ||
| 53 | AN INSUR ANCE COMPA NY NAME APPROX # EEOBs: 1 | ||
| 54 | UNMATCHE D - UNBALA NCED EFT RE CEIPT STAT US: NOT EN TERED | ||
| 55 | |||
| 56 | 2 90 ABCDE | ||
| 57 | 10/26/04 10.00 10/26/04 | ||
| 58 | NM APPROX # EEOBs: 1 | ||
| 59 | UNMATCHE D N/A | ||
| 60 | |||
| 61 | |||
| 62 | |'-' No sc ratch pad| 'x' EXC |' A' autopos t complete | ||
| 63 | Select ERA View/Print ERA EXIT | ||
| 64 | Sort L ist Change Vie w | ||
| 65 | Select Act ion: Quit/ / | ||
| 66 | |||
| 67 | |||
| 68 | Data field s needed: | ||
| 69 | EFT total [TOTAL DEP OSIT AMOUN T (#344.3, .08)] | ||
| 70 | ERA total [TOTAL AMO UNT PAID f ield (#344 .4, .05)] | ||
| 71 | How to fin d the EFT total star ting at th e ELECTRON IC REMITTA NCE ADVICE file (#34 4.4):The E LECTRONIC REMITTANCE ADVICE fi le (#344.4 ) uses the RECEIPT f ield (#344 ,.4,.08) t o point to the AR BA TCH PAYMEN T file (#3 44). The AR BATCH P AYMENT fil e (#344) u ses EFT RE CORD field (#344,.17 ) to point to EDI TH IRD PARTY EFT DETAIL (#344.31) . The EDI THIRD PAR TY EFT DET AIL file ( #344.31) u ses EFT TR ANSACTION field (#34 4.31,.01) to point t o EDI LOCK BOX DEPOSI T file (#3 44.3). | ||
| 72 | |||
| 73 | |||
| 74 | |||
| 75 | Resoluti on – Added Changed O bjects | ||
| 76 | |||
| 77 | Routines | ||
| 78 | Activities | ||
| 79 | Routine Na me | ||
| 80 | RCDPEWL7 | ||
| 81 | Enhancemen t Category | ||
| 82 | New | ||
| 83 | Modify | ||
| 84 | Delete | ||
| 85 | No Change | ||
| 86 | RTM | ||
| 87 | |||
| 88 | Related Op tions | ||
| 89 | |||
| 90 | |||
| 91 | Related Ro utines | ||
| 92 | Routines “ Called By” | ||
| 93 | Routines “ Called” | ||
| 94 | |||
| 95 | RCDPEWL | ||
| 96 | RCDPEWL8 | ||
| 97 | RCDPEWLP | ||
| 98 | |||
| 99 | RCDPEWL@DI SP | ||
| 100 | RCDPEWL0@F ILTER | ||
| 101 | RCDPEWL0@P RERA | ||
| 102 | RCDPEWL8@H ASADJ | ||
| 103 | RCDPEWL8@S ELBAT | ||
| 104 | RCDPEWL8@C TEEOB | ||
| 105 | RCDPEWLP@A GEDEFTS | ||
| 106 | RCDPEWLP@P HARM | ||
| 107 | RCDPEWLP@X CEPT | ||
| 108 | RCDPEWLP@E XCDENY | ||
| 109 | RCDPUREC@F MSSTAT | ||
| 110 | |||
| 111 | |||
| 112 | |||
| 113 | Current Lo gic | ||
| 114 | . | ||
| 115 | . | ||
| 116 | . | ||
| 117 | EXTRACT(RC SRT1,RCSRT 2,RCT) ; E xtract the data | ||
| 118 | ; RCSRT1 = data val ue at 1st sort level | ||
| 119 | ; RCSRT2 = data val ue at 2nd sort level | ||
| 120 | ; RCT = r unning ent ry counter - returne d if passe d by ref | ||
| 121 | N AUTOCOM P,FIRST,RC 0,RCEFT,RC EXCEP,RCPO ST,RCSTAT, RCZ,X,Z,Z0 | ||
| 122 | S RCZ=0 F S RCZ=$O (^TMP($J," RCERA_LIST ",RCSRT1,R CSRT2,RCZ) ) Q:'RCZ D | ||
| 123 | . S RCT=R CT+1,RC0=$ G(^RCY(344 .4,RCZ,0)) | ||
| 124 | . S RCEFT =+$O(^RCY( 344.31,"AE RA",RCZ,0) ) | ||
| 125 | . S RCEXC EP=$$XCEPT ^RCDPEWLP( RCZ) ; pr ca*4.5*298 assignme nt of ERA exception flag | ||
| 126 | . S AUTOC OMP=$S($P( $G(^RCY(34 4.4,RCZ,4) ),U,2)=2:" A",1:"") ;prca*4.5 *298 AUTO -POSTED CO MPLETE ind icator ("A ") | ||
| 127 | . S RCSTA T=$S('RCEF T:U_$S($P( RC0,U,15)= "CHK":"(CH ECK PAYMEN T EXPECTED )",$P(RC0, U,15)="NON ":"(NO PAY MENT EXPEC TED)",$P(R C0,U,9)=2: "(CHECK PA YMENT CHOS EN)",1:"N/ A"),1:$$FM SSTAT^RCDP UREC(+$P($ G(^RCY(344 .31,RCEFT, 0)),U,9))) | ||
| 128 | . S RCPOS T=$S(RCEFT :"EFT RECE IPT STATUS : ",1:"")_ $P(RCSTAT, U,2) | ||
| 129 | . ;prca*4 .5*298 inc lude Auto- Post Compl ete indica tor and ER A exceptio n flag in $SELECT st atement | ||
| 130 | . S X=$E( RCT_$J("", 5),1,5)_" "_$S(RCEX CEP]"":RCE XCEP,AUTOC OMP]"":AUT OCOMP,$D(^ RCY(344.49 ,RCZ)):" " ,1:"-")_$E ($P(RC0,U) _$J("",10) ,1,10)_" "_$E($P(RC 0,U,2)_$J( "",50),1,5 0) | ||
| 131 | . D SET(X ,RCT,RCZ) | ||
| 132 | . S X=$J( "",40)_$J( $$FMTE^XLF DT($P(RC0, U,7),"2D") ,8)_$J("", 5)_$J(+$P( RC0,U,5),1 2,2) | ||
| 133 | . S $E(X, 73,80)=$$F MTE^XLFDT( $P(RC0,U,7 ),"2D") | ||
| 134 | . D SET(X ,RCT,RCZ) | ||
| 135 | . S X=$J( "",12)_$E( $P(RC0,U,6 )_$J("",30 ),1,30)_" APPROX # EEOBs: "_+ $$CTEEOB^R CDPEWLB(RC Z) | ||
| 136 | . D SET(X ,RCT,RCZ) | ||
| 137 | . S X=$J( "",12)_$E( $$EXTERNAL ^DILFD(344 .4,.09,"", $P(RC0,U,9 ))_$J("",3 0),1,30)_" "_RCPOST | ||
| 138 | . D SET(X ,RCT) | ||
| 139 | . D SET(" ",RCT) | ||
| 140 | ;.; prca* 4.5*298 p er patch r equirement s, keep co de related to | ||
| 141 | ;. ; crea ting/maint aining bat ches but j ust remove from exec ution. | ||
| 142 | ;. ;I $G( ^TMP("RCER A_PARAMS", $J,"BATCHO N")) D | ||
| 143 | ;.. ;S Z= 0 F S Z=$ O(^RCY(344 .49,RCZ,3, Z)) Q:'Z S Z0=$G(^( Z,0)) I Z0 '="" D | ||
| 144 | ;...; S X =$J("",12) _$E("- BAT CH #"_$P(Z 0,U)_$J("" ,4),1,13)_ " "_$E($P( Z0,U,2)_$J ("",30),1, 30)_" "_$ S('$P(Z0,U ,3):"NOT " ,1:"")_"RE ADY TO POS T" | ||
| 145 | ;... ;D S ET(X,RCT) | ||
| 146 | ; | ||
| 147 | S VALMSG= "|'-' No s cratchpad| 'x' EXC |' A' autopos t complete " | ||
| 148 | ; | ||
| 149 | Q | ||
| 150 | ; | ||
| 151 | . | ||
| 152 | . | ||
| 153 | . | ||
| 154 | |||
| 155 | Modified L ogic (Chan ges are in bold) | ||
| 156 | . | ||
| 157 | . | ||
| 158 | . | ||
| 159 | EXTRACT(RC SRT1,RCSRT 2,RCT) ; E xtract the data | ||
| 160 | ; RCSRT1 = data val ue at 1st sort level | ||
| 161 | ; RCSRT2 = data val ue at 2nd sort level | ||
| 162 | ; RCT = r unning ent ry counter - returne d if passe d by ref | ||
| 163 | N AUTOCOM P,FIRST,RC 0,RCEFT,RC EXCEP,RCPO ST,RCSTAT, RCZ,X,XX,Z ,Z0 ;PRCA* 4.5*318 Va riable XX added | ||
| 164 | S RCZ=0 F S RCZ=$O (^TMP($J," RCERA_LIST ",RCSRT1,R CSRT2,RCZ) ) Q:'RCZ D | ||
| 165 | . S RCT=R CT+1,RC0=$ G(^RCY(344 .4,RCZ,0)) | ||
| 166 | . S RCEFT =+$O(^RCY( 344.31,"AE RA",RCZ,0) ) | ||
| 167 | . S RCEXC EP=$$XCEPT ^RCDPEWLP( RCZ) ; pr ca*4.5*298 assignme nt of ERA exception flag | ||
| 168 | . S AUTOC OMP=$S($P( $G(^RCY(34 4.4,RCZ,4) ),U,2)=2:" A",1:"") ;prca*4.5 *298 AUTO -POSTED CO MPLETE ind icator ("A ") | ||
| 169 | . S RCSTA T=$S('RCEF T:U_$S($P( RC0,U,15)= "CHK":"(CH ECK PAYMEN T EXPECTED )",$P(RC0, U,15)="NON ":"(NO PAY MENT EXPEC TED)",$P(R C0,U,9)=2: "(CHECK PA YMENT CHOS EN)",1:"N/ A"),1:$$FM SSTAT^RCDP UREC(+$P($ G(^RCY(344 .31,RCEFT, 0)),U,9))) | ||
| 170 | . S RCPOS T=$S(RCEFT :"EFT RECE IPT STATUS : ",1:"")_ $P(RCSTAT, U,2) | ||
| 171 | . ;prca*4 .5*298 inc lude Auto- Post Compl ete indica tor and ER A exceptio n flag in $SELECT st atement | ||
| 172 | . S X=$E( RCT_$J("", 5),1,5)_" "_$S(RCEX CEP]"":RCE XCEP,AUTOC OMP]"":AUT OCOMP,$D(^ RCY(344.49 ,RCZ)):" " ,1:"-")_$E ($P(RC0,U) _$J("",10) ,1,10)_" "_$E($P(RC 0,U,2)_$J( "",50),1,5 0) | ||
| 173 | . D SET(X ,RCT,RCZ) | ||
| 174 | . S X=$J( "",40)_$J( $$FMTE^XLF DT($P(RC0, U,7),"2D") ,8)_$J("", 5)_$J(+$P( RC0,U,5),1 2,2) | ||
| 175 | . S $E(X, 73,80)=$$F MTE^XLFDT( $P(RC0,U,7 ),"2D") | ||
| 176 | . D SET(X ,RCT,RCZ) | ||
| 177 | . S X=$J( "",12)_$E( $P(RC0,U,6 )_$J("",30 ),1,30)_" APPROX # EEOBs: "_+ $$CTEEOB^R CDPEWLB(RC Z) | ||
| 178 | . D SET(X ,RCT,RCZ) | ||
| 179 | . S XX=$E ($$EXTERNA L^DILFD(34 4.4,.09,"" ,$P(RC0,U, 9)) | ||
| 180 | . S:$$UNB AL^RCDPEAP 1(RCZ) XX= XX_” – UNB ALANCED” ; PRCA*4.5*3 18 added l ine | ||
| 181 | . S X=$J( "",12)_$E( XX_$J("",3 0),1,30)_" "_RCPOST ;PRCA*4.5 *318 modif ied line | ||
| 182 | |||
| 183 | . D SET(X ,RCT) | ||
| 184 | . D SET(" ",RCT) | ||
| 185 | ;.; prca* 4.5*298 p er patch r equirement s, keep co de related to | ||
| 186 | ;. ; crea ting/maint aining bat ches but j ust remove from exec ution. | ||
| 187 | ;. ;I $G( ^TMP("RCER A_PARAMS", $J,"BATCHO N")) D | ||
| 188 | ;.. ;S Z= 0 F S Z=$ O(^RCY(344 .49,RCZ,3, Z)) Q:'Z S Z0=$G(^( Z,0)) I Z0 '="" D | ||
| 189 | ;...; S X =$J("",12) _$E("- BAT CH #"_$P(Z 0,U)_$J("" ,4),1,13)_ " "_$E($P( Z0,U,2)_$J ("",30),1, 30)_" "_$ S('$P(Z0,U ,3):"NOT " ,1:"")_"RE ADY TO POS T" | ||
| 190 | ;... ;D S ET(X,RCT) | ||
| 191 | ; | ||
| 192 | S VALMSG= "|'-' No s cratchpad| 'x' EXC |' A' autopos t complete " | ||
| 193 | ; | ||
| 194 | Q | ||
| 195 | ; | ||
| 196 | . | ||
| 197 | . | ||
| 198 | . | ||
| 199 | |||
| 200 | |||
| 201 | Routines | ||
| 202 | Activities | ||
| 203 | Routine Na me | ||
| 204 | RCDPEAP | ||
| 205 | Enhancemen t Category | ||
| 206 | New | ||
| 207 | Modify | ||
| 208 | Delete | ||
| 209 | No Change | ||
| 210 | RTM | ||
| 211 | |||
| 212 | Related Op tions | ||
| 213 | |||
| 214 | Routines | ||
| 215 | Activities | ||
| 216 | Data Dicti onary (DD) Reference s | ||
| 217 | |||
| 218 | Related Pr otocols | ||
| 219 | |||
| 220 | Related In tegration Control Re gistration s (ICRs) | ||
| 221 | |||
| 222 | Data Passi ng | ||
| 223 | Input | ||
| 224 | Output Re ference | ||
| 225 | Both | ||
| 226 | Global Re ference | ||
| 227 | Local | ||
| 228 | Input Attr ibute Name and Defin ition | ||
| 229 | Name: | ||
| 230 | Definition : | ||
| 231 | Output Att ribute Nam e and Defi nition | ||
| 232 | Name: | ||
| 233 | Definition : | ||
| 234 | |||
| 235 | |||
| 236 | Related Ro utines | ||
| 237 | Routines “ Called By” | ||
| 238 | Routines “ Called” | ||
| 239 | |||
| 240 | RCDPEAA2 | ||
| 241 | RCDPEAD | ||
| 242 | RCDPEAP1 | ||
| 243 | RCDPEEM0 | ||
| 244 | |||
| 245 | RCDPDPLU@L OCKDEP | ||
| 246 | RCDPEAP1@R CDET | ||
| 247 | RCDPEAP1@R EJDT | ||
| 248 | RCDPEM@RCP TDET | ||
| 249 | RCDPEMA@BL DRCPT | ||
| 250 | RCDPEMA@RC PTDET | ||
| 251 | RCDPEWL@AD DREC | ||
| 252 | RCDPEWLA@A DDLINES | ||
| 253 | RCDPRPLU@L OCKREC | ||
| 254 | RCDPURE1@P ROCESS | ||
| 255 | RCDPUREC@B LDRCPT | ||
| 256 | RCDPUREC@F MSTAT | ||
| 257 | RCDPUREC@P ENDPAY | ||
| 258 | |||
| 259 | |||
| 260 | |||
| 261 | Current Lo gic | ||
| 262 | . | ||
| 263 | . | ||
| 264 | . | ||
| 265 | ; ; Proce ss ERAAUTO POST(RCEFT DA,RCERA) ; ; RCEFT DA = ien o f file #34 4.31 ; RCE RA = ien o f file #34 4.4 ; ;Loc k ERA L +^ RCY(344.4, RCERA):5 Q :'$T ; ;Bu ild Scratc hpad and V erify Line s N ALLOK, RCRCPTDA,R CSCR,RCTRD A,RCERR,RC LINES,ZERO BAL K ^TMP ($J,"RCDPE WLA") S RC SCR=$$SCRP AD(RCERA) ; Re-set A UTO-POST S TATUS if u nable to c reate scra tchpad I ' RCSCR D SE TSTA(RCERA ,"@","Auto Posting: Removed fr om Auto Po sting-Unab le to crea te scratch pad") G AU TOQ ; ; ER A cannot b e autopost ed; remove any pre-e xisting va lue to the AUTO-POST STATUS so ERA can b e processe d manually in the Wo rklist I $ D(^TMP($J, "RCDPEWLA" ,"ERA LEVE L ADJUSTME NT EXISTS" )) D SETST A(RCERA,"@ ","Auto Po sting: Rem oved from Auto Posti ng-ERA lev el Adjustm ent(s)") G AUTOQ ; ; Check if a ll lines c an be post ed S ALLOK =$$ALLOK(R CERA,RCSCR ,.ZEROBAL, .RCLINES) ; ;If $$AL LOK post e ntire ERA and reset AUTO-POST STATUS = C OMPLETE I ALLOK D PO STALL(RCER A) ; ; If 'ALLOK and 'ZEROBAL( matching p ostive/neg ative pair s to not b alance out to zero), then ERA needs to g o to the s tandard wo rklist for manual re ceipt proc essing I ' ALLOK,'ZER OBAL D SET STA(RCERA, "@","Auto Posting: R emoved fro m Auto Pos ting-+/- p airs do no t balance" ) G AUTOQ ; ;If 'ALL OK and som e of the l ines passe d validati on then po st receipt to summar y ERA and set AUTO-P OST STATUS = PARTIAL ;Un-poste d lines fa ll to APAR list for processing . I 'ALLOK D POSTERA (RCERA,.RC LINES) ;Un lock ERAAU TOQ D UNLO CKE Q ; | ||
| 266 | . | ||
| 267 | . | ||
| 268 | . | ||
| 269 | |||
| 270 | Modified L ogic (Chan ges are in bold) | ||
| 271 | ; ; Proce ss ERAAUTO POST(RCEFT DA,RCERA) ; ; RCEFT DA = ien o f file #34 4.31 ; RCE RA = ien o f file #34 4.4 ; ;Loc k ERA L +^ RCY(344.4, RCERA):5 Q :'$T ; ;Bu ild Scratc hpad and V erify Line s N ALLOK, RCERR,RCLI NES,RCRCPT DA,RCSCR,R CTRDA,ZERO BAL ; PRCA *4.5*318 V ariables p laced in a lpha order | ||
| 272 | K ^TMP($J ,"RCDPEWLA ") S RCSCR =$$SCRPAD( RCERA) ; R e-set AUTO -POST STAT US if unab le to crea te scratch pad I 'RCS CR D SETST A(RCERA,"@ ","Auto Po sting: Rem oved from Auto Posti ng-Unable to create scratchpad ") G AUTOQ ; ; ERA c annot be a utoposted; remove an y pre-exis ting value to the AU TO-POST ST ATUS so ER A can be p rocessed m anually in the Workl ist I $D(^ TMP($J,"RC DPEWLA","E RA LEVEL A DJUSTMENT EXISTS")) D SETSTA(R CERA,"@"," Auto Posti ng: Remove d from Aut o Posting- ERA level Adjustment (s)") G AU TOQ | ||
| 273 | ; | ||
| 274 | ; ERA tot al ‘= EFT total – ER A is unbal anced, do not auto-p ost | ||
| 275 | I $$UNBAL ^RCDPEAP1( ERA) D UNL OCKE Q ; PRCA*4.5*3 18 Added l ine | ||
| 276 | ; | ||
| 277 | ; confirm all lines equal ERA total ;Ch eck if all lines can be posted S ALLOK =$$ALLOK(R CERA,RCSCR ,.ZEROBAL, .RCLINES) ; ;If $$AL LOK post e ntire ERA and reset AUTO-POST STATUS = C OMPLETE I ALLOK D PO STALL(RCER A) ; ; If 'ALLOK and 'ZEROBAL( matching p ostive/neg ative pair s to not b alance out to zero), then ERA needs to g o to the s tandard wo rklist for manual re ceipt proc essing I ' ALLOK,'ZER OBAL D SET STA(RCERA, "@","Auto Posting: R emoved fro m Auto Pos ting-+/- p airs do no t balance" ) G AUTOQ ; ;If 'ALL OK and som e of the l ines passe d validati on then po st receipt to summar y ERA and set AUTO-P OST STATUS = PARTIAL ;Un-poste d lines fa ll to APAR list for processing . I 'ALLOK D POSTERA (RCERA,.RC LINES) ;Un lock ERAAU TOQ D UNLO CKE Q ; | ||
| 278 | . | ||
| 279 | . | ||
| 280 | . | ||
| 281 | |||
| 282 | Routines | ||
| 283 | Activities | ||
| 284 | Routine Na me | ||
| 285 | RCDPEAP1 | ||
| 286 | Enhancemen t Category | ||
| 287 | New | ||
| 288 | Modify | ||
| 289 | Delete | ||
| 290 | No Change | ||
| 291 | RTM | ||
| 292 | |||
| 293 | Related Op tions | ||
| 294 | PRCA NIGHT LY PROCESS | ||
| 295 | |||
| 296 | Related Ro utines | ||
| 297 | Routines “ Called By” | ||
| 298 | Routines “ Called” | ||
| 299 | |||
| 300 | RCDPEAD | ||
| 301 | RCDPEAP | ||
| 302 | RCDPEAPP | ||
| 303 | RCDPEM0 | ||
| 304 | RCDPEM2 | ||
| 305 | RCDPEWL8 | ||
| 306 | RCDPEWL7 | ||
| 307 | $$CHECKPAY ^RCDPEAP | ||
| 308 | $$SCRPAD^R CDPEAP | ||
| 309 | CLEAR^RCDP EAP | ||
| 310 | |||
| 311 | |||
| 312 | Current Lo gic | ||
| 313 | |||
| 314 | N/A | ||
| 315 | |||
| 316 | |||
| 317 | |||
| 318 | Modified L ogic (Chan ges are in bold) | ||
| 319 | UNBAL(RCER A) ; PRCA* 4.5*318 ad ded method | ||
| 320 | ; Determ ine if the ERA total matches t he EFT tot al for the selected ERA | ||
| 321 | ; Input: RCERA - Intern al IEN of the select ed ERA | ||
| 322 | ; Return s: 1 - ERA is unbala nced, 0 ot herwise | ||
| 323 | N RCLTOT ,RCSUB,RCT OT | ||
| 324 | ;ERA total balance - on matche d ERAs the ERA total balance i s the same as the EFT total | ||
| 325 | S RCTOT= +$$GET1^DI Q(344.4,RC ERA_",",.0 5) | ||
| 326 | ;Sum of ERA claim line payme nts | ||
| 327 | S RCSUB= 0,RCLTOT=0 | ||
| 328 | F S RCS UB=$O(^RCY (344.4,RCE RA,1,RCSUB )) Q:'RCSU B D | ||
| 329 | . S RCLT OT=RCLTOT+ $$GET1^DIQ (344.41,RC SUB_","_RC ERA_",",.0 3) | ||
| 330 | ;Plus su m of ERA a djustment lines | ||
| 331 | S RCSUB= 0 | ||
| 332 | F S RCS UB=$O(^RCY (344.4,RCE RA,2,RCSUB )) Q:'RCSU B D | ||
| 333 | . S RCLT OT=RCLTOT+ $$GET1^DIQ (344.42,RC SUB_","_RC ERA_",",.0 3) | ||
| 334 | ;Return 1 if total of ERA li nes does n ot match E FT | ||
| 335 | Q $S(RCT OT=RCLTOT: 0,1:1) | ||
| 336 | |||
| 337 | |||
| 338 | |||
| 339 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.