Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNERPD

Package: Integrated Billing

Routine: IBCNERPD


Information

IBCNERPD ;DAOU/RO - INSURANCE COMPANY LINK REPORT ;AUG-2003

Source Information

Source file <IBCNERPD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry pt
; Init vars
R10 ; Prompt to select linked vs unlinked insurance companies report option
R15 ;Prompt for All, Keyword search or Select Ins Co.
R20 ; Prompt for Insurance Company Search
R25 ;Initialize Prompt for insurance companies.
R26 ; Prompt for multiple insurance companies
R30 ; Prompt to allow users to select output format
R40 ; Prompt to allow users to select primary sort
R50 ; Proceed to compilation of the data and then generate the output of the report.
EXIT ; Exit pt
DEVICE(IBCNERTN,IBCNESPD) ; Device Handler and possible TaskManager calls
; Input params:
; IBCNERTN = Routine name for ^TMP($J,...
; IBCNESPD = Array passed by ref of the report params
; IBOUT = "R" for Report format or "E" for Excel format
COMPILE(IBCNERTN,IBCNESPD) ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode.
; Input params:
; IBCNERTN = Routine name for ^TMP($J,...
; IBCNESPD = Array passed by ref of the report params
COMPDATA(IBCNERTN,IBCNESPD) ; Compile data
OUTPUT(IBCNERTN,IBCNESPD) ; Sets IO params for printing
OUTPUTX ; Exit pt
PRINT(RTN,IBTYP,SRT,PGC,PXT,MAX,CRT,IBOUT) ; Print data
; Input: RTN="IBCENRPB", PGC=page ct,
; PXT=exit flg, MAX=max line ct/pg,
; CRT=1/0, IBOUT="R"/"E"
PRINTEX ;
DATA(DISPDATA) ; Build display lines
LINE(DISPDATA) ; Print data
HEADER ; Report format Header
HEADERX ;
EHDR ; - Excel format Header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Insurance Company 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 or to transmit active"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"insurance to another VAMC via IIU, the Insurance Company needs to be"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"linked to an appropriate payer from the National EDI Payer list."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"The National EDI Payer list contains the names of the payers that are"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"currently participating with the eIV and/or IIU process."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"This report option provides information to assist with finding unlinked"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"insurance companies or payers, which can subsequently be linked through the"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"INSURANCE COMPANY EDIT option."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: R15+3
Function Call: WRITE
  • Prompt: !!,"Text entered into the search keyword field will result in"
  • Line Location: R20+3
Function Call: WRITE
  • Prompt: !,"the report selecting all insurance companies that contain"
  • Line Location: R20+4
Function Call: WRITE
  • Prompt: !,"the entered text in the insurance company name."
  • Line Location: R20+5
Function Call: WRITE
  • Prompt: !
  • Line Location: R20+6
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: R26+5
Function Call: WRITE
  • Prompt: !
  • Line Location: R30+2
Function Call: WRITE
  • Prompt: !
  • Line Location: R50+2
Function Call: WRITE
  • Prompt: !,"*** This report is 132 characters wide ***",!
  • Line Location: R50+2
Function Call: WRITE
  • Prompt: !!!,"*** To avoid wrapping, enter '0;256;999' at the 'DEVICE' prompt. ***",!
  • Line Location: R50+3
Function Call: WRITE
  • Prompt: !!,"Compiling report data ..."
  • Line Location: COMPDATA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+18
Function Call: WRITE
  • Prompt: !,?(80-$L(NONEMSG)\2),NONEMSG,!!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?(80-$L(EORMSG)\2),EORMSG
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: ?1
  • Condition for execution: IBOUT="R"
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: DISPDATA(LNCT)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: !,?1,DISPDATA(LNCT)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: @IOF,!,"Insurance Company Link Report"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: !?32,"# Active",?56,"Prof.",?74,"Inst."
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: !,"Insurance Company",?33,"Groups",?56,"EDI#",?74,"EDI#"
  • Line Location: HEADER+22
Function Call: WRITE
  • Prompt: !,$E(DASH,1,80)
  • Line Location: HEADER+23
Function Call: WRITE
  • Prompt: !,"Insurance Company",?32,"# Active",?56,"eIV Nationally",?75,"IIU Nationally"
  • Line Location: HEADER+28
Function Call: WRITE
  • Prompt: ?94,"eIV Locally",?110,"Prof/Inst EDI#"
  • Line Location: HEADER+29
Function Call: WRITE
  • Prompt: !," Payer Name",?32,"Groups",?45,"VA ID",?56,"Enabled",?76,"Enabled",?95,"Enabled"
  • Line Location: HEADER+31
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: X,!
  • Line Location: EHDR+3
Function Call: WRITE
  • Prompt: HDR
  • Line Location: EHDR+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EHDR+10
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EHDR+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ
^DIC(36 - [#36] GET1^DIQ
^IBE(365.12 - [#365.12] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call