[Home] [Help]
PACKAGE BODY: APPS.AR_BPA_AREA_ITEMS_PKG
Source
1 package body AR_BPA_AREA_ITEMS_PKG as
2 /* $Header: ARBPAIB.pls 120.1 2004/12/03 01:44:55 orashid noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_AREA_ITEM_ID in NUMBER,
6 X_SECONDARY_APP_ID in NUMBER,
7 X_ITEM_ID in NUMBER,
8 X_DISPLAY_SEQUENCE in NUMBER,
9 X_TEMPLATE_ID in NUMBER,
10 X_DISPLAY_LEVEL in VARCHAR2,
11 X_PARENT_AREA_CODE in VARCHAR2,
12 X_DATA_SOURCE_ID in NUMBER,
13 X_FLEXFIELD_ITEM_FLAG in VARCHAR2,
14 X_CREATION_DATE in DATE,
15 X_CREATED_BY in NUMBER,
16 X_LAST_UPDATE_DATE in DATE,
17 X_LAST_UPDATED_BY in NUMBER,
18 X_LAST_UPDATE_LOGIN in NUMBER
19 ) is
20 cursor C is select ROWID from AR_BPA_AREA_ITEMS
21 where AREA_ITEM_ID = X_AREA_ITEM_ID
22 ;
23 begin
24 insert into AR_BPA_AREA_ITEMS (
25 LAST_UPDATE_LOGIN,
26 CREATION_DATE,
27 SECONDARY_APP_ID,
28 ITEM_ID,
29 DISPLAY_SEQUENCE,
30 CREATED_BY,
31 LAST_UPDATED_BY,
32 LAST_UPDATE_DATE,
33 PARENT_AREA_CODE,
34 TEMPLATE_ID,
35 DISPLAY_LEVEL,
36 AREA_ITEM_ID,
37 DATA_SOURCE_ID,
38 FLEXFIELD_ITEM_FLAG
39 ) select
40 X_LAST_UPDATE_LOGIN,
41 X_CREATION_DATE,
42 X_SECONDARY_APP_ID,
43 X_ITEM_ID,
44 X_DISPLAY_SEQUENCE,
45 X_CREATED_BY,
46 X_LAST_UPDATED_BY,
47 X_LAST_UPDATE_DATE,
48 X_PARENT_AREA_CODE,
49 X_TEMPLATE_ID,
50 X_DISPLAY_LEVEL,
51 X_AREA_ITEM_ID,
52 X_DATA_SOURCE_ID,
53 X_FLEXFIELD_ITEM_FLAG
54 FROM DUAL;
55
56 open c;
57 fetch c into X_ROWID;
58 if (c%notfound) then
59 close c;
60 raise no_data_found;
61 end if;
62 close c;
63
64 end INSERT_ROW;
65
66 procedure LOCK_ROW (
67 X_AREA_ITEM_ID in NUMBER,
68 X_SECONDARY_APP_ID in NUMBER,
69 X_ITEM_ID in NUMBER,
70 X_DISPLAY_SEQUENCE in NUMBER,
71 X_TEMPLATE_ID in NUMBER,
72 X_DISPLAY_LEVEL in VARCHAR2,
73 X_PARENT_AREA_CODE in VARCHAR2,
74 X_DATA_SOURCE_ID in NUMBER,
75 X_FLEXFIELD_ITEM_FLAG in VARCHAR2
76 ) is
77 cursor c1 is select
78 SECONDARY_APP_ID,
79 ITEM_ID,
80 DISPLAY_SEQUENCE,
81 TEMPLATE_ID,
82 DISPLAY_LEVEL,
83 PARENT_AREA_CODE,
84 DATA_SOURCE_ID,
85 FLEXFIELD_ITEM_FLAG
86 from AR_BPA_AREA_ITEMS
87 where AREA_ITEM_ID = X_AREA_ITEM_ID
88 for update of AREA_ITEM_ID nowait;
89 begin
90 for tlinfo in c1 loop
91 if ( (tlinfo.PARENT_AREA_CODE = X_PARENT_AREA_CODE)
92 AND (tlinfo.SECONDARY_APP_ID = X_SECONDARY_APP_ID)
93 AND (tlinfo.ITEM_ID = X_ITEM_ID)
94 AND (tlinfo.DISPLAY_SEQUENCE = X_DISPLAY_SEQUENCE)
95 AND (tlinfo.TEMPLATE_ID = X_TEMPLATE_ID)
96 AND (tlinfo.DISPLAY_LEVEL = X_DISPLAY_LEVEL)
97 AND (tlinfo.DATA_SOURCE_ID = X_DATA_SOURCE_ID)
98 AND (tlinfo.FLEXFIELD_ITEM_FLAG = X_FLEXFIELD_ITEM_FLAG)
99 ) then
100 null;
101 else
102 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
103 app_exception.raise_exception;
104 end if;
105 end loop;
106 return;
107 end LOCK_ROW;
108
109 procedure UPDATE_ROW (
110 X_AREA_ITEM_ID in NUMBER,
111 X_SECONDARY_APP_ID in NUMBER,
112 X_ITEM_ID in NUMBER,
113 X_DISPLAY_SEQUENCE in NUMBER,
114 X_TEMPLATE_ID in NUMBER,
115 X_DISPLAY_LEVEL in VARCHAR2,
116 X_PARENT_AREA_CODE in VARCHAR2,
117 X_DATA_SOURCE_ID in NUMBER,
118 X_FLEXFIELD_ITEM_FLAG in VARCHAR2,
119 X_LAST_UPDATE_DATE in DATE,
120 X_LAST_UPDATED_BY in NUMBER,
121 X_LAST_UPDATE_LOGIN in NUMBER
122 ) is
123 begin
124 update AR_BPA_AREA_ITEMS set
125 SECONDARY_APP_ID = X_SECONDARY_APP_ID,
126 ITEM_ID = X_ITEM_ID,
127 DISPLAY_SEQUENCE = X_DISPLAY_SEQUENCE,
128 TEMPLATE_ID = X_TEMPLATE_ID,
129 DISPLAY_LEVEL = X_DISPLAY_LEVEL,
130 PARENT_AREA_CODE = X_PARENT_AREA_CODE,
131 DATA_SOURCE_ID = X_DATA_SOURCE_ID,
132 FLEXFIELD_ITEM_FLAG = X_FLEXFIELD_ITEM_FLAG,
133 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
134 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
135 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
136 where AREA_ITEM_ID = X_AREA_ITEM_ID;
137
138 if (sql%notfound) then
139 raise no_data_found;
140 end if;
141 end UPDATE_ROW;
142
143 procedure DELETE_ROW (
144 X_AREA_ITEM_ID in NUMBER
145 ) is
146 begin
147 delete from AR_BPA_AREA_ITEMS
148 where AREA_ITEM_ID = X_AREA_ITEM_ID;
149
150 if (sql%notfound) then
151 raise no_data_found;
152 end if;
153
154 end DELETE_ROW;
155
156 procedure LOAD_ROW (
157 X_AREA_ITEM_ID IN NUMBER,
158 X_DISPLAY_LEVEL IN VARCHAR2,
159 X_DISPLAY_SEQUENCE IN NUMBER,
160 X_ITEM_ID IN NUMBER,
161 X_PARENT_AREA_CODE IN VARCHAR2,
162 X_SECONDARY_APP_ID IN NUMBER,
163 X_TEMPLATE_ID IN NUMBER,
164 X_DATA_SOURCE_ID IN NUMBER,
165 X_FLEXFIELD_ITEM_FLAG IN VARCHAR2,
166 X_OWNER IN VARCHAR2
167 ) IS
168 begin
169 declare
170 user_id number := 0;
171 row_id varchar2(64);
172 begin
173 if (X_OWNER = 'SEED') then
174 user_id := 1;
175 end if;
176
177 AR_BPA_AREA_ITEMS_PKG.UPDATE_ROW (
178 X_AREA_ITEM_ID => X_AREA_ITEM_ID,
179 X_SECONDARY_APP_ID => X_SECONDARY_APP_ID,
180 X_ITEM_ID => X_ITEM_ID,
181 X_DISPLAY_SEQUENCE => X_DISPLAY_SEQUENCE,
182 X_TEMPLATE_ID => X_TEMPLATE_ID,
183 X_DISPLAY_LEVEL => X_DISPLAY_LEVEL,
184 X_PARENT_AREA_CODE => X_PARENT_AREA_CODE,
185 X_DATA_SOURCE_ID => X_DATA_SOURCE_ID,
186 X_FLEXFIELD_ITEM_FLAG => X_FLEXFIELD_ITEM_FLAG,
187 X_LAST_UPDATE_DATE => sysdate,
188 X_LAST_UPDATED_BY => user_id,
189 X_LAST_UPDATE_LOGIN => 0);
190 exception
191 when NO_DATA_FOUND then
192 AR_BPA_AREA_ITEMS_PKG.INSERT_ROW (
193 X_ROWID => row_id,
194 X_AREA_ITEM_ID => X_AREA_ITEM_ID,
195 X_SECONDARY_APP_ID => X_SECONDARY_APP_ID,
196 X_ITEM_ID => X_ITEM_ID,
197 X_DISPLAY_SEQUENCE => X_DISPLAY_SEQUENCE,
198 X_TEMPLATE_ID => X_TEMPLATE_ID,
199 X_DISPLAY_LEVEL => X_DISPLAY_LEVEL,
200 X_PARENT_AREA_CODE => X_PARENT_AREA_CODE,
201 X_DATA_SOURCE_ID => X_DATA_SOURCE_ID,
202 X_FLEXFIELD_ITEM_FLAG => X_FLEXFIELD_ITEM_FLAG,
203 X_CREATION_DATE => sysdate,
204 X_CREATED_BY => user_id,
205 X_LAST_UPDATE_DATE => sysdate,
206 X_LAST_UPDATED_BY => user_id,
207 X_LAST_UPDATE_LOGIN => 0);
208 end;
209 end LOAD_ROW;
210
211 end AR_BPA_AREA_ITEMS_PKG;