| [613] | 1 | ECTEIN ;B'ham ISC/PTD-Enter/Edit Planned Equipment Data ;01/29/91 08:00
|
|---|
| 2 | V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
|
|---|
| 3 | ;SELECT ENTER/EDIT CHOICE
|
|---|
| 4 | CHS W !!,"At this time, you may:",!!,"1. Enter/Edit Planned Equipment",!,"2. Edit Priority of an Item",!,"3. Edit Status of an Item",!!,"Select a number (1 or 2 or 3): "
|
|---|
| 5 | R CHS:DTIME G:'$T!("^"[CHS) EXIT I CHS'?1N!(CHS<1)!(CHS>3) W !!,*7,"You MUST answer ""1"", ""2"", or ""3""." G CHS
|
|---|
| 6 | DIC W !! S DIC="^ECT(731.5,",DIC("A")="Select ITEM: " S DIC(0)=$S(CHS=1:"QEALM",1:"QEAM") S:CHS=1 DLAYGO=731.5 D ^DIC K DIC G:Y<0 EXIT S DA=+Y
|
|---|
| 7 | ;BRANCH BASED ON ENTER/EDIT CHOICE
|
|---|
| 8 | S DIE="^ECT(731.5," G:CHS=1 DIE1 G:CHS=2 DIE2 G:CHS=3 DIE3
|
|---|
| 9 | DIE1 S DR="[ECT EQUIPMENT INPUT]" D ^DIE K DA,DIE,DR G DIC
|
|---|
| 10 | ;
|
|---|
| 11 | DIE2 I $P(^ECT(731.5,DA,0),"^",3)=1 W !,"HIGH TECHNOLOGY EQUIPMENT LIST ITEM"
|
|---|
| 12 | I $P(^ECT(731.5,DA,0),"^",4)=1 W !,"IRM/ADP EQUIPMENT ITEM"
|
|---|
| 13 | W " ",$S($P(^ECT(731.5,DA,0),"^",5)="A":"ADDITIONAL",1:"REPLACEMENT")
|
|---|
| 14 | S DR="5" D ^DIE K DA,DIE,DR G DIC
|
|---|
| 15 | ;
|
|---|
| 16 | DIE3 S DR="[ECT STATUS EDIT]" D ^DIE K DA,DIE,DR G DIC
|
|---|
| 17 | ;
|
|---|
| 18 | EXIT K %,%X,%Y,C,CHS,DA,DIC,DIE,DLAYGO,DR,J,X,Y
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
