Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
632 bytes
|
Line | |
---|
1 | PRCNDISP ;SSI/SEB-Display any transaction ;[ 03/28/96 12:32 PM ]
|
---|
2 | ;;1.0;Equipment/Turn-In Request;**14**;Sep 13, 1996
|
---|
3 | USR ; Review a requestor's transactions
|
---|
4 | S PRCNUSR=0,DIC("S")="I $P(^(0),U,2)=DUZ"
|
---|
5 | G PRT
|
---|
6 | CMR ; Review a CMR Official's transactions
|
---|
7 | S PRCNC=DUZ D CMR^PRCNCMR K PRCNC
|
---|
8 | S PRCNUSR=0,DIC("S")="S CMRZ=$P(^(0),U,16) I $D(PRCNCMR(CMRZ))"
|
---|
9 | G PRT
|
---|
10 | PPM ; Review transactions by PPM
|
---|
11 | S PRCNUSR=6
|
---|
12 | PRT ; Select a transaction, then display it.
|
---|
13 | I $G(PRCNUSR)="" S PRCNUSR=10
|
---|
14 | S DIC="^PRCN(413,",DIC(0)="AEQZ" D ^DIC G EXIT:Y<0
|
---|
15 | S IN=+Y K DIC("S")
|
---|
16 | D SETUP^PRCNPRNT
|
---|
17 | EXIT K DIC,IN,PRCNUSR,Y,JJ,PRCN,PRCNC,PRCNCMR,CMR,CMRZ
|
---|
18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.