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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCEF51

Package: Integrated Billing

Routine: IBCEF51


Information

IBCEF51 ;ALB/TMP - MRA/EDI ACTIVATED UTILITIES CONTINUED ;06-FEB-96

Source Information

Source file <IBCEF51.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^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: 3

Package Total Caller Graph
Integrated Billing 3 IBCEF5  IBCEF61  IBCEF62  

Entry Points

Name Comments DBIA/ICR reference
BTYP(IBX,IBOK,IBASK) ; Select bill types to include/exclude
; IBX(364.41,y,x) = passed by reference. Array containing bill type
; restrictions data subscripted by x=field # in file 364.41
; and y = sequential #
; IBOK is passed by reference and is returned as 1 if action is
; successful, 0 if not
; IBASK = flag =1 to ask for all 3 fields (edit bill type)
; =0 to ask for only bill type field (add rule)
INSCO(IB,IBOK,IBDA1) ; Select insurance co option and, if
; appropriate, the individual companies to include/exclude for the rule
; IB = passed by reference
; (.07) = Returned as the internal value selected for insurance co
; option
; (364.4*,x) = Array is returned containing ins co data subscripted
; by x=field # in appropriate subfile
; IBOK is passed by reference and is returned as 1 if action is
; successful, 0 if not
; IBDA1 = the ien of the rule being changed
INSQ
BTOK(Y,IBY,SUP) ; Check that bill type is valid for rule
; Function returns 1 if OK, 0 if not
BTOKQ
INVAL(Y,MES) ; Print invalid message
; Y = the bill type in error
; MES = the message # to print

External References

Name Field # of Occurrence
^DIR BTYP+28, INSCO+17, INSCO+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BTYP+15
Function Call: WRITE
  • Prompt: !," ALL BILL TYPES INCLUDED - ONLY EXCLUSIONS ALLOWED NOW",!
  • Line Location: BTYP+47
Function Call: WRITE
  • Prompt: !,"Warning ... this rule will not work unless you enter at least one bill type",!
  • Line Location: BTYP+48
Function Call: WRITE
  • Prompt: !,"Timed out or '^' entered ... bill types not added",!
  • Line Location: BTYP+49
Function Call: WRITE
  • Prompt: !,*7,"Entries deleted!",!
  • Line Location: INSCO+25
Function Call: WRITE
  • Prompt: !,*7,"Warning ... no insurance companies entered",!
  • Line Location: INSCO+26
Function Call: WRITE
  • Prompt: !,"Cannot add this bill type restrictions because:"
  • Line Location: INVAL+3
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: INVAL+4
Function Call: WRITE
  • Prompt: "In order to exclude, you must include at least one bill type including the",!,?6," excluded bill type first"
  • Line Location: INVAL+5
Function Call: WRITE
  • Prompt: "You already have 'XXX' (all bill types) - can only EXCLUDE bill types now"
  • Line Location: INVAL+6
Function Call: WRITE
  • Prompt: "You have already entered this bill type"
  • Line Location: INVAL+7
Function Call: WRITE
  • Prompt: "You have included and excluded the same bill type"
  • Line Location: INVAL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: INVAL+9
Routine Call
  • DIR
  • Line Location:
    • BTYP+28
    • INSCO+17
    • INSCO+23

Label References

Name Line Occurrences
$$BTOK BTYP+37
BTOKQ BTOK+13, BTOK+15, BTOK+16
INVAL BTOK+10, BTOK+11, BTOK+15, BTOK+16, BTOK+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT BTYP+18~, BTYP+23*, BTYP+25*, BTYP+26
DA BTYP+9~, INSCO+14~, INSCO+15*, INSCO+17!
DIR BTYP+28!, INSCO+11~, INSCO+17!, INSCO+23!
DIR("?" BTYP+19*, BTYP+20*, BTYP+21*, BTYP+22*, BTYP+24*, BTYP+25*, BTYP+26*!
DIR("A" BTYP+15*, INSCO+16*, INSCO+23*
DIR(0 BTYP+16*, INSCO+16*, INSCO+23*
DTOUT BTYP+9~, BTYP+30
DUOUT BTYP+9~, BTYP+30, INSCO+25
IB BTYP+43~, BTYP+44*, BTYP+45*, INSCO~
IB( INSCO+15, INSCO+17, INSCO+19*, INSCO+20, INSCO+21, INSCO+24*, INSCO+25!
IBABORT BTYP+9~, BTYP+10*, BTYP+31*, BTYP+48, BTYP+49
IBASK BTYP~, BTYP+13
IBCT BTYP+9~, BTYP+11*, BTYP+15, BTYP+34, BTYP+39*, BTYP+40, BTYP+46, BTYP+48, INSCO+11~, INSCO+12*
, INSCO+13, INSCO+19*, INSCO+20*, INSCO+24*, INSCO+25*, INSCO+26*
IBDA1 INSCO~, INSCO+15
IBEXC BTYP+9~, BTYP+10*, BTYP+15, BTYP+16, BTYP+42*
IBOK BTYP~, BTYP+10*, BTYP+31*, BTYP+48*, INSCO~, INSCO+12*, INSCO+13, INSCO+18*, BTOK+8*, BTOK+10*
, BTOK+11*, BTOK+13, BTOK+15*, BTOK+16*, BTOK+18*, BTOKQ
IBOUT BTYP+9~, BTYP+10*, BTYP+13, BTYP+14, BTYP+32*
IBT INSCO+11~, INSCO+21*, INSCO+23, INSCO+24, INSCO+25
IBX BTYP~, BTYP+17
IBX( BTYP+11, BTYP+12, BTYP+24, BTYP+31!, BTYP+34*, BTYP+40*, BTYP+44!, BTYP+46*
IBY BTYP+9~, BTYP+37, BTOK~
IBY( BTYP+12*, BTYP+25, BTYP+39*, BTYP+45!, BTOK+10, BTOK+11, BTOK+16
IBY("-" BTOK+18
IBY("XXX" BTOK+9, BTOK+15
IBZ BTYP+9~, BTYP+13*, BTYP+14, BTYP+16, BTYP+17, BTYP+32, BTYP+34
MES INVAL~, INVAL+5, INVAL+6, INVAL+7, INVAL+8
SUP BTOK~, BTOK+10, BTOK+11, BTOK+15, BTOK+16, BTOK+18
X BTYP+9~, INSCO+11~
Y BTYP+9~, BTYP+30, BTYP+31*, BTYP+32, BTYP+34, BTYP+36, BTYP+37, BTYP+39, BTYP+40, BTYP+42
, INSCO+11~, INSCO+15*, INSCO+18, INSCO+19, INSCO+23, INSCO+24, BTOK~, BTOK+9, BTOK+10, BTOK+11
, BTOK+15, BTOK+16, BTOK+18, INVAL~
Z BTYP+12*, BTYP+18~, BTYP+25*, BTOK+10*, BTOK+11*
>> Z0 BTOK+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All