Produced by Araxis Merge on 10/23/2018 6:40:28 AM Central 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 | docs | TAS ePay US756 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US756 SDD - Copy.doc | Mon Oct 22 16:32:16 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 756 |
| Changed | 0 | 0 |
| 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 | MCCF EDI T AS US756 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*X XX | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | October 20 17 | |
| 7 | Version 1 | |
| 8 | User Story ID: US756 | |
| 9 | User Story Name: Ne ed the abi lity to vi ew all ERA verify li ne informa tion on EE OBs | |
| 10 | Sizing: 5 | |
| 11 | Epic Taxon omy eBiz C ompliance Port Updat e Incre ase No Tou ch TAS Ap psStory | |
| 12 | As a...I w ant to...S o that...e Payments u serI want to add the ‘Verify’ functional ity to the ERA Workl ist>ERA Wo rklist/Scr atchpad fo r autopost ed ERAs to allow rep orting of both verif ied and un verified d iscrepanci es. In ad dition, re move Provi der Level Adjustment (PLB) lin es from th e Verify D iscrepanci es Report (existing bug).I can resolve v erificatio n discrepa ncies on a utoposted ERAsConver sation (if desired b y develope rs) | |
| 13 | Verify wil l need to be added t o the ERA Worklist>E RA Worklis t/Scratchp ad for aut oposted ER As. Split/ Edit A Lin e, Look At Receipt, Mark for A uto Post, Distribute Adj Amts, Review Li ne ERA, Vi ew/Print E RA., Refre sh Scratch Pad, Veri fy RP Rece ipt, Proce ssing Rese arch Menu, Change Vi ew, EXIT S elect Acti on: Next S creen//Ver ify This a ction is n ot availab le for Aut o-Posted E RAs. | |
| 14 | Detailed L isting of Acceptance Criteria | |
| 15 | Requiremen t IDDescri ptionUS756 .1Verify n o impact t o verify o ption for non-autopo sted ERAs (As-Is)US7 56.2Add ‘V erify’ fun ctionality to ERA Wo rklist>Scr atchpad fo r both ver ified and unverified discrepan cies.US756 .3Verify n o impact t o ‘Verify’ functiona lity in AP AR list fo r unverifi ed discrep ancies.US7 56.4Verify prompt fr om ‘Select Action: Q uit// Veri fy’ direct ly to ‘DEV ICE: HOME/ / HOME (CRT) R ight Margi n: 80//’US 756.5Verif y report h eader of ‘ EDI LBOX W ORKLIST – AUTOPOST E RA LINES D ISCREPANCI ES REPORT 10/6/17’ US756.6V erify flag s of ‘(Ver ified)’ or ‘(Unverif ied)’ adde d to ‘EEOB Sequence #(s) on th e ERA: 1 K100005’ l ine.Summar y | |
| 16 | Existing r outine VER IFY^RCDPEW L8 called from ERA Worklist V erify acti on (protoc ol RCDPE E OB WORKLIS T VERIFY) will be mo dified to allow prin ting a new report of verify di screpancie s for auto -post type ERA. The report wll be a new RPT1^RCDPE V0 subrout ine which will inclu de all ERA lines wit h discrepa ncies (bot h verified and unver ified). | |
| 17 | Existing R CDPEV0 rou tine will have a new report su b-routine RPT1 for a uto-post E RA. The no n-zero lin es on the ERA with v erificatio n discrepa ncies will be displa yed in Scr atchpad se quence ord er. | |
| 18 | The APAR m enu option protocol RCDPE APAR VERIFY wi ll not be changed. | |
| 19 | Resolution – Added C hanged Obj ects | |
| 20 | RoutinesAc tivitiesRo utine Name RCDPEWL8En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRCDPE EDI LOCKBO X WORKLIST | |
| 21 | Protocol - RCDPE EOB WORKLIST VERIFYRela ted Routin esRoutines “Called B y”Routines “Called” RCDPEWL2 | |
| 22 | RCDPEWL4 | |
| 23 | RCDPEWL8 ^DIC | |
| 24 | FILE^DI CN | |
| 25 | ^DIE | |
| 26 | ^DIR | |
| 27 | AUDITLO G^RCDPEAP | |
| 28 | SETSTA^ RCDPEAP | |
| 29 | $$AUTOC HK2^RCDPEA P1 | |
| 30 | MVER^RC DPEV | |
| 31 | RPT^RCD PEV0 | |
| 32 | $$TOT^R CDPEWL3 | |
| 33 | UPD^RCD PEWL3 | |
| 34 | $$SEL^R CDPEWL7 | |
| 35 | BLD^RCD PEWL7 | |
| 36 | EDIT^RC DPEWLB | |
| 37 | EDITALL ^RCDPEWLB | |
| 38 | MARKALL ^RCDPEWLB | |
| 39 | REBATCH ^RCDPEWLB | |
| 40 | NOTSET^ RCDPEWLC | |
| 41 | SUMRPT^ RCDPEWLC | |
| 42 | NOEDIT^ RCDPEWLP | |
| 43 | FULL^VA LM1 | |
| 44 | PAUSE^V ALM1 Current LogicRCDP EWL8 ;ALB/ TMK/PJH - EDI LOCKBO X WORKLIST ERA LEVEL ;Jun 06, 2014@19:11 :19 | |
| 45 | ;;4.5;Acc ounts Rece ivable;**2 08,269,276 ,298,304,3 18,321**;M ar 20, 199 5;Build 10 4 | |
| 46 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 47 | Q | |
| 48 | ; | |
| 49 | . | |
| 50 | . | |
| 51 | VERIF ;EP - Protocol action - RCDPE EOB WORKLIST V ERIFY | |
| 52 | ; Entrypo int to ver ification options | |
| 53 | N DIR,X,Y ,RCQUIT,DT OUT,DUOUT | |
| 54 | D FULL^VA LM1 | |
| 55 | I '$D(^XU SEC("RCDPE PP",DUZ)) D Q ; PR CA*4.5*318 Added sec urity key check | |
| 56 | . W !!,"T his action can only be taken b y users th at have th e RCDPEPP security k ey.",! | |
| 57 | . D PAUSE ^VALM1 | |
| 58 | . S VALMB CK="R" | |
| 59 | I $S($P($ G(^RCY(344 .4,RCSCR,4 )),U,2)]"" :1,1:0) D NOEDIT^RCD PEWLP G VE RIFQ ;pr ca*4.5*298 auto-post ed ERAs ca nnot enter VERIFY ac tion | |
| 60 | ; | |
| 61 | W !!!! | |
| 62 | S RCQUIT= 0 | |
| 63 | F D Q:R CQUIT | |
| 64 | . W !,"VE RIFY EEOBs :",!,?10," 1",$J("",5 ),"MANUALL Y MARK AS VERIFIED", !,?10,"2", $J("",5)," REPORT OF UNVERIFIED WITH DISC REPANCIES" ,!,?10,"3" ,$J("",5), "QUIT AND RETURN TO WORKLIST" | |
| 65 | . S DIR(0 )="SAO^1:M ANUAL VERI FICATION;2 :REPORT UN VERIFIED D ISCREPANCI ES;3:QUIT" | |
| 66 | . S DIR(" A")="Selec t Action: ",DIR("B") ="QUIT" W ! D ^DIR K DIR | |
| 67 | . I Y=3!( Y="")!$D(D UOUT)!$D(D TOUT) S RC QUIT=1 Q | |
| 68 | . ; | |
| 69 | . I Y=1 D MVER^RCDP EV(RCERA) W !! Q | |
| 70 | . ; | |
| 71 | . I Y=2 D RPT^RCDPE V0(RCERA) W !! Q | |
| 72 | ; | |
| 73 | VERIFQ S V ALMBCK="R" | |
| 74 | QModified Logic (Ch anges are in bold)RC DPEWL8 ;AL B/TMK/PJH - EDI LOCK BOX WORKLI ST ERA LEV EL ;Jun 06 , 2014@19: 11:19 | |
| 75 | ;;4.5;Acc ounts Rece ivable;**2 08,269,276 ,298,304,3 18,321,XXX **;Mar 20, 1995;Buil d 104 | |
| 76 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 77 | Q | |
| 78 | ; | |
| 79 | . | |
| 80 | . | |
| 81 | VERIF ;EP - Protocol action - RCDPE EOB WORKLIST V ERIFY | |
| 82 | ; Entrypo int to ver ification options | |
| 83 | N DIR,X,Y ,RCQUIT,RC AUTO,DTOUT ,DUOUT | |
| 84 | D FULL^VA LM1 | |
| 85 | I '$D(^XU SEC("RCDPE PP",DUZ)) D Q ; PR CA*4.5*318 Added sec urity key check | |
| 86 | . W !!,"T his action can only be taken b y users th at have th e RCDPEPP security k ey.",! | |
| 87 | . D PAUSE ^VALM1 | |
| 88 | . S VALMB CK="R" | |
| 89 | I $S($P($ G(^RCY(344 .4,RCSCR,4 )),U,2)]"" :1,1:0) D NOEDIT^RCD PEWLP G VE RIFQ ;pr ca*4.5*298 auto-post ed ERAs ca nnot enter VERIFY ac tion | |
| 90 | S RCAUTO= $$GET1^DIQ (344.4,RCS CR_”,”,4.0 2,”I”) ; A utopost st atus | |
| 91 | ; If ERA is an auto -post allo w report o nly | |
| 92 | I RCAUTO D RPT1^RCD PEV0(RCERA ) W !! Q | |
| 93 | ; | |
| 94 | W !!!! | |
| 95 | S RCQUIT= 0 | |
| 96 | F D Q:R CQUIT | |
| 97 | . W !,"VE RIFY EEOBs :",!,?10," 1",$J("",5 ),"MANUALL Y MARK AS VERIFIED", !,?10,"2", $J("",5)," REPORT OF UNVERIFIED WITH DISC REPANCIES" ,!,?10,"3" ,$J("",5), "QUIT AND RETURN TO WORKLIST" | |
| 98 | . S DIR(0 )="SAO^1:M ANUAL VERI FICATION;2 :REPORT UN VERIFIED D ISCREPANCI ES;3:QUIT" | |
| 99 | . S DIR(" A")="Selec t Action: ",DIR("B") ="QUIT" W ! D ^DIR K DIR | |
| 100 | . I Y=3!( Y="")!$D(D UOUT)!$D(D TOUT) S RC QUIT=1 Q | |
| 101 | . ; | |
| 102 | . I Y=1 D MVER^RCDP EV(RCERA) W !! Q | |
| 103 | . ; | |
| 104 | . I Y=2 D RPT^RCDPE V0(RCERA) W !! Q | |
| 105 | ; | |
| 106 | VERIFQ S V ALMBCK="R" | |
| 107 | QRoutines Activities Routine Na meRCDPEV0E nhancement Category New Modify Delete No ChangeRTM Related Op tionsRCDPE EDI LOCKB OX WORKLIS T | |
| 108 | Protocol - RCDPE EOB WORKLIST VERIFYRela ted Routin esRoutines “Called B y”Routines “Called” RCDPEWL8 | |
| 109 | RCDPEAA3 ^%ZIS | |
| 110 | HOME^%Z IS | |
| 111 | ^%ZISC | |
| 112 | ^%ZTLOA D | |
| 113 | $$S^%ZT LOAD | |
| 114 | ^DIR | |
| 115 | $$VER^R CDPEV | |
| 116 | FULL^VA LM1 | |
| 117 | $$FMTE^ XLFDT Current LogicRCDP EV0 ;ALB/T MK - EDI L OCKBOX WOR KLIST VERI FY PAYMENT S ;Jun 06, 2014@19:1 1:19 | |
| 118 | ;;4.5;Acc ounts Rece ivable;**2 08,261,298 ,XXX**;Mar 20, 1995; Build 121 | |
| 119 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
| 120 | Q | |
| 121 | ; | |
| 122 | RPT(RCSCR) ; Print/d isplay dis crepancy r eport | |
| 123 | D FULL^VA LM1 | |
| 124 | N %ZIS,ZT RTN,ZTSAVE ,ZTDESC,PO P | |
| 125 | S %ZIS="Q M" D ^%ZIS G:POP RPT Q | |
| 126 | I $D(IO(" Q")) D G RPTQ | |
| 127 | . S ZTRTN ="DISRPT^R CDPEV0("_R CSCR_","_+ $G(^TMP("R CBATCH_SEL ECTED",$J) )_")",ZTDE SC="AR - P rint ERA D iscrepancy Report Fr om Worklis t" | |
| 128 | . D ^%ZTL OAD | |
| 129 | . W !!,$S ($D(ZTSK): "Your task number"_Z TSK_" has been queue d.",1:"Una ble to que ue this jo b.") | |
| 130 | . K ZTSK, IO("Q") D HOME^%ZIS | |
| 131 | U IO | |
| 132 | D DISRPT( RCSCR,+$G( ^TMP("RCBA TCH_SELECT ED",$J))) | |
| 133 | RPTQ Q | |
| 134 | ; | |
| 135 | DISRPT(RCS CR,RCBATCH ) ; Queued job entry point | |
| 136 | ; RCSCR = the ien o f the entr y in file 344.49 | |
| 137 | ; RCBATCH = the # o f the batc h within t he ERA. If all batch es, this i s null | |
| 138 | N X,Z,Z0, RC3444,RCS TOP,RCPG,R CANY,RCZ,R CZ0,RCZ1,S PLIT,SSN,A MT1,AMT2,R CBILL,RESU LT,DTFR1,D TFR2,DTTO1 ,DTTO2 | |
| 139 | S (RCSTOP ,RCPG,RCAN Y)=0 | |
| 140 | S RCZ=0 F S RCZ=$O (^RCY(344. 49,RCSCR,1 ,"ANV",0,R CZ)) Q:'RC Z D Q:RC STOP | |
| 141 | . I $D(ZT QUEUED),$$ S^%ZTLOAD S (RCSTOP, ZTSTOP)=1 K ZTREQ W: +$G(RCPG) !,"***TASK STOPPED B Y USER***" Q | |
| 142 | . S RCZ0= $G(^RCY(34 4.49,RCSCR ,1,RCZ,0)) | |
| 143 | . Q:'$D(^ RCY(344.49 ,RCSCR,1," ASEQ",+RCZ 0,RCZ)) ; Not top le vel | |
| 144 | . Q:RCZ0= "" | |
| 145 | . I $G(RC BATCH),$P( RCZ0,U,14) '=RCBATCH Q ; Not i n the batc h | |
| 146 | . S RCANY =1 | |
| 147 | . S SPLIT =(+$O(^RCY (344.49,RC SCR,1,"B", +RCZ0_".99 99"),-1)'= (+RCZ0_".0 01")) | |
| 148 | . S RC344 4=$G(^RCY( 344.4,RCSC R,1,+$P(RC Z0,U,9),0) ) | |
| 149 | . S RCBIL L=+$G(^IBM (361.1,+$P (RC3444,U, 2),0)) | |
| 150 | . S RESUL T=$$VER^RC DPEV(RCSCR ,RCBILL,+$ P(RCZ0,U,9 ),1) | |
| 151 | . S AMT1= $S($E($P(R ESULT,U,5) )="*":"*", 1:"")_$S($ TR($P(RESU LT,U,5),"* ")="":"NO DATA",1:$J ($TR($P(RE SULT,U,5), "*"),"",2) ) | |
| 152 | . S AMT2= $S($E($P(R ESULT,U,4) )="*":"*", 1:"")_$S($ TR($P(RESU LT,U,4),"* ")="":"NO DATA",1:$J ($TR($P(RE SULT,U,4), "*"),"",2) ) | |
| 153 | . S DTFR1 =$S($TR($P (RESULT,U, 7),"*")="" :"",1:$S($ E($P(RESUL T,U,7))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,7),"*")," 2D")) | |
| 154 | . S DTFR2 =$S($TR($P (RESULT,U, 6),"*")="" :"",1:$S($ E($P(RESUL T,U,6))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,6),"*")," 2D")) | |
| 155 | . S DTTO1 =$S($TR($P (RESULT,U, 9),"*")="" :"",1:$S($ E($P(RESUL T,U,9))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,9),"*")," 2D")) | |
| 156 | . S DTTO2 =$S($TR($P (RESULT,U, 8),"*")="" :"",1:$S($ E($P(RESUL T,U,8))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,8),"*")," 2D")) | |
| 157 | . S X="EE OB Sequenc e #(s) on the ERA: " _$P(RCZ0,U ,9)_" "_$S ($P(RC3444 ,U,5)'="": $P(RC3444, U,5),$P(RC 3444,U,17) '="":$P(RC 3444,U,17) ,$G(RCBILL ):$P($G(^D GCR(399,+R CBILL,0)), U),1:"") | |
| 158 | . I ($Y+7 )>IOSL!'RC PG D HDR(. RCPG,RCSCR ,$G(RCBATC H),.RCSTOP ) Q:RCSTOP | |
| 159 | . W !!,X | |
| 160 | . I ($Y+5 )>IOSL D H DR(.RCPG,R CSCR,$G(RC BATCH),.RC STOP) Q:RC STOP | |
| 161 | . S X="Vi stA: ",SSN =$P(RESULT ,U,10),SSN =$E($E(SSN ,$L(SSN)-3 ,$L(SSN))_ $J("",4),1 ,4) | |
| 162 | . S X=X_$ S('RCBILL: "NOT RELAT ED TO A Vi stA BILL", 1:$E($P(RE SULT,U,2)_ $J("",30), 1,30)_" "_ SSN_" "_$E (AMT2_$J(" ",15),1,15 )_" "_$E($ S(DTFR2="" :"NO DATA" ,1:DTFR2)_ $J("",9),1 ,9)_"- "_$ S(DTTO2'=" ":DTTO2,1: "NO DATA") ) | |
| 163 | . W !,X | |
| 164 | . S X=" E RA: "_$E($ P(RESULT,U ,3)_$J("", 30),1,30)_ $J("",7)_$ E(AMT1_$J( "",15),1,1 5)_" "_$E( $S(DTFR1=" ":"NO DATA ",1:DTFR1) _$J("",9), 1,9)_"- "_ $S(DTTO1'= "":DTTO1,1 :"NO DATA" ) | |
| 165 | . W !,X | |
| 166 | . Q:'SPLI T | |
| 167 | . W !,?9, "<<< THIS EEOB HAS B EEN SPLIT >>>" | |
| 168 | . S RCZ1= +RCZ0 F S RCZ1=$O(^ RCY(344.49 ,RCSCR,1," B",RCZ1)) Q:(RCZ1\1) '=+RCZ0!RC STOP D | |
| 169 | .. S Z=+$ O(^RCY(344 .49,RCSCR, 1,"B",RCZ1 ,0)) | |
| 170 | .. S Z0=$ G(^RCY(344 .49,RCSCR, 1,Z,0)) | |
| 171 | .. I ($Y+ 5)>IOSL D HDR(.RCPG, RCSCR,$G(R CBATCH),.R CSTOP) Q:R CSTOP | |
| 172 | .. W !,?1 5,$S($P(Z0 ,U,7):"",1 :"BILL NOT IN VISTA: "),$P(Z0, U,2)_" "_$ J($P(Z0,U, 5),"",2) | |
| 173 | . W ! | |
| 174 | ; | |
| 175 | I 'RCANY D:'RCPG HD R(.RCPG,RC SCR,$G(RCB ATCH),.RCS TOP) W !," THERE ARE NO UNVERIF IED LINES WITH DISCR EPANCIES I N THIS ERA "_$S($G(RC BATCH):" B ATCH",1:"" ) | |
| 176 | I '$D(ZTQ UEUED),'RC STOP,RCPG D ASK() | |
| 177 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 178 | I '$D(ZTQ UEUED) D ^ %ZISC | |
| 179 | Q | |
| 180 | ; | |
| 181 | HDR(RCPG,R CSCR,RCBAT CH,RCSTOP) ;Print re port hdr | |
| 182 | ; RCPG = last page # | |
| 183 | ; RCSCR = the entry # in file 344.49 | |
| 184 | ; RCSTOP = returned as 1 if a bort is de tected | |
| 185 | N RCZ0 | |
| 186 | I $D(ZTQU EUED),$$S^ %ZTLOAD S (RCSTOP,ZT STOP)=1 K ZTREQ W:+$ G(RCPG) !, "***TASK S TOPPED BY USER***" Q | |
| 187 | S RCZ0=$G (^RCY(344. 4,RCSCR,0) ) | |
| 188 | I RCPG&($ E(IOST,1,2 )="C-") D ASK(.RCSTO P) Q:RCSTO P | |
| 189 | W !,@IOF, *13 | |
| 190 | S RCPG=$G (RCPG)+1 | |
| 191 | W !,"EDI LBOX WORKL IST - UNVE RIFIED LIN ES DISCREP ANCIES REP ORT",?59,$ $FMTE^XLFD T(DT,2),?7 0,"Page: " ,RCPG,! | |
| 192 | W !,"ERA #: ",RCSCR ,?20,$S($O (^RCY(344. 49,RCSCR,3 ,0)):"BATC H: "_$E($S ($G(RCBATC H):+RCBATC H,1:"ALL") _$J("",11) ,1,11),1:$ J("",18))_ "TRACE #: "_$P(RCZ0, U,2) | |
| 193 | W !,"PAYE R: "_$E($P (RCZ0,U,6) _$J("",30) ,1,30)_" E RA DT: "_$ $FMTE^XLFD T($P(RCZ0, U,4),"2D") | |
| 194 | W !!,?7," PATIENT NA ME"_$J("", 25)_"SUBMI TTED AMT S VC DATE(S) " | |
| 195 | W !,"* pr eceding da ta = data has discre pancy" | |
| 196 | W !,$TR($ J("",IOM), " ","=") | |
| 197 | Q | |
| 198 | ; | |
| 199 | ASK(RCSTOP ) ; Ask to continue | |
| 200 | ; If pass ed by refe rence ,RCS TOP is ret urned as 1 if print is aborted | |
| 201 | I $E(IOST ,1,2)'["C- " Q | |
| 202 | N DIR,DIR OUT,DIRUT, DTOUT,DUOU T | |
| 203 | S DIR(0)= "E" W ! D ^DIR | |
| 204 | I ($D(DIR UT))!($D(D UOUT)) S R CSTOP=1 Q | |
| 205 | Q | |
| 206 | ;Modified Logic (Ch anges are in bold)RC DPEV0 ;ALB /TMK - EDI LOCKBOX W ORKLIST VE RIFY PAYME NTS ;Jun 0 6, 2014@19 :11:19 | |
| 207 | ;;4.5;Acc ounts Rece ivable;**2 08,261,298 ,XXX**;Mar 20, 1995; Build 121 | |
| 208 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
| 209 | Q | |
| 210 | ; | |
| 211 | RPT(RCSCR) ; Print/d isplay dis crepancy r eport | |
| 212 | D FULL^VA LM1 | |
| 213 | N %ZIS,ZT RTN,ZTSAVE ,ZTDESC,PO P | |
| 214 | S %ZIS="Q M" D ^%ZIS G:POP RPT Q | |
| 215 | I $D(IO(" Q")) D G RPTQ | |
| 216 | . S ZTRTN ="DISRPT^R CDPEV0("_R CSCR_","_+ $G(^TMP("R CBATCH_SEL ECTED",$J) )_")",ZTDE SC="AR - P rint ERA D iscrepancy Report Fr om Worklis t" | |
| 217 | . D ^%ZTL OAD | |
| 218 | . W !!,$S ($D(ZTSK): "Your task number"_Z TSK_" has been queue d.",1:"Una ble to que ue this jo b.") | |
| 219 | . K ZTSK, IO("Q") D HOME^%ZIS | |
| 220 | U IO | |
| 221 | D DISRPT( RCSCR,+$G( ^TMP("RCBA TCH_SELECT ED",$J))) | |
| 222 | RPTQ Q | |
| 223 | ; | |
| 224 | RPT1(RCSCR ) ; Print/ display di screpancy report – A uto-post E RA | |
| 225 | D FULL^VA LM1 | |
| 226 | N %ZIS,ZT RTN,ZTSAVE ,ZTDESC,PO P | |
| 227 | S %ZIS="Q M" D ^%ZIS G:POP RPT Q | |
| 228 | I $D(IO(" Q")) D G RPTQ | |
| 229 | . S ZTRTN ="DISRPT^R CDPEV0("_R CSCR_","_+ $G(^TMP("R CBATCH_SEL ECTED",$J) )_")",ZTDE SC="AR - P rint Auto- post ERA D iscrepancy Report Fr om Worklis t" | |
| 230 | . D ^%ZTL OAD | |
| 231 | . W !!,$S ($D(ZTSK): "Your task number"_Z TSK_" has been queue d.",1:"Una ble to que ue this jo b.") | |
| 232 | . K ZTSK, IO("Q") D HOME^%ZIS | |
| 233 | U IO | |
| 234 | D DISRPT1 (RCSCR,+$G (^TMP("RCB ATCH_SELEC TED",$J))) | |
| 235 | RPT1Q Q | |
| 236 | ; | |
| 237 | DISRPT(RCS CR,RCBATCH ) ; Queued job entry point | |
| 238 | ; RCSCR = the ien o f the entr y in file 344.49 | |
| 239 | ; RCBATCH = the # o f the batc h within t he ERA. If all batch es, this i s null | |
| 240 | N X,Z,Z0, RC3444,RCS TOP,RCPG,R CANY,RCZ,R CZ0,RCZ1,S PLIT,SSN,A MT1,AMT2,R CBILL,RESU LT,DTFR1,D TFR2,DTTO1 ,DTTO2 | |
| 241 | S (RCSTOP ,RCPG,RCAN Y)=0 | |
| 242 | S RCZ=0 F S RCZ=$O (^RCY(344. 49,RCSCR,1 ,"ANV",0,R CZ)) Q:'RC Z D Q:RC STOP | |
| 243 | . I $D(ZT QUEUED),$$ S^%ZTLOAD S (RCSTOP, ZTSTOP)=1 K ZTREQ W: +$G(RCPG) !,"***TASK STOPPED B Y USER***" Q | |
| 244 | . S RCZ0= $G(^RCY(34 4.49,RCSCR ,1,RCZ,0)) | |
| 245 | . Q:'$D(^ RCY(344.49 ,RCSCR,1," ASEQ",+RCZ 0,RCZ)) ; Not top le vel | |
| 246 | . Q:RCZ0= "" | |
| 247 | . I $G(RC BATCH),$P( RCZ0,U,14) '=RCBATCH Q ; Not i n the batc h | |
| 248 | . S RCANY =1 | |
| 249 | . S SPLIT =(+$O(^RCY (344.49,RC SCR,1,"B", +RCZ0_".99 99"),-1)'= (+RCZ0_".0 01")) | |
| 250 | . S RC344 4=$G(^RCY( 344.4,RCSC R,1,+$P(RC Z0,U,9),0) ) | |
| 251 | . S RCBIL L=+$G(^IBM (361.1,+$P (RC3444,U, 2),0)) | |
| 252 | . S RESUL T=$$VER^RC DPEV(RCSCR ,RCBILL,+$ P(RCZ0,U,9 ),1) | |
| 253 | . S AMT1= $S($E($P(R ESULT,U,5) )="*":"*", 1:"")_$S($ TR($P(RESU LT,U,5),"* ")="":"NO DATA",1:$J ($TR($P(RE SULT,U,5), "*"),"",2) ) | |
| 254 | . S AMT2= $S($E($P(R ESULT,U,4) )="*":"*", 1:"")_$S($ TR($P(RESU LT,U,4),"* ")="":"NO DATA",1:$J ($TR($P(RE SULT,U,4), "*"),"",2) ) | |
| 255 | . S DTFR1 =$S($TR($P (RESULT,U, 7),"*")="" :"",1:$S($ E($P(RESUL T,U,7))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,7),"*")," 2D")) | |
| 256 | . S DTFR2 =$S($TR($P (RESULT,U, 6),"*")="" :"",1:$S($ E($P(RESUL T,U,6))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,6),"*")," 2D")) | |
| 257 | . S DTTO1 =$S($TR($P (RESULT,U, 9),"*")="" :"",1:$S($ E($P(RESUL T,U,9))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,9),"*")," 2D")) | |
| 258 | . S DTTO2 =$S($TR($P (RESULT,U, 8),"*")="" :"",1:$S($ E($P(RESUL T,U,8))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,8),"*")," 2D")) | |
| 259 | . S X="EE OB Sequenc e #(s) on the ERA: " _$P(RCZ0,U ,9)_" "_$S ($P(RC3444 ,U,5)'="": $P(RC3444, U,5),$P(RC 3444,U,17) '="":$P(RC 3444,U,17) ,$G(RCBILL ):$P($G(^D GCR(399,+R CBILL,0)), U),1:"") | |
| 260 | . I ($Y+7 )>IOSL!'RC PG D HDR(. RCPG,RCSCR ,$G(RCBATC H),.RCSTOP ,”U”) Q:RC STOP | |
| 261 | . W !!,X | |
| 262 | . I ($Y+5 )>IOSL D H DR(.RCPG,R CSCR,$G(RC BATCH),.RC STOP,”U”) Q:RCSTOP | |
| 263 | . S X="Vi stA: ",SSN =$P(RESULT ,U,10),SSN =$E($E(SSN ,$L(SSN)-3 ,$L(SSN))_ $J("",4),1 ,4) | |
| 264 | . S X=X_$ S('RCBILL: "NOT RELAT ED TO A Vi stA BILL", 1:$E($P(RE SULT,U,2)_ $J("",30), 1,30)_" "_ SSN_" "_$E (AMT2_$J(" ",15),1,15 )_" "_$E($ S(DTFR2="" :"NO DATA" ,1:DTFR2)_ $J("",9),1 ,9)_"- "_$ S(DTTO2'=" ":DTTO2,1: "NO DATA") ) | |
| 265 | . W !,X | |
| 266 | . S X=" E RA: "_$E($ P(RESULT,U ,3)_$J("", 30),1,30)_ $J("",7)_$ E(AMT1_$J( "",15),1,1 5)_" "_$E( $S(DTFR1=" ":"NO DATA ",1:DTFR1) _$J("",9), 1,9)_"- "_ $S(DTTO1'= "":DTTO1,1 :"NO DATA" ) | |
| 267 | . W !,X | |
| 268 | . Q:'SPLI T | |
| 269 | . W !,?9, "<<< THIS EEOB HAS B EEN SPLIT >>>" | |
| 270 | . S RCZ1= +RCZ0 F S RCZ1=$O(^ RCY(344.49 ,RCSCR,1," B",RCZ1)) Q:(RCZ1\1) '=+RCZ0!RC STOP D | |
| 271 | .. S Z=+$ O(^RCY(344 .49,RCSCR, 1,"B",RCZ1 ,0)) | |
| 272 | .. S Z0=$ G(^RCY(344 .49,RCSCR, 1,Z,0)) | |
| 273 | .. I ($Y+ 5)>IOSL D HDR(.RCPG, RCSCR,$G(R CBATCH),.R CSTOP,”U”) Q:RCSTOP | |
| 274 | .. W !,?1 5,$S($P(Z0 ,U,7):"",1 :"BILL NOT IN VISTA: "),$P(Z0, U,2)_" "_$ J($P(Z0,U, 5),"",2) | |
| 275 | . W ! | |
| 276 | ; | |
| 277 | I 'RCANY D:'RCPG HD R(.RCPG,RC SCR,$G(RCB ATCH),.RCS TOP,”U”) W !,"THERE ARE NO UNV ERIFIED LI NES WITH D ISCREPANCI ES IN THIS ERA"_$S($ G(RCBATCH) :" BATCH", 1:"") | |
| 278 | I '$D(ZTQ UEUED),'RC STOP,RCPG D ASK() | |
| 279 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 280 | I '$D(ZTQ UEUED) D ^ %ZISC | |
| 281 | Q | |
| 282 | ; | |
| 283 | DISRPT1(RC SCR,RCBATC H) ; Queue d job entr ypoint – A uto-post E RA | |
| 284 | ; RCSCR = the ien o f the entr y in file 344.49 | |
| 285 | ; RCBATCH = the # o f the batc h within t he ERA. If all batch es, this i s null | |
| 286 | ; | |
| 287 | ; Sort ve rified sta tus into s cratchpad sequence | |
| 288 | N ARR,RCZ ,RCVER | |
| 289 | F RCVER=0 ,1 D | |
| 290 | .S RCZ=0 | |
| 291 | .F S RCZ =$O(^RCY(3 44.49,RCSC R,1,"ANV", RCVER,RCZ) ) Q:'RCZ D Q:RCSTO P | |
| 292 | . . S ARR (RCZ)=RCVE R | |
| 293 | ; | |
| 294 | N AMT1,AM T2,DTFR1,D TFR2,DTTO1 ,DTTO2,RCA NY,RCSTOP, RCPG,RCZ0, RCZ1,RCBIL L,RCEOB,RC LINE,RESUL T | |
| 295 | N SPLIT,S SN,X,Z,Z0 | |
| 296 | S (RCSTOP ,RCPG,RCAN Y,RCZ)=0 | |
| 297 | F S RCZ= $O(ARR(RCZ )) Q:'RCZ D Q:RCST OP | |
| 298 | . I $D(ZT QUEUED),$$ S^%ZTLOAD S (RCSTOP, ZTSTOP)=1 K ZTREQ W: +$G(RCPG) !,"***TASK STOPPED B Y USER***" Q | |
| 299 | . S RCZ0= $$GET1^DIQ (344.491,R CZ_","_RCS CR_",",.01 ) | |
| 300 | . Q:'$D(^ RCY(344.49 ,RCSCR,1," ASEQ",+RCZ 0,RCZ)) ; Not top le vel | |
| 301 | . Q:RCZ0= "" | |
| 302 | . I $G(RC BATCH),$$G ET1^DIQ(34 4.491,RCZ_ ","_RCSCR_ ",",.14)'= RCBATCH Q ; Not in the batch | |
| 303 | . S SPLIT =(+$O(^RCY (344.49,RC SCR,1,"B", +RCZ0_".99 99"),-1)'= (+RCZ0_".0 01")) | |
| 304 | . S RCLIN E=+$$GET1^ DIQ(344.49 1,RCZ_","_ RCSCR_",", .09) | |
| 305 | . S RCEOB =+$$GET1^D IQ(344.41, RCLINE_"," _RCSCR_"," ,.02,"I") | |
| 306 | . S RCBIL L=+$$GET1^ DIQ(361.1, RCEOB_",", .01,"I") | |
| 307 | . S RESUL T=$$VER^RC DPEV(RCSCR ,RCBILL,+R C3444,1) | |
| 308 | . ; Ignor e lines wi th no disc repancies | |
| 309 | . Q:'$F(R ESULT,"^*" ) | |
| 310 | . S RCANY =1 | |
| 311 | . S RCVER =ARR(RCZ) ; Verifica tion statu s | |
| 312 | . S AMT1= $S($E($P(R ESULT,U,5) )="*":"*", 1:"")_$S($ TR($P(RESU LT,U,5),"* ")="":"NO DATA",1:$J ($TR($P(RE SULT,U,5), "*"),"",2) ) | |
| 313 | . S AMT2= $S($E($P(R ESULT,U,4) )="*":"*", 1:"")_$S($ TR($P(RESU LT,U,4),"* ")="":"NO DATA",1:$J ($TR($P(RE SULT,U,4), "*"),"",2) ) | |
| 314 | . S DTFR1 =$S($TR($P (RESULT,U, 7),"*")="" :"",1:$S($ E($P(RESUL T,U,7))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,7),"*")," 2D")) | |
| 315 | . S DTFR2 =$S($TR($P (RESULT,U, 6),"*")="" :"",1:$S($ E($P(RESUL T,U,6))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,6),"*")," 2D")) | |
| 316 | . S DTTO1 =$S($TR($P (RESULT,U, 9),"*")="" :"",1:$S($ E($P(RESUL T,U,9))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,9),"*")," 2D")) | |
| 317 | . S DTTO2 =$S($TR($P (RESULT,U, 8),"*")="" :"",1:$S($ E($P(RESUL T,U,8))="* ":"*",1:"" )_$$FMTE^X LFDT($TR($ P(RESULT,U ,8),"*")," 2D")) | |
| 318 | . S X="EE OB Sequenc e #(s) on the ERA: " _$P(RCZ0,U ,9)_" "_$S ($P(RC3444 ,U,5)'="": $P(RC3444, U,5),$P(RC 3444,U,17) '="":$P(RC 3444,U,17) ,$G(RCBILL ):$P($G(^D GCR(399,+R CBILL,0)), U),1:"") | |
| 319 | . W " ("_ $S(RCVER:" Verified", 1:"Unverif ied") | |
| 320 | . I ($Y+7 )>IOSL!'RC PG D HDR(. RCPG,RCSCR ,$G(RCBATC H),.RCSTOP ,”A”) Q:RC STOP | |
| 321 | . W !!,X | |
| 322 | . I ($Y+5 )>IOSL D H DR(.RCPG,R CSCR,$G(RC BATCH),.RC STOP,”A”) Q:RCSTOP | |
| 323 | . S X="Vi stA: ",SSN =$P(RESULT ,U,10),SSN =$E($E(SSN ,$L(SSN)-3 ,$L(SSN))_ $J("",4),1 ,4) | |
| 324 | . S X=X_$ S('RCBILL: "NOT RELAT ED TO A Vi stA BILL", 1:$E($P(RE SULT,U,2)_ $J("",30), 1,30)_" "_ SSN_" "_$E (AMT2_$J(" ",15),1,15 )_" "_$E($ S(DTFR2="" :"NO DATA" ,1:DTFR2)_ $J("",9),1 ,9)_"- "_$ S(DTTO2'=" ":DTTO2,1: "NO DATA") ) | |
| 325 | . W !,X | |
| 326 | . S X=" E RA: "_$E($ P(RESULT,U ,3)_$J("", 30),1,30)_ $J("",7)_$ E(AMT1_$J( "",15),1,1 5)_" "_$E( $S(DTFR1=" ":"NO DATA ",1:DTFR1) _$J("",9), 1,9)_"- "_ $S(DTTO1'= "":DTTO1,1 :"NO DATA" ) | |
| 327 | . W !,X | |
| 328 | . Q:'SPLI T | |
| 329 | . W !,?9, "<<< THIS EEOB HAS B EEN SPLIT >>>" | |
| 330 | . S RCZ1= +RCZ0 F S RCZ1=$O(^ RCY(344.49 ,RCSCR,1," B",RCZ1)) Q:(RCZ1\1) '=+RCZ0!RC STOP D | |
| 331 | .. S Z=+$ O(^RCY(344 .49,RCSCR, 1,"B",RCZ1 ,0)) | |
| 332 | .. S Z0=$ G(^RCY(344 .49,RCSCR, 1,Z,0)) | |
| 333 | .. I ($Y+ 5)>IOSL D HDR(.RCPG, RCSCR,$G(R CBATCH),.R CSTOP,”A”) Q:RCSTOP | |
| 334 | .. W !,?1 5,$S($P(Z0 ,U,7):"",1 :"BILL NOT IN VISTA: "),$P(Z0, U,2)_" "_$ J($P(Z0,U, 5),"",2) | |
| 335 | . W ! | |
| 336 | ; | |
| 337 | I 'RCANY D | |
| 338 | .D:'RCPG HDR(.RCPG, RCSCR,$G(R CBATCH),.R CSTOP,”A”) | |
| 339 | .W !,"THE RE ARE NO AUTO-POST LINES WITH DISCREPAN CIES IN TH IS ERA" | |
| 340 | .W $S($G( RCBATCH):" BATCH",1: "") | |
| 341 | I '$D(ZTQ UEUED),'RC STOP,RCPG D ASK() | |
| 342 | I $D(ZTQU EUED) S ZT REQ="@" | |
| 343 | I '$D(ZTQ UEUED) D ^ %ZISC | |
| 344 | Q | |
| 345 | ; | |
| 346 | HDR(RCPG,R CSCR,RCBAT CH,RCSTOP, RCTYP) ;Pr int report hdr | |
| 347 | ; RCPG = last page # | |
| 348 | ; RCSCR = the entry # in file 344.49 | |
| 349 | ; RCSTOP = returned as 1 if a bort is de tected | |
| 350 | ; RCTYP = ‘A’ for a ll verific ation disc repancies, “U” for u nverified discrepanc ies only | |
| 351 | N RCDAT,R CPAY | |
| 352 | I $D(ZTQU EUED),$$S^ %ZTLOAD S (RCSTOP,ZT STOP)=1 K ZTREQ W:+$ G(RCPG) !, "***TASK S TOPPED BY USER***" Q | |
| 353 | ||
| 354 | I RCPG&($ E(IOST,1,2 )="C-") D ASK(.RCSTO P) Q:RCSTO P | |
| 355 | S RCDAT=$ $GET^DIQ(3 44.4,RCSCR _”,”,.04,” I”) | |
| 356 | S RCPAY=$ $GET^DIQ(3 44.4,RCSCR _”,”,.06,” I”) | |
| 357 | W !,@IOF, *13 | |
| 358 | S RCPG=$G (RCPG)+1 | |
| 359 | I RCTYP=” U” W !,"ED I LBOX WOR KLIST - UN VERIFIED L INES DISCR EPANCIES R EPORT",?59 | |
| 360 | E W !," EDI LBOX W ORKLIST - AUTOPOST E RA LINES D ISCREPANCI ES REPORT" ,?61 | |
| 361 | W $$FMTE^ XLFDT(DT,2 ),?70,"Pag e: ",RCPG, ! | |
| 362 | W !,"ERA #: ",RCSCR ,?20 | |
| 363 | W $S($O(^ RCY(344.49 ,RCSCR,3,0 )):"BATCH: "_$E($S($G (RCBATCH): +RCBATCH,1 :"ALL") | |
| 364 | W $J("",1 1),1,11),1 :$J("",18) )_"TRACE # : "_$P(RCZ 0,U,2) | |
| 365 | W !,"PAYE R: "_RCPAY _$J("",30) ,1,30)_" E RA DT: "_$ $FMTE^XLFD T(RCDAT)," 2D") | |
| 366 | W !!,?7," PATIENT NA ME"_$J("", 25)_"SUBMI TTED AMT S VC DATE(S) " | |
| 367 | W !,"* pr eceding da ta = data has discre pancy" | |
| 368 | W !,$TR($ J("",IOM), " ","=") | |
| 369 | Q | |
| 370 | ; | |
| 371 | ASK(RCSTOP ) ; Ask to continue | |
| 372 | ; If pass ed by refe rence ,RCS TOP is ret urned as 1 if print is aborted | |
| 373 | I $E(IOST ,1,2)'["C- " Q | |
| 374 | N DIR,DIR OUT,DIRUT, DTOUT,DUOU T | |
| 375 | S DIR(0)= "E" W ! D ^DIR | |
| 376 | I ($D(DIR UT))!($D(D UOUT)) S R CSTOP=1 Q | |
| 377 | Q | |
| 378 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.