IBCU7B ;ALB/DEM - LINE LEVEL PROVIDER USER INPUT ;27-SEP-2010
Source file <IBCU7B.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 2 | ($$FT,$$INPAT)^IBCEF $$FILTERP^IBCSC10H |
VA FileMan | 2 | FILE^DICN ^DIE |
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 | 2 | IBCCPT IBCU7 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
END | ;
|
|
DRARRY | ; Set of DR array for user input.
|
|
NVAPRV | ; Start of user input into IB NON/OTHER VA BILLING PROVIDER File (#355.93).
|
|
B41 | ;
; 355.93,.04 SPECIALTY. ; Branch to @45 if CREDENTIALS are not NULL. |
|
B42 | ;
; 355.93,.05 STREET ADDRESS. ; 355.93,.06 CITY. ; 355.93,.07 STATE. ; Branch to @43 if there is an STREET ADDRESS, CITY, and STATE. |
|
B43 | ;
; 355.93,.09 FACILITY DEFAULT ID NUMBER. ; Branch to @44 if there is a FACILITY DEFAULT ID NUMBER. |
|
B44 | ;
; 355.93,.11 X12 TYPE OF FACILITY. ; Branch to @45 if there is a X12 TYPE OF FACILITY. |
|
B45 | ;
; 355.93,41.01 NPI. ; Branch to @46 if there is an NPI. |
|
B46 | ;
; 355.93,42 TAXONOMY CODE. ; Branch to @47 if there is TAXONOMY data. ; 355.93,42 TAXONOMY CODE is a multiple (Sub-File 355.9342). We want 'ALL' ; fields from TAXONOMY CODE Sub-File 355.9342. Thus, ; DR string S DR(4,355.9342)=".01:.03" below. |
|
B47 | ;
; End of data entry for IB NON/OTHER VA BILLING PROVIDER File (#399.53). |
|
B48 | ;
|
|
LNPRV | ; User input into LINE PROVIDER Sub-File 399.0404.
|
|
B482 | ;
; Branch to @405 if File #399 SECORDARY NODE is non numeric. |
|
B483 | ;
; Branch to @405 if File #399 TERTIARY NODE is non numeric. |
|
B491 | ;
; 399.0404,.12 LINE PRIM INS PROVIDER ID TYPE. ; 399.0404,.05 LINE PRIMARY INS CO ID NUMBER. ; Branch to @482. |
|
B492 | ;
; 399.0404,.13 LINE SEC INS PROVIDER ID TYPE. ; 399.0404,.06 LINE SECONDARY INS CO ID NUMBER. ; Branch to @483. |
|
B493 | ;
; 399.0404,.14 LINE TERT INS PROVIDER ID TYPE. ; 399.0404,.07 LINE TERTIARY INS CO ID NUMBER. ; Branch to @405. |
|
B471 | ;
; 399.0404,.12 LINE PRIM INS PROVIDER ID TYPE. ; 399.0404,.05 LINE PRIMARY INS CO ID NUMBER. ; Branch to @482. |
|
B472 | ;
; 399.0404,.13 LINE SEC INS PROVIDER ID TYPE. ; 399.0404,.06 LINE SECONDARY INS CO ID NUMBER. ; Branch to @483. |
|
B473 | ;
; 399.0404,.14 LINE TERT INS PROVIDER ID TYPE. ; 399.0404,.07 LINE TERTIARY INS CO ID NUMBER. ; Branch to @405. |
|
B405 | ;
|
|
B499 | ;
; End of user input @499 and W @IOF. |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | EN+2~, EN+25!, EN+31*, EN+43, EN+52*, EN+54! |
DA(1 | EN+26*, EN+27, EN+30, EN+31, EN+44, EN+52* |
DA(2 | EN+26*, EN+27, EN+30, EN+31, EN+52* |
DD | EN+2~, EN+25!, EN+34!, EN+54! |
DIC | EN+2~, EN+27*, EN+33, EN+34!, EN+54! |
DIC("DR" | EN+29* |
DIC(0 | EN+28* |
DIE | EN+2~, EN+33*, EN+54! |
DIPA | EN+2~, EN+54! |
DIPA("RF" | EN+32* |
DLAYGO | EN+2~, EN+45*, EN+54! |
DO | EN+2~, EN+25!, EN+34!, EN+54! |
DR | EN+2~, EN+34!, EN+53*, EN+54!, DRARRY+11* |
DR(1 | DRARRY+19*, DRARRY+20*, DRARRY+22*, DRARRY+28*, DRARRY+29*, LNPRV+2*, LNPRV+3*, LNPRV+5*, LNPRV+6*, LNPRV+7* , LNPRV+8*, LNPRV+9*, LNPRV+11*, LNPRV+12*, LNPRV+14*, LNPRV+16*, B482+2*, B482+3*, B482+5*, B483+2* , B483+3*, B483+5*, B491+4*, B492+4*, B493+4*, B471+4*, B472+4*, B473+4*, B405+1*, B499+2* |
DR(2 | NVAPRV+2*, NVAPRV+6*, NVAPRV+9*, NVAPRV+13*, NVAPRV+16*, B41+3*, B42+5*, B42+11*, B43+3*, B44+3* , B45+3*, B46+6*, B47+2* |
DR(3 | B46+7* |
I | EN+2~ |
>> IBFT | EN+4*, EN+5, EN+7, EN+8, EN+9, EN+11, EN+14 |
>> IBIFN | EN+4, EN+5, EN+21, EN+24, EN+26, EN+52, EN+53 |
IBLNPRV | EN+3~, EN+41*, EN+57! |
IBLNPRV("IBCCPT" | EN+3, DRARRY+20 |
IBLNPRV("LNPRVIEN" | EN+43*, EN+52, EN+53 |
IBLNPRV("PROCIEN" | EN+44*, EN+52, EN+53 |
>> IBPOPOUT | EN+14, EN+49* |
>> IBPROCP | EN+26 |
PRVFUN | EN+2~, EN+14*, EN+16, EN+57!, DRARRY+20, DRARRY+22 |
PRVFUN( | EN+14 |
PRVFUN("CNT" | EN+14* |
PRVFUN(2 | EN+8* |
PRVFUN(3 | EN+9* |
PRVFUN(7 | EN+11* |
U | EN+53 |
X | EN+2~, EN+16*, EN+21, EN+24, EN+29, EN+30, EN+31, EN+32, EN+34!, EN+54! |
Y | EN+2~, EN+34!, EN+49, EN+54! |