IBCNSC01 ;ALB/NLR - INSURANCE COMPANY EDIT ;6/1/05 10:06am
Source file <IBCNSC01.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PARAM | ; -- Insurance company parameters region
 | 
|
| PHONE(IBCNS13) | ; -- Compute precert company phone
 | 
|
| REDOX | ||
| PHONEQ | ||
| PORTAL(IBCNS13) | ||
| PORT | ;
 | 
|
| PORTALQ | ||
| MAIN | ; -- Insurance company main address
 | 
|
| MAINAD | ; KDM US2487 IB*2.0*592  call in tag from IBCNSI
 | 
|
| PAYER | ; This procedure builds the display for the payer associated with
 ; this insurance company. ; /vd-IB-2-687 - The following module has been restructured with new code to modify ; the display for how the payer and the "EIV" and "IIU" payer ; applications are displayed. ; - 08/31/20 - IIU project ; - 2/4/13 - remove ePharmacy references (IB*2*494) ; - 9/9/09 - eIV updated ; ESG - 7/29/02 - IIV project  | 
|
| REMARKS | ;
 | 
|
| SYN | ;
 | 
|
| YESNO(VAL) | ;Translate to a YES or NO value. - /vd - IB*2.0*687
 ; INPUT: VAL = Either 0 or 1 ; OUTPUT: 'YES' (for VAL=1), 'NO' (for VAL=0)  | 
| FileNo | Call Tags | 
|---|---|
| ^IBA(355.98 - [#355.98] | GET1^DIQ | 
| ^DIC(36 - [#36] | GET1^DIQ | 
| ^IBE(365.12 - [#365.12] | GET1^DIQ | 
| ^IBE(365.13 - [#365.13] | FIND1^DIC |