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
Print Page as PDF
Routine: IBCNSJ1

Package: Integrated Billing

Routine: IBCNSJ1


Information

IBCNSJ1 ;ALB/CPM - INACTIVATE AN INSURANCE PLAN ;05-MAY-2015

Source Information

Source file <IBCNSJ1.m>

Entry Points

Name Comments DBIA/ICR reference
IA ; 'Inactivate Plan' Action
; Required variable input:
; DFN -- Pointer to the patient in file #2
; IBPPOL -- Patient insurance policy definition
IAQ ;
INACT(IBCNS,IBPLAN) ; Inactivate an Insurance Plan
; Input: IBCNS -- Pointer to the company in file #36 which
; IBPLAN -- Pointer to the plan in file #355.3
OKAY ; - okay to inactivate the plan?
INACTQ
DISP ; Display plan name/number.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, but you do not have the required privileges to inactivate plans."
  • Line Location: IA+7
Function Call: WRITE
  • Prompt: !!,"Sorry, but you do not have the required privileges to inactivate plans."
  • Line Location: IA+11
Function Call: WRITE
  • Prompt: !!,"This plan has no company! Please contact your IRM for assistance."
  • Line Location: IA+19
Function Call: WRITE
  • Prompt: !!,"This action will allow you to inactivate an insurance plan."
  • Line Location: IA+25
Function Call: WRITE
  • Prompt: !,"Inactivating a plan will inactivate all current subscribers to the plan."
  • Line Location: IA+26
Function Call: WRITE
  • Prompt: !!,"This is not a valid insurance plan!"
  • Line Location: INACT+8
Function Call: WRITE
  • Prompt: !,"There are currently subscribers to this plan."
  • Line Location: INACT+25
Function Call: WRITE
  • Prompt: !,*7," ** There are Annual Benefits associated with this plan!"
  • Line Location: INACT+26
Function Call: WRITE
  • Prompt: !,*7," ** There are Benefits Used associated with this plan!"
  • Line Location: INACT+27
Function Call: WRITE
  • Prompt: !
  • Line Location: INACT+31
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: DISP+1
Info |  Source |  Entry Points |  Interaction Calls