source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVTIME.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 629 bytes
RevLine 
[613]1ABSVTIME ;VAMC ALTOONA/CTB - VERIFY TIME ;12/17/93 8:31 AM
2V ;;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
11NAME ;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.