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

Package: Integrated Billing

Routine: IBCNSJ13


Information

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

Source Information

Source file <IBCNSJ13.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 4 EDUP^IBCNSD1  ($$SUBS,COV,DBU)^IBCNSJ  (DELP,MAIL)^IBCNSJ11  POL^IBCNSU41  
VA FileMan 4 FILE^DICN  ^DIE  IX1^DIK  ^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: 5

Package Total Caller Graph
Integrated Billing 5 IBCNSJ1  IBCNSJ2  IBCNSJ21  IBCNSJ4  IBCNSUR1  

Entry Points

Name Comments DBIA/ICR reference
REP(IBCNS,IBNEWP,IBOLDP,IBMER) ; 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
; IBMER -- [optional]: set to 1 if benefits used should
; be merged instead of deleted
REPQ
SWPL(IBCPOL,DFN,IBCDFN) ; Change plan in policy.
; Input: IBCPOL -- Pointer to the new plan in file #355.3
; DFN -- Pointer to the patient in file #2
; IBCDFN -- Pointer to the policy in file #2.312
SWPLQ
MERG(IBCPOL,IBBU,IBD) ; Merge previous benefits used into a new plan.
; Input: IBCPOL -- Pointer to the new plan in file #355.3
; IBBU -- Pointer to the benefit to merged in file #355.5
; IBD -- [optional] : new date for the benefit used
MERGQ
BU(IBQ) ; Be sure user really wants to repoint policies with benefits used.
; Required variable input:
; IBCPOL -- Pointer to the new plan in file #355.3
BUQ

External References

Name Field # of Occurrence
FILE^DICN MERG+8
^DIE SWPL+7
IX1^DIK MERG+12
^DIR BU+19, BU+23
EDUP^IBCNSD1 MERG+12
$$SUBS^IBCNSJ REP+12
COV^IBCNSJ SWPL+8
DBU^IBCNSJ REP+21, MERG+13
DELP^IBCNSJ11 BU+23, BU+24
MAIL^IBCNSJ11 BU+24
POL^IBCNSU41 SWPL+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Repointing all policies to the new plan...",!
  • Line Location: REP+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: REP+16
Function Call: WRITE
  • Prompt: !,"All policies have been re-pointed to the new plan."
  • Line Location: REP+24
Function Call: WRITE
  • Prompt: !,"There were no Benefits Used merged or deleted."
  • Line Location: REP+25
Function Call: WRITE
  • Prompt: !,$S(IBCBUM:IBCBUM,1:"No")," Benefits Used record",$S(IBCBUM=1:" was",1:"s were")," merged."
  • Line Location: REP+26
Function Call: WRITE
  • Prompt: !,$S(IBCBUD:IBCBUD,1:"No")," Benefits Used record",$S(IBCBUD=1:" was",1:"s were")," deleted."
  • Line Location: REP+27
Routine Call
  • DIE
  • Line Location:
    • SWPL+7
Routine Call
  • DIR
  • Line Location:
    • BU+19
    • BU+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.5 - [#355.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] REP+15
^IBA(355.4 - [#355.4] REP+21, BU+11
^IBA(355.5 - [#355.5] REP+19, REP+20, MERG+9*, MERG+10*, MERG+11*
^TMP($J REP+11!, REP+13, REP+14, REPQ!

Label References

Name Line Occurrences
BUQ BU+11
MERG REP+22
MERGQ MERG+6, MERG+8
REPQ REP+8, REP+25
SWPL REP+16
SWPLQ SWPL+5

Naked Globals

Name Field # of Occurrence
^( REP+20
^(1 MERG+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REP+9~, SWPL+7*!, MERG+12*
DA(1 SWPL+7*
DD MERG+8!
DFN REP+9~, REP+13*, REP+14, REP+15, REP+16, REP+19, REP+20, SWPL~, SWPL+5, SWPL+7
, SWPL+8, SWPL+9
DIC MERG+5~, MERG+7*
DIC(0 MERG+7*
DIE REP+9~, SWPL+7*!
>> DIK MERG+12*
DIR BU+19!, BU+23!
DIR("?" BU+19*, BU+22*
DIR("A" BU+17*, BU+18*, BU+22*
DIR(0 BU+19*, BU+22*
DIROUT BU+21!, BU+24!
DIRUT BU+21!, BU+23, BU+24!
DLAYGO MERG+5~, MERG+7*
DO MERG+8!
DR REP+9~, SWPL+6*, SWPL+7!
DTOUT BU+21!, BU+24!
DUOUT BU+21!, BU+24!
DUZ SWPL+6
IBARR REP+9~
IBBU REP+20*, REP+21, REP+22, MERG~, MERG+6, MERG+9, MERG+11, MERG+13
IBCBU MERG+5~, MERG+8*, MERG+9, MERG+10, MERG+11, MERG+12
IBCBUD REP+9~, REP+10*, REP+21*, REP+25, REP+27
IBCBUM REP+9~, REP+10*, REP+22*, REP+25, REP+26
IBCDFN REP+9~, REP+14*, REP+15, REP+16, REP+20, SWPL~, SWPL+5, SWPL+7
>> IBCDFN1 REP+20*
IBCNS REP~, REP+8, REP+12
IBCPOL SWPL~, SWPL+5, SWPL+6, MERG~, MERG+6, MERG+7, BU+11
IBD MERG~, MERG+10
>> IBDAT REP+19*, REP+20, REP+21
IBMER REP~, REP+21
>> IBMERGE BU+20*
IBNEWP REP~, REP+8, REP+16, REP+21, REP+22
IBOLDP REP~, REP+8, REP+12, REP+15, REP+19, REP+20
IBQ BU~, BU+11*, BU+23*
>> IBREP BU+24*
IBSUB1 REP+9~, REP+12*
X MERG+5~, MERG+7*
Y MERG+5~, MERG+8, BU+20, BU+24
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