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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 9 $$SUBS^IBCNSJ  (DEL,MAIL,NOTACT)^IBCNSJ11  (GETPL,MSG,NAC)^IBCNSJ12  (BU,REP)^IBCNSJ13  SEL^IBCNSJ14  NOPL^IBCNSJ2  ($$ASK,EN)^IBCNSJ4  PLAN^IBCNSM32  
(BLD,HDR)^IBCNSP  
List Manager 1 (FULL,PAUSE)^VALM1  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 2 IBCNSJ INACTIVATE PLAN  IBCNSJ5  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
DISP ; Display plan name/number.
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
INACTQ
IA ; 'Inactivate Plan' Action
; Required variable input:
; DFN -- Pointer to the patient in file #2
; IBPPOL -- Patient insurance policy definition
OKAY ; - okay to inactivate the plan?
IAQ ;

External References

Name Field # of Occurrence
^DIR IA+38, INACT+31
$$SUBS^IBCNSJ INACT+18, INACT+35
DEL^IBCNSJ11 OKAY+7
MAIL^IBCNSJ11 INACT+32, INACT+37
NOTACT^IBCNSJ11 INACT+19
GETPL^IBCNSJ12 INACT+36
MSG^IBCNSJ12 OKAY+4
NAC^IBCNSJ12 INACT+22, OKAY+1
BU^IBCNSJ13 INACT+40
REP^IBCNSJ13 OKAY+7
SEL^IBCNSJ14 IA+30
NOPL^IBCNSJ2 IA+17
$$ASK^IBCNSJ4 IA+23
EN^IBCNSJ4 IA+23
PLAN^IBCNSM32 IA+20
BLD^IBCNSP IAQ+2
HDR^IBCNSP IAQ+2
FULL^VALM1 IA+5
PAUSE^VALM1 IAQ+1

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
Routine Call
  • DIR
  • Line Location:
    • IA+38
    • INACT+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] IA+15
^IBA(355.3 - [#355.3] IA+18, INACT+6
^IBA(355.4 - [#355.4] INACT+26
^IBA(355.5 - [#355.5] INACT+27
^XUSEC("IB GROUP PLAN EDIT" IA+10
^XUSEC("IB INSURANCE SUPERVISOR" IA+6

Label References

Name Line Occurrences
DISP INACT+7, OKAY+1
IAQ IA+6, IA+12, IA+17, IA+19, IA+20, IA+23
INACT IA+34
INACTQ INACT+8, INACT+11, INACT+19, INACT+22, INACT+40, OKAY+1
OKAY INACT+32, INACT+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA INACT+4~
DFN IA+15, IA+20, INACT+5~
DIK INACT+4~
DIR IA+38!, INACT+31!
DIR("?" IA+37*, INACT+30*
DIR("A" IA+37*, INACT+30*
DIR(0 IA+37*, INACT+30*
DIROUT IA+38!, INACT+31!
DIRUT IA+38!, INACT+31!
DTOUT IA+38!, INACT+31!
DUOUT IA+38!, INACT+31!
DUZ IA+6, IA+10
IBACT INACT+5~, INACT+18*, INACT+19
IBALR INACT+5~
IBARR INACT+5~
IBBU INACT+5~, INACT+27*, INACT+40
IBCDFN INACT+5~
IBCNS IA+14~, IA+16*, IA+20, IA+34, INACT~, INACT+8, INACT+18, INACT+35, OKAY+4, OKAY+7
IBCPOL INACT+5~, INACT+37, OKAY+7
IBFG INACT+4~, INACT+35*
IBMAIL INACT+5~, OKAY+4
>> IBMERGE OKAY+7
IBNEWP INACT+4~
IBPICK IA+14~, IA+16*, IA+30, IA+33*
IBPLAN IA+14~, IA+16*, IA+17, IA+18, IA+34, INACT~, INACT+6, INACT+18, INACT+22, INACT+26
, INACT+27, INACT+35, OKAY+1, OKAY+4, OKAY+7
IBPLAND IA+14~, IA+18*, IA+19, IA+20, INACT+4~, INACT+6*, INACT+8, INACT+11, INACT+18, DISP+1
>> IBPPOL IA+15, IA+20
IBQUIT IA+14~, IA+16*, IA+29, IA+30, IA+38*, INACT+5~, INACT+40, OKAY+1
IBREP INACT+5~, INACT+35*, INACT+37*, OKAY+7
IBSUB INACT+5~, INACT+18*, INACT+22
IBX INACT+4~
>> VALMBCK IAQ+3*
X IA+14~, IA+15*, IA+16, IA+23*
>> Y IA+38, INACT+32
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All