source: FOIAVistA/trunk/r/LIBRARY-LBR-LBRS/LBRYHSF.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 300 bytes
Line 
1LBRYHSF ;ISC2/DJM-NETWORK AUDIOVISUAL UPDATE ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3SERV W @IOF,?5,"VA Library Service File View ",?60 S Y=DT X ^DD("DD") W Y,!
4 S DIC="^DIC(49,",DIC(0)="AEMQ" D ^DIC Q:Y<0 S DA=+Y
5 K DR D EN^DIQ
6 R !!,"Press return to continue...",C:DTIME
7 G SERV
Note: See TracBrowser for help on using the repository browser.