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

Package: Integrated Billing

Routine: IBCNSUR1


Information

IBCNSUR1 ;ALB/CPM/CMS - MOVE SUBSCRIBERS TO DIFFERENT PLAN (CON'T) ;09-SEP-96

Source Information

Source file <IBCNSUR1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 7 EDUP^IBCNSA2  ($$SUBS,DBU)^IBCNSJ  (MERG,SWPL)^IBCNSJ13  (PROC,SEL)^IBCNSUR  (ADS,BHEAD,DONE)^IBCNSUR3  $$EN^IBCNSUR4  ($$DAT1,$$DAT2)^IBOUTL  
VA FileMan 6 ^%DT  FILE^DICN  (,UPDATE,WP)^DIE  IX1^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMADD^XLFDT  $$UP^XLFSTR  

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 IBCNSUR  

Entry Points

Name Comments DBIA/ICR reference
PROC ; - Top of processing from IBCNSUR
; Move subscribers to another company's insurance plan.
COLLECT
PROCA ; Proc continuation.
PROCQ ;
MOVESUB ; Move the current subscriber.
MODIFINS(IBC2,IBP2,DFN,IBCDFN) ;
SPLITINS(IBC2,IBP2,DFN,IBCDFN,IBEFFDT,IBEXPDT) ;
FILTER ; IB*2.0*549 - Prompts for Filter questions.
; if no, then proceed with the filtering questions.
; - ask if they want to continue because they are about to select individual subscribers
FILTERA ; Enter Effective Date range to filter subscribers.
FILTERB ; Enter End Date

External References

Name Field # of Occurrence
^%DT COLLECT+63
FILE^DICN COLLECT+100
^DIE MODIFINS+4, MODIFINS+8
UPDATE^DIE SPLITINS+14
WP^DIE COLLECT+122
IX1^DIK COLLECT+104, SPLITINS+24, SPLITINS+30
$$GET1^DIQ COLLECT+41, COLLECT+46
^DIR PROC+29, COLLECT+10, COLLECT+23, COLLECT+55, COLLECT+84, COLLECT+92, COLLECT+113, FILTER+6, FILTER+14, FILTER+22
, FILTER+32, FILTER+40, FILTER+55, FILTER+62, FILTERA+4, FILTERB+2
EDUP^IBCNSA2 COLLECT+104
$$SUBS^IBCNSJ PROC+34, COLLECT+4
DBU^IBCNSJ MOVESUB+9
MERG^IBCNSJ13 MOVESUB+10
SWPL^IBCNSJ13 MODIFINS+11, SPLITINS+26
PROC^IBCNSUR PROCA+8
SEL^IBCNSUR PROC+21, COLLECT+29
ADS^IBCNSUR3 MOVESUB+3
BHEAD^IBCNSUR3 COLLECT+128
DONE^IBCNSUR3 PROCA+3
$$EN^IBCNSUR4 COLLECT+14
$$DAT1^IBOUTL FILTERA+2
$$DAT2^IBOUTL COLLECT+77
$$FMADD^XLFDT COLLECT+65
$$UP^XLFSTR FILTER+34

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"=====================",!,"MOVE SUBSCRIBERS FROM",!,"====================="
  • Line Location: PROC+16
Function Call: WRITE
  • Prompt: !!,"Select the Insurance Company and Plan to move subscribers FROM.",!
  • Line Location: PROC+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+29
Function Call: WRITE
  • Prompt: !!,?5,*7,"* This group plan has no subscribers!"
  • Line Location: PROC+35
Function Call: WRITE
  • Prompt: !!,"Collecting Subscribers ..."
  • Line Location: COLLECT+2
Function Call: WRITE
  • Prompt: !!,?5,*7,"* This group plan has no subscribers!"
  • Line Location: COLLECT+6
Function Call: WRITE
  • Prompt: !!,"This group plan has "_+IBSUB_" subscribers. All subscribers will be moved."
  • Line Location: COLLECT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COLLECT+10
Function Call: WRITE
  • Prompt: !!,?10,"<Okay, nothing moved>"
  • Line Location: COLLECT+11
Function Call: WRITE
  • Prompt: !!,?5,*7,"* No subscribers selected to be moved."
  • Line Location: COLLECT+17
Function Call: WRITE
  • Prompt: !!,"This group plan has "_+IBSUB_" subscribers. You have selected to move"
  • Line Location: COLLECT+19
Function Call: WRITE
  • Prompt: !,+NUMSEL_" of these subscribers."
  • Line Location: COLLECT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: COLLECT+23
Function Call: WRITE
  • Prompt: !!,?10,"<Okay, nothing moved>"
  • Line Location: COLLECT+24
Function Call: WRITE
  • Prompt: !!!,"MOVE SUBSCRIBERS TO"
  • Line Location: COLLECT+27
Function Call: WRITE
  • Prompt: !!,"Select the Insurance Company and Plan to move subscribers TO.",!
  • Line Location: COLLECT+28
Function Call: WRITE
  • Prompt: !!,*7,"You must move the subscribers to an active insurance company!"
  • Line Location: COLLECT+31
Function Call: WRITE
  • Prompt: !!,*7,"You must move the subscribers to a different plan!"
  • Line Location: COLLECT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: COLLECT+55
Function Call: WRITE
  • Prompt: !!!,"You selected to move ",$S(+IBGRP:IBSUB,1:+NUMSEL)," subscriber(s) and "
  • Line Location: COLLECT+68
Function Call: WRITE
  • Prompt: $S(IBSPLIT:"EXPIRE",1:"REPLACE")," the old group plan &"
  • Line Location: COLLECT+69
Function Call: WRITE
  • Prompt: !,"policy in the patient profile.",!
  • Line Location: COLLECT+70
Function Call: WRITE
  • Prompt: !?5,"FROM Insurance Company ",IBC1N
  • Line Location: COLLECT+71
Function Call: WRITE
  • Prompt: !?10,"Plan Name ",$P(IBP1N,U,1)," Number ",IBP1X
  • Line Location: COLLECT+72
Function Call: WRITE
  • Prompt: !?5,"TO Insurance Company ",IBC2N
  • Line Location: COLLECT+73
Function Call: WRITE
  • Prompt: !?10,"Plan Name ",IBP2N," Number ",IBP2X
  • Line Location: COLLECT+74
Function Call: WRITE
  • Prompt: !?5,"BY switching to the new Insurance/Plan"
  • Line Location: COLLECT+76
Function Call: WRITE
  • Prompt: !?10,"with Effective Date ",$$DAT2^IBOUTL(IBEFFDT)
  • Line Location: COLLECT+77
Function Call: WRITE
  • Prompt: !
  • Line Location: COLLECT+78
Function Call: WRITE
  • Prompt: !,"Please Note that the old group plan & policy will be "
  • Line Location: COLLECT+79
Function Call: WRITE
  • Prompt: $S(IBSPLIT:"EXPIRED",1:"REPLACED")," in the patient",!,"profile!",!
  • Line Location: COLLECT+80
Function Call: WRITE
  • Prompt: !
  • Line Location: COLLECT+84
Function Call: WRITE
  • Prompt: !!,?10,"<Okay, nothing moved>"
  • Line Location: COLLECT+85
Function Call: WRITE
  • Prompt: !!,"Moving subscribers"
  • Line Location: COLLECT+131
Function Call: WRITE
  • Prompt: !!,"Done. All subscribers were moved as requested!",!
  • Line Location: PROCA+2
Function Call: WRITE
  • Prompt: !,"The Bulletin was sent to you and members of 'IB NEW INSURANCE' Mail Group.",!
  • Line Location: PROCA+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: MOVESUB+12
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+6
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+22
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+40
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+62
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTERA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTERB+1
Function Call: WRITE
  • Prompt: !,"End date cannot be less than Start date. Please re-enter date range."
  • Line Location: FILTERB+5
Routine Call
  • DIE
  • Line Location:
    • MODIFINS+4
    • MODIFINS+8
Routine Call
  • DIE
  • Line Location:
    • SPLITINS+14
Routine Call
  • DIE
  • Line Location:
    • COLLECT+122
Routine Call
  • DIR
  • Line Location:
    • PROC+29
    • COLLECT+10
    • COLLECT+23
    • COLLECT+55
    • COLLECT+84
    • COLLECT+92
    • COLLECT+113
    • FILTER+6
    • FILTER+14
    • FILTER+22
    • FILTER+32
    • FILTER+40
    • FILTER+55
    • FILTER+62
    • FILTERA+4
    • FILTERB+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBA(355.3 - [#355.3] GET1^DIQ,  WP^DIE
^IBA(355.4 - [#355.4] Classic Fileman Calls
^IBT(356.2 - [#356.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] COLLECT+31, COLLECT+38, COLLECT+43
^DPT - [#2] MOVESUB+1, MODIFINS+3, MODIFINS+5*, SPLITINS+2, SPLITINS+3, SPLITINS+19*, SPLITINS+20*, SPLITINS+21*, SPLITINS+28*
^IBA(355.3 - [#355.3] COLLECT+108, COLLECT+120
^IBA(355.4 - [#355.4] COLLECT+89, COLLECT+97, COLLECT+98, COLLECT+101*, COLLECT+102*, COLLECT+103*, MOVESUB+9
^IBA(355.5 - [#355.5] MOVESUB+7, MOVESUB+8
^IBT(356.2 - [#356.2] MODIFINS+8
^TMP("IBCNSUR4A" COLLECT+137, COLLECT+138, PROCQ+4!
^TMP($J PROC+10!, PROC+11!, PROC+12, COLLECT+133, COLLECT+134, PROCQ+1!, PROCQ+2!, PROCQ+3!

Label References

Name Line Occurrences
FILTER PROC+38
FILTERB FILTERB+5
MODIFINS MOVESUB+4, SPLITINS+7
MOVESUB COLLECT+134, COLLECT+138
PROCA COLLECT+132
PROCQ PROC+30, PROC+34, PROC+39, COLLECT+3, COLLECT+13, COLLECT+30, COLLECT+31, COLLECT+35, COLLECT+56, COLLECT+60
, COLLECT+85, COLLECT+89, COLLECT+108
SPLITINS MOVESUB+5

Naked Globals

Name Field # of Occurrence
^( COLLECT+103, MOVESUB+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT COLLECT+62*, COLLECT+63!
%DT("A" COLLECT+62*
ARRAY COLLECT+119~, COLLECT+120*
D0 PROC+2~
DA PROC+2~, COLLECT+104*, MODIFINS+1~, MODIFINS+4*!, MODIFINS+8*!, SPLITINS+1~, SPLITINS+23*, SPLITINS+29*
DA(1 MODIFINS+4*, SPLITINS+23*, SPLITINS+29*
DD COLLECT+100!
DFN PROC+2~, COLLECT+133*, COLLECT+134, COLLECT+137*, COLLECT+138, MOVESUB+1, MOVESUB+3, MOVESUB+4, MOVESUB+5, MOVESUB+7
, MOVESUB+8, MODIFINS~, MODIFINS+3, MODIFINS+4, MODIFINS+5, MODIFINS+8, MODIFINS+11, SPLITINS~, SPLITINS+2, SPLITINS+3
, SPLITINS+7, SPLITINS+11, SPLITINS+19, SPLITINS+20, SPLITINS+21, SPLITINS+23, SPLITINS+26, SPLITINS+28, SPLITINS+29
DGRUGA08 SPLITINS+1~, SPLITINS+9*
DIC PROC+2~, COLLECT+99*
DIC(0 COLLECT+99*
DIE PROC+2~, MODIFINS+1~, MODIFINS+4*!, MODIFINS+8*!, SPLITINS+1~
DIK PROC+2~, COLLECT+104*, SPLITINS+1~, SPLITINS+23*, SPLITINS+29*
DIR PROC+2~, PROC+29!, COLLECT+10!, COLLECT+23!, COLLECT+55!, COLLECT+84!, COLLECT+92!, COLLECT+113!, FILTER+6!, FILTER+14!
, FILTER+22!, FILTER+32!, FILTER+40!, FILTER+55!, FILTER+62!, FILTERA+2!, FILTERA+4!, FILTERB+2!
DIR("?" PROC+28*, COLLECT+9*, COLLECT+22*, COLLECT+54*, COLLECT+83*, COLLECT+91*, COLLECT+111*, COLLECT+112*, FILTER+5*, FILTER+13*
, FILTER+21*, FILTER+31*, FILTER+39*, FILTER+52*, FILTER+53*, FILTER+54*, FILTER+61*, FILTERA+3*, FILTERB+1*
DIR("A" PROC+26*, COLLECT+8*, COLLECT+21*, COLLECT+51*, COLLECT+52*, COLLECT+82*, COLLECT+90*, COLLECT+110*, FILTER+3*, FILTER+11*
, FILTER+19*, FILTER+30*, FILTER+37*, FILTER+47*, FILTER+48*, FILTER+49*, FILTER+50*, FILTER+59*, FILTERA+3*, FILTERB+1*
DIR("B" PROC+27*, COLLECT+53*, FILTER+4*, FILTER+12*, FILTER+20*, FILTER+38*, FILTER+51*, FILTER+60*, FILTERB+1*
DIR(0 PROC+26*, COLLECT+8*, COLLECT+21*, COLLECT+51*, COLLECT+82*, COLLECT+90*, COLLECT+109*, FILTER+3*, FILTER+11*, FILTER+19*
, FILTER+30*, FILTER+37*, FILTER+46*, FILTER+59*, FILTERA+3*, FILTERB+1*
DIROUT PROC+2~, COLLECT+92, COLLECT+93!, COLLECT+113, COLLECT+114!
DIRUT PROC+2~, COLLECT+56, COLLECT+92, COLLECT+93!, COLLECT+113, COLLECT+114!, FILTER+55
DLAYGO PROC+2~, COLLECT+99*
DO COLLECT+100!
DR PROC+2~, MODIFINS+1~, MODIFINS+4*!, MODIFINS+8*!, SPLITINS+1~
DT FILTERA+2
DTIME PROCA+5
DTOUT PROC+2~, COLLECT+92, COLLECT+93!, COLLECT+113, COLLECT+114!
DUOUT PROC+2~, COLLECT+92, COLLECT+93!, COLLECT+113, COLLECT+114!
I PROC+3~, COLLECT+103*
IBAB PROC+3~, COLLECT+88*, COLLECT+93*, COLLECT+96, COLLECT+107*, COLLECT+114*, COLLECT+117
IBBU PROC+3~, MOVESUB+8*, MOVESUB+9, MOVESUB+10
IBC1 PROC+3~, COLLECT+1*, COLLECT+4, COLLECT+14, COLLECT+35, COLLECT+38
IBC1N PROC+3~, COLLECT+38*, COLLECT+71, COLLECT+90, COLLECT+110
IBC1X PROC+3~
IBC2 PROC+3~, COLLECT+32*, COLLECT+35, COLLECT+43, MOVESUB+4, MOVESUB+5, MODIFINS~, MODIFINS+4, MODIFINS+8, SPLITINS~
, SPLITINS+7, SPLITINS+13, SPLITINS+20
IBC2N PROC+3~, COLLECT+43*, COLLECT+73, COLLECT+90, COLLECT+110
IBC2X PROC+3~
IBCAB PROC+4~, COLLECT+100*, COLLECT+101, COLLECT+102, COLLECT+103, COLLECT+104
IBCDFN PROC+4~, COLLECT+134*, COLLECT+138*, MOVESUB+1, MOVESUB+3, MOVESUB+4, MOVESUB+5, MOVESUB+8, MODIFINS~, MODIFINS+3
, MODIFINS+4, MODIFINS+5, MODIFINS+8, MODIFINS+11, SPLITINS~, SPLITINS+2, SPLITINS+3, SPLITINS+7, SPLITINS+19, SPLITINS+28
, SPLITINS+29
IBCDFN1 PROC+4~, MOVESUB+8*
IBCDFN2 SPLITINS+1~, SPLITINS+17*, SPLITINS+19, SPLITINS+20, SPLITINS+21, SPLITINS+23, SPLITINS+26
IBCNS PROC+4~, PROC+34, COLLECT+1, COLLECT+31, COLLECT+32
IBCPOL PROC+4~
IBDAT PROC+4~, MOVESUB+7*, MOVESUB+8, MOVESUB+9
IBDEAD PROC+4~, COLLECT+14, FILTER+16*
IBDONE PROC+4~, PROC+14*
IBEFDT PROC+5~, COLLECT+14, FILTER+64*, FILTER+65, FILTERA+6*
IBEFDT1 PROC+5~, COLLECT+14, FILTER+65*, FILTERA+6*, FILTERA+8*, FILTERB+5
IBEFDT2 PROC+5~, COLLECT+14, FILTER+65*, FILTERA+6*, FILTERB+4*, FILTERB+5
IBEFFDT PROC+5~, COLLECT+64*, COLLECT+65, COLLECT+77, MOVESUB+5, SPLITINS~, SPLITINS+5, SPLITINS+7, SPLITINS+21
IBERR SPLITINS+1~, SPLITINS+15
IBEXPDT PROC+5~, COLLECT+65*, MOVESUB+5, SPLITINS~, SPLITINS+28
IBGRP PROC+5~, PROC+31*, PROC+38, COLLECT+3, COLLECT+13, COLLECT+68, COLLECT+132, COLLECT+136
IBI PROC+5~, COLLECT+97*, COLLECT+98, COLLECT+103, SPLITINS+1~, SPLITINS+11*, SPLITINS+13
IBIAB PROC+5~, COLLECT+98*, COLLECT+99, COLLECT+102
IBIEN SPLITINS+1~
IBIEN(1 SPLITINS+16, SPLITINS+17
IBLN PROC+5~, PROC+12*
IBNP PROC+6~
IBP1 PROC+6~, COLLECT+1*, COLLECT+4, COLLECT+14, COLLECT+35, COLLECT+41, COLLECT+89, COLLECT+97, COLLECT+108, COLLECT+120
, MOVESUB+1, MOVESUB+7, MOVESUB+8
IBP1N PROC+6~, COLLECT+41*, COLLECT+72
IBP1X PROC+6~, COLLECT+41*, COLLECT+42*, COLLECT+72
IBP2 PROC+6~, COLLECT+32*, COLLECT+35, COLLECT+46, COLLECT+89, COLLECT+101, COLLECT+108, COLLECT+122, MOVESUB+4, MOVESUB+5
, MOVESUB+9, MOVESUB+10, MODIFINS~, MODIFINS+11, SPLITINS~, SPLITINS+7, SPLITINS+26
IBP2N PROC+6~, COLLECT+46*, COLLECT+48*, COLLECT+74
IBP2X PROC+6~, COLLECT+46*, COLLECT+47*, COLLECT+74
IBPLAN PROC+6~, PROC+34, COLLECT+1, COLLECT+32
IBQ PROC+6~, COLLECT+60, COLLECT+61*, COLLECT+63*, COLLECT+88*, COLLECT+89, COLLECT+92*, COLLECT+107*, COLLECT+108, COLLECT+113*
IBQUIT PROC+6~, PROC+14*, PROC+20*, PROC+22, PROC+30*, PROC+36*, PROC+39, COLLECT+3, COLLECT+6*, COLLECT+11*
, COLLECT+13, COLLECT+15, COLLECT+17*, COLLECT+24*, COLLECT+30, FILTER+8*, FILTER+15*, FILTER+23*, FILTER+25*, FILTER+27
, FILTER+33*, FILTER+41*, FILTER+44, FILTER+55*, FILTER+63*, FILTERA+7*, FILTERB+3*
IBRT SPLITINS+1~
IBRT( SPLITINS+13*
IBSPLIT PROC+7~, COLLECT+57*, COLLECT+60, COLLECT+69, COLLECT+75, COLLECT+80, MOVESUB+4, MOVESUB+5
IBST PROC+7~
>> IBSTOP PROC+22*, COLLECT+15*
IBSUB PROC+7~, COLLECT+4*, COLLECT+6, COLLECT+7, COLLECT+16*, COLLECT+19, COLLECT+68
IBSUBACT PROC+7~, COLLECT+14, FILTER+42*, FILTER+44, FILTER+56*
IBSUBID PROC+7~, COLLECT+14, FILTER+24*, FILTER+27
IBVALUE PROC+7~, COLLECT+14, FILTER+26*, FILTER+34*
IBW PROC+7~
IBX PROC+7~, PROCA+5*, MODIFINS+1~, MODIFINS+8*, SPLITINS+1~
IBXXX PROC+7~, MODIFINS+1~, MODIFINS+3*, MODIFINS+5
IBZ SPLITINS+1~, SPLITINS+2*, SPLITINS+5, SPLITINS+7
IBZ1 SPLITINS+1~, SPLITINS+3*
LINE COLLECT+119~
NUMSEL PROC+8~, PROC+14*, COLLECT+14*, COLLECT+16, COLLECT+17, COLLECT+20, COLLECT+68
REF PROC+8~, PROC+12*
TODAY FILTERA+1~, FILTERA+2*, FILTERB+1
U COLLECT+16, COLLECT+38, COLLECT+41, COLLECT+43, COLLECT+46, COLLECT+48, COLLECT+72, COLLECT+108, SPLITINS+5, SPLITINS+7
, SPLITINS+20, SPLITINS+21, SPLITINS+28
X PROC+8~, COLLECT+99*
Y PROC+8~, PROC+30, PROC+31, COLLECT+11, COLLECT+24, COLLECT+57, COLLECT+63, COLLECT+64, COLLECT+85, COLLECT+93
, COLLECT+100, COLLECT+114, FILTER+8, FILTER+15, FILTER+16, FILTER+23, FILTER+24, FILTER+33, FILTER+34, FILTER+41
, FILTER+42, FILTER+55, FILTER+56!, FILTER+63, FILTER+64, FILTERA+5, FILTERA+7, FILTERA+8, FILTERB+3, FILTERB+4
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