1 | PRCNRPT ;SSI/SEB,ALA-Reports ;[ 12/04/95 2:16 PM ]
|
---|
2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
---|
3 | DET ; Print detail report
|
---|
4 | S FLDS="[PRCNDET]",L=0,DIC="^PRCN(413,",BY=.01,FR="",TO="",DHD="@"
|
---|
5 | D EN1^DIP
|
---|
6 | K FLDS,L,DIC,BY,FR,TO,DHD
|
---|
7 | Q
|
---|
8 | CMR ; Print turn-ins by CMR
|
---|
9 | S FLDS="[PRCNTIST]",L=0,DIC="^PRCN(413.1,",BY=15,DHD="TURN IN REPORT BY CMR"
|
---|
10 | D EN1^DIP
|
---|
11 | K FLDS,L,DIC,BY,FR,TO,DHD
|
---|
12 | Q
|
---|
13 | SER ; Print turn-ins by Service
|
---|
14 | S FLDS="[PRCNTIST]",L=0,DIC="^PRCN(413.1,",BY=2,DHD="TURN-IN REPORT BY SERVICE"
|
---|
15 | D EN1^DIP
|
---|
16 | Q
|
---|