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

Package Total Call Graph
Kernel 5 ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$LJ,$$RJ,$$UP)^XLFSTR  EN^XUTMDEVQ  
Integrated Billing 4 $$STOP^IBCNERP1  $$PYRAPP^IBCNEUT5  INSOCAS^IBCNINSC  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
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

External References

Name Field # of Occurrence
^%ZISC COMPILE+13
$$S^%ZTLOAD COMPDATA+19, HEADER+6
$$GET1^DIQ COMPDATA+20, COMPDATA+26, COMPDATA+30, COMPDATA+31, COMPDATA+32, COMPDATA+33, COMPDATA+34, COMPDATA+35, COMPDATA+37, COMPDATA+44
, COMPDATA+45, COMPDATA+46, COMPDATA+47
^DIR R10+9, R15+13, R20+13, R30+7, R40+7, OUTPUT+19, OUTPUT+20, HEADER+4
$$STOP^IBCNERP1 R15+14, R20+14, R26+4, R30+9, R40+8
$$PYRAPP^IBCNEUT5 COMPDATA+52, COMPDATA+60
INSOCAS^IBCNINSC R26+2
PAYER^IBCNINSU COMPDATA+50
$$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+22
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: !
  • 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
Routine Call
  • DIR
  • Line Location:
    • R10+9
    • R15+13
    • R20+13
    • R30+7
    • R40+7
    • OUTPUT+19
    • OUTPUT+20
    • 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+18
