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