source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVLS.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.8 KB
Line 
1ABSVLS ;VAMC ALTOONA/CTB_CLH - MANAGE VOL LOG-IN TERMINAL ;4/4/00 8:46 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**3,13,15,18**;JULY 6, 1994
3START ;START LOG-IN TERMINAL
4 D ^ABSVSITE G OUT:'%
5 K ^ABS("ABSVKILL",ABSV("SITE"))
6 D HOME^%ZIS
7 S ABSV("HOME_TERMINAL")=ION
8 I $P(ABSV("PARAM"),"^",12)=1 F D GETPRINT Q:OK!(POP)
9 I POP G OUT
10 S %ZIS("A")="Select Volunteer Log-in DEVICE: "
11 S ZTRTN="^ABSVL",ZTDESC="Boot Volunteer Log-in Terminal",ZTSAVE("DUZ*")="",ZTSAVE("ABSV*")="",ZTSAVE("DTIME")="" D ^ABSVQ
12OUT K ABSV,OK,POP D HOME^%ZIS
13 QUIT
14GETPRINT ;GET MEAL PRINTER
15 S OK=1
16 S %ZIS="NQ",%ZIS("A")="Select Meal Ticket DEVICE: ",%ZIS("B")=""
17 D ^%ZIS I POP D HOME^%ZIS QUIT
18 I ABSV("HOME_TERMINAL")=ION S X="You may not print meal tickets to your terminal.*" D MSG^ABSVQ S OK=0 QUIT
19 S ABSV("MEAL_PRINTER")=ION,OK=1 D HOME^%ZIS
20 QUIT
21STOP ;STOP PROGRAM RUNNING BINGO BOARD
22 I '$D(ABSV("SITE")) D ^ABSVSITE Q:'%
23 W ! S ABSVXA="Do you want to stop all Auto Log-in Terminals for station "_ABSV("SITE"),ABSVXB="",%=1 D ^ABSVYN
24 I %<0 S MSG=" <Option Terminated - No Further Action Taken.*" D MSG^ABSVQ QUIT
25 I %=1 W !!!,*7," Volunteer Log-in Program will halt in 2 minutes." S ^ABS("ABSVKILL",ABSV("SITE"),"ALL")="" G XFER
26 D HOME^%ZIS
27 S ABSV("HOME_TERMINAL")=ION
28 F S %ZIS("A")="Select Device You Wish to Stop: ",%ZIS("B")="",%ZIS="N" D I $D(STOP) K STOP QUIT
29 . D ^%ZIS I POP!(ABSV("HOME_TERMINAL")=ION) S STOP="" QUIT
30 . S ^ABS("ABSVKILL",ABSV("SITE"),IO)="" D ^%ZISC S %ZIS("A")="Select Another Device: "
31 D ^%ZISC
32XFER S ABSVXA="Do you want to transfer entries from Temporary Log to Daily Time File now",ABSVXB="",%=2 D ^ABSVYN I %'=1 K Z,ZZI,DA G OUT
33 S ABSVXA="Are you sure",ABSVXB="",%=1 D ^ABSVYN I %'=1 K Z,ZZI,DA G OUT
34 D ^ABSVNIT1
35 K Z,ZZI,DA,ABSV D OUT Q
36HALT() ;
37 I $D(^ABS("ABSVKILL",$G(ABSV("SITE")),"ALL")) QUIT 1
38 I $D(^ABS("ABSVKILL",$G(ABSV("SITE")),IO)) QUIT 1
39 QUIT 0
Note: See TracBrowser for help on using the repository browser.