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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCNSTAT 885 printed Nov 22, 2024@17:04:50 Page 2
PRCNSTAT ;SSI/SEB-Request Status Report ;[ 09/13/96 4:12 PM ]
+1 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
USR ; Review a requestor's transactions
+1 SET BY=.01
SET DIS(0)="I $P(^PRCN(413,D0,0),U,2)=DUZ"
SET WHO="requestor"
+2 DO PRT
QUIT
CMR ; Review a CMR Official's transactions
+1 SET BY="4.5,.01"
SET DIS(0)="I $P(^PRCN(413,D0,0),U,6)=DUZ"
SET WHO="CMR Official"
+2 DO PRT
QUIT
PPM ; Print for PPM all transactions
+1 SET BY=".01"
SET WHO="PPM: "
+2 SET DIS(0)="I $P(^PRCN(413,D0,0),U,7)'<6!($P(^(0),U,7)=20)"
+3 DO PRT
QUIT
PRT SET DHD="W ?0 D HDR^PRCNSTAT"
SET L=""
SET DIC="^PRCN(413,"
SET FLDS="[PRCNSTAT]"
+1 SET (FR,TO)=""
+2 DO EN1^DIP
+3 KILL WHO,DIS,DHD,L,DIC,FLDS,BY,FR,TO,I
+4 QUIT
HDR ; Prints a header for the Status Report
+1 WRITE !,"Equipment Request Status Report by ",WHO," ",$PIECE(^VA(200,DUZ,0),U)
+2 WRITE !?61,"Date Status"
+3 WRITE !,"Transaction #",?18,"Description",?39,"Status",?61
+4 WRITE "Entered Date",!
FOR I=1:1:79
WRITE "-"
+5 QUIT
