| 1 | LBRYHIS ;ISC2/DJM-SERIALS HISTORY OF CHECK-IN ;[ 03/16/98 1:32 PM ]
|
|---|
| 2 | ;;2.5;Library;**2**;Mar 11, 1996
|
|---|
| 3 | EN I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" Q
|
|---|
| 4 | . D ^LBRYASK
|
|---|
| 5 | D CKIN G:Y<0 EXIT
|
|---|
| 6 | S X=$O(^LBRY(681,"AC",LBRYLOC,0)) G:X="" NOT
|
|---|
| 7 | S X=$O(^LBRY(682,"AC",LBRYLOC,0)) G:X="" NOT2
|
|---|
| 8 | CONT S (E,E0,E1)=0 D MORE
|
|---|
| 9 | G:'$D(A(1)) DISPLAY
|
|---|
| 10 | CONT1 S E=0,V1=$O(^LBRY(682,"A1",LBRYLOC,9999998-YDT1)) G:V1="" INIT
|
|---|
| 11 | S E1=$O(^LBRY(682,"A1",LBRYLOC,V1,0))
|
|---|
| 12 | F I=1:1 G:'$D(A(I)) INIT S:A(I)=E1 E=I G:E>0 INIT
|
|---|
| 13 | INIT S E1=E-3 S:E1<1 E1=1 S E0=E1 D FWD1^LBRYCK0 G DISPLAY
|
|---|
| 14 | CKIN W @IOF,?5,"VA Library Serials History of Check-In for "_LBRYNAM
|
|---|
| 15 | S (YDT1,Y)=DT X ^DD("DD") W " ",Y,! S YDT=Y
|
|---|
| 16 | S DIC="^LBRY(680,",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),U,4)=LBRYPTR"
|
|---|
| 17 | D ^DIC K DIC("S")
|
|---|
| 18 | Q:Y<0 S (DA,LBRYLOC)=$P(Y,U),LBRYCLS=$P(Y,U,2)
|
|---|
| 19 | S LA0=$P(^LBRY(680.5,LBRYCLS,0),U),LA00=""
|
|---|
| 20 | S:$D(^LBRY(680,LBRYLOC,1)) LA00=" "_$P(^(1),U,5)
|
|---|
| 21 | S LA0="TITLE: "_LA0
|
|---|
| 22 | Q
|
|---|
| 23 | MORE S N="",A(1)="",LA1="JOURNAL",LA2="DATE",LA3="V(I)",LA4="CPY'S"
|
|---|
| 24 | S LA5="COPIES",LA6="RECEIVED",LA7="ORD'D",LA8="COMPLETED"
|
|---|
| 25 | S LA9="DISPOSITION",LA10="RCV'D"
|
|---|
| 26 | F I=1:1 S:A(I)="" N=$O(^LBRY(682,"AC",LBRYLOC,N)) G:N="" MORE1 D
|
|---|
| 27 | . S A(I)=$O(^LBRY(682,"AC",LBRYLOC,N,A(I)))
|
|---|
| 28 | . S:$O(^LBRY(682,"AC",LBRYLOC,N,A(I)))>0 A(I+1)=A(I)
|
|---|
| 29 | . S:$O(^LBRY(682,"AC",LBRYLOC,N,A(I)))="" A(I+1)=""
|
|---|
| 30 | MORE1 K A(I) S II=E Q
|
|---|
| 31 | DISPLAY ; Show issues
|
|---|
| 32 | DISP0 W @IOF,?5,"VA Library History of Check-In for "_LBRYNAM_" "_YDT
|
|---|
| 33 | W !!,LA0,!,LA00,!!,"ID",?6,LA1,?41,LA2,?52,LA4,?59,LA4,?66,LA9
|
|---|
| 34 | W !,"NUM",?7,LA2,?20,LA3,?41,LA6,?52,LA7,?59,LA10,?66,LA8,!
|
|---|
| 35 | F I=1:1:77 W "-"
|
|---|
| 36 | W !
|
|---|
| 37 | S AA="",RTD=0 G:E0=0 ASK1 F I=E0:1:E1 S AA=^LBRY(682,A(I),1),RTD=0,RFLAG=0,MR=0,RTD1="" D RTED,DISPX,DISP1
|
|---|
| 38 | ; Display to user their options
|
|---|
| 39 | ASK1 D ^LBRYHIS0
|
|---|
| 40 | ; Go select user's option. State error prompt if needed
|
|---|
| 41 | ASK3 G ASK3^LBRYHIS0
|
|---|
| 42 | RTED S MR=$O(^LBRY(682,A(I),4,MR)) Q:MR'>0
|
|---|
| 43 | S BB=$G(^LBRY(682,A(I),4,MR,0)),BB2=$P(BB,U,2),BB1=$P(BB,U)
|
|---|
| 44 | S:BB2<4&(BB1'="ToC") RTD=RTD+1 S:BB1="ToC" BB1="T"
|
|---|
| 45 | I BB2<4,RTD<5 S RTD1=RTD1_BB1_"," G RTED
|
|---|
| 46 | I BB2<4,RTD'<5,RFLAG=0 S RTD1=$E(RTD1,1,$L(RTD1)-1)_"...",RFLAG=1
|
|---|
| 47 | G RTED
|
|---|
| 48 | DISPX S AA1=$P(AA,U),AA2=$P(AA,U,2),AA3=$P(AA,U,3),AA4=$P(AA,U,4)
|
|---|
| 49 | S AA5=$P(AA,U,5),AA6=""
|
|---|
| 50 | S:$D(^LBRY(682,A(I),4,1,0)) AA6=$P(^(0),U,7) I AA4=0 S AA4=""
|
|---|
| 51 | S RTDA=$S(RTD=AA5:" ALL",1:RTD1)
|
|---|
| 52 | S:AA3'="" AA2=AA2_"("_AA3_")" S Y=AA1 X ^DD("DD") S AA1=Y
|
|---|
| 53 | I AA6'="" S Y=AA6 X ^DD("DD") S AA6=Y
|
|---|
| 54 | Q
|
|---|
| 55 | DISP1 W !,I,?5,AA1,?18,AA2,?40,AA6,?54,AA5,?61,AA4,?66,RTDA
|
|---|
| 56 | Q
|
|---|
| 57 | NOT W !!,LA0,!!,"This title is not fully initialized."
|
|---|
| 58 | W !,"Please use SET to set up this title."
|
|---|
| 59 | NOT1 S XZ="Exit// " D PAUSE^LBRYUTL K XZ
|
|---|
| 60 | G EN
|
|---|
| 61 | NOT2 W !!,LA0,!!,"There are no Journal Date entries for this title." G NOT1
|
|---|
| 62 | EXIT K %,%DT,%X,LA0,LA1,LA2,LA3,LA4,LA5,LA6,LA7,LA8,LA9,LA10,A,I,II,IA,I1
|
|---|
| 63 | K J,AA,AA1,AA2,AA3,AA4,AA5,AA6,AA7,AA8,AB,AB1,AB2,CA,CA1,DIC,DIW,DIWF
|
|---|
| 64 | K DIWL,DIWR,DIWT,DIWTC,DIWX,CLR,LL,DN,DR,DX,DY,N,O,X1,X2,XX,Z,LB,LB1
|
|---|
| 65 | K LB2,MM,E,E0,E1,V1,X,YDT,LA00,RTD,MR,RTD1,XT1,XT2,XT3,XT4,XQH,LA11,N2
|
|---|
| 66 | K LS,LINE1,LINE2,XTA,XTB,XTC,XTD,XTE,RC,RR,N1,RR1,RR2,RR3,RR4,RR5,RR6
|
|---|
| 67 | K RR7,RR8,RRX,RRY,RRX0,BB,BB1,BB2,RFLAG,RTDA,YDT1,LBRYCLS,LBRYLOC
|
|---|
| 68 | Q
|
|---|
