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
|
Name | Field # of Occurrence |
---|---|
^DIC | DISTDT+7 |
FILE^DICN | ADD+9 |
^DIE | DISTDT+14, MOD+14, ADD+16, INACT+15 |
EN^ICPT63P2 | EN+9 |
BMES^XPDUTL | EN+13, DISTUP+3, DISTUP+5, CATUPD+4, CATUPD+14, MOD+18, ERRMSG+4, AMSG+2, MMSG+2, IMSG+2 |
MES^XPDUTL | EN+12, EN+14, EN+15, DISTUP+2, DISTUP+6, MOD+19, ADD+20, INACT+18, AMSG+3, AMSG+4 , MMSG+3, IMSG+3, IMSG+4 |
FileNo | Call Tags |
---|---|
^DIC(81.1 - [#81.1] | Classic Fileman Calls |
^DIC(81.2 - [#81.2] | Classic Fileman Calls |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | ERRMSG~, ERRMSG+3 |
CATEG | CATUPD+2~, CATUPD+7*, CATUPD+10, CATUPD+13, MOD+6, MOD+13, ADD+5, ADD+8, ADD+15, INACT+6 , ERRMSG+4, SETFLG+2 |
CATI | CATUPD+2~, CATUPD+7* |
CATIEN | MOD+2~, MOD+3*, MOD+6*, MOD+9, MOD+10, MOD+13, MOD+17, INACT+2~, INACT+3*, INACT+6* , INACT+9, INACT+10, INACT+11 |
CATNNDE | MOD+2~, MOD+3*, MOD+17*, MOD+19, ADD+2~, ADD+19*, ADD+20 |
CATNODE | MOD+2~, MOD+3*, MOD+10*, MOD+18, INACT+2~, INACT+3*, INACT+10*, INACT+18 |
DA | DISTDT+11*, DISTDTQ, MOD+13*, MOD+14!, ADD+2~, ADD+15*, ADD+19, INACT+11*, INACT+15! |
DD | ADD+9! |
DIC | DISTDT+1~, DISTDT+2*, DISTDT+12, ADD+8*, ADD+15, ADD+16! |
DIC(0 | DISTDT+3*, ADD+8* |
DIE | DISTDT+1~, DISTDT+12*, MOD+13*, MOD+14!, ADD+15*, ADD+16!, INACT+11*, INACT+15! |
DLAYGO | ADD+8*, ADD+9! |
DO | ADD+9! |
DR | DISTDT+1~, DISTDT+13*, MOD+13*, MOD+14!, ADD+15*, ADD+16!, INACT+14*, INACT+15! |
MSG | ERRMSG+2~, ERRMSG+3*, ERRMSG+4 |
PRTFLG | CATUPD+2~, CATUPD+3*, CATUPD+10, SETFLG+2* |
X | DISTDT+1~, DISTDT+6*, ADD+8*, ADD+9! |
Y | DISTDT+1~, DISTDT+8, DISTDT+11, ADD+2~, ADD+12, ADD+15 |
Name | Field # of Occurrence |
---|---|
$T(CATS+CATI | CATUPD+7 |