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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCNSJ4

Package: Integrated Billing

Routine: IBCNSJ4


Information

IBCNSJ4 ;ALB/CPM - INACTIVATE MULTIPLE INSURANCE PLANS ; 20-MAR-95

Source Information

Source file <IBCNSJ4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 4 ($$SUBS,DBU,DEL)^IBCNSJ  (MERG,SWPL)^IBCNSJ13  SEL4^IBCNSJ14  LKP^IBCNSU2  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCNSJ1  

Entry Points

Name Comments DBIA/ICR reference
EN ; Inactivate/Delete Multiple Plans
CONT ; - explain next step
ENQ
MSTR ; Display Master Plan Information
ASK() ; Does the user wish to inactivate multiple plans?

External References

Name Field # of Occurrence
$$GET1^DIQ EN+16
^DIR EN+24, CONT+20, ASK+4
$$SUBS^IBCNSJ CONT+26
DBU^IBCNSJ CONT+38
DEL^IBCNSJ CONT+43
MERG^IBCNSJ13 CONT+40
SWPL^IBCNSJ13 CONT+32
SEL4^IBCNSJ14 EN+12
LKP^IBCNSU2 CONT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This process will allow you to transfer subscribers from many insurance"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"plans into one 'master' plan. After the subscribers from each selected"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"plan are transferred to the master plan, the selected plan will be deleted"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"from your system."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"You should be very careful when you use this tool."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"You must first select the master plan into which you will transfer all"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"selected plan subscribers. This plan must be an active group plan.",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"Annual Benefits have been established for this plan."
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!,*7,"Please note that any Benefits Used on file for subscribers who",!,"will be merged into the master plan will be deleted!"
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !!,"You may now select the plans to be merged into the master plan... (type <CR>)"
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: !!,"No plans were selected!"
  • Line Location: CONT+12
Function Call: WRITE
  • Prompt: !!,"Merging each selected plan into the master plan...",!
  • Line Location: CONT+22
Function Call: WRITE
  • Prompt: !!,"All selected plans have been deleted."
  • Line Location: CONT+45
Function Call: WRITE
  • Prompt: !,$S(IBSUB:IBSUB,1:"No")," subscriber",$S(IBSUB=1:" was",1:"s were")," transferred to the master plan."
  • Line Location: CONT+46
Function Call: WRITE
  • Prompt: !,$S(IBBUD:IBBUD,1:"No")," Benefits Used record",$S(IBBUD=1:" was",1:"s were")," deleted."
  • Line Location: CONT+47
Function Call: WRITE
  • Prompt: !,$S(IBBUM:IBBUM,1:"No")," Benefits Used record",$S(IBBUM=1:" was",1:"s were")," merged."
  • Line Location: CONT+48
Function Call: WRITE
  • Prompt: " (",IBBUMC," had the date changed)"
  • Line Location: CONT+49
Function Call: WRITE
  • Prompt: !!?24,"*** M A S T E R P L A N ***"
  • Line Location: MSTR+1
Function Call: WRITE
  • Prompt: !,"Plan Company: ",$P($G(^DIC(36,IBCNS,0)),"^")
  • Line Location: MSTR+2
Function Call: WRITE
  • Prompt: !?3,"Plan Name: ",$S($P(IBPLAND,"^",3)]"":$P(IBPLAND,"^",3),1:"<unspecified>")
  • Line Location: MSTR+3
Function Call: WRITE
  • Prompt: !," Plan Number: ",$S($P(IBPLAND,"^",4)]"":$P(IBPLAND,"^",4),1:"<unspecified>")
  • Line Location: MSTR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Routine Call
  • DIR
  • Line Location:
    • EN+24
    • CONT+20
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] MSTR+2
^DPT - [#2] CONT+31
^IBA(355.3 - [#355.3] EN+15
^IBA(355.4 - [#355.4] EN+20
^IBA(355.5 - [#355.5] CONT+35, CONT+36
^TMP($J CONT+12!, CONT+13, CONT+24, CONT+25!, CONT+29, CONT+30, ENQ!

Label References

Name Line Occurrences
CONT EN+21
ENQ EN+12, EN+24, CONT+12, CONT+15, CONT+20
MSTR EN+17, CONT+13

Naked Globals

Name Field # of Occurrence
^( CONT+36
^("IBSEL" ENQ!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+1~, CONT+29*, CONT+30, CONT+31, CONT+32, CONT+35, CONT+36
DIR EN+24!, CONT+20!, ASK+1~
DIR("?" EN+23*, CONT+19*, ASK+3*
DIR("A" EN+22*, CONT+18*, ASK+2*
DIR(0 EN+22*, CONT+18*, ASK+2*
DIROUT EN+24!, CONT+20!, ASK+1~
DIRUT EN+24!, CONT+20!, ASK+1~, ASK+5
DTIME CONT+9
DTOUT EN+24!, CONT+20!, ASK+1~
DUOUT EN+24!, CONT+20!, ASK+1~, ASK+5
IBAB EN+1~, EN+21, CONT+1, CONT+2
IBAB( EN+20*, CONT+37
IBABDAT EN+2~, CONT+37*, CONT+38, CONT+39, CONT+40
IBBU EN+2~, CONT+36*, CONT+38, CONT+40
IBBUD EN+1~, CONT+23*, CONT+38*, CONT+47
IBBUM EN+1~, CONT+23*, CONT+39*, CONT+48, CONT+49
IBBUMC EN+1~, CONT+23*, CONT+39*, CONT+49
IBCDFN EN+1~, CONT+30*, CONT+31, CONT+32, CONT+36
IBCDFN1 EN+2~, CONT+36*
>> IBCNS CONT+12, CONT+26, MSTR+2
IBCPOL EN+2~, CONT+24*, CONT+26, CONT+35, CONT+36, CONT+43
IBDAT EN+2~, CONT+35*, CONT+36, CONT+37
IBDATP EN+2~, CONT+37*, CONT+38, CONT+39, CONT+40
IBINACTM EN+2~, EN+12*
>> IBPLAN EN+15, EN+16, EN+20, CONT+13, CONT+24, CONT+31, CONT+32, CONT+40
>> IBPLAND EN+15*, EN+16*, MSTR+3, MSTR+4
>> IBQUIT EN+12
IBSEL EN+1~, CONT+12
IBSUB EN+1~, CONT+23*, CONT+26*, CONT+46
U EN+16
X EN+20*, CONT+9*, CONT+13*, ASK+1~
Y EN+2~, EN+12*, EN+24, CONT+13*, CONT+14, CONT+15, CONT+18, CONT+20, ASK+1~, ASK+5
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 |  Naked Globals |  Local Variables  | All