1 PACKAGE BODY FA_CUA_HIERARCHY_PURPOSE_PKG AS
2 /* $Header: FACHRHPMB.pls 120.1 2002/11/12 07:55:24 glchen ship $ */
3
4 Procedure Insert_row ( x_rowid in out nocopy varchar2
5 , x_asset_hierarchy_purpose_id in out nocopy number
6 , x_name in varchar2
7 , x_purpose_type in varchar2
8 , x_book_type_code in varchar2
9 , x_default_rule_set_id in number
10 , X_CREATION_DATE in date
11 , X_CREATED_BY in number
12 , X_LAST_UPDATE_DATE in date
13 , X_LAST_UPDATED_BY in number
14 , X_LAST_UPDATE_LOGIN in number
15 , x_description in varchar2
16 , x_mandatory_asset_flag in varchar2
17 , x_rule_set_level in varchar2
18 , x_permissible_levels in number
19 )
20 is
21 cursor C is select ROWID from FA_ASSET_HIERARCHY_PURPOSE
22 where asset_hierarchy_purpose_id = X_asset_hierarchy_purpose_id ;
23
24 CURSOR C1 is Select FA_ASSET_HIERARCHY_PURPOSE_S.nextval from sys.dual;
25 begin
26 if X_asset_hierarchy_purpose_id is null then
27 open C1;
28 fetch C1 into X_asset_hierarchy_purpose_id ;
29 close C1;
30 end if;
31 insert into FA_ASSET_HIERARCHY_PURPOSE
32 ( asset_hierarchy_purpose_id
33 , name
34 , purpose_type
35 , book_type_code
36 , default_rule_set_id
37 , CREATION_DATE
38 , CREATED_BY
39 , LAST_UPDATE_DATE
40 , LAST_UPDATED_BY
41 , LAST_UPDATE_LOGIN
42 , description
43 , mandatory_asset_flag
44 , rule_set_level
45 , permissible_levels
46 )Values
47 ( x_asset_hierarchy_purpose_id
48 , x_name
49 , x_purpose_type
50 , x_book_type_code
51 , x_default_rule_set_id
52 , x_CREATION_DATE
53 , x_CREATED_BY
54 , x_LAST_UPDATE_DATE
55 , x_LAST_UPDATED_BY
56 , x_LAST_UPDATE_LOGIN
57 , x_description
58 , x_mandatory_asset_flag
59 , x_rule_set_level
60 , x_permissible_levels
61 );
62 open c;
63 fetch c into X_ROWID;
64 if (c%notfound) then
65 close c;
66 raise no_data_found;
67 end if;
68 close c;
69 end INSERT_ROW;
70
71
72
73 procedure LOCK_ROW ( x_asset_hierarchy_purpose_id in number
74 , x_name in varchar2
75 , x_purpose_type in varchar2
76 , x_book_type_code in varchar2
77 , x_default_rule_set_id in number
78 , x_description in varchar2
79 , x_mandatory_asset_flag in varchar2
80 , x_rule_set_level in varchar2
81 , x_permissible_levels in number
82 )is
83 cursor c1 is select
84 name
85 , purpose_type
86 , book_type_code
87 , default_rule_set_id
88 , description
89 , mandatory_asset_flag
90 , rule_set_level
91 , permissible_levels
92 from FA_ASSET_HIERARCHY_PURPOSE
93 where asset_hierarchy_purpose_id = x_asset_hierarchy_purpose_id
94 for update of asset_hierarchy_purpose_id nowait;
95 tlinfo c1%rowtype;
96 begin
97 open c1;
98 fetch c1 into tlinfo;
99 if (c1%notfound) then
100 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
101 app_exception.raise_exception;
102 close c1;
103 return;
104 end if;
105 close c1;
106 if ( (tlinfo.NAME = X_NAME)
107 AND (tlinfo.purpose_type = x_purpose_type)
108 AND (tlinfo.book_type_code = x_book_type_code)
109 AND (tlinfo.default_rule_set_id = x_default_rule_set_id)
110 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
111 OR ((tlinfo.DESCRIPTION is null)
112 AND (X_DESCRIPTION is null)))
113 AND ((tlinfo.mandatory_asset_flag = X_mandatory_asset_flag )
114 OR ((tlinfo.mandatory_asset_flag is null)
115 AND (X_mandatory_asset_flag is null)))
116 AND (tlinfo.rule_set_level = x_rule_set_level)
117 AND ((tlinfo.permissible_levels = X_permissible_levels )
118 OR ((tlinfo.permissible_levels is null)
119 AND (X_permissible_levels is null)))
120 )then
121 null;
122 else
123 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
124 app_exception.raise_exception;
125 end if;
126 return;
127 end LOCK_ROW;
128
129
130
131 procedure UPDATE_ROW (
132 x_rowid in out nocopy varchar2
133 , x_asset_hierarchy_purpose_id in number
134 , x_name in varchar2
135 , x_purpose_type in varchar2
136 , x_book_type_code in varchar2
137 , x_default_rule_set_id in number
138 , X_LAST_UPDATE_DATE in date
139 , X_LAST_UPDATED_BY in number
140 , X_LAST_UPDATE_LOGIN in number
141 , x_description in varchar2
142 , x_mandatory_asset_flag in varchar2
143 , x_rule_set_level in varchar2
144 , x_permissible_levels in number
145 )
146 is
147 begin
148 update FA_ASSET_HIERARCHY_PURPOSE
149 set
150 name = x_name,
151 purpose_type = x_purpose_type,
152 book_type_code = x_book_type_code,
153 default_rule_set_id = x_default_rule_set_id,
154 description = x_description,
155 mandatory_asset_flag = x_mandatory_asset_flag,
156 rule_set_level = x_rule_set_level,
157 permissible_levels = x_permissible_levels
158 where asset_hierarchy_purpose_id = x_asset_hierarchy_purpose_id;
159 if (sql%notfound) then
160 raise no_data_found;
161 end if;
162 end UPDATE_ROW;
163
164
165 procedure DELETE_ROW (
166 x_asset_hierarchy_purpose_id in number
167 )
168 is
169 begin
170 delete from FA_ASSET_HIERARCHY_PURPOSE
171 where asset_hierarchy_purpose_id = X_asset_hierarchy_purpose_id;
172 if (sql%notfound) then
173 raise no_data_found;
174 end if;
175 end DELETE_ROW;
176
177
178 end FA_CUA_HIERARCHY_PURPOSE_PKG;
[Home] [Help]