1 | LBRYRRS ;ISC2/DJM-LIBRARY REPRINT ROUTING SLIPS ;[ 05/23/97 12:13 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" Q
|
---|
4 | . D ^LBRYASK
|
---|
5 | START W @IOF,?5,"VA Library Serials Reprint Routing Slips"
|
---|
6 | S Y=DT X ^DD("DD") W ?60,Y,!
|
---|
7 | W !!,"Start reprinting routing slips FROM date and time.",!
|
---|
8 | S %DT="AETX" D ^%DT G:Y<0 FINI S FROM=$S(Y'[".":Y_"."_"0",1:Y)
|
---|
9 | W !!,"Continue reprinting routing slips TO date and time.",!
|
---|
10 | S %DT="AETX" D ^%DT G:Y<0 FINI S TO=$S(Y'[".":Y_"."_"9999",1:Y)
|
---|
11 | DOIT S FROM=FROM-.0001
|
---|
12 | QUEUE S QUEUE=^LBRY(680.6,LBRYPTR,0),TERM=$P(QUEUE,U,3)
|
---|
13 | S %ZIS="MQ",%IS("B")=$S(TERM]"":TERM,1:"")
|
---|
14 | K IO("Q") D ^%ZIS G:POP FINI
|
---|
15 | I '$D(IO("Q")) U IO D ^LBRYRRS0 D ^%ZISC G FINI
|
---|
16 | QUEUE1 S ZTIO=TERM,ZTDTH=$H,ZTRTN="^LBRYRRS0",ZTSAVE("LBRYPTR")=""
|
---|
17 | S ZTSAVE("FROM")="",ZTSAVE("TO")="" D ^%ZTLOAD D ^%ZISC K ZTSK
|
---|
18 | FINI S XZ="EXIT//" D PAUSE^LBRYUTL
|
---|
19 | K %DT,FROM,POP,QUEUE,TERM,TO,XZ,Y
|
---|
20 | Q
|
---|