Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call