16 lines
666 B
Mathematica
16 lines
666 B
Mathematica
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
|