PRCNRPT ;SSI/SEB,ALA-Reports ;[ 12/04/95 2:16 PM ]
;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
DET ; Print detail report
S FLDS="[PRCNDET]",L=0,DIC="^PRCN(413,",BY=.01,FR="",TO="",DHD="@"
D EN1^DIP
K FLDS,L,DIC,BY,FR,TO,DHD
Q
CMR ; Print turn-ins by CMR
S FLDS="[PRCNTIST]",L=0,DIC="^PRCN(413.1,",BY=15,DHD="TURN IN REPORT BY CMR"
D EN1^DIP
K FLDS,L,DIC,BY,FR,TO,DHD
Q
SER ; Print turn-ins by Service
S FLDS="[PRCNTIST]",L=0,DIC="^PRCN(413.1,",BY=2,DHD="TURN-IN REPORT BY SERVICE"
D EN1^DIP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCNRPT 527 printed Oct 16, 2024@17:55:25 Page 2
PRCNRPT ;SSI/SEB,ALA-Reports ;[ 12/04/95 2:16 PM ]
+1 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
DET ; Print detail report
+1 SET FLDS="[PRCNDET]"
SET L=0
SET DIC="^PRCN(413,"
SET BY=.01
SET FR=""
SET TO=""
SET DHD="@"
+2 DO EN1^DIP
+3 KILL FLDS,L,DIC,BY,FR,TO,DHD
+4 QUIT
CMR ; Print turn-ins by CMR
+1 SET FLDS="[PRCNTIST]"
SET L=0
SET DIC="^PRCN(413.1,"
SET BY=15
SET DHD="TURN IN REPORT BY CMR"
+2 DO EN1^DIP
+3 KILL FLDS,L,DIC,BY,FR,TO,DHD
+4 QUIT
SER ; Print turn-ins by Service
+1 SET FLDS="[PRCNTIST]"
SET L=0
SET DIC="^PRCN(413.1,"
SET BY=2
SET DHD="TURN-IN REPORT BY SERVICE"
+2 DO EN1^DIP
+3 QUIT
