source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVVIEW.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: 2.5 KB
Line 
1ABSVVIEW ;VAMC ALTOONA/CTB - VIEW MASTER RECORD FOR ONE VOLUNTEER ;5/21/99 2:29 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**3,6,15,17**;JULY 6, 1994
3 D ^ABSVSITE Q:'%
41 S DIC=503330,DIC(0)="AEMQZ",DIC("S")="I $D(^ABS(503330,+Y,4,ABSV(""INST"")))" S:'$D(DIC("A")) DIC("A")="Select Volunteer: "
5 D MDIV^ABSVSITE,^DIC I +Y<0 D EXIT QUIT
6 S ABSVX("VOLDA")=+Y
7 S ZTRTN="DQ^ABSVVIEW",ZTDESC="DISPLAY/PRINT VOLUNTEER MASTER FILE ENTRY",ZTSAVE("ABSVX*")="",ZTSAVE("ABSV*")="" D ^ABSVQ
8 S DIC("A")="Select Next Volunteer: " G 1
9DQ ;
10 D HDR,VOL,HOLD,HDR1,SITE,HOLD,COMB
11EXIT K A,ABSVX,D0,DA,DIC,DIQ,DK,DL,DIR,DR,DX,S,TMP,VAR,X,Y,Z Q
12HOLD I $E(IOST)="C" D ENCON^ABSVQ
13 W:$E(IOST)="C" @IOF
14 QUIT
15HDR I $E(IOST)="C" W @IOF
16 W !,"Volunteer Master File Information for ",$P($G(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
17 QUIT
18HDR1 ;
19 W !,"Station specific Volunteer Master File Information for ",$P($G(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
20 QUIT
21VOL ;view volunteer specific information
22 S DIC="^ABS(503330,",DA=ABSVX("VOLDA"),DR="0;2;3" D EN^DIQ
23 Q
24SITE ;view site specific information
25 S DA=ABSVX("VOLDA"),DIC="^ABS(503330,",DR=.1,DA(503330.01)=ABSV("INST"),DR(503330.01)=".01;.5;1;2;2.5;2.7;3;4;5;6;7;8;9;10;20"
26 S DIQ(0)="E",DIQ="TMP(" D EN^DIQ1
27 S X="STANAME;STANUM;EDATE;YEARS;PHOURS;CHOURS;HOURS;HLAST;DATELAST;AWDCODE;TERM;REACT;DELETED;AUSTDEL;TRANS"
28 F I=1:1 S Y=$P(DR(503330.01),";",I) Q:Y="" S Z=$G(TMP(503330.01,ABSV("INST"),Y,"E")),VAR=$P(X,";",I) S @VAR=Z
29 W !,"STATION NAME: "_STANAME,?40,"STATION NUMBER: "_STANUM K STANAME,STANUM
30 W ! S TAB=0 I EDATE]"" W "ENTRY DATE: "_EDATE S TAB=1 K EDATE
31 I YEARS]"" D TAB W "YEARS AT STATION: "_YEARS S TAB=TAB+1#2
32 K YEARS
33 W ! S TAB=0
34 I PHOURS]"" D TAB W "PRIOR HOURS SERVED: "_PHOURS S TAB=TAB+1#2
35 K PHOURS
36 I CHOURS]"" D TAB W "CURRENT HOURS SERVED: "_CHOURS S TAB=TAB+1#2
37 K CHOURS
38 I HOURS]"" D TAB W "TOTAL HOURS SERVED: "_HOURS S TAB=TAB+1#2
39 K HOURS
40 W ! S TAB=0
41 I HLAST]"" D TAB W "HOURS LAST AWARD: "_HLAST S TAB=TAB+1#2
42 K HLAST
43 I DATELAST]"" D TAB W "DATE LAST AWARD: "_DATELAST S TAB=TAB+1#2
44 K DATELAST
45 I AWDCODE]"" D TAB W "LAST AWARD: "_$E(AWDCODE,1,26) S TAB=TAB+1#2
46 K AWDCODE
47 I TERM]"" D TAB W "TERMINATION DATE: "_TERM S TAB=TAB+1#2
48 K TERM,REACT,DELETED
49 I AUSTDEL]"" D TAB W "AUSTIN DELETE DATE: "_AUSTDEL S TAB=TAB+1#2
50 K AUSTDEL
51 I TRANS]"" D TAB W "TRANSPORTATION: "_TRANS W !
52 K TRANS,TAB
53 S DIC="^ABS(503330,"_ABSVX("VOLDA")_",4,",DA=ABSV("INST"),DR="1;2",DIQ(0)="C" D EN^DIQ
54 QUIT
55COMB ;view combinations
56 D PC1^ABSVE2
57 Q
58TAB I TAB W ?40 Q
59 W !
Note: See TracBrowser for help on using the repository browser.