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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 7 ($$SUBS,DEL)^IBCNSJ  DELP^IBCNSJ11  GETPL^IBCNSJ12  SWPL^IBCNSJ13  (AB,DMBU,MD,NOTES)^IBCNSJ21  PLAN^IBCNSM32  (BLD,HDR)^IBCNSP  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  

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

Package Total Caller Graph
Integrated Billing 2 IBCNSJ CHANGE PLAN  IBCNSJ1  

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.

External References

Name Field # of Occurrence
$$GET1^DIQ CSTP+18
^DIR CSTP+46, OK+2
$$SUBS^IBCNSJ OK+15
DEL^IBCNSJ OK+12
DELP^IBCNSJ11 CSTP+46, OK+3
GETPL^IBCNSJ12 CSTP+29
SWPL^IBCNSJ13 OK+6
AB^IBCNSJ21 CSTP+36
DMBU^IBCNSJ21 CSTP+39
MD^IBCNSJ21 OK+9
NOTES^IBCNSJ21 CSTP+26
PLAN^IBCNSM32 CSTP+20
BLD^IBCNSP CSTPQ+1
HDR^IBCNSP CSTPQ+1
FULL^VALM1 CSTP+9
PAUSE^VALM1 CSTPQ

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
Routine Call
  • DIR
  • Line Location:
    • CSTP+46
    • OK+2

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)
^DPT - [#2] CSTP+13
^IBA(355.3 - [#355.3] CSTP+18
^XUSEC("IB INSURANCE SUPERVISOR" CSTP+10

Label References

Name Line Occurrences
CSTPQ CSTP+8, CSTP+10, CSTP+13, CSTP+16, CSTP+19, CSTP+20, CSTP+30, CSTP+46, OK+3, OK+12
NOPL CSTP+16
OK CSTP+34, CSTP+36, CSTP+42

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA CSTP+5~
>> DFN CSTP+8, CSTP+13, CSTP+20, OK+6
DIK CSTP+5~
DIR CSTP+46!, OK+2!
DIR("?" CSTP+45*, OK+1*
DIR("A" CSTP+45*, OK+1*
DIR(0 CSTP+45*, OK+1*
DIROUT OK+2!
DIRUT CSTP+46, OK+2!
DTOUT OK+2!
DUOUT OK+2!
DUZ CSTP+10
IBAB CSTP+6~
IBAB(0 CSTP+36
IBALR CSTP+6~
IBBU CSTP+6~
IBBU(0 CSTP+34
IBCDFN CSTP+5~, CSTP+7*, CSTP+8, CSTP+13, CSTP+20, OK+6
IBCNS CSTP+6~, CSTP+16*, CSTP+20, OK+15
IBCPOL CSTP+5~, CSTP+30, OK+6
IBIP CSTP+6~, CSTP+33, OK+12
IBMERGE CSTP+6~, CSTP+47*, CSTP+48
IBMRGF CSTP+6~
IBMRGF(0 CSTP+40, CSTP+41, CSTP+42
IBMRGN CSTP+6~, CSTP+40, CSTP+41
IBNEWP CSTP+5~
IBPLAN CSTP+5~, CSTP+16*, CSTP+18, OK+12, OK+15
IBPLAND CSTP+5~, CSTP+18*, CSTP+19, CSTP+20, CSTP+25
>> IBPPOL CSTP+7
IBX CSTP+5~, CSTP+6~
U CSTP+18
>> VALMBCK CSTPQ+1*
X CSTP+5~, CSTP+13*, CSTP+16
>> Y CSTP+47, OK+3
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 |  Local Variables  | All