Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCNSUR

Package: Integrated Billing

Routine: IBCNSUR


Information

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

Source Information

Source file <IBCNSUR.m>

Call Graph

Call Graph

Call Graph Total: 15

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:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

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
SNDBULL ; send out the bulletin
EN ; Entry point from option. Main processing loop.
NXTGRP ; EP for next expire group process
PROCQ
SELQ
ENQ
PROCDP ; - does the user wish to delete the old plan?
EXPGRP ; EP for [IBCN EXPIRE GROUP SUBSCRIBERS]
; IB*2.0*602/DM implement expire group plan
PROC ; - Process continuation from IBCNSUR1.
; - display old plan attributes; allow new plan to be edited
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.

External References

Name Field # of Occurrence
^DIC SEL+13, SEL+44
FILE^DIE NXTGRP+64, NXTGRP+147
$$GET1^DIQ NXTGRP+14, NXTGRP+15, NXTGRP+16, NXTGRP+56, NXTGRP+57, NXTGRP+58, NXTGRP+59, NXTGRP+121
^DIR PROC+13, PROCDP+3, SEL+27, NXTGRP+26, NXTGRP+33, NXTGRP+45, NXTGRP+119, NXTGRP+136
$$ANYGP^IBCNSJ SEL+21
$$SUBS^IBCNSJ NXTGRP+12, NXTGRP+19
DEL^IBCNSJ PROCDP+5
IRACT^IBCNSJ PROC+15
NEW^IBCNSJ3 SEL+20
COVERED^IBCNSM31 NXTGRP+67
LKP^IBCNSU2 SEL+35
SEL^IBCNSUR NXTGRP+9
PROC^IBCNSUR1 EN+17
LIM^IBCNSUR2 PROC+6
PL^IBCNSUR2 PROC+2
ADD^IBCNSUR3 NXTGRP+74, NXTGRP+75, NXTGRP+76, NXTGRP+77, NXTGRP+78, NXTGRP+79, NXTGRP+80, NXTGRP+81, NXTGRP+82, NXTGRP+85
, NXTGRP+87, NXTGRP+89, NXTGRP+96, NXTGRP+97, NXTGRP+101, NXTGRP+102, NXTGRP+103, NXTGRP+108, NXTGRP+109, NXTGRP+112
, NXTGRP+113, NXTGRP+115, NXTGRP+116, NXTGRP+122, NXTGRP+138, NXTGRP+149, NXTGRP+152, SNDBULL+2, SNDBULL+3
ADS^IBCNSUR3 NXTGRP+94, NXTGRP+107
$$DAT1^IBOUTL SNDBULL+3
$$FMTE^XLFDT NXTGRP+37, NXTGRP+69, NXTGRP+81
$$NOW^XLFDT NXTGRP+62, NXTGRP+145, 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: PROCDP+1
Function Call: WRITE
  • Prompt: !!,"The plan has been deleted."
  • Line Location: PROCDP+5
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+37
Function Call: WRITE
  • Prompt: !,?5,"Insurance Company "_IBINSNM
  • Line Location: NXTGRP+38
Function Call: WRITE
  • Prompt: !,?5,"Plan Name "_IBGRPNM_" Number "_IBGRPNO
  • Line Location: NXTGRP+39
Function Call: WRITE
  • Prompt: !!,"Please Note that the policy will be EXPIRED in the patient profile!!",!
  • Line Location: NXTGRP+40
Function Call: WRITE
  • Prompt: !!,"Expiring Policies...",!
  • Line Location: NXTGRP+50
Function Call: WRITE
  • Prompt: !,"Done. "_IBEXPOK_" Subscribers' policies were expired as of "_$$FMTE^XLFDT(IBEXP)_"."
  • Line Location: NXTGRP+69
Function Call: WRITE
  • Prompt: !,"A Bulletin was sent to you and members of 'IB NEW INSURANCE' Mail Group."
  • Line Location: NXTGRP+70
Function Call: WRITE
  • Prompt: !!,@REF@(IBLN)
  • Line Location: NXTGRP+86
