IBCNSJ12 ;ALB/CPM - INACTIVATE AN INSURANCE PLAN (CON'T) ; 18-JAN-95
Source file <IBCNSJ12.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETPL | ; Select an active group plan or add a new one.
; Required variable input: ; IBCNS -- Pointer to the company in file #36 offering the plan ; IBPLAN -- Pointer to the current plan in file #355.3 ; IBFG -- [Optional] -> set to 1 to force creation, if ; necessary, of a group plan |
|
ADD | ; - propose to add a new plan to which the patient may subscribe
|
|
NAC(IBPLAN,IBPR,IBDEL,IBQ) | ; Inactivate the plan.
; Input: IBPLAN -- Pointer to the plan in file #355.3 ; IBPR -- Prompt for the Reader call ; IBDEL -- [optional]: set to 1 if the plan may be deleted ; Output: IBQ -- set to 1 if the plan is not inactivated |
|
NACQ | ||
MSG(IBCNS,IBPLAN) | ; Send the subscription list to the user.
; Input: IBCNS -- Pointer to the company in file #36 offering the plan ; IBPLAN -- Pointer to the current plan in file #355.3 |
|
MSGQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|