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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNINSC

Package: Integrated Billing

Routine: IBCNINSC


Information

IBCNINSC ;AITC/DG/TAZ - GENERAL INSURANCE UTILITIES - INSURANCE COMPANY LOOKUP ;02/01/23

Source Information

Source file <IBCNINSC.m>

Entry Points

Name Comments DBIA/ICR reference
INSOCAS(ARRY,IBNE,IBLIMIT,IBSCR) ; lookup for case insensitive
INSOCAS1 ; entry point for loop back
SKIPLKUP ; Bypass Lookup if spacebar-return used. IB*763/TAZ
INSOP ; process return
INSOCASX ; insurance lookup exit point
IBESET(IBSTR) ; set IBE equal to array item
FNDSET(IBIN) ; set string to be saved in the return array
ARSET(IBITM) ; set item into ARRY
INSD(IBARY,IBO,IBLM) ; display up to 5 insurances for selection at a time.
; IBARY - 5 items to display
; IBO - are there more to display
; IBLM - max number counter
INSDA ; loop back point
SELECTED(IBE) ; Check to see if selected.
DISPADDR(IBNAME,IBNMIEN,IBNUM,IBPCK,IBRNM) ; display the item with identifying info
HLPLST ; list out Insurance cos. in 'B' index in groups of 20
HLPLSA ; to list all without question

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Insurance Company IEN not found"
  • Line Location: INSOCAS1+15
Function Call: WRITE
  • Prompt: " No Insurance names found that match the criteria."
  • Line Location: SKIPLKUP+8
Function Call: WRITE
  • Prompt: !,"Maximum allowed selected items of "_IBLIMIT_" has been reached"
  • Line Location: INSOP+6
Function Call: WRITE
  • Prompt: $P(IBE,U,2)
  • Condition for execution: IBSBR
  • Line Location: SELECTED+2
Function Call: WRITE
  • Prompt: !!?3,"Already selected. Choose another insurance company.",!,*7
  • Line Location: SELECTED+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPADDR+12
Function Call: WRITE
  • Prompt: ?5,IBNUM,?10
  • Line Location: DISPADDR+13
Function Call: WRITE
  • Prompt: IBNAME
  • Line Location: DISPADDR+14
Function Call: WRITE
  • Prompt: " ",IBRNM
  • Line Location: DISPADDR+15
Function Call: WRITE
  • Prompt: " "
  • Line Location: DISPADDR+17
Function Call: WRITE
  • Prompt: !,"Answer with INSURANCE COMPANY NAME, or SYNONYM"
  • Line Location: HLPLST+3
Function Call: WRITE
  • Prompt: !!," You may enter a new INSURANCE COMPANY, if you wish"
  • Line Location: HLPLSA+13
Function Call: WRITE
  • Prompt: !," Answer must be 3-30 characters in length."
  • Line Location: HLPLSA+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] Classic Fileman Calls,  RECALL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call