ABSVLS.m

ABSVLS ;VAMC ALTOONA/CTB_CLH - MANAGE VOL LOG-IN TERMINAL ;4/4/00  8:46 AM

V ;;4.0;VOLUNTARY TIMEKEEPING;**3,13,15,18**;JULY 6, 1994

START ;START LOG-IN TERMINAL

 D ^ABSVSITE G OUT:'%

 K ^ABS("ABSVKILL",ABSV("SITE"))

 D HOME^%ZIS

 S ABSV("HOME_TERMINAL")=ION

 I $P(ABSV("PARAM"),"^",12)=1 F  D GETPRINT Q:OK!(POP)

 I POP G OUT

 S %ZIS("A")="Select Volunteer Log-in DEVICE: "

 S ZTRTN="^ABSVL",ZTDESC="Boot Volunteer Log-in Terminal",ZTSAVE("DUZ*")="",ZTSAVE("ABSV*")="",ZTSAVE("DTIME")="" D ^ABSVQ

OUT K ABSV,OK,POP D HOME^%ZIS

 QUIT

GETPRINT ;GET MEAL PRINTER

 S OK=1

 S %ZIS="NQ",%ZIS("A")="Select Meal Ticket DEVICE: ",%ZIS("B")=""

 D ^%ZIS I POP D HOME^%ZIS QUIT

 I ABSV("HOME_TERMINAL")=ION S X="You may not print meal tickets to your terminal.*" D MSG^ABSVQ S OK=0 QUIT

 S ABSV("MEAL_PRINTER")=ION,OK=1 D HOME^%ZIS

 QUIT

STOP ;STOP PROGRAM RUNNING BINGO BOARD

 I '$D(ABSV("SITE")) D ^ABSVSITE Q:'%

 W ! S ABSVXA="Do you want to stop all Auto Log-in Terminals for station "_ABSV("SITE"),ABSVXB="",%=1 D ^ABSVYN

 I %<0 S MSG="  <Option Terminated - No Further Action Taken.*" D MSG^ABSVQ QUIT

 I %=1 W !!!,*7,"      Volunteer Log-in Program will halt in 2 minutes." S ^ABS("ABSVKILL",ABSV("SITE"),"ALL")="" G XFER

 D HOME^%ZIS

 S ABSV("HOME_TERMINAL")=ION

 F  S %ZIS("A")="Select Device You Wish to Stop: ",%ZIS("B")="",%ZIS="N" D  I $D(STOP) K STOP QUIT

 . D ^%ZIS I POP!(ABSV("HOME_TERMINAL")=ION) S STOP="" QUIT

 . S ^ABS("ABSVKILL",ABSV("SITE"),IO)="" D ^%ZISC S %ZIS("A")="Select Another Device: "

 D ^%ZISC

XFER 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

 S ABSVXA="Are you sure",ABSVXB="",%=1 D ^ABSVYN I %'=1 K Z,ZZI,DA G OUT

 D ^ABSVNIT1

 K Z,ZZI,DA,ABSV D OUT Q

HALT() ;

 I $D(^ABS("ABSVKILL",$G(ABSV("SITE")),"ALL")) QUIT 1

 I $D(^ABS("ABSVKILL",$G(ABSV("SITE")),IO)) QUIT 1

 QUIT 0

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ABSVLS   1927     printed  Jan 14, 2021@17:31:35                                                                                                                                                                                                      Page 2

ABSVLS    ;VAMC ALTOONA/CTB_CLH - MANAGE VOL LOG-IN TERMINAL ;4/4/00  8:46 AM

V         ;;4.0;VOLUNTARY TIMEKEEPING;**3,13,15,18**;JULY 6, 1994

