Calendar-LOV with time

Question

For an item with datatype 'DATETIME' the calendar-LOV contains the following errors:
- if the item contains no value the current time should be displayed. For the hours is this always '1:' instead of the current hour. If the item contains a date and time the right time is displayed.
- the radio group 'AM-PM' contains 4 buttons. Only the radio buttons 'AM' and 'PM' should be displayed (i can't figure out what the purpose is of the others two). The others radio buttons are displayed too. If your running on the web just in front of the hours the radion button is displayed, the label is covered by the hours. But if your running client/server the hours is covered by the label. I think that only the radio buttons 'AM' and 'PM' should be displayed.
I currently working on a workaround. When i'm finished it will follow

Answer 1

I've created the following workaround:
I've changed in the object-library the trigger 'KEY-LISTVAL' for the items 'CGSO$datetime' and 'CGSO$datetime_do' in the following:
declare
     l_cursor_item VARCHAR2(200) := :system.cursor_item;
     l_null_value BOOLEAN := false;
begin
     set_radio_button_property('CALENDAR.AM_PM','CGSO$RADIO_BUTTON',visible,property_false);
     set_radio_button_property('CALENDAR.AM_PM','CGSO$RADIO_BUTTON_DO',visible,property_false);
     if :system.cursor_value is null
     then
     copy(sysdate,l_cursor_item);
     l_null_value := true;
     end if;
qms$calendar.key_listval;
if l_null_value
then
copy(null,l_cursor_item);
end if;
end;