source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVTC1.m@ 1073

Last change on this file since 1073 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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