source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVMT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1ABSVMT ;VAMC ALTOONA/CTB - PRINT ONE MEAL TICKET ;3/31/00 9:26 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**3,6,10,18**;JULY 1994
3X(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
11ONE ;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
Note: See TracBrowser for help on using the repository browser.