create or replace package body efnow190$js$cnrl is


--------------------------------------------------------------------------------
-- Name:        efnow190$js$cnrl.CreateListJavaScript
--
-- Description:
--
-- Parameters:
--
--------------------------------------------------------------------------------
   procedure CreateListJavaScript (
                                   RL_BODY_ATTRIBUTES in varchar2)
   is
   begin
      if not caco_security.security_check('efnow190$cnrl') then
         return;
      end if;

      htp.p(WSGJSL.OpenScript);
      htp.p('var FormType = "List";');

      if to_char(efnow190$cort.CURR_VAL.CNRT_ID) is not null then
         htp.p( 'var P_CNRT_ID = new Array();' );
         htp.p( 'P_CNRT_ID[0] = "' || WSGL.EscapeURLParam(to_char(efnow190$cort.CURR_VAL.CNRT_ID)) || '";' );
      end if;
      htp.p( 'var P_8 = new Array();' );
      htp.p( 'P_8[0] = "' || WSGL.EscapeURLParam(nvl(to_char(efnow190$cort.CURR_VAL.CNRT_ID), '')) || '";' );
      if (to_char(efnow190$cort.CURR_VAL.CNRT_ID) is not null  ) then
         htp.p( 'var CNRL_CHK_VALUE = new Array();' );
         htp.p( 'CNRL_CHK_VALUE[0] = ' || to_char(WSGL.Checksum(''|| to_char(efnow190$cort.CURR_VAL.CNRT_ID)|| to_char(efnow190$cort.CURR_VAL.CNRT_ID))) || ';' );
      end if;

      htp.p( 'var P_13 = new Array();' );

      htp.p(WSGJSL.CloseScript);
   exception
      when others then
         WSGL.DisplayMessage(WSGL.MESS_EXCEPTION, SQLERRM, ''||' : '||'#Log Messages#3565#',
                             RL_BODY_ATTRIBUTES, 'efnow190$js$cnrl.CreateListJavaScript');
   end;
end;
/