17 lines
1.1 KiB
Mathematica
17 lines
1.1 KiB
Mathematica
|
ECTEST ;B'ham ISC/PTD-Display Planned Equipment Status ;01/29/91 08:00
|
||
|
|
V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
|
||
|
|
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
|
||
|
|
I '$O(^ECT(731.5,0)) W *7,!!,"'VAMC Planned Equipment' File - #731.5 has not been populated on your system.",!! S XQUIT="" Q
|
||
|
|
;
|
||
|
|
CHS 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): "
|
||
|
|
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
|
||
|
|
EN1 ;ENTRY POINT, 'CHS' SET BY ANOTHER ROUTINE
|
||
|
|
DIP 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"
|
||
|
|
I CHS=1 S FLDS="1;L20,.01;C24,20,6;C70&",(FR,TO)="N"
|
||
|
|
I CHS=2 S FLDS="1;L20,.01;C24,21,6;C70&",(FR,TO)="A"
|
||
|
|
I CHS=3 S FLDS="1;L20,.01;C24,22,6;C70&",(FR,TO)="P"
|
||
|
|
D EN1^DIP
|
||
|
|
EXIT K %X,B,BY,CHS,DHD,DIC,DIS,FLDS,FR,L,TO
|
||
|
|
Q
|
||
|
|
;
|