| NAME | XU EPCS DISUSER XDATE EXPIRES |
| DESCRIPTION | This option is for the DEA ePCS project and will print all DISUSER users with a DEA# and where the DEA Expiration Date will expire within 30 days. This option prints the Name, DEA# and DEA Expiration Date. |
| BY | [XU EPCS DISUSER SORT] |
| CREATOR | USER,SEVENTEEN |
| DIC {DIP} | VA(200, |
| DIS(0) | I $$XT30^XUEPCSRT(D0,0) |
| FLDS | [XU EPCS DISUSER XDATE2 PRINT] |
| L. | 0 |
| MENU TEXT | Print DISUSER DEA Expiration Date Expires 30 days |
| OUT OF ORDER MESSAGE | PLACED OUT OF ORDER BY XU*8*765 |
| PACKAGE | KERNEL |
| TYPE | print |
| UPPERCASE MENU TEXT | PRINT DISUSER DEA EXPIRATION D |