|
Last change
on this file since 1000 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
632 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
