378: ,x_err_stack in out nocopy varchar2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
379: is
380: Cursor C is select FA_HIERARCHY_DIST_SET_S.nextval from dual;
381: Cursor C_CofA_id is select accounting_flex_structure
382: from fa_book_controls
383: where book_type_code = x_book_type_code;
384: l_CofA_id number;
385: l_old_err_stack varchar2(640);
386: I BINARY_INTEGER;
760: l. Parent level is one level higher than the current level.
761: m. Node name cannot be null for Asset node
762: */
763: l_old_err_stack varchar2(640);
764: v_book_class FA_BOOK_CONTROLS.book_class%TYPE;
765: v_book_type_code FA_BOOK_CONTROLS.book_type_code%TYPE;
766: v_name FA_ASSET_HIERARCHY.name%TYPE;
767: dummy number;
768: l_book_type_code varchar2(30);
761: m. Node name cannot be null for Asset node
762: */
763: l_old_err_stack varchar2(640);
764: v_book_class FA_BOOK_CONTROLS.book_class%TYPE;
765: v_book_type_code FA_BOOK_CONTROLS.book_type_code%TYPE;
766: v_name FA_ASSET_HIERARCHY.name%TYPE;
767: dummy number;
768: l_book_type_code varchar2(30);
769: v_mandatory_asset_flag varchar2(1);
780: INVALID_PURPOSE_ID EXCEPTION;
781: PURPOSE_NOT_EXISTS EXCEPTION;
782:
783: Cursor C_BOOK is
784: Select book_class from FA_BOOK_CONTROLS
785: where book_type_code = x_book_type_code;
786: Cursor C_PARENT is
787: select book_type_code from FA_ASSET_HIERARCHY_PURPOSE
788: where asset_hierarchy_purpose_id = (Select asset_hierarchy_purpose_id