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 |