ABSVVIEW ;VAMC ALTOONA/CTB - VIEW MASTER RECORD FOR ONE VOLUNTEER ;5/21/99 2:29 PM
V ;;4.0;VOLUNTARY TIMEKEEPING;**3,6,15,17**;JULY 6, 1994
D ^ABSVSITE Q:'%
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: "
D MDIV^ABSVSITE,^DIC I +Y<0 D EXIT QUIT
S ABSVX("VOLDA")=+Y
S ZTRTN="DQ^ABSVVIEW",ZTDESC="DISPLAY/PRINT VOLUNTEER MASTER FILE ENTRY",ZTSAVE("ABSVX*")="",ZTSAVE("ABSV*")="" D ^ABSVQ
S DIC("A")="Select Next Volunteer: " G 1
DQ ;
D HDR,VOL,HOLD,HDR1,SITE,HOLD,COMB
EXIT K A,ABSVX,D0,DA,DIC,DIQ,DK,DL,DIR,DR,DX,S,TMP,VAR,X,Y,Z Q
HOLD I $E(IOST)="C" D ENCON^ABSVQ
W:$E(IOST)="C" @IOF
QUIT
HDR I $E(IOST)="C" W @IOF
W !,"Volunteer Master File Information for ",$P($G(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
QUIT
HDR1 ;
W !,"Station specific Volunteer Master File Information for ",$P($G(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
QUIT
VOL ;view volunteer specific information
S DIC="^ABS(503330,",DA=ABSVX("VOLDA"),DR="0;2;3" D EN^DIQ
Q
SITE ;view site specific information
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"
S DIQ(0)="E",DIQ="TMP(" D EN^DIQ1
S X="STANAME;STANUM;EDATE;YEARS;PHOURS;CHOURS;HOURS;HLAST;DATELAST;AWDCODE;TERM;REACT;DELETED;AUSTDEL;TRANS"
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
W !,"STATION NAME: "_STANAME,?40,"STATION NUMBER: "_STANUM K STANAME,STANUM
W ! S TAB=0 I EDATE]"" W "ENTRY DATE: "_EDATE S TAB=1 K EDATE
I YEARS]"" D TAB W "YEARS AT STATION: "_YEARS S TAB=TAB+1#2
K YEARS
W ! S TAB=0
I PHOURS]"" D TAB W "PRIOR HOURS SERVED: "_PHOURS S TAB=TAB+1#2
K PHOURS
I CHOURS]"" D TAB W "CURRENT HOURS SERVED: "_CHOURS S TAB=TAB+1#2
K CHOURS
I HOURS]"" D TAB W "TOTAL HOURS SERVED: "_HOURS S TAB=TAB+1#2
K HOURS
W ! S TAB=0
I HLAST]"" D TAB W "HOURS LAST AWARD: "_HLAST S TAB=TAB+1#2
K HLAST
I DATELAST]"" D TAB W "DATE LAST AWARD: "_DATELAST S TAB=TAB+1#2
K DATELAST
I AWDCODE]"" D TAB W "LAST AWARD: "_$E(AWDCODE,1,26) S TAB=TAB+1#2
K AWDCODE
I TERM]"" D TAB W "TERMINATION DATE: "_TERM S TAB=TAB+1#2
K TERM,REACT,DELETED
I AUSTDEL]"" D TAB W "AUSTIN DELETE DATE: "_AUSTDEL S TAB=TAB+1#2
K AUSTDEL
I TRANS]"" D TAB W "TRANSPORTATION: "_TRANS W !
K TRANS,TAB
S DIC="^ABS(503330,"_ABSVX("VOLDA")_",4,",DA=ABSV("INST"),DR="1;2",DIQ(0)="C" D EN^DIQ
QUIT
COMB ;view combinations
D PC1^ABSVE2
Q
TAB I TAB W ?40 Q
W !
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HABSVVIEW 2571 printed Jan 14, 2021@17:32:16 Page 2
ABSVVIEW ;VAMC ALTOONA/CTB - VIEW MASTER RECORD FOR ONE VOLUNTEER ;5/21/99 2:29 PM
V ;;4.0;VOLUNTARY TIMEKEEPING;**3,6,15,17**;JULY 6, 1994
+1 DO ^ABSVSITE
if '%
QUIT
1 SET DIC=503330
SET DIC(0)="AEMQZ"
SET DIC("S")="I $D(^ABS(503330,+Y,4,ABSV(""INST"")))"
if '$DATA(DIC("A"))
SET DIC("A")="Select Volunteer: "
+1 DO MDIV^ABSVSITE
DO ^DIC
IF +Y<0
DO EXIT
QUIT
+2 SET ABSVX("VOLDA")=+Y
+3 SET ZTRTN="DQ^ABSVVIEW"
SET ZTDESC="DISPLAY/PRINT VOLUNTEER MASTER FILE ENTRY"
SET ZTSAVE("ABSVX*")=""
SET ZTSAVE("ABSV*")=""
DO ^ABSVQ
+4 SET DIC("A")="Select Next Volunteer: "
GOTO 1
DQ ;
+1 DO HDR
DO VOL
DO HOLD
DO HDR1
DO SITE
DO HOLD
DO COMB
EXIT KILL A,ABSVX,D0,DA,DIC,DIQ,DK,DL,DIR,DR,DX,S,TMP,VAR,X,Y,Z
QUIT
HOLD IF $EXTRACT(IOST)="C"
DO ENCON^ABSVQ
+1 if $EXTRACT(IOST)="C"
WRITE @IOF
+2 QUIT
HDR IF $EXTRACT(IOST)="C"
WRITE @IOF
+1 WRITE !,"Volunteer Master File Information for ",$PIECE($GET(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
+2 QUIT
HDR1 ;
+1 WRITE !,"Station specific Volunteer Master File Information for ",$PIECE($GET(^ABS(503330,ABSVX("VOLDA"),0)),"^"),!!
+2 QUIT
VOL ;view volunteer specific information
+1 SET DIC="^ABS(503330,"
SET DA=ABSVX("VOLDA")
SET DR="0;2;3"
DO EN^DIQ
+2 QUIT
SITE ;view site specific information
+1 SET DA=ABSVX("VOLDA")
SET DIC="^ABS(503330,"
SET DR=.1
SET DA(503330.01)=ABSV("INST")
SET DR(503330.01)=".01;.5;1;2;2.5;2.7;3;4;5;6;7;8;9;10;20"
+2 SET DIQ(0)="E"
SET DIQ="TMP("
DO EN^DIQ1
+3 SET X="STANAME;STANUM;EDATE;YEARS;PHOURS;CHOURS;HOURS;HLAST;DATELAST;AWDCODE;TERM;REACT;DELETED;AUSTDEL;TRANS"
+4 FOR I=1:1
SET Y=$PIECE(DR(503330.01),";",I)
if Y=""
QUIT
SET Z=$GET(TMP(503330.01,ABSV("INST"),Y,"E"))
SET VAR=$PIECE(X,";",I)
SET @VAR=Z
+5 WRITE !,"STATION NAME: "_STANAME,?40,"STATION NUMBER: "_STANUM
KILL STANAME,STANUM
+6 WRITE !
SET TAB=0
IF EDATE]""
WRITE "ENTRY DATE: "_EDATE
SET TAB=1
KILL EDATE
+7 IF YEARS]""
DO TAB
WRITE "YEARS AT STATION: "_YEARS
SET TAB=TAB+1#2
+8 KILL YEARS
+9 WRITE !
SET TAB=0
+10 IF PHOURS]""
DO TAB
WRITE "PRIOR HOURS SERVED: "_PHOURS
SET TAB=TAB+1#2
+11 KILL PHOURS
+12 IF CHOURS]""
DO TAB
WRITE "CURRENT HOURS SERVED: "_CHOURS
SET TAB=TAB+1#2
+13 KILL CHOURS
+14 IF HOURS]""
DO TAB
WRITE "TOTAL HOURS SERVED: "_HOURS
SET TAB=TAB+1#2
+15 KILL HOURS
+16 WRITE !
SET TAB=0
+17 IF HLAST]""
DO TAB
WRITE "HOURS LAST AWARD: "_HLAST
SET TAB=TAB+1#2
+18 KILL HLAST
+19 IF DATELAST]""
DO TAB
WRITE "DATE LAST AWARD: "_DATELAST
SET TAB=TAB+1#2
+20 KILL DATELAST
+21 IF AWDCODE]""
DO TAB
WRITE "LAST AWARD: "_$EXTRACT(AWDCODE,1,26)
SET TAB=TAB+1#2
+22 KILL AWDCODE
+23 IF TERM]""
DO TAB
WRITE "TERMINATION DATE: "_TERM
SET TAB=TAB+1#2
+24 KILL TERM,REACT,DELETED
+25 IF AUSTDEL]""
DO TAB
WRITE "AUSTIN DELETE DATE: "_AUSTDEL
SET TAB=TAB+1#2
+26 KILL AUSTDEL
+27 IF TRANS]""
DO TAB
WRITE "TRANSPORTATION: "_TRANS
WRITE !
+28 KILL TRANS,TAB
+29 SET DIC="^ABS(503330,"_ABSVX("VOLDA")_",4,"
SET DA=ABSV("INST")
SET DR="1;2"
SET DIQ(0)="C"
DO EN^DIQ
+30 QUIT
COMB ;view combinations
+1 DO PC1^ABSVE2
+2 QUIT
TAB IF TAB
WRITE ?40
QUIT
+1 WRITE !
