| [613] | 1 | ABSVTED2 ;VAMC ALTOONA/CTB - EDIT DAILY ACTIVITY RECORDS ;5/3/93 4:16 PM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
|---|
| 3 | DAED ;DAILY ACT EDIT
|
|---|
| 4 | D ^ABSVSITE G:'% OUT
|
|---|
| 5 | S DIC("A")="Select VOLUNTEER: "
|
|---|
| 6 | DA1 W ! S DIC=503331,DIC(0)="AEMQZ",DIC("S")="I $P(^(0),U,7)=ABSV(""SITE"")"
|
|---|
| 7 | F D MDIV^ABSVSITE,^DIC G:+Y<0 OUT Q:$$ACTIVE^ABSVU2(+$P(Y,U,2),ABSV("INST"))
|
|---|
| 8 | S DA=+Y K DIC
|
|---|
| 9 | S DIE="^ABS(503331,",DR=4 D ^DIE K DIE
|
|---|
| 10 | S DIC("A")="Select Next VOLUNTEER: " G DA1
|
|---|
| 11 | DADEL ;DEL DAILY ACT REC
|
|---|
| 12 | D ^ABSVSITE G:'% OUT
|
|---|
| 13 | S %DT="AE",%DT("A")="Select DATE WORKED: " D ^%DT K %DT,X G:Y<0 OUT
|
|---|
| 14 | S DATE=+Y
|
|---|
| 15 | S DIC("A")="Select VOLUNTEER: "
|
|---|
| 16 | DADEL1 W ! S DIC=503331,DIC(0)="AEMQZ",DIC("S")="I $P(^(0),U,7)=ABSV(""SITE""),$P(^(0),U,3)=DATE"
|
|---|
| 17 | D MDIV^ABSVSITE,^DIC G:+Y<0 OUT S DA=+Y K DIC
|
|---|
| 18 | S ABSVXA="I am going to delete this entry.",ABSVXA(1)="Are you sure you want to do this",ABSVXB="",%=2 D ^ABSVYN G:%'=1 DADEL
|
|---|
| 19 | S ABSVXA="ARE YOU SURE",ABSVXB="",%=1 D ^ABSVYN G:%'=1 OUT
|
|---|
| 20 | S X="While I delete this entry...." D WAIT^ABSVYN,DEL^ABSVDDE
|
|---|
| 21 | S DIC("A")="Select Next Volunteer: " G DADEL1
|
|---|
| 22 | OUT K %,%DT,%W,%Y,%Y1,ABSVX("CREATE"),C,COMB,D0,D1,DA,DA1,DATE,DI,DIC,DIE,DIK,DDH,DQ,DR,I,MONTH,NN,NAME,ORG,SER,VOL,TC,TC1,TC2,TC3,X,X1,Y
|
|---|
| 23 | QUIT
|
|---|
