| 1 | ECTEST ;B'ham ISC/PTD-Display Planned Equipment Status ;01/29/91 08:00
|
|---|
| 2 | V ;;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 | ;
|
|---|
| 6 | 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): "
|
|---|
| 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
|
|---|
| 8 | EN1 ;ENTRY POINT, 'CHS' SET BY ANOTHER ROUTINE
|
|---|
| 9 | 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"
|
|---|
| 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
|
|---|
| 14 | EXIT K %X,B,BY,CHS,DHD,DIC,DIS,FLDS,FR,L,TO
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
