Routine: IBCNSJ12

Information

IBCNSJ12 ;ALB/CPM - INACTIVATE AN INSURANCE PLAN (CON'T) ; 18-JAN-95

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	Prompt: !!,$P($G(^DIC(36,IBCNS,0)),"^")," offers no other active group plans!" Line Location: GETPL+14
Function Call: WRITE	Prompt: !,"No plan selected!",! Line Location: GETPL+17
Function Call: WRITE	Prompt: ! Line Location: ADD+4
Function Call: WRITE	Prompt: !,"No Insurance Plan has been added or selected." Line Location: ADD+5
Function Call: WRITE	Prompt: !,"The plan was not inactivated." Line Location: NAC+10
Function Call: WRITE	Prompt: !,"Inactivating the plan... " Line Location: NAC+11
Function Call: WRITE	Prompt: "done." Line Location: NAC+11
Function Call: WRITE	Prompt: !,"Building the list of inactivated subscriptions to send to you..." Line Location: MSG+7