^IBA(355.3 - [#355.3] COMPDATA+26
^TMP($J COMPILE+7!, COMPILE+15!, COMPDATA+8!, COMPDATA+81*, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, DATA+3

Label References

Name Line Occurrences
COMPDATA COMPILE+9
DATA PRINT+20
DEVICE R50+4
EHDR PRINT+10
EXIT R10+10, R15+14, R20+14, R26+4, R30+9, R40+8
HEADER PRINT+13, PRINT+24, LINE+6
HEADERX HEADER+2, HEADER+6
LINE PRINT+20
OUTPUT COMPILE+11
OUTPUTX OUTPUT+16
PRINT OUTPUT+15
PRINTEX PRINT+22, PRINT+24
R10 R15+14
R15 R20+14, R26+4, R30+9
R20 R15+16
R25 R15+17
R26 R26+5
R30 R15+15, R20+16, 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+52*, COMPDATA+53, COMPDATA+54
APPIENS COMPDATA+3~, COMPDATA+54*, COMPDATA+55, COMPDATA+57, COMPDATA+62*, COMPDATA+63
APPIIU COMPDATA+3~, COMPDATA+60*, COMPDATA+61, COMPDATA+62
ARRAY R25+1~, R26+2, R26+4, R26+5, R26+7*, R26+8
CNT PRINT+4~, PRINT+18*, DATA+3
CRT OUTPUT+2~, OUTPUT+9*, OUTPUT+13*, OUTPUT+14*, OUTPUT+15, OUTPUT+17, OUTPUT+20, PRINT~, HEADER+2
DASH PRINT+4~, PRINT+7*, HEADER+23, HEADER+32
DEST R10+1~
DIR R10+2~, R10+9!, R15+2~, R15+13!, R20+1~, R20+13!, R30+1~, R30+7!, R40+1~, R40+7!
, OUTPUT+2~, OUTPUT+19!, OUTPUT+20!, HEADER+1~, HEADER+4!
DIR("?" R10+7*, R10+8*, R15+6*, R15+7*, R15+8*, R15+9*, R15+10*, R15+11*, R15+12*, R20+9*
R20+10*, R20+11*, R20+12*, R40+6*
DIR("A" R10+6*, R15+5*, R20+8*, R30+5*, R40+4*
DIR("B" R30+6*, R40+5*
DIR(0 R10+5*, R15+4*, R20+7*, R30+4*, R40+3*, OUTPUT+19*, OUTPUT+20*, HEADER+4*
DIROUT R10+2~, R30+1~
DIRUT R10+2~, R10+10, R15+2~, 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~, R15+14, R20+14, R30+1~, OUTPUT+2~, HEADER+1~, HEADER+5
DUOUT R10+2~, R15+14, R20+14, 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+14*, HEADER+15*, HEADER+16, HEADER+17, EHDR+1~, EHDR+4*
EHDR+6*, EHDR+7
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+81, OUTPUT~, OUTPUT+15
IBCNESPD R10+1~, R50+4, DEVICE~, COMPILE~, COMPILE+9, COMPILE+11, COMPDATA~, OUTPUT~
IBCNESPD("IBOUT" R30+10*, R30+13
IBCNESPD("IMAT" R15+15*, R20+15*, R26+8*, COMPDATA+13, OUTPUT+7
IBCNESPD("ISORT" R10+12*, R30+3*, R30+9*, R30+13*, R30+15, R40+9*, COMPDATA+11, OUTPUT+5
IBCNESPD("ITYPE" R10+11*, R30+3, R30+15, R50+2, COMPDATA+10, OUTPUT+4
IBELOACT COMPDATA+2~, COMPDATA+28*, COMPDATA+57*, COMPDATA+58*, COMPDATA+80
IBENAACT COMPDATA+2~, COMPDATA+28*, COMPDATA+55*, COMPDATA+56*, COMPDATA+80
IBGRP COMPDATA+1~, COMPDATA+26*, COMPDATA+79
IBI COMPDATA+1~, COMPDATA+26*
IBIADDR COMPDATA+2~, COMPDATA+32*, COMPDATA+79
IBICITY COMPDATA+2~, COMPDATA+33*, COMPDATA+79
IBIINST COMPDATA+2~, COMPDATA+31*, COMPDATA+79
IBINAACT COMPDATA+2~, COMPDATA+28*, COMPDATA+63*, COMPDATA+64*, COMPDATA+80
IBINAME COMPDATA+1~, COMPDATA+20*, COMPDATA+21, COMPDATA+22, COMPDATA+69, COMPDATA+70, COMPDATA+71, COMPDATA+73, COMPDATA+76, COMPDATA+79
IBINS COMPDATA+1~, COMPDATA+17*, COMPDATA+18*, COMPDATA+20, COMPDATA+24, COMPDATA+26, COMPDATA+30, COMPDATA+31, COMPDATA+32, COMPDATA+33
, COMPDATA+34, COMPDATA+35, COMPDATA+37, COMPDATA+81
IBIPROF COMPDATA+2~, COMPDATA+30*, COMPDATA+79
IBISTATE COMPDATA+2~, COMPDATA+34*, COMPDATA+79
IBIZIP COMPDATA+2~, COMPDATA+35*, COMPDATA+79
IBMAT COMPDATA+1~, COMPDATA+13*, COMPDATA+22, COMPDATA+24, OUTPUT+1~, OUTPUT+7*, HEADER+15, EHDR+6
IBMAT( COMPDATA+24
IBOUT R10+1~, R30+10*, R50+1, R50+3, COMPDATA+5, COMPDATA+73, OUTPUT+12*, OUTPUT+15, OUTPUT+20, PRINT~
, PRINT+10, PRINT+13, PRINT+23, DATA+10, LINE+5, LINE+7
IBPGC OUTPUT+1~, OUTPUT+9*, OUTPUT+15, OUTPUT+17
IBPINST COMPDATA+3~, COMPDATA+28*, COMPDATA+47*, COMPDATA+80
IBPPROF COMPDATA+3~, COMPDATA+28*, COMPDATA+46*, COMPDATA+80
IBPVAID COMPDATA+3~, COMPDATA+28*, COMPDATA+45*, COMPDATA+69, COMPDATA+70, COMPDATA+71, COMPDATA+73, COMPDATA+80
IBPXT OUTPUT+1~, OUTPUT+9*, OUTPUT+15, OUTPUT+16
IBPY COMPDATA+1~, COMPDATA+37*, COMPDATA+39, COMPDATA+41, COMPDATA+44, COMPDATA+45, COMPDATA+46, COMPDATA+47, COMPDATA+50, COMPDATA+52
, COMPDATA+54, COMPDATA+60, COMPDATA+62
IBPYARY COMPDATA+3~, COMPDATA+49!, COMPDATA+50
IBPYARY( COMPDATA+55, COMPDATA+57, COMPDATA+63
IBPYR COMPDATA+1~, COMPDATA+28*, COMPDATA+44*, COMPDATA+69, COMPDATA+70, COMPDATA+71, COMPDATA+73, COMPDATA+80
IBRPT COMPDATA+3~, COMPDATA+79*, COMPDATA+80*, COMPDATA+81
IBSORT COMPDATA+1~, COMPDATA+11*, COMPDATA+69, COMPDATA+70, COMPDATA+71, OUTPUT+1~, OUTPUT+5*, OUTPUT+15
IBTYP COMPDATA+1~, COMPDATA+10*, COMPDATA+39, COMPDATA+41, COMPDATA+43, COMPDATA+76, OUTPUT+1~, OUTPUT+4*, OUTPUT+15, PRINT~
, DATA+14, DATA+21, DATA+31, HEADER+10, HEADER+14, HEADER+16, HEADER+19, HEADER+25, EHDR+4, EHDR+10
EHDR+12
IOF EN+5, HEADER+8
IOSL OUTPUT+13, OUTPUT+14
IOST COMPDATA+5, OUTPUT+13
LCT DATA+1~, DATA+11*
LIN OUTPUT+2~, OUTPUT+18*, 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+9*, OUTPUT+13*, OUTPUT+14*, OUTPUT+15, OUTPUT+18
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+16*, HEADER+17
PGC PRINT~, PRINT+24, LINE+6, HEADER+2, HEADER+7*, HEADER+9
POP R10+1~, DEVICE+6~
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+14*, COMPDATA+69*, COMPDATA+70*, COMPDATA+71*, COMPDATA+72*, COMPDATA+73*, COMPDATA+76*, COMPDATA+81, PRINT+4~
, PRINT+15*, PRINT+16, PRINT+17, PRINT+18, DATA+3
SORT2 COMPDATA+3~, COMPDATA+14*, COMPDATA+69*, COMPDATA+70*, COMPDATA+71*, COMPDATA+73*, COMPDATA+76*, COMPDATA+81, PRINT+4~, PRINT+16*
, PRINT+17, PRINT+18, DATA+3
SORT3 COMPDATA+3~, COMPDATA+14*, COMPDATA+69*, COMPDATA+70*, COMPDATA+71*, COMPDATA+73*, COMPDATA+76*, COMPDATA+81, 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+10*, R15+14*, R20+14*, R26+4*, R30+8*, R30+9, R40+8*
U COMPDATA+79, COMPDATA+80, OUTPUT+12, 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~, R15+2~, R20+1~, R30+1~, R40+1~, OUTPUT+2~, HEADER+1~, EHDR+1~, EHDR+2*, EHDR+3
EHDR+8*, EHDR+10, EHDR+13*, EHDR+14*, EHDR+15
Y R10+2~, R10+11, R10+12, R15+2~, R15+14*, R15+15, R15+16, R20+1~, R20+14*, R20+15
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+19, OUTPUT+17, OUTPUT+20, 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+18, COMPDATA+19*, OUTPUT+16, 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