source: FOIAVistA/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNRPT.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 511 bytes
Line 
1PRCNRPT ;SSI/SEB,ALA-Reports ;[ 12/04/95 2:16 PM ]
2 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
3DET ; 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
8CMR ; 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
13SER ; 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
Note: See TracBrowser for help on using the repository browser.