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

Package: Integrated Billing

Routine: IBCNSJ3


Information

IBCNSJ3 ;ALB/CPM - ADD NEW INSURANCE PLAN ; 11-JAN-95

Source Information

Source file <IBCNSJ3.m>

Entry Points

Name Comments DBIA/ICR reference
NEW(IBCNS,IBCPOL,IBFG,IBKEY,BYPASS) ; Add a new insurance plan
; Input: IBCNS -- Pointer to an insurance company in file #36
; IBFG -- [Optional] -> Set to 1 to force creation
; of a group plan
; IBKEY -- [Optional] -> Set to 1 to check for security key
; BYPASS -- Bypass new insurance plan
; Output: IBCPOL -- 0, if a new plan was not added, or
; >0 => pointer to the new plan in file #355.3
NEW1 ;
; - collect plan characteristics
MORE
NEWQ
CHECK(IBCNS,IBGNA,IBGNU) ; Check for potential duplicate plans
; Input: IBCNS -- Pointer to an insurance company in file #36
; IBGNA -- Plan Name for potential new plan
; IBGNU -- Plan Number for potential new plan
; Output: IBANS -- 1 -> Okay to add the new plan
; 0 -> Don't add the new plan.
CHECKQ
FIND(IBCNS,IBGN) ; Check cross-references for duplicate plans
; Input: IBCNS -- Pointer to the insurance company in file #36
; IBGN -- value to use to find duplicates
GDATA ; Place potential duplicate plan into an array.
LIST ; List potential duplicates to screen and prompt to add plan.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, you are not authorized to create a new Insurance Plan"
  • Line Location: NEW+15
Function Call: WRITE
  • Prompt: !!,"You are about to add a new Insurance Plan."
  • Line Location: NEW+23
Function Call: WRITE
  • Prompt: !!," Searching for potential duplicate plans offered by ",$E($P(IBCNSD,"^"),1,20),"..."
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !!," No potential duplicate plans have been identified."
  • Line Location: CHECKQ+0
Function Call: WRITE
  • Prompt: !!," The following plans have been identified as potential duplicates:"
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,?3,"PLAN",?22,"PLAN",?45,"GROUP",?55,"ACTIVE",!,?2,"NUMBER",?22,"NAME",?45,"PLAN?",?55,"PLAN?",!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+12
Info |  Source |  Entry Points |  Interaction Calls