IBY608PO ;ALB/KDM - POST-INSTALL FOR IB*2.0*608 ;13-DEC-2017
Source file <IBY608PO.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| RPT | ; Get all Insurance companies that have the 3.01- transmit electronically field blank or set to No.
 | 
|
| ; Send an email message to eBiz Rapid Response group with the report.
 | 
||
| EMAILX | ;
 | 
|
| UNSPACE(FLDX) | ; Eliminate spaces at the end of the field.
 | 
|
| CMNCPT | ;Set CMN CPT CODES in IB System Parameters
 | 
|
| CPTCD | ;
 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ | 
| ^DIC(5 - [#5] | GET1^DIQ | 
| ^ICPT - [#81] | FIND1^DIC |