[Home] [Help]
3023: /*======================================================================
3024: PROCEDURE : GENERATE_REPEATING_SECTIONS
3025: PARAMETERS: p_form_id: The id of the form.
3026: COMMENT : This procedure will call the COMPILE_FORM and
3027: PON_FORMS_JRAD_PVT.CREATE_JRAD procedures for all the
3028: repeating sections included in this form.
3029: ======================================================================*/
3030: PROCEDURE GENERATE_REPEATING_SECTIONS (p_form_id IN NUMBER,
3031: p_generate_mode IN VARCHAR2, -- ALL, JRAD, XSD
3077:
3078: -- if we need to generate everything or only the JRAD region
3079: IF (p_generate_mode IN ('ALL', 'JRAD')) THEN
3080: print_debug_log (l_api_name, 'Calling CREATE_JRAD for section id = ' || v_section_id);
3081: PON_FORMS_JRAD_PVT.CREATE_JRAD (v_section_id, x_result, x_error_code, x_error_message);
3082:
3083: print_debug_log (l_api_name, 'Return values from create_jrad: x_result = ' ||
3084: x_result || ', x_error_message = ' ||
3085: x_error_message || ', x_err_code = ' ||
3221:
3222: -- if we need to generate either just the JRAD or everything
3223: IF (p_generate_mode IN ('ALL', 'JRAD')) THEN
3224:
3225: PON_FORMS_JRAD_PVT.CREATE_JRAD(p_form_id ,
3226: x_result,
3227: x_error_code,
3228: x_error_message
3229: );
3247: jrad_xml_region_name_disp = x_read_only_region_name_disp
3248: WHERE form_id = p_form_id
3249: AND status = 'ACTIVE';
3250:
3251: print_debug_log(l_api_name, 'PON_FORMS_JRAD_PVT.CREATE_JRAD p_result = '||p_result);
3252:
3253: print_debug_log(l_api_name, 'END '||l_api_name);
3254:
3255: END IF;