ECTEIN.m

ECTEIN ;B'ham ISC/PTD-Enter/Edit Planned Equipment Data ;01/29/91 08:00

V ;;1.05;INTERIM MANAGEMENT SUPPORT;;

 ;SELECT ENTER/EDIT CHOICE

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): "

 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

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

 ;BRANCH BASED ON ENTER/EDIT CHOICE

 S DIE="^ECT(731.5," G:CHS=1 DIE1 G:CHS=2 DIE2 G:CHS=3 DIE3

DIE1 S DR="[ECT EQUIPMENT INPUT]" D ^DIE K DA,DIE,DR G DIC

 ;

DIE2 I $P(^ECT(731.5,DA,0),"^",3)=1 W !,"HIGH TECHNOLOGY EQUIPMENT LIST ITEM"

 I $P(^ECT(731.5,DA,0),"^",4)=1 W !,"IRM/ADP EQUIPMENT ITEM"

 W "          ",$S($P(^ECT(731.5,DA,0),"^",5)="A":"ADDITIONAL",1:"REPLACEMENT")

 S DR="5" D ^DIE K DA,DIE,DR G DIC

 ;

DIE3 S DR="[ECT STATUS EDIT]" D ^DIE K DA,DIE,DR G DIC

 ;

EXIT K %,%X,%Y,C,CHS,DA,DIC,DIE,DLAYGO,DR,J,X,Y

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECTEIN   1116     printed  Apr 09, 2024@21:05:11                                                                                                                                                                                                      Page 2

ECTEIN    ;B'ham ISC/PTD-Enter/Edit Planned Equipment Data ;01/29/91 08:00

V         ;;1.05;INTERIM MANAGEMENT SUPPORT;;

 +1       ;SELECT ENTER/EDIT CHOICE

CHS        WRITE !!,"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): "

 +1        READ CHS:DTIME

           if '$TEST!("^"[CHS)

               GOTO EXIT

           IF CHS'?1N!(CHS<1)!(CHS>3)

               WRITE !!,*7,"You MUST answer ""1"", ""2"", or ""3""."

               GOTO CHS

DIC        WRITE !!

           SET DIC="^ECT(731.5,"

           SET DIC("A")="Select ITEM: "

           SET DIC(0)=$SELECT(CHS=1:"QEALM",1:"QEAM")

           if CHS=1

               SET DLAYGO=731.5

           DO ^DIC

           KILL DIC

           if Y<0

               GOTO EXIT

           SET DA=+Y

 +1       ;BRANCH BASED ON ENTER/EDIT CHOICE

 +2        SET DIE="^ECT(731.5,"

           if CHS=1

               GOTO DIE1

           if CHS=2

               GOTO DIE2

           if CHS=3

               GOTO DIE3

DIE1       SET DR="[ECT EQUIPMENT INPUT]"

           DO ^DIE

           KILL DA,DIE,DR

           GOTO DIC

 +1       ;

DIE2       IF $PIECE(^ECT(731.5,DA,0),"^",3)=1

               WRITE !,"HIGH TECHNOLOGY EQUIPMENT LIST ITEM"

 +1        IF $PIECE(^ECT(731.5,DA,0),"^",4)=1

               WRITE !,"IRM/ADP EQUIPMENT ITEM"

 +2        WRITE "          ",$SELECT($PIECE(^ECT(731.5,DA,0),"^",5)="A":"ADDITIONAL",1:"REPLACEMENT")

 +3        SET DR="5"

           DO ^DIE

           KILL DA,DIE,DR

           GOTO DIC

 +4       ;

DIE3       SET DR="[ECT STATUS EDIT]"

           DO ^DIE

           KILL DA,DIE,DR

           GOTO DIC

 +1       ;

EXIT       KILL %,%X,%Y,C,CHS,DA,DIC,DIE,DLAYGO,DR,J,X,Y

 +1        QUIT 

 +2       ;