Function Call: WRITE
  • Prompt: !,@REF@(IBLN)
  • Line Location: NXTGRP+88
Function Call: WRITE
  • Prompt: !,@REF@(IBLN),!
  • Line Location: NXTGRP+90
Function Call: WRITE
  • Prompt: !,@REF@(IBLN)
  • Line Location: NXTGRP+95
Function Call: WRITE
  • Prompt: !!,"Examine the entries that could not be processed."
  • Line Location: NXTGRP+98
Function Call: WRITE
  • Prompt: !!,@REF@(IBLN)
  • Line Location: NXTGRP+114
Function Call: WRITE
  • Prompt: !
  • Line Location: NXTGRP+118
Function Call: WRITE
  • Prompt: !!,@REF@(IBLN),!
  • Line Location: NXTGRP+123
Function Call: WRITE
  • Prompt: !
  • Line Location: NXTGRP+126
Function Call: WRITE
  • Prompt: !!,@REF@(IBLN),!
  • Line Location: NXTGRP+139
Function Call: WRITE
  • Prompt: !!,@REF@(IBLN),!
  • Line Location: NXTGRP+150
Function Call: WRITE
  • Prompt: !!,@REF@(IBLN),!
  • Line Location: NXTGRP+153
Routine Call
  • DIC
  • Line Location:
    • SEL+13
    • SEL+44
Routine Call
  • DIE
  • Line Location:
    • NXTGRP+64
    • NXTGRP+147
