| 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
|
|---|
