| [613] | 1 | ABSVL1 ;VAMC ALTOONA/CTB&CLH - LOG (IN/OUT) VOLUNTEER CONTINUED ;1/10/97 9:07 AM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**7**;JULY 1994;
|
|---|
| 3 | LI 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
|
|---|
| 7 | LI1 N DIC
|
|---|
| 8 | S X=ABSVX("VOLDA"),DIC="^ABS(503330.1,",DIC(0)="N" D FILE^DICN
|
|---|
| 9 | G ED^ABSVL
|
|---|
| 10 | NOTNEW 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
|
|---|
| 18 | QUES 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
|
|---|
| 25 | LUNCH 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
|
|---|