Routine Call
  • DIR
  • Line Location:
    • PROC+13
    • PROCDP+3
    • SEL+27
    • NXTGRP+26
    • NXTGRP+33
    • NXTGRP+45
    • NXTGRP+119
    • NXTGRP+136

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+53, NXTGRP+54, NXTGRP+58*, NXTGRP+65*, NXTGRP+66*, NXTGRP+73, NXTGRP+91, NXTGRP+92
, NXTGRP+93, NXTGRP+104, NXTGRP+105, NXTGRP+106
^VA(200 - [#200] EN+1

Label References

Name Line Occurrences
ENQ EN+1
NXTGRP NXTGRP+12, NXTGRP+27, NXTGRP+34, NXTGRP+46, NXTGRP+121, NXTGRP+137, NXTGRP+148, NXTGRP+155
PROCDP PROC+8
PROCQ PROC+13, PROCDP+3
SELQ SEL+14, SEL+17, SEL+27, SEL+30
SNDBULL NXTGRP+124, NXTGRP+140, NXTGRP+151, NXTGRP+154

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EXPGRP+3~, NXTGRP+53*, NXTGRP+54, NXTGRP+55, NXTGRP+58, NXTGRP+59, NXTGRP+65, NXTGRP+66, NXTGRP+67, NXTGRP+91*
, NXTGRP+92, NXTGRP+93, NXTGRP+94, NXTGRP+104*, NXTGRP+105, NXTGRP+106, NXTGRP+107
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!, PROCDP+3!, SEL+8!, SEL+27!, EXPGRP+2~, NXTGRP+26!, NXTGRP+33!, NXTGRP+45!, NXTGRP+119!, NXTGRP+136!
DIR("?" PROC+12*, PROCDP+2*, SEL+26*, NXTGRP+23*, NXTGRP+24*, NXTGRP+25*, NXTGRP+32*, NXTGRP+43*, NXTGRP+44*
DIR("A" PROC+11*, PROCDP+1*, SEL+25*, NXTGRP+22*, NXTGRP+31*, NXTGRP+42*, NXTGRP+119*, NXTGRP+129*, NXTGRP+130*, NXTGRP+131*
, NXTGRP+132*, NXTGRP+133*, NXTGRP+134*, NXTGRP+135*
DIR("B" SEL+25*, NXTGRP+127*
DIR(0 PROC+11*, PROCDP+1*, SEL+25*, NXTGRP+21*, NXTGRP+31*, NXTGRP+42*, NXTGRP+119*, NXTGRP+127*
DIROUT SELQ!
DIRUT SEL+27, SELQ!, NXTGRP+27, NXTGRP+34, NXTGRP+46, NXTGRP+137
DTA EXPGRP+2~, NXTGRP+60!, NXTGRP+143!
DTA( NXTGRP+61*, NXTGRP+62*, NXTGRP+63*, NXTGRP+144*, NXTGRP+145*, NXTGRP+146*
DTIME PROC+3
DTOUT SELQ!
DUOUT SELQ!
DUZ EN+1, NXTGRP+63, NXTGRP+146, SNDBULL+6
ERR EXPGRP+2~, NXTGRP+60!, NXTGRP+65, NXTGRP+143!, NXTGRP+148
>> IBC1N PROC+8, PROC+11
IBCBI EXPGRP+4~, NXTGRP+59*, NXTGRP+67
IBCNS SEL+13*, SEL+20, SEL+21, SEL+35, EXPGRP+3~, NXTGRP+12, NXTGRP+14, NXTGRP+19
IBEXP EXPGRP+3~, NXTGRP+35*, NXTGRP+37, NXTGRP+58, NXTGRP+61, NXTGRP+69, NXTGRP+81
IBEXPERR EXPGRP+4~, NXTGRP+52*, NXTGRP+58*, NXTGRP+65*, NXTGRP+84, NXTGRP+85, NXTGRP+111, NXTGRP+128
IBEXPOK EXPGRP+4~, NXTGRP+52*, NXTGRP+66*, NXTGRP+69, NXTGRP+100, NXTGRP+101, NXTGRP+111
IBGRPNM EXPGRP+4~, NXTGRP+15*, NXTGRP+39, NXTGRP+79, NXTGRP+122, NXTGRP+135, NXTGRP+138, NXTGRP+149, NXTGRP+152
IBGRPNO EXPGRP+4~, NXTGRP+16*, NXTGRP+39, NXTGRP+79
IBIENWK EXPGRP+3~, NXTGRP+55*, NXTGRP+56, NXTGRP+57, NXTGRP+58, NXTGRP+61, NXTGRP+62, NXTGRP+63, NXTGRP+142*, NXTGRP+144
, NXTGRP+145, NXTGRP+146
IBINSNM EXPGRP+4~, NXTGRP+14*, NXTGRP+38, NXTGRP+78
IBIPOL EXPGRP+3~, NXTGRP+54*, NXTGRP+55, NXTGRP+58, NXTGRP+65, NXTGRP+66, NXTGRP+92*, NXTGRP+93, NXTGRP+94, NXTGRP+105*
, NXTGRP+106, NXTGRP+107
IBLN EXPGRP+2~, NXTGRP+73*, NXTGRP+86, NXTGRP+88, NXTGRP+90, NXTGRP+95, NXTGRP+114, NXTGRP+123, NXTGRP+139, NXTGRP+150
, NXTGRP+153, SNDBULL+1
IBNP SEL~, SEL+10, SEL+11, SEL+17
>> IBP1 PROC+8, PROC+15, PROCDP+5
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+56, NXTGRP+121, NXTGRP+142
IBQUIT SEL+14*, SEL+17, SEL+21*, SEL+27*, SEL+36*, SEL+45*, EXPGRP+3~, EXPGRP+12*, NXTGRP+3, NXTGRP+8*
, NXTGRP+9
IBSTOP EN+17*, ENQ!
IBSUB EXPGRP+3~, NXTGRP+19*, NXTGRP+20, NXTGRP+37, NXTGRP+76
IBSUPRES EXPGRP+4~, NXTGRP+51*
IBTITLE SEL+31~, SEL+32*, SEL+35
>> IBX PROC+3*
REF EXPGRP+2~, NXTGRP+73*, NXTGRP+86, NXTGRP+88, NXTGRP+90, NXTGRP+95, NXTGRP+114, NXTGRP+123, NXTGRP+139, NXTGRP+150
, NXTGRP+153
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, PROCDP+3, SEL+8~, SEL+13, SEL+14, SEL+30, SEL+44, SEL+45, EXPGRP+2~, NXTGRP+27
, NXTGRP+34, NXTGRP+35, NXTGRP+46, NXTGRP+137
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All