1: PACKAGE BODY FA_CUA_HIERARCHY_PKG AS
2: /* $Header: FACHRAHMB.pls 120.1 2002/11/12 07:54:56 glchen ship $ */
3:
4: -- Creating Package Body for FA_CUA_HIERARCHY_PKG
5: -- Private APIs
1: PACKAGE BODY FA_CUA_HIERARCHY_PKG AS
2: /* $Header: FACHRAHMB.pls 120.1 2002/11/12 07:54:56 glchen ship $ */
3:
4: -- Creating Package Body for FA_CUA_HIERARCHY_PKG
5: -- Private APIs
6:
7: Function Validate_hierarchy_purpose(x_purpose_id in number)
8: return Boolean
208: Function set_global_level_number(p_level_number in number)
209: return boolean
210: is
211: Begin
212: FA_CUA_HIERARCHY_PKG.global_level_number := p_level_number;
213: return TRUE;
214: End;
215:
216: Function get_global_level_number
216: Function get_global_level_number
217: return number
218: is
219: BEGIN
220: return (nvl(FA_CUA_HIERARCHY_PKG.global_level_number,-1));
221: END;
222: --Function to check an hierararchy node exists
223: Function check_node_exists ( x_name in varchar2
224: ,x_node_type in Varchar2
371: set and the distribution lines in FA_HIERARCHY_DISTRIBUTIONS table */
372: Procedure create_distribution_set
373: ( x_dist_set_id out nocopy number
374: ,x_book_type_code in varchar2
375: ,x_distribution_tab in FA_CUA_HIERARCHY_PKG.distribution_tabtype
376: ,x_err_code in out nocopy varchar2
377: ,x_err_stage in out nocopy varchar2
378: ,x_err_stack in out nocopy varchar2)
379: is
513: ,x_asset_key_ccid in number default null
514: ,x_serial_number in varchar2 default null
515: ,x_life_end_date in date default null
516: ,x_dist_set_id in number default null
517: --,x_distribution_tab in FA_CUA_HIERARCHY_PKG.distribution_tabtype
518: ,x_err_code in out nocopy varchar2
519: ,x_err_stage in out nocopy varchar2
520: ,x_err_stack in out nocopy varchar2)
521: is
1007: ,x_lease_id in NUMBER default null
1008: ,x_asset_key_ccid in number default null
1009: ,x_serial_number in varchar2 default null
1010: ,x_life_end_date in date default null
1011: ,x_distribution_tab in FA_CUA_HIERARCHY_PKG.distribution_tabtype default FA_CUA_HIERARCHY_PKG.distribution_tab
1012: )
1013: is
1014: l_old_err_stack varchar2(640);
1015: l_rowid varchar2(240) default null;
1020: --Call the crete_node API to create the Node first
1021: l_old_err_stack := x_err_stack;
1022: x_err_code := '0';
1023: x_err_stage := 'Calling CREATE_NODE';
1024: FA_CUA_HIERARCHY_PKG.create_node(
1025: x_err_code
1026: , x_err_stage
1027: , x_err_stack
1028: , x_asset_hierarchy_purpose_id
1066: table is passed **/
1067: if(nvl(x_asset_id,0) = 0
1068: AND x_attribute_book_type_code is not null
1069: AND x_distribution_tab.count > 0 ) then
1070: FA_CUA_HIERARCHY_PKG.create_distribution_set
1071: ( l_dist_set_id
1072: ,x_attribute_book_type_code
1073: ,x_distribution_tab
1074: ,x_err_code
1092: OR l_dist_set_id is not null
1093: )
1094: ) then
1095: x_err_stage := 'Calling Validate_node_attributes';
1096: FA_CUA_HIERARCHY_PKG.validate_node_attributes
1097: (x_asset_hierarchy_purpose_id
1098: ,x_asset_hierarchy_id
1099: ,x_level_number
1100: ,x_attribute_book_type_code
1340: else
1341: l_calling_module := 'A';
1342: end if;
1343: x_err_stage := 'Validating Node';
1344: FA_CUA_HIERARCHY_PKG.Validate_node(
1345: l_calling_module
1346: , l_asset_hierarchy_purpose_id
1347: , l_book_type_code
1348: , x_name
1354: , x_err_stack);
1355: if (x_err_code = '0') then
1356: x_err_stage := 'Inserting Node';
1357: -- x_err_stack := x_err_stack ||'->'||'INASERT_NODE';
1358: FA_CUA_HIERARCHY_PKG.Insert_row (
1359: l_rowid
1360: , x_asset_hierarchy_purpose_id
1361: , x_asset_hierarchy_id
1362: , x_name
1851: End is_valid_line_percent;
1852:
1853: Procedure wrapper_validate_node is
1854: begin
1855: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1856: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1857: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1852:
1853: Procedure wrapper_validate_node is
1854: begin
1855: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1856: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1857: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1860: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1853: Procedure wrapper_validate_node is
1854: begin
1855: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1856: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1857: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1860: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1861: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1855: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1856: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1857: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1860: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1861: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1862: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack);
1863: end wrapper_validate_node;
1856: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1857: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1860: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1861: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1862: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack);
1863: end wrapper_validate_node;
1864:
1857: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1860: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1861: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1862: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack);
1863: end wrapper_validate_node;
1864:
1865:
1858: x_level_number => 0,
1859: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1860: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1861: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1862: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack);
1863: end wrapper_validate_node;
1864:
1865:
1866: end FA_CUA_HIERARCHY_PKG ;
1862: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack);
1863: end wrapper_validate_node;
1864:
1865:
1866: end FA_CUA_HIERARCHY_PKG ;