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