24 lines
862 B
Mathematica
24 lines
862 B
Mathematica
PRCNSTAT ;SSI/SEB-Request Status Report ;[ 09/13/96 4:12 PM ]
|
|
;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
|
USR ; Review a requestor's transactions
|
|
S BY=.01,DIS(0)="I $P(^PRCN(413,D0,0),U,2)=DUZ",WHO="requestor"
|
|
D PRT Q
|
|
CMR ; Review a CMR Official's transactions
|
|
S BY="4.5,.01",DIS(0)="I $P(^PRCN(413,D0,0),U,6)=DUZ",WHO="CMR Official"
|
|
D PRT Q
|
|
PPM ; Print for PPM all transactions
|
|
S BY=".01",WHO="PPM: "
|
|
S DIS(0)="I $P(^PRCN(413,D0,0),U,7)'<6!($P(^(0),U,7)=20)"
|
|
D PRT Q
|
|
PRT S DHD="W ?0 D HDR^PRCNSTAT",L="",DIC="^PRCN(413,",FLDS="[PRCNSTAT]"
|
|
S (FR,TO)=""
|
|
D EN1^DIP
|
|
K WHO,DIS,DHD,L,DIC,FLDS,BY,FR,TO,I
|
|
Q
|
|
HDR ; Prints a header for the Status Report
|
|
W !,"Equipment Request Status Report by ",WHO," ",$P(^VA(200,DUZ,0),U)
|
|
W !?61,"Date Status"
|
|
W !,"Transaction #",?18,"Description",?39,"Status",?61
|
|
W "Entered Date",! F I=1:1:79 W "-"
|
|
Q
|