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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNERPB

Package: Integrated Billing

Routine: IBCNERPB


Information

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

Source Information

Source file <IBCNERPB.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 3 ($$OUT,EN,IMAT,ISORT,ITYPE)^IBCNERPC  EN3^IBCNERPD  $$FO^IBCNEUT1  
Kernel 2 ^%ZISC  EN^XUTMDEVQ  
VA FileMan 2 ^DIC  ^DIR  

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 IIV PAYER LINK REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry pt
; Init vars
R05
R20
R25
R30
R40
R120
R130
R140
R100 ; Issue output width warning if not queued
EXIT ; Exit pt
COMPILE(IBCNERTN,IBCNESPC) ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode.
; Input params:
; IBCNERTN = Routine name for ^TMP($J,...
; IBCNESPC = Array passed by ref of the report params
COMPILX ; COMPILE exit pt
STOP() ; Determine if user wants to exit out of the whole option
; Init vars
STOPX ; STOP exit pt
RTYPE ; Prompt to allow users to select main report option
; Init vars
RTYPEX ; RTYPE exit pt
PTYPE ; Prompt to select Payer Type to include
; Init vars
PTYPEX ; TYPE exit pt
PAYER ; Select Payer - File #365.12
; Init vars
PAYERX ; Prompt for ending Payer value
PDET ; Prompt to select to display Insurance Company details to include
; Init vars
PDETEX ; TYPE exit pt
PSORT ; Prompt to allow users to select primary sort
; Init vars
PSORTX ; SORT exit pt
DEVICE(IBCNERTN,IBCNESPC) ; Device Handler and possible TaskManager calls
DEVICEX ; DEVICE exit pt

External References

Name Field # of Occurrence
^%ZISC COMPILE+14
^DIC PAYER+10
^DIR STOP+10, RTYPE+13, PTYPE+10, PDET+9, PSORT+8
$$OUT^IBCNERPC R100+1
EN^IBCNERPC COMPILE+9
IMAT^IBCNERPC R130
ISORT^IBCNERPC R140
ITYPE^IBCNERPC R120
EN3^IBCNERPD COMPILE+12
$$FO^IBCNEUT1 PAYER+6
EN^XUTMDEVQ DEVICE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"eIV Payer Link Report",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"In order for an Insurance Company to be eligible for electronic insurance"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"eligibility communications via the eIV software, the Insurance Company"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"needs to be linked to an appropriate payer from the National EDI Payer list."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"The National EDI Payer list contains the names of the payers that are"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"currently participating with the eIV process."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"This report option provides information to assist with finding unlinked"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"insurance companies or payers, which can subsequently be linked through the"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"INSURANCE COMPANY EDIT option."
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!!,"*** This report is 132 characters wide ***",!
  • Line Location: R100+2
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PAYER+4
Routine Call
  • DIC
  • Line Location:
    • PAYER+10
Routine Call
  • DIR
  • Line Location:
    • STOP+10
    • RTYPE+13
    • PTYPE+10
    • PDET+9
    • PSORT+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J COMPILE+7!, COMPILE+16!

Label References

Name Line Occurrences
$$STOP R05R20R25R30R40R120R130R140R100+1, R100+3
DEVICE R100+3
EXIT R05R20R25R30R40R120R130R140R100+1, R100+3
R100+4
PAYER R20
PAYERX PAYER+11
PDET R30
PDETEX PDET+10
PSORT R40
PSORTX PSORT+9
PTYPE R25
PTYPEX PTYPE+11
R05 R05R20R120R100+1, R100+3
R100 R30+1, R40+1, R130+1
R120 R05+3, R130
R130 R140
R20 R25R40
R25 R30
R30 R20+1
R40 R25+1
RTYPE R05
RTYPEX RTYPE+14
STOPX STOP+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC PAYER+2~, PAYER+9*
DIC("A" PAYER+6*
DIC("S" PAYER+8*
DIC(0 PAYER+5*
DIR STOP+2~, STOP+10!, RTYPE+2~, RTYPE+13!, PTYPE+2~, PTYPE+10!, PDET+2~, PDET+9!, PSORT+2~, PSORT+8!
DIR("?" STOP+8*, STOP+9*, RTYPE+7*, RTYPE+8*, RTYPE+9*, RTYPE+10*, RTYPE+11*, RTYPE+12*, PTYPE+7*, PTYPE+8*
PTYPE+9*, PDET+7*, PDET+8*, PSORT+7*
DIR("A" STOP+6*, RTYPE+5*, PTYPE+5*, PDET+5*, PSORT+5*
DIR("B" STOP+7*, RTYPE+6*, PTYPE+6*, PDET+6*, PSORT+6*
DIR(0 STOP+5*, RTYPE+4*, PTYPE+4*, PDET+4*, PSORT+4*
DIRUT STOP+2~, STOP+11, RTYPE+2~, RTYPE+14, PTYPE+2~, PTYPE+11, PDET+2~, PDET+10, PSORT+2~, PSORT+9
DTOUT PAYER+2~, PAYER+11
DUOUT PAYER+2~, PAYER+11
IBCNERTN EN+2~, EN+5*, R100+2, R100+3, COMPILE~, COMPILE+7, COMPILE+9, COMPILE+12, COMPILE+16, DEVICE~
, DEVICE+10
IBCNESPC EN+2~, R100+3, COMPILE~, COMPILE+9, COMPILE+12, DEVICE~
IBCNESPC("ISORT" R30+1*, R130+1*
IBCNESPC("ITYPE" R130+1
IBCNESPC("PDET" R25+1*, PDET+11*
IBCNESPC("PPYR" R05+1*, R20+1, R30+1, PAYER+13*
IBCNESPC("PSORT" PSORT+10*
IBCNESPC("PTYPE" R20+1*, R25+1, PTYPE+12*
IBCNESPC("REP" R05+3, RTYPE+15*
IBOUT EN+2~, R100+1*, R100+2
IOF EN+6
POP EN+2~, DEVICE+8~, DEVICE+16
STOP EN+2~, EN+4*, R05R20R25R30R40R120R130R140
R100+1, R100+3, STOP+11*, STOP+12*, RTYPE+14*, PTYPE+11*, PAYER+11*, PDET+10*, PSORT+9*, DEVICE+16*
X STOP+2~, RTYPE+2~, PTYPE+2~, PAYER+2~, PDET+2~, PSORT+2~
Y STOP+2~, STOP+11*, STOP+12, STOPX+1, RTYPE+2~, RTYPE+15, PTYPE+2~, PTYPE+12, PAYER+2~, PAYER+11*
PAYER+12*, PAYER+13, PDET+2~, PDET+11, PSORT+2~, PSORT+10
ZTDESC DEVICE+8~, DEVICE+11*, DEVICE+15
>> ZTQUEUED R100+2, COMPILE+18
>> ZTREQ COMPILE+18*
ZTRTN DEVICE+8~, DEVICE+10*, DEVICE+15
ZTSAVE DEVICE+8~, DEVICE+15
ZTSAVE("IBCNERTN" DEVICE+13*
ZTSAVE("IBCNESPC(" DEVICE+12*
ZTSAVE("IBOUT" DEVICE+14*
>> ZTSTOP COMPILE+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All