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 |