source: WorldVistAEHR/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNDISP.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 632 bytes
Line 
1PRCNDISP ;SSI/SEB-Display any transaction ;[ 03/28/96 12:32 PM ]
2 ;;1.0;Equipment/Turn-In Request;**14**;Sep 13, 1996
3USR ; Review a requestor's transactions
4 S PRCNUSR=0,DIC("S")="I $P(^(0),U,2)=DUZ"
5 G PRT
6CMR ; 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
10PPM ; Review transactions by PPM
11 S PRCNUSR=6
12PRT ; 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
17EXIT K DIC,IN,PRCNUSR,Y,JJ,PRCN,PRCNC,PRCNCMR,CMR,CMRZ
18 Q
Note: See TracBrowser for help on using the repository browser.