PRCNPEDT ;SSI/ALA-PPM Equipment Request Edit ;[ 07/19/96 2:34 PM ]
;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
RRV ; Review transaction for request
S DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=15)!(ST=10)!(ST=31)!(ST=38)!(ST=39)!(ST=28)"
S DIC="^PRCN(413,",DIC(0)="AEQZ",DIE=413 D ^DIC G EXIT:+Y<0 K DIC("S")
S (IN,DA)=+Y,DIE("NO^")="OUTOK",DR="[PRCNPPE]",PRCNUSR=8
D SETUP^PRCNPRNT
W !,"Do you want to edit this request" S %=2 D YN^DICN G EXIT:%'=1
D ^DIE
ENG S %=2 W !!,"Resend to Engineering for Editing" D YN^DICN
I %=0 D G ENG
. W !!,"Enter 'Y'es if this request needs to be edited by the Engineering group."
I %=1 D
. S DA=D0,DR="6///^S X=8;7///^S X=DT" D ^DIE
G RRV
EXIT K IN,DA,D0,ST,PRCNUSR,DR,DIC,DIE,PRCNTDA,%
Q
TRV ; Review transaction for turn-in
S DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=23)"
S DIC="^PRCN(413.1,",DIC(0)="AEQZ",DIE=413.1 D ^DIC G EXIT:+Y<0 K DIC("S")
S (IN,PRCNTDA,DA)=+Y,DR="[PRCNTIPED]",PRCNUSR=2
D SETUP^PRCNTIPR
W !,"Do you want to edit this request" S %=2 D YN^DICN G EXIT:%'=1
D ^DIE
G TRV
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCNPEDT 1071 printed Oct 16, 2024@17:55:15 Page 2
PRCNPEDT ;SSI/ALA-PPM Equipment Request Edit ;[ 07/19/96 2:34 PM ]
+1 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
RRV ; Review transaction for request
+1 SET DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=15)!(ST=10)!(ST=31)!(ST=38)!(ST=39)!(ST=28)"
+2 SET DIC="^PRCN(413,"
SET DIC(0)="AEQZ"
SET DIE=413
DO ^DIC
if +Y<0
GOTO EXIT
KILL DIC("S")
+3 SET (IN,DA)=+Y
SET DIE("NO^")="OUTOK"
SET DR="[PRCNPPE]"
SET PRCNUSR=8
+4 DO SETUP^PRCNPRNT
+5 WRITE !,"Do you want to edit this request"
SET %=2
DO YN^DICN
if %'=1
GOTO EXIT
+6 DO ^DIE
ENG SET %=2
WRITE !!,"Resend to Engineering for Editing"
DO YN^DICN
+1 IF %=0
Begin DoDot:1
+2 WRITE !!,"Enter 'Y'es if this request needs to be edited by the Engineering group."
End DoDot:1
GOTO ENG
+3 IF %=1
Begin DoDot:1
+4 SET DA=D0
SET DR="6///^S X=8;7///^S X=DT"
DO ^DIE
End DoDot:1
+5 GOTO RRV
EXIT KILL IN,DA,D0,ST,PRCNUSR,DR,DIC,DIE,PRCNTDA,%
+1 QUIT
TRV ; Review transaction for turn-in
+1 SET DIC("S")="S ST=$P(^(0),U,7) I ST=6!(ST=23)"
+2 SET DIC="^PRCN(413.1,"
SET DIC(0)="AEQZ"
SET DIE=413.1
DO ^DIC
if +Y<0
GOTO EXIT
KILL DIC("S")
+3 SET (IN,PRCNTDA,DA)=+Y
SET DR="[PRCNTIPED]"
SET PRCNUSR=2
+4 DO SETUP^PRCNTIPR
+5 WRITE !,"Do you want to edit this request"
SET %=2
DO YN^DICN
if %'=1
GOTO EXIT
+6 DO ^DIE
+7 GOTO TRV
