PRCNTIED.m

PRCNTIED ;SSI/SEB-Edit a turn-in request ;[ 05/31/96  10:42 AM ]

 ;;1.0;Equipment/Turn-In Request;**11**;Sep 13, 1996

EN S DIC="^PRCN(413.1,",DIC("S")="I $P(^(0),U,2)=DUZ&($P(^(0),U,7)=1)!($P(^(0),U,7)=4)"

 S DIC(0)="AEQZ" D ^DIC G EXIT:Y<0 S ST=$P(^PRCN(413.1,+Y,0),U,7)

 S (IN,PRCNTDA)=+Y,PRCNUSR=$S(ST=4:2,1:0) D SETUP^PRCNTIPR

EDIT ; Edit the transaction if desired

 W !!,"Do you want to edit this request" S %=2 D YN^DICN

 I %=0 G EDIT

 I %'=1 G EXIT

 S DIE=413.1,DR="[PRCNTIRQ]",(DA,IN)=PRCNTDA,EDIT=1 D ^DIE

 I $P($G(^PRCN(413.1,IN,0)),U,10)]"" S $P(^(0),U,10)="" K ^PRCN(413.1,IN,2)

EXIT K DIC,DIE,DA,DR,EDIT,IN,PRCNUSR,PRCNTDA,Y,%,ST

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCNTIED   659     printed  Apr 09, 2024@20:59:22                                                                                                                                                                                                     Page 2

PRCNTIED  ;SSI/SEB-Edit a turn-in request ;[ 05/31/96  10:42 AM ]

 +1       ;;1.0;Equipment/Turn-In Request;**11**;Sep 13, 1996

EN         SET DIC="^PRCN(413.1,"

           SET DIC("S")="I $P(^(0),U,2)=DUZ&($P(^(0),U,7)=1)!($P(^(0),U,7)=4)"

 +1        SET DIC(0)="AEQZ"

           DO ^DIC

           if Y<0

               GOTO EXIT

           SET ST=$PIECE(^PRCN(413.1,+Y,0),U,7)

 +2        SET (IN,PRCNTDA)=+Y

           SET PRCNUSR=$SELECT(ST=4:2,1:0)

           DO SETUP^PRCNTIPR

EDIT      ; Edit the transaction if desired

 +1        WRITE !!,"Do you want to edit this request"

           SET %=2

           DO YN^DICN

 +2        IF %=0

               GOTO EDIT

 +3        IF %'=1

               GOTO EXIT

 +4        SET DIE=413.1

           SET DR="[PRCNTIRQ]"

           SET (DA,IN)=PRCNTDA

           SET EDIT=1

           DO ^DIE

 +5        IF $PIECE($GET(^PRCN(413.1,IN,0)),U,10)]""

               SET $PIECE(^(0),U,10)=""

               KILL ^PRCN(413.1,IN,2)

EXIT       KILL DIC,DIE,DA,DR,EDIT,IN,PRCNUSR,PRCNTDA,Y,%,ST

 +1        QUIT