PRCNDISP.m

PRCNDISP ;SSI/SEB-Display any transaction ;[ 03/28/96  12:32 PM ]

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

USR ;  Review a requestor's transactions

 S PRCNUSR=0,DIC("S")="I $P(^(0),U,2)=DUZ"

 G PRT

CMR ;  Review a CMR Official's transactions

 S PRCNC=DUZ D CMR^PRCNCMR K PRCNC

 S PRCNUSR=0,DIC("S")="S CMRZ=$P(^(0),U,16) I $D(PRCNCMR(CMRZ))"

 G PRT

PPM ;  Review transactions by PPM

 S PRCNUSR=6

PRT ; Select a transaction, then display it.

 I $G(PRCNUSR)="" S PRCNUSR=10

 S DIC="^PRCN(413,",DIC(0)="AEQZ" D ^DIC G EXIT:Y<0

 S IN=+Y K DIC("S")

 D SETUP^PRCNPRNT

EXIT K DIC,IN,PRCNUSR,Y,JJ,PRCN,PRCNC,PRCNCMR,CMR,CMRZ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCNDISP   650     printed  Mar 13, 2025@20:58:54                                                                                                                                                                                                     Page 2

PRCNDISP  ;SSI/SEB-Display any transaction ;[ 03/28/96  12:32 PM ]

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

USR       ;  Review a requestor's transactions

 +1        SET PRCNUSR=0

           SET DIC("S")="I $P(^(0),U,2)=DUZ"

 +2        GOTO PRT

CMR       ;  Review a CMR Official's transactions

 +1        SET PRCNC=DUZ

           DO CMR^PRCNCMR

           KILL PRCNC

 +2        SET PRCNUSR=0

           SET DIC("S")="S CMRZ=$P(^(0),U,16) I $D(PRCNCMR(CMRZ))"

 +3        GOTO PRT

PPM       ;  Review transactions by PPM

 +1        SET PRCNUSR=6

PRT       ; Select a transaction, then display it.

 +1        IF $GET(PRCNUSR)=""

               SET PRCNUSR=10

 +2        SET DIC="^PRCN(413,"

           SET DIC(0)="AEQZ"

           DO ^DIC

           if Y<0

               GOTO EXIT

 +3        SET IN=+Y

           KILL DIC("S")

 +4        DO SETUP^PRCNPRNT

EXIT       KILL DIC,IN,PRCNUSR,Y,JJ,PRCN,PRCNC,PRCNCMR,CMR,CMRZ

 +1        QUIT