PRCNRPT.m

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 ---PRCNRPT   527     printed  Apr 09, 2024@20:59:36                                                                                                                                                                                                      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