Routine: IBCNSUR

Information

IBCNSUR ;ALB/CPM/CMS - MOVE SUBSCRIBERS TO DIFFERENT PLAN ; 09-SEP-96

Package	Total	Call Graph
Integrated Billing	9	($$ANYGP,$$SUBS,DEL,IRACT)^IBCNSJ NEW^IBCNSJ3 COVERED^IBCNSM31 LKP^IBCNSU2 SEL^IBCNSUR PROC^IBCNSUR1 (LIM,PL)^IBCNSUR2 (ADD,ADS)^IBCNSUR3 $$DAT1^IBOUTL
VA FileMan	4	^DIC FILE^DIE $$GET1^DIQ ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Billing	4	IBCN EXPIRE GROUP SUBSCRIBERS IBCN MOVE SUBSCRIB TO PLAN IBCNSUR IBCNSUR1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point from option. Main processing loop.
ENQ
PROC	; - Process continuation from IBCNSUR1. ; - display old plan attributes; allow new plan to be edited
PROCDP	; - does the user wish to delete the old plan?
PROCDP1	; Prompt to delete the plan
PROCQ
NODEL	;IB2702/CKB - Display a "not allowed to delete" message to the user
SEL(IBNP)	; Select a company and plan. ; Input: IBNP -- If set to 1, allows adding a new plan and ; -- Screen Inactive Companies ; -- If set to 0, must have at least one group plan ; Output: IBCNS -- Pointer to selected company in file #36 ; IBPLAN -- Pointer to selected/added plan in file #355.3 ; IBQUIT -- Set to 1 if the user wants to quit.
SELQ
EXPGRP	; EP for [IBCN EXPIRE GROUP SUBSCRIBERS] ; IB2.0602/DM implement expire group plan
NXTGRP	; EP for next expire group process
SNDBULL	; send out the bulletin

External References

