Produced by Araxis Merge on 3/21/2017 9:01:45 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 | MCCF.zip\docs | MCCF EDI TAS USPY-24 SDD.docx | Mon Jan 30 18:14:56 2017 UTC |
| 2 | MCCF.zip\docs | MCCF EDI TAS USPY-24 SDD.docx | Tue Mar 21 13:53:01 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 1018 |
| Changed | 0 | 0 |
| Inserted | 2 | 2 |
| 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 USPY-24 | |||||
| 2 | System Des ign Docume nt | |||||
| 3 | PRCA*4.5*3 17 | |||||
| 4 | ||||||
| 5 | ||||||
| 6 | ||||||
| 7 | ||||||
| 8 | Department of Vetera ns Affairs | |||||
| 9 | October 20 16 | |||||
| 10 | Version .0 1 | |||||
| 11 | User Story Number: U SPY-24 | |||||
| 12 | User Story Name: Use Preferred View (Bac klog ID# 2 50, Row 19 6) | |||||
| 13 | Background | |||||
| 14 | A user nee ds a promp t of “Use preferred view?” whe n using th e ERA Work list, Scra tch pad an d APAR ePa yments men u options. They may choose th eir curren t preferre d view (if they have one defin ed) to red uce time ( and labor costs) or select Sor t/Filter v iew criter ia (and op tionally s ave it as their pref erred view ). | |||||
| 15 | Story | |||||
| 16 | As a user, I want a prompt to use or not use my pr eferred vi ew in the ERA Workli st, Scratc hpad and A PAR so I c an limit m y options to the fun ctionality that I us e most oft en. | |||||
| 17 | The “prefe rred view” statement will not be added t o the titl e or the h eader of t he ERA Wor klist, scr atchpad, o r APAR. U sers can l ook at the ir selecte d options listed and determine if they a re viewing the corre ct info. | |||||
| 18 | Add new pr ompt of “U se preferr ed view?” to the Cha nge View a ction with in ERA Wor klist, Scr atchpad an d APAR, wi th a defau lt of ‘N’. Only pro mpt when t he user ha s a prefer red view o n file and is curren tly not di splaying t he preferr ed view. | |||||
| 19 | Conversati on | |||||
| 20 | In the cur rent versi on of the software b eing used by a user, the prefe rred view functional ity exists and is us ed to save sort/filt er criteri a for the ERA Workli st, scratc hpad and A PAR menu o ptions. Ho wever, the sort/ fil ter criter ia is aske d only whe n the user does not have a sav ed preferr ed view. If the use r does hav e a prefer red view, the saved values fro m it are u sed and th e display will be bu ilt honori ng the pre ferred vie w. By add ing an add itional pr ompt of ‘U sed Prefer red View’ it would a llow a use r to skip using the preferred view and b e allowed to re-answ er all of the sort/f ilter prom pts. | |||||
| 21 | User Seque nce | |||||
| 22 | A user wou ld launch an ERA Wor klist, scr atchpad (f rom within the ERA W orklist) o r the APAR menu opti on. | |||||
| 23 | If the use r has prev iously set up a pref erred view , then the system wo uld ask, “ Use prefer red view?” Y or N, D efault N | |||||
| 24 | If the use r selects Y then the sort/filt er values stored in the prefer red view w ill be use d, the pro mpts would be skippe d and the option wou ld launch. | |||||
| 25 | If the use r selects N then the all of th e sort/fil ter prompt s will be displayed to allow t he user to select so rt/filter criteria. After the prompts ar e displaye d they wil l asked if they wish to save t he selecte d values a s their ne w preferre d view whi ch would o verwrite t he user’s current pr eferred vi ew for the menu opti on if one currently exists. | |||||
| 26 | A user wou ld select the Change View acti on within the ERA Wo rklist, Sc ratchpad o r APAR. | |||||
| 27 | If sort/fi lter crite ria curren tly being used is NO T the valu es from th eir prefer red view, the user w ill be pro mpted if t hey want t o use thei r preferre d view (on ly if a pr eferred vi ew for tha t user exi sts). If the sort/f ilter crit eria IS th e values f rom their preferred view or th e user doe s not have a preferr ed view, t he ‘Use pr eferred vi ew?” promp t will not be displa yed and th e user wil l be promp ted to ent er new sor t/selectio n values. | |||||
| 28 | If the use r selects Y to the p referred v iew prompt the scree n will rep aint based on the va lues of th e preferre d view. | |||||
| 29 | If the use r selects N then the user will be prompt ed to ente r new sort /filter va lues. | |||||
| 30 | ||||||
| 31 | ERA Workli st | |||||
| 32 | ||||||
| 33 | EDI Lockbo x | |||||
| 34 | ||||||
| 35 | EXC EDI Lockbo x 3rd Part y Exceptio ns | |||||
| 36 | WL ERA Workli st | |||||
| 37 | APAR Auto-Post Awaiting R esolution | |||||
| 38 | MA Automatic Match EFTs to ERAs | |||||
| 39 | MCR EEOB Move/ Copy/Remov e | |||||
| 40 | MM Manual Mat ch EFT-ERA | |||||
| 41 | MO Move ERA T otal To Su spense | |||||
| 42 | OEFT Unposted E FT Overrid e | |||||
| 43 | REFT Remove Dup licate EFT Deposits | |||||
| 44 | REM Remove ERA from Acti ve Worklis t | |||||
| 45 | REP EDI Lockbo x Reports Menu ... | |||||
| 46 | UN Unmatch An ERA | |||||
| 47 | UP Update ERA Posted Us ing Paper EOB | |||||
| 48 | ZB Mark 0-Bal ance EFT M atched | |||||
| 49 | ||||||
| 50 | Select EDI Lockbox O ption: | |||||
| 51 | ||||||
| 52 | New behavi or when se lecting ER A WORKLIST option. | |||||
| 53 | Before the ERA Workl ist is dis played, th e user cur rently ans wers a num ber of sor ting/filte ring promp ts. Every time the u ser answer s all of t hese promp ts for the Worklist, they are prompted i f they wan t to save those answ ers as the ir preferr ed view fo r the Work list. Wit h this enh ancement, the user w ill now be asked an additional prompt (‘ Use prefer red view’ with a def ault on NO , see high lighted be low). How ever, this prompt wi ll only be shown if the user h as a prefe rred view on file fo r the Work list. If they do no t have a p referred v iew define d, the ‘us e preferre d view’ pr ompt will not be sho wn and the user will be prompt ed to ente r the sort ing/filter ing criter ia (and op tionally s ave it as their Work list prefe rred view) as before . If the user answe rs ‘NO’ to the new ‘ Use prefer red view’ prompt, th ey will be prompted to enter t he sorting /filtering criteria (and optio nally save it as the ir Worklis t preferre d view) as before. However, i f the user answers ‘ YES’ to th e ‘Use pre ferred vie w’ prompt, they will NOT be pr ompted to enter sort ing/filter ing criter ia for the Worklist. Instead, these val ues will b e taken fr om their W orklist pr eferred vi ew. | |||||
| 54 | Select EDI Lockbox O ption: WL ERA Workl ist | |||||
| 55 | ||||||
| 56 | DO YOU WAN T A (L)IST OF ERAs O R A (S)PEC IFIC ONE?: LIST// | |||||
| 57 | ||||||
| 58 | LIMIT THE SELECTION TO A DATE RANGE WHEN THE ERA W AS RECEIVE D?: NO// | |||||
| 59 | ||||||
| 60 | Use prefer red view? NO// | |||||
| 61 | ||||||
| 62 | Select par ameters fo r displayi ng the lis t of ERAs | |||||
| 63 | ||||||
| 64 | ERA POSTIN G STATUS: (U)NPOSTED , (P)OSTED , OR (B)OT H: U// NPO STED | |||||
| 65 | ||||||
| 66 | DISPLAY (A )UTO-POSTI NG, (N)ON AUTO-POSTI NG, OR (B) OTH: B// O TH | |||||
| 67 | ||||||
| 68 | ERA-EFT MA TCH STATUS : (N)OT MA TCHED, (M) ATCHED, OR (B)OTH: B // OTH | |||||
| 69 | ||||||
| 70 | (M)EDICAL, (P)HARMAC Y, OR (B)O TH: B// OT H | |||||
| 71 | ||||||
| 72 | (A)LL PAYE RS, (R)ANG E OF PAYER NAMES: A/ / LL | |||||
| 73 | ||||||
| 74 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | |||||
| 75 | ||||||
| 76 | The user i s presente d with the ERA Workl ist | |||||
| 77 | 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. | |||||
| 78 | ERA List - Worklist Oct 05, 20 16@11:38:2 9 Page: 1 of 1 | |||||
| 79 | SELECTED M ATCH STATU S: BOTH POST STAT US : U NPOSTED | |||||
| 80 | DATE RANG E: NONE SE LECTED AUTO-POST ING : B OTH | |||||
| 81 | ALL PAYERS PHARMACY/ MEDICAL: B OTH | |||||
| 82 | # ER A # Trace # | |||||
| 83 | PAYER NA ME/MATCH S TATUS ERA PA ID DT TOT AMT PAID DT REC'D | |||||
| 84 | 1 1 12345 | |||||
| 85 | 10/29/02 20.00 10/29/02 | |||||
| 86 | AN INSUR ANCE COMPA NY NAME APPROX # EEOBs: 1 | |||||
| 87 | MATCHED TO PAPER C HECK EFT RE CEIPT STAT US: NOT EN TERED | |||||
| 88 | ||||||
| 89 | 2 90 ABCDE | |||||
| 90 | 10/26/04 10.00 10/26/04 | |||||
| 91 | NM APPROX # EEOBs: 1 | |||||
| 92 | MATCHED N/A | |||||
| 93 | ||||||
| 94 | ||||||
| 95 | |'-' No sc ratch pad| 'x' EXC |' A' autopos t complete | |||||
| 96 | Select ERA View/Print ERA EXIT | |||||
| 97 | Sort L ist Change Vie w | |||||
| 98 | Select Act ion: Quit/ / | |||||
| 99 | ||||||
| 100 | ||||||
| 101 | The Change View acti on from th e ERA Work list | |||||
| 102 | When the u ser select s the acti on CHANGE VIEW (with in the ERA Worklist screen), t he user is currently prompted to select new sortin g/filterin g criteria . With th is enhance ment, a ne w prompt w ill be add ed (‘Use p referred v iew’ with a default of ‘NO’ – see highli ghted belo w) before selecting new sortin g/filterin g criteria . This new prompt wi ll ONLY di splay if t he user ha s a Workli st Preferr ed view de fined AND the curren t Worklist display i s NOT usin g the pref erred view criteria. If the n ew prompt is not dis played, th e user wil l be promp ted to ent er new sor ting/filte ring crite ria (and o ptionally save it as their Wor klist pref erred view ) and the Worklist w ill be red isplayed u sing the n ewly selec ted sortin g/filterin g criteria as before . If the user answe rs ‘NO’ to the ‘Use preferred view’ prom pt, they w ill be pro mpted to e nter new s orting/fil tering cri teria (and optionall y save it as their W orklist pr eferred vi ew) and th e Worklist will be r edisplayed using the newly sel ected sort ing/filter ing criter ia. If th e user ans wers ‘YES’ to the ‘U se preferr ed view’ p rompt, the y will NOT be prompt ed to ente r new sort ing/filter ing criter ia. Inste ad, the so rting/filt ering crit eria will be taken f rom the Wo rklist pre ferred vie w and the Worklist w ill be red isplayed u sing the n ewly selec ted sortin g/filterin g criteria . | |||||
| 103 | Select Act ion: Quit/ / change v iew Chan ge View | |||||
| 104 | ||||||
| 105 | Use prefer red view? NO// | |||||
| 106 | ||||||
| 107 | Select par ameters fo r displayi ng the lis t of ERAs | |||||
| 108 | ||||||
| 109 | ERA POSTIN G STATUS: (U)NPOSTED , (P)OSTED , OR (B)OT H: U// NPO STED | |||||
| 110 | ||||||
| 111 | DISPLAY (A )UTO-POSTI NG, (N)ON AUTO-POSTI NG, OR (B) OTH: B// O TH | |||||
| 112 | ||||||
| 113 | ERA-EFT MA TCH STATUS : (N)OT MA TCHED, (M) ATCHED, OR (B)OTH: B // OTH | |||||
| 114 | ||||||
| 115 | (M)EDICAL, (P)HARMAC Y, OR (B)O TH: B// OT H | |||||
| 116 | ||||||
| 117 | (A)LL PAYE RS, (R)ANG E OF PAYER NAMES: A/ / LL | |||||
| 118 | ||||||
| 119 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | |||||
| 120 | ||||||
| 121 | ||||||
| 122 | ||||||
| 123 | SCRATCH PA D | |||||
| 124 | The user s ees the Sc ratch Pad by first s electing E RA Worklis t from the EDI LOCKB OX menu an d then sel ecting an ERA from t he body of the Workl ist by usi ng the ‘Se lect ERA’ action. | |||||
| 125 | EDI Lockbo x | |||||
| 126 | ||||||
| 127 | EXC EDI Lockbo x 3rd Part y Exceptio ns | |||||
| 128 | WL ERA Workli st | |||||
| 129 | APAR Auto-Post Awaiting R esolution | |||||
| 130 | MA Automatic Match EFTs to ERAs | |||||
| 131 | MCR EEOB Move/ Copy/Remov e | |||||
| 132 | MM Manual Mat ch EFT-ERA | |||||
| 133 | MO Move ERA T otal To Su spense | |||||
| 134 | OEFT Unposted E FT Overrid e | |||||
| 135 | REFT Remove Dup licate EFT Deposits | |||||
| 136 | REM Remove ERA from Acti ve Worklis t | |||||
| 137 | REP EDI Lockbo x Reports Menu ... | |||||
| 138 | UN Unmatch An ERA | |||||
| 139 | UP Update ERA Posted Us ing Paper EOB | |||||
| 140 | ZB Mark 0-Bal ance EFT M atched | |||||
| 141 | ||||||
| 142 | Select EDI Lockbox O ption: | |||||
| 143 | ||||||
| 144 | ||||||
| 145 | ||||||
| 146 | New behavi or when ac cessing th e Scratch pad from t he ERA WOR KLIST opti on. | |||||
| 147 | Before the ERA Workl ist Scratc h Pad is d isplayed, the user c urrently a nswers a n umber of s orting/fil tering pro mpts. Ever y time the user answ ers all of these pro mpts for t he Scratch Pad, they are promp ted if the y want to save those answers a s their pr eferred vi ew for the Scratch P ad. With this enhan cement, th e user wil l now be a sked an ad ditional p rompt (‘Us e preferre d view’ wi th a defau lt on NO, see highli ghted belo w). Howev er, this p rompt will only be s hown if th e user has a preferr ed view on file for the Scratc h Pad. If they do n ot have a preferred view defin ed, the ‘u se preferr ed view’ p rompt will not be sh own and th e user wil l be promp ted to ent er the sor ting/filte ring crite ria (and o ptionally save it as their Scr atch Pad p referred v iew) as be fore. If the user a nswers ‘NO ’ to the n ew ‘Use pr eferred vi ew’ prompt , they wil l be promp ted to ent er the sor ting/filte ring crite ria (and o ptionally save it as their Scr atch prefe rred view) as before . However , if the u ser answer s ‘YES’ to the ‘Use preferred view’ prom pt, they w ill NOT be prompted to enter s orting/fil tering cri teria for the Scratc h Pad. In stead, the se values will be ta ken from t heir Scrat ch Pad pre ferred vie w. | |||||
| 148 | Select Act ion: Quit/ / SE Sel ect ERA | |||||
| 149 | Select #: (1-2): 1 | |||||
| 150 | ||||||
| 151 | THIS ERA A LREADY HAS A RECEIPT - YOU MAY ONLY VIEW ITS SCRAT CH PAD | |||||
| 152 | Press ENTE R to conti nue: | |||||
| 153 | ||||||
| 154 | Use prefer red view? NO// | |||||
| 155 | ||||||
| 156 | ORDER OF P AYMENT: (N )O ORDER, ZERO-PAYME NTS (F)IRS T, ZERO-PA YMENTS (L) AST: N// O | |||||
| 157 | ORDER | |||||
| 158 | ||||||
| 159 | DISPLAY FO R AUTO-POS TED ERAS: (U)NPOSTED EEOBs, (P )OSTED EEO Bs, OR (A) LL: U// NP | |||||
| 160 | OSTED | |||||
| 161 | ||||||
| 162 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | |||||
| 163 | ||||||
| 164 | ||||||
| 165 | ||||||
| 166 | The user i s presente d with the Scratch P ad. The se lected Sor ting/filte ring crite ria is dis played in the header under ‘Cu rrent View ’ as befor e. | |||||
| 167 | ||||||
| 168 | ||||||
| 169 | ||||||
| 170 | The Change View acti on from th e ERA Work list Scrat ch Pad | |||||
| 171 | When the u ser select s the acti on CHANGE VIEW (with in the ERA Worklist Scratch Pa d screen), the user is current ly prompte d to selec t new sort ing/filter ing criter ia. With this enhan cement, a new prompt will be a dded (‘Use preferred view’ wit h a defaul t of ‘NO’ – see high lighted be low) befor e selectin g new sort ing/filter ing criter ia. This n ew prompt will ONLY display if the user has a Scra tch Pad Pr eferred vi ew defined AND the c urrent Scr atch Pad d isplay is NOT using the prefer red view c riteria. If the new prompt is not displ ayed, the user will be prompte d to enter new sorti ng/filteri ng criteri a (and opt ionally sa ve it as t heir Scrat ch Pad pre ferred vie w) and the Scratch P ad will be redisplay ed using t he newly s elected so rting/filt ering crit eria as be fore. If the user a nswers ‘NO ’ to the ‘ Use prefer red view’ prompt, th ey will be prompted to enter n ew sorting /filtering criteria (and optio nally save it as the ir Scratch Pad prefe rred view) and the S cratch Pad will be r edisplayed using the newly sel ected sort ing/filter ing criter ia. If th e user ans wers ‘YES’ to the ‘U se preferr ed view’ p rompt, the y will NOT be prompt ed to ente r new sort ing/filter ing criter ia. Inste ad, the so rting/filt ering crit eria will be taken f rom the Sc ratch Pad preferred view and t he Scratch Pad will be redispl ayed using the newly selected sorting/fi ltering cr iteria. | |||||
| 172 | ||||||
| 173 | Use prefer red view? NO// | |||||
| 174 | ||||||
| 175 | ORDER OF P AYMENT: (N )O ORDER, ZERO-PAYME NTS (F)IRS T, ZERO-PA YMENTS (L) AST: N// O | |||||
| 176 | ORDER | |||||
| 177 | ||||||
| 178 | DISPLAY FO R AUTO-POS TED ERAS: (U)NPOSTED EEOBs, (P )OSTED EEO Bs, OR (A) LL: U// NP | |||||
| 179 | OSTED | |||||
| 180 | ||||||
| 181 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | |||||
| 182 | ||||||
| 183 | ||||||
| 184 | Auto-Post Awaiting R esolution (APAR) | |||||
| 185 | New behavi or when ac cessing th e APAR opt ion. | |||||
| 186 | Before the APAR Work list is di splayed, t he user cu rrently an swers a fi ltering pr ompt. Afte r the user selects a filtering option fo r the APAR , they are prompted to save th e answer a s their pr eferred vi ew for the APAR. Wi th this en hancement, the user will now b e asked an additiona l prompt ( ‘Use prefe rred view’ with a de fault on N O, see hig hlighted b elow). Ho wever, thi s prompt w ill only b e shown if the user has a pref erred view on file f or the APA R Worklist . If they do not ha ve a prefe rred view defined, t he ‘Use pr eferred vi ew’ prompt will not be shown a nd the use r will be prompted t o enter th e filterin g criteria (and opti onally sav e it as th eir APAR p referred v iew) as be fore. If the user a nswers ‘NO ’ to the n ew ‘Use pr eferred vi ew’ prompt , they wil l be promp ted to ent er the fil tering cri teria (and optionall y save it as their A PAR prefer red view) as before. However, if the us er answers ‘YES’ to the ‘Use p referred v iew’ promp t, they wi ll NOT be prompted t o enter fi ltering cr iteria for the APAR Worklist. Instead, the filter ing criter ia will be taken fro m their AP AR Worklis t preferre d view. | |||||
| 187 | ||||||
| 188 | EDI Lockbo x | |||||
| 189 | ||||||
| 190 | EXC EDI Lockbo x 3rd Part y Exceptio ns | |||||
| 191 | WL ERA Workli st | |||||
| 192 | APAR Auto-Post Awaiting R esolution | |||||
| 193 | MA Automatic Match EFTs to ERAs | |||||
| 194 | MCR EEOB Move/ Copy/Remov e | |||||
| 195 | MM Manual Mat ch EFT-ERA | |||||
| 196 | MO Move ERA T otal To Su spense | |||||
| 197 | OEFT Unposted E FT Overrid e | |||||
| 198 | REFT Remove Dup licate EFT Deposits | |||||
| 199 | REM Remove ERA from Acti ve Worklis t | |||||
| 200 | REP EDI Lockbo x Reports Menu ... | |||||
| 201 | UN Unmatch An ERA | |||||
| 202 | UP Update ERA Posted Us ing Paper EOB | |||||
| 203 | ZB Mark 0-Bal ance EFT M atched | |||||
| 204 | ||||||
| 205 | Select EDI Lockbox < TEST ACCOU NT> Option : APAR Au to-Post Aw aiting Res olution | |||||
| 206 | ||||||
| 207 | Use prefer red view? NO// | |||||
| 208 | ||||||
| 209 | (A)LL PAYE RS, (R)ANG E OF PAYER NAMES: A/ / LL | |||||
| 210 | ||||||
| 211 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | |||||
| 212 | ||||||
| 213 | The user i s presente d with the Auto Post – Await R esolution Worklist. The select ed filteri ng option is display ed in the header aft er the lab el ‘Curren t View’. | |||||
| 214 | ||||||
| 215 | AUTOPOST - AWAIT RES OLUTION Oct 05, 20 16@11:47:0 6 Page: 1 of 1 | |||||
| 216 | Current Vi ew: ALL PAYERS | |||||
| 217 | ||||||
| 218 | E RA#.Seq Claim # Po sted Amt Post Dat e Un-pos ted Bal | |||||
| 219 | Pa yer Name/I D . | |||||
| 220 | THERE ARE NO EEOBs M ATCHING YO UR SELECTI ON CRITERI A | |||||
| 221 | ||||||
| 222 | ||||||
| 223 | ||||||
| 224 | Enter ?? f or more ac tions | |||||
| 225 | Select EEOB View/Print ERA | |||||
| 226 | Change View Exit | |||||
| 227 | Select Act ion: Quit/ / | |||||
| 228 | ||||||
| 229 | The Change View acti on from th e APAR | |||||
| 230 | When the u ser select s the acti on CHANGE VIEW (with in the APA R Worklist screen), the user i s currentl y prompted to select new filte ring crite ria. With this enha ncement, a new promp t will be added (‘Us e preferre d view’ wi th a defau lt of ‘NO’ – see hig hlighted b elow) befo re selecti ng new fil tering cri teria. Thi s new prom pt will ON LY display if the us er has an APAR Prefe rred view defined AN D the curr ent APAR d isplay is NOT using the prefer red view c riteria. If the new prompt is not displ ayed, the user will be prompte d to enter new filte ring crite ria (and o ptionally save it as their APA R preferre d view) an d the APAR will be r edisplayed using the newly sel ected filt ering crit eria as be fore. If the user a nswers ‘NO ’ to the ‘ Use prefer red view’ prompt, th ey will be prompted to enter n ew filteri ng criteri a (and opt ionally sa ve it as t heir APAR preferred view) and the APAR w ill be red isplayed u sing the n ewly selec ted filter ing criter ia. If th e user ans wers ‘YES’ to the ‘U se preferr ed view’ p rompt, the y will NOT be prompt ed to ente r new filt ering crit eria. Ins tead, the filtering criteria w ill be tak en from th e APAR pre ferred vie w and the APAR will be redispl ayed using the newly selected filtering criteria. | |||||
| 231 | ||||||
| 232 | Select Act ion: Quit/ / CHANGE Change Vi ew | |||||
| 233 | ||||||
| 234 | Use prefer red view? NO// | |||||
| 235 | ||||||
| 236 | (A)LL PAYE RS, (R)ANG E OF PAYER NAMES: A/ / LL | |||||
| 237 | ||||||
| 238 | DO YOU WAN T TO SAVE THIS AS YO UR PREFERR ED VIEW (Y /N)? NO// | |||||
| 239 | ||||||
| 240 | ||||||
| 241 | Resoluti on – Added Changed O bjects | |||||
| 242 | ||||||
| 243 | Routines | |||||
| 244 | Activities | |||||
| 245 | Routine Na me | |||||
| 246 | RCDPEWL | |||||
| 247 | Enhancemen t Category | |||||
| 248 | New | |||||
| 249 | Modify | |||||
| 250 | Delete | |||||
| 251 | No Change | |||||
| 252 | RTM | |||||
| 253 | ||||||
| 254 | Related Op tions | |||||
| 255 | ||||||
| 256 | ||||||
| 257 | Related Ro utines | |||||
| 258 | Routines “ Called By” | |||||
| 259 | Routines “ Called” | |||||
| 260 | ||||||
| 261 | RCDPEAA3 | |||||
| 262 | RCDPEAP | |||||
| 263 | RCDPEWL0 | |||||
| 264 | RCDPEWL1 | |||||
| 265 | RCDPEWL2 | |||||
| 266 | RCDPEWL4 | |||||
| 267 | RCDPEWL5 | |||||
| 268 | RCDPEWL6 | |||||
| 269 | RCDPEWLB | |||||
| 270 | RCDPEWLP | |||||
| 271 | RCDPETTA1 | |||||
| 272 | ||||||
| 273 | RCDPEWL3@P ARAMS | |||||
| 274 | RCDPEWL3@P REA1 | |||||
| 275 | RCDPEWL1@B LD | |||||
| 276 | RCDPEWL7@W L | |||||
| 277 | RCDPEWLA@A DDLINES | |||||
| 278 | RCDPEWLA@P ARAMS | |||||
| 279 | ||||||
| 280 | ||||||
| 281 | ||||||
| 282 | Current Lo gic | |||||
| 283 | EN ; Main entry poin t N RCFAST XT,DA,DIC, X,Y,RCERA, RCNOED D F ULL^VALM1 ; S DIR(0) ="SA^L:LIS T;S:SPECIF IC",DIR("A ")="DO YOU WANT A (L )IST OF ER As OR A (S )PECIFIC O NE?: " S D IR("B")="L IST" W ! D ^DIR K DI R I $D(DTO UT)!$D(DUO UT) G ENQ I Y="S" D G ENQ . S DIC="^RCY (344.4,",D IC(0)="AEM Q" D ^DIC . I Y>0 D WL^RCDPEWL 7(+Y) ; Ca lling Chan ge View AP I in Menu Option Mod e D PARAMS ^RCDPEWL0( "MO") I $G (RCQUIT) G ENQ D EN^ VALM("RCDP E WORKLIST ERA LIST" ) ;ENQ Q ; | |||||
| 284 | . | |||||
| 285 | . | |||||
| 286 | . | |||||
| 287 | ||||||
| 288 | Modified L ogic (Chan ges are in bold) | |||||
| 289 | EN ; Main entry poin t N RCFAST XT,DA,DIC, X,Y,RCERA, RCNOED,RCQ UIT D FULL ^VALM1 ; S DIR(0)="S A^L:LIST;S :SPECIFIC" ,DIR("A")= "DO YOU WA NT A (L)IS T OF ERAs OR A (S)PE CIFIC ONE? : " S DIR( "B")="LIST " W ! D ^D IR K DIR I $D(DTOUT) !$D(DUOUT) G ENQ I Y ="S" D G ENQ . S DI C="^RCY(34 4.4,",DIC( 0)="AEMQ" D ^DIC . I Y>0 D WL^ RCDPEWL7(+ Y) ; Calli ng Change View API i n Menu Opt ion Mode D PARAMS^RC DPEWL0("MO ") I $G(RC QUIT) G EN Q D EN^VAL M("RCDPE W ORKLIST ER A LIST") ; ENQ Q ; | |||||
| 290 | . | |||||
| 291 | . | |||||
| 292 | . | |||||
| 293 | ||||||
| 294 | ||||||
| 295 | ||||||
| 296 | ||||||
| 297 | ||||||
| 298 | ||||||
| 299 | ||||||
| 300 | ||||||
| 301 | ||||||
| 302 | ||||||
| 303 | Routines | |||||
| 304 | Activities | |||||
| 305 | Routine Na me | |||||
| 306 | RCDPEWL0 | |||||
| 307 | Enhancemen t Category | |||||
| 308 | New | |||||
| 309 | Modify | |||||
| 310 | Delete | |||||
| 311 | No Change | |||||
| 312 | RTM | |||||
| 313 | ||||||
| 314 | Related Op tions | |||||
| 315 | ||||||
| 316 | Routines | |||||
| 317 | Activities | |||||
| 318 | Data Dicti onary (DD) Reference s | |||||
| 319 | ||||||
| 320 | Related Pr otocols | |||||
| 321 | ||||||
| 322 | Related In tegration Control Re gistration s (ICRs) | |||||
| 323 | ||||||
| 324 | Data Passi ng | |||||
| 325 | Input | |||||
| 326 | Output Re ference | |||||
| 327 | Both | |||||
| 328 | Global Re ference | |||||
| 329 | Local | |||||
| 330 | Input Attr ibute Name and Defin ition | |||||
| 331 | Name: | |||||
| 332 | Definition : | |||||
| 333 | Output Att ribute Nam e and Defi nition | |||||
| 334 | Name: | |||||
| 335 | Definition : | |||||
| 336 | ||||||
| 337 | Related Ro utines | |||||
| 338 | Routines “ Called By” | |||||
| 339 | Routines “ Called” | |||||
| 340 | ||||||
| 341 | RCDPEWL | |||||
| 342 | RCDPEWLP | |||||
| 343 | ||||||
| 344 | IBCECSA6@G ETEOB | |||||
| 345 | RCDPEARL@U P | |||||
| 346 | RCDPESR0@B ILLREF | |||||
| 347 | RCDPESR0@D ISP | |||||
| 348 | RCDPEWL@NO EDIT | |||||
| 349 | RCDPEWL@SE L | |||||
| 350 | RCDPEWL1@P NM4 | |||||
| 351 | RCDPEWL3@S PLIT | |||||
| 352 | RCDPEWLP@P HARM | |||||
| 353 | RCDPEWLP@N OEDIT | |||||
| 354 | RCDPEX31@T XT0 | |||||
| 355 | RCDPEX31@T XT00 | |||||
| 356 | RCDPEX31@T XT2 | |||||
| 357 | ||||||
| 358 | ||||||
| 359 | ||||||
| 360 | Current Lo gic | |||||
| 361 | RCDPEWL0 ; ALB/TMK/PJ H - ELECTR ONIC EOB W ORKLIST AC TIONS ;Jun 06, 2014@ 19:11:19 ; ;4.5;Accou nts Receiv able;**173 ,208,252,2 69,298**;M ar 20, 199 5;Build 12 1 ;Per VA Directive 6402, this routine s hould not be modifie d. Q ;PARA MS(SOURCE) ; Retriev e/Edit/Sav e View Par ameters fo r ERA Work list ; Inp ut: SOURCE : "MO" - M enu Option / "CV" - Change Vie w ;Output: ^TMP("RCE RA_PARAMS" ,$J,"RCPOS T"): ERA P osting Sta tus ("P":P osted/"U": Unposted) ; ^TMP("RC ERA_PARAMS ",$J,"RCAU TOP"): Aut o-Posting Status ("A ":Auto-Pos ting/"N":N on Auto-Po sting/"B": Both) ; ^T MP("RCERA_ PARAMS",$J ,"RCMATCH" ): ERA Mat ching Stat us ("M":Ma tched/"U": Unmatched) ; ^TMP("R CERA_PARAM S",$J,"RCT YPE"): ERA Claim Typ e ("M":Med ical/"P":P harmacy/"B ":Both) ; ^TMP("RCER A_PARAMS", $J,"RCDT") p1: ERA Re ceived EAR ILIST DATE (Range Li mited Only ) ; ^TMP(" RCERA_PARA MS",$J,"RC DT")p2: ER A Received LATEST DA TE (Range Limited On ly) ; ^TMP ("RCERA_PA RAMS",$J," RCPAYR")p1 : All Paye rs/Range o f Payers ( "A": All/" R":Range o f Payers) ; ^TMP("RC ERA_PARAMS ",$J,"RCPA YR")p2: ST ART WITH P AYER (e.g. ,'AET') (R ange Limit ed Only) ; ^TMP("RCE RA_PARAMS" ,$J,"RCPAY R")p3: GO TO PAYER ( e.g.,'AETZ ') (Range Limited On ly) ; Or R CQUIT=1 N DIR,DTOUT, DUOUT,RCAU TOPDF,RCDF R,RCDTO,RC ERROR,RCMA TCHD,RCPAY R,RCPAYRDF ,RCPOSTDF, RCTYPEDF,R CXPAR,X,Y ; S RCQUIT =0 ; ; Dat e Range Se lection I SOURCE="MO " D I $G( RCQUIT) G PARAMSQ . K ^TMP("RC ERA_PARAMS ",$J) D DT R ; ; Retr ieving use r's saved parameters (If found , Quit) I SOURCE="MO " D I $G( RCXPAR("ER A_POSTING_ STATUS"))' ="" G PARA MSQ . D GE TLST^XPAR( .RCXPAR,"U SR","RCDPE EDI LOCKB OX WORKLIS T","I") . S ^TMP("RC ERA_PARAMS ",$J,"RCPO ST")=$S($G (RCXPAR("E RA_POSTING _STATUS")) '="":RCXPA R("ERA_POS TING_STATU S"),1:"U") . S ^TMP( "RCERA_PAR AMS",$J,"R CAUTOP")=$ S($G(RCXPA R("ERA_AUT O_POSTING" ))'="":RCX PAR("ERA_A UTO_POSTIN G"),1:"B") . S ^TMP( "RCERA_PAR AMS",$J,"R CMATCH")=$ S($G(RCXPA R("ERA-EFT _MATCH_STA TUS"))'="" :RCXPAR("E RA-EFT_MAT CH_STATUS" ),1:"B") . S ^TMP("R CERA_PARAM S",$J,"RCT YPE")=$S($ G(RCXPAR(" ERA_CLAIM_ TYPE"))'=" ":RCXPAR(" ERA_CLAIM_ TYPE"),1:" B") . S ^T MP("RCERA_ PARAMS",$J ,"RCPAYR") =$S($G(RCX PAR("ALL_P AYERS/RANG E_OF_PAYER S"))'="":$ TR(RCXPAR( "ALL_PAYER S/RANGE_OF _PAYERS"), ";","^"),1 :"A") ; W !!,"Select parameter s for disp laying the list of E RAs" ; ; E RA Posting Status (P osted/Unpo sted/Both) Selection S RCPOSTD F=$G(^TMP( "RCERA_PAR AMS",$J,"R CPOST")) K DIR S DIR (0)="SA^U: UNPOSTED;P :POSTED;B: BOTH",DIR( "A")="ERA POSTING ST ATUS: (U)N POSTED, (P )OSTED, OR (B)OTH: " S DIR("B" )="U" S:RC POSTDF'="" DIR("B")= RCPOSTDF W ! D ^DIR I $D(DTOUT )!$D(DUOUT ) S RCQUIT =1 G PARAM SQ S ^TMP( "RCERA_PAR AMS",$J,"R CPOST")=Y ; ; ERA Po sting Meth od (Auto-P osting/Non Auto-Post ing/Both) Selection S RCAUTOPD F=$G(^TMP( "RCERA_PAR AMS",$J,"R CAUTOP")) K DIR S DI R(0)="SA^A :AUTO-POST ING;N:NON AUTO-POSTI NG;B:BOTH" S DIR("A" )="DISPLAY (A)UTO-PO STING, (N) ON AUTO-PO STING, OR (B)OTH: " S DIR("B") ="B" S:RCA UTOPDF'="" DIR("B")= RCAUTOPDF W ! D ^DIR I $D(DTOU T)!$D(DUOU T) S RCQUI T=1 G PARA MSQ S ^TMP ("RCERA_PA RAMS",$J," RCAUTOP")= Y ; ; ERA- EFT Matchi ng Status( Matched/Un matched/Bo th) Select ion S RCMA TCHD=$G(^T MP("RCERA_ PARAMS",$J ,"RCMATCH" )) K DIR S DIR(0)="S A^N:NOT MA TCHED;M:MA TCHED;B:BO TH" S DIR( "A")="ERA- EFT MATCH STATUS: (N )OT MATCHE D, (M)ATCH ED, OR (B) OTH: " S D IR("B")="B " S:RCMATC HD'="" DIR ("B")=RCMA TCHD W ! D ^DIR I $D (DTOUT)!$D (DUOUT) S RCQUIT=1 G PARAMSQ S ^TMP("RCE RA_PARAMS" ,$J,"RCMAT CH")=Y ; ; Claim Typ e (Medical /Pharmacy/ Both) Sele ction S RC TYPEDF=$G( ^TMP("RCER A_PARAMS", $J,"RCTYPE ")) K DIR S DIR(0)=" SA^M:MEDIC AL;P:PHARM ACY;B:BOTH " s DIR("A ")="(M)EDI CAL, (P)HA RMACY, OR (B)OTH: " S DIR("B") ="B" S:RCT YPEDF'="" DIR("B")=R CTYPEDF W ! D ^DIR I $D(DTOUT) !$D(DUOUT) S RCQUIT= 1 G PARAMS Q S ^TMP(" RCERA_PARA MS",$J,"RC TYPE")=Y ; PAYR ; Pay er Selecti on S RCPAY RDF=$G(^TM P("RCERA_P ARAMS",$J, "RCPAYR")) K DIR S R CQUIT=0,DI R(0)="SA^A :ALL;R:RAN GE",DIR("A ")="(A)LL PAYERS, (R )ANGE OF P AYER NAMES : " S DIR( "B")="ALL" S:$P(RCPA YRDF,"^")' ="" DIR("B ")=$P(RCPA YRDF,"^") W ! D ^DIR I $D(DTOU T)!$D(DUOU T) S RCQUI T=1 G PARA MSQ S RCPA YR=Y I RCP AYR="A" S ^TMP("RCER A_PARAMS", $J,"RCPAYR ")=Y I RCP AYR="R" D I RCQUIT K ^TMP("RC ERA_PARAMS ",$J,"RCPA YR") G PAY R . W !,"N ames you s elect here will be t he payer n ames from the ERA, n ot the ins . file" . K DIR S DI R("?")="En ter a name from 1 to 30 charac ters in UP PER CASE." . S DIR(0 )="FA^1:30 ^K:X'?.U X ",DIR("A") ="START WI TH PAYER N AME: " . S :$P(RCPAYR DF,"^",2)' ="" DIR("B ")=$P(RCPA YRDF,"^",2 ) . W ! D ^DIR I $D( DTOUT)!$D( DUOUT) S R CQUIT=1 Q . S RCPAYR ("FROM")=Y . K DIR S DIR("?")= "Enter a n ame from 1 to 30 cha racters in UPPER CAS E." . S DI R(0)="FA^1 :30^K:X'?. U X",DIR(" A")="GO TO PAYER NAM E: ",DIR(" B")=$E(RCP AYR("FROM" ),1,27)_"Z ZZ" . S:$P (RCPAYRDF, "^",3)'="" DIR("B")= $P(RCPAYRD F,"^",3) . W ! D ^DI R I $D(DTO UT)!$D(DUO UT) S RCQU IT=1 Q . S ^TMP("RCE RA_PARAMS" ,$J,"RCPAY R")=RCPAYR _"^"_RCPAY R("FROM")_ "^"_Y ; ; Option to save as Us er Preferr ed View K DIR W ! S DIR(0)="YA ",DIR("B") ="NO",DIR( "A")="DO Y OU WANT TO SAVE THIS AS YOUR P REFERRED V IEW (Y/N)? " D ^DIR I Y=1 D . D EN^XPAR( DUZ_";VA(2 00,","RCDP E EDI LOCK BOX WORKLI ST","ERA_P OSTING_STA TUS",^TMP( "RCERA_PAR AMS",$J,"R CPOST"),.R CERROR) . D EN^XPAR( DUZ_";VA(2 00,","RCDP E EDI LOCK BOX WORKLI ST","ERA_A UTO_POSTIN G",^TMP("R CERA_PARAM S",$J,"RCA UTOP"),.RC ERROR) . D EN^XPAR(D UZ_";VA(20 0,","RCDPE EDI LOCKB OX WORKLIS T","ERA-EF T_MATCH_ST ATUS",^TMP ("RCERA_PA RAMS",$J," RCMATCH"), .RCERROR) . D EN^XPA R(DUZ_";VA (200,","RC DPE EDI LO CKBOX WORK LIST","ERA _CLAIM_TYP E",^TMP("R CERA_PARAM S",$J,"RCT YPE"),.RCE RROR) . D EN^XPAR(DU Z_";VA(200 ,","RCDPE EDI LOCKBO X WORKLIST ","ALL_PAY ERS/RANGE_ OF_PAYERS" ,$TR(^TMP( "RCERA_PAR AMS",$J,"R CPAYR"),"^ ",";"),.RC ERROR) ;PA RAMSQ ; Qu it Q ;DTR ; Date Ran ge Selecti on N DIR,D TOUT,DUOUT ,Y,FROM,TO ,RCDTRNG S ^TMP("RCE RA_PARAMS" ,$J,"RCDT" )="0^"_DT K DIR S DI R(0)="YA", DIR("A")=" LIMIT THE SELECTION TO A DATE RANGE WHEN THE ERA W AS RECEIVE D?: " S RC QUIT=0,DIR ("B")="NO" W ! D ^DI R I $D(DTO UT)!$D(DUO UT) S RCQU IT=1 Q I Y D I $G(R CQUIT) G D TR . S FRO M=$P($G(^T MP("RCERA_ PARAMS",$J ,"RCDT")), "^",1),TO= $P($G(^TMP ("RCERA_PA RAMS",$J," RCDT")),"^ ",2) . W ! S RCDTRNG =$$DTRANGE (FROM,TO) I RCDTRNG= "^" S RCQU IT=1 Q . S ^TMP("RCE RA_PARAMS" ,$J,"RCDT" )=RCDTRNG Q ;DTRANGE (DEFFROM,D EFTO) ; As ks for and returns a Date Rang e ; Input: DEFFROM - Default F ROM date ; DEFTO - D efault TO date ;Outp ut: From_D ate^To_Dat e (YYYMMDD ^YYYDDMM) or "^" (ti meout or ^ entered) ; N DIR,Y, DTOUT,DUOU T,RCDFR S RCQUIT=0 S DIR(0)="D AE^:"_DT_" :E",DIR("A ")="EARLIE ST DATE: " S:($G(DEF FROM)) DIR ("B")=$$FM TE^XLFDT(D EFFROM,2) D ^DIR I $ D(DTOUT)!$ D(DUOUT) Q "^" S RCD FR=Y K DIR S DIR(0)= "DAE^"_RCD FR_":"_DT_ ":E",DIR(" A")="LATES T DATE: " S:($G(DEFT O)) DIR("B ")=$$FMTE^ XLFDT(DEFT O,2) D ^DI R I $D(DTO UT)!$D(DUO UT) Q "^" Q (RCDFR_" ^"_Y) ; | |||||
| 362 | . | |||||
| 363 | . | |||||
| 364 | . | |||||
| 365 | ||||||
| 366 | ||||||
| 367 | ||||||
| 368 | ||||||
| 369 | ||||||
| 370 | ||||||
| 371 | Modified L ogic (Chan ges are in bold) | |||||
| 372 | RCDPEWL0 ; ALB/TMK/PJ H - ELECTR ONIC EOB W ORKLIST AC TIONS ;Jun 06, 2014@ 19:11:19 ; ;4.5;Accou nts Receiv able;**173 ,208,252,2 69,298**;M ar 20, 199 5;Build 12 1 ;Per VA Directive 6402, this routine s hould not be modifie d. Q ;PARA MS(SOURCE) ; Retriev e/Edit/Sav e View Par ameters fo r ERA Work list ; Inp ut: SOURCE : "MO" - M enu Option / "CV" - Change Vie w ;Output: ^TMP("RCE RA_PARAMS" ,$J,"RCPOS T"): ERA P osting Sta tus ("P":P osted/"U": Unposted) ; ^TMP("RC ERA_PARAMS ",$J,"RCAU TOP"): Aut o-Posting Status ("A ":Auto-Pos ting/"N":N on Auto-Po sting/"B": Both) ; ^T MP("RCERA_ PARAMS",$J ,"RCMATCH" ): ERA Mat ching Stat us ("M":Ma tched/"U": Unmatched) ; ^TMP("R CERA_PARAM S",$J,"RCT YPE"): ERA Claim Typ e ("M":Med ical/"P":P harmacy/"B ":Both) ; ^TMP("RCER A_PARAMS", $J,"RCDT") p1: ERA Re ceived EAR ILIST DATE (Range Li mited Only ) ; ^TMP(" RCERA_PARA MS",$J,"RC DT")p2: ER A Received LATEST DA TE (Range Limited On ly) ; ^TMP ("RCERA_PA RAMS",$J," RCPAYR")p1 : All Paye rs/Range o f Payers ( "A": All/" R":Range o f Payers) ; ^TMP("RC ERA_PARAMS ",$J,"RCPA YR")p2: ST ART WITH P AYER (e.g. ,'AET') (R ange Limit ed Only) ; ^TMP("RCE RA_PARAMS" ,$J,"RCPAY R")p3: GO TO PAYER ( e.g.,'AETZ ') (Range Limited On ly) ; Or R CQUIT=1 N DIR,DTOUT, DUOUT,RCAU TOPDF,RCDF R,RCDTO,RC ERROR,RCMA TCHD,RCPAY R,RCPAYRDF ,RCPOSTDF, RCTYPEDF,R CXPAR,USEP VW,X,Y ;PRCA*4.5* 317 Added USEPVW ; S RCQUIT=0 ; ; Date R ange Selec tion I SOU RCE="MO" D I $G(RCQ UIT) G PAR AMSQ . K ^ TMP("RCERA _PARAMS",$ J) D DTR ; ; Retriev ing user's saved par ameters (I f found, Q uit) I SOU RCE="MO" D I $G(RCX PAR("ERA_P OSTING_STA TUS"))'="" G PARAMSQ D:SOURCE= "MO" GETWL PVW(1,.RCX PAR) | |||||
| 373 | ; ; Retri eve user's saved pre ferred vie w (If any) D:SOURCE= "MO" GETWL PVW(.RCXPA R) | |||||
| 374 | ; ; Check to see if the user has a pref erred view and this subroutine is being ; called w hen enteri ng from th e menu opt ion OR bei ng called from the C hange ; Vi ew action AND the cu rrent Work list is no t using th e preferre d view Cri teria. I $ $PREFVW(SO URCE,.RCXP AR) D Q:U SEPVW . ; . ; Ask th e user if they want to use the preferred view . S USEPVW=$$A SKUVW() . Q:'USEPVW . ; . ; Se t the Sort /Filtering Criteria from the p referred v iew . D U SEPVW(.RCX PAR) ; | |||||
| 375 | W !!,"Sel ect parame ters for d isplaying the list o f ERAs" ; ; ERA Post ing Status (Posted/U nposted/Bo th) Select ion S RCPO STDF=$G(^T MP("RCERA_ PARAMS",$J ,"RCPOST") ) K DIR S DIR(0)="SA ^U:UNPOSTE D;P:POSTED ;B:BOTH",D IR("A")="E RA POSTING STATUS: ( U)NPOSTED, (P)OSTED, OR (B)OTH : " S DIR( "B")="U" S :RCPOSTDF' ="" DIR("B ")=RCPOSTD F W ! D ^D IR I $D(DT OUT)!$D(DU OUT) S RCQ UIT=1 G PA RAMSQ S ^T MP("RCERA_ PARAMS",$J ,"RCPOST") =Y ; ; ERA Posting M ethod (Aut o-Posting/ Non Auto-P osting/Bot h) Selecti on S RCAUT OPDF=$G(^T MP("RCERA_ PARAMS",$J ,"RCAUTOP" )) K DIR S DIR(0)="S A^A:AUTO-P OSTING;N:N ON AUTO-PO STING;B:BO TH" S DIR( "A")="DISP LAY (A)UTO -POSTING, (N)ON AUTO -POSTING, OR (B)OTH: " S DIR(" B")="B" S: RCAUTOPDF' ="" DIR("B ")=RCAUTOP DF W ! D ^ DIR I $D(D TOUT)!$D(D UOUT) S RC QUIT=1 G P ARAMSQ S ^ TMP("RCERA _PARAMS",$ J,"RCAUTOP ")=Y ; ; E RA-EFT Mat ching Stat us(Matched /Unmatched /Both) Sel ection S R CMATCHD=$G (^TMP("RCE RA_PARAMS" ,$J,"RCMAT CH")) K DI R S DIR(0) ="SA^N:NOT MATCHED;M :MATCHED;B :BOTH" S D IR("A")="E RA-EFT MAT CH STATUS: (N)OT MAT CHED, (M)A TCHED, OR (B)OTH: " S DIR("B") ="B" S:RCM ATCHD'="" DIR("B")=R CMATCHD W ! D ^DIR I $D(DTOUT) !$D(DUOUT) S RCQUIT= 1 G PARAMS Q S ^TMP(" RCERA_PARA MS",$J,"RC MATCH")=Y ; ; Claim Type (Medi cal/Pharma cy/Both) S election S RCTYPEDF= $G(^TMP("R CERA_PARAM S",$J,"RCT YPE")) K D IR S DIR(0 )="SA^M:ME DICAL;P:PH ARMACY;B:B OTH" s DIR ("A")="(M) EDICAL, (P )HARMACY, OR (B)OTH: " S DIR(" B")="B" S: RCTYPEDF'= "" DIR("B" )=RCTYPEDF W ! D ^DI R I $D(DTO UT)!$D(DUO UT) S RCQU IT=1 G PAR AMSQ S ^TM P("RCERA_P ARAMS",$J, "RCTYPE")= Y ;PAYR ; Payer Sele ction S RC PAYRDF=$G( ^TMP("RCER A_PARAMS", $J,"RCPAYR ")) K DIR S RCQUIT=0 ,DIR(0)="S A^A:ALL;R: RANGE",DIR ("A")="(A) LL PAYERS, (R)ANGE O F PAYER NA MES: " S D IR("B")="A LL" S:$P(R CPAYRDF,"^ ")'="" DIR ("B")=$P(R CPAYRDF,"^ ") W ! D ^ DIR I $D(D TOUT)!$D(D UOUT) S RC QUIT=1 G P ARAMSQ S R CPAYR=Y I RCPAYR="A" S ^TMP("R CERA_PARAM S",$J,"RCP AYR")=Y I RCPAYR="R" D I RCQU IT K ^TMP( "RCERA_PAR AMS",$J,"R CPAYR") G PAYR . W ! ,"Names yo u select h ere will b e the paye r names fr om the ERA , not the ins. file" . K DIR S DIR("?")= "Enter a n ame from 1 to 30 cha racters in UPPER CAS E." . S DI R(0)="FA^1 :30^K:X'?. U X",DIR(" A")="START WITH PAYE R NAME: " . S:$P(RCP AYRDF,"^", 2)'="" DIR ("B")=$P(R CPAYRDF,"^ ",2) . W ! D ^DIR I $D(DTOUT)! $D(DUOUT) S RCQUIT=1 Q . S RCP AYR("FROM" )=Y . K DI R S DIR("? ")="Enter a name fro m 1 to 30 characters in UPPER CASE." . S DIR(0)="F A^1:30^K:X '?.U X",DI R("A")="GO TO PAYER NAME: ",DI R("B")=$E( RCPAYR("FR OM"),1,27) _"ZZZ" . S :$P(RCPAYR DF,"^",3)' ="" DIR("B ")=$P(RCPA YRDF,"^",3 ) . W ! D ^DIR I $D( DTOUT)!$D( DUOUT) S R CQUIT=1 Q . S ^TMP(" RCERA_PARA MS",$J,"RC PAYR")=RCP AYR_"^"_RC PAYR("FROM ")_"^"_Y ; ; Option to save as User Pref erred View K DIR W ! S DIR(0)= "YA",DIR(" B")="NO",D IR("A")="D O YOU WANT TO SAVE T HIS AS YOU R PREFERRE D VIEW (Y/ N)? " D ^D IR I Y=1 D . D EN^XP AR(DUZ_";V A(200,","R CDPE EDI L OCKBOX WOR KLIST","ER A_POSTING_ STATUS",^T MP("RCERA_ PARAMS",$J ,"RCPOST") ,.RCERROR) . D EN^XP AR(DUZ_";V A(200,","R CDPE EDI L OCKBOX WOR KLIST","ER A_AUTO_POS TING",^TMP ("RCERA_PA RAMS",$J," RCAUTOP"), .RCERROR) . D EN^XPA R(DUZ_";VA (200,","RC DPE EDI LO CKBOX WORK LIST","ERA -EFT_MATCH _STATUS",^ TMP("RCERA _PARAMS",$ J,"RCMATCH "),.RCERRO R) . D EN^ XPAR(DUZ_" ;VA(200,", "RCDPE EDI LOCKBOX W ORKLIST"," ERA_CLAIM_ TYPE",^TMP ("RCERA_PA RAMS",$J," RCTYPE"),. RCERROR) . D EN^XPAR (DUZ_";VA( 200,","RCD PE EDI LOC KBOX WORKL IST","ALL_ PAYERS/RAN GE_OF_PAYE RS",$TR(^T MP("RCERA_ PARAMS",$J ,"RCPAYR") ,"^",";"), .RCERROR) ;PARAMSQ ; Quit Q ;D TR ; Date Range Sele ction N DI R,DTOUT,DU OUT,Y,FROM ,TO,RCDTRN G S ^TMP(" RCERA_PARA MS",$J,"RC DT")="0^"_ DT K DIR S DIR(0)="Y A",DIR("A" )="LIMIT T HE SELECTI ON TO A DA TE RANGE W HEN THE ER A WAS RECE IVED?: " S RCQUIT=0, DIR("B")=" NO" W ! D ^DIR I $D( DTOUT)!$D( DUOUT) S R CQUIT=1 Q I Y D I $ G(RCQUIT) G DTR . S FROM=$P($G (^TMP("RCE RA_PARAMS" ,$J,"RCDT" )),"^",1), TO=$P($G(^ TMP("RCERA _PARAMS",$ J,"RCDT")) ,"^",2) . W ! S RCDT RNG=$$DTRA NGE(FROM,T O) I RCDTR NG="^" S R CQUIT=1 Q . S ^TMP(" RCERA_PARA MS",$J,"RC DT")=RCDTR NG Q ;DTRA NGE(DEFFRO M,DEFTO) ; Asks for and return s a Date R ange ; Inp ut: DEFFRO M - Defaul t FROM dat e ; DEFTO - Default TO date ;O utput: Fro m_Date^To_ Date (YYYM MDD^YYYDDM M) or "^" (timeout o r ^ entere d) ; N DIR ,Y,DTOUT,D UOUT,RCDFR S RCQUIT= 0 S DIR(0) ="DAE^:"_D T_":E",DIR ("A")="EAR LIEST DATE : " S:($G( DEFFROM)) DIR("B")=$ $FMTE^XLFD T(DEFFROM, 2) D ^DIR I $D(DTOUT )!$D(DUOUT ) Q "^" S RCDFR=Y K DIR S DIR( 0)="DAE^"_ RCDFR_":"_ DT_":E",DI R("A")="LA TEST DATE: " S:($G(D EFTO)) DIR ("B")=$$FM TE^XLFDT(D EFTO,2) D ^DIR I $D( DTOUT)!$D( DUOUT) Q " ^" Q (RCDF R_"^"_Y) ; | |||||
| 376 | GETWLPVW(R CXPAR) ; R etrieves t he preferr ed view se ttings for the ERA w orklist ; for the us er ; Input : None ; O utput: RCX PAR() - Ar ray of pre ferred vie w sort/fil ter criter ia ; ^TMP( "RCERA_PAR AMS,$) - G lobal arra y of prefe rred view settings N XX D GETL ST^XPAR(.R CXPAR,"USR ","RCDPE E DI LOCKBOX WORKLIST" ,"I") S XX =$G(RCXPAR ("ERA_POST ING_STATUS ")) S ^TMP ("RCERA_PA RAMS",$J," RCPOST")=$ S(XX'="":X X,1:"U") S XX=$G(RCX PAR("ERA_A UTO_POSTIN G")) S ^TM P("RCERA_P ARAMS",$J, "RCAUTOP") =$S(XX'="" :XX,1:"B") S XX=$G(R CXPAR("ERA -EFT_MATCH _STATUS")) S ^TMP("R CERA_PARAM S",$J,"RCM ATCH")=$S( XX'="":XX, 1:"B") S X X=$G(RCXPA R("ERA_CLA IM_TYPE")) S ^TMP("R CERA_PARAM S",$J,"RCT YPE")=$S(X X'="":XX,1 :"B") S XX =$G(RCXPAR ("ALL_PAYE RS/RANGE_O F_PAYERS") ) S ^TMP(" RCERA_PARA MS",$J,"RC PAYR")=$S( XX'="":$TR (XX,";","^ "),1:"A") Q ;PREFVW( SOURCE,RCX PAR) ; Che cks to see if the us er has a p referred v iew ; PRCA *4.5*317 a dded subro utine ; Wh en source is 'CV', c hecks to s ee if the preferred view is be ing used ; Input: SO URCE - 'MO ' - When c alled from the Workl ist menu ; option ; 'CV' - Whe n called f rom the Ch ange View ; action ; RCXPAR - Array of p referred v iew values ; ^TMP("R CERA_PARAM S") - Glob al array o f currentl y in use d efaults ; Returns: 1 - User ha s preferre d view if SOURCE is 'MO' or is using ; t heir prefe rred view if SOURCE is 'CV' ; 0 - User d oes not ha ve preferr ed view or is not us ing it I S OURCE="MO" Q $S($D(R CXPAR("ERA _POSTING_S TATUS")):1 ,1:0) Q:'$ D(RCXPAR(" ERA_POSTIN G_STATUS") ) 0 ; No s tored pref erred view Q:$G(^TMP ("RCERA_PA RAMS",$J," RCPOST"))' =$G(RCXPAR ("ERA_POST ING_STATUS ")) 0 Q:$G (^TMP("RCE RA_PARAMS" ,$J,"RCAUT OP"))'=$G( RCXPAR("ER A_AUTO_POS TING")) 0 Q:$G(^TMP( "RCERA_PAR AMS",$J,"R CMATCH"))' =$G(RCXPAR ("ERA-EFT_ MATCH_STAT US")) 0 Q: $G(^TMP("R CERA_PARAM S",$J,"RCT YPE"))'=$G (RCXPAR("E RA_CLAIM_T YPE")) 0 Q :$G(^TMP(" RCERA_PARA MS",$J,"RC PAYR"))'=$ G(RCXPAR(" ALL_PAYERS /RANGE_OF_ PAYERS")) 0 Q ;ASKUV W() ; Prom pts the us er to see if they wa nt to use their pref erred view ; PRCA*4. 5*317 adde d function ; Input: None ; Ret urns: 1 - User wants to use th eir prefer red view ; 0 - User does not w ant to use their pre ferred vie w ; -1 - U ser typed '^' N DIR, DTOUT,DUOU T S DIR(0) ="Y" S DIR ("A")="Use preferred view? " S DIR("B")= "N" W ! D ^DIR I $D( DTOUT)!$D( DUOUT) Q 1 Q:Y="Y" 1 Q 0 ;USEP VW(RCXPAR) ; Set the worklist settings f rom the pr eferred vi ew ; PRCA* 4.5*317 ad ded functi on ; Input : RCXPAR - Array of preferred values (if any) ; Ou tput: ^TMP ("RCERA_PA RAMS") - G lobal Arra y of curre nt worklis t settings S ^TMP("R CERA_PARAM S",$J,"RCP OST")=$G(R CXPAR("ERA _POSTING_S TATUS")) S ^TMP("RCE RA_PARAMS" ,$J,"RCAUT OP")=$G(RC XPAR("ERA_ AUTO_POSTI NG")) S ^T MP("RCERA_ PARAMS",$J ,"RCMATCH" )=$G(RCXPA R("ERA-EFT _MATCH_STA TUS")) S ^ TMP("RCERA _PARAMS",$ J,"RCTYPE" )=$G(RCXPA R("ERA_CLA IM_TYPE")) S ^TMP("R CERA_PARAM S",$J,"RCP AYR")=$G(R CXPAR("ALL _PAYERS/RA NGE_OF_PAY ERS")) Q ; | |||||
| 377 | . | |||||
| 378 | . | |||||
| 379 | . | |||||
| 380 | ||||||
| 381 | ||||||
| 382 | Routines | |||||
| 383 | Activities | |||||
| 384 | Routine Na me | |||||
| 385 | RCDPEWLA | |||||
| 386 | Enhancemen t Category | |||||
| 387 | New | |||||
| 388 | Modify | |||||
| 389 | Delete | |||||
| 390 | No Change | |||||
| 391 | RTM | |||||
| 392 | ||||||
| 393 | Related Op tions | |||||
| 394 | ||||||
| 395 | Routines | |||||
| 396 | Activities | |||||
| 397 | Data Dicti onary (DD) Reference s | |||||
| 398 | ||||||
| 399 | Related Pr otocols | |||||
| 400 | ||||||
| 401 | Related In tegration Control Re gistration s (ICRs) | |||||
| 402 | ||||||
| 403 | Data Passi ng | |||||
| 404 | Input | |||||
| 405 | Output Re ference | |||||
| 406 | Both | |||||
| 407 | Global Re ference | |||||
| 408 | Local | |||||
| 409 | Input Attr ibute Name and Defin ition | |||||
| 410 | Name: | |||||
| 411 | Definition : | |||||
| 412 | Output Att ribute Nam e and Defi nition | |||||
| 413 | Name: | |||||
| 414 | Definition : | |||||
| 415 | ||||||
| 416 | Related Ro utines | |||||
| 417 | Routines “ Called By” | |||||
| 418 | Routines “ Called” | |||||
| 419 | ||||||
| 420 | RCDPEWL | |||||
| 421 | ||||||
| 422 | RCDPEV@VER | |||||
| 423 | ||||||
| 424 | ||||||
| 425 | ||||||
| 426 | ||||||
| 427 | Current Lo gic | |||||
| 428 | . | |||||
| 429 | . | |||||
| 430 | . | |||||
| 431 | PARAMS(SOU RCE) ; Ret rieve/Edit /Save View Parameter s for EEOB Scratchpa d Worklist ; Input: SOURCE: "M O" - Menu Option / " CV" - Chan ge View ;O utput: ^TM P("RC_SORT PARM",$J): Order of Payment (" N":No Orde r/"F":Zero -Payments First/"L": Zero-Payme nts Last) ; ^TMP("RC _EEOBPOST" ,$J): EEOB Posting S tatus ("P" :Posted/"U ":Unposted /"B":Both) ; Or RCQU IT=1 N DIR ,X,Y,DUOUT ,DTOUT,RCP OSTDF,F,RC XPAR,RCERR OR ; D GET LST^XPAR(. RCXPAR,"US R","RCDPE EDI LOCKBO X WORKLIST ","I") S R CQUIT=0 ; ; Setting ^TMP with user's sav ed paramet ers or Sys tem defaul ts I '$D(^ TMP($J,"RC _SORTPARM" )) D . S ^ TMP($J,"RC _SORTPARM" )=$S($G(RC XPAR("ORDE R_OF_PAYME NTS"))'="" :RCXPAR("O RDER_OF_PA YMENTS"),1 :"N") . S ^TMP($J,"R C_EEOBPOST ")=$S($G(R CXPAR("EEO B_POSTING_ STATUS"))' ="":RCXPAR ("EEOB_POS TING_STATU S"),1:"U") ; ; Not c oming from Change Vi ew action, User Pref erences Fo und, Quit I SOURCE=" MO",$G(RCX PAR("EEOB_ POSTING_ST ATUS"))'=" " Q ; ; OR DER OF PAY MENT (No O rder/Zero Payment Fi rst/Zero P ayment Las t) Selecti on S RCSOR TBY=$G(^TM P($J,"RC_S ORTPARM")) K DIR S D IR(0)="SA^ N:NO ORDER ;F:ZERO-PA YMENTS FIR ST;L:ZERO- PAYMENTS L AST" S DIR ("A")="ORD ER OF PAYM ENT: (N)O ORDER, ZER O-PAYMENTS (F)IRST, ZERO-PAYME NTS (L)AST : " S DIR( "B")="B" S :RCSORTBY' ="" DIR("B ")=RCSORTB Y W ! D ^D IR I $D(DT OUT)!$D(DU OUT) S RCQ UIT=1 G PA RAMSQ S ^T MP($J,"RC_ SORTPARM") =Y ; ; EEO B Posting Status (Po sted/Unpos ted/Both) Selection S RCPOSTDF =$G(^TMP($ J,"RC_EEOB POST")) K DIR S DIR( 0)="SA^U:U NPOSTED;P: POSTED;A:A LL" S DIR( "A")="DISP LAY FOR AU TO-POSTED ERAS: (U)N POSTED EEO Bs, (P)OST ED EEOBs, OR (A)LL: " S DIR("B ")="U" S:R CPOSTDF'=" " DIR("B") =RCPOSTDF W ! D ^DIR I $D(DTOU T)!$D(DUOU T) S RCQUI T=1 G PARA MSQ S ^TMP ($J,"RC_EE OBPOST")=Y ; ; - Sav e as Prefe rred View? K DIR W ! S DIR(0)= "YA",DIR(" B")="NO",D IR("A")="D O YOU WANT TO SAVE T HIS AS YOU R PREFERRE D VIEW (Y/ N)? " D ^D IR I Y=1 D . D EN^XP AR(DUZ_";V A(200,","R CDPE EDI L OCKBOX WOR KLIST","OR DER_OF_PAY MENTS",^TM P($J,"RC_S ORTPARM"), .RCERROR) . D EN^XPA R(DUZ_";VA (200,","RC DPE EDI LO CKBOX WORK LIST","EEO B_POSTING_ STATUS",^T MP($J,"RC_ EEOBPOST") ,.RCERROR) ;PARAMSQ ; Quit Q | |||||
| 432 | ||||||
| 433 | ||||||
| 434 | Modifed Lo gic | |||||
| 435 | . | |||||
| 436 | . | |||||
| 437 | . | |||||
| 438 | PARAMS(SOU RCE) ; Ret rieve/Edit /Save View Parameter s for EEOB Scratchpa d Worklist ; Input: SOURCE: "M O" - Menu Option / " CV" - Chan ge View ;O utput: ^TM P("RC_SORT PARM",$J): Order of Payment (" N":No Orde r/"F":Zero -Payments First/"L": Zero-Payme nts Last) ; ^TMP("RC _EEOBPOST" ,$J): EEOB Posting S tatus ("P" :Posted/"U ":Unposted /"B":Both) ; Or RCQU IT=1 N F,R CXPAR,USEP VW,X,XX,Y ; PRCA*4.5*3 17 added U SEPVW,XX | |||||
| 439 | ; D GETLS T^XPAR(.RC XPAR,"USR" ,"RCDPE ED I LOCKBOX WORKLIST", "I") S RCQ UIT=0 ; ; Setting ^T MP with us er's saved parameter s or Syste m defaults I '$D(^TM P($J,"RC_S ORTPARM")) D . S ^TM P($J,"RC_S ORTPARM")= $S($G(RCXP AR("ORDER_ OF_PAYMENT S"))'="":R CXPAR("ORD ER_OF_PAYM ENTS"),1:" N") . S ^T MP($J,"RC_ EEOBPOST") =$S($G(RCX PAR("EEOB_ POSTING_ST ATUS"))'=" ":RCXPAR(" EEOB_POSTI NG_STATUS" ),1:"U") ; ; PRCA*4. 5*317 Star t of added lines ; A sk the use r if they want to us e the pref erred view S USEPVW= 0 S:$G(RCX PAR("EEOB_ POSTING_ST ATUS")) US EPVW=$$ASK UVW^RCDPEW LA() Q:'US EPVW ; PRC A*4.5*317 End of Add ed lines | |||||
| 440 | ; ; Not c oming from Change Vi ew action, User Pref erences Fo und, Quit ; PRCA*4.5 *317 Repla ced $G(RCX PAR("EEOB_ POSTING_ST ATUS"))'=" " with USE PVW below I SOURCE=" MO",USEPVW Q | |||||
| 441 | ; ; ORDER OF PAYMEN T (No Orde r/Zero Pay ment First /Zero Paym ent Last) Selection S RCSORTBY =$G(^TMP($ J,"RC_SORT PARM")) K DIR S DIR( 0)="SA^N:N O ORDER;F: ZERO-PAYME NTS FIRST; L:ZERO-PAY MENTS LAST " S DIR("A ")="ORDER OF PAYMENT : (N)O ORD ER, ZERO-P AYMENTS (F )IRST, ZER O-PAYMENTS (L)AST: " S DIR("B" )="B" S:RC SORTBY'="" DIR("B")= RCSORTBY W ! D ^DIR I $D(DTOUT )!$D(DUOUT ) S RCQUIT =1 G PARAM SQ S ^TMP( $J,"RC_SOR TPARM")=Y ; ; EEOB P osting Sta tus (Poste d/Unposted /Both) Sel ection S R CPOSTDF=$G (^TMP($J," RC_EEOBPOS T")) K DIR S DIR(0)= "SA^U:UNPO STED;P:POS TED;A:ALL" S DIR("A" )="DISPLAY FOR AUTO- POSTED ERA S: (U)NPOS TED EEOBs, (P)OSTED EEOBs, OR (A)LL: " S DIR("B")= "U" S:RCPO STDF'="" D IR("B")=RC POSTDF W ! D ^DIR I $D(DTOUT)! $D(DUOUT) S RCQUIT=1 G PARAMSQ S ^TMP($J ,"RC_EEOBP OST")=Y ; ; - Save a s Preferre d View? K DIR W ! S DIR(0)="YA ",DIR("B") ="NO",DIR( "A")="DO Y OU WANT TO SAVE THIS AS YOUR P REFERRED V IEW (Y/N)? " D ^DIR I Y=1 D . D EN^XPAR( DUZ_";VA(2 00,","RCDP E EDI LOCK BOX WORKLI ST","ORDER _OF_PAYMEN TS",^TMP($ J,"RC_SORT PARM"),.RC ERROR) . D EN^XPAR(D UZ_";VA(20 0,","RCDPE EDI LOCKB OX WORKLIS T","EEOB_P OSTING_STA TUS",^TMP( $J,"RC_EEO BPOST"),.R CERROR) ;P ARAMSQ ; Q uit Q | |||||
| 442 | ||||||
| 443 | ||||||
| 444 | Routines | |||||
| 445 | Activities | |||||
| 446 | Routine Na me | |||||
| 447 | RCDPEAA1 | |||||
| 448 | Enhancemen t Category | |||||
| 449 | New | |||||
| 450 | Modify | |||||
| 451 | Delete | |||||
| 452 | No Change | |||||
| 453 | RTM | |||||
| 454 | ||||||
| 455 | Related Op tions | |||||
| 456 | ||||||
| 457 | Routines | |||||
| 458 | Activities | |||||
| 459 | Data Dicti onary (DD) Reference s | |||||
| 460 | ||||||
| 461 | Related Pr otocols | |||||
| 462 | ||||||
| 463 | Related In tegration Control Re gistration s (ICRs) | |||||
| 464 | ||||||
| 465 | Data Passi ng | |||||
| 466 | Input | |||||
| 467 | Output Re ference | |||||
| 468 | Both | |||||
| 469 | Global Re ference | |||||
| 470 | Local | |||||
| 471 | Input Attr ibute Name and Defin ition | |||||
| 472 | Name: | |||||
| 473 | Definition : | |||||
| 474 | Output Att ribute Nam e and Defi nition | |||||
| 475 | Name: | |||||
| 476 | Definition : | |||||
| 477 | ||||||
| 478 | Related Ro utines | |||||
| 479 | Routines “ Called By” | |||||
| 480 | Routines “ Called” | |||||
| 481 | ||||||
| 482 | RCDPEAA2 | |||||
| 483 | ||||||
| 484 | RCDPEARL@U P | |||||
| 485 | ||||||
| 486 | ||||||
| 487 | ||||||
| 488 | Current Lo gic | |||||
| 489 | . | |||||
| 490 | . | |||||
| 491 | . | |||||
| 492 | PARAMS(SOU RCE) ; Ret rieve/Edit /Save View Parameter s for APAR EEOB Work list ; Inp ut: SOURCE : "MO" - M enu Option / "CV" - Change Vie w ;Output: ; ^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC PAYR")p1: All Payers /Range of Payers ("A ": All/"R" :Range of Payers) ; ^TMP("RCDP E_APAR_EEO B_PARAMS", $J,"RCPAYR ")p2: STAR T WITH PAY ER (e.g.,' AET') (Ran ge Limited Only) ; ^ TMP("RCDPE _APAR_EEOB _PARAMS",$ J,"RCPAYR" )p3: GO TO PAYER (e. g.,'AETZ') (Range Li mited Only ) ; ^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC MEDRX""): (M)edical, (P)harmac y, or (B) ; ; Or RCQ UIT=1 N DI R,X,Y,DUOU T,DTOUT,RC PAYR,RCPAY RDF,RCXPAR ,RCDRLIM,R CERROR,RCA UTOPDF N R CTYPEDF,RC Q ; ; Retr ieving use r's saved parameters (If found , Quit) I SOURCE="MO " D I $G( RCXPAR("AL L_PAYERS/R ANGE_OF_PA YERS"))'=" " G PARAMS Q . K ^TMP ("RCDPE_AP AR_EEOB_PA RAMS",$J) . D GETLST ^XPAR(.RCX PAR,"USR", "RCDPE APA R","I") . S ^TMP("RC DPE_APAR_E EOB_PARAMS ",$J,"RCPA YR")=$S($G (RCXPAR("A LL_PAYERS/ RANGE_OF_P AYERS"))'= "":$TR(RCX PAR("ALL_P AYERS/RANG E_OF_PAYER S"),";","^ "),1:"A") . S ^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC MEDRX")=$S ($G(RCXPAR ("MEDICAL/ PHARMACY") )'="":$TR( RCXPAR("ME DICAL/PHAR MACY"),";" ,"^"),1:"B ") ; ;PAYR ; Payer S election S RCPAYRDF= $G(^TMP("R CDPE_APAR_ EEOB_PARAM S",$J,"RCP AYR")),RCQ UIT=0 K DI R S DIR(0) ="SA^A:ALL ;R:RANGE", DIR("A")=" (A)LL PAYE RS, (R)ANG E OF PAYER NAMES: " S DIR("B") ="ALL" S:$ P(RCPAYRDF ,"^")'="" DIR("B")=$ P(RCPAYRDF ,"^") W ! D ^DIR I $ D(DTOUT)!$ D(DUOUT) S RCQUIT=1 G PARAMSQ S RCPAYR=Y I RCPAYR= "A" S ^TMP ("RCDPE_AP AR_EEOB_PA RAMS",$J," RCPAYR")=Y I RCPAYR= "R" D I R CQUIT K ^T MP("RCDPE_ APAR_EEOB_ PARAMS",$J ,"RCPAYR") G PARAMSQ . W !,"NA MES YOU SE LECT HERE WILL BE TH E PAYER NA MES FROM T HE ERA, NO T THE INS FILE" . K DIR S DIR( "?")="ENTE R A NAME B ETWEEN 1 A ND 30 CHAR ACTERS IN UPPERCASE" . S DIR(0 )="FA^1:30 ^K:X'?.U X ",DIR("A") ="START WI TH PAYER N AME: " . S :$P(RCPAYR DF,"^",2)' ="" DIR("B ")=$P(RCPA YRDF,"^",2 ) . W ! D ^DIR . I $ D(DTOUT)!$ D(DUOUT) S RCQUIT=1 Q . S RCPA YR("FROM") =Y . K DIR S DIR("?" )="ENTER A NAME BETW EEN 1 AND 30 CHARACT ERS IN UPP ERCASE" . S DIR(0)=" FA^1:30^K: X'?.U X",D IR("A")="G O TO PAYER NAME: ",D IR("B")=$E (RCPAYR("F ROM"),1,27 )_"ZZZ" . W ! D ^DIR K DIR . I $D(DTOUT) !$D(DUOUT) S RCQUIT= 1 Q . S ^T MP("RCDPE_ APAR_EEOB_ PARAMS",$J ,"RCPAYR") =RCPAYR_"^ "_RCPAYR(" FROM")_"^" _Y ; ; Ask for Medic al or Phar macy (Or B oth) N DEF S DEF=$G( ^TMP("RCDP E_APAR_EEO B_PARAMS", $J,"RCMEDR X")) S DEF =$S(DEF="P ":"PHARMAC Y",DEF="M" :"MEDICAL" ,1:"BOTH") S RCQ=$$R TYPE^RCDPE SP2(DEF) I RCQ=-1 S RCQUIT=1 G PARAMSQ S ^TMP("RCD PE_APAR_EE OB_PARAMS" ,$J,"RCMED RX")=RCQ ; ; Option to save as User Pref erred View K DIR W ! S DIR(0)= "YA",DIR(" B")="NO",D IR("A")="D O YOU WANT TO SAVE T HIS AS YOU R PREFERRE D VIEW (Y/ N)? " D ^D IR I Y=1 D . D EN^XP AR(DUZ_";V A(200,","R CDPE APAR" ,"ALL_PAYE RS/RANGE_O F_PAYERS", $TR(^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC PAYR"),"^" ,";"),.RCE RROR) . D EN^XPAR(DU Z_";VA(200 ,","RCDPE APAR","MED ICAL/PHARM ACY",$TR(^ TMP("RCDPE _APAR_EEOB _PARAMS",$ J,"RCMEDRX "),"^",";" ),.RCERROR ) ;PARAMSQ ; Quit Q ; | |||||
| 493 | . | |||||
| 494 | . | |||||
| 495 | . | |||||
| 496 | ||||||
| 497 | Modified L ogic | |||||
| 498 | . | |||||
| 499 | . | |||||
| 500 | . | |||||
| 501 | PARAMS(SOU RCE) ; Ret rieve/Edit /Save View Parameter s for APAR EEOB Work list ; Inp ut: SOURCE : "MO" - M enu Option / "CV" - Change Vie w ;Output: ; ^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC PAYR")p1: All Payers /Range of Payers ("A ": All/"R" :Range of Payers) ; ^TMP("RCDP E_APAR_EEO B_PARAMS", $J,"RCPAYR ")p2: STAR T WITH PAY ER (e.g.,' AET') (Ran ge Limited Only) ; ^ TMP("RCDPE _APAR_EEOB _PARAMS",$ J,"RCPAYR" )p3: GO TO PAYER (e. g.,'AETZ') (Range Li mited Only ) ; ^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC MEDRX""): (M)edical, (P)harmac y, or (B) ; ; Or RCQ UIT=1 N RC XPAR,USEPV W ; PRCA*4.5* 317 added USEPVW S R CQUIT=0 | |||||
| 502 | ; ; Retri eve user's saved pre ferred vie w (If any) D:SOURCE= "MO" GETPV W(.RCXPAR) ; ; Check to see if the user has a pref erred view and this subroutine is being ; called w hen enteri ng from th e menu opt ion OR bei ng called from the C hange ; Vi ew action AND the cu rrent Work list is no t using th e preferre d view Cri teria. I $ $PREFVW(SO URCE,.RCXP AR) D Q:U SEPVW . ; . ; Ask th e user if they want to use the preferred view . S USEPVW=$$A SKUVW^RCDP EWL0() . Q :'USEPVW . ; . ; Set the Sort/ Filtering Criteria f rom the pr eferred vi ew . D US EPVW(.RCXP AR) ; | |||||
| 503 | D PAYR Q | |||||
| 504 | ;GETPVW(R CXPAR) ; R etrieves t he preferr ed view se ttings for the APAR worklist ; for the u ser ; PRCA *4.5*317 - Added sub routine ; Input: Non e ; Output : RCXPAR() - Array o f preferre d view sor t/filter c riteria ; ^TMP("RCDP E_APAR_EEO B_PARAMS", $)- Global array of preferred view setti ngs N XX K ^TMP("RCD PE_APAR_EE OB_PARAMS" ,$J) D GET LST^XPAR(. RCXPAR,"US R","RCDPE APAR","I") S XX=$G(R CXPAR("ALL _PAYERS/RA NGE_OF_PAY ERS")) S ^ TMP("RCDPE _APAR_EEOB _PARAMS",$ J,"RCPAYR" )=$S(XX'=" ":$TR(XX," ;","^"),1: "A") S XX= $G(RCXPAR( "MEDICAL/P HARMACY")) S ^TMP("R CDPE_APAR_ EEOB_PARAM S",$J,"RCM EDRX")=$S( XX'="":$TR (XX,";","^ "),1:"B") Q ;PREFVW( SOURCE,RCX PAR) ; Che cks to see if the us er has a p referred v iew ; PRCA *4.5*317 a dded subro utine ; Wh en source is 'CV', c hecks to s ee if the preferred view is be ing used ; Input: SO URCE - 'MO ' - When c alled from the Lockb ox menu ; option ; ' CV' - When called fr om the Cha nge View ; action ; RCXPAR - A rray of pr eferred vi ew values ; ^TMP("RC DPE_APAR_E EOB_PARAMS ")- Global array of currently in use def aults ; Re turns: 1 - User has preferred view if SO URCE is 'M O' or is u sing ; the ir preferr ed view if SOURCE is 'CV' ; 0 - User doe s not have preferred view or i s not usin g it N XX I SOURCE=" MO" Q $S($ D(RCXPAR(" ALL_PAYERS /RANGE_OF_ PAYERS")): 1,1:0) Q:' $D(RCXPAR( "ALL_PAYER S/RANGE_OF _PAYERS")) 0 ; No st ored prefe rred view S XX=$G(RC XPAR("ALL_ PAYERS/RAN GE_OF_PAYE RS")) Q:$G (^TMP("RCD PE_APAR_EE OB_PARAMS" ,$J,"RCPAY R"))'=XX 0 S XX=$G(R CXPAR("MED ICAL/PHARM ACY")) Q:$ G(^TMP("RC DPE_APAR_E EOB_PARAMS ",$J,"RCME DX"))'=XX 0 Q 1 ;USE PVW(RCXPAR ) ; Set th e worklist settings from the p referred v iew ; PRCA *4.5*317 a dded funct ion ; Inpu t: RCXPAR - Array of preferred values (i f any) ; O utput: ^TM P("RCDPE_A PAR_EEOB_P ARAMS") - Global Arr ay of curr ent workli st setting s S ^TMP(" RCDPE_APAR _EEOB_PARA MS",$J,"RC PAYR")=$G( RCXPAR("AL L_PAYERS/R ANGE_OF_PA YERS")) S ^TMP("RCDP E_APAR_EEO B_PARAMS", $J,"RCMEDX ")=$G(RCXP AR("MEDICA L/PHARMACY ")) S ^TMP ("RCERA_PA RAMS",$J," RCMATCH")= $G(RCXPAR( "ERA-EFT_M ATCH_STATU S")) S ^TM P("RCERA_P ARAMS",$J, "RCTYPE")= $G(RCXPAR( "ERA_CLAIM _TYPE")) S ^TMP("RCE RA_PARAMS" ,$J,"RCPAY R")=$G(RCX PAR("ALL_P AYERS/RANG E_OF_PAYER S")) Q ;PA YR ; Payer Selection S RCPAYRD F=$G(^TMP( "RCDPE_APA R_EEOB_PAR AMS",$J,"R CPAYR")),R CQUIT=0 K DIR S DIR( 0)="SA^A:A LL;R:RANGE ",DIR("A") ="(A)LL PA YERS, (R)A NGE OF PAY ER NAMES: " S DIR("B ")="ALL" S :$P(RCPAYR DF,"^")'=" " DIR("B") =$P(RCPAYR DF,"^") W ! D ^DIR I $D(DTOUT) !$D(DUOUT) S RCQUIT= 1 G PARAMS Q S RCPAYR =Y I RCPAY R="A" S ^T MP("RCDPE_ APAR_EEOB_ PARAMS",$J ,"RCPAYR") =Y I RCPAY R="R" D I RCQUIT K ^TMP("RCDP E_APAR_EEO B_PARAMS", $J,"RCPAYR ") G PARAM SQ . W !," NAMES YOU SELECT HER E WILL BE THE PAYER NAMES FROM THE ERA, NOT THE IN S FILE" . K DIR S DI R("?")="EN TER A NAME BETWEEN 1 AND 30 CH ARACTERS I N UPPERCAS E" . S DIR (0)="FA^1: 30^K:X'?.U X",DIR("A ")="START WITH PAYER NAME: " . S:$P(RCPA YRDF,"^",2 )'="" DIR( "B")=$P(RC PAYRDF,"^" ,2) . W ! D ^DIR . I $D(DTOUT) !$D(DUOUT) S RCQUIT= 1 Q . S RC PAYR("FROM ")=Y . K D IR S DIR(" ?")="ENTER A NAME BE TWEEN 1 AN D 30 CHARA CTERS IN U PPERCASE" . S DIR(0) ="FA^1:30^ K:X'?.U X" ,DIR("A")= "GO TO PAY ER NAME: " ,DIR("B")= $E(RCPAYR( "FROM"),1, 27)_"ZZZ" . W ! D ^D IR K DIR . I $D(DTOU T)!$D(DUOU T) S RCQUI T=1 Q . S ^TMP("RCDP E_APAR_EEO B_PARAMS", $J,"RCPAYR ")=RCPAYR_ "^"_RCPAYR ("FROM")_" ^"_Y ; ; A sk for Med ical or Ph armacy (Or Both) N D EF S DEF=$ G(^TMP("RC DPE_APAR_E EOB_PARAMS ",$J,"RCME DRX")) S D EF=$S(DEF= "P":"PHARM ACY",DEF=" M":"MEDICA L",1:"BOTH ") S RCQ=$ $RTYPE^RCD PESP2(DEF) I RCQ=-1 S RCQUIT=1 G PARAMSQ S ^TMP("R CDPE_APAR_ EEOB_PARAM S",$J,"RCM EDRX")=RCQ ; ; Optio n to save as User Pr eferred Vi ew K DIR W ! S DIR(0 )="YA",DIR ("B")="NO" ,DIR("A")= "DO YOU WA NT TO SAVE THIS AS Y OUR PREFER RED VIEW ( Y/N)? " D ^DIR I Y=1 D . D EN^ XPAR(DUZ_" ;VA(200,", "RCDPE APA R","ALL_PA YERS/RANGE _OF_PAYERS ",$TR(^TMP ("RCDPE_AP AR_EEOB_PA RAMS",$J," RCPAYR")," ^",";"),.R CERROR) . D EN^XPAR( DUZ_";VA(2 00,","RCDP E APAR","M EDICAL/PHA RMACY",$TR (^TMP("RCD PE_APAR_EE OB_PARAMS" ,$J,"RCMED RX"),"^"," ;"),.RCERR OR) ;PARAM SQ ; Quit Q ; | |||||
| 505 | . | |||||
| 506 | . | |||||
| 507 | . | |||||
| 508 | ||||||
| 509 | ||||||
| 510 | ||||||
| 511 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.