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