IBCNSJ ;ALB/CPM - INSURANCE PLAN UTILITIES ; 30-DEC-94
Source file <IBCNSJ.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DEL(IBPLAN) | ; Delete an Insurance Plan
; Input: IBPLAN -- Pointer to the plan in file #355.3 |
|
DELQ | ||
DBU(DA) | ; Delete Benefits Used.
|
|
IRACT(IBPLAN,IBF) | ; Inactivate/reactivate an Insurance Plan
; Input: IBPLAN -- Pointer to the plan in file #355.3 ; IBF -- 1 -> plan is to be inactivated ; 0 -> plan is to be reactivated |
|
IRACTQ | ||
COV(DFN) | ; Update 'Covered by Insurance?' prompt
; Input: DFN -- Pointer to the patient in file #2 |
|
COVQ | ||
COMP(GN) | ; Compress Insurance Plan Name or Number
; Convert to caps and strip punctuation and leading zeroes. ; Input: GN -- Insurance plan name or number to be compressed ; Output: GN1 -- The compressed name or number |
|
COMPQ | ||
ANYGP(X,EX,ALL) | ; Does this insurance company offer any group plans?
; Input: X -- Pointer to the company in file #36 ; EX -- Pointer to an insurance plan in file #355.3 ; This optional input parameter is used to exclude ; a specific plan from being considered. ; ALL -- Set to 1 if inactive plans are to be included ; Output: 0 -- Company doesn't offer any group plans ; 1 -- Company does offer group plans |
|
ANYGPQ | ||
SUBS(CO,PLAN,ANY,ARR,Z) | ; How many possible plan subscriptions are there?
; Input: CO -- Pointer to the company in file #36 ; PLAN -- Pointer to the plan in file #355.3 ; ANY -- [Optional] Set to 1 if at least one subscriber ; is to be found ; ARR -- [Optional] If defined, all policies will be ; returned in this array as ; ; ARR(DFN,ien)="", where |
|
SUBSQ |
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^IBA(355.3 - [#355.3] | Classic Fileman Calls |
^IBA(355.32 - [#355.32] | Classic Fileman Calls |
^IBA(355.4 - [#355.4] | Classic Fileman Calls |
^IBA(355.5 - [#355.5] | Classic Fileman Calls |