source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVL1.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 
1ABSVL1 ;VAMC ALTOONA/CTB&CLH - LOG (IN/OUT) VOLUNTEER CONTINUED ;1/10/97 9:07 AM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**7**;JULY 1994;
3LI Q:'$D(^ABS(503330.1,"AC",$P(DT,"."),+Y))
4 W !!,*7,$$GET^ABSVU1("ALREADY LOGGED IN",PLANG) S ABSVXA=$$GET^ABSVU1("CONTINUE?",PLANG),ABSVXB=$$GET^ABSVU1("YES OR NO",PLANG),%=2 D ^ABSVYN G:%'=1 OUT^ABSVL
5 S ABSVXA=$$GET^ABSVU1("ANOTHER ORG/SERV",PLANG),ABSVXB=$$GET^ABSVU1("YES OR NO",PLANG),%=1 D ^ABSVYN G:%=1 LI1
6 Q
7LI1 N DIC
8 S X=ABSVX("VOLDA"),DIC="^ABS(503330.1,",DIC(0)="N" D FILE^DICN
9 G ED^ABSVL
10NOTNEW S ABSVXA=$$GET^ABSVU1("ALREADY LOGGED",PLANG),ABSVXA(1)=$$GET^ABSVU1("WISH TO CHANGE",PLANG),ABSVXB=$$GET^ABSVU1("YES OR NO",PLANG,"'^'"),%=2
11 D ^ABSVYN
12 I %<0 S X=$$GET^ABSVU1("START OVER",PLANG)_"*" D MSG^ABSVQ R X:2 G OUT^ABSVL
13 QUIT:%=1
14 S ABSVXA=$$GET^ABSVU1("ANOTHER ORG/SERV",PLANG),ABSVXB=$$GET^ABSVU1("YES OR NO",PLANG),%=2
15 D ^ABSVYN
16 I %=1 S DIC("S")="I $P(^(0),U,3)=COMB,$P(^(0),U,9)=ABSV(""SITE"")" G ED^ABSVL
17 G RESET^ABSVL
18QUES I NEW S DIR(0)="NO^1:9",DIR("A")=$$GET^ABSVU1("HOW MANY HOURS",PLANG)
19 I 'NEW S DIR(0)="NAO^1:9",DIR("A")=$$GET^ABSVU1("HOW MANY HOURS",PLANG)_": ",DIR("B")=$P($G(^ABS(503330.1,ABSVX("LDA"),0)),"^",7)
20 S DIR("?")="^S X=""!""_$$GET^ABSVU1(""HOURS WORKED"",PLANG,""'^'"")_""*"" D MSG^ABSVQ"
21 D ^DIR
22 I Y="",$D(DIRUT) K DIRUT X $P(DIR("?"),"^",2,99)
23 K DIR S X=$$DIR^ABSVU2
24 QUIT
25LUNCH N X
26 S LUNCH=0
27 I $P(^ABS(503330,ABSVX("VOLDA"),4,ABSV("INST"),0),"^",24)=0 QUIT
28 S ABSVXA=$$GET^ABSVU1("LUNCH?",PLANG),ABSVXB=$$GET^ABSVU1("YES OR NO",PLANG),%=1
29 D ^ABSVYN
30 I %<0 S X=$$GET^ABSVU1("LOGIN NOT COMPLETED",PLANG)_"*" D MSG^ABSVQ G OUT^ABSVL
31 I %=1,$P(ABSV("PARAM"),"^",12)=2 S %=4
32 S LUNCH=$S(%=1:1,%=4:2,1:0)
33 QUIT
Note: See TracBrowser for help on using the repository browser.