PRCNSTAT.m

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 ---PRCNSTAT   885     printed  Feb 18, 2025@23:21:03                                                                                                                                                                                                     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