START     ;START LOG-IN TERMINAL

 +1        DO ^ABSVSITE

           if '%

               GOTO OUT

 +2        KILL ^ABS("ABSVKILL",ABSV("SITE"))

 +3        DO HOME^%ZIS

 +4        SET ABSV("HOME_TERMINAL")=ION

 +5        IF $PIECE(ABSV("PARAM"),"^",12)=1

               FOR 

                   DO GETPRINT

                   if OK!(POP)

                       QUIT 

 +6        IF POP

               GOTO OUT

 +7        SET %ZIS("A")="Select Volunteer Log-in DEVICE: "

 +8        SET ZTRTN="^ABSVL"

           SET ZTDESC="Boot Volunteer Log-in Terminal"

           SET ZTSAVE("DUZ*")=""

           SET ZTSAVE("ABSV*")=""

           SET ZTSAVE("DTIME")=""

           DO ^ABSVQ

OUT        KILL ABSV,OK,POP

           DO HOME^%ZIS

 +1        QUIT 

GETPRINT  ;GET MEAL PRINTER

 +1        SET OK=1

 +2        SET %ZIS="NQ"

           SET %ZIS("A")="Select Meal Ticket DEVICE: "

           SET %ZIS("B")=""

 +3        DO ^%ZIS

           IF POP

               DO HOME^%ZIS

               QUIT 

 +4        IF ABSV("HOME_TERMINAL")=ION

               SET X="You may not print meal tickets to your terminal.*"

               DO MSG^ABSVQ

               SET OK=0

               QUIT 

 +5        SET ABSV("MEAL_PRINTER")=ION

           SET OK=1

           DO HOME^%ZIS

 +6        QUIT 

STOP      ;STOP PROGRAM RUNNING BINGO BOARD

 +1        IF '$DATA(ABSV("SITE"))

               DO ^ABSVSITE

               if '%

                   QUIT 

 +2        WRITE !

           SET ABSVXA="Do you want to stop all Auto Log-in Terminals for station "_ABSV("SITE")

           SET ABSVXB=""

           SET %=1

           DO ^ABSVYN

 +3        IF %<0

               SET MSG="  <Option Terminated - No Further Action Taken.*"

               DO MSG^ABSVQ

               QUIT 

 +4        IF %=1

               WRITE !!!,*7,"      Volunteer Log-in Program will halt in 2 minutes."

               SET ^ABS("ABSVKILL",ABSV("SITE"),"ALL")=""

               GOTO XFER

 +5        DO HOME^%ZIS

 +6        SET ABSV("HOME_TERMINAL")=ION

 +7        FOR 

               SET %ZIS("A")="Select Device You Wish to Stop: "

               SET %ZIS("B")=""

               SET %ZIS="N"

               Begin DoDot:1

 +8                DO ^%ZIS

                   IF POP!(ABSV("HOME_TERMINAL")=ION)

                       SET STOP=""

                       QUIT 

 +9                SET ^ABS("ABSVKILL",ABSV("SITE"),IO)=""

                   DO ^%ZISC

                   SET %ZIS("A")="Select Another Device: "

               End DoDot:1

               IF $DATA(STOP)

                   KILL STOP

                   QUIT 

 +10       DO ^%ZISC

XFER       SET ABSVXA="Do you want to transfer entries from Temporary Log to Daily Time File now"

           SET ABSVXB=""

           SET %=2

           DO ^ABSVYN

           IF %'=1

               KILL Z,ZZI,DA

               GOTO OUT

 +1        SET ABSVXA="Are you sure"

           SET ABSVXB=""

           SET %=1

           DO ^ABSVYN

           IF %'=1

               KILL Z,ZZI,DA

               GOTO OUT

 +2        DO ^ABSVNIT1

 +3        KILL Z,ZZI,DA,ABSV

           DO OUT

           QUIT 

HALT()    ;

 +1        IF $DATA(^ABS("ABSVKILL",$GET(ABSV("SITE")),"ALL"))

               QUIT 1

 +2        IF $DATA(^ABS("ABSVKILL",$GET(ABSV("SITE")),IO))

               QUIT 1

 +3        QUIT 0