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

Package: Integrated Billing

Routine: IBCNSGE


Information

IBCNSGE ;ALB/ESG - Insurance Company EDI Parameter Report ;07-JAN-2005

Source Information

Source file <IBCNSGE.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$RJ,$$UP)^XLFSTR  EN^XUTMDEVQ  
VA FileMan 3 ^DIC  $$EXTERNAL^DILFD  ^DIR  
Integrated Billing 2 $$ACTIVE^IBCNEUT4  $$HPD^IBCNHUT1  

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 IBCN INSURANCE EDI REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point
EXIT ;
SELECT ; Select insurance companies to include on the report
SEL1 ;
SELX ;
MULT ; select one or many insurance companies
MULTX ;
RANGE ; select a range of insurance company names
RANGEX ;
SORT ; Choose the sorting method
; MRD;IB*2.0*516 - Removed sort option 6, Use VAMC as Billing Provider.
SORTX ;
COMPILE ; Entry point for task; compile scratch global, print, clean-up
COMPX ;
CALC(INS) ; extract insurance data for company ien=INS
CALCX ;
PRINT ; print the report to the specified device
PRINTX ;
HEADER ; page break and report header information
HEADX ;
DEVICE ; Device selection before compile
DEVX ;

External References

Name Field # of Occurrence
^%ZISC COMPILE+30
$$S^%ZTLOAD HEADER+51
^DIC MULT+6
$$EXTERNAL^DILFD CALC+22, CALC+23, CALC+24
^DIR SEL1+17, SEL1+33, RANGE+7, RANGE+17, SORT+7, PRINT+41, HEADER+5
$$ACTIVE^IBCNEUT4 CALC+2
$$HPD^IBCNHUT1 CALC+13
$$FMTE^XLFDT HEADER+31
$$NOW^XLFDT HEADER+31
$$RJ^XLFSTR HEADER+48
$$UP^XLFSTR CALC+15
EN^XUTMDEVQ DEVICE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SEL1+2
Function Call: WRITE
  • Prompt: !!?21,"Insurance Company EDI Parameter Report"
  • Line Location: SEL1+3
Function Call: WRITE
  • Prompt: !!?5,"This report will display the EDI parameter information for selected"
  • Line Location: SEL1+4
Function Call: WRITE
  • Prompt: !?5,"insurance companies. You can specify one company, multiple companies,"
  • Line Location: SEL1+5
Function Call: WRITE
  • Prompt: !?5,"a range of company names, or all companies on file."
  • Line Location: SEL1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL1+24
Function Call: WRITE
  • Prompt: !
  • Line Location: MULT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGE+12
Function Call: WRITE
  • Prompt: !!?5,"Sorry ..... Ending name must come after Starting name"
  • Line Location: RANGE+28
Function Call: WRITE
  • Prompt: !!?5,"Please try again",*7
  • Line Location: RANGE+29
Function Call: WRITE
  • Prompt: !!?5,"*** Sort Criteria ***"
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: !!!?5,"No Data Found"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,$E($P(DATA,U,1),1,25)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?27,$E($P(DATA,U,2),1,19)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?47,$E($P(DATA,U,3),1,13)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ","
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: $E($P(DATA,U,4),1,2)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?65,$E($P(DATA,U,7),1,8)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?75,$E($P(DATA,U,8),1,8)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?84,$E($P(DATA,U,9),1,8)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?93,$E($P(DATA,U,10),1,11)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: ?105,$S($E($P(DATA,U,5))="G":"GROUP PLAN",1:$E($P(DATA,U,5),1,10))
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: ?116,$E($P(DATA,U,6),1,16)
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: "All Companies"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: "Selected Companies"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: "Companies [",C1,"] through [",C2,"]"
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: ?45," Insurance Company EDI Parameter Report"
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: ?TAB,HDR
  • Line Location: HEADER+22
Function Call: WRITE
  • Prompt: !,"Sorted By "
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: "Ins Company Name"
  • Line Location: HEADER+25
Function Call: WRITE
  • Prompt: "Prof ID"
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: "Inst ID"
  • Line Location: HEADER+27
Function Call: WRITE
  • Prompt: "Electronic Type"
  • Line Location: HEADER+28
Function Call: WRITE
  • Prompt: "Type of Coverage"
  • Line Location: HEADER+29
Function Call: WRITE
  • Prompt: "Use VAMC as Billing Provider"
  • Line Location: HEADER+30
Function Call: WRITE
  • Prompt: ?TAB,HDR
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: !,"Only Blank or 'PRNT' Bill ID's = ",$S(IBRBID:"YES",1:"NO")
  • Line Location: HEADER+39
Function Call: WRITE
  • Prompt: !,"'*' indicates the HPID/OEID failed validation checks"
  • Line Location: HEADER+40
