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 |