source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVE3.m@ 623

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

initial load of WorldVistAEHR
File size: 3.3 KB
Line 
1ABSVE3 ;VAMC ALTOONA/CTB/CLH EDIT VOLUNTARY SERVICE DATA ;8/28/95 2:42 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**6**;JULY 6, 1994
3AWARD ;ENTER AWARD/HOUR INFORMATION
4 N %W,%Y,C,D,D0,ABSVX,DI,DIC,Y,%,DA,DIE,DR,DQ,I,N,X,TRANS
5 D ^ABSVSITE G OUT:'%
6A1 S DIC=503330,DIC(0)="AEMQ",DIC("A")="Select VOLUNTEER NAME: "
7 D MDIV^ABSVSITE,^DIC K DIC G OUT:Y<0
8 S DA=+Y,ABSVX("NAME")=$P(Y,"^",2),ABSVX("VOLDA")=DA
9 G A1:'$$ACTIVE^ABSVU2(DA,ABSV("INST"))
10 S DA(1)=ABSVX("VOLDA"),DIE="^ABS(503330,"_DA(1)_",4,",DR="14///@;15///@;16///@;17///@;Q;14;15;16;17",DA=ABSV("INST") D ^DIE S DA=DA(1) K DA(1)
11 S ABSVXA="Should this change in AWARD/HOUR information be transmitted to Austin",ABSVXB="",%=1
12 D ^ABSVYN
13 I %<1 S X="OPTION TERMINATED, NO ACTION TAKEN*" D MSG^ABSVQ G OUT
14 S TRANS=1
15 I %=2 S TRANS=0
16 S DA(1)=ABSVX("VOLDA"),DIE="^ABS(503330,"_DA(1)_",4,",DR="12////"_TRANS,DA=ABSV("INST") D ^DIE S DA=DA(1) K DA(1)
17 S X="HOURS/AWARD information has "_$S(TRANS:"",1:"NOT ")_"been marked for transmission" D MSG^ABSVQ W !!
18 G A1
19 ;
20COMB ;EDIT COMBINATIONS
21 ;N %,%W,%Y,ABSVX,C,D,D0,D1,DA,DI,DIC,DICR,DIE,DIH,DIR,DIU,DIV,DIW,DQ,DR,FPASS,I,N,X,Y
22 D ^ABSVSITE G OUT:'%
23 S DIC("A")="Select VOLUNTEER: "
24C2 S FPASS="",DIC=503330,DIC(0)="AEMQ" D MDIV^ABSVSITE,^DIC
25 K DIC G OUT:Y<0 S DA=+Y,ABSVX("NAME")=$P(Y,"^",2),ABSVX("VOLDA")=DA
26 D:$$ACTIVE^ABSVU2(DA,ABSV("INST")) C1 S DIC("A")="Select Next VOLUNTEER: " G C2
27C1 D PCOMB^ABSVE2
28 S DIR(0)="NOA^1:6:0",DIR("A")="Select Combination Number: "
29 S DIR("?")="Enter a combination number (1-6), or an '^' to Quit."
30 S DIR("?",1)="Enter the number assigned to the Combination you wish to select, OR"
31 S DIR("?",2)=" you may enter a new Combination by selecting a number from 1 to 6,",DIR("?",3)=" which does not exist on the above list." D ^DIR K DIR
32 I $$DIR^ABSVU2 D QUIT
33 . S X=$S($D(FPASS):" <No Selection Made.>*",1:" <Updating Completed>*")
34 . D MSG^ABSVQ,OUT
35 . QUIT
36 I '$D(ABSVX("LIST",+Y)) D G:Y<0 C1
37 . S DA(1)=ABSVX("VOLDA"),X=ABSV("SITE")_"-"_X
38 . S:$P($G(^ABS(503330,DA(1),1,0)),"^",2)="" $P(^(0),"^",2)="503330.03I"
39 . S DIC="^ABS(503330,"_DA(1)_",1,",DIC(0)="EMQL",DLAYGO=503330
40 . D ^DIC K DIC S DA=ABSVX("VOLDA") K DA(1) Q:Y<0 S Y=+$P(Y,"-",2)
41 . QUIT
42 S $P(Y,"^",2)=$O(^ABS(503330,DA,1,"AD",ABSV("SITE"),Y,0))
43 S DA(1)=ABSVX("VOLDA"),DA=$P(Y,"^",2)
44 I DA="" S X="I'm sorry but I'm a little confused, let's try that again." D MSG^ABSVQ S DA=DA(1) G C1
45 S DIE="^ABS(503330,"_DA(1)_",1,",DR="1;2;3" D ^DIE
46 S X=$P($G(^ABS(503330,DA(1),1,DA,0)),"^",5)
47 I X]"" W !!,"Edited Combination: ",X,!!
48 S DA=ABSVX("VOLDA") K DA(1) S EDIT=1 K FPASS
49 G C1
50 ;
51TT88 I $D(EDIT) K EDIT D
52 . S ABSVXA="Do you need to transmit this record to Austin",ABSVXB="",%=1 D ^ABSVYN
53 . I %'=1 S X="< No Action Taken>*" D MSG^ABSVQ Q
54 . I %=1 S DA(1)=ABSVX("VOLDA"),DA=ABSV("INST"),DR="11////1;13Is this volunteer currently on the Austin system?",DIE="^ABS(503330,"_DA(1)_",4," D ^DIE W " RECORD MARKED"
55 . QUIT
56 I $D(EDIT1) K EDIT1 S ABSVXA="Do you wish to send the station hours and awards information to Austin",ABSVXB="",%=1 D ^ABSVYN
57 I %=1 S DA(1)=ABSVX("VOLDA"),DA=ABSV("INST"),DR="12////1",DIE="^ABS(503330,"_DA(1)_",4," D ^DIE W " RECORD MARKED"
58 QUIT
59 ;
60OUT I $D(EDIT)!($D(EDIT1)) D TT88
61 I $D(ABSVX("EDIT")) K ABSVX("EDIT"),ABSVOUT,C,COMB,DAY,DIC,DI,D0,DDH,DQ,DR,DUOUT,DIE,DATE,ORG,SER,VOL,I,N,X,Y Q
62 K ABSVOUT,ABSVX,C,COMB,DDH,DAY,DIC,DI,D0,DQ,DR,DUOUT,DIE,DATE,ORG,DA,SER,VOL,I,N,X,Y Q
Note: See TracBrowser for help on using the repository browser.