EC2P24PT ;ALB/JAM - PATCH EC*2.0*24 Post-Init Rtn ; 04/19/00
Source file <EC2P24PT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; entry point
|
|
| F725SRH | ; Locate invalid CPT codes in file 725 and correct them
|
|
| F721SRH | ; Locate invalid CPT code in file 721 and corrects it
|
|
| MSGTXT | ; Message intro
|
|
| BKGPRC | ;* print entrie with invalid CPT codes
|
|
| PROCESS | ;* background job entry point
|
|
| LINE(TEXT) | ; Add line to message global
|
|
| ; Send message
|
||
| FIX721(ECFN,EC) | ;Fix bad CPT code entry in file #721
; Input: ECFN - Event Capture file #721 IEN ; EC - Zero (0) and "P" nodes in file #721 |
| FileNo | Call Tags |
|---|---|
| ^EC(725 - [#725] | Classic Fileman Calls |
