ICPT63PT ;ALB/ESD - CPT Update '98 Post-Init Driver; 1/29/98
Source file <ICPT63PT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;- Main entry point
|
|
ENQ | ||
DISTUP | ;- Entry point for Distribution Date update
|
|
DISTUPQ | ||
DISTDT() | ;- Add distribution date to file #81.2
|
|
DISTDTQ | ||
CATUPD | ;- Entry point for CPT Category update
|
|
CATUPDQ | ||
MOD | ;- Update CPT Category file (#81.1) with modified names/CPT ranges
|
|
ADD | ;- Add new categories to CPT Category file (#81.1)
|
|
INACT | ;- Inactivate categories from CPT Category file (#81.1)
|
|
ERRMSG(ACT) | ;- Error message for "A"dd, "M"odify, "I"nactivate
|
|
AMSG | ;- Added categories message
|
|
MMSG | ;- Modified categories message
|
|
IMSG | ;- Inactive categories message
|
|
SETFLG | ;- Set print flag so headings will display once
|
|
CATS | ;- CPT Category records
|
FileNo | Call Tags |
---|---|
^DIC(81.1 - [#81.1] | Classic Fileman Calls |
^DIC(81.2 - [#81.2] | Classic Fileman Calls |