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

Package: Integrated Billing

Routine: IBCNSUX


Information

IBCNSUX ;ALB/CMS - SPLIT MEDICARE COMBINATION PLANS ; 29-OCT-98

Source Information

Source file <IBCNSUX.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 3 $$SUBS^IBCNSJ  $$GETWNR^IBCNSMM1  BEG^IBCNSUX1  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^DIC  ^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 IBCN SPLIT COMBO POLICIES  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point from option.
QUEQ ; Exit Clean-up
ENQ
SEL ; Select a MEDICARE company and plan.
; Output: IBINS -- Pointer to selected company in file #36
; IBPLAN -- Pointer to selected/added plan in file #355.3
; IBQUIT -- Set to 1 if the user wants to quit.
SELP ; - select the Combination Plan
; MRD;IB*2.0*516 - Display new Group Name and Number fields.
SELQ
OKAY ; -- Ask Okay to Continue
; Returns IBQUIT=1 to exit

External References

Name Field # of Occurrence
^%ZIS EN+30
HOME^%ZIS EN+34
^%ZISC QUEQ+1
^%ZTLOAD EN+34
^DIC SEL+10, SELP+8
^DIR OKAY+5
$$SUBS^IBCNSJ SELP+13
$$GETWNR^IBCNSMM1 EN+14
BEG^IBCNSUX1 EN+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"The variable DUZ must be set to an active user code before continuing."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,?5,"SPLIT MEDICARE PART A /PART B COMBINATION PLANS"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,?5,"WARNING: CAUTION SHOULD BE TAKEN WHEN USING THIS OPTION!!"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,?5,"This option should ONLY be used at sites that have created a"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,?5,"Medicare, Will Not Reimburse, Insurance Company which has a"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,?5,"non-standard Group plan associated with it that combines Part A"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,?5,"and Part B coverage.",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?5,"Make sure the correct plan is selected. This option will create"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,?5,"a Part B policy for each subscriber and edit the existing policy"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,?5,"to point it to the standard Medicare Part A policy."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,$TR($J("",75)," ","-")
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,*7,?5,IBWNR
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,*7,?5,"This option cannot be run after March 3, 1999."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"ALL POLICIES ENTERED FOR THE SELECTED COMBINATION PLAN WILL BE CHANGED"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,"TO BE ASSOCIATED WITH MEDICARE PART A AND A NEW POLICY CREATED FOR "
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,"MEDICARE PART B. THE COMBINATION PLAN WILL BE DELETED IF EMPTY!"
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,?10,"You should send the output to a printer.",!
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !!,?15,"...... One Moment Please ..."
  • Line Location: EN+37
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Function Call: WRITE
  • Prompt: " <No Insurance Company selected>"
  • Line Location: SEL+11
Function Call: WRITE
  • Prompt: !!,?5,*7,"* Cannot select standard Part A plan"
  • Line Location: SELP+9
Function Call: WRITE
  • Prompt: !!,?5,*7,"* Cannot select standard Part B plan"
  • Line Location: SELP+10
Function Call: WRITE
  • Prompt: !!,?5,*7,"* No plan selected!",!
  • Line Location: SELP+11
Function Call: WRITE
  • Prompt: !!,"Collecting Subscribers ..."
  • Line Location: SELP+12
Function Call: WRITE
  • Prompt: !!,?5,"This plan has ",IBSUBS," subscriber",$S(IBSUBS=1:"",1:"s"),"."
  • Line Location: SELP+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OKAY+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+30
Routine Call
  • %ZIS
  • Line Location:
    • EN+34
Routine Call
  • DIC
  • Line Location:
    • SEL+10
    • SELP+8
Routine Call
  • DIR
  • Line Location:
    • OKAY+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(355.2 - [#355.2] SEL+6
^VA(200 - [#200] EN+1

Label References

Name Line Occurrences
ENQ EN+1, EN+15, EN+19, EN+25
OKAY EN+25
QUEQ EN+30, EN+31
SEL EN+19
SELP SELP+9, SELP+10, SELP+16
SELQ SEL+11, SELP+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+28~, EN+30*
DA SEL+5~
DIC SEL+5~, SEL+7*, SEL+10!, SELP+2!, SELP+4*, SELP+8!
DIC("A" SEL+9*, SELP+3*
DIC("S" SEL+8*, SELP+5*
DIC("W" SELP+7*
DIC(0 SEL+7*, SELP+4*
DIR OKAY+2~
DIR("?" OKAY+4*
DIR("A" OKAY+3*
DIR("B" OKAY+3*
DIR(0 OKAY+3*
DIROUT SEL+5~, OKAY+2~
DIRUT SEL+5~, OKAY+2~
DR SEL+5~
DTOUT SEL+5~, OKAY+2~
DUOUT SEL+5~, OKAY+2~
DUZ EN+1
IBINS EN+13~, SEL+10*, SELP+13
IBPLAN EN+13~, SELP+8*, SELP+9, SELP+10, SELP+13
IBQUIT EN+13~, EN+14*, EN+19, EN+25, SEL+11*, SELP+11*, OKAY+6*
IBSUBS SEL+5~, SELP+13*, SELP+14, SELP+15, SELP+16
IBWNR EN+13~, EN+14*, EN+15, SELP+9, SELP+10
IBX EN+28~, EN+32*, SEL+5~
IBY SEL+5~, SEL+6*
IO EN+36
IO("Q" EN+31!
IOST EN+37
>> POP EN+30
U SELP+9, SELP+10
X EN+13~, SEL+5~, OKAY+2~
Y EN+13~, SEL+5~, SEL+10, SEL+11, SELP+8, SELP+11, OKAY+2~, OKAY+6
ZTDESC EN+28~, EN+33*
ZTRTN EN+28~, EN+33*
ZTSAVE EN+28~
ZTSAVE( EN+32*
ZTSK EN+34!
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