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

Package: Integrated Billing

Routine: IBCNSJ11


Information

IBCNSJ11 ;ALB/CPM - INACTIVATE AN INSURANCE PLAN (CON'T) ; 18-JAN-95

Source Information

Source file <IBCNSJ11.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIE  ^DIR  
Integrated Billing 1 ($$SUBS,COV,DEL,IRACT)^IBCNSJ  

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

Package Total Caller Graph
Integrated Billing 4 IBCNSJ1  IBCNSJ12  IBCNSJ13  IBCNSJ2  

Entry Points

Name Comments DBIA/ICR reference
NOTACT ; Handle plans which have already been inactivated.
; Required variable input:
; IBCNS -- Pointer to company in file #36 offering the plan
; IBPLAN -- Pointer to the plan in file #355.3
; IBSUB -- Flagged high if there are any plan subscriptions
NOTACTQ
DEL(IBPLAN) ; Want to delete an Insurance Plan?
; Input: IBPLAN -- Pointer to the plan in file #355.3
HLRP ; Reader help for repointing policies to a new plan.
MAIL ; Note that the subscription list will be mailed to the user.
REP(IBCNS,IBNEWP,IBOLDP) ; Repoint patient policies from old to new plan
; Input: IBCNS -- Pointer to the company in file #36 which
; offers the plans
; IBNEWP -- Pointer to the new plan in file #355.3
; IBOLDP -- Pointer to the old plan in file #355.3
REPQ
DELP ; Delete the newly-added plan.
HLMT ; Reader help for merging transferrable benefits used.

External References

Name Field # of Occurrence
^DIE REP+12
^DIR NOTACT+9, NOTACT+18, DEL+4
$$SUBS^IBCNSJ NOTACT+25
COV^IBCNSJ NOTACT+26
DEL^IBCNSJ DEL+5, DELP+1
IRACT^IBCNSJ NOTACT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This plan has already been inactivated!"
  • Line Location: NOTACT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTACT+9
Function Call: WRITE
  • Prompt: !,"There are still subscribers to this plan. The plan cannot be deleted."
  • Line Location: NOTACT+10
Function Call: WRITE
  • Prompt: !,"The plan was not reactivated."
  • Line Location: NOTACT+18
Function Call: WRITE
  • Prompt: !,"Reactivating the plan... "
  • Line Location: NOTACT+21
Function Call: WRITE
  • Prompt: "done."
  • Line Location: NOTACT+21
Function Call: WRITE
  • Prompt: !,"Please note there are no subscribers to this plan."
  • Line Location: NOTACT+22
Function Call: WRITE
  • Prompt: !,"Updating the 'Covered by Insurance?' field for all plan subscribers... "
  • Line Location: NOTACT+23
Function Call: WRITE
  • Prompt: "done."
  • Line Location: NOTACT+27
Function Call: WRITE
  • Prompt: !,"The plan was not deleted."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !,"Deleting the plan... "
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: "done."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !!,"If you wish to change the subscribed-to plan of ALL policies which are"
  • Line Location: HLRP+1
Function Call: WRITE
  • Prompt: !,"currently associated with this plan, enter 'YES.' Otherwise, enter 'NO.'"
  • Line Location: HLRP+2
Function Call: WRITE
  • Prompt: !!,"You may only repoint all policies to a single plan. If you enter 'NO,'"
  • Line Location: HLRP+3
Function Call: WRITE
  • Prompt: !,"you will receive a mailman message of all the inactivated policies which"
  • Line Location: HLRP+4
Function Call: WRITE
  • Prompt: !,"will result from inactivating the plan, and then you may use the 'Change"
  • Line Location: HLRP+5
Function Call: WRITE
  • Prompt: !,"Policy Plan' action to change the subscribed-to plan on an individual basis."
  • Line Location: HLRP+6
Function Call: WRITE
  • Prompt: !,"The policies will not be re-pointed. You will receive a mail message of"
  • Line Location: MAIL+2
Function Call: WRITE
  • Prompt: !,"all the subscribers to this plan if you choose to inactivate it."
  • Line Location: MAIL+3
Function Call: WRITE
  • Prompt: !,"Deleting the newly-added plan... "
  • Line Location: DELP+1
Function Call: WRITE
  • Prompt: "done."
  • Line Location: DELP+1
Function Call: WRITE
  • Prompt: !!,"If you want to merge the patient's current benefits used into the"
  • Line Location: HLMT+1
Function Call: WRITE
  • Prompt: !,"newly-proposed plan, enter 'YES'. Otherwise, enter 'NO' and these"
  • Line Location: HLMT+2
Function Call: WRITE
  • Prompt: !,"benefits used will be deleted."
  • Line Location: HLMT+3
Routine Call
  • DIE
  • Line Location:
    • REP+12
Routine Call
  • DIR
  • Line Location:
    • NOTACT+9
    • NOTACT+18
    • DEL+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] REP+10
^DPT("AB" REP+8, REP+9
^TMP($J NOTACT+24!, NOTACT+26, NOTACT+27!

Label References

Name Line Occurrences
DEL NOTACT+11
NOTACTQ NOTACT+10, NOTACT+11, NOTACT+14, NOTACT+22
REPQ REP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REP+7~, REP+11*
DA(1 REP+11*
DFN NOTACT+6~, NOTACT+26*, REP+7~, REP+8*, REP+9, REP+10, REP+11
DIE REP+7~, REP+11*
DIR NOTACT+9!, NOTACT+18!, DEL+2~
DIR("?" NOTACT+8*, NOTACT+17*, DEL+3*
DIR("A" NOTACT+8*, NOTACT+17*, DEL+3*
DIR(0 NOTACT+8*, NOTACT+17*, DEL+3*
DIROUT NOTACT+9!, NOTACT+18!, DEL+2~
DIRUT NOTACT+9!, NOTACT+18!, DEL+2~
DR REP+7~, REP+11*
DTOUT NOTACT+9!, NOTACT+18!, DEL+2~
DUOUT NOTACT+9!, NOTACT+18!, DEL+2~
IBCDFN REP+7~, REP+9*, REP+10, REP+11
IBCNS NOTACT+25, REP~, REP+6, REP+8, REP+9
>> IBCPOL DELP+1
>> IBMAIL MAIL+1*
IBNEWP REP~, REP+6, REP+11, DELP+1
IBOLDP REP~, REP+6, REP+10
IBPLAN NOTACT+11, NOTACT+21, NOTACT+25, DEL~, DEL+5
IBQUIT NOTACT+6~, NOTACT+14*, NOTACT+18*
>> IBSUB NOTACT+10, NOTACT+14, NOTACT+22
IBSUB1 NOTACT+6~, NOTACT+25*
X DEL+2~
Y NOTACT+6~, NOTACT+10, NOTACT+11, NOTACT+18, DEL+2~, DEL+4, DEL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All