source: FOIAVistA/trunk/r/LIBRARY-LBR-LBRS/LBRYREPT.m@ 1806

Last change on this file since 1806 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 648 bytes
Line 
1LBRYREPT ;SSI/ALA-LIBRARY PACKAGE STATUS REPORT ;[ 09/02/97 3:20 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3EN ; 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
9DS ; 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
Note: See TracBrowser for help on using the repository browser.