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

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

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
Info |  Source |  Entry Points |  Interaction Calls