| [613] | 1 | ENWARD ;(WASH ISC)/DH-Access to Electronic Work Orders ;1.6.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**35**;Aug 17, 1993
|
|---|
| 3 | WRDEDT ;Edit electronic work orders
|
|---|
| 4 | S DIC="^ENG(6920,",DIC(0)="AEQM",DIC("S")="I $D(^(1)),$P(^(1),U,1)=DUZ,$P(^(0),U,1)=$P(^(0),U,6)"
|
|---|
| 5 | W !! D ^DIC K DIC("S") S DA=+Y G:DA'>0 EXIT
|
|---|
| 6 | I $D(^ENG(6920,DA,5)),$P(^(5),U,2)]"" W !!,"This work order has been closed out.",*7 G WRDEDT
|
|---|
| 7 | L +^ENG(6920,DA):5 I '$T W !!,"This entry being edited by another user. Please try later.",*7 G WRDEDT
|
|---|
| 8 | N ENLOCK S ENLOCK=DA
|
|---|
| 9 | S DIE="^ENG(6920,",DR=$S($D(^DIE("B","ENZWOWARD")):"[ENZWOWARD]",1:"[ENWOWARD]")
|
|---|
| 10 | D ^DIE L -^ENG(6920,ENLOCK)
|
|---|
| 11 | WRDEDT2 W !,"Print this work order" S %=2 D YN^DICN G:%=2 WRDEDT I %=0 W !,"Please answer 'Y'es or 'N'o." G WRDEDT2
|
|---|
| 12 | D P^ENEWOD
|
|---|
| 13 | G WRDEDT
|
|---|
| 14 | ;
|
|---|
| 15 | WRDCK ;Display electronic work order
|
|---|
| 16 | D SEL^ENEWOD
|
|---|
| 17 | ;
|
|---|
| 18 | EXIT K ENSHKEY,ENSHABR,DIC,DR,DA,ENA,ENDSTAT,ENWO
|
|---|
| 19 | K EN,ENB,ENORIG,ENX,ENNX
|
|---|
| 20 | Q
|
|---|
| 21 | ;ENWARD
|
|---|
