[613] | 1 | LBRYREPT ;SSI/ALA-LIBRARY PACKAGE STATUS REPORT ;[ 09/02/97 3:20 PM ]
|
---|
| 2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
| 3 | EN ; Report on the status of the Library TaskMan options
|
---|
| 4 | W !!,"LIBRARY TASKMAN OPTIONS STATUS REPORT",!
|
---|
| 5 | F OPT="LBRY TRAN SEND","LBRY TRAN PROCESS","LBRY TRAN PURGE" D DS
|
---|
| 6 | R !!,"Press Return to Continue: ",X:DTIME
|
---|
| 7 | K OPT,DA,TSK,Y,LDT,FRQ
|
---|
| 8 | Q
|
---|
| 9 | DS ; Check and display options
|
---|
| 10 | I $$FIND^XUTMOPT(OPT)=-1 D Q
|
---|
| 11 | . W !!!,OPT," is not set up in TaskMan. Please call IRM."
|
---|
| 12 | S DIC(0)="NZ",DIC="^DIC(19.2,",X=OPT D ^DIC
|
---|
| 13 | S DA=+Y,TSK=Y(0),FRQ=$P(TSK,"^",6)
|
---|
| 14 | S Y=$P(TSK,"^",2),LDT=$$FMTE^XLFDT(Y,1)
|
---|
| 15 | W !,OPT,?20,"Frequency: ",FRQ,?40,"Run Time: ",LDT
|
---|
| 16 | Q
|
---|