IBCNSP ;ALB/AAS - INSURANCE MANAGEMENT - EXPANDED POLICY ;05-MAR-1993
Source file <IBCNSP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBCNS EXPANDED POLICY
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
BLD | ; -- list builder
|
|
COMMENT | ; -- Comment region
; Input: DFN - IEN of the currently selected patient ; IBCPOL - ; IBPPOL - O node of the selected Patient Policy ; ^TMP("IBCNSVP",$J) - Current global Array of display lines ; Output: IB1ST("COMMENT") - 1st line of comments display ; ^TMP("IBCNSVP",$J) - Updated global Array of display lines |
|
DISPPPC(IBL,DFN,IBIIEN,COMIEN) | ; Display one Patient Policy Comment
|
|
EFFECT | ; -- Effective date region
|
|
UR | ; -- UR of insurance region
|
|
EMP | ; -- Insurance Employer Region
; ib*2*497 move employer lines around |
|
EMPQ | ||
PLIM | ; plan coverage limitations/plan limitation category display
|
|
PLIMX | ;
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
PPOL | ; -- select patient, select policy
|
|
PPOLQ | ||
BLANK(LINE) | ; -- Build blank line
|
|
SET(LINE,COL,TEXT,ON,OFF) | ; -- set display info in array
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |