Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
666 bytes
|
Line | |
---|
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.