Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCU7B

Package: Integrated Billing

Routine: IBCU7B


Information

IBCU7B ;ALB/DEM - LINE LEVEL PROVIDER USER INPUT ;27-SEP-2010

Source Information

Source file <IBCU7B.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 ($$FT,$$INPAT)^IBCEF  $$FILTERP^IBCSC10H  
VA FileMan 2 FILE^DICN  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCCPT  IBCU7  

Entry Points

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.

External References

Name Field # of Occurrence
FILE^DICN EN+30
^DIE EN+46, EN+53
$$FT^IBCEF EN+4
$$INPAT^IBCEF EN+5
$$FILTERP^IBCSC10H EN+21, EN+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF.
  • Line Location: B499+1
Routine Call
  • DIE
  • Line Location:
    • EN+46
    • EN+53

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EN+21, EN+24, EN+30, EN+31, EN+53

Label References

Name Line Occurrences
DRARRY EN+35

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All