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

Package: Integrated Billing

Routine: IBCNERPD


Information

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

Source Information

Source file <IBCNERPD.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$LJ,$$RJ,$$UP)^XLFSTR  EN^XUTMDEVQ  
Integrated Billing 3 $$STOP^IBCNERP1  $$PYRAPP^IBCNEUT5  PAYER^IBCNINSU  
VA FileMan 2 $$GET1^DIQ  ^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 INS COMPANY LINK REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry pt
; Init vars
R10 ; Prompt to select linked vs unlinked insurance companies report option
R20 ; Prompt for Insurance Company Search
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

External References

Name Field # of Occurrence
^%ZISC COMPILE+13
$$S^%ZTLOAD COMPDATA+18, HEADER+6
$$GET1^DIQ COMPDATA+19, COMPDATA+23, COMPDATA+27, COMPDATA+28, COMPDATA+29, COMPDATA+30, COMPDATA+31, COMPDATA+32, COMPDATA+34, COMPDATA+41
, COMPDATA+42, COMPDATA+43, COMPDATA+44
^DIR R10+10, R20+11, R30+7, R40+7, OUTPUT+18, OUTPUT+19, HEADER+4
$$STOP^IBCNERP1 R20+12, R30+9, R40+8, R50+6
$$PYRAPP^IBCNEUT5 COMPDATA+49, COMPDATA+57
PAYER^IBCNINSU COMPDATA+47
$$FMTE^XLFDT HEADER+9, EHDR+2
$$NOW^XLFDT HEADER+9, EHDR+2
$$LJ^XLFSTR DATA+18, DATA+23, DATA+33, DATA+34, DATA+36, DATA+38, DATA+39, DATA+40
$$RJ^XLFSTR DATA+23, DATA+24, DATA+25, DATA+33, DATA+36, DATA+42
$$UP^XLFSTR COMPDATA+21
EN^XUTMDEVQ DEVICE+13

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: !!,"Text entered into the search keyword field will result in"
  • Line Location: R10+15
Function Call: WRITE
  • Prompt: !,"the report selecting all insurance companies that contain"
  • Line Location: R10+16
Function Call: WRITE
  • Prompt: !,"the entered text in the insurance company name."
  • Line Location: R10+17
Function Call: WRITE
  • Prompt: !
  • Line Location: R20+2
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+17
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+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !?32,"# Active",?56,"Prof.",?74,"Inst."
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: !,"Insurance Company",?33,"Groups",?56,"EDI#",?74,"EDI#"
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,$E(DASH,1,80)
  • Line Location: HEADER+22
Function Call: WRITE
  • Prompt: !,"Insurance Company",?32,"# Active",?56,"eIV Nationally",?75,"IIU Nationally"
  • Line Location: HEADER+27
Function Call: WRITE
  • Prompt: ?94,"eIV Locally",?110,"Prof/Inst EDI#"
  • Line Location: HEADER+28
Function Call: WRITE
  • Prompt: !," Payer Name",?32,"Groups",?45,"VA ID",?56,"Enabled",?76,"Enabled",?95,"Enabled"
  • Line Location: HEADER+30
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HEADER+31
Function Call: WRITE
  • Prompt: X,!
  • Line Location: EHDR+3
Function Call: WRITE
  • Prompt: HDR
  • Line Location: EHDR+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EHDR+9
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EHDR+14
Routine Call
  • DIR
  • Line Location:
    • R10+10
    • R20+11
    • R30+7
    • R40+7
    • OUTPUT+18
    • OUTPUT+19
    • HEADER+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] COMPDATA+17
