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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call