- 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 Jan 18, 2025@02:55:49 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