IBACCWLEE1 ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Item Expand Encounter Display Formats ; 12-SEP-2023 ; 12-SEP-2023
Source file <IBACCWLEE1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 16 | ($$EMPL,PRINT2)^IBACCWLEE4 EN^IBCCR ($$COBN,$$FT,$$POLICY,F)^IBCEF $$EDIACTV^IBCEF4 ($$HOD,$$HPD)^IBCNHUT1 BCOB^IBCU3 ($$MCRWNR,$$WNRBILL)^IBEFUNC $$SETN^IBJTCA1 RCANC^IBJTU2 $$BADD^IBJTU3 $$ARSTATA^IBJTU4 ($$DATE,$$EXSET)^IBJU1 $$NABP^IBNCPDPU $$BILINF^IBNCPUT3 RELBILL^IBRFN $$EXPAND^IBTRE |
| Kernel | 2 | $$FMTE^XLFDT $$TITLE^XLFSTR |
| List Manager | 2 | $$SETSTR^VALM1 (CNTRL,SET)^VALM10 |
| Accounts Receivable | 1 | ($$BILL,$$STNO)^RCJIBFN2 |
| E Claims Management Engine | 1 | $$NABP^BPSBUTL |
| Outpatient Pharmacy | 1 | RX^PSO52API |
| VA FileMan | 1 | $$EXTERNAL^DILFD |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD(IBIFN,IBLN,VALMCNT) | ; build array for Third Party Joint Inquiry Claims Info screen, IBIFN must be defined
|
|
| COPAY | ||
| BLDQ | ||
| SET(IBT,IBD,IBLN,IBLR) | ;
|
|
| SET2(TTL,DATA,LN,LR) | ;EP -
|
|
| SETN(TTL,LN,LR,RV) | ;EP -
|
|
| SET1(STR,LN,COL,WD,RV) | ; set up TMP array with screen data
|
|
| EXT(STR,DT,USER) | ; returns external form of user and date, given their position in the string
|
|
| SLINE(IBD,DATA,COL,WD) | ; format a single line with multiple data fields
|
|
| HDR2 | ;Print the header for first party bills - IB*2*516
|
| Name | Field # of Occurrence |
|---|---|
| $$NABP^BPSBUTL | BLD+30 |
| $$EXTERNAL^DILFD | COPAY+17 |
| $$EMPL^IBACCWLEE4 | BLD+46 |
| PRINT2^IBACCWLEE4 | BLDQ+99 |
| EN^IBCCR | BLDQ+33 |
| $$COBN^IBCEF | BLDQ+81 |
| $$FT^IBCEF | BLD+54 |
| $$POLICY^IBCEF | BLD+10 |
| F^IBCEF | BLD+56, BLD+82 |
| $$EDIACTV^IBCEF4 | BLDQ+81 |
| $$HOD^IBCNHUT1 | BLD+72 |
| $$HPD^IBCNHUT1 | BLD+72 |
| BCOB^IBCU3 | BLDQ+64 |
| $$MCRWNR^IBEFUNC | BLDQ+81 |
| $$WNRBILL^IBEFUNC | BLD+24 |
| $$SETN^IBJTCA1 | BLDQ+67, HDR2+3 |
| RCANC^IBJTU2 | BLDQ+11 |
| $$BADD^IBJTU3 | BLD+37 |
| $$ARSTATA^IBJTU4 | BLD+64 |
| $$DATE^IBJU1 | BLD+100, BLD+113 |
| $$EXSET^IBJU1 | BLD+48, BLD+61, BLD+62, BLD+65, BLD+99 |
| $$NABP^IBNCPDPU | BLD+25 |
| $$BILINF^IBNCPUT3 | BLD+27 |
| RELBILL^IBRFN | BLDQ+91 |
| $$EXPAND^IBTRE | BLD+66, BLD+73, BLD+92 |
| RX^PSO52API | COPAY+7 |
| $$BILL^RCJIBFN2 | BLD+101, BLDQ+75 |
| $$STNO^RCJIBFN2 | BLDQ+79 |
| $$SETSTR^VALM1 | SET1+2 |
| CNTRL^VALM10 | BLDQ+71, SET1+3, HDR2+7 |
| SET^VALM10 | SET1+3 |
| $$FMTE^XLFDT | BLDQ+41, BLDQ+52 |
| $$TITLE^XLFSTR | COPAY+17 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | BLD+8, BLD+9, BLDQ+61, BLDQ+62, BLDQ+78 |
| ^DGCR(399.3 - [#399.3] | BLD+63 |
| ^DIC(36 - [#36] | BLD+11, BLD+104, BLD+107, BLDQ+76 |
| ^DIC(5 - [#5] | BLD+36 |
| ^IB - [#350] | COPAY+16 |
| ^IBA(362.4 - [#362.4] | COPAY, COPAY+4, COPAY+6 |
| ^IBM(361.1 - [#361.1] | BLD+113 |
| ^TMP( | BLD+3! |
| ^TMP("IBRBF" | BLDQ+90!, BLDQ+93, BLDQ+94!, BLDQ+99, BLDQ+101! |
| ^TMP("IBTPJI" | COPAY+5! |
| ^TMP("IBXSAVE" | BLD+55! |
| ^TMP($J | COPAY+10, COPAY+13 |
| ^VA(200 - [#200] | EXT+3 |
| Name | Line Occurrences |
|---|---|
| $$EXT | BLDQ+21, BLDQ+22, BLDQ+23, BLDQ+24, BLDQ+25, BLDQ+26, BLDQ+27, BLDQ+62 |
| $$SET | BLD+31, BLD+32, BLD+33, BLD+34, BLD+35, BLD+36, BLD+37, BLD+38, BLD+43, BLD+44 , BLD+45, BLD+46, BLD+47, BLD+48, BLD+52, BLD+61, BLD+62, BLD+63, BLD+64, BLD+65 , BLD+66, BLD+67, BLD+68, BLD+69, BLD+72, BLD+73, BLD+75, BLD+76, BLD+95, BLD+99 , BLD+100, BLD+101, BLD+102, BLD+103, BLD+106, BLD+109, BLD+110, BLD+114, COPAY+1, COPAY+14 , COPAY+15, COPAY+18, BLDQ+8, BLDQ+13, BLDQ+17, BLDQ+21, BLDQ+22, BLDQ+23, BLDQ+24, BLDQ+25 , BLDQ+26, BLDQ+27, BLDQ+42, BLDQ+43, BLDQ+53, BLDQ+55, BLDQ+57, BLDQ+62, BLDQ+66, BLDQ+68 , BLDQ+71, BLDQ+87, BLDQ+97, HDR2+2, HDR2+4, HDR2+7 |
| $$SET2 | SET+1 |
| $$SETN | BLD+23, BLD+42, BLD+60, COPAY+2 |
| $$SLINE | BLDQ+76, BLDQ+78, BLDQ+83, BLDQ+84, BLDQ+85, BLDQ+86, BLDQ+97 |
| BLDQ | BLD+8 |
| HDR2 | BLDQ+96 |
| SET1 | SET2+2, SETN+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BPSBINFO | BLD+7~, BLD+27 |
| BPSBINFO("FIL | L NUMBER" , BLD+29 |
| BPSBINFO("PRESCRIPTION" | BLD+28 |
| COL | SET1~, SET1+2, SET1+3, SLINE~, SLINE+1 |
| DATA | SET2~, SET2+2, SLINE~, SLINE+1 |
| >> DFN | BLD+46 |
| DT | EXT~, EXT+1*, EXT+2*, EXT+4 |
| I | BLD+2~, BLD+3* |
| IBBCH | BLDQ+30~, BLDQ+48*, BLDQ+49*, BLDQ+50 |
| IBBPS | BLD+7~, BLD+27* |
| IBBPSFL | BLD+7~, BLD+29*, BLD+30 |
| IBBPSRX | BLD+7~, BLD+28*, BLD+30 |
| IBBX19 | BLD+5~ |
| IBBX19(1 | BLD+57*, BLD+74, BLD+75 |
| IBBX19(2 | BLD+57*, BLD+76 |
| IBC | COPAY+3~, COPAY+6*, COPAY+7, COPAY+9, COPAY+10, COPAY+13, COPAY+17 |
| IBCAP | COPAY+3~, COPAY+10*, COPAY+13*, COPAY+14 |
| IBCCR | BLDQ+30~, BLDQ+33 |
| IBCIFN | BLDQ+92~, BLDQ+93*, BLDQ+94, BLDQ+99* |
| IBCNT | BLD+5~, BLD+87*, BLD+88*, BLD+90, BLD+91, BLD+93, BLD+94, BLDQ+92~, BLDQ+93*, BLDQ+95* , BLDQ+97 |
| IBCOB | BLDQ+64~ |
| IBCOB( | BLDQ+72, BLDQ+74 |
| IBCOB(0 | BLDQ+64 |
| IBCURR | BLDQ+30~, BLDQ+36*, BLDQ+37, BLDQ+48 |
| IBD | BLD+5~, BLD+31*, BLD+32*, BLD+33*, BLD+34*, BLD+35*, BLD+36*, BLD+37*, BLD+43*, BLD+44* , BLD+45*, BLD+46*, BLD+47*, BLD+48*, BLD+52*, BLD+61*, BLD+62*, BLD+63*, BLD+64*, BLD+65* , BLD+66*, BLD+67*, BLD+68*, BLD+69*, BLD+71*, BLD+72*, BLD+73*, BLD+75*, BLD+76*, BLD+79* , BLD+89*, BLD+90*, BLD+92*, BLD+93*, BLD+94*, BLD+95*, BLD+99*, BLD+100*, BLD+101*, BLD+102* , BLD+103, BLD+104*, BLD+105*, BLD+106, BLD+107*, BLD+108*, BLD+110, BLD+113*, COPAY+1*, BLDQ+8* , BLDQ+13*, BLDQ+17*, BLDQ+21*, BLDQ+22*, BLDQ+23*, BLDQ+24*, BLDQ+25*, BLDQ+26*, BLDQ+27*, BLDQ+41* , BLDQ+42, BLDQ+43*, BLDQ+52*, BLDQ+53, BLDQ+55*, BLDQ+57*, BLDQ+62*, BLDQ+66*, BLDQ+68*, BLDQ+70* , BLDQ+71, BLDQ+75*, BLDQ+76*, BLDQ+78*, BLDQ+83*, BLDQ+84*, BLDQ+85*, BLDQ+86*, BLDQ+87, BLDQ+97* , BLDQ+98*, SET~, SET+1, SLINE~, SLINE+1*, SLINE+2, HDR2+1*, HDR2+2, HDR2+4*, HDR2+7 |
| IBD0 | BLD+5~, BLD+8*, BLD+10, BLD+61, BLD+62, BLD+63, BLD+65, BLD+71, BLD+99, BLD+103 , BLD+106, COPAY+7, COPAY+10, COPAY+13, BLDQ+6 |
| IBDI1 | BLD+5~, BLD+10*, BLD+11, BLD+43, BLD+44, BLD+45, BLD+47, BLD+48, BLD+72 |
| IBDM | BLD+5~, BLD+32, BLD+33, BLD+34, BLD+36, BLD+103, BLD+104, BLD+106, BLD+107 |
| IBDM1 | BLD+5~, BLD+35, BLD+67, BLD+68, BLD+71 |
| IBDS | BLD+5~, BLDQ+21, BLDQ+22, BLDQ+23, BLDQ+24, BLDQ+25, BLDQ+26, BLDQ+27, BLDQ+36 |
| IBDTX | BLD+5~, BLD+73 |
| IBDU | BLD+5~, BLD+100 |
| IBDU2 | BLD+5~, BLD+66, BLD+105, BLD+108 |
| IBGRPB | BLD+5~, BLD+59*, BLD+97, BLD+118*, BLDQ+10*, BLDQ+19* |
| IBGRPE | BLD+5~, BLD+97*, BLD+114, BLD+116, BLDQ+15 |
| IBI | BLD+5~, BLD+9*, BLDQ+13*, BLDQ+64~, BLDQ+72*, BLDQ+73, BLDQ+74, BLDQ+81 |
| IBID0 | BLD+5~, BLD+11*, BLD+31, BLD+33 |
| IBID13 | BLD+5~, BLD+11* |
| IBIFN | BLD~, BLD+8, BLD+9, BLD+10, BLD+24, BLD+25, BLD+27, BLD+37, BLD+54, BLD+56 , BLD+64, BLD+82, BLD+101, BLD+113, COPAY, COPAY+4, BLDQ+11, BLDQ+33, BLDQ+36, BLDQ+61 , BLDQ+62, BLDQ+64, BLDQ+91, BLDQ+93, BLDQ+94, BLDQ+99 |
| IBINDENT | BLDQ+30~, BLDQ+31*, BLDQ+44*, BLDQ+51, BLDQ+54, BLDQ+56, BLDQ+58* |
| IBJ | BLDQ+64~, BLDQ+74*, BLDQ+76, BLDQ+81 |
| IBK | BLDQ+64~, BLDQ+74*, BLDQ+75, BLDQ+77, BLDQ+78, BLDQ+81 |
| IBLN | BLD~, BLD+23*, BLD+31*, BLD+32*, BLD+33*, BLD+34*, BLD+35*, BLD+36*, BLD+37*, BLD+38* , BLD+42*, BLD+43*, BLD+44*, BLD+45*, BLD+46*, BLD+47*, BLD+48*, BLD+52*, BLD+59, BLD+60* , BLD+61*, BLD+62*, BLD+63*, BLD+64*, BLD+65*, BLD+66*, BLD+67*, BLD+68*, BLD+69*, BLD+72* , BLD+73*, BLD+75*, BLD+76*, BLD+95*, BLD+97*, BLD+99*, BLD+100*, BLD+101*, BLD+102*, BLD+103* , BLD+106*, BLD+109*, BLD+110*, BLD+114*, BLD+116*, BLD+118, COPAY+1*, COPAY+2*, COPAY+14*, COPAY+15* , COPAY+18*, COPAY+21*, BLDQ+8*, BLDQ+10, BLDQ+13*, BLDQ+15*, BLDQ+17*, BLDQ+19, BLDQ+21*, BLDQ+22* , BLDQ+23*, BLDQ+24*, BLDQ+25*, BLDQ+26*, BLDQ+27*, BLDQ+42*, BLDQ+43*, BLDQ+53*, BLDQ+55*, BLDQ+57* , BLDQ+62*, BLDQ+66*, BLDQ+67*, BLDQ+68*, BLDQ+71*, BLDQ+87*, BLDQ+97*, SET~, SET+1, SET+2 , HDR2+2*, HDR2+3*, HDR2+4*, HDR2+7* |
| IBLR | BLD+5~, BLD+21*, BLD+23, BLD+31, BLD+32, BLD+33, BLD+34, BLD+35, BLD+36, BLD+37 , BLD+41*, BLD+43, BLD+44, BLD+45, BLD+46, BLD+47, BLD+48, BLD+49*, BLD+52, BLD+59* , BLD+61, BLD+62, BLD+63, BLD+64, BLD+65, BLD+67, BLD+68, BLD+69, BLD+72, BLD+73 , BLD+75, BLD+76, BLD+78*, BLD+95, BLD+97*, BLD+99, BLD+100, BLD+101, BLD+102, BLD+103 , BLD+105, BLD+106, BLD+108, BLD+118*, COPAY+1, BLDQ+10*, BLDQ+13, BLDQ+17, BLDQ+19*, BLDQ+21 , BLDQ+22, BLDQ+23, BLDQ+24, BLDQ+25, BLDQ+26, BLDQ+27, BLDQ+42, BLDQ+43, BLDQ+53, BLDQ+55 , BLDQ+57, BLDQ+62, BLDQ+65*, BLDQ+67, BLDQ+69*, BLDQ+71, BLDQ+87, BLDQ+97, SET~, SET+1 , HDR2+1*, HDR2+3, HDR2+5*, HDR2+7 |
| IBLVL | BLD+5~, BLD+84*, BLD+85*, BLD+86, BLD+88, BLD+89, BLD+90, BLD+91, BLD+93, BLD+94 |
| IBNABP | BLD+5~, BLD+25*, BLD+26, BLD+30*, BLD+69 |
| IBNC | BLD+5~ |
| IBNC( | SETN+2 |
| IBNC(1 | BLD+13*, BLD+51*, COPAY+2*, BLDQ+7*, BLDQ+16*, BLDQ+65*, BLDQ+69*, HDR2+1*, HDR2+5* |
| IBNC(2 | BLD+14*, BLD+51*, BLDQ+7* |
| IBNC(3 | BLD+15*, BLD+51*, BLDQ+7* |
| IBNEXT | BLDQ+30~, BLDQ+37*, BLDQ+38, BLDQ+39 |
| IBPOLICY | BLD+3! |
| IBPRVO | BLD+5~, BLD+78* |
| IBPRVTYP | BLD+5~, BLD+87*, BLD+91*, BLD+92, BLD+93, BLD+94 |
| IBSW | BLD+5~ |
| IBSW( | BLD+105, BLD+108, SET2+2 |
| IBSW(1 | BLD+13*, BLD+51*, BLDQ+7*, BLDQ+16*, BLDQ+65*, BLDQ+69*, BLDQ+71, HDR2+5*, HDR2+7 |
| IBSW(2 | BLD+14*, BLD+51*, BLDQ+7* |
| IBSW(4 | BLD+16* |
| IBSW(5 | BLD+17* |
| IBSW(6 | BLD+18* |
| IBSW(7 | BLD+19* |
| IBT | BLD+5~, BLD+23*, BLD+31*, BLD+32*, BLD+33*, BLD+34*, BLD+35*, BLD+36*, BLD+37*, BLD+42* , BLD+43*, BLD+44*, BLD+45*, BLD+46*, BLD+47*, BLD+48*, BLD+52*, BLD+60*, BLD+61*, BLD+62* , BLD+63*, BLD+64*, BLD+65*, BLD+66*, BLD+67*, BLD+68*, BLD+69*, BLD+72*, BLD+73*, BLD+75* , BLD+76*, BLD+79*, BLD+86*, BLD+95*, BLD+99*, BLD+100*, BLD+101*, BLD+102*, BLD+103, BLD+104* , BLD+106, BLD+107*, BLD+110*, COPAY+1*, COPAY+2*, COPAY+14*, COPAY+15*, COPAY+17*, COPAY+18, BLDQ+8* , BLDQ+12*, BLDQ+13*, BLDQ+17*, BLDQ+21*, BLDQ+22*, BLDQ+23*, BLDQ+24*, BLDQ+25*, BLDQ+26*, BLDQ+27* , BLDQ+40*, BLDQ+42, BLDQ+43*, BLDQ+51*, BLDQ+53, BLDQ+54*, BLDQ+55, BLDQ+56*, BLDQ+57, BLDQ+61* , BLDQ+62, BLDQ+66*, BLDQ+67*, BLDQ+68*, BLDQ+70*, BLDQ+71, BLDQ+73*, BLDQ+87*, BLDQ+97*, BLDQ+98* , SET~, SET+1, HDR2+1*, HDR2+2, HDR2+3*, HDR2+4*, HDR2+6*, HDR2+7 |
| IBTC | BLD+5~ |
| IBTC( | SET2+2 |
| IBTC(1 | BLD+13*, BLD+51*, BLDQ+7*, BLDQ+16*, BLDQ+65*, BLDQ+69*, BLDQ+71, HDR2+5*, HDR2+7 |
| IBTC(2 | BLD+14*, BLD+51*, BLDQ+7* |
| IBTC(4 | BLD+16* |
| IBTC(5 | BLD+17* |
| IBTC(6 | BLD+18* |
| IBTC(7 | BLD+19* |
| IBTW | BLD+5~ |
| IBTW( | SET2+2 |
| IBTW(0 | BLDQ+65* |
| IBTW(1 | BLD+13*, BLD+51*, BLDQ+7*, BLDQ+16*, BLDQ+65*, BLDQ+69*, BLDQ+71, HDR2+5*, HDR2+7 |
| IBTW(2 | BLD+14*, BLD+51*, BLDQ+7* |
| IBTW(4 | BLD+16* |
| IBTW(5 | BLD+17* |
| IBTW(6 | BLD+18* |
| IBTW(7 | BLD+19* |
| IBVL | BLD+5~, BLD+72* |
| IBWNR | BLD+5~, BLD+24*, BLD+31, BLD+73, BLD+110 |
| IBX | BLD+103*, BLD+104, BLD+105*, BLD+106*, BLD+107, BLD+108*, COPAY+3~, COPAY+10*, COPAY+13*, COPAY+14 , COPAY+15, COPAY+16*, COPAY+17, BLDQ+39~*, BLDQ+41, BLDQ+43, BLDQ+50~*, BLDQ+52, BLDQ+55, BLDQ+57 , BLDQ+64~, BLDQ+76*, BLDQ+78*, BLDQ+79*, BLDQ+82*, BLDQ+83, BLDQ+84*, BLDQ+85*, BLDQ+86*, BLDQ+97* , BLDQ+98*, SET1+1~*, SET1+2*, SET1+3 |
| IBXDATA | BLD+55~, BLD+57 |
| IBXSAVE | BLD+6~, BLD+55~ |
| IBY | BLD+5~, BLDQ+11!, BLDQ+12, BLDQ+62*, BLDQ+64~, BLDQ+75*, BLDQ+79, BLDQ+82*, BLDQ+84, BLDQ+85 , BLDQ+86, SET2+1~, SET2+2*, SETN+1~, SETN+2* |
| IBY( | BLDQ+13 |
| IBZ | BLD+5~, COPAY+3~, COPAY+4*, COPAY+6 |
| IBZ( | BLD+85, BLD+88, BLD+91, BLD+93, BLD+94 |
| IBZ0 | BLD+5~, BLD+83* |
| >> IORVOFF | SET1+3 |
| >> IORVON | SET1+3 |
| >> IOUOFF | BLDQ+71, HDR2+7 |
| >> IOUON | BLDQ+71, HDR2+7 |
| LN | SET+1~*, SET+3, SET2~, SET2+2, SET2+3*, SET2+4, SETN~, SETN+2, SETN+3*, SETN+4 , SET1~, SET1+1, SET1+3 |
| LR | SET2~, SET2+2, SETN~, SETN+2 |
| RV | SETN~, SETN+2, SET1~, SET1+3 |
| STR | SET1~, SET1+2, EXT~, EXT+1*, EXT+2, EXT+3 |
| TTL | SET2~, SET2+2, SETN~, SETN+2 |
| U | BLD+10, BLD+31, BLD+32, BLD+33, BLD+34, BLD+35, BLD+36, BLD+37, BLD+43, BLD+44 , BLD+45, BLD+47, BLD+48, BLD+61, BLD+62, BLD+63, BLD+64, BLD+65, BLD+66, BLD+71 , BLD+72, BLD+73, BLD+93, BLD+94, BLD+99, BLD+100, BLD+101, BLD+102, BLD+103, BLD+104 , BLD+105, BLD+106, BLD+107, BLD+108, BLD+113, BLDQ+6, BLDQ+12, BLDQ+21, BLDQ+22, BLDQ+23 , BLDQ+24, BLDQ+25, BLDQ+26, BLDQ+27, BLDQ+36, BLDQ+41, BLDQ+43, BLDQ+52, BLDQ+55, BLDQ+57 , BLDQ+76, BLDQ+78, BLDQ+79, BLDQ+84, BLDQ+85, BLDQ+86, EXT+2, EXT+3 |
| USER | EXT~, EXT+1*, EXT+3*, EXT+4 |
| >> VALMAR | SET1+1 |
| VALMCNT | BLD~, BLD+116*, COPAY+21*, BLDQ+15*, SET+2* |
| >> VALMQUIT | BLD+8* |
| WD | SET1~, SET1+2, SET1+3, SLINE~, SLINE+1 |
| X | BLD+5~, BLD+8*, BLDQ+61*, BLDQ+62, EXT+1~, EXT+2*, EXT+3* |
| Y | EXT+1~*, EXT+4*, EXT+5 |
| Z | BLD+111~, BLD+113*, BLD+114* |