source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVTED2.m@ 1755

Last change on this file since 1755 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1ABSVTED2 ;VAMC ALTOONA/CTB - EDIT DAILY ACTIVITY RECORDS ;5/3/93 4:16 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
3DAED ;DAILY ACT EDIT
4 D ^ABSVSITE G:'% OUT
5 S DIC("A")="Select VOLUNTEER: "
6DA1 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
11DADEL ;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: "
16DADEL1 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
22OUT 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
Note: See TracBrowser for help on using the repository browser.