| 1 | ABSVVIEW ;VAMC ALTOONA/CTB - VIEW MASTER RECORD FOR ONE VOLUNTEER ;5/21/99 2:29 PM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**3,6,15,17**;JULY 6, 1994
|
|---|
| 3 | D ^ABSVSITE Q:'%
|
|---|
| 4 | 1 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
|
|---|
| 9 | DQ ;
|
|---|
| 10 | D HDR,VOL,HOLD,HDR1,SITE,HOLD,COMB
|
|---|
| 11 | EXIT K A,ABSVX,D0,DA,DIC,DIQ,DK,DL,DIR,DR,DX,S,TMP,VAR,X,Y,Z Q
|
|---|
| 12 | HOLD I $E(IOST)="C" D ENCON^ABSVQ
|
|---|
| 13 | W:$E(IOST)="C" @IOF
|
|---|
| 14 | QUIT
|
|---|
| 15 | HDR I $E(IOST)="C" W @IOF
|
|---|
| 16 | W !,"Volunteer Master File Information for ",$P($G(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
|
|---|
| 17 | QUIT
|
|---|
| 18 | HDR1 ;
|
|---|
| 19 | W !,"Station specific Volunteer Master File Information for ",$P($G(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
|
|---|
| 20 | QUIT
|
|---|
| 21 | VOL ;view volunteer specific information
|
|---|
| 22 | S DIC="^ABS(503330,",DA=ABSVX("VOLDA"),DR="0;2;3" D EN^DIQ
|
|---|
| 23 | Q
|
|---|
| 24 | SITE ;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
|
|---|
| 55 | COMB ;view combinations
|
|---|
| 56 | D PC1^ABSVE2
|
|---|
| 57 | Q
|
|---|
| 58 | TAB I TAB W ?40 Q
|
|---|
| 59 | W !
|
|---|
