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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.1 - [#399.1] | MCCRUTL+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | MUCODES+1~, MUCODES+18*! |
| DD | MUCODES+1~, MUCODES+11! |
| DIC | MUCODES+1~, MUCODES+11*! |
| DIC(0 | MUCODES+11* |
| DIE | MUCODES+1~, MUCODES+18*! |
| DLAYGO | MUCODES+1~, MUCODES+11* |
| DO | MUCODES+1~, MUCODES+11! |
| DR | MUCODES+1~, MUCODES+14*, MUCODES+15*, MUCODES+16*, MUCODES+18! |
| IBA | MUCODES+1~ |
| IBCNT | MUCODES+1~, MUCODES+2*, MUCODES+12*, MSG+1 |
| IBFN | MUCODES+1~, MUCODES+12*, MUCODES+18 |
| IBI | MUCODES+1~, MUCODES+4* |
| IBLN | MUCODES+1~, MUCODES+4*, MUCODES+6, MUCODES+8, MUCODES+9, MUCODES+11, MUCODES+14, MUCODES+15, MUCODES+16 |
| IBTYPE | MUCODES+1~, MUCODES+2*, MUCODES+9, MSG+1 |
| IBX | MCCRUTL+2~, MCCRUTL+3* |
| IBY | MCCRUTL+2~*, MCCRUTL+3*, MCCRUTL+4 |
| P | MCCRUTL~, MCCRUTL+3 |
| U | POST+1~*, MUCODES+6, MUCODES+8, MUCODES+9, MUCODES+11, MUCODES+14, MUCODES+15, MUCODES+16, MCCRUTL+3 |
| X | MUCODES+1~, MUCODES+11*!, MUCODES+18!, MCCRUTL~, MCCRUTL+3 |
| Y | MUCODES+1~, MUCODES+11!, MUCODES+12, MUCODES+18! |
| Name | Field # of Occurrence |
|---|---|
| $T(MUCF+IBI | MUCODES+4 |
