source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYRPT.m@ 1361

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

initial load of WorldVistAEHR

File size: 4.9 KB
Line 
1LBRYRPT ;ISC2/DJM-LIBRARY TECHNICIAN REPORTS ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2,9,12**;Mar 11, 1996
3MIL ;Missing Issues List Report
4 S TEXT="Missing Issues List" D HEAD G EXIT:$G(DUOUT)=1
5 S L=0,DIC="^LBRY(682,"
6 S DIS(0)="I $P(^LBRY(682,D0,0),U,4)=LBRYPTR"
7 S FLDS="[LBRY MISSING ISSUES LIST]",BY="[LBRY MISSING ISSUES LIST]"
8 S %=0 I $D(LBRYPTR),$P($G(^LBRY(680.6,LBRYPTR,0)),U,10) D
9 . W !,"List CoreFLS Vendors" S %=1 D YN^DICN
10 S FLDS=$S(%=1:"[LBRY MISSING ISSUES LIST 2]",1:FLDS),BY=$S(%=1:"[LBRY MISSING ISSUES LIST 2]",1:BY)
11 D EN1^DIP
12 G EXIT
13DFR ;Titles Due for Renewal Report
14 S TEXT="Titles Due For Renewal" D HEAD G EXIT:$G(DUOUT)=1
15 S L=0,DIC="^LBRY(681,"
16 S DIS(0)="I $P($G(^LBRY(681,D0,1)),U,7)="""""
17 S DIS(1)="I $P(^LBRY(681,D0,0),U,4)=LBRYPTR"
18 S %=0 I $D(LBRYPTR),$P($G(^LBRY(680.6,LBRYPTR,0)),U,10) D
19 . W "List CoreFLS vendors" S %=1 D YN^DICN
20 S FLDS=$S(%=1:"[LBRY TITLES DUE RENEWAL 2]",1:"[LBRY TITLES DUE RENEWAL]"),BY="[LBRY TITLES DUE RENEWAL]"
21 D EN1^DIP
22 G EXIT
23LST ;Total local holdings, alphabetical w/brief or full listings
24 S TEXT="All Serials Titles" D HEAD G EXIT:$G(DUOUT)=1
25LST0 W "Do you want DETAILED HOLDINGS listed" S %=1 D YN^DICN
26 S FLDS=$S(%=1:"[LBRY TITLE ALPHABETICAL]",%=2:"[LBRY TITLE ALPHABETICAL BRIEF]",1:"") G:%=-1 EXIT G:%=0 LST1
27 S DIS(0)="I $P(^LBRY(680,D0,0),U,4)=LBRYPTR"
28 S L=0,DIC="^LBRY(680,",BY="[LBRY TITLE ALPHABETICAL]"
29 D EN1^DIP
30 G EXIT
31LST1 W !!,"Yes will present a complete description of the title's holdings."
32 W !,"No will present a brief description of the title's holdings.",!!
33 G LST0
34LTL ;Total local holdings printed by location w/brief or full holdings
35 S TEXT="Local Titles by Location" D HEAD G EXIT:$G(DUOUT)=1
36LTL0 W "Do you want DETAILED HOLDINGS listed" S %=1 D YN^DICN
37 S FLDS=$S(%=1:"[LBRY TITLE LOCATION]",%=2:"[LBRY TITLE LOCATION BRIEF]",1:"") G:%=-1 EXIT G:%=0 LTL1
38 S DIS(0)="I $P(^LBRY(680,D0,0),U,4)=LBRYPTR"
39 S L=0,DIC="^LBRY(680,",BY="[LBRY TITLE LOCATION]"
40 D EN1^DIP
41 G EXIT
42LTL1 W !!,"Yes will present a complete description of the title's holdings."
43 W !,"No will present a brief description of the title's holdings.",!!
44 G LTL0
45LTV ;Current subscriptions by vendor
46 S TEXT="Active Titles by Vendor" D HEAD G EXIT:$G(DUOUT)=1
47 S L=0,DIC="^LBRY(681,"
48 S DIS(0)="I $P(^LBRY(681,D0,0),U,4)=LBRYPTR"
49 S %=0 I $D(LBRYPTR),$P($G(^LBRY(680.6,LBRYPTR,0)),U,10) D
50 . W "Sort using CoreFLS Vendors" S %=1 D YN^DICN
51 S FLDS="[LBRY SUBSCRIPTION/VENDOR]",BY=$S(%=1:"[LBRY SUBSCRIPTION/VENDOR 2]",1:"[LBRY SUBSCRIPTION/VENDOR]")
52 D EN1^DIP
53 G EXIT
54LGL ;Local Titles with Gaps Lists
55 S TEXT="Gaps Lists" D HEAD G EXIT:$G(DUOUT)=1
56 S L=0,DIC="^LBRY(680,"
57 S DIS(0)="I $P(^LBRY(680,D0,0),U,4)=LBRYPTR"
58 S FLDS="[LBRY GAPS LIST]",BY="[LBRY GAPS LIST]"
59 D EN1^DIP
60 G EXIT
61LMT ;Local Microfilm Titles
62 S TEXT="Local Microfilm Titles" D HEAD G EXIT:$G(DUOUT)=1
63LMT0 W "Do you want microfilm holdings by titles" S %=1 D YN^DICN
64 S FLDS=$S(%=1:"[LBRY MICROFILM HOLDINGS]",%=2:"[LBRY MICROFILM VENDOR]",1:"") G:%=-1 EXIT G:%=0 LMT1
65 S DIS(0)="I $P(^LBRY(680,D0,0),U,4)=LBRYPTR"
66 S L=0,DIC="^LBRY(680,",BY=$S(%=1:"[LBRY MICROFILM HOLDINGS]",1:"[LBRY MICROFILM VENDOR]")
67 S %=0 I $D(LBRYPTR),$P($G(^LBRY(680.6,LBRYPTR,0)),U,10) D
68 . W !,"List CoreFLS Vendors" S %=1 D YN^DICN
69 I %=1 S:FLDS["HOLDINGS" FLDS="[LBRY MICROFILM HOLDINGS 2]" S:BY["VENDOR" BY="[LBRY MICROFILM VENDOR 2]"
70 D EN1^DIP
71 G EXIT
72LMT1 W !!,"'Yes' will list microfilm holdings by title."
73 W !,"'No' will list microfilm holdings by vendor.",!!
74 G LMT0
75REC ;List of Recipients by title or recipient
76 S TEXT="List of Recipients" D HEAD G EXIT:$G(DUOUT)=1
77REC0 W "Do you want a list of recipients arranged by titles" S %=1 D YN^DICN
78 S FLDS=$S(%=1:"[LBRY RECIPIENTS BY TITLE]",%=2:"[LBRY RECIPIENTS WITH TITLES]",1:"") G:%=-1 EXIT G:%=0 REC1
79 S DIS(0)="I $P(^LBRY(681,D0,0),U,4)=LBRYPTR"
80 S DIS(1)="I $P(^LBRY(680,$P(^LBRY(681,D0,0),U,2),0),U,2)="""""
81 S L=0,DIC="^LBRY(681,",BY=$S(%=1:"[LBRY RECIPIENTS BY TITLE]",1:"[LBRY RECIPIENTS WITH TITLES]")
82 D EN1^DIP
83 G EXIT
84REC1 W !!,"'Yes' will present a listing of all the recipients of any title or ToC."
85 W !,"'No' will list for each recipient all the titles or ToCs received.",!!
86 G REC0
87ORR ;All Outstanding Routed-To-Return Issues Listed
88 S TEXT="Outstanding R-T-R Issues" D HEAD G EXIT:$G(DUOUT)=1
89 S L=0,DIC="^LBRY(682,"
90 S DIS(0)="I $P(^LBRY(682,D0,0),U,4)=LBRYPTR"
91 S FLDS="[LBRY ROUTE-TO-RETURN]",BY="[LBRY ROUTE-TO-RETURN]"
92 D EN1^DIP
93 G EXIT
94FYI ;Listing of all titles with For-Your-Information
95 S TEXT="F-Y-I Local Titles List" D HEAD G EXIT:$G(DUOUT)=1
96 S L=0,DIC="^LBRY(680,"
97 S DIS(0)="I $P(^LBRY(680,D0,0),U,4)=LBRYPTR"
98 S DIS(1)="I $P(^LBRY(680,D0,0),U,2)'="""""
99 S DIS(2)="I $P($G(^LBRY(680,D0,1)),U,5)'="""""
100 S FLDS="[LBRY FYI LIST]",BY=.01
101 D EN1^DIP
102 G EXIT
103HEAD I $G(LBRYPTR)="" S DUOUT=1 Q
104 W @IOF,"Serials "_TEXT_" for "_LBRYNAM_" "
105 S Y=DT X ^DD("DD") W Y,!!
106 Q
107EXIT I IOT="TRM" R !!,"Press return to continue: ",LBRYC:DTIME
108 K L,DIC,FLDS,BY,TEXT,%,Y,LBRYC,DUOUT,DIS,IOT
109 Q
Note: See TracBrowser for help on using the repository browser.