Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
629 bytes
|
Line | |
---|
1 | ABSVTIME ;VAMC ALTOONA/CTB - VERIFY TIME ;12/17/93 8:31 AM
|
---|
2 | V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
---|
3 | Q:$D(X)[0
|
---|
4 | N X1,X2
|
---|
5 | I X?3N S X="0"_X S ABSVXA="Do you mean '"_X_"'",ABSVXB="",%=1 D ^ABSVYN I %'=1 K X Q
|
---|
6 | I X'?4N K X Q
|
---|
7 | S X1=$E(X,1,2),X2=$E(X,3,4)
|
---|
8 | I +X1<10!(+X1>13) S ABSVXA="Are you sure you want the meal cutoff time to be this "_$S(+X1<10:"early",1:"late"),ABSVXB="",%=2 D ^ABSVYN I %'=1 K X Q
|
---|
9 | I +X2>59 W !,"Minutes may not exceed 59" K X Q
|
---|
10 | Q
|
---|
11 | NAME ;ELIMINATE SPACES FROM NAME FIELD FROM FILE 503330
|
---|
12 | I X'["," K X Q
|
---|
13 | N I,X1,X2 S X1=$P(X,","),X2=$P(X,",",2) F I=1:1 Q:$E(X2)'=" " S X2=$E(X2,2,$L(X2))
|
---|
14 | S X=X1_","_X2 Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.