AUZTI.m

AUZTI ;MOVE TO "MGR" AND REMOVE THIS LINE [ 05/05/86  10:56 AM ]

%ZTI ;TIME INPUT

 ;CFL/OKC

Z S:'$D(%TI(0)) %TI(0)="" I '$D(X) S X=""

A1 I %TI(0)["A" R !!,"TIME: ",%TS S X=%TS

 S (Y,%Z)="" G END:X=""

 G MIL:X?4N,NOW:("NOW"[X),HELP:X?1"?"."?"

 F %I=$L(X):-1:1 I $E(X,%I)?1A,"APap"[$E(X,%I) S %Z=$E(X,%I),X=$E(X,1,%I-1)

 I X?3N!(X?3N.AP) S %H=$E(X,1),%M=$E(X,2,3) G A11

 S %H=+$P(X,":",1),%M=+$P(X,":",2)

A11 I '(%H?1N!(%H?2N))!(%H<1)!(%H>23) G ERR

 I %M,'(%M?2N)!(%M>59) G ERR

 G A2:%Z'="",ERR:%TI(0)["X" I %H>6,%H<12 S %Z="A" G A2

 S %Z="P"

A2 I %Z["P" S:%H<12 %H=%H+12

 I %Z["A",%H=12 S %H=0

B1 S Y=%H*3600+(%M*60) D ECHO

 G END

MIL S %H=$E(X,1,2),%M=$E(X,3,4) I %H<23,%M<60 G B1

NOW S %H=$P($H,",",2),%M=%H#3600\60,%H=%H\3600 G B1

ERR I %TI(0)["Q" W *7,"  ??"

 I %TI(0)["A" G A1

END K %H,%M,%Z,%TS,%TI

 Q

ECHO S %H=Y\3600,%M=Y#3600\60,%Z=$S(Y>43199:"PM",1:"AM"),%M=$E(%M+100,2,3) S:%H>12 %H=%H-12 I '%H S %H=12

 S %E="   ("_%H_":"_%M_" "_%Z_")" I %TI(0)["E" W %E

 Q

HELP W !!,"Enter The Time In One Of The Following Formats:",!

 W !,?5,"10:00 AM",?25,"10:00A",?50,"10A",?65,"1000"

 W !!,?5," 2:30 PM",?25," 2:30P",?50,"230P",?65,"1430"

 W !!,"Enter 'NOW' For The Current Time."

 W !!,?3,"If 'AM' or 'PM' is Ommitted, The Time Is Assumed To Be"

 W !!,?3,"Between 7:00 AM and 6:00 PM (Except For Military Time)."

 G A1:%TI(0)["A",END

AUZTI     ;MOVE TO "MGR" AND REMOVE THIS LINE [ 05/05/86  10:56 AM ]

%ZTI      ;TIME INPUT

 +1       ;CFL/OKC

Z          IF '$DATA(%TI(0))

               SET %TI(0)=""

           IF '$DATA(X)

               SET X=""

A1         IF %TI(0)["A"

               READ !!,"TIME: ",%TS

               SET X=%TS

 +1        SET (Y,%Z)=""

           IF X=""

               GOTO END

 +2        IF X?4N

               GOTO MIL

           IF ("NOW"[X)

               GOTO NOW

           IF X?1"?"."?"

               GOTO HELP

 +3        FOR %I=$LENGTH(X):-1:1

               IF $EXTRACT(X,%I)?1A

                   IF "APap"[$EXTRACT(X,%I)

                       SET %Z=$EXTRACT(X,%I)

                       SET X=$EXTRACT(X,1,%I-1)

 +4        IF X?3N!(X?3N.AP)

               SET %H=$EXTRACT(X,1)

               SET %M=$EXTRACT(X,2,3)

               GOTO A11

 +5        SET %H=+$PIECE(X,":",1)

           SET %M=+$PIECE(X,":",2)

A11        IF '(%H?1N!(%H?2N))!(%H<1)!(%H>23)

               GOTO ERR

 +1        IF %M

               IF '(%M?2N)!(%M>59)

                   GOTO ERR

 +2        IF %Z'=""

               GOTO A2

           IF %TI(0)["X"

               GOTO ERR

           IF %H>6

               IF %H<12

                   SET %Z="A"

                   GOTO A2

 +3        SET %Z="P"

A2         IF %Z["P"

               IF %H<12

                   SET %H=%H+12

 +1        IF %Z["A"

               IF %H=12

                   SET %H=0

B1         SET Y=%H*3600+(%M*60)

           DO ECHO

 +1        GOTO END

MIL        SET %H=$EXTRACT(X,1,2)

           SET %M=$EXTRACT(X,3,4)

           IF %H<23

               IF %M<60

                   GOTO B1

NOW        SET %H=$PIECE($HOROLOG,",",2)

           SET %M=%H#3600\60

           SET %H=%H\3600

           GOTO B1

ERR        IF %TI(0)["Q"

               WRITE *7,"  ??"

 +1        IF %TI(0)["A"

               GOTO A1

END        KILL %H,%M,%Z,%TS,%TI

 +1        QUIT 

ECHO       SET %H=Y\3600

           SET %M=Y#3600\60

           SET %Z=$SELECT(Y>43199:"PM",1:"AM")

           SET %M=$EXTRACT(%M+100,2,3)

           IF %H>12

               SET %H=%H-12

           IF '%H

               SET %H=12

 +1        SET %E="   ("_%H_":"_%M_" "_%Z_")"

           IF %TI(0)["E"

               WRITE %E

 +2        QUIT 

HELP       WRITE !!,"Enter The Time In One Of The Following Formats:",!

 +1        WRITE !,?5,"10:00 AM",?25,"10:00A",?50,"10A",?65,"1000"

 +2        WRITE !!,?5," 2:30 PM",?25," 2:30P",?50,"230P",?65,"1430"

 +3        WRITE !!,"Enter 'NOW' For The Current Time."

 +4        WRITE !!,?3,"If 'AM' or 'PM' is Ommitted, The Time Is Assumed To Be"

 +5        WRITE !!,?3,"Between 7:00 AM and 6:00 PM (Except For Military Time)."

 +6        IF %TI(0)["A"

               GOTO A1

           GOTO END