1: PACKAGE BODY FA_CUA_HIERARCHY_PKG AS
2: /* $Header: FACHRAHMB.pls 120.4 2009/08/20 14:17:46 bridgway 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.4 2009/08/20 14:17:46 bridgway 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, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
8: return Boolean
208: Function set_global_level_number(p_level_number in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
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, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
379: is
516: ,x_asset_key_ccid in number default null
517: ,x_serial_number in varchar2 default null
518: ,x_life_end_date in date default null
519: ,x_dist_set_id in number default null
520: --,x_distribution_tab in FA_CUA_HIERARCHY_PKG.distribution_tabtype
521: ,x_err_code in out nocopy varchar2
522: ,x_err_stage in out nocopy varchar2
523: ,x_err_stack in out nocopy varchar2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
524: is
1014: ,x_lease_id in NUMBER default null
1015: ,x_asset_key_ccid in number default null
1016: ,x_serial_number in varchar2 default null
1017: ,x_life_end_date in date default null
1018: ,x_distribution_tab in FA_CUA_HIERARCHY_PKG.distribution_tabtype default FA_CUA_HIERARCHY_PKG.distribution_tab
1019: ,p_log_level_rec IN fa_api_types.log_level_rec_type)
1020: is
1021: l_old_err_stack varchar2(640);
1022: l_rowid varchar2(240) default null;
1027: --Call the crete_node API to create the Node first
1028: l_old_err_stack := x_err_stack;
1029: x_err_code := '0';
1030: x_err_stage := 'Calling CREATE_NODE';
1031: FA_CUA_HIERARCHY_PKG.create_node(
1032: x_err_code
1033: , x_err_stage
1034: , x_err_stack
1035: , x_asset_hierarchy_purpose_id
1073: table is passed **/
1074: if(nvl(x_asset_id,0) = 0
1075: AND x_attribute_book_type_code is not null
1076: AND x_distribution_tab.count > 0 ) then
1077: FA_CUA_HIERARCHY_PKG.create_distribution_set
1078: ( l_dist_set_id
1079: ,x_attribute_book_type_code
1080: ,x_distribution_tab
1081: ,x_err_code
1099: OR l_dist_set_id is not null
1100: )
1101: ) then
1102: x_err_stage := 'Calling Validate_node_attributes';
1103: FA_CUA_HIERARCHY_PKG.validate_node_attributes
1104: (x_asset_hierarchy_purpose_id
1105: ,x_asset_hierarchy_id
1106: ,x_level_number
1107: ,x_attribute_book_type_code
1348: else
1349: l_calling_module := 'A';
1350: end if;
1351: x_err_stage := 'Validating Node';
1352: FA_CUA_HIERARCHY_PKG.Validate_node(
1353: l_calling_module
1354: , l_asset_hierarchy_purpose_id
1355: , l_book_type_code
1356: , x_name
1362: , x_err_stack, p_log_level_rec => p_log_level_rec);
1363: if (x_err_code = '0') then
1364: x_err_stage := 'Inserting Node';
1365: -- x_err_stack := x_err_stack ||'->'||'INASERT_NODE';
1366: FA_CUA_HIERARCHY_PKG.Insert_row (
1367: l_rowid
1368: , x_asset_hierarchy_purpose_id
1369: , x_asset_hierarchy_id
1370: , x_name
1860:
1861: Procedure wrapper_validate_node (p_log_level_rec IN
1862: fa_api_types.log_level_rec_type ) is
1863: begin
1864: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1865: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1866: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1861: Procedure wrapper_validate_node (p_log_level_rec IN
1862: fa_api_types.log_level_rec_type ) is
1863: begin
1864: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1865: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1866: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1869: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1862: fa_api_types.log_level_rec_type ) is
1863: begin
1864: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1865: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1866: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1869: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1870: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1864: validate_node(x_asset_hierarchy_purpose_id => FA_CUA_HIERARCHY_PKG.g_asset_hierarchy_purpose_id,
1865: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1866: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1869: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1870: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1871: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack, p_log_level_rec => p_log_level_rec);
1872: end wrapper_validate_node;
1865: x_book_type_code => FA_CUA_HIERARCHY_PKG.g_book_type_code,
1866: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1869: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1870: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1871: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack, p_log_level_rec => p_log_level_rec);
1872: end wrapper_validate_node;
1873:
1866: x_name => FA_CUA_HIERARCHY_PKG.g_name,
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1869: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1870: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1871: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack, p_log_level_rec => p_log_level_rec);
1872: end wrapper_validate_node;
1873:
1874:
1867: x_level_number => 0,
1868: x_parent_hierarchy_id => FA_CUA_HIERARCHY_PKG.g_parent_hierarchy_id,
1869: x_err_code => FA_CUA_HIERARCHY_PKG.g_err_code,
1870: x_err_stage => FA_CUA_HIERARCHY_PKG.g_err_stage,
1871: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack, p_log_level_rec => p_log_level_rec);
1872: end wrapper_validate_node;
1873:
1874:
1875: end FA_CUA_HIERARCHY_PKG ;
1871: x_err_stack => FA_CUA_HIERARCHY_PKG.g_err_stack, p_log_level_rec => p_log_level_rec);
1872: end wrapper_validate_node;
1873:
1874:
1875: end FA_CUA_HIERARCHY_PKG ;