source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYRRS.m

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

initial load of WorldVistAEHR

File size: 946 bytes
Line 
1LBRYRRS ;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
5START 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)
11DOIT S FROM=FROM-.0001
12QUEUE 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
16QUEUE1 S ZTIO=TERM,ZTDTH=$H,ZTRTN="^LBRYRRS0",ZTSAVE("LBRYPTR")=""
17 S ZTSAVE("FROM")="",ZTSAVE("TO")="" D ^%ZTLOAD D ^%ZISC K ZTSK
18FINI S XZ="EXIT//" D PAUSE^LBRYUTL
19 K %DT,FROM,POP,QUEUE,TERM,TO,XZ,Y
20 Q
Note: See TracBrowser for help on using the repository browser.