Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;IB*2*702/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]
; IB*2.0*602/DM implement expire group plan
NXTGRP ; EP for next expire group process
SNDBULL ; send out the bulletin

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call