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

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

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

FileMan Files Accessed Via FileMan Db Call

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