source: FOIAVistA/trunk/r/SURGERY-SR/SRODEV.m@ 811

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

initial load of FOIAVistA 6/30/08 version
File size: 258 bytes
Line 
1SRODEV ;B'HAM ISC/MAM - UPDATE O.R. SCHEDULE DEVICE ; 9 APR 1992 5:20 pm
2 ;;3.0; Surgery ;;24 Jun 93
3 W @IOF,!,"Update O.R. Schedule Devices",!,"----------------------------",!!
4 K DR,DIE,DA S DA=SRSITE,DIE=133,DR=12 D ^DIE K DR,DA,DIE
5 D ^SRSKILL W @IOF
6 Q
Note: See TracBrowser for help on using the repository browser.