IB20P338 ;ALB/CXW - IB*2.0*338 POST INIT: MCCR UTILITY CODES (#399.1) ; 1/20/06
Source file <IB20P338.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ;
|
|
START | ;
|
|
END | ;
|
|
MUCODES | ; Add MCCR UTILITY Codes to 399.1
|
|
MSG | ;add message to install giving count and type of codes added
|
|
MCCRUTL(X,P) | ; returns IFN of item in 399.1 if Code is found and piece P is true
|
|
MUCF | ; TYPE #^TYPE FLD^.02 CODE ^.03 ABBR^.16 OCC REL^.17 OCC SPAN^.19 VC AMNT^.01 NAME
|
FileNo | Call Tags |
---|---|
^DGCR(399.1 - [#399.1] | Classic Fileman Calls |