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: IBCNSJ2

Package: Integrated Billing

Routine: IBCNSJ2


Information

IBCNSJ2 ;ALB/CPM - CHANGE POLICY PLAN ; 03-JAN-95

Source Information

Source file <IBCNSJ2.m>

Entry Points

Name Comments DBIA/ICR reference
CSTP ; 'Change Policy Plan' Action
; Required variable input:
; DFN -- Pointer to the patient in file #2
; IBPPOL -- Patient insurance policy definition
OK ; - okay to switch subscribed-to plan?
CSTPQ
NOPL ; Display message if there is no insurance plan.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, but you do not have the required privileges to change the policy plan."
  • Line Location: CSTP+10
Function Call: WRITE
  • Prompt: !!,"This policy is not valid!"
  • Line Location: CSTP+13
Function Call: WRITE
  • Prompt: !!,"This plan has no company! Please contact your IRM for assistance."
  • Line Location: CSTP+19
Function Call: WRITE
  • Prompt: !!,"This action will allow you to change the insurance plan to which the"
  • Line Location: CSTP+23
Function Call: WRITE
  • Prompt: !,"veteran is subscribing through this policy."
  • Line Location: CSTP+24
Function Call: WRITE
  • Prompt: !!,$S($P(IBPLAND,"^",2):"Group",1:"Individual")," Plan Number: ",$S($P(IBPLAND,"^",4)]"":$P(IBPLAND,"^",4),1:"<not specified>"),?50,"Plan Name: ",$S($P(IBPLAND,"^",3)]"":$P(IBPLAND,"^",3),1:"<not specified>"),!
  • Line Location: CSTP+25
Function Call: WRITE
  • Prompt: !,"Can't change subscribed-to plan..."
  • Line Location: CSTP+30
Function Call: WRITE
  • Prompt: !,*7," *** Please note that this Individual Plan will be deleted if you select",!," to switch plans associated with this policy."
  • Line Location: CSTP+33
Function Call: WRITE
  • Prompt: !,*7,"This patient has Benefits Used associated with his current plan and policy!"
  • Line Location: CSTP+35
Function Call: WRITE
  • Prompt: !,"The newly proposed subscribed-to plan has no associated Annual Benefits,",!,"so the Benefits Used associated with the current plan will be deleted!"
  • Line Location: CSTP+36
Function Call: WRITE
  • Prompt: !
  • Line Location: CSTP+46
Function Call: WRITE
  • Prompt: !,$S(IBMERGE:"The transferable",1:"All")," Benefits Used will be ",$S(IBMERGE:"merged.",1:"deleted.")
  • Line Location: CSTP+48
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!,"The subscribed-to plan for this policy was not changed.",!
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !!,"Changing the subscribed-to plan... "
  • Line Location: OK+6
Function Call: WRITE
  • Prompt: "done."
  • Line Location: OK+6
Function Call: WRITE
  • Prompt: !,"Deleting the formerly subscribed-to Individual Plan... "
  • Line Location: OK+12
Function Call: WRITE
  • Prompt: "done."
  • Line Location: OK+12
Function Call: WRITE
  • Prompt: !!,"There are no longer any subscribers to the previous plan. You may wish",!,"to inactivate or delete this plan using the 'Inactivate Plan' action."
  • Line Location: OK+15
Function Call: WRITE
  • Prompt: !!,"There is no plan associated with this policy!"
  • Line Location: NOPL+1
Function Call: WRITE
  • Prompt: !!,"Please use the action 'Change Plan Info', which will create a plan"
  • Line Location: NOPL+2
Function Call: WRITE
  • Prompt: !,"for the policy."
  • Line Location: NOPL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call