source: ccr/CCRUTIL.m@ 16

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
        ;