| 1 | PRCNPEDT ;SSI/ALA-PPM Equipment Request Edit ;[ 07/19/96 2:34 PM ]
|
|---|
| 2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
|---|
| 3 | RRV ; Review transaction for request
|
|---|
| 4 | S DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=15)!(ST=10)!(ST=31)!(ST=38)!(ST=39)!(ST=28)"
|
|---|
| 5 | S DIC="^PRCN(413,",DIC(0)="AEQZ",DIE=413 D ^DIC G EXIT:+Y<0 K DIC("S")
|
|---|
| 6 | S (IN,DA)=+Y,DIE("NO^")="OUTOK",DR="[PRCNPPE]",PRCNUSR=8
|
|---|
| 7 | D SETUP^PRCNPRNT
|
|---|
| 8 | W !,"Do you want to edit this request" S %=2 D YN^DICN G EXIT:%'=1
|
|---|
| 9 | D ^DIE
|
|---|
| 10 | ENG S %=2 W !!,"Resend to Engineering for Editing" D YN^DICN
|
|---|
| 11 | I %=0 D G ENG
|
|---|
| 12 | . W !!,"Enter 'Y'es if this request needs to be edited by the Engineering group."
|
|---|
| 13 | I %=1 D
|
|---|
| 14 | . S DA=D0,DR="6///^S X=8;7///^S X=DT" D ^DIE
|
|---|
| 15 | G RRV
|
|---|
| 16 | EXIT K IN,DA,D0,ST,PRCNUSR,DR,DIC,DIE,PRCNTDA,%
|
|---|
| 17 | Q
|
|---|
| 18 | TRV ; Review transaction for turn-in
|
|---|
| 19 | S DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=23)"
|
|---|
| 20 | S DIC="^PRCN(413.1,",DIC(0)="AEQZ",DIE=413.1 D ^DIC G EXIT:+Y<0 K DIC("S")
|
|---|
| 21 | S (IN,PRCNTDA,DA)=+Y,DR="[PRCNTIPED]",PRCNUSR=2
|
|---|
| 22 | D SETUP^PRCNTIPR
|
|---|
| 23 | W !,"Do you want to edit this request" S %=2 D YN^DICN G EXIT:%'=1
|
|---|
| 24 | D ^DIE
|
|---|
| 25 | G TRV
|
|---|
