[Home] [Help]
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
9: is
10: Cursor C_1 is select asset_hierarchy_purpose_id
11: from fa_asset_hierarchy_purpose
27: ,x_asset_category_id in number
28: ,x_lease_id in NUMBER
29: ,x_err_code in out nocopy varchar2
30: ,x_err_stage in out nocopy varchar2
31: ,x_err_stack in out nocopy varchar2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
32: is
33: Cursor C_1 is select category_type
34: from fa_categories
35: where category_id = x_asset_category_id;
72: x_err_stack := l_old_err_stack;
73: End Validate_asset_category;
74:
75: --Function to Validate the Lease ID
76: Function Validate_lease(x_lease_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
77: return Boolean
78: is
79: Cursor C_1 is select lease_id
80: from fa_leases
91: return TRUE;
92: End Validate_lease;
93:
94: --Fnction to validate Asset Key words
95: Function Validate_asset_key(x_asset_key_ccid in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
96: return Boolean
97: is
98: Cursor C_1 is select code_combination_id
99: from fa_asset_keywords
110: return TRUE;
111: End Validate_asset_key;
112:
113: --Fnction to validate Location
114: Function Validate_location(x_location_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
115: return Boolean
116: is
117: Cursor C_1 is select location_id
118: from fa_locations
129: return TRUE;
130: End Validate_location;
131:
132: --Fnction to validate Location
133: Function Validate_gl_ccid(x_gl_ccid in number,x_CofA_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
134: return Boolean
135: is
136: Cursor C_1 is select code_combination_id
137: from gl_code_combinations
154: return TRUE;
155: End Validate_gl_ccid;
156:
157: --Fnction to validate employee
158: Function Validate_employee(x_employee_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
159: return Boolean
160: is
161: Cursor C_1 is select employee_id
162: from fa_employees
173: return TRUE;
174: End Validate_employee;
175:
176: --Function to validate the distribution set
177: Function valid_dist_set(x_dist_set_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
178: return Boolean
179: is
180: Cursor C is select dist_set_id
181: from FA_HIERARCHY_DISTRIBUTIONS
190: end if;
191: close C;
192: return TRUE;
193: End valid_dist_set;
194: Function validate_level_number(p_level_number in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
195: return boolean
196: is
197: begin
198: if (p_level_number < 0 OR
204:
205: end if;
206: end validate_level_number;
207:
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;
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
225: ,x_purpose_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
226: return Boolean
227: is
228: Cursor C_NAME is select asset_hierarchy_id
229: from fa_asset_hierarchy
273: , X_ATTRIBUTE12 in varchar2
274: , X_ATTRIBUTE13 in varchar2
275: , X_ATTRIBUTE14 in varchar2
276: , X_ATTRIBUTE15 in varchar2
277: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
278: is
279: cursor C is select ROWID from FA_ASSET_HIERARCHY
280: where asset_hierarchy_id = X_asset_hierarchy_id ;
281:
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
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
477: x_err_stack := l_old_err_stack;
478: End create_distribution_set;
479:
480: --FUnction to check Ctegory is of lease type
481: Function is_catg_nonlease_type(x_catg_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
482: return boolean
483: is
484: dummy number;
485: begin
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
525: Cursor C_MANDT_CONTROLS is
526: select ASSET_HIERARCHY_PURPOSE_ID,
527: LEVEL_NUMBER,
693: Function check_name_unique( x_event in varchar2
694: ,x_asset_hierarchy_id in number default null
695: ,x_name in varchar2
696: ,x_asset_id in number
697: ,x_purpose_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
698: return Boolean
699: is
700: Cursor C_name_insert is Select name
701: from FA_ASSET_HIERARCHY
744: ,x_parent_hierarchy_id in number
745: ,x_hierarchy_rule_set_id in number default null
746: ,x_err_code in out nocopy varchar2
747: ,x_err_stage in out nocopy varchar2
748: ,x_err_stack in out nocopy varchar2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
749: is
750: /* validates for a. Book is of Corporate class
751: b. parent Node exists
752: d. Book type code matches with the parent book type
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;
1023: l_distribution_id number default null;
1215: , X_ATTRIBUTE12 in VARCHAR2 default null
1216: , X_ATTRIBUTE13 in VARCHAR2 default null
1217: , X_ATTRIBUTE14 in VARCHAR2 default null
1218: , X_ATTRIBUTE15 in VARCHAR2 default null
1219: ,p_log_level_rec IN fa_api_types.log_level_rec_type)
1220: is
1221: Cursor C_PURPOSE_BOOK is select book_type_code
1222: from FA_ASSET_HIERARCHY_PURPOSE
1223: where asset_hierarchy_purpose_id = x_asset_hierarchy_purpose_id;
1438: , X_ATTRIBUTE12 in VARCHAR2
1439: , X_ATTRIBUTE13 in VARCHAR2
1440: , X_ATTRIBUTE14 in VARCHAR2
1441: , X_ATTRIBUTE15 in VARCHAR2
1442: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) is
1443: cursor c1 is select
1444: name
1445: , level_number
1446: , hierarchy_rule_set_id
1664: , X_ATTRIBUTE12 in VARCHAR2
1665: , X_ATTRIBUTE13 in VARCHAR2
1666: , X_ATTRIBUTE14 in VARCHAR2
1667: , X_ATTRIBUTE15 in VARCHAR2
1668: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)is
1669: begin
1670: update FA_ASSET_HIERARCHY set
1671: name = x_name,
1672: --level_number = x_level_number, --Level number is Non Updateable
1704:
1705: procedure DELETE_ROW (
1706: x_asset_hierarchy_purpose_id in number
1707: , X_asset_hierarchy_id in NUMBER
1708: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) is
1709: begin
1710: delete from FA_ASSET_HIERARCHY
1711: where asset_hierarchy_id = X_asset_hierarchy_id
1712: and nvl(asset_hierarchy_purpose_id,1) = nvl(x_asset_hierarchy_purpose_id,1);
1714: raise no_data_found;
1715: end if;
1716: end DELETE_ROW;
1717:
1718: function is_non_asset_node(x_asset_hierarchy_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1719: return boolean
1720: is
1721: v_asset_id number;
1722: cursor C is
1735:
1736: --Function to check the particular attribute is mandatory
1737: Function is_attribute_mandatory(x_hierarchy_purpose_id in number
1738: ,x_level_number in number
1739: ,x_attribute_name in varchar2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1740: return Boolean
1741: is
1742: Cursor C is select 1
1743: from fa_hierarchy_controls
1763: return TRUE;
1764: End is_attribute_mandatory;
1765:
1766: /* Check for the lowest level non asset node with no Non asset nodes attached */
1767: Function check_lowest_level_node(x_asset_hierarchy_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1768: return Boolean
1769: is
1770: dummy number;
1771: Begin
1781: when no_data_found then
1782: return(FALSE);
1783: end check_lowest_level_node;
1784:
1785: Function check_asset_node(x_asset_hierarchy_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1786: return Boolean
1787: is
1788: cursor C is select nvl(asset_id,0)
1789: from fa_asset_hierarchy
1800: return (FALSE);
1801: end if;
1802: end check_asset_node;
1803:
1804: Function Check_asset_tied_node(x_asset_hierarchy_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1805: return BOOLEAN
1806: is
1807: dummy number;
1808: Begin
1816: when no_data_found then
1817: return (FALSE);
1818: End check_asset_tied_node;
1819:
1820: Function is_child_exists(x_asset_hierarchy_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null)
1821: return BOOLEAN
1822: is
1823: dummy number;
1824: begin
1831: return(FALSE);
1832: end is_child_exists;
1833:
1834: /* Function to check assets are attached to the tree branch */
1835: Function is_assets_attached_node(x_node_id in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean
1836: is
1837: dummy number;
1838: Begin
1839: select 1 into dummy from dual
1847: when no_data_found then
1848: return(FALSE);
1849: End is_assets_attached_node;
1850:
1851: Function is_valid_line_percent(x_line_percent in number, p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) return boolean
1852: is
1853: Begin
1854: if(nvl(x_line_percent,0) >=0 and nvl(x_line_percent,0) <=100) then
1855: return TRUE;
1858: end if;
1859: End is_valid_line_percent;
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,