PSBCSUTX ;BIRMINGHAM/TEJ- BCMA-HSC COVER SHEET UTILITIES 2 ;Mar 2004
Source file <PSBCSUTX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD | ; otput: ORD-ORC-DD-ADD-SOL-ID-ADM-CMT-END segmnts
|
|
| ORD | ;
|
|
| ADM | ; Admn data
|
|
| NEXTADM(XX,YY) | ;
|
|
| GETINIT(PSBIEN,PSBTYPE) | ;Get initials or name of who actually took the action, PSB*3*72
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^PSB(53.79 - [#53.79] | GET1^DIQ |