ABSVTC1 ;VAMC ALTOONA/CTB_CLH - TIME CARD TRANSMISSION ;7/7/98  2:08 PM
V ;;4.0;VOLUNTARY TIMEKEEPING;**10**;JULY 6, 1994
DATE S %DT="AE",%DT("A")="Select Time Card Reporting Month: " D ^%DT Q:Y<0
06 ;ENTRY FOR 06 TRANSACTION
 I '$D(DATE) D DATE
 S %DT="",X="T" D ^%DT S MONTH=$E(Y,1,5)_"00"
 S DATE=$E(Y,1,5)_"00" I $D(^ABS(503331,"AF",DATE))<9 W !,"No Time Cards for month selected.",*7 Q
 S N=0 F I=1:1 S N=$O(^ABS(503331,"AF",DATE))
 QUIT
VIEW ;VIEW A SINGLE TIMECARD
 D ^ABSVSITE G OUT^ABSVE3:'%
 S DIC=503335,DIC(0)="AEMQ",DIC("A")="View time card for VOLUNTEER: ",DIC("S")="I $P(^(0),U,12)=ABSV(""SITE"")" D ^DIC
 W !! S DA=+Y,DR="0:2" D EN^DIQ
 G VIEW
 QUIT