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 ---[H[J[2J[HPRCNDISP 650 printed Dec 13, 2024@01:54:14 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
