NAMEXU EPCS DISUSER PRIVS
DESCRIPTIONThis option is for the DEA ePCS project and will print all DISUSER users whohave privileges to any of the SCHEDULEs II through V and who have a DEA# or VA#. This option prints the NAME, SCHEDULESs, VA#, DUZ, TERMINATION DATEand DEA#.
BY[XU EPCS DISUSER2 SORT]
CREATORUSER,SEVENTEEN
DIC {DIP}VA(200,
DIS(0)I $$VUSER2^XUEPCSRT(D0,0)
FLDS[XU EPCS DISUSER PRIVS PRINT]
L.0
MENU TEXTPrint DISUSER Prescribers with Privileges
OUT OF ORDER MESSAGEPLACED OUT OF ORDER BY XU*8*689
PACKAGEKERNEL
TYPEprint
UPPERCASE MENU TEXTPRINT DISUSER PRESCRIBERS WITH