15 lines
629 B
Mathematica
15 lines
629 B
Mathematica
ABSVTIME ;VAMC ALTOONA/CTB - VERIFY TIME ;12/17/93 8:31 AM
|
|
V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
|
|
Q:$D(X)[0
|
|
N X1,X2
|
|
I X?3N S X="0"_X S ABSVXA="Do you mean '"_X_"'",ABSVXB="",%=1 D ^ABSVYN I %'=1 K X Q
|
|
I X'?4N K X Q
|
|
S X1=$E(X,1,2),X2=$E(X,3,4)
|
|
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
|
|
I +X2>59 W !,"Minutes may not exceed 59" K X Q
|
|
Q
|
|
NAME ;ELIMINATE SPACES FROM NAME FIELD FROM FILE 503330
|
|
I X'["," K X Q
|
|
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))
|
|
S X=X1_","_X2 Q
|