Routine: IBCNSJ21

Information

IBCNSJ21 ;ALB/CPM - CHANGE POLICY PLAN (CON'T) ; 12-JAN-95

Name	Comments	DBIA/ICR reference
NOTES	; Display any necessary notes to the user.
BU	; Are there any benefits used for this plan and policy? ; Input variables required: ; DFN -- ptr to patient in file #2 ; IBPLAN -- ptr to policy plan in file #355.3 ; IBCDFN -- ptr to policy in sub-file #2.312
AB	; Find all Annual Benefits associated with an Insurance Plan. ; Input variables required: ; IBCPOL -- ptr to proposed plan in file #355.3
IR(DFN,IBCDFN)	; Are there any Insurance reviews associated with the policy? ; Input: DFN -- Pointer to the patient in file #2 ; IBCDFN -- Pointer to the policy in file #2.312 ; Output: 1 -- There are associated insurance reviews, or ; 0 -- there are not.
DMBU	; Display mergeable benefits used.
MD	; Merge/delete benefits used, if necessary.
MDQ
HLSW	; Reader help for switching plans.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please note that this is an Individual Plan." Line Location: NOTES+2
Function Call: WRITE	Prompt: !,*7,"This plan is currently inactive." Line Location: NOTES+3
Function Call: WRITE	Prompt: !,*7,"There are Benefits Used associated with this plan!" Line Location: NOTES+4
Function Call: WRITE	Prompt: !,*7,"This patient has riders associated with this policy!" Line Location: NOTES+5
Function Call: WRITE	Prompt: !,*7,"There are insurance reviews associated with this policy." Line Location: NOTES+6
Function Call: WRITE	Prompt: !!," Existing Benefit Used Yr",?31,"Annual Benefit for Proposed Plan",?66,"Merge BU?",! Line Location: DMBU+4
Function Call: WRITE	Prompt: "NO" Line Location: DMBU+7
Function Call: WRITE	Prompt: "-na-" Line Location: DMBU+8
Function Call: WRITE	Prompt: "YES" Line Location: DMBU+9
Function Call: WRITE	Prompt: !!,"If you wish to change the subscribed-to plan the newly-",$S($G(IBNEWP):"added",1:"selected")," plan," Line Location: HLSW+1
Function Call: WRITE	Prompt: !,"enter 'YES'. Otherwise, enter 'NO'." Line Location: HLSW+2
Function Call: WRITE	Prompt: !!,"If you change the plan for this policy, " Line Location: HLSW+4
Function Call: WRITE	Prompt: "all existing benefits will be deleted." Line Location: HLSW+5
Function Call: WRITE	Prompt: "all existing benefits will be merged." Line Location: HLSW+6
Function Call: WRITE	Prompt: "all transferable benefits",!,"will be merged. All others will be deleted." Line Location: HLSW+7