Produced by Araxis Merge on 8/4/2017 8:57:04 AM 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 | IB_2.0_577.zip | TAS+eBill+SDD+US129+v2.00.docx | Tue Aug 1 17:53:50 2017 UTC |
| 2 | IB_2.0_577.zip | TAS+eBill+SDD+US129+v2.00.docx | Wed Aug 2 13:14:59 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 1538 |
| Changed | 1 | 2 |
| 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 US129 | |
| 2 | System Des ign Docume nt | |
| 3 | IB*2.0*577 | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | March 2017 | |
| 10 | Version 2. 0 | |
| 11 | ||
| 12 | User Story Number: T SEB-02 | |
| 13 | User Story Name: Pro cess Payer ID - Stor e HCCH Pay er ID (TSE B-2) | |
| 14 | Product Ba cklog ID: | |
| 15 | Rally ID: US-129 | |
| 16 | Design/Res olution: | |
| 17 | The system is to pro cess a 277 STAT messa ge from He alth Care Clearing H ouse (HCCH ) and eval uate/updat e Payer Id ’s as foll ows: | |
| 18 | Update the Insurance file, fie ld EDI ID NUMBER – P ROF or EDI ID NUMBER – INST wi th the Pay er IDs fro m the 277S TAT transa ction only when the value we h ave on fil e is blank . When upd ating thes e fields, also updat e new data elements to capture changes a nd date of update fo r report p urposes (U S976). | |
| 19 | If the Pay er ID from the 277ST AT transac tion is di fferent th an what we have stor ed and is not blank, then no u pdate is t o occur, b ut storage of the da ta into ne w data ele ments incl uding the date for r eporting p urposes on ly. (US976 ) This is to occur o nly once p er day. | |
| 20 | Resolve in termittent issue of updating E DI ID numb ers when w e have no value stor ed. | |
| 21 | In order t o accompli sh this, t he followi ng needs t o be modif ied: | |
| 22 | File Modif ications: | |
| 23 | File 36 (I nsurance C ompany Fil e)- add ne w fields: | |
| 24 | 277EDI ID Number – a s a multip le | |
| 25 | 277Date ED I ID Numbe r- as a su bfile | |
| 26 | 277EDI Typ e (P)ROF o r (I)NST- as subfile | |
| 27 | 277EDI Num ber on fil e– as a su bfile | |
| 28 | Create Cro ss Referen ce on File 36 new fi elds for r eport usag e (US976) | |
| 29 | Routine Mo dification s: | |
| 30 | Routine IB CEST- 277S tat Messag e processi ng | |
| 31 | A Sample X 12 and 277 Stat file is include d for test ing change s. | |
| 32 | Mail group to drop i n the file in for te sting. | |
| 33 | ||
| 34 | ||
| 35 | Routine | |
| 36 | Activities | |
| 37 | File Name | |
| 38 | Insurance #36 | |
| 39 | Enhancemen t Category | |
| 40 | New | |
| 41 | Modify | |
| 42 | Delete | |
| 43 | No Change | |
| 44 | RTM | |
| 45 | ||
| 46 | Related Op tions | |
| 47 | None | |
| 48 | Related Ro utines | |
| 49 | Routines “ Called By” | |
| 50 | Routines “ Called” | |
| 51 | ||
| 52 | ||
| 53 | ||
| 54 | ||
| 55 | Data Dicti onary (DD) Reference s | |
| 56 | ||
| 57 | File Modif ications: | |
| 58 | ||
| 59 | FileMan | |
| 60 | Option: 4- MODIFY FI LE ATTRIBU TES | |
| 61 | File: 36 ( INSURANCE COMPANY) | |
| 62 | Set up New fields: | |
| 63 | 17.0 27 7EDI ID NU MBER | |
| 64 | MINIMU M LENGTH: 1 | |
| 65 | MAXIMUM LENGTH: 3 0 | |
| 66 | (OPTIONA L) PATTERN MATCH (IN 'X'): | |
| 67 | WILL 277 EDI ID NUM BER FIELD BE MULTIPL E? No// YE S (Yes) | |
| 68 | ||
| 69 | SUBSCRIPT : 17// | |
| 70 | IS 277EDI NUMBER EN TRY MANDAT ORY (Y/N): NO// NO | |
| 71 | SHOULD USE R SEE AN " ADDING A N EW 277EDI NUMBER?" M ESSAGE FOR NEW ENTRI ES (Y/N): N NO | |
| 72 | H AVING ENTE RED OR EDI TED ONE 27 7EDI NUMBE R, SHOULD USER BE AS KED ANOTHE R (Y/N): N NO | |
| 73 | SUB-DICTIO NARY NUMBE R: 36.017/ / | |
| 74 | .... | |
| 75 | .... | |
| 76 | 'HELP'-PRO MPT: Answe r must be 1-30 chara cters in l ength. | |
| 77 | Replace | |
| 78 | XECUTABLE 'HELP': | |
| 79 | DESCRIPTIO N: | |
| 80 | THERE AR E NO LINES ! | |
| 81 | Edit? NO // | |
| 82 | ||
| 83 | 17.01 27 7EDI ID NU MBER | |
| 84 | AS SUB-FIE LD | |
| 85 | DATA TYPE OF 277EDI ID NUMBER: 4 FREE T EXT | |
| 86 | MINIMUM LE NGTH: 1 | |
| 87 | MAXIMUM LE NGTH: 30 | |
| 88 | (OPTIONAL) PATTERN M ATCH (IN ' X'): | |
| 89 | WILL 277ED I ID NUMBE R FIELD BE MULTIPLE? No// N ( No) | |
| 90 | ||
| 91 | SUBSCRIPT: 0// | |
| 92 | ^-PIECE PO SITION: 1/ / | |
| 93 | IS 277EDI ID NUMBER ENTRY MAND ATORY (Y/N ): NO// NO | |
| 94 | .... | |
| 95 | 'HELP'-PRO MPT: Answe r must be 1-30 chara cters in l ength. | |
| 96 | Replace | |
| 97 | XECUTABLE 'HELP': | |
| 98 | DESCRIPTIO N: | |
| 99 | THERE AR E NO LINES ! | |
| 100 | Edit? NO // SUBSCRI PT:0 | |
| 101 | ^- PIECE P OSITION: 1 | |
| 102 | ||
| 103 | 17.02 27 7DATE EDI ID NUMBER | |
| 104 | Select 277 EDI NUMBER SUB-FIELD : .02 | |
| 105 | Are you adding a n ew FIELD ( the 2ND)? No// YES (Yes) | |
| 106 | LABEL: 277DATE ED I ID NUMBE R | |
| 107 | 277EDI NUMBER SUB -FIELD NUM BER: .02// | |
| 108 | ||
| 109 | DATA TYPE OF 277DATE EDI ID NU MBER: DATE /TIME | |
| 110 | EARLIEST D ATE (OPTIO NAL): | |
| 111 | CAN DATE B E IMPRECIS E (Y/N): Y ES// NO | |
| 112 | CAN TIME O F DAY BE E NTERED (Y/ N): NO// | |
| 113 | WILL 277DA TEEDI ID N UMBER FIEL D BE MULTI PLE? No// (No) | |
| 114 | ||
| 115 | SUBSCRIPT: 0// | |
| 116 | ^-PIECE PO SITION: 2/ / | |
| 117 | IS 277DATE EDI ID NUM BER ENTRY MANDATORY (Y/N): NO | |
| 118 | / / NO | |
| 119 | .... | |
| 120 | 'HELP'-PRO MPT: | |
| 121 | XECUTABLE 'HELP': | |
| 122 | DESCRIPTIO N: | |
| 123 | THERE AR E NO LINES ! | |
| 124 | Edit? NO // | |
| 125 | ||
| 126 | ||
| 127 | 17.03 27 7 EDI TYPE | |
| 128 | Select 277 EDI NUMBER SUB-FIELD : .03 | |
| 129 | Are you adding a n ew FIELD ( the 3RD)? No// YES (Yes) | |
| 130 | LABEL: 277EDI TYP E | |
| 131 | 277EDI NUMBER SUB -FIELD NUM BER: .03// | |
| 132 | ||
| 133 | DATA TYPE OF 277EDI TYPE: SET OF CODES | |
| 134 | DATA TYPE OF 277EDI TYPE: SET OF CODES | |
| 135 | INTERNALLY -STORED CO DE: P WIL L STAND FO R: PROFESS IONAL | |
| 136 | INTERNALLY -STORED CO DE: I WIL L STAND FO R: INSTITU TIONAL | |
| 137 | INTERNALLY -STORED CO DE: | |
| 138 | SHOULD '27 7EDI TYPE' ENTRIES B E SCREENED ? No// ( No) | |
| 139 | WILL 277ED I TYPE FIE LD BE MULT IPLE? No// (No) | |
| 140 | ||
| 141 | SUBSCRIPT: 0// | |
| 142 | ^-PIECE PO SITION: 3/ / | |
| 143 | IS 277EDI TYPE ENTRY MANDATORY (Y/N): NO // NO | |
| 144 | .... | |
| 145 | 'HELP'-PRO MPT: | |
| 146 | XECUTABLE 'HELP': | |
| 147 | DESCRIPTIO N: | |
| 148 | THERE AR E NO LINES ! | |
| 149 | Edit? NO // | |
| 150 | ||
| 151 | 17.04 27 7EDI ID NU MBER ON FI LE | |
| 152 | Select 277 EDI NUMBER SUB-FIELD : .04 | |
| 153 | Are you adding a n ew FIELD ( the 4TH)? No// YES (Yes) | |
| 154 | LABEL: 277EDI NUM BER ON FIL E | |
| 155 | 277EDI NUMBER SUB -FIELD NUM BER: .04// | |
| 156 | ||
| 157 | DATA TYPE OF 277EDI NUMBER ON FILE: FREE TEXT | |
| 158 | MINIMUM LE NGTH: 1 | |
| 159 | MAXIMUM LE NGTH: 30 | |
| 160 | (OPTIONAL) PATTERN M ATCH (IN ' X'): | |
| 161 | WILL 277ED I NUMBER O N FILE FIE LD BE MULT IPLE? No// (No) | |
| 162 | ||
| 163 | SUBSCRIPT: 0// | |
| 164 | ^-PIECE PO SITION: 4/ / | |
| 165 | IS 277EDI NUMBER ON FILE ENTRY MANDATORY (Y/N): NO | |
| 166 | / / NO | |
| 167 | .... | |
| 168 | 'HELP'-PRO MPT: Answe r must be 1-30 chara cters in l ength. | |
| 169 | Replace | |
| 170 | XECUTABLE 'HELP': | |
| 171 | DESCRIPTIO N: | |
| 172 | THERE AR E NO LINES ! | |
| 173 | Edit? NO // | |
| 174 | ||
| 175 | The Standa rd list of these new fields wi ll look li ke this: | |
| 176 | ||
| 177 | CROSS REFE RENCED BY: 277EDI ID NUMBER(B) | |
| 178 | 36.017,.01 277EDI ID NUMBER 0;1 FREE TEXT | |
| 179 | INPUT T RANSFORM: K:$L(X)>3 0!($L(X)<1 ) X | |
| 180 | MAXIMU M LENGTH: 30 | |
| 181 | LAST E DITED: MAR 06, 2017 | |
| 182 | HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th. | |
| 183 | DESCRI PTION: This is the ID num ber used t o identify the | |
| 184 | pay er on a pr ofessional or an ins titutional | |
| 185 | clai m transmis sion. This is for re porting | |
| 186 | purp oses only. | |
| 187 | CROSS- REFERENCE: 36.017^B | |
| 188 | 1)= S ^D IC(36,DA(1 ),17,"B",$ E(X,1,30), DA)="" | |
| 189 | 2)= K ^D IC(36,DA(1 ),17,"B",$ E(X,1,30), DA) | |
| 190 | ||
| 191 | RECORD INDEXES: AEDIX (# 1454) (WHO LE FILE #3 6) | |
| 192 | ||
| 193 | 36.017,.02 277DAT E EDI ID N UMBER 0;2 DATE | |
| 194 | ||
| 195 | INPUT TRANSFORM: S %DT="E X" D ^%DT S X=Y K:Y< 1 X | |
| 196 | LAST E DITED: MAY 08, 2017 | |
| 197 | HELP-P ROMPT: Enter th e date of the 277STA T transact ion from | |
| 198 | th e clearing house. | |
| 199 | DESCRI PTION: This is the date f rom the 27 7stat tran smission | |
| 200 | fro m the clea ring house . This is for report ing | |
| 201 | pur poses only . | |
| 202 | RECORD INDEXES: AEDIX (#1 454) (WHOL E FILE #36 ) | |
| 203 | ||
| 204 | 36.017,.03 277EDI TYPE 0;3 SET | |
| 205 | 'P' FOR PROFESSION AL; | |
| 206 | 'I' FOR INSTITUTIO NAL; | |
| 207 | LAST E DITED: MAY 08, 2017 | |
| 208 | HELP-P ROMPT: Enter th e type of claim "P" for profes sional or | |
| 209 | "I" for insti tutional. | |
| 210 | DESCRI PTION: This det ermines th e type of claim - ei ther "P" | |
| 211 | fo r professi onal or "I " for inst itutional. For | |
| 212 | re porting pu rposes onl y. | |
| 213 | RECORD INDEXES: AEDIX (#1 454) (WHOL E FILE #36 ) | |
| 214 | ||
| 215 | 36.017,.04 277EDI ID NUMBER ON FILE 0 ;4 FREE TE XT | |
| 216 | ||
| 217 | INPUT TRANSFORM: K:$L(X)> 30!($L(X)< 1) X | |
| 218 | MAXIMU M LENGTH: 30 | |
| 219 | LAST E DITED: MAR 06, 2017 | |
| 220 | HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th. | |
| 221 | DESCRI PTION: This is the ID num ber that w as stored on file | |
| 222 | to determine the payer on a claim prior to the | |
| 223 | 277 stat trans action upd ate. If t here is no | |
| 224 | num ber that m eans there will be a n update. | |
| 225 | This is for re porting pu rposes onl y. | |
| 226 | ||
| 227 | RECORD INDEXES: AEDIX (# 1454) (WHO LE FILE #3 6) | |
| 228 | ||
| 229 | ||
| 230 | Current fi le: | |
| 231 | ||
| 232 | CONDENSED DATA DICTI ONARY---IN SURANCE CO MPANY FILE (#36)UCI: PLA,PLA VERSION: | |
| 233 | 2.0 | |
| 234 | ||
| 235 | STORED IN: ^DIC(36, FE B 6,2017 PAGE 1 | |
| 236 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
| 237 | ||
| 238 | … | |
| 239 | ||
| 240 | 3.01 TRANSMIT E LECTRONICA LLY (SX), [3;1] | |
| 241 | 3.02 EDI ID NUM BER - PROF (FXJ30a), [3;2] | |
| 242 | 3.03 BIN NUMBER (F), [3;3 ] | |
| 243 | 3.04 EDI ID NUM BER - INST (FXJ30a), [3;4] | |
| 244 | ||
| 245 | … | |
| 246 | ||
| 247 | 16 ALTERNATE PROF PAYER ID TYPE ( Multiple-3 6.016), [1 6;0] | |
| 248 | .01 ALTER NATE PROF PAYER ID T YPE (M*P35 5.98'), [0 ;1] | |
| 249 | .02 ALTER NATE PROF PAYER ID ( FX), [0;2] | |
| 250 | ||
| 251 | New sectio n of file: | |
| 252 | ||
| 253 | 17 277EDI ID NUMBER (Mu ltiple-36. 017), [17; 0] | |
| 254 | .01 277ED I ID NUMBE R (FJ30), [0;1] | |
| 255 | .02 277DA TE EDI ID NUMBER (D) , [0;2] | |
| 256 | .03 277ED I TYPE (S) , [0;3] | |
| 257 | .04 277ED I ID NUMBE R ON FILE (FJ30), [0 ;4] | |
| 258 | ||
| 259 | ||
| 260 | ||
| 261 | ||
| 262 | ||
| 263 | ||
| 264 | Routine | |
| 265 | Activities | |
| 266 | File Name | |
| 267 | Insurance #36- Cross Reference | |
| 268 | Enhancemen t Category | |
| 269 | New | |
| 270 | Modify | |
| 271 | Delete | |
| 272 | No Change | |
| 273 | RTM | |
| 274 | ||
| 275 | Related Op tions | |
| 276 | None | |
| 277 | Related Ro utines | |
| 278 | Routines “ Called By” | |
| 279 | Routines “ Called” | |
| 280 | ||
| 281 | ||
| 282 | ||
| 283 | ||
| 284 | Data Dicti onary (DD) Reference s | |
| 285 | ||
| 286 | Create Cro ss Referen ce across entire Ins urance fil e using Fi leman | |
| 287 | OPTION 6: UTILITY FU NCTIONS | |
| 288 | UTILITY OP TION 2: CR OSS-REFERE NCE A FIEL D OR FILE | |
| 289 | What type of cross-r eference ( Traditiona l or New)? Tradition al// N N EW | |
| 290 | File: INSU RANCE COMP ANY | |
| 291 | Subfile: 1 7 | |
| 292 | Index whol e file: YE S | |
| 293 | USED FOR: SORTING | |
| 294 | Index Name : “AEDIX” | |
| 295 | Mumps | |
| 296 | ||
| 297 | Using New fields: | |
| 298 | ||
| 299 | 17.01 27 7EDI ID NU MBER | |
| 300 | 17.02 27 7DATE EDI ID NUMBER | |
| 301 | 17.03 27 7EDI TYPE 17.04 277 EDI ID NUM BER ON FIL E | |
| 302 | ||
| 303 | Have the s et M code be for rec ord-level execution- which, wh en the ent ire record is set up make it e qual to 1 7.04 277ED I ID NUMBE R ON FILE | |
| 304 | Do you wan t to cross reference the exist ing data n ow: NO | |
| 305 | ||
| 306 | To have fi nal result look like : | |
| 307 | ||
| 308 | ^DIC(36,”A EDIX”,DATE ,INSURANCE IEN,EDI I D NUMBER,T YPE “P” OR “I”)=EDI ID NUMBER ON FILE (I f BLANK co nsidered updated, o therwise a ttempted) | |
| 309 | ||
| 310 | ||
| 311 | EXAMPLE SC REEN SHOTS : | |
| 312 | ||
| 313 | ||
| 314 | ||
| 315 | ||
| 316 | ||
| 317 | ||
| 318 | ||
| 319 | ||
| 320 | ||
| 321 | ||
| 322 | Do you wan t to execu te the old kill logi c now? YES | |
| 323 | Executin g old kill logic ... DONE! | |
| 324 | ||
| 325 | Do you wan t to cross reference existing data now? YES | |
| 326 | Executin g new set logic ... DONE! | |
| 327 | ||
| 328 | Current In dexes on s ubfile #36 .017: | |
| 329 | 1454 ' AEDIX' who le file in dex (resid es on file #36) | |
| 330 | ||
| 331 | ||
| 332 | ||
| 333 | ||
| 334 | ||
| 335 | ||
| 336 | ||
| 337 | ||
| 338 | ||
| 339 | ||
| 340 | ||
| 341 | ||
| 342 | ||
| 343 | ||
| 344 | ||
| 345 | ||
| 346 | ||
| 347 | ||
| 348 | ||
| 349 | ||
| 350 | ||
| 351 | ||
| 352 | View the c ross refer ence you j ust set up via : | |
| 353 | Select OPT ION: 8 DA TA DICTION ARY UTILIT IES | |
| 354 | Select DAT A DICTIONA RY UTILITY OPTION: 1 LIST FIL E ATTRIBUT ES | |
| 355 | START WIT H What Fil e: INSURAN CE COMPANY // (1558 entries) | |
| 356 | GO T O What Fil e: INSURAN CE COMPANY // (1558 entries) | |
| 357 | Sele ct SUB-FIL E: | |
| 358 | Select LIS TING FORMA T: STANDAR D// INDEXE S ONLY | |
| 359 | What type of cross-r eference ( Traditiona l or New)? Both// NE W | |
| 360 | Which fiel d: ALL// | |
| 361 | DEVICE: ;; 9999999 H OME (CRT) Right Margin: 80 // | |
| 362 | NEW-STYLE INDEX LIST -- FILE # 36INDEX AN D CROSS-RE FERENCE LI ST -- FILE #363/6/17 | |
| 363 | PAGE 1 | |
| 364 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
| 365 | ||
| 366 | Subfile #3 6.017 | |
| 367 | ||
| 368 | New-Styl e Indexes: | |
| 369 | ||
| 370 | AEDIX (# 1454) R ECORD M UMPS IR SORTIN G ONLY WHOLE FILE (#36) | |
| 371 | Shor t Descr: 277STAT TR ANSACTION PAYER STOR AGE US129 | |
| 372 | Desc ription: This cross reference allows fo r reportin g of 277ST AT | |
| 373 | Set Logic: S ^DIC(3 6,"AEDIX", X(1),DA(1) ,X(2),X(3) )=X(4) | |
| 374 | S et Cond: S X=(X(1)] ""&(X(2)]" ")&(X(3)]" ")) | |
| 375 | Kil l Logic: Q | |
| 376 | X(1): 277DATE ED I ID NUMBE R (36.017 ,.02) (Le n 10) (fo rwards) | |
| 377 | X(2): 277EDI ID NUMBER (3 6.017,.01) (Len 30) (forward s) | |
| 378 | X(3): 277EDI TYP E (36.017 ,.03) (Le n 1) (for wards) | |
| 379 | X(4): 277EDI ID NUMBER ON FILE (36. 017,.04) (Len 30) | |
| 380 | (forwards) | |
| 381 | ||
| 382 | ||
| 383 | ||
| 384 | ||
| 385 | ||
| 386 | ||
| 387 | ||
| 388 | ||
| 389 | ||
| 390 | Routine Ch anges | |
| 391 | Routines | |
| 392 | Activities | |
| 393 | Routine Na me | |
| 394 | IBCEST | |
| 395 | Enhancemen t Category | |
| 396 | New | |
| 397 | Modify | |
| 398 | Delete | |
| 399 | No Change | |
| 400 | RTM | |
| 401 | ||
| 402 | Related Op tions | |
| 403 | None | |
| 404 | Related Ro utines | |
| 405 | Routines “ Called By” | |
| 406 | Routines “ Called” | |
| 407 | ||
| 408 | ||
| 409 | ||
| 410 | ||
| 411 | Data Dicti onary (DD) Reference s | |
| 412 | ||
| 413 | Related Pr otocols | |
| 414 | None | |
| 415 | Related In tegration Control Re gistration s (ICRs) | |
| 416 | None | |
| 417 | Data Passi ng | |
| 418 | Input | |
| 419 | Output Re ference | |
| 420 | Both | |
| 421 | Global Re ference | |
| 422 | Local | |
| 423 | Routine Na me | |
| 424 | IBCEST (c hanges are Highlight ed) | |
| 425 | ||
| 426 | Original: | |
| 427 | IBCEST ;AL B/TMP - 83 7 EDI STAT US MESSAGE PROCESSIN G ;17-APR- 96 ;;2.0;I NTEGRATED BILLING;** 137,189,19 7,135,283, 320,368,39 7,407**;21 -MAR-94;Bu ild 29 ;;P er VHA Dir ective 200 4-038, thi s routine should not be modifi ed. ; IA 4 043 for ca ll to AUDI TX^PRCAUDT Q ;UPD361 (IBTDA) ; Update IB BILL STATU S MESSAGES file ; IB TDA = ien of return message in file 364. 2 | |
| 428 | … | |
| 429 | ; I $S(IB MNUM="":1, 1:'IBBILL& (IBBTCH="" )) D DELMS G^IBCESRV2 (IBTDA) G UPDQ ; ; I ndividual bill I IBB ILL D G U PDQ . N IB A1,IBMSG0, IBPID . S IBPID="",I BA1=0 . F S IBA1=$O (^IBA(364. 2,IBTDA,2, IBA1)) Q:' IBA1 S IB MSG0=$P($G (^(IBA1,0) ),"##RAW D ATA: ",2) I +IBMSG0= 277,$P(IBM SG0,U,5)=" N" S IBPID =$P(IBMSG0 ,U,11) Q . S IBSEQ=$ P(IB00,U,8 ) S:IBSEQ= "" IBSEQ=" P" . D STO RE(IB0,IBB TCH,IBMNUM ,IBTDA,IBB ILL,IBSEQ, IBPID,1) ; ; Batch - update ea ch bill se parately S IBBILL="" F S IBBI LL=$O(^IBA (364,"ABAB I",+IBBTCH ,IBBILL)) Q:'IBBILL D . Q:$D( ^TMP("IBCO NF",$J,IBB ILL)) ;Bil l was reje cted . S I B=$O(^IBA( 364,"ABABI ",+IBBTCH, IBBILL,0)) Q:'IB . S IBSEQ=$P( $G(^IBA(36 4,IB,0)),U ,8) S:IBSE Q="" IBSEQ ="P" . D S TORE(IB0,I BBTCH,IBMN UM,IBTDA,I BBILL,IBSE Q,"",0) ; Q ; | |
| 430 | … ;UPDINS( IBPID,IBIN S,IBIFN) ; Update th e insuranc e id or th e bill pri nted at ; the EDI co ntractor's print sho p and mail ed to the ins co. ; IBPID = th e id retur ned from t he EDI con tractor fo r the ins co ; ("TYP E") = P if professio nal id or I if insti tutional i d ; IBINS = the ien of the ins urance co it was sen t to (file 36) ; IBI FN = the i en of the claim (fil e 399) ; N IBID,IBID FLD,IBPRT, IBLOOK,DA, DR,DIE,X,Y ,Z ; Q:'$G (IBINS)!($ G(IBPID)=" ") ; ; Str ip spaces off the en d of data S IBLOOK=" " I $L(IBP ID) F Z=$L (IBPID):-1 :1 I $E(IB PID,Z)'=" " S IBLOOK =$E(IBPID, 1,Z) Q ; S IBPRT=($E (IBLOOK,2, 5)="PRNT") I IBPRT D ; Set pr inted via EDI field on bill . S DA=IBIFN ,DIE="^DGC R(399,",DR ="26////1" D ^DIE ; S IBLOOK=$ E($S('IBPR T:$P(IBLOO K,"PAYID=" ,2),1:""), 1,5) Q:IBL OOK=""!($E (IBLOOK,2, 5)="PRNT") S IBIDFLD ="3.0"_$S( $G(IBPID(" TYPE"))="I ":4,1:2) S IBID=$P($ G(^DIC(36, +IBINS,3)) ,U,IBIDFLD *100#100) Q:IBID=IBL OOK I IBID ="" D G U PDINSQ ; U pdate insu rance co e lectronic id # if bl ank . S DI E="^DIC(36 ,",DR=IBID FLD_"////" _IBLOOK,DA =IBINS D ^ DIE I IBID '="",IBLOO K'="" D ; Bulletin that the i d on file and id ret urned . ; are differ ent . N XM TO,XMDUZ,X MBODY,IBXM ,XMSUBJ,XM Z . S XMTO ("I:G.IB E DI")="" . S XMDUZ="" ,XMBODY="I BXM",XMSUB J="PAYER I D RETURNED IS DIFFER ENT THAN P AYER ID ON FILE" . S IBXM(1)=" BILL # : " _$P($G(^DG CR(399,IBI FN,0)),U) . S IBXM(2 )="PAYER : "_$P($G(^ DIC(36,+IB INS,0)),U) . S IBXM( 3)="BILL T YPE : "_$S ($G(IBPID( "TYPE"))=" I":"INSTIT UT",1:"PRO FESS")_"IO NAL" . S I BXM(4)="ID ON FILE : "_IBID . S IBXM(5)= "ID RETURN ED: "_IBLO OK . S IBX M(6)=" ",I BXM(7)=" P lease dete rmine whic h id numbe r is corre ct and cor rect the i d in the", IBXM(8)="i nsurance f ile for th is payer, if needed" . D SENDM SG^XMXAPI( XMDUZ,XMSU BJ,XMBODY, .XMTO,,.XM Z) ;UPDINS Q Q… | |
| 431 | ||
| 432 | Changes: | |
| 433 | ||
| 434 | ||
| 435 | IBCEST ; ALB/TMP - 837 EDI ST ATUS MESSA GE PROCESS ING ;17-AP R-96 | |
| 436 | ; ;2.0;INTEG RATED BILL ING;**137, 189,197,13 5,283,320, 368,397,40 7,577**;21 | |
| 437 | -MAR-94;Bu ild 29 | |
| 438 | ; ;Per VA Di rective 64 02, this r outine sho uld not be modified. | |
| 439 | ; IA 4043 f or call to AUDITX^PR CAUDT | |
| 440 | Q | |
| 441 | ; | |
| 442 | UPD361(IBT DA) ; Upda te IB BILL STATUS ME SSAGES fil e | |
| 443 | ; IBTDA = i en of retu rn message in file 3 64.2 | |
| 444 | ; | |
| 445 | N IB,IB0,IB SEQ,IB00,I BBILL,IBBT CH,IBMNUM, IBDATE,IBT YP | |
| 446 | ; | |
| 447 | I '$$LOCK^I BCEM(IBTDA ) G UPDQ ; Lock messa ge in file 364.2 | |
| 448 | ; | |
| 449 | S IB0=$G(^I BA(364.2,I BTDA,0)) | |
| 450 | S IBMNUM=$P (IB0,U) ; Message nu mber | |
| 451 | S IB00=$G(^ IBA(364,+$ P(IB0,U,5) ,0)) ; Tra nsmit bill entry | |
| 452 | S IBBILL=+I B00 ; Actu al bill ie n in file 399 | |
| 453 | S IBBTCH=$P (IB0,U,4) ; Batch # | |
| 454 | ; | |
| 455 | ; Auto-audi t bills ba sed on sta tus code o n '10' rec ord of sta tus msg | |
| 456 | ; flat file | |
| 457 | I IBBILL,$P ($T(PRCAUD T+1^PRCAUD T),"**",2) [",173" D | |
| 458 | . N Z,Z0,Z1 ,OK | |
| 459 | . Q:+$$STA^ PRCAFN(IBB ILL)'=104 | |
| 460 | . S (Z,OK)= 0 | |
| 461 | . F S Z=$O (^IBA(364. 2,IBTDA,2, Z)) Q:'Z S Z0=$P($G (^(Z,0))," ##RAW DATA | |
| 462 | : ",2) I + Z0=10 S Z0 =$P(Z0,U,5 ) D Q:OK | |
| 463 | . . ; Strip leading sp aces | |
| 464 | . . S Z0=$$T RIM^XLFSTR (Z0) | |
| 465 | . . Q:Z0="" | |
| 466 | . . I $$SCOD E^IBCEST1( Z0),$P($G( ^DGCR(399. 3,+$P($G(^ DGCR(399,I BBILL,0)), | |
| 467 | U,7),0)),U ,11) D AUD ITX^PRCAUD T(IBBILL) S OK=1 ; I A 4043 | |
| 468 | ; | |
| 469 | I $S(IBMNUM ="":1,1:'I BBILL&(IBB TCH="")) D DELMSG^IB CESRV2(IBT DA) G UPDQ | |
| 470 | ; | |
| 471 | ; Individua l bill ; KDM US129 IB*2*577 rework Ind ividual vs . Batch to | |
| 472 | Correct S torage of Payer ID | |
| 473 | I IBBILL D UPDTBILL() G UPDQ | |
| 474 | ; | |
| 475 | ; Batch - u pdate each bill sepa rately | |
| 476 | S IBBILL="" | |
| 477 | F S IBBILL =$O(^IBA(3 64,"ABABI" ,+IBBTCH,I BBILL)) Q: 'IBBILL D | |
| 478 | . Q:$D(^TMP ("IBCONF", $J,IBBILL) ) ;Bill w as rejecte d | |
| 479 | . S IB=$O(^ IBA(364,"A BABI",+IBB TCH,IBBILL ,0)) | |
| 480 | . Q:'IB | |
| 481 | . D UPDTBIL L() ;K DM US129 I B*2*577 Co rrect Stor age of PAY ER ID | |
| 482 | ; | |
| 483 | Q | |
| 484 | ; | |
| 485 | UPDTBILL() ;KDM US129 IB*2 *577 New s ection to Correct St orage of P AYER ID | |
| 486 | N IBA1,IBMS G0,IBPID | |
| 487 | S IBPID="", IBA1=0 | |
| 488 | ; | |
| 489 | F S IBA1=$ O(^IBA(364 .2,IBTDA,2 ,IBA1)) Q: 'IBA1 D Q:IBPID]"" | |
| 490 | . S IBMSG0= $P($G(^(IB A1,0)),"## RAW DATA: ",2) | |
| 491 | . I +IBMSG0 =277,$P(IB MSG0,U,5)= "N" S IBPI D=$P(IBMSG 0,U,11) | |
| 492 | ; | |
| 493 | S IBSEQ=$P( IB00,U,8) S:IBSEQ="" IBSEQ="P" | |
| 494 | D STORE(IB0 ,IBBTCH,IB MNUM,IBTDA ,IBBILL,IB SEQ,IBPID, 1) | |
| 495 | Q | |
| 496 | ; | |
| 497 | STORE(IB0, IBBTCH,IBM NUM,IBTDA, IBBILL,IBS EQ,IBPID,I B1) ; | |
| 498 | ; | |
| 499 | ; IB0 = 0-n ode of mes sage in fi le 364.2 | |
| 500 | ; IBBTCH = ien of bat ch in file 364.1 | |
| 501 | ; IBMNUM = actual mes sage numbe r | |
| 502 | ; IBTDA = i en of mess age in fil e 364.2 | |
| 503 | ; IBBILL = ien of bil l in 399 | |
| 504 | ; IBSEQ = P /S/T/ for COB sequen ce related to messag e | |
| 505 | ; IBPID = t he payer i d returned from clea ringhouse for the cl aim | |
| 506 | ; IB1 = fla g that say s if the m essage was for a sin gle bill o r a batch. | |
| 507 | ; Bat ch statuse s have an additional standard text entry . | |
| 508 | ; 1 = single bi ll 0 = bat ch | |
| 509 | ; | |
| 510 | N DA,DIK,DI E,DIC,X,Y, DR,DO,DD,D LAYGO,Z,Z0 ,Z1,Z2,Z3, IBT,IBDUP, IBFLDS,IBY | |
| 511 | ,IBAUTO,IB LN | |
| 512 | ; | |
| 513 | S X=IBBILL, IBDUP=0 | |
| 514 | ; | |
| 515 | S IBFLDS=". 02////"_$P (IB0,U,3) | |
| 516 | S IBFLDS=IB FLDS_";.03 ////"_$S($ $EXTERNAL^ DILFD(364. 2,.02,"U", $P(IB0,U,2 | |
| 517 | ))["REJ":" R",1:"I")_ ";.05////" _IBBTCH_"; .06////"_I BMNUM_";.0 4////"_+$P (IB0,U,8)_ | |
| 518 | ";.07////" _IBSEQ_$S( $P(IB0,U,5 ):";.11/// /"_$P(IB0, U,5),1:"") | |
| 519 | S IBFLDS=IB FLDS_";.12 ////"_$P(I B0,U,10)_" ;.09////0" | |
| 520 | S IBFLDS=IB FLDS_";.15 ////"_$$CH KSUM^IBCES T1("^IBA(3 64.2,"_IBT DA_",2)") | |
| 521 | I IBPID'="" D | |
| 522 | . S IBPID(" TYPE")=$S( $$FT^IBCEF (IBBILL)=2 :"P",1:"I" ) | |
| 523 | . D UPDINS( .IBPID,$$P OLICY^IBCE F(IBBILL,1 ,$TR(IBSEQ ,"PST","12 3")),IBBIL | |
| 524 | L,IBTDA) ;KDM U S129 IB*2* 577 | |
| 525 | ; | |
| 526 | I IBDUP D I $D(Y) G UPDQ | |
| 527 | . ; Stuff f ields into existing entry | |
| 528 | . ; (may be needed fo r reproces sing of ab orted upda tes) | |
| 529 | . S DIE="^I BM(361,",D A=IBDUP,DR =IBFLDS_"; 1///@" | |
| 530 | . D ^DIE | |
| 531 | . I $D(Y) S IBY=-1 Q ;Update n ot success ful | |
| 532 | . S IBY=IBD UP | |
| 533 | ; | |
| 534 | K IBT | |
| 535 | I 'IBDUP D ; Create new entry and stuff fields | |
| 536 | . S DIC(0)= "L",DIC="^ IBM(361,", DLAYGO=361 | |
| 537 | . S DIC("DR ")=IBFLDS | |
| 538 | . D FILE^DI CN | |
| 539 | . K DO,DD,D LAYGO,DIC | |
| 540 | . S IBY=+Y | |
| 541 | . Q:IBY'>0 | |
| 542 | . ; | |
| 543 | . ; IB*2*32 0 - Check for duplic ate status message | |
| 544 | . NEW IBNEW ,IBOLD,PCE ,Z,DIK,DA | |
| 545 | . S IBNEW=" " | |
| 546 | . F PCE=3,4 ,5,7,8,11, 15 S IBNEW =IBNEW_$P( $G(^IBM(36 1,IBY,0)), U,PCE)_U | |
| 547 | . S Z=0 | |
| 548 | . F S Z=$O (^IBM(361, "B",IBBILL ,Z)) Q:'Z I Z'=IBY D Q:IBY'> 0 | |
| 549 | . . S IBOLD= "" | |
| 550 | . . F PCE=3, 4,5,7,8,11 ,15 S IBOL D=IBOLD_$P ($G(^IBM(3 61,Z,0)),U ,PCE)_U | |
| 551 | . . I IBNEW' =IBOLD Q ; no dupl icate so g et the nex t one | |
| 552 | . . S DIK="^ IBM(361,", DA=IBY,IBY =-1 D ^DIK D DELMSG^ IBCESRV2(I BTDA) | |
| 553 | . . Q | |
| 554 | . Q | |
| 555 | ; | |
| 556 | I IBY>0 D ;Move text over | |
| 557 | . K IBT | |
| 558 | . ; | |
| 559 | . D BLDMSG( IB1,IBTDA, .IBT,.IBAU TO) | |
| 560 | . ; | |
| 561 | . ; IB*2*36 8 - ymg - 2Q,RE,RP m essages wi ll be file d as infor mational | |
| 562 | . ; Z0 is t he flag fo r 2Q code | |
| 563 | . ; Z1 is t he flag fo r RE code | |
| 564 | . ; Z2 is t he flag fo r RP code | |
| 565 | . ; Z3 is t he flag fo r autofili ng the mes sage | |
| 566 | . I $P($G(^ IBM(361,+I BY,0)),U,3 )="R" D | |
| 567 | . . S Z="",( Z0,Z1,Z2,Z 3)=0 F S Z=$O(IBT(Z )) Q:Z=""! (Z3=1) D | |
| 568 | . .. S IBLN= $$UP^XLFST R($G(IBT(Z ))) | |
| 569 | . .. I (Z0!Z 1!Z2)=0 D | |
| 570 | . ... S:IBLN ?.E1"CODE: ".P1"2Q".E Z0=1 | |
| 571 | . ... S:IBLN ?.E1"CODE: ".P1"RE".E Z1=1 | |
| 572 | . ... S:IBLN ?.E1"CODE: ".P1"RP".E Z2=1 | |
| 573 | . .. I Z0=1 S:IBLN?.P1 "CLAIM".P1 "REJECTED" .P1"BY".P1 "CLEARINGH OUSE".E Z3 | |
| 574 | =1 | |
| 575 | . .. I Z1=1 S:IBLN?.P1 "ELECTRONI C".P1"CLAI M".P1"REJE CTED".P1"B Y".P1"EMDE | |
| 576 | ON".E Z3=1 | |
| 577 | . .. I Z2=1 S:IBLN?.P1 "PAPER".P1 "CLAIM".P1 "REJECTED" .P1"BY".P1 "EMDEON".E | |
| 578 | Z3=1 | |
| 579 | . . I Z3=1 S IBAUTO=1, DIE=361,DA =+IBY,DR=" .03////I" D ^DIE | |
| 580 | . . Q | |
| 581 | . ; | |
| 582 | . ; if info msg, ck f or no revi ew needed based on f irst line of text | |
| 583 | . I $G(IBAU TO),$P($G( ^IBM(361,+ IBY,0)),U, 3)="I" D | |
| 584 | . . S DIE="^ IBM(361,", DR=".09/// /2;.14//// 1;.1////F" ,DA=+IBY D ^DIE | |
| 585 | . . I IB1,$P ($G(^IBM(3 61,+IBY,0) ),U,11) S Z="",Z0=0 F S Z=$O( IBT(Z)) Q: | |
| 586 | Z=""!(Z0=1 ) D | |
| 587 | . .. S Z0=$$ PRINTUPD^I BCEU0($$UP ^XLFSTR($G (IBT(Z))), $P($G(^IBM (361,+IBY, | |
| 588 | 0)),U,11)) | |
| 589 | . ; | |
| 590 | . D MSGLNSZ (.IBT) ; C onvert Mes sage Lines in IBT to be no lon ger than 7 | |
| 591 | 0 chars | |
| 592 | . D WP^DIE( 361,+IBY_" ,",1,"A"," IBT") ; file mess age text | |
| 593 | . ; | |
| 594 | . ; Delete message af ter it suc cessfully updates th e database . | |
| 595 | . D DELMSG^ IBCESRV2(I BTDA) | |
| 596 | . Q | |
| 597 | ; | |
| 598 | UPDQ L -^IBA(364 .2,IBTDA,0 ) | |
| 599 | Q | |
| 600 | ; | |
| 601 | BLDMSG(IB1 ,IBTDA,IBT ,IBAUTO) ; Builds me ssage text | |
| 602 | ; IB1 = fla g for batc h message | |
| 603 | ; IBTDA = i en of entr y in file 364.2 | |
| 604 | ; IBT = arr ay returne d with mes sage text | |
| 605 | ; IBAUTO = if passed by referen ce, return s 1 if tex t indicate s review | |
| 606 | ; not needed | |
| 607 | N IBDATA,IB CK,IBZ,IBZ 0,IBZ1,Z | |
| 608 | S (IBZ,IBZ0 ,IBDATA,IB AUTO,IBCK) =0 | |
| 609 | I 'IB1 S IB T(1)="Stat us message received for batch "_$P($G(^I BA(364.1,I | |
| 610 | BBTCH,0)), U)_" dated "_$$FMTE^ XLFDT($P($ G(^IBA(364 .2,IBTDA,0 )),U,10),2 ),IBZ0=1 | |
| 611 | ; Don't mov e the raw data over, just move the text of the mes sage | |
| 612 | F S IBZ=$O (^IBA(364. 2,IBTDA,2, IBZ)) Q:'I BZ S IBZ1 =$G(^(IBZ, 0)) S IBDA | |
| 613 | TA=($E(IBZ 1,1,2)="## ") Q:IBDAT A S IBZ0= IBZ0+1,IBT (IBZ0)=IBZ 1 I 'IBCK S Z=$$CKRE | |
| 614 | VU^IBCEM4( IBZ1,,,.IB CK),IBAUTO =$S(IBCK:0 ,Z:1,1:IBA UTO) | |
| 615 | Q | |
| 616 | ; | |
| 617 | UPDINS(IBP ID,IBINS,I BIFN,IBTDA ) ;KDM US129 IB* 2*577 | |
| 618 | ; Update th e insuranc e id or th e bill pri nted at | |
| 619 | ; the ED I contract or's print shop and mailed to the ins co . | |
| 620 | ; IBPID = t he id retu rned from the EDI co ntractor f or the ins co | |
| 621 | ; ("TY PE") = P i f professi onal id or I if inst itutional id | |
| 622 | ; IBINS = t he ien of the insura nce co it was sent t o (file 36 ) | |
| 623 | ; IBIFN = t he ien of the claim (file 399) | |
| 624 | ; IBTDA = i en of entr y in file 364.2 ;KDM US129 IB*2*577 | |
| 625 | ; | |
| 626 | N IBID,IBID FLD,IBPRT, IBLOOK,DA, DR,DIE,X,Y ,Z,UPD ;KDM US12 9 IB*2*577 | |
| 627 | ; | |
| 628 | Q :'$G(IBINS )!($G(IBPI D)="") | |
| 629 | ; | |
| 630 | ; Strip spa ces off th e end of d ata | |
| 631 | S IBLOOK="" | |
| 632 | I $L(IBPID) F Z=$L(IB PID):-1:1 I $E(IBPID ,Z)'=" " S IBLOOK=$E (IBPID,1,Z | |
| 633 | ) Q | |
| 634 | ; | |
| 635 | S IBPRT=($E (IBLOOK,2, 5)="PRNT") | |
| 636 | I IBPRT D ; Set prin ted via ED I field on bill | |
| 637 | . S DA=IBIF N,DIE="^DG CR(399,",D R="26////1 " D ^DIE | |
| 638 | ; | |
| 639 | ; KDM US129 IB*2*577 correct p ayer ID st orage | |
| 640 | ; S IBLOOK=$ E($S('IBPR T:$P(IBLOO K,"PAYID=" ,2),1:""), 1,5) | |
| 641 | ; Q:IBLOOK=" "!($E(IBLO OK,2,5)="P RNT") | |
| 642 | I IBPRT Q | |
| 643 | I IBLOOK'[" PAYID=",IB LOOK'["COB ID=" Q ;KDM US12 9 IB*2*577 | |
| 644 | S IBLOOK=$E ($P(IBLOOK ,"ID=",2), 1,5) | |
| 645 | Q :IBLOOK="" | |
| 646 | ; | |
| 647 | S IBIDFLD=" 3.0"_$S($G (IBPID("TY PE"))="I": 4,1:2) | |
| 648 | S IBID=$P($ G(^DIC(36, +IBINS,3)) ,U,IBIDFLD *100#100) | |
| 649 | Q :IBID=IBLO OK | |
| 650 | S IBDATE=$P ($P($G(^IB A(364.2,IB TDA,0)),U, 10),".",1) ,IBTYP=$G( IBPID("TYP | |
| 651 | E")) ; KDM US129 IB*2*577 | |
| 652 | I IBID="" D G UPDINS Q ; Update insurance co electr onic id # if blank | |
| 653 | . S DIE="^D IC(36,",DR =IBIDFLD_" ////"_IBLO OK,DA=IBIN S D ^DIE | |
| 654 | . D UPDLOG( 1,IBDATE,I BINS,IBLOO K,IBTYP,IB ID) ;K DM US129 I B*2*577 | |
| 655 | I IBID'="", IBLOOK'="" D ; Bull etin that the id on file and i d returned | |
| 656 | . ; are dif ferent | |
| 657 | . N XMTO,XM DUZ,XMBODY ,IBXM,XMSU BJ,XMZ | |
| 658 | . S XMTO("I :G.IB EDI" )="" | |
| 659 | . S XMDUZ=" ",XMBODY=" IBXM",XMSU BJ="PAYER ID RETURNE D IS DIFFE RENT THAN | |
| 660 | PAYER ID O N FILE" | |
| 661 | . S IBXM(1) ="BILL # : "_$P( $G(^DGCR(3 99,IBIFN,0 )),U) | |
| 662 | . S IBXM(2) ="PAYER : "_$P( $G(^DIC(36 ,+IBINS,0) ),U) | |
| 663 | . S IBXM(3) ="BILL TYP E : "_$S( $G(IBPID(" TYPE"))="I ":"INSTITU T",1:"PROF | |
| 664 | ESS")_"ION AL" | |
| 665 | . S IBXM(4) ="ID ON FI LE : "_IBI D | |
| 666 | . S IBXM(5) ="ID RETUR NED: "_IBL OOK | |
| 667 | . S IBXM(6) =" ",IBXM( 7)=" Ple ase determ ine which id number is correct | |
| 668 | and corre ct the id in the",IB XM(8)="ins urance fil e for this payer, if needed" | |
| 669 | . D SENDMSG ^XMXAPI(XM DUZ,XMSUBJ ,XMBODY,.X MTO,,.XMZ) | |
| 670 | . D UPDLOG( 0,IBDATE,I BINS,IBLOO K,IBTYP,IB ID) ;K DM US129, US976 IB*2 | |
| 671 | *577 | |
| 672 | ; | |
| 673 | UPDINSQ Q | |
| 674 | ; | |
| 675 | UPDLOG(UPD ,IBDATE,IB INS,IBLOOK ,IBTYP,IBI D) ;KDM US129, US 976 IB*2*5 77 New sec | |
| 676 | tion for N ew Payer R eport | |
| 677 | ; store fld s for repo rting purp oses when updating o r attempti ng to upda | |
| 678 | te Payer i nformation (US129) | |
| 679 | ; ^DIC(36 - 17.0 277ED I ID Numbe r | |
| 680 | ; 17.01 277E DI ID Numb er | |
| 681 | ; 17.02 277D ate EDI ID Number | |
| 682 | ; 17.03 277E DI Type (P )ROF or (I )nst | |
| 683 | ; 17.04 277E DI ID NUMB ER ON FILE ;if blank it was an update ot | |
| 684 | herwise it was an at tempted up date. | |
| 685 | ; | |
| 686 | Q :(($D(^DIC (36,"AEDIX ",IBDATE,I BINS,IBLOO K,IBTYP))) &(UPD=0)) ;store | |
| 687 | only one attempt a day | |
| 688 | N ERROR,IBF DA,LEV | |
| 689 | S LEV="+2," _IBINS_"," | |
| 690 | S IBFDA(36. 017,LEV,.0 1)=IBLOOK ;New V alue from 277STAT | |
| 691 | S IBFDA(36. 017,LEV,.0 2)=IBDATE ;Date from 277ST AT FM form at | |
| 692 | S IBFDA(36. 017,LEV,.0 3)=IBTYP ;"P" o r "I" | |
| 693 | S IBFDA(36. 017,LEV,.0 4)=$G(IBID ) ;Value already o n file- if blank it | |
| 694 | was an upd ate, other wise attem pted updat e | |
| 695 | D UPDATE^DI E("","IBFD A","","ERR OR") | |
| 696 | Q | |
| 697 | ; | |
| 698 | MSGLNSZ(MS G) ; Chang e Input Me ssage Line s to be no more than 70 charac ters long | |
| 699 | each | |
| 700 | ; | |
| 701 | ; Input/Out put: MSG - array of Input M essage Lin es; this i s also the | |
| 702 | Output Me ssage | |
| 703 | ; which is an array o f Converte d Message Lines (wit h lines no more than | |
| 704 | 70 chars each) | |
| 705 | ; | |
| 706 | N LN,XARY,X ARYLN,CNT, OUTMSG,TMP MSG,LDNGSP ,LDNGSPN | |
| 707 | S LN="",CNT =0 F S LN =$O(MSG(LN )) Q:LN="" D ; | |
| 708 | . ; Find an y leading spaces in original m essage lin e, | |
| 709 | . ; to be u sed if lin e got spli t below | |
| 710 | . S TMPMSG= $$TRIM^XLF STR(MSG(LN ),"L"," ") ;Trim Le ading Spac es | |
| 711 | . S LDNGSP= $P(MSG(LN) ,TMPMSG,1) ;get lea ding space s if any | |
| 712 | . S LDNGSPN =$L(LDNGSP ) S:LDNGSP N>30 LDNGS P=$E(LDNGS P,1,30) ;m ake sure t | |
| 713 | here are n o more tha n 30 leadi ng spaces | |
| 714 | . ; Convert s a single line to m ultiple li nes with a maximum w idth of 70 | |
| 715 | each | |
| 716 | . ; If line is 70 cha rs or less , this cal l returns the exact line | |
| 717 | . K XARY D FSTRNG^IBJ U1(TMPMSG, 70-LDNGSPN ,.XARY) | |
| 718 | . ; Scan li nes and me rge them i nto the fi nal output array (OU TMSG) | |
| 719 | . ; On line s 2 and hi gher, add Leading Sp aces found above, if any. | |
| 720 | . S XARYLN= "" F S XA RYLN=$O(XA RY(XARYLN) ) Q:XARYLN ="" S CNT =CNT+1,OUT | |
| 721 | MSG(CNT)=L DNGSP_XARY (XARYLN) | |
| 722 | ; | |
| 723 | ; Move the final Mess age Lines (OUTMSG) i nto MSG ar ray to be returned | |
| 724 | K MSG M MSG =OUTMSG | |
| 725 | Q | |
| 726 | ; | |
| 727 | ||
| 728 | ... | |
| 729 | ||
| 730 | ||
| 731 | ||
| 732 | Sample 277 STAT flat file: | |
| 733 | 402MCHRUEV DRN0025427 7STAT^P^20 161124^120 0^N^000000 4^0000000^ 0000006749 8^00000000 000^CIGNA ^62308 0000 ^N^EM DEON ^4 020LQ ^ ~ | |
| 734 | 402MCHRUEV DRN0025409 ^442-K702Q 09 ^ ^ ^ ^ ~ | |
| 735 | 402MCHRUEV DRN0025410 ^442-K702Q 09 ^A^I^AE ^Accepted Claim sen t out elec tronically ^ ~ | |
| 736 | 402MCHRUEV DRN0000499 ^$ | |
| 737 | 402MCHRUEV DRN0025427 7STAT^P^20 161124^120 0^N^000000 4^0000000^ 0000006749 8^00000000 000^AETNA US HEALTHC ARE ^60054 0000 ^N^EM DEON ^4 020LQ ^ ~ | |
| 738 | 402MCHRUEV DRN0025409 ^442-K702Q 0D ^ ^ ^ ^ ~ | |
| 739 | 402MCHRUEV DRN0025410 ^442-K702Q 0D ^A^I^AE ^Accepted Claim sen t out elec tronically ^ ~ | |
| 740 | 402MCHRUEV DRN0000499 ^$ | |
| 741 | 402MCHRUEV DRN0025427 7STAT^P^20 161124^120 0^N^000000 4^0000000^ 0000006749 8^00000000 000^AETNA US HEALTHC ARE ^60054 0000 ^N^EM DEON ^4 020LQ ^ ~ | |
| 742 | 402MCHRUEV DRN0025409 ^442-K702Q 0C ^ ^ ^ ^ ~ | |
| 743 | 402MCHRUEV DRN0025410 ^442-K702Q 0C ^A^I^AE ^Accepted Claim sen t out elec tronically ^ ~ | |
| 744 | 402MCHRUEV DRN0000499 ^$ | |
| 745 | 402MCHRUEV DRN0025427 7STAT^P^20 161124^120 0^N^000000 4^0000000^ 0000006749 8^00000000 000^BLUE C ROSS CA (N E) ^TEST1 2000 ^N^EM DEON ^4 020LQ ^ ~ | |
| 746 | 402MCHRUEV DRN0025409 ^442-K702Q 0B ^ ^ ^ ^ ~ | |
| 747 | 402MCHRUEV DRN0025410 ^442-K702Q 0B ^A^I^AE ^Accepted Claim sen t out elec tronically ^ ~ | |
| 748 | 402MCHRUEV DRN0025413 ^442-K702Q 0B ^EP012200 02AFRV9 ^ ^ ^ ^P^ ~ | |
| 749 | 402MCHRUEV DRN0025415 ^442-K702Q 0B ^IB ^PATIENT ^C ^ ^ ^ ^ ^R 4545456 ^ 20161020^2 0161020 ~ | |
| 750 | 402MCHRUEV DRN0000499 ^$ | |
| 751 | ||
| 752 | ||
| 753 | ||
| 754 | Helpful hi nts for de velopment and testin g: | |
| 755 | ||
| 756 | Make sure the mail g roup “MCT” is set up with REMO TE MEMBER: | |
| 757 | “S.IBCE M ESSAGES
|
|
| 758 | ||
| 759 | ||
| 760 | ||
| 761 | NAME: IBCE MESSAGES SERVER MENU TEXT: Return Me ssage Serv er | |
| 762 | TYPE: se rver CREATOR: S HURMAN,JIL LIAN A | |
| 763 | PACKAGE: INTEGRATE D BILLING | |
| 764 | DESCRIPTIO N: This option con trols the reading an d storing of return messages | |
| 765 | generated as a resul t of the p rocessing of Integra ted Billin g electron ic | |
| 766 | transmissi ons with t he Austin translator . | |
| 767 | ROUTINE: SERVER^IB CESRV SERVER ACT ION: RUN I MMEDIATELY | |
| 768 | SERVER A UDIT: NO SUPRESS BU LLETIN: YE S, SUPRESS IT | |
| 769 | SERVER R EPLY: NO R EPLY (DEFA ULT) | |
| 770 | UPPERCAS E MENU TEX T: RETURN MESSAGE SE RVER |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.