IBCNSJ3 ;ALB/CPM - ADD NEW INSURANCE PLAN ; 11-JAN-95
Source file <IBCNSJ3.m>
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.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|