[Home] [Help]
PACKAGE BODY: APPS.BIS_REGION_EXTENSION_PVT
Source
1 PACKAGE BODY BIS_REGION_EXTENSION_PVT AS
2 /* $Header: BISVAKXB.pls 120.0 2005/06/01 17:00:47 appldev noship $ */
3 ----------------------------------------------------------------------------
4 -- PACKAGE: BIS_REGION_EXTENSION_PVT --
5 -- --
6 -- DESCRIPTION: Private package to create records in --
7 -- BIS_AK_REGION_EXTENSION table --
8 -- --
9 -- --
10 -- MODIFICATIONS --
11 -- Date User Modification --
12 -- 02/03/04 nbarik Initial Creation --
13 ----------------------------------------------------------------------------
14
15 PROCEDURE CREATE_REGION_EXTN_RECORD
16 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
17 ,pRegionCode IN VARCHAR2
18 ,pRegionAppId IN NUMBER
19 ,pAttribute16 IN VARCHAR2 DEFAULT NULL
20 ,pAttribute17 IN VARCHAR2 DEFAULT NULL
21 ,pAttribute18 IN VARCHAR2 DEFAULT NULL
22 ,pAttribute19 IN VARCHAR2 DEFAULT NULL
23 ,pAttribute20 IN VARCHAR2 DEFAULT NULL
24 ,pAttribute21 IN VARCHAR2 DEFAULT NULL
25 ,pAttribute22 IN VARCHAR2 DEFAULT NULL
26 ,pAttribute23 IN VARCHAR2 DEFAULT NULL
27 ,pAttribute24 IN VARCHAR2 DEFAULT NULL
28 ,pAttribute25 IN VARCHAR2 DEFAULT NULL
29 ,pAttribute26 IN VARCHAR2 DEFAULT NULL
30 ,pAttribute27 IN VARCHAR2 DEFAULT NULL
31 ,pAttribute28 IN VARCHAR2 DEFAULT NULL
32 ,pAttribute29 IN VARCHAR2 DEFAULT NULL
33 ,pAttribute30 IN VARCHAR2 DEFAULT NULL
34 ,pAttribute31 IN VARCHAR2 DEFAULT NULL
35 ,pAttribute32 IN VARCHAR2 DEFAULT NULL
36 ,pAttribute33 IN VARCHAR2 DEFAULT NULL
37 ,pAttribute34 IN VARCHAR2 DEFAULT NULL
38 ,pAttribute35 IN VARCHAR2 DEFAULT NULL
39 ,pAttribute36 IN VARCHAR2 DEFAULT NULL
40 ,pAttribute37 IN VARCHAR2 DEFAULT NULL
41 ,pAttribute38 IN VARCHAR2 DEFAULT NULL
42 ,pAttribute39 IN VARCHAR2 DEFAULT NULL
43 ,pAttribute40 IN VARCHAR2 DEFAULT NULL
44 ) IS
45
46 l_user_id NUMBER;
47 BEGIN
48 l_user_id := fnd_global.user_id;
49 BEGIN
50 INSERT INTO bis_ak_region_extension
51 ( REGION_CODE,
52 REGION_APPLICATION_ID,
53 ATTRIBUTE16,
54 ATTRIBUTE17,
55 ATTRIBUTE18,
56 ATTRIBUTE19,
57 ATTRIBUTE20,
58 ATTRIBUTE21,
59 ATTRIBUTE22,
60 ATTRIBUTE23,
61 ATTRIBUTE24,
62 ATTRIBUTE25,
63 ATTRIBUTE26,
64 ATTRIBUTE27,
65 ATTRIBUTE28,
66 ATTRIBUTE29,
67 ATTRIBUTE30,
68 ATTRIBUTE31,
69 ATTRIBUTE32,
70 ATTRIBUTE33,
71 ATTRIBUTE34,
72 ATTRIBUTE35,
73 ATTRIBUTE36,
74 ATTRIBUTE37,
75 ATTRIBUTE38,
76 ATTRIBUTE39,
77 ATTRIBUTE40,
78 CREATED_BY,
79 CREATION_DATE,
80 LAST_UPDATED_BY,
81 LAST_UPDATE_DATE,
82 LAST_UPDATE_LOGIN)
83 VALUES(
84 pRegionCode
85 ,pRegionAppId
86 ,pAttribute16
87 ,pAttribute17
88 ,pAttribute18
89 ,pAttribute19
90 ,pAttribute20
91 ,pAttribute21
92 ,pAttribute22
93 ,pAttribute23
94 ,pAttribute24
95 ,pAttribute25
96 ,pAttribute26
97 ,pAttribute27
98 ,pAttribute28
99 ,pAttribute29
100 ,pAttribute30
101 ,pAttribute31
102 ,pAttribute32
103 ,pAttribute33
104 ,pAttribute34
105 ,pAttribute35
106 ,pAttribute36
107 ,pAttribute37
108 ,pAttribute38
109 ,pAttribute39
110 ,pAttribute40
111 ,l_user_id
112 ,SYSDATE
113 ,l_user_id
114 ,SYSDATE
115 ,l_user_id
116 );
117 IF (p_commit = FND_API.G_TRUE) THEN
118 COMMIT;
119 END IF;
120
121 EXCEPTION
122 WHEN OTHERS THEN
123 NULL;
124 END;
125 END CREATE_REGION_EXTN_RECORD;
126
127 PROCEDURE UPDATE_REGION_EXTN_RECORD
128 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
129 ,pRegionCode IN VARCHAR2
130 ,pRegionAppId IN NUMBER
131 ,pAttribute16 IN VARCHAR2 DEFAULT NULL
132 ,pAttribute17 IN VARCHAR2 DEFAULT NULL
133 ,pAttribute18 IN VARCHAR2 DEFAULT NULL
134 ,pAttribute19 IN VARCHAR2 DEFAULT NULL
135 ,pAttribute20 IN VARCHAR2 DEFAULT NULL
136 ,pAttribute21 IN VARCHAR2 DEFAULT NULL
137 ,pAttribute22 IN VARCHAR2 DEFAULT NULL
138 ,pAttribute23 IN VARCHAR2 DEFAULT NULL
139 ,pAttribute24 IN VARCHAR2 DEFAULT NULL
140 ,pAttribute25 IN VARCHAR2 DEFAULT NULL
141 ,pAttribute26 IN VARCHAR2 DEFAULT NULL
142 ,pAttribute27 IN VARCHAR2 DEFAULT NULL
143 ,pAttribute28 IN VARCHAR2 DEFAULT NULL
144 ,pAttribute29 IN VARCHAR2 DEFAULT NULL
145 ,pAttribute30 IN VARCHAR2 DEFAULT NULL
146 ,pAttribute31 IN VARCHAR2 DEFAULT NULL
147 ,pAttribute32 IN VARCHAR2 DEFAULT NULL
148 ,pAttribute33 IN VARCHAR2 DEFAULT NULL
149 ,pAttribute34 IN VARCHAR2 DEFAULT NULL
150 ,pAttribute35 IN VARCHAR2 DEFAULT NULL
151 ,pAttribute36 IN VARCHAR2 DEFAULT NULL
152 ,pAttribute37 IN VARCHAR2 DEFAULT NULL
153 ,pAttribute38 IN VARCHAR2 DEFAULT NULL
154 ,pAttribute39 IN VARCHAR2 DEFAULT NULL
155 ,pAttribute40 IN VARCHAR2 DEFAULT NULL
156 ) IS
157 l_user_id NUMBER;
158
159 BEGIN
160
161 l_user_id := fnd_global.user_id;
162 BEGIN
163 UPDATE bis_ak_region_extension
164 SET
165 attribute16 = pAttribute16
166 ,attribute17 = pAttribute17
167 ,attribute18 = pAttribute18
168 ,attribute19 = pAttribute19
169 ,attribute20 = pAttribute20
170 ,attribute21 = pAttribute21
171 ,attribute22 = pAttribute22
172 ,attribute23 = pAttribute23
173 ,attribute24 = pAttribute24
174 ,attribute25 = pAttribute25
175 ,attribute26 = pAttribute26
176 ,attribute27 = pAttribute27
177 ,attribute28 = pAttribute28
178 ,attribute29 = pAttribute29
179 ,attribute30 = pAttribute30
180 ,attribute31 = pAttribute31
181 ,attribute32 = pAttribute32
182 ,attribute33 = pAttribute33
183 ,attribute34 = pAttribute34
184 ,attribute35 = pAttribute35
185 ,attribute36 = pAttribute36
186 ,attribute37 = pAttribute37
187 ,attribute38 = pAttribute38
188 ,attribute39 = pAttribute39
189 ,attribute40 = pAttribute40
190 ,created_by = l_user_id
191 ,creation_date = SYSDATE
192 ,last_updated_by = l_user_id
193 ,last_update_date = SYSDATE
194 ,last_update_login = l_user_id
195 WHERE region_code = pRegionCode AND region_application_id = pRegionAppId;
196
197 IF (p_commit = FND_API.G_TRUE) THEN
198 COMMIT;
199 END IF;
200
201 EXCEPTION
202 WHEN OTHERS THEN
203 NULL;
204 END;
205 END UPDATE_REGION_EXTN_RECORD;
206
207 PROCEDURE DELETE_REGION_EXTN_RECORD
208 ( p_commit IN VARCHAR2 := FND_API.G_TRUE
209 ,pRegionCode IN VARCHAR2
210 ,pRegionAppId IN NUMBER
211 ) IS
212 BEGIN
213 DELETE FROM bis_ak_region_extension
214 WHERE region_code = pRegionCode AND region_application_id = pRegionAppId;
215
216 IF (p_commit = FND_API.G_TRUE) THEN
217 COMMIT;
218 END IF;
219 END DELETE_REGION_EXTN_RECORD;
220
221 END BIS_REGION_EXTENSION_PVT;