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
Print Page as PDF
Routine: IBCNSJ12

Package: Integrated Billing

Routine: IBCNSJ12


Information

IBCNSJ12 ;ALB/CPM - INACTIVATE AN INSURANCE PLAN (CON'T) ; 18-JAN-95

Source Information

Source file <IBCNSJ12.m>

Entry Points

Name Comments DBIA/ICR reference
GETPL ; Select an active group plan or add a new one.
; Required variable input:
; IBCNS -- Pointer to the company in file #36 offering the plan
; IBPLAN -- Pointer to the current plan in file #355.3
; IBFG -- [Optional] -> set to 1 to force creation, if
; necessary, of a group plan
ADD ; - propose to add a new plan to which the patient may subscribe
NAC(IBPLAN,IBPR,IBDEL,IBQ) ; Inactivate the plan.
; Input: IBPLAN -- Pointer to the plan in file #355.3
; IBPR -- Prompt for the Reader call
; IBDEL -- [optional]: set to 1 if the plan may be deleted
; Output: IBQ -- set to 1 if the plan is not inactivated
NACQ
MSG(IBCNS,IBPLAN) ; Send the subscription list to the user.
; Input: IBCNS -- Pointer to the company in file #36 offering the plan
; IBPLAN -- Pointer to the current plan in file #355.3
MSGQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P($G(^DIC(36,IBCNS,0)),"^")," offers no other active group plans!"
  • Line Location: GETPL+14
Function Call: WRITE
  • Prompt: !,"No plan selected!",!
  • Line Location: GETPL+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !,"No Insurance Plan has been added or selected."
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !,"The plan was not inactivated."
  • Line Location: NAC+10
Function Call: WRITE
  • Prompt: !,"Inactivating the plan... "
  • Line Location: NAC+11
Function Call: WRITE
  • Prompt: "done."
  • Line Location: NAC+11
Function Call: WRITE
  • Prompt: !,"Building the list of inactivated subscriptions to send to you..."
  • Line Location: MSG+7
Info |  Source |  Entry Points |  Interaction Calls