Function Call: WRITE
  • Prompt: !?65,"Electron",?75,"Inst",?84,"Prof",?93,"HPID/",?105,"Electronic"
  • Line Location: HEADER+43
Function Call: WRITE
  • Prompt: !,"Insurance Company Name",?27,"Street Address",?47,"City"
  • Line Location: HEADER+44
Function Call: WRITE
  • Prompt: ?65,"Transmit",?76,"ID",?85,"ID",?93,"OEID",?105,"Type",?116,"Coverage Type"
  • Line Location: HEADER+47
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR("",132,"=")
  • Line Location: HEADER+48
Function Call: WRITE
  • Prompt: !!!?5,"*** Report Halted by TaskManager Request ***"
  • Line Location: HEADER+53
Function Call: WRITE
  • Prompt: !!!,"This report is 132 columns wide. Please choose an appropriate device.",!
  • Line Location: DEVICE+2
Routine Call
  • DIC
  • Line Location:
    • MULT+6
Routine Call
  • DIR
  • Line Location:
    • SEL1+17
    • SEL1+33
    • RANGE+7
    • RANGE+17
    • SORT+7
    • PRINT+41
    • HEADER+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] MULT+8, COMPILE+11, COMPILE+22, COMPILE+23, COMPILE+25, CALC+3, CALC+4, CALC+5
^DIC(5 - [#5] CALC+21
^TMP($J COMPILE+6!, COMPILE+31!, CALC+42*, PRINT+6, PRINT+13, PRINT+15, PRINT+17, PRINT+18

Label References

Name Line Occurrences
CALC COMPILE+11, COMPILE+17, COMPILE+25
CALCX CALC+2, CALC+15
DEVICE EN+4
EXIT EN+2, EN+3
HEADER PRINT+6, PRINT+20
HEADX HEADER+3, HEADER+51
MULT SEL1+21
MULTX MULT+10
PRINT COMPILE+29
PRINTX PRINT+39
RANGE SEL1+22, RANGE+27
RANGEX RANGE+8, RANGE+18, RANGE+22
SEL1 SEL1+21, SEL1+22
SELECT EN+2
SELX SEL1+18, SEL1+20, SEL1+34
SORT EN+3
SORTX SORT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDR COMPILE+2~, CALC+4*, CALC+18, CALC+19, CALC+20
C1 HEADER+1~, HEADER+15*, HEADER+17
C2 HEADER+1~, HEADER+16*, HEADER+17
CITY COMPILE+2~, CALC+19*, CALC+41
CRT PRINT+1~, PRINT+2*, PRINT+3*, PRINT+41, HEADER+3
DATA COMPILE+2~, CALC+3*, CALC+17, CALC+22, PRINT+1~, PRINT+18*, PRINT+19*, PRINT+21, PRINT+22, PRINT+23
, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+32, PRINT+33
DIC SELECT+1~, MULT+1~, MULT+6*
DIC("A" MULT+4*
DIC("S" MULT+5*
DIC(0 MULT+6*
DIR SELECT+1~, SEL1+17!, SEL1+33!, RANGE+7!, RANGE+17!, SORT+2~, SORT+7!, PRINT+1~, PRINT+41!, HEADER+5!
DIR("?" SEL1+11*, SEL1+12*, SEL1+13*, SEL1+14*, SEL1+15*, SEL1+16*, SEL1+29*, SEL1+30*, SEL1+31*, SEL1+32*
, RANGE+4*, RANGE+5*, RANGE+6*, RANGE+14*, RANGE+15*, RANGE+16*
DIR("A" SEL1+9*, SEL1+26*, SEL1+27*, RANGE+3*, RANGE+13*, SORT+6*
DIR("B" SEL1+10*, SEL1+28*, RANGE+7*, RANGE+17*, SORT+6*
DIR(0 SEL1+8*, SEL1+25*, RANGE+3*, RANGE+13*, SORT+5*, PRINT+41*, HEADER+5*
DIROUT SELECT+1~, SORT+2~, PRINT+1~
DIRUT SELECT+1~, SEL1+18, SEL1+34, RANGE+8, RANGE+18, SORT+2~, SORT+8, PRINT+1~
DTOUT SELECT+1~, SORT+2~, PRINT+1~
DUOUT SELECT+1~, SORT+2~, PRINT+1~
EDI COMPILE+2~, CALC+5*, CALC+10, CALC+11, CALC+23, CALC+24
HDR HEADER+1~, HEADER+21*, HEADER+22, HEADER+31*, HEADER+32
IBHPID COMPILE+3~, CALC+13*, CALC+41
IBQ SELECT+1~, SEL1+1*, SEL1+21, SEL1+22, MULT+10*, RANGE+8*, RANGE+18*
IBRBID EN+1~, SEL1+35*, CALC+15, HEADER+39
IBRINS EN+1~, SEL1+19*, SEL1+20, SEL1+21, SEL1+22, MULT+2!*, RANGE+23!, RANGE+24*, COMPILE+9, COMPILE+15
, COMPILE+21, HEADER+12, HEADER+13, HEADER+14
IBRINS( MULT+8*, COMPILE+17
IBRINS("" MULT+10
IBRINS1 EN+1~, RANGE+1!, RANGE+9*, RANGE+10*, RANGE+22, RANGE+23!, RANGE+27, COMPILE+22, HEADER+15
IBRINS2 EN+1~, RANGE+1!, RANGE+19*, RANGE+20*, RANGE+22, RANGE+23!, RANGE+27, COMPILE+23, HEADER+16
IBRSORT EN+1~, SORT+9*, CALC+32, CALC+33, CALC+34, CALC+35, CALC+36, HEADER+25, HEADER+26, HEADER+27
, HEADER+28, HEADER+29
INS CALC~, CALC+2, CALC+3, CALC+4, CALC+5, CALC+13, CALC+42, PRINT+1~, PRINT+16*, PRINT+17*
, PRINT+18
INSIEN COMPILE+2~, COMPILE+10*, COMPILE+11*, COMPILE+16*, COMPILE+17*, COMPILE+24*, COMPILE+25*
INSNM COMPILE+2~, COMPILE+22*, COMPILE+23*, COMPILE+25
INSTID COMPILE+2~, CALC+11*, CALC+15, CALC+34, CALC+41
INSTYP COMPILE+3~, CALC+24*, CALC+35, CALC+41
IOF SEL1+2, HEADER+10
IOSL PRINT+2, PRINT+3
IOST PRINT+2
LIN HEADER+1~, HEADER+4*
MAXCNT PRINT+1~, PRINT+2*, PRINT+3*, PRINT+20, HEADER+4
NAME COMPILE+2~, CALC+17*, CALC+32, CALC+41, CALC+42, PRINT+1~, PRINT+14*, PRINT+15*, PRINT+17, PRINT+18
PAGECNT PRINT+1~, PRINT+4*, PRINT+20, HEADER+3, HEADER+9*, HEADER+21
POP DEVICE+1~
PROFID COMPILE+2~, CALC+10*, CALC+15, CALC+33, CALC+41
RTN COMPILE+2~, COMPILE+5*, COMPILE+6, COMPILE+31, CALC+42, PRINT+6, PRINT+13, PRINT+15, PRINT+17, PRINT+18
SORT COMPILE+3~, CALC+31*, CALC+32*, CALC+33*, CALC+34*, CALC+35*, CALC+36*, CALC+42, PRINT+1~, PRINT+12*
, PRINT+13*, PRINT+15, PRINT+17, PRINT+18
STATE COMPILE+3~, CALC+20*, CALC+21*, CALC+41
STOP EN+1~, EN+2, EN+3, SEL1+1*, SEL1+18*, SEL1+20*, SEL1+34*, SORT+8*, PRINT+1~, PRINT+4*
, PRINT+13, PRINT+15, PRINT+17, PRINT+20, PRINT+39, HEADER+2*, HEADER+3, HEADER+6*, HEADER+52*
STREET COMPILE+2~, CALC+18*, CALC+41
TAB HEADER+1~, HEADER+21*, HEADER+22, HEADER+31*, HEADER+32
TMP COMPILE+3~, CALC+41*, CALC+42
TRANS COMPILE+3~, CALC+23*, CALC+41
TYPCOV COMPILE+3~, CALC+22*, CALC+36, CALC+41
U MULT+8, CALC+10, CALC+11, CALC+17, CALC+18, CALC+19, CALC+20, CALC+21, CALC+22, CALC+23
, CALC+24, CALC+41, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27
, PRINT+28, PRINT+29, PRINT+32, PRINT+33
X SELECT+1~, MULT+1~, SORT+2~, PRINT+1~
Y SELECT+1~, SEL1+19, SEL1+35, MULT+1~, MULT+3, MULT+7, MULT+8, RANGE+9, RANGE+19, SORT+2~
, SORT+9, PRINT+1~, HEADER+6
ZTDESC DEVICE+1~, DEVICE+4*, DEVICE+10
>> ZTQUEUED COMPILE+32, PRINT+41, HEADER+3, HEADER+51
>> ZTREQ COMPILE+32*
ZTRTN DEVICE+1~, DEVICE+3*, DEVICE+10
ZTSAVE DEVICE+1~, DEVICE+10
ZTSAVE("IBRBID" DEVICE+6*
ZTSAVE("IBRINS" DEVICE+5*
ZTSAVE("IBRINS1" DEVICE+7*
ZTSAVE("IBRINS2" DEVICE+8*
ZTSAVE("IBRSORT" DEVICE+9*
>> ZTSTOP HEADER+52*
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