[Home] [Help]
PACKAGE BODY: APPS.BIS_REGION_ITEM_EXTENSION_PVT
Source
1 PACKAGE BODY BIS_REGION_ITEM_EXTENSION_PVT as
2 /* $Header: BISVRIEB.pls 120.1 2005/10/14 00:17:56 ankgoel noship $ */
3 ----------------------------------------------------------------------------
4 -- PACKAGE: BIS_REGION_ITEM_EXTENSION_PVT
5 -- --
6 -- DESCRIPTION: Private package to create records in --
7 -- BIS_AK_REGION_ITEM_EXTENSION --
8 --
9 -- --
10 -- MODIFICATIONS --
11 -- Date User Modification
12 -- XX-XXX-XX XXXXXXXX Modifications made, which procedures changed & --
13 -- list bug number, if fixing a bug. --
14 -- --
15 -- 09/26/01 mdamle Initial creation --
16 -- 02/11/2004 mdamle Add Parameter Layout & Parameter Render Type --
17 -- 02/10/04 nbarik BSC/PMV Integration --
18 -- 10/14/05 ankgoel Bug#4392955 - Replaced icx_sec.getID by FND_GLOBAL.user_id
19 ----------------------------------------------------------------------------
20
21 PROCEDURE CREATE_REGION_ITEM_RECORD
22 (pRegionCode IN VARCHAR2
23 ,pRegionAppId IN VARCHAR2
24 ,pAttributeCode IN VARCHAR2
25 ,pAttributeAppId IN VARCHAR2
26 ,pAttribute16 IN VARCHAR2 default NULL
27 ,pAttribute17 IN VARCHAR2 default NULL
28 ,pAttribute18 IN VARCHAR2 default NULL
29 ,pAttribute19 IN VARCHAR2 default NULL
30 ,pAttribute20 IN VARCHAR2 default NULL
31 ,pAttribute21 IN VARCHAR2 default NULL
32 ,pAttribute22 IN VARCHAR2 default NULL
33 ,pAttribute23 IN VARCHAR2 default NULL
34 ,pAttribute24 IN VARCHAR2 default NULL
35 ,pAttribute25 IN VARCHAR2 default NULL
36 ,pAttribute26 IN VARCHAR2 default NULL
37 ,pAttribute27 IN VARCHAR2 default NULL
38 ,pAttribute28 IN VARCHAR2 default NULL
39 ,pAttribute29 IN VARCHAR2 default NULL
40 ,pAttribute30 IN VARCHAR2 default NULL
41 ,pAttribute31 IN VARCHAR2 default NULL
42 ,pAttribute32 IN VARCHAR2 default NULL
43 ,pAttribute33 IN VARCHAR2 default NULL
44 ,pAttribute34 IN VARCHAR2 default NULL
45 ,pAttribute35 IN VARCHAR2 default NULL
46 ,pAttribute36 IN VARCHAR2 default NULL
47 ,pAttribute37 IN VARCHAR2 default NULL
48 ,pAttribute38 IN VARCHAR2 default NULL
49 ,pAttribute39 IN VARCHAR2 default NULL
50 ,pAttribute40 IN VARCHAR2 default NULL
51 ,pCommit IN VARCHAR2 default 'Y' -- mdamle 02/11/2004
52 ) IS
53
54 vUserId number;
55
56 BEGIN
57
58 --vUserId := icx_sec.getID(icx_sec.PV_WEB_USER_ID);
59 vUserId := FND_GLOBAL.user_id;
60
61 begin
62 insert into bis_ak_region_item_extension
63 (REGION_CODE,
64 REGION_APPLICATION_ID,
65 ATTRIBUTE_CODE,
66 ATTRIBUTE_APPLICATION_ID,
67 ATTRIBUTE16,
68 ATTRIBUTE17,
69 ATTRIBUTE18,
70 ATTRIBUTE19,
71 ATTRIBUTE20,
72 ATTRIBUTE21,
73 ATTRIBUTE22,
74 ATTRIBUTE23,
75 ATTRIBUTE24,
76 ATTRIBUTE25,
77 ATTRIBUTE26,
78 ATTRIBUTE27,
79 ATTRIBUTE28,
80 ATTRIBUTE29,
81 ATTRIBUTE30,
82 ATTRIBUTE31,
83 ATTRIBUTE32,
84 ATTRIBUTE33,
85 ATTRIBUTE34,
86 ATTRIBUTE35,
87 ATTRIBUTE36,
88 ATTRIBUTE37,
89 ATTRIBUTE38,
90 ATTRIBUTE39,
91 ATTRIBUTE40,
92 CREATION_DATE,
93 CREATED_BY,
94 LAST_UPDATE_DATE,
95 LAST_UPDATED_BY,
96 LAST_UPDATE_LOGIN)
97 values(
98 pRegionCode
99 ,pRegionAppId
100 ,pAttributeCode
101 ,pAttributeAppId
102 ,pAttribute16
103 ,pAttribute17
104 ,pAttribute18
105 ,pAttribute19
106 ,pAttribute20
107 ,pAttribute21
108 ,pAttribute22
109 ,pAttribute23
110 ,pAttribute24
111 ,pAttribute25
112 ,pAttribute26
113 ,pAttribute27
114 ,pAttribute28
115 ,pAttribute29
116 ,pAttribute30
117 ,pAttribute31
118 ,pAttribute32
119 ,pAttribute33
120 ,pAttribute34
121 ,pAttribute35
122 ,pAttribute36
123 ,pAttribute37
124 ,pAttribute38
125 ,pAttribute39
126 ,pAttribute40
127 ,SYSDATE
128 ,vUserId
129 ,SYSDATE
130 ,vUserId
131 ,vUserId);
132 exception
133 when others then null;
134 end;
135
136 if (pCommit = 'Y') then
137 commit;
138 end if;
139
140 END CREATE_REGION_ITEM_RECORD;
141
142 PROCEDURE UPDATE_REGION_ITEM_RECORD
143 (pRegionCode IN VARCHAR2
144 ,pRegionAppId IN VARCHAR2
145 ,pAttributeCode IN VARCHAR2
146 ,pAttributeAppId IN VARCHAR2
147 ,pAttribute16 IN VARCHAR2 default NULL
148 ,pAttribute17 IN VARCHAR2 default NULL
149 ,pAttribute18 IN VARCHAR2 default NULL
150 ,pAttribute19 IN VARCHAR2 default NULL
151 ,pAttribute20 IN VARCHAR2 default NULL
152 ,pAttribute21 IN VARCHAR2 default NULL
153 ,pAttribute22 IN VARCHAR2 default NULL
154 ,pAttribute23 IN VARCHAR2 default NULL
155 ,pAttribute24 IN VARCHAR2 default NULL
156 ,pAttribute25 IN VARCHAR2 default NULL
157 ,pAttribute26 IN VARCHAR2 default NULL
158 ,pAttribute27 IN VARCHAR2 default NULL
159 ,pAttribute28 IN VARCHAR2 default NULL
160 ,pAttribute29 IN VARCHAR2 default NULL
161 ,pAttribute30 IN VARCHAR2 default NULL
162 ,pAttribute31 IN VARCHAR2 default NULL
163 ,pAttribute32 IN VARCHAR2 default NULL
164 ,pAttribute33 IN VARCHAR2 default NULL
165 ,pAttribute34 IN VARCHAR2 default NULL
166 ,pAttribute35 IN VARCHAR2 default NULL
167 ,pAttribute36 IN VARCHAR2 default NULL
168 ,pAttribute37 IN VARCHAR2 default NULL
169 ,pAttribute38 IN VARCHAR2 default NULL
170 ,pAttribute39 IN VARCHAR2 default NULL
171 ,pAttribute40 IN VARCHAR2 default NULL
172 ,pCommit IN VARCHAR2 default 'Y' -- mdamle 02/11/2004
173 ) IS
174 vUserId number;
175
176 BEGIN
177
178 --vUserId := icx_sec.getID(icx_sec.PV_WEB_USER_ID);
179 vUserId := FND_GLOBAL.user_id;
180
181 begin
182 update bis_ak_region_item_extension
183 set
184 attribute16 = pAttribute16
185 ,attribute17 = pAttribute17
186 ,attribute18 = pAttribute18
187 ,attribute19 = pAttribute19
188 ,attribute20 = pAttribute20
189 ,attribute21 = pAttribute21
190 ,attribute22 = pAttribute22
191 ,attribute23 = pAttribute23
192 ,attribute24 = pAttribute24
193 ,attribute25 = pAttribute25
194 ,attribute26 = pAttribute26
195 ,attribute27 = pAttribute27
196 ,attribute28 = pAttribute28
197 ,attribute29 = pAttribute29
198 ,attribute30 = pAttribute30
199 ,attribute31 = pAttribute31
200 ,attribute32 = pAttribute32
201 ,attribute33 = pAttribute33
202 ,attribute34 = pAttribute34
203 ,attribute35 = pAttribute35
204 ,attribute36 = pAttribute36
205 ,attribute37 = pAttribute37
206 ,attribute38 = pAttribute38
207 ,attribute39 = pAttribute39
208 ,attribute40 = pAttribute40
209 ,creation_date = SYSDATE
210 ,created_by = vUserId
211 ,last_update_date = SYSDATE
212 ,last_updated_by = vUserId
213 ,last_update_login = vUserId
214 where region_code = pRegionCode
215 and region_application_id = pRegionAppId
216 and attribute_code = pAttributeCode
217 and attribute_application_id = pAttributeAppId;
218 exception
219 when others then null;
220 end;
221
222 if (pCommit = 'Y') then
223 commit;
224 end if;
225
226
227 END UPDATE_REGION_ITEM_RECORD;
228
229 PROCEDURE DELETE_REGION_ITEM_RECORD
230 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
231 , pRegionCode IN VARCHAR2
232 , pRegionAppId IN NUMBER
233 , pAttributeCode IN VARCHAR2
234 , pAttributeAppId IN NUMBER
235 ) IS
236 BEGIN
237 DELETE FROM bis_ak_region_item_extension
238 WHERE region_code = pRegionCode AND region_application_id = pRegionAppId
239 AND attribute_code = pAttributeCode AND attribute_application_id = pAttributeAppId;
240
241 IF (p_commit = FND_API.G_TRUE) THEN
242 COMMIT;
243 END IF;
244
245 END DELETE_REGION_ITEM_RECORD;
246
247 END BIS_REGION_ITEM_EXTENSION_PVT;