source: WorldVistAEHR/trunk/r/INTERIM_MANAGEMENT_SUPPORT-ECT/ECTEQT.m@ 1073

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

initial load of WorldVistAEHR

File size: 635 bytes
RevLine 
[613]1ECTEQT ;B'ham ISC/PTD-Inquire to Planned Equipment Item ;01/29/91 08:00
2V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
3 I '$D(^ECT(731.5)) W *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'VAMC Planned Equipment' File - #731.5 is not loaded on your system.",!! S XQUIT="" Q
4 I '$O(^ECT(731.5,0)) W *7,!!,"'VAMC Planned Equipment' File - #731.5 has not been populated on your system.",!! S XQUIT="" Q
5 ;
6DIC W !! S DIC="^ECT(731.5,",DIC(0)="QEAM",DIC("A")="Select EQUIPMENT item: " D ^DIC G:Y<0 EXIT S DA=+Y
7 K %ZIS S IOP="HOME" D ^%ZIS K %ZIS,IOP W @IOF,!!?30,"PLANNED EQUIPMENT DATA:",!!
8 D EN^DIQ K DIC,Y,DA G DIC
9EXIT K %,A,DA,DIC,POP,S,X,Y
10 Q
11 ;
Note: See TracBrowser for help on using the repository browser.