[613] | 1 | PRCNENG ;SSI/SEB-Engineering display/entry ;[ 07/19/96 2:33 PM ]
|
---|
| 2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
---|
| 3 | REV ; Review equipment requests
|
---|
| 4 | S DIC("S")="I $P(^(0),U,7)=8!($P(^(0),U,7)=26)!($P(^(0),U,7)=30)"
|
---|
| 5 | S DIC="^PRCN(413,",DIC(0)="AEQZ" D ^DIC K DIC("S") G EXIT1:Y<0
|
---|
| 6 | S DIE("NO^")="BACKOUTOK"
|
---|
| 7 | S (IN,DA)=+Y,PRCNUSR=2,DIE=DIC,DIE("NO^")="OUTOK",DR="[PRCNENG]",SP=$G(^PRCN(413,DA,2))
|
---|
| 8 | D SETUP^PRCNPRNT,ROOM:$P(SP,U,10)="Y"&($P(SP,U,19)="")
|
---|
| 9 | S %=1 W !!,"Do you wish to edit this transaction" D YN^DICN S PRCNEA=%
|
---|
| 10 | S STAT=$P(^PRCN(413,IN,0),U,7)
|
---|
| 11 | I STAT=30,PRCNEA=2 D ESIG G EXIT
|
---|
| 12 | I PRCNEA=1 D ^DIE
|
---|
| 13 | EXIT K DIC,DIE,DA,DR,IN,PRCNUSR,SP,Y,%,D,D0,FAIL,STAT,C,CON,PROJ,J,%,PRCNEA
|
---|
| 14 | G REV
|
---|
| 15 | EXIT1 K DIC
|
---|
| 16 | Q
|
---|
| 17 | ROOM ; Inform engineer if space available and room not in space file
|
---|
| 18 | W $C(7),!!,"LOCATION: ",$P(SP,U,11)," is not in the Space File..."
|
---|
| 19 | Q
|
---|
| 20 | ESIG ; Electronic signature
|
---|
| 21 | D ES^PRCNUTL
|
---|
| 22 | I $G(FAIL)<1 K FAIL Q
|
---|
| 23 | S DR="6////^S X=27;7////^S X=DT" D ^DIE
|
---|
| 24 | W !!,"Transaction returned to PPM"
|
---|
| 25 | Q
|
---|
| 26 | VEN ; Get and display vendor
|
---|
| 27 | S VEN=$P($G(^PRCN(413,D0,7)),U,16) S:VEN'="" VEN=$P(^PRC(440,VEN,0),U)
|
---|
| 28 | S VEN=$S($G(VEN)="":$P($G(^PRCN(413,D0,7)),U,4),1:VEN)
|
---|
| 29 | Q
|
---|
| 30 | LOC ; Get and display location
|
---|
| 31 | S LOC=$P($G(^PRCN(413,D0,2)),U,19) S:LOC'="" LOC=$P(^ENG("SP",LOC,0),U)
|
---|
| 32 | S LOC=$S($G(LOC)="":$P($G(^PRCN(413,D0,2)),U,11),1:LOC)
|
---|
| 33 | Q
|
---|