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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNERPB

Package: Integrated Billing

Routine: IBCNERPB


Information

IBCNERPB ;DAOU/RO - PAYER LINK REPORT - Prompts ;AUG-2003

Source Information

Source file <IBCNERPB.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 $$FO^IBCNEUT1  ($$PYRDEACT,$$STOP)^IBCNINSU  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 EN^XUTMDEVQ  

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: 1

Package Total Caller Graph
Integrated Billing 1 IBCNE PAYER LINK REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry pt
R05 ; Include Deactivated Payers?
R10 ; Select Payer (#365.12)
R20 ; OUTPUT Format
R30 ; eIV, IIU or ALL Payers
R40 ; PAYER Type
R50 ; Linked Ins Co Detail?
R60 ; PRIMARY sort
R100 ; 132 width.
REXIT ; Exit pt
DEVICE(IBCNERTN,IBCNESPC) ; Device Handler
; IBCNERTN = Routine name for ^TMP($J,...
; IBCNESPC = Array of params
DEVICEX ; DEVICE exit

External References

Name Field # of Occurrence
^DIC R10+11
^DIR R05+9, R20+6, R30+18, R40+9, R50+8, R60+8
$$FO^IBCNEUT1 R10+5
$$PYRDEACT^IBCNINSU R10+15
$$STOP^IBCNINSU R10+12, R20+6, R30+18, R40+9, R50+9, R60+9
EN^XUTMDEVQ DEVICE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Payer Link Report",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"In order for an Insurance Company to be eligible for electronic insurance"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"eligibility communications via the eIV software or to transmit active insurance"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"to another VAMC via IIU, the Insurance Company needs to be linked to an"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"appropriate payer from the National EDI Payer list. The National EDI Payer"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"list contains the names of the payers that are currently participating with"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"the eIV and/or IIU process."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"This report provides access to the following information:"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!?4,"- A list of all payers with current eIV and IIU settings."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !?4,"- A list of all payers with associated linked insurance company detail."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !?4,"- A list of all payers with no insurance companies linked."
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!!
  • Line Location: R05+3
Function Call: WRITE
  • Prompt: !
  • Line Location: R10+3
Function Call: WRITE
  • Prompt: !,*7,"*** Invalid activated payer...Please try again. ***"
  • Line Location: R10+16
Function Call: WRITE
  • Prompt: !
  • Line Location: R20+2
Function Call: WRITE
  • Prompt: !!!,"eIV Payer list - displays those payers who can send and receive"
  • Line Location: R30+2
Function Call: WRITE
  • Prompt: !," HIPAA 270/271 transactions for verification."
  • Line Location: R30+3
Function Call: WRITE
  • Prompt: !,"IIU Payer list - displays those payers who are eligible to exchange"
  • Line Location: R30+4
Function Call: WRITE
  • Prompt: !," between VAMCs for active insurance."
  • Line Location: R30+5
Function Call: WRITE
  • Prompt: !,"Both - includes any payer that is defined as either eIV or IIU"
  • Line Location: R30+6
Function Call: WRITE
  • Prompt: !," or both applications."
  • Line Location: R30+7
Function Call: WRITE
  • Prompt: !!!,"*** This report is 132 characters wide ***",!
  • Line Location: R100+1
Function Call: WRITE
  • Prompt: !!!,"*** To avoid wrapping, enter '0;256;999' at the 'DEVICE' prompt. ***",!
  • Line Location: R100+2
Routine Call
  • DIC
  • Line Location:
    • R10+11
Routine Call
  • DIR
  • Line Location:
    • R05+9
    • R20+6
    • R30+18
    • R40+9
    • R50+8
    • R60+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(365.12 - [#365.12] Classic Fileman Calls

Label References

Name Line Occurrences
DEVICE R100+4
R05 R10+12
R10 R10+15, R20+6
R100 R60+2, R60+3
R20 R30+18, R50+9, R60+9
R30 R40+9
R40 R50+9, R60+9
R50 R20+8, R20+9, R60+9
R60 R40+10
REXIT R05+10, R10+12, R20+6, R30+18, R40+9, R50+9, R60+9, R100+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC R05+1~, R10+2~, R10+10*
DIC("A" R10+5*
DIC("S" R10+7*, R10+9*
DIC(0 R10+4*
DIR R05+9!, R20+1~, R30+1~, R30+18!, R40+1~, R40+9!, R50+1~, R50+8!, R60+1~, R60+8!
DIR("?" R05+7*, R05+8*, R30+11*, R30+12*, R30+13*, R30+14*, R30+15*, R30+16*, R30+17*, R40+5*
, R40+6*, R40+7*, R40+8*, R50+5*, R50+6*, R50+7*, R60+7*
DIR("A" R05+5*, R20+4*, R30+9*, R40+3*, R50+3*, R60+5*
DIR("B" R05+6*, R20+5*, R30+10*, R40+4*, R50+4*, R60+6*
DIR(0 R05+4*, R20+3*, R30+8*, R40+2*, R50+2*, R60+4*
DIROUT R20+1~, R30+1~, R40+1~, R50+1~, R60+1~
DIRUT R20+1~, R20+6, R30+1~, R30+18, R40+1~, R40+9, R50+1~, R50+9, R60+1~, R60+9
DTOUT R05+1~, R05+10, R10+2~, R10+12, R20+1~, R30+1~, R40+1~, R50+1~, R60+1~
DUOUT R05+1~, R05+10, R10+2~, R10+12, R20+1~, R30+1~, R40+1~, R50+1~, R60+1~
IBCNERSPC R05+2!
IBCNERTN EN+1~, EN+2*, R100+4, DEVICE~, DEVICE+4
IBCNESPC EN+1~, R100+4, DEVICE~
IBCNESPC("PAPP" R20+8*, R20+9*, R30+19*
IBCNESPC("PDEACT" R05+12*, R10+9, R10+15
IBCNESPC("PDET" R40+10*, R50+10*
IBCNESPC("POUT" R20+7*, R20+8, R50+9, R60+2, R100+1, R100+2
IBCNESPC("PPYR" R10+14*, R20+9, R50+9, R60+3, R60+9
IBCNESPC("PSORT" R20+8*, R60+2*, R60+3*, R60+10*
IBCNESPC("PTYPE" R20+8*, R20+9*, R40+10*, R60+9
IOF EN+3
POP EN+1~, DEVICE+3~, DEVICE+9
STOP EN+1~, EN+2*, R100+4, DEVICE+9*
X R05+1~, R10+2~, R20+1~, R30+1~, R40+1~, R50+1~, R60+1~
Y R05+1~, R05+10*, R05+11*, R05+12, R10+2~, R10+12*, R10+13*, R10+14, R10+15, R20+1~
, R20+7, R30+1~, R30+19, R40+1~, R40+10, R50+1~, R50+10, R60+1~, R60+10
ZTDESC DEVICE+3~, DEVICE+5*, DEVICE+8
ZTQUEUED EN+1~
ZTREQ EN+1~
ZTRTN DEVICE+3~, DEVICE+4*, DEVICE+8
ZTSAVE DEVICE+3~, DEVICE+8
ZTSAVE("IBCNERTN" DEVICE+7*
ZTSAVE("IBCNESPC(" DEVICE+6*
ZTSTOP EN+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All