ALPHA DATE (42) EXECUTE CODE (62.07)
Name
Value
NAME
ALPHA DATE
EXECUTE CODE
S Y=$E("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",$E(Y,4,5)*3-2,$E(Y,4,5)*3)_" "_$S(Y#100:$J(Y#100\1,2)_", ",1:"")_(Y\10000+1700)_$S(Y#1:" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12),1:"")
TYPE
XECUTE
SUBSCRIPT NAME
ADD
