source: WorldVistAEHR/trunk/r/INTERIM_MANAGEMENT_SUPPORT-ECT/ECTEST.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1ECTEST ;B'ham ISC/PTD-Display Planned Equipment Status ;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 ;
6CHS W !!,"Choose the equipment 'status':",!!,"1. Requested, but not yet approved or purchased",!,"2. Approved to be purchased",!,"3. Approved and purchased",!!,"Choose a number (1 - 3): "
7 R CHS:DTIME G:'$T!("^"[CHS) EXIT I CHS'?1N!(CHS<1)!(CHS>3) W !!,*7,"You MUST answer with a number between 1 and 3." G CHS
8EN1 ;ENTRY POINT, 'CHS' SET BY ANOTHER ROUTINE
9DIP S DIC="^ECT(731.5,",L=0,BY="@23,1" S DHD=$S(CHS=3:"PURCHASED",CHS=2:"APPROVED",1:"REQUESTED, NOT APPROVED"),DHD=DHD_" EQUIPMENT"
10 I CHS=1 S FLDS="1;L20,.01;C24,20,6;C70&",(FR,TO)="N"
11 I CHS=2 S FLDS="1;L20,.01;C24,21,6;C70&",(FR,TO)="A"
12 I CHS=3 S FLDS="1;L20,.01;C24,22,6;C70&",(FR,TO)="P"
13 D EN1^DIP
14EXIT K %X,B,BY,CHS,DHD,DIC,DIS,FLDS,FR,L,TO
15 Q
16 ;
Note: See TracBrowser for help on using the repository browser.