Name	Field # of Occurrence
^DIC	SEL+13, SEL+44
FILE^DIE	NXTGRP+65, NXTGRP+148
$$GET1^DIQ	NXTGRP+14, NXTGRP+15, NXTGRP+16, NXTGRP+57, NXTGRP+58, NXTGRP+59, NXTGRP+60, NXTGRP+122
^DIR	PROC+13, PROCDP1+3, PROCDP1+8, NODEL+3, SEL+27, NXTGRP+26, NXTGRP+34, NXTGRP+46, NXTGRP+120, NXTGRP+137
$$ANYGP^IBCNSJ	SEL+21
$$SUBS^IBCNSJ	NXTGRP+12, NXTGRP+19
DEL^IBCNSJ	PROCDP1+10
IRACT^IBCNSJ	PROC+15
NEW^IBCNSJ3	SEL+20
COVERED^IBCNSM31	NXTGRP+68
LKP^IBCNSU2	SEL+35
SEL^IBCNSUR	NXTGRP+9
PROC^IBCNSUR1	EN+17
LIM^IBCNSUR2	PROC+6
PL^IBCNSUR2	PROC+2
ADD^IBCNSUR3	NXTGRP+75, NXTGRP+76, NXTGRP+77, NXTGRP+78, NXTGRP+79, NXTGRP+80, NXTGRP+81, NXTGRP+82, NXTGRP+83, NXTGRP+86 , NXTGRP+88, NXTGRP+90, NXTGRP+97, NXTGRP+98, NXTGRP+102, NXTGRP+103, NXTGRP+104, NXTGRP+109, NXTGRP+110, NXTGRP+113 , NXTGRP+114, NXTGRP+116, NXTGRP+117, NXTGRP+123, NXTGRP+139, NXTGRP+150, NXTGRP+153, SNDBULL+2, SNDBULL+3
ADS^IBCNSUR3	NXTGRP+95, NXTGRP+108
$$DAT1^IBOUTL	SNDBULL+3
$$FMTE^XLFDT	NXTGRP+38, NXTGRP+70, NXTGRP+82
$$NOW^XLFDT	NXTGRP+63, NXTGRP+146, SNDBULL+3
^XMD	SNDBULL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"The variable DUZ must be set to an active user code before continuing." Line Location: EN+1
Function Call: WRITE	Prompt: !!,?5,"MOVE SUBSCRIBERS OF ONE PLAN TO ANOTHER PLAN" Line Location: EN+2
Function Call: WRITE	Prompt: !,?5,"This option may be used to move subscribers from a selected Plan" Line Location: EN+3
Function Call: WRITE	Prompt: !,?5,"to a different Plan. The plans may be associated with the same" Line Location: EN+4
Function Call: WRITE	Prompt: !,?5,"Insurance Company or a different one. Plan and Annual Benefit" Line Location: EN+5
Function Call: WRITE	Prompt: !,?5,"information may be moved as well. Users of this option should" Line Location: EN+6
Function Call: WRITE	Prompt: !,?5,"be knowledgeable of the VistA Patient Insurance management options." Line Location: EN+7
Function Call: WRITE	Prompt: ! Line Location: EN+8
Function Call: WRITE	Prompt: !,?5,"This option also gives the user the option to expire the old plan or" Line Location: EN+9
Function Call: WRITE	Prompt: !,?5,"replace it completely in the patient insurance profile. The reason" Line Location: EN+10
Function Call: WRITE	Prompt: !,?5,"to expire the old plan is intended for use when Insurance groups change" Line Location: EN+11
Function Call: WRITE	Prompt: !,?5,"PBMs for processing electronic Pharmacy claims. By leaving the old" Line Location: EN+12
Function Call: WRITE	Prompt: !,?5,"plan information intact (i.e. do not replace), the user will be able" Line Location: EN+13
Function Call: WRITE	Prompt: !,?5,"to monitor PBM changes that affect the electronic Pharmacy claims." Line Location: EN+14
Function Call: WRITE	Prompt: !!,$TR($J("",75)," ","-") Line Location: EN+16
Function Call: WRITE	Prompt: !!,"Please note that ",IBC1N,"'s",!,"plan, subscribers were moved from, is already inactive." Line Location: PROC+8
Function Call: WRITE	Prompt: !! Line Location: PROC+11
Function Call: WRITE	Prompt: !," <The old plan is still active>" Line Location: PROC+13
Function Call: WRITE	Prompt: !!,"The plan has been inactivated." Line Location: PROC+15
Function Call: WRITE	Prompt: !! Line Location: PROCDP1+1
Function Call: WRITE	Prompt: ! Line Location: PROCDP1+6
Function Call: WRITE	Prompt: !!,"The plan has been deleted." Line Location: PROCDP1+10
Function Call: WRITE	Prompt: !,"There are still subscribers to this plan. The plan cannot be deleted.",! Line Location: NODEL+1
Function Call: WRITE	Prompt: " <No Insurance Company selected>" Line Location: SEL+14
Function Call: WRITE	Prompt: !!,*7,"Insurance Company receiving subscribers must have a Plan." Line Location: SEL+21
Function Call: WRITE	Prompt: !!,"You may select an existing Plan from a list or enter a specific Plan.",! Line Location: SEL+24
Function Call: WRITE	Prompt: " ..." Line Location: SEL+33
Function Call: WRITE	Prompt: !!,7," No plan selected!",! Line Location: SEL+36
Function Call: WRITE	Prompt: !!,7," No plan selected!",! Line Location: SEL+45
Function Call: WRITE	Prompt: !!,?5,"EXPIRE ALL SUBSCRIBERS WITHIN A GROUP PLAN" Line Location: EXPGRP+6
Function Call: WRITE	Prompt: !,?5,"You can use this option to specify an expiration date for all subscriber" Line Location: EXPGRP+7
Function Call: WRITE	Prompt: !,?5,"policies in a group plan without moving the subscribers to another group" Line Location: EXPGRP+8
Function Call: WRITE	Prompt: !,?5,"plan. If the group plan status is currently ""active"", you can also choose" Line Location: EXPGRP+9
Function Call: WRITE	Prompt: !,?5,"to ""inactivate"" the group plan." Line Location: EXPGRP+10
Function Call: WRITE	Prompt: !!,$TR($J("",75)," ","-") Line Location: EXPGRP+11
Function Call: WRITE	Prompt: !!,"==========================================" Line Location: NXTGRP+4
Function Call: WRITE	Prompt: !,"EXPIRE ALL SUBSCRIBERS WITHIN A GROUP PLAN" Line Location: NXTGRP+5
Function Call: WRITE	Prompt: !,"==========================================",! Line Location: NXTGRP+6
Function Call: WRITE	Prompt: !!,?5,7," This group plan has no subscribers!",! Line Location: NXTGRP+12
Function Call: WRITE	Prompt: !!,"Collecting Subscribers ..." Line Location: NXTGRP+18
Function Call: WRITE	Prompt: !!,"This group plan has "_+IBSUB_" subscribers. All subscribers will be expired.",! Line Location: NXTGRP+20
Function Call: WRITE	Prompt: ! Line Location: NXTGRP+29
Function Call: WRITE	Prompt: !!,"You selected to expire "_+IBSUB_" subscriber(s) with Expiration Date "_$$FMTE^XLFDT(IBEXP)_" for:" Line Location: NXTGRP+38
Function Call: WRITE	Prompt: !,?5,"Insurance Company "_IBINSNM Line Location: NXTGRP+39
Function Call: WRITE	Prompt: !,?5,"Plan Name "_IBGRPNM_" Number "_IBGRPNO Line Location: NXTGRP+40
Function Call: WRITE	Prompt: !!,"Please Note that the policy will be EXPIRED in the patient profile!!",! Line Location: NXTGRP+41
Function Call: WRITE	Prompt: !!,"Expiring Policies...",! Line Location: NXTGRP+51
Function Call: WRITE	Prompt: !,"Done. "_IBEXPOK_" Subscribers' policies were expired as of "_$$FMTE^XLFDT(IBEXP)_"." Line Location: NXTGRP+70
Function Call: WRITE	Prompt: !,"A Bulletin was sent to you and members of 'IB NEW INSURANCE' Mail Group." Line Location: NXTGRP+71
Function Call: WRITE	Prompt: !!,@REF@(IBLN) Line Location: NXTGRP+87
Function Call: WRITE	Prompt: !,@REF@(IBLN) Line Location: NXTGRP+89
Function Call: WRITE	Prompt: !,@REF@(IBLN),! Line Location: NXTGRP+91
Function Call: WRITE	Prompt: !,@REF@(IBLN) Line Location: NXTGRP+96
Function Call: WRITE	Prompt: !!,"Examine the entries that could not be processed." Line Location: NXTGRP+99
Function Call: WRITE	Prompt: !!,@REF@(IBLN) Line Location: NXTGRP+115
Function Call: WRITE	Prompt: ! Line Location: NXTGRP+119
Function Call: WRITE	Prompt: !!,@REF@(IBLN),! Line Location: NXTGRP+124
Function Call: WRITE	Prompt: ! Line Location: NXTGRP+127
Function Call: WRITE	Prompt: !!,@REF@(IBLN),! Line Location: NXTGRP+140
Function Call: WRITE	Prompt: !!,@REF@(IBLN),! Line Location: NXTGRP+151
Function Call: WRITE	Prompt: !!,@REF@(IBLN),! Line Location: NXTGRP+154
Routine Call	DIC Line Location: SEL+13 SEL+44
Routine Call	DIE Line Location: NXTGRP+65 NXTGRP+148
Routine Call	DIR Line Location: PROC+13 PROCDP1+3 PROCDP1+8 NODEL+3 SEL+27 NXTGRP+26 NXTGRP+34 NXTGRP+46 NXTGRP+120 NXTGRP+137

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBA(355.3 - [#355.3]	Classic Fileman Calls, GET1^DIQ
^DIC(36 - [#36]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(355.3 - [#355.3]	PROC+8
^TMP($J	NXTGRP+1!, NXTGRP+2!, NXTGRP+54, NXTGRP+55, NXTGRP+59, NXTGRP+66, NXTGRP+67*, NXTGRP+74, NXTGRP+92, NXTGRP+93 , NXTGRP+94, NXTGRP+105, NXTGRP+106, NXTGRP+107
^VA(200 - [#200]	EN+1

Label References

Name	Line Occurrences
ENQ	EN+1
NODEL	PROCDP+6, PROCDP+18, PROCDP+25
NXTGRP	NXTGRP+12, NXTGRP+27, NXTGRP+35, NXTGRP+47, NXTGRP+122, NXTGRP+138, NXTGRP+149, NXTGRP+156
PROCDP	PROC+8
PROCDP1	PROCDP+11
PROCQ	PROC+13, PROCDP+6, PROCDP+18, PROCDP+25, PROCDP1+3, PROCDP1+8
SELQ	SEL+14, SEL+17, SEL+27, SEL+30
SNDBULL	NXTGRP+125, NXTGRP+141, NXTGRP+152, NXTGRP+155

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EXPGRP+3~, NXTGRP+54, NXTGRP+55, NXTGRP+56, NXTGRP+59, NXTGRP+60, NXTGRP+66, NXTGRP+67, NXTGRP+68, NXTGRP+92 , NXTGRP+93, NXTGRP+94, NXTGRP+95, NXTGRP+105*, NXTGRP+106, NXTGRP+107, NXTGRP+108
DIC	SEL+8!, SEL+9, SEL+13!, SEL+41, SEL+44!, EXPGRP+2~
DIC("A"	SEL+12, SEL+40
DIC("S"	SEL+10, SEL+11, SEL+41*
DIC("W"	SEL+43*
DIC(0	SEL+9, SEL+41
DIR	PROC+13!, PROCDP1+3!, PROCDP1+8!, NODEL+3!, SEL+8!, SEL+27!, EXPGRP+2~, NXTGRP+26!, NXTGRP+34!, NXTGRP+46! , NXTGRP+120!, NXTGRP+137!
DIR("?"	PROC+12, PROCDP1+2, PROCDP1+7, SEL+26, NXTGRP+23, NXTGRP+24, NXTGRP+25, NXTGRP+33, NXTGRP+44, NXTGRP+45
DIR("A"	PROC+11, PROCDP1+1, PROCDP1+6, NODEL+2, SEL+25, NXTGRP+22, NXTGRP+32, NXTGRP+43, NXTGRP+120, NXTGRP+130 , NXTGRP+131, NXTGRP+132, NXTGRP+133, NXTGRP+134, NXTGRP+135, NXTGRP+136
DIR("B"	SEL+25, NXTGRP+128
DIR(0	PROC+11, PROCDP1+1, PROCDP1+6, NODEL+2, SEL+25, NXTGRP+21, NXTGRP+32, NXTGRP+43, NXTGRP+120, NXTGRP+128
DIROUT	SELQ!
DIRUT	SEL+27, SELQ!, NXTGRP+27, NXTGRP+35, NXTGRP+47, NXTGRP+138
DTA	EXPGRP+2~, NXTGRP+61!, NXTGRP+144!
DTA(	NXTGRP+62, NXTGRP+63, NXTGRP+64, NXTGRP+145, NXTGRP+146, NXTGRP+147
DTIME	PROC+3
DTOUT	SELQ!
DUOUT	SELQ!
DUZ	EN+1, NXTGRP+64, NXTGRP+147, SNDBULL+6
ERR	EXPGRP+2~, NXTGRP+61!, NXTGRP+66, NXTGRP+144!, NXTGRP+149
>> IBC1N	PROC+8, PROC+11
IBCBI	EXPGRP+4~, NXTGRP+60*, NXTGRP+68
IBCNS	SEL+13*, SEL+20, SEL+21, SEL+35, EXPGRP+3~, NXTGRP+12, NXTGRP+14, NXTGRP+19
>> IBEFFDT	PROCDP+6, PROCDP+18
IBEXP	EXPGRP+3~, NXTGRP+36*, NXTGRP+38, NXTGRP+59, NXTGRP+62, NXTGRP+70, NXTGRP+82
IBEXPERR	EXPGRP+4~, NXTGRP+53, NXTGRP+59, NXTGRP+66*, NXTGRP+85, NXTGRP+86, NXTGRP+112, NXTGRP+129
IBEXPOK	EXPGRP+4~, NXTGRP+53, NXTGRP+67, NXTGRP+70, NXTGRP+101, NXTGRP+102, NXTGRP+112
>> IBGRP	PROCDP+6, PROCDP+11, PROCDP+18, PROCDP+25
IBGRPNM	EXPGRP+4~, NXTGRP+15*, NXTGRP+40, NXTGRP+80, NXTGRP+123, NXTGRP+136, NXTGRP+139, NXTGRP+150, NXTGRP+153
IBGRPNO	EXPGRP+4~, NXTGRP+16*, NXTGRP+40, NXTGRP+80
IBIENWK	EXPGRP+3~, NXTGRP+56, NXTGRP+57, NXTGRP+58, NXTGRP+59, NXTGRP+62, NXTGRP+63, NXTGRP+64, NXTGRP+143, NXTGRP+145 , NXTGRP+146, NXTGRP+147
IBINSNM	EXPGRP+4~, NXTGRP+14*, NXTGRP+39, NXTGRP+79
IBIPOL	EXPGRP+3~, NXTGRP+55, NXTGRP+56, NXTGRP+59, NXTGRP+66, NXTGRP+67, NXTGRP+93, NXTGRP+94, NXTGRP+95, NXTGRP+106* , NXTGRP+107, NXTGRP+108
IBLN	EXPGRP+2~, NXTGRP+74*, NXTGRP+87, NXTGRP+89, NXTGRP+91, NXTGRP+96, NXTGRP+115, NXTGRP+124, NXTGRP+140, NXTGRP+151 , NXTGRP+154, SNDBULL+1
IBNP	SEL~, SEL+10, SEL+11, SEL+17
>> IBP1	PROC+8, PROC+15, PROCDP1+10
IBPLAN	SEL+17, SEL+20, SEL+21, SEL+34, SEL+35, SEL+36, SEL+44, EXPGRP+3~, NXTGRP+12, NXTGRP+15 , NXTGRP+16, NXTGRP+19, NXTGRP+57, NXTGRP+122, NXTGRP+143
IBQUIT	SEL+14, SEL+17, SEL+21, SEL+27, SEL+36, SEL+45, EXPGRP+3~, EXPGRP+12, NXTGRP+3, NXTGRP+8* , NXTGRP+9
>> IBSPLIT	PROCDP+6, PROCDP+25
IBSTOP	EN+17*, ENQ!
IBSUB	PROCDP+11, PROCDP+18, PROCDP+25, EXPGRP+3~, NXTGRP+19*, NXTGRP+20, NXTGRP+38, NXTGRP+77
IBSUPRES	EXPGRP+4~, NXTGRP+52*
IBTITLE	SEL+31~, SEL+32*, SEL+35
>> IBX	PROC+3*
>> NUMSEL	PROCDP+18, PROCDP+25
REF	EXPGRP+2~, NXTGRP+74*, NXTGRP+87, NXTGRP+89, NXTGRP+91, NXTGRP+96, NXTGRP+115, NXTGRP+124, NXTGRP+140, NXTGRP+151 , NXTGRP+154
X	SEL+8~, EXPGRP+2~
XMDUZ	EXPGRP+2~, SNDBULL+5*
XMSUB	EXPGRP+2~, SNDBULL+4*
XMTEXT	EXPGRP+2~, SNDBULL+5*
XMY	EXPGRP+2~
XMY(	SNDBULL+6*
XMY("G.IB NEW	INSURANCE" , SNDBULL+7*
Y	PROC+13, PROCDP1+3, PROCDP1+8, SEL+8~, SEL+13, SEL+14, SEL+30, SEL+44, SEL+45, EXPGRP+2~ , NXTGRP+27, NXTGRP+35, NXTGRP+36, NXTGRP+47, NXTGRP+138

Customize PDF page

Package: Integrated Billing