19 lines
632 B
Mathematica
19 lines
632 B
Mathematica
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
|