^IBA(355.3 - [#355.3] COMPDATA+23
^TMP($J COMPILE+7!, COMPILE+15!, COMPDATA+8!, COMPDATA+78*, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, DATA+3

Label References

Name Line Occurrences
@( R50+5
COMPDATA COMPILE+9
DATA PRINT+20
DEVICE R50+4
EHDR PRINT+10
EXIT R10+11, R20+12, R30+9, R40+8
HEADER PRINT+13, PRINT+24, LINE+6
HEADERX HEADER+2, HEADER+6
LINE PRINT+20
OUTPUT COMPILE+11
OUTPUTX OUTPUT+15
PRINT OUTPUT+14
PRINTEX PRINT+22, PRINT+24
R10 R20+12
R20 R30+9
R30 R40+8
R50 R30+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDRESS DATA+1~, DATA+18*, DATA+27, DATA+34
APPEIV COMPDATA+3~, COMPDATA+49*, COMPDATA+50, COMPDATA+51
APPIENS COMPDATA+3~, COMPDATA+51*, COMPDATA+52, COMPDATA+54, COMPDATA+59*, COMPDATA+60
APPIIU COMPDATA+3~, COMPDATA+57*, COMPDATA+58, COMPDATA+59
CNT PRINT+4~, PRINT+18*, DATA+3
CRT OUTPUT+2~, OUTPUT+8*, OUTPUT+12*, OUTPUT+13*, OUTPUT+14, OUTPUT+16, OUTPUT+19, PRINT~, HEADER+2
DASH PRINT+4~, PRINT+7*, HEADER+22, HEADER+31
DEST R10+1~, R50+5, R50+6*, R50+7*, R50+8*, R50+9*
DIR R10+2~, R10+10!, R20+1~, R20+11!, R30+1~, R30+7!, R40+1~, R40+7!, OUTPUT+2~, OUTPUT+18!
, OUTPUT+19!, HEADER+1~, HEADER+4!
DIR("?" R10+8*, R10+9*, R20+6*, R20+7*, R20+8*, R20+9*, R20+10*, R40+6*
DIR("A" R10+6*, R20+4*, R30+5*, R40+4*
DIR("B" R10+7*, R20+5*, R30+6*, R40+5*
DIR(0 R10+5*, R20+3*, R30+4*, R40+3*, OUTPUT+18*, OUTPUT+19*, HEADER+4*
DIROUT R10+2~, R30+1~
DIRUT R10+2~, R10+11, R20+1~, R30+1~, R30+8, R40+1~, R40+8
DISPDATA PRINT+19!, PRINT+20, DATA~, LINE~
DISPDATA( LINE+7, LINE+8
DISPDATA("" LINE+2
DISPDATA(1 DATA+11*, DATA+12*, DATA+13*, DATA+15*, DATA+23*, DATA+24*, DATA+25*, DATA+33*, DATA+34*, DATA+36*
DISPDATA(2 DATA+27*, DATA+38*, DATA+39*, DATA+40*, DATA+42*
DISPDATA(3 DATA+29*, DATA+44*
DTOUT R10+2~, R20+12, R30+1~, OUTPUT+2~, HEADER+1~, HEADER+5
DUOUT R10+2~, R20+12, R30+1~, OUTPUT+2~, HEADER+1~, HEADER+5
EORMSG PRINT+4~, PRINT+5*, PRINT+25
HDR HEADER+1~, HEADER+9*, HEADER+10, HEADER+11, HEADER+13*, HEADER+14*, HEADER+15, HEADER+16, EHDR+1~, EHDR+4*
, EHDR+5*, EHDR+6
I DATA+1~, DATA+15*
IBCNERTN EN+2~, EN+3*, R50+4, DEVICE~, DEVICE+8, COMPILE~, COMPILE+7, COMPILE+9, COMPILE+11, COMPILE+15
, COMPDATA~, COMPDATA+8, COMPDATA+78, OUTPUT~, OUTPUT+14
IBCNESPD R10+1~, R50+4, DEVICE~, COMPILE~, COMPILE+9, COMPILE+11, COMPDATA~, OUTPUT~
IBCNESPD("IBOUT" R30+10*, R30+13, R50+8
IBCNESPD("IMAT" R20+13*, COMPDATA+12, OUTPUT+6
IBCNESPD("ISORT" R10+13*, R30+3*, R30+9*, R30+13*, R30+15, R40+9*, COMPDATA+11, OUTPUT+5
IBCNESPD("ITYPE" R10+12*, R30+3, R30+15, R50+2, R50+7, COMPDATA+10, OUTPUT+4
IBELOACT COMPDATA+2~, COMPDATA+25*, COMPDATA+54*, COMPDATA+55*, COMPDATA+77
IBENAACT COMPDATA+2~, COMPDATA+25*, COMPDATA+52*, COMPDATA+53*, COMPDATA+77
IBGRP COMPDATA+1~, COMPDATA+23*, COMPDATA+76
IBI COMPDATA+1~, COMPDATA+23*
IBIADDR COMPDATA+2~, COMPDATA+29*, COMPDATA+76
IBICITY COMPDATA+2~, COMPDATA+30*, COMPDATA+76
IBIINST COMPDATA+2~, COMPDATA+28*, COMPDATA+76
IBINAACT COMPDATA+2~, COMPDATA+25*, COMPDATA+60*, COMPDATA+61*, COMPDATA+77
IBINAME COMPDATA+1~, COMPDATA+19*, COMPDATA+20, COMPDATA+21, COMPDATA+66, COMPDATA+67, COMPDATA+68, COMPDATA+70, COMPDATA+73, COMPDATA+76
IBINS COMPDATA+1~, COMPDATA+16*, COMPDATA+17*, COMPDATA+19, COMPDATA+23, COMPDATA+27, COMPDATA+28, COMPDATA+29, COMPDATA+30, COMPDATA+31
, COMPDATA+32, COMPDATA+34, COMPDATA+78
IBIPROF COMPDATA+2~, COMPDATA+27*, COMPDATA+76
IBISTATE COMPDATA+2~, COMPDATA+31*, COMPDATA+76
IBIZIP COMPDATA+2~, COMPDATA+32*, COMPDATA+76
IBMAT COMPDATA+1~, COMPDATA+12*, COMPDATA+21, OUTPUT+1~, OUTPUT+6*, HEADER+14, EHDR+5
IBOUT R10+1~, R30+10*, R50+1, R50+3, COMPDATA+5, COMPDATA+70, OUTPUT+11*, OUTPUT+14, OUTPUT+19, PRINT~
, PRINT+10, PRINT+13, PRINT+23, DATA+10, LINE+5, LINE+7
IBPGC OUTPUT+1~, OUTPUT+8*, OUTPUT+14, OUTPUT+16
IBPINST COMPDATA+3~, COMPDATA+25*, COMPDATA+44*, COMPDATA+77
IBPPROF COMPDATA+3~, COMPDATA+25*, COMPDATA+43*, COMPDATA+77
IBPVAID COMPDATA+3~, COMPDATA+25*, COMPDATA+42*, COMPDATA+66, COMPDATA+67, COMPDATA+68, COMPDATA+70, COMPDATA+77
IBPXT OUTPUT+1~, OUTPUT+8*, OUTPUT+14, OUTPUT+15
IBPY COMPDATA+1~, COMPDATA+34*, COMPDATA+36, COMPDATA+38, COMPDATA+41, COMPDATA+42, COMPDATA+43, COMPDATA+44, COMPDATA+47, COMPDATA+49
, COMPDATA+51, COMPDATA+57, COMPDATA+59
IBPYARY COMPDATA+3~, COMPDATA+46!, COMPDATA+47
IBPYARY( COMPDATA+52, COMPDATA+54, COMPDATA+60
IBPYR COMPDATA+1~, COMPDATA+25*, COMPDATA+41*, COMPDATA+66, COMPDATA+67, COMPDATA+68, COMPDATA+70, COMPDATA+77
IBRPT COMPDATA+3~, COMPDATA+76*, COMPDATA+77*, COMPDATA+78
IBSORT COMPDATA+1~, COMPDATA+11*, COMPDATA+66, COMPDATA+67, COMPDATA+68, OUTPUT+1~, OUTPUT+5*, OUTPUT+14
IBTYP COMPDATA+1~, COMPDATA+10*, COMPDATA+36, COMPDATA+38, COMPDATA+40, COMPDATA+73, OUTPUT+1~, OUTPUT+4*, OUTPUT+14, PRINT~
, DATA+14, DATA+21, DATA+31, HEADER+10, HEADER+13, HEADER+15, HEADER+18, HEADER+24, EHDR+4, EHDR+9
, EHDR+11
IOF EN+5, HEADER+8
IOSL OUTPUT+12, OUTPUT+13
IOST COMPDATA+5, OUTPUT+12
LCT DATA+1~, DATA+11*
LIN OUTPUT+2~, OUTPUT+17*, HEADER+1~, HEADER+3*
LNCT LINE+1~, LINE+4*, LINE+7, LINE+8
LNTOT LINE+1~, LINE+2*, LINE+4
MAX PRINT~, PRINT+24, LINE+6, HEADER+3
MAXCNT OUTPUT+2~, OUTPUT+8*, OUTPUT+12*, OUTPUT+13*, OUTPUT+14, OUTPUT+17
NONEMSG PRINT+4~, PRINT+6*, PRINT+13
NWPG LINE+1~, LINE+3*, LINE+6*, LINE+8, LINE+9*
OFFSET HEADER+1~, HEADER+10*, HEADER+11, HEADER+15*, HEADER+16
PGC PRINT~, PRINT+24, LINE+6, HEADER+2, HEADER+7*, HEADER+9
POP R10+1~, DEVICE+6~, DEVICE+14
PXT PRINT~, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+22, PRINT+24, LINE+4, LINE+5, LINE+6
, HEADER+2, HEADER+5*
RPTDATA DATA+1~, DATA+3*, DATA+6, DATA+7, DATA+11, DATA+12, DATA+13, DATA+15, DATA+18, DATA+23
, DATA+24, DATA+25, DATA+33, DATA+35, DATA+36, DATA+38, DATA+39, DATA+40, DATA+41, DATA+42
RTN PRINT~, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, DATA+3
SORT1 COMPDATA+3~, COMPDATA+13*, COMPDATA+66*, COMPDATA+67*, COMPDATA+68*, COMPDATA+69*, COMPDATA+70*, COMPDATA+73*, COMPDATA+78, PRINT+4~
, PRINT+15*, PRINT+16, PRINT+17, PRINT+18, DATA+3
SORT2 COMPDATA+3~, COMPDATA+13*, COMPDATA+66*, COMPDATA+67*, COMPDATA+68*, COMPDATA+70*, COMPDATA+73*, COMPDATA+78, PRINT+4~, PRINT+16*
, PRINT+17, PRINT+18, DATA+3
SORT3 COMPDATA+3~, COMPDATA+13*, COMPDATA+66*, COMPDATA+67*, COMPDATA+68*, COMPDATA+70*, COMPDATA+73*, COMPDATA+78, PRINT+4~, PRINT+17*
, PRINT+18, DATA+3
SPACES PRINT+4~, PRINT+7*, DATA+18, DATA+23, DATA+24, DATA+25, DATA+27, DATA+33, DATA+34, DATA+36
, DATA+38, DATA+39, DATA+40, DATA+42
SRT PRINT~
STOP R10+1~, R10+3*, R10+11*, R20+12*, R30+8*, R30+9, R40+8*, R50+5, DEVICE+14*
U COMPDATA+76, COMPDATA+77, OUTPUT+11, DATA+6, DATA+7, DATA+11, DATA+12, DATA+13, DATA+15, DATA+18
, DATA+23, DATA+24, DATA+25, DATA+33, DATA+35, DATA+36, DATA+38, DATA+39, DATA+40, DATA+41
, DATA+42
X R10+2~, R20+1~, R30+1~, R40+1~, OUTPUT+2~, HEADER+1~, EHDR+1~, EHDR+2*, EHDR+3, EHDR+7*
, EHDR+9, EHDR+12*, EHDR+13*, EHDR+14
Y R10+2~, R10+12, R10+13, R20+1~, R20+12*, R20+13, R30+1~, R30+10, R40+1~, R40+9
, OUTPUT+2~, HEADER+1~
ZIPCODE DATA+1~, DATA+6*, DATA+7*, DATA+12, DATA+18
ZTDESC DEVICE+6~, DEVICE+9*, DEVICE+13
ZTQUEUED R10+1~, R50+1, COMPILE+17, COMPDATA+5, COMPDATA+18, OUTPUT+16, OUTPUT+19, HEADER+2, HEADER+6
ZTREQ R10+1~, COMPILE+17*
ZTRTN DEVICE+6~, DEVICE+8*, DEVICE+13
ZTSAVE DEVICE+6~, DEVICE+13
ZTSAVE("IBCNERTN" DEVICE+11*
ZTSAVE("IBCNESPD(" DEVICE+10*
ZTSAVE("IBOUT" DEVICE+12*
ZTSTOP R10+1~, COMPILE+11, COMPDATA+17, COMPDATA+18*, OUTPUT+15, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+22
, PRINT+24, LINE+4, LINE+5, LINE+6, HEADER+6*
ZZ OUTPUT+2~
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