/*** Get military time, return in am/pm format */
AMPM: PROCEDURE
/*** 1.01 - will support minutes */
ARG TIM
PARSE VAR TIM TIM ':' MIN
IF TIM=0 THEN R='12AM'
ELSE IF TIM=12 THEN R='12PM'
ELSE IF TIM>12 THEN R=TIM-12 || 'PM'
ELSE R=TIM || 'AM'
IF MIN='' THEN RETURN R
MP=POS('M',R)
RETURN LEFT(R,MP-2)':'MIN || RIGHT(R,2)