| 1 | ABSVMT ;VAMC ALTOONA/CTB - PRINT ONE MEAL TICKET ;3/31/00 9:26 AM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**3,6,10,18**;JULY 1994
|
|---|
| 3 | X(NAME,REPRINT) ;QUEUE ONE MEAL TICKET
|
|---|
| 4 | I $D(ABSV("MEAL_PRINTER")) S (IOP,ZTIO)=ABSV("MEAL_PRINTER")
|
|---|
| 5 | S %ZIS("A")="Select Meal Ticket Printer: ",%ZIS("B")="",%ZIS="Q"
|
|---|
| 6 | D ^%ZIS I POP D HOME^%ZIS QUIT
|
|---|
| 7 | I IO=IO(0),'$D(IO("Q")) D ONE,^%ZISC QUIT
|
|---|
| 8 | S (IOP,ZTIO)=ION,%ZIS="Q"
|
|---|
| 9 | S ZTRTN="ONE^ABSVMT",ZTDESC="PRINT VOLUNTEER MEAL TICKET"
|
|---|
| 10 | S ZTDTH=$H,ZTSAVE("NAME")="",ZTSAVE("ABSVX*")="",ZTSAVE("ABSV*")="",ZTSAVE("REPRINT")="" D TIME^ABSVQ Q
|
|---|
| 11 | ONE ;PRINT ONE MEAL TICKET FOR ONE VOLUNTEER
|
|---|
| 12 | ;GET PRINTER COLORS
|
|---|
| 13 | N RED,LINE,BLACK,MESSAGE,BOLDON,BOLDOFF,DBLON,DBLOFF,FNAME
|
|---|
| 14 | S X="IORVON;IORVOFF;IOINHI;IOINORM;IODWL;IOSWL"
|
|---|
| 15 | D ENS^%ZISS
|
|---|
| 16 | S RED=IORVON,BLACK=IORVOFF,BOLDON=IOINHI,BOLDOFF=IOINORM,DBLON=IODWL,DBLOFF=IOSWL D KILL^%ZISS
|
|---|
| 17 | I $D(REPRINT) W !,BOLDON,DBLON,"* * REPRINT * *",DBLOFF,BOLDOFF,!!
|
|---|
| 18 | W RED
|
|---|
| 19 | W !," **** ******"
|
|---|
| 20 | W !," **** ******** ",BLACK,"VOLUNTEER",RED
|
|---|
| 21 | W !," **** **** **** ",BLACK,"MEAL",RED
|
|---|
| 22 | W !," **** **** **** ",BLACK,"TICKET",RED
|
|---|
| 23 | W !," ********** *********"
|
|---|
| 24 | W !," ******** *********"
|
|---|
| 25 | W !,BLACK
|
|---|
| 26 | S FNAME=$P(NAME,",",2,99),NAME=$P(NAME,",")
|
|---|
| 27 | W !!,RED,BOLDON,DBLON,NAME,BOLDOFF,DBLOFF,",",$E(FNAME,1,(40-($L(NAME)*2))),BLACK
|
|---|
| 28 | W !!,"DATE: ",$$FULLDAT^ABSVU2(DT)
|
|---|
| 29 | W !!,"NOT VALID FOR MORE THAN $",$J($P(ABSV("PARAM"),"^",5),0,2)
|
|---|
| 30 | W !!?(IOM-2),"^",!?(IOM-3),"/|\",!,"_____________________________",?(IOM-2),"|",!,"Signature of Volunteer",?(IOM-2),"|"
|
|---|
| 31 | W !,?(IOM-2),"I",!?(IOM-2),"M",!?(IOM-2),"P",!?(IOM-2),"R",!?(IOM-2),"I",!,"VA Form 10-3558, (ADP Test)",?(IOM-2),"N",!,"For use by Voluntary Service ONLY",?(IOM-2),"T"
|
|---|
| 32 | I $D(REPRINT) W !,BOLDON,DBLON,"* * REPRINT * *",DBLOFF,BOLDOFF
|
|---|
| 33 | W !!!!!!!
|
|---|
| 34 | QUIT
|
|---|
