CCRUTIL ;CCRCCD/SMH - Various Utilites for generating the CCR/CCD;06/15/08
	;;0.1;CCRCCD;;Jun 15, 2008;

	W "No Entry at Top!" Q

FMDTOUTC(DATE) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
	N UTC,Y,M,D ; UTC, Year, Month, Day
	S Y=1700+$E(DATE,1,3)
	S M=$E(DATE,4,5)
	S D=$E(DATE,6,7)
	S UTC=Y_"-"_M_"-"_D
	Q UTC
	;