source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENWARD.m@ 780

Last change on this file since 780 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 897 bytes
Line 
1ENWARD ;(WASH ISC)/DH-Access to Electronic Work Orders ;1.6.97
2 ;;7.0;ENGINEERING;**35**;Aug 17, 1993
3WRDEDT ;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)
11WRDEDT2 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 ;
15WRDCK ;Display electronic work order
16 D SEL^ENEWOD
17 ;
18EXIT K ENSHKEY,ENSHABR,DIC,DR,DA,ENA,ENDSTAT,ENWO
19 K EN,ENB,ENORIG,ENX,ENNX
20 Q
21 ;ENWARD
Note: See TracBrowser for help on using the repository browser.