Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
666 bytes
|
Rev | Line | |
---|
[613] | 1 | ABSVTC1 ;VAMC ALTOONA/CTB_CLH - TIME CARD TRANSMISSION ;7/7/98 2:08 PM
|
---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**10**;JULY 6, 1994
|
---|
| 3 | DATE S %DT="AE",%DT("A")="Select Time Card Reporting Month: " D ^%DT Q:Y<0
|
---|
| 4 | 06 ;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
|
---|
| 10 | VIEW ;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.