source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYHIS1.m@ 1766

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1LBRYHIS1 ;ISC2/DJM-HISTORY OF CHECK-IN ROUT.,INDIV. COPIES ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3CK D CHECK,SHOW G FINI
4CHECK K RC
5 S LA0=$P(^LBRY(680.5,LBRYCLS,0),U)
6 S LA1="JOURNAL",LA2="DATE",LA3="V(I)",LA8="COMPLETED",LA5="COPIES"
7 S LA6="RECEIVED",LA11="ORDERED",LA0="TITLE: "_LA0,LA00=""
8 S:$G(^LBRY(680,LBRYLOC,1))'="" LA00=" "_$P(^(1),U,5)
9 S RTD=0 D RTED S:RTD=0 RTD=""
10 S AA=^LBRY(682,A(X),1),AA1=$P(AA,U),AA2=$P(AA,U,2),AA3=$P(AA,U,3)
11 S AA4=$P(AA,U,4),AA5=$P(AA,U,5) S:AA3'="" AA2=AA2_"("_AA3_")"
12 I AA4=0 S AA4=""
13 S Y=AA1 X ^DD("DD") S AA1=Y
14 W @IOF,"VA Library History of Check-in",?60,YDT
15 W !!,LA0,!,LA00,!!,?5,LA1,?41,LA5,?50,LA5,?60,LA5
16 W !,?5,LA2,?21,LA3,?41,LA11,?50,LA6,?60,LA8,!
17 W ?5 F I=1:1:64 W "-"
18 W !,?5,AA1,?18,AA2,?44,AA5,?53,AA4,?63,RTD,!
19 Q
20RTED S N=0 F S N=$O(^LBRY(682,A(X),4,N)) Q:N'>0 S N2=^LBRY(682,A(X),4,N,0) I $P(N2,U,2)<4&($P(N2,U,1)'="ToC") S RTD=RTD+1
21 Q
22SHOW S N=0 W !,?6,"C",?58,"LIBRARY",!,?6,"A",?45,"DATE",?58,"SITE"
23 W !,?6,"T",?8,"STATUS",?28,"LOCATION",?45,"RECEIVED",?58,"LOCATION"
24 W !,?6 F I=1:1:73 W "-"
25SH S N=$O(^LBRY(682,A(X),4,"B",N)) Q:N=""
26 S N1=$O(^LBRY(682,A(X),4,"B",N,0))
27 S RR=^LBRY(682,A(X),4,N1,0),RR1=$P(RR,U,1),RR2=$P(RR,U,2),RR7=$P(RR,U,7)
28 S Y=RR7 X ^DD("DD") S RR7=Y S:RR1=+RR1 RR1="c"_RR1 D SHOW2
29 G SH
30SHOW2 S RR2=$S(RR2=1:"ROUTED",RR2=2:"ROUTED (TO RETURN)",RR2=3:"SHELVED",RR2=4:"NOT RECEIVED",1:"TOC NOT RECEIVED")
31 S RRX=$P(RR,U,3),RRX0=$G(^LBRY(681,RRX,0))
32 S RRX=$G(^LBRY(681,RRX,1))
33 S RRY=$P(RRX,U,2),RR5="",RR4=$P(RRX,U,4)
34 I $G(RRY)'="" S RR5=$E($P(^LBRY(680.7,RRY,0),U),1,15)
35 S RR8=$P(RRX0,U,4),RR8=$S(RR5]"":$E($P(^LBRY(680.6,RR8,0),U),1,22),1:"")
36 W !,RR1,?6,RR4,?8,RR2,?28,RR5,?45,RR7,?58,RR8
37 Q
38FINI S XZ="EXIT//" D PAUSE^LBRYUTL
39 G ^LBRYHIS
Note: See TracBrowser for help on using the repository browser.