/* Get am/pm time, return in military format */
MILITARY: PROCEDURE
ARG TIM
IF TIM='12AM' THEN RETURN 0
IF TIM='12PM' THEN RETURN 12
PM=POS('PM',TIM)
IF PM>0 THEN DO
   PARSE VAR TIM TIM 'PM'
   PARSE VAR TIM TIM ':' MIN
   TIM=TIM+12
   IF MIN<>'' THEN TIM=TIM':'MIN
END
ELSE PARSE VAR TIM TIM 'AM'
RETURN TIM