IBCE837ACCU ;EDE/JWS - ACC consume X12 claim data ;
Source file <IBCE837ACCU.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 7 | ($$DIV,ALL,UP,USERUP)^IBCE837ACC SET^IBCE837ACC1 UPDATE^IBCE837ACC2A PAT^IBCE837ACC4 $$GETTAX^IBCEF73A ALL^IBCNS1 $$PLCOV^IBCNSU3 |
| VA FileMan | 5 | DD^%DT (,NOW)^%DTC FILE^DICN ^DIK $$GET1^DIQ |
| DRG Grouper | 1 | $$CODEN^ICDEX |
| Kernel | 1 | $$QI^XUSNPI |
| Registration | 1 | $$SITE^VASITE |
| Scheduling | 1 | $$OUTPTPR^SDUTL3 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 9 | IBACCWLAIBILL IBACCWLUTIL4 IBCE837ACC IBCE837ACC1 IBCE837ACC2 IBCE837ACC3 IBCE837ACC4 IBCE837ACCU1 IBCE837ACCU2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| D(XD) | ;file diagnosis codes
|
|
| VAL(IBX12) | ;function to call to re-try validation/auto-bill creation / auto-transmit
; IBX12 - ien to file 364.9 |
|
| 20 | ;LOOP 20
|
|
| 22 | ;LOOP 22
|
|
| NEXT | ;
|
|
| DT(FIELD) | ;
|
|
| CHKINS(IBPATIEN,IBDOS,IBFT,IBINSNAME) | ;
; IBPATIEN = patient IEN pointer ; IBDOS = date of service from 1st service line item in X12 claim ; IBFT = vista form type, 2=Prof, 3=Inst, 7=Dental ; IBINSNAME = return ins name value |
|
| CHK35593(IBPNPI,IBPT1,IBSLINE) | ;
; IBPNPI=NPI to look for ; IBPT1=provider type ; 85=billing provider ; DN=referring provider ; 82=rendering provider ; 77=service facility ; DQ=supervising provider ; 71=attending provider ; 72=operating physician ; ZZ=other operating physician ; DD=assistant surgeon ; IBSLINE=service line number, if provider is at the line level |
|
| TOC(IBINS) | ;
|
|
| PCP(IBPATIEN,IBFT) | ;swap primary care physician or billing provider
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | VAL+13 |
| ^%DTC | CHKINS+46 |
| NOW^%DTC | VAL+13 |
| FILE^DICN | D+6 |
| ^DIK | VAL+23, PCP+26, PCP+41 |
| $$GET1^DIQ | VAL+41, CHKINS+6, CHKINS+7, CHKINS+21, CHKINS+44, CHK35593+37, CHK35593+56, CHK35593+57, TOC+3, PCP+4 |
| $$DIV^IBCE837ACC | VAL+22 |
| ALL^IBCE837ACC | VAL+56 |
| UP^IBCE837ACC | VAL+16, CHKINS+36, CHKINS+37, CHKINS+38, CHKINS+39, CHKINS+40, CHKINS+47, CHKINS+48, CHKINS+51, CHKINS+57 , CHKINS+62, CHKINS+70, PCP+12, PCP+27, PCP+42 |
| USERUP^IBCE837ACC | VAL+17 |
| SET^IBCE837ACC1 | 20+6, 22+4, 22+5, DT+3, DT+4, CHK35593+54, CHK35593+61 |
| UPDATE^IBCE837ACC2A | CHKINS+54, CHKINS+59, CHKINS+64, CHKINS+67, CHKINS+68 |
| PAT^IBCE837ACC4 | 22+8 |
| $$GETTAX^IBCEF73A | CHK35593+48, CHK35593+51 |
| ALL^IBCNS1 | CHKINS+14 |
| $$PLCOV^IBCNSU3 | CHKINS+28 |
| $$CODEN^ICDEX | D+4 |
| $$OUTPTPR^SDUTL3 | CHK35593+27, PCP+4 |
| $$SITE^VASITE | VAL+21 |
| $$QI^XUSNPI | CHK35593+23 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBA(355.93 - [#355.93] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBA(362.3 - [#362.3] | Classic Fileman Calls |
| 364.96 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | CHKINS+33 |
| ^IBA(362.3 - [#362.3] | D+2 |
| ^IBA(364.9 - [#364.9] | VAL+12, VAL+14, VAL+20, VAL+21, VAL+23, CHKINS+36, CHKINS+37, CHKINS+38, CHKINS+39, CHKINS+40 , PCP+11, PCP+26, PCP+41 |
| ^IBA(364.91 - [#364.91] | PCP+10 |
| ^IBE(355.31 - [#355.31] | CHKINS+25 |
| ^TMP("IB837ACC" | VAL+8!, VAL+42*, CHKINS+51, CHKINS+52*, CHKINS+53*, CHKINS+57, CHKINS+58*, CHKINS+62, CHKINS+63*, CHKINS+65 , CHKINS+66, CHKINS+67, CHKINS+70, CHKINS+72, CHK35593+20, CHK35593+55*, CHK35593+62*, PCP+5, PCP+8, PCP+9* , PCP+18, PCP+20*, PCP+23, PCP+25, PCP+32, PCP+34*, PCP+37, PCP+39, PCP+40 |
| Name | Field # of Occurrence |
|---|---|
| ^( | VAL+20, PCP+26, PCP+41 |
| ^($J | CHKINS+65, CHKINS+66* |
| ^(72 | PCP+37 |
| ^(82 | PCP+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | VAL+13 |
| ARG | VAL+3~ |
| ARG( | VAL+25, VAL+27*, VAL+28, VAL+35, VAL+40, 20+4, 20+5, 20+6, 22+4, 22+5 , 22+8, 22+10, 22+13, 22+17, NEXT+1, NEXT+2, DT+2, CHK35593+20* |
| ARG("SEG" | VAL+20* |
| B | VAL+3~ |
| D | VAL+3~ |
| D0 | VAL+6~ |
| D1 | VAL+6~ |
| DA | D+5!, D+8!, VAL+23*, PCP+17~, PCP+26*, PCP+31~, PCP+41* |
| DA(1 | VAL+23*, PCP+26*, PCP+41* |
| DATE | DT+1~, DT+2*, DT+3, DT+4 |
| DD | D+5!, D+6!, D+8! |
| DFN | VAL+3~ |
| DG | VAL+6~ |
| DGRVRCAL | VAL+6~ |
| DI | VAL+3~ |
| DIC | D+5!, D+6*, D+8!, VAL+3~ |
| DIC("DR" | D+6* |
| DIC(0 | D+6* |
| DICR | VAL+3~ |
| DIE | D+5!, D+8! |
| DIK | VAL+3~, VAL+23*, PCP+17~, PCP+26*, PCP+31~, PCP+41* |
| DIV | VAL+6~ |
| DLAYGO | D+5!, D+6*, D+8! |
| DO | D+5!, D+6!, D+8! |
| DOB | VAL+3~, 22+13* |
| DR | D+5! |
| FIELD | DT~, DT+3, DT+4 |
| I | D+4*, VAL+3~, VAL+20*, CHK35593+14~, CHK35593+28* |
| IB3553 | CHKINS+5~, CHKINS+21*, CHKINS+28 |
| IB35531 | CHKINS+5~, CHKINS+25*, CHKINS+28 |
| IB36491 | PCP+10~*, PCP+11 |
| IBACCRPC1 | VAL+10! |
| IBAT | VAL+3~ |
| IBAU | VAL+3~ |
| IBAUTH | VAL+7~ |
| IBBAD | VAL+6~, VAL+24*, VAL+30*, VAL+53 |
| IBBNO | VAL+3~ |
| IBCAT | CHKINS+5~, CHKINS+23*, CHKINS+24, CHKINS+25 |
| IBCID | CHKINS+5~, CHKINS+6*, CHKINS+48 |
| IBCL | VAL+3~ |
| IBCOB | CHKINS+5~, CHKINS+41*, CHKINS+50, CHKINS+56, CHKINS+61 |
| IBCPT | VAL+5~ |
| IBCPTS | VAL+5~ |
| >> IBDIG( | D+7* |
| IBDOB | VAL+3~, 22+13* |
| IBDOD | 22+3~, 22+4* |
| IBDOS | VAL+3~, CHKINS~, CHKINS+14, CHKINS+28, CHKINS+45 |
| IBDUP | VAL+7~ |
| IBER | VAL+3~ |
| IBERRMSG | VAL+4~ |
| IBEU | VAL+4~ |
| IBEVDT | VAL+4~ |
| IBEXP | CHKINS+5~, CHKINS+21*, CHKINS+47*, CHKINS+48*, CHKINS+73 |
| IBFDT | VAL+4~ |
| IBFT | VAL+5~, CHKINS~, CHKINS+23, CHKINS+29, CHKINS+30, CHKINS+65, PCP~, PCP+2, PCP+16, PCP+18 , PCP+30 |
| IBGP | CHKINS+5~, CHKINS+21*, CHKINS+29, CHKINS+30, CHKINS+53 |
| IBI | VAL+3~, VAL+25*, NEXT+1*, NEXT+2* |
| IBIFN | D+2, D+6, VAL+3~ |
| IBINS | CHKINS+5~, TOC~, TOC+3 |
| IBINS( | CHKINS+21, CHKINS+32, CHKINS+33, CHKINS+41, CHKINS+45, CHKINS+52, CHKINS+54, CHKINS+58, CHKINS+59, CHKINS+63 , CHKINS+64 |
| IBINS("S" | CHKINS+17, CHKINS+19 |
| IBINS(0 | CHKINS+15 |
| IBINSNAME | CHKINS~, CHKINS+33*, CHKINS+36, CHKINS+37, CHKINS+38, CHKINS+39, CHKINS+40, CHKINS+47, CHKINS+48, CHKINS+51 , CHKINS+57, CHKINS+62 |
| IBIO | VAL+3~, VAL+24*, CHKINS+23 |
| IBLDOS | VAL+3~ |
| IBLOC | VAL+4~ |
| IBM | VAL+4~ |
| IBMID | CHKINS+5~, CHKINS+7*, CHKINS+47 |
| IBMOD | VAL+4~ |
| IBMRAF | VAL+4~ |
| IBND | VAL+7~, VAL+13* |
| IBND0 | VAL+4~ |
| IBNDM | VAL+4~ |
| IBNOTE | VAL+5~ |
| IBPATFN | VAL+4~ |
| IBPATICN | VAL+7~, 22+8* |
| IBPATIEN | VAL+7~, CHKINS~, CHKINS+14, CHKINS+44, CHK35593+27, PCP~, PCP+4 |
| IBPATLN | VAL+4~, 22+17 |
| IBPATMN | VAL+4~ |
| IBPATSSN | VAL+4~, 22+17* |
| IBPAYERID | VAL+7~, 22+10* |
| IBPDX | VAL+7~ |
| IBPN | VAL+4~ |
| IBPN1 | VAL+4~, 20+4*, 20+6 |
| IBPN2 | VAL+5~, CHK35593+15*, CHK35593+56*, CHK35593+57* |
| IBPNPI | VAL+5~, CHK35593~, CHK35593+18, CHK35593+20*, CHK35593+23 |
| IBPT | VAL+5~ |
| IBPT1 | CHK35593~, CHK35593+20, CHK35593+34, CHK35593+39, CHK35593+41, CHK35593+52, CHK35593+54, CHK35593+55, CHK35593+60, CHK35593+61 , CHK35593+62 |
| IBPT2 | CHK35593+14~, CHK35593+37*, CHK35593+39, CHK35593+41, CHK35593+43 |
| IBPW | 22+3~, 22+5* |
| IBREF | VAL+7~ |
| IBREFD9 | VAL+4~ |
| IBSEG | VAL+3~, VAL+24*, VAL+25*, VAL+27, VAL+28, VAL+35, VAL+40, 20+4, 20+5, 20+6 , 22+4, 22+5, 22+8, 22+10, 22+13, 22+17, DT+2, CHK35593+20 |
| IBSEGN | VAL+3~, NEXT+1*, NEXT+2* |
| IBSITE | VAL+3~, VAL+22* |
| IBSITE(1 | VAL+21*, VAL+22 |
| IBSLINE | VAL+3~, VAL+40*, VAL+41, VAL+42, CHK35593~, CHK35593+54, CHK35593+55, CHK35593+61, CHK35593+62 |
| IBSPID | VAL+5~ |
| IBTNUM | VAL+7~ |
| IBTOC | TOC+1~, TOC+3*, TOC+4 |
| IBTOP | CHKINS+5~, CHKINS+21*, CHKINS+40, CHKINS+53 |
| IBX | VAL+6~, VAL+23*, CHKINS+5~, CHKINS+19*, CHKINS+28, CHKINS+29, CHKINS+30, CHKINS+47, CHKINS+48, CHKINS+52 , CHKINS+53, PCP+17~, PCP+26*, PCP+31~, PCP+41* |
| IBX1 | CHKINS+5~, CHKINS+19*, CHKINS+21, CHKINS+32, CHKINS+33, CHKINS+41, CHKINS+45, CHKINS+52, CHKINS+54, CHKINS+58 , CHKINS+59, CHKINS+63, CHKINS+64, PCP+17~, PCP+25*, PCP+26, PCP+31~, PCP+40*, PCP+41 |
| IBX12 | VAL~, VAL+2, VAL+12, VAL+14, VAL+16, VAL+17, VAL+20, VAL+21, VAL+23, VAL+41 , CHKINS+36, CHKINS+37, CHKINS+38, CHKINS+39, CHKINS+40, CHKINS+47, CHKINS+48, CHKINS+51, CHKINS+54, CHKINS+57 , CHKINS+59, CHKINS+62, CHKINS+64, CHKINS+67, CHKINS+68, CHKINS+70, PCP+12, PCP+26, PCP+27, PCP+41 , PCP+42 |
| IBXARRAY | VAL+4~ |
| IBXARRY | VAL+4~ |
| IBXERR | VAL+4~ |
| LOOP | VAL+3~, VAL+24*, VAL+35*, VAL+36*, VAL+40*, VAL+51* |
| OK | VAL+3~, 20+5*, 20+6, CHK35593+14~, CHK35593+25*, CHK35593+28, CHK35593+31*, CHK35593+34*, CHK35593+36, CHK35593+39* , CHK35593+41*, CHK35593+43*, CHK35593+47, CHK35593+48, CHK35593+50*, CHK35593+52*, CHK35593+56, CHK35593+59 |
| OK1 | CHK35593+30~, CHK35593+47, CHK35593+48*, CHK35593+49, CHK35593+51*, CHK35593+52 |
| PCP | CHK35593+14~, CHK35593+27*, CHK35593+60, CHK35593+61, CHK35593+62, PCP+3~, PCP+4*, PCP+20, PCP+34 |
| RDATES | VAL+6~ |
| RES | CHK35593+14~, CHK35593+23*, CHK35593+28 |
| RES1 | CHK35593+14~, CHK35593+28*, CHK35593+29, CHK35593+31, CHK35593+37, CHK35593+48, CHK35593+51, CHK35593+54, CHK35593+55, CHK35593+56 , CHK35593+57 |
| SEG | VAL+3~, VAL+28*, VAL+30, VAL+31, VAL+32, VAL+34, VAL+39, VAL+43, VAL+44, VAL+45 , VAL+46, VAL+47, VAL+48, VAL+49, VAL+50, VAL+51, 20+1, 22+2, 22+7, 22+13 , 22+14 |
| SEG2 | VAL+3~, VAL+28*, 20+2, 20+8, 20+9, 22+8, 22+9, 22+15 |
| VA | VAL+6~ |
| VADM | VAL+6~ |
| X | D+6*, VAL+3~, VAL+19*, VAL+20*, VAL+41*, VAL+42, CHKINS+5~, CHKINS+47, CHKINS+48, CHKINS+52* , CHKINS+58*, CHKINS+63* |
| X1 | D+1~, D+4*, CHKINS+5~, CHKINS+45* |
| X1D | D+1~, D+4*, D+6 |
| X2 | CHKINS+5~, CHKINS+45* |
| XBP | PCP+3~, PCP+5*, PCP+9 |
| XD | D~, D+4 |
| XDT | DT+1~, DT+3*, DT+4* |
| XIBPNPI | PCP+3~, PCP+4*, PCP+18, PCP+20, PCP+32, PCP+34 |
| XNPI | CHK35593+14~ |
| XORD | D+1~, D+2*, D+6*, D+7 |
| XX | VAL+3~ |
| Y | D+1~, D+7, VAL+3~, VAL+13* |