19: REM +=======================================================================+
20: */
21:
22: PROCEDURE CREATE_REGION_ITEMS
23: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
24: , p_region_code IN VARCHAR2
25: , p_region_application_id IN NUMBER
26: , p_Region_Item_Tbl IN BIS_AK_REGION_PUB.Bis_Region_Item_Tbl_Type
27: , x_return_status OUT NOCOPY VARCHAR2
31: l_Region_Item_Rec BIS_AK_REGION_PUB.Bis_Region_Item_Rec_Type;
32: l_commit VARCHAR2(1) := 'N';
33: BEGIN
34: FND_MSG_PUB.Initialize;
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36: IF (p_Region_Item_Tbl IS NOT NULL AND p_Region_Item_Tbl.COUNT > 0) THEN
37: FOR i IN p_Region_Item_Tbl.FIRST..p_Region_Item_Tbl.LAST LOOP
38: l_Region_Item_Rec := p_Region_Item_Tbl(i);
39: BIS_AK_REGION_PUB.INSERT_REGION_ITEM_ROW
44: , x_return_status => x_return_status
45: , x_msg_count => x_msg_count
46: , x_msg_data => x_msg_data
47: );
48: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51:
52: IF (p_commit = FND_API.G_TRUE) THEN
45: , x_msg_count => x_msg_count
46: , x_msg_data => x_msg_data
47: );
48: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51:
52: IF (p_commit = FND_API.G_TRUE) THEN
53: l_commit := 'Y';
48: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51:
52: IF (p_commit = FND_API.G_TRUE) THEN
53: l_commit := 'Y';
54: END IF;
55:
56: -- No primary key validation on BIS_AK_REGION_EXTENSION
87: , pCommit => l_commit
88: );
89: END LOOP;
90: END IF;
91: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: EXCEPTION
93: WHEN FND_API.G_EXC_ERROR THEN
94: IF (x_msg_data IS NULL) THEN
95: FND_MSG_PUB.Count_And_Get
89: END LOOP;
90: END IF;
91: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: EXCEPTION
93: WHEN FND_API.G_EXC_ERROR THEN
94: IF (x_msg_data IS NULL) THEN
95: FND_MSG_PUB.Count_And_Get
96: ( p_encoded => FND_API.G_FALSE
97: , p_count => x_msg_count
92: EXCEPTION
93: WHEN FND_API.G_EXC_ERROR THEN
94: IF (x_msg_data IS NULL) THEN
95: FND_MSG_PUB.Count_And_Get
96: ( p_encoded => FND_API.G_FALSE
97: , p_count => x_msg_count
98: , p_data => x_msg_data
99: );
100: END IF;
97: , p_count => x_msg_count
98: , p_data => x_msg_data
99: );
100: END IF;
101: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
102: x_return_status := FND_API.G_RET_STS_ERROR;
103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
104: IF (x_msg_data IS NULL) THEN
105: FND_MSG_PUB.Count_And_Get
98: , p_data => x_msg_data
99: );
100: END IF;
101: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
102: x_return_status := FND_API.G_RET_STS_ERROR;
103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
104: IF (x_msg_data IS NULL) THEN
105: FND_MSG_PUB.Count_And_Get
106: ( p_encoded => FND_API.G_FALSE
99: );
100: END IF;
101: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
102: x_return_status := FND_API.G_RET_STS_ERROR;
103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
104: IF (x_msg_data IS NULL) THEN
105: FND_MSG_PUB.Count_And_Get
106: ( p_encoded => FND_API.G_FALSE
107: , p_count => x_msg_count
102: x_return_status := FND_API.G_RET_STS_ERROR;
103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
104: IF (x_msg_data IS NULL) THEN
105: FND_MSG_PUB.Count_And_Get
106: ( p_encoded => FND_API.G_FALSE
107: , p_count => x_msg_count
108: , p_data => x_msg_data
109: );
110: END IF;
107: , p_count => x_msg_count
108: , p_data => x_msg_data
109: );
110: END IF;
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
113: WHEN OTHERS THEN
114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: IF (x_msg_data IS NOT NULL) THEN
108: , p_data => x_msg_data
109: );
110: END IF;
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
113: WHEN OTHERS THEN
114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: IF (x_msg_data IS NOT NULL) THEN
116: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_ITEMS_PVT.CREATE_REGION_ITEMS ';
110: END IF;
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
113: WHEN OTHERS THEN
114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: IF (x_msg_data IS NOT NULL) THEN
116: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_ITEMS_PVT.CREATE_REGION_ITEMS ';
117: ELSE
118: x_msg_data := SQLERRM||' at BIS_PMV_REGION_ITEMS_PVT.CREATE_REGION_ITEMS ';
120: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
121: END CREATE_REGION_ITEMS;
122:
123: PROCEDURE UPDATE_REGION_ITEMS
124: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
125: , p_region_code IN VARCHAR2
126: , p_region_application_id IN NUMBER
127: , p_Region_Item_Tbl IN BIS_AK_REGION_PUB.Bis_Region_Item_Tbl_Type
128: , x_return_status OUT NOCOPY VARCHAR2
132: l_Region_Item_Rec BIS_AK_REGION_PUB.Bis_Region_Item_Rec_Type;
133: l_commit VARCHAR2(1) := 'N';
134: BEGIN
135: FND_MSG_PUB.Initialize;
136: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: IF (p_Region_Item_Tbl IS NOT NULL AND p_Region_Item_Tbl.COUNT > 0) THEN
138: FOR i IN p_Region_Item_Tbl.FIRST..p_Region_Item_Tbl.LAST LOOP
139: l_Region_Item_Rec := p_Region_Item_Tbl(i);
140: BIS_AK_REGION_PUB.UPDATE_REGION_ITEM_ROW
145: , x_return_status => x_return_status
146: , x_msg_count => x_msg_count
147: , x_msg_data => x_msg_data
148: );
149: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: END IF;
152:
153: IF (p_commit = FND_API.G_TRUE) THEN
146: , x_msg_count => x_msg_count
147: , x_msg_data => x_msg_data
148: );
149: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: END IF;
152:
153: IF (p_commit = FND_API.G_TRUE) THEN
154: l_commit := 'Y';
149: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
151: END IF;
152:
153: IF (p_commit = FND_API.G_TRUE) THEN
154: l_commit := 'Y';
155: END IF;
156:
157: -- No primary key validation on BIS_AK_REGION_EXTENSION
188: , pCommit => l_commit
189: );
190: END LOOP;
191: END IF;
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: IF (x_msg_data IS NULL) THEN
196: FND_MSG_PUB.Count_And_Get
190: END LOOP;
191: END IF;
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: IF (x_msg_data IS NULL) THEN
196: FND_MSG_PUB.Count_And_Get
197: ( p_encoded => FND_API.G_FALSE
198: , p_count => x_msg_count
193: EXCEPTION
194: WHEN FND_API.G_EXC_ERROR THEN
195: IF (x_msg_data IS NULL) THEN
196: FND_MSG_PUB.Count_And_Get
197: ( p_encoded => FND_API.G_FALSE
198: , p_count => x_msg_count
199: , p_data => x_msg_data
200: );
201: END IF;
198: , p_count => x_msg_count
199: , p_data => x_msg_data
200: );
201: END IF;
202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: IF (x_msg_data IS NULL) THEN
206: FND_MSG_PUB.Count_And_Get
199: , p_data => x_msg_data
200: );
201: END IF;
202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: IF (x_msg_data IS NULL) THEN
206: FND_MSG_PUB.Count_And_Get
207: ( p_encoded => FND_API.G_FALSE
200: );
201: END IF;
202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: IF (x_msg_data IS NULL) THEN
206: FND_MSG_PUB.Count_And_Get
207: ( p_encoded => FND_API.G_FALSE
208: , p_count => x_msg_count
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: IF (x_msg_data IS NULL) THEN
206: FND_MSG_PUB.Count_And_Get
207: ( p_encoded => FND_API.G_FALSE
208: , p_count => x_msg_count
209: , p_data => x_msg_data
210: );
211: END IF;
208: , p_count => x_msg_count
209: , p_data => x_msg_data
210: );
211: END IF;
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
214: WHEN OTHERS THEN
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216: IF (x_msg_data IS NOT NULL) THEN
209: , p_data => x_msg_data
210: );
211: END IF;
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
214: WHEN OTHERS THEN
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216: IF (x_msg_data IS NOT NULL) THEN
217: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_ITEMS_PVT.UPDATE_REGION_ITEMS ';
211: END IF;
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
214: WHEN OTHERS THEN
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216: IF (x_msg_data IS NOT NULL) THEN
217: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_ITEMS_PVT.UPDATE_REGION_ITEMS ';
218: ELSE
219: x_msg_data := SQLERRM||' at BIS_PMV_REGION_ITEMS_PVT.UPDATE_REGION_ITEMS ';
221: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
222: END UPDATE_REGION_ITEMS;
223:
224: PROCEDURE DELETE_REGION_ITEMS
225: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
226: , p_region_code IN VARCHAR2
227: , p_region_application_id IN NUMBER
228: , p_Attribute_Code_Tbl IN BISVIEWER.t_char
229: , p_Attribute_Appl_Id_Tbl IN BISVIEWER.t_num
232: , x_msg_data OUT NOCOPY VARCHAR2
233: ) IS
234: BEGIN
235: FND_MSG_PUB.Initialize;
236: x_return_status := FND_API.G_RET_STS_SUCCESS;
237: IF (p_Attribute_Code_Tbl IS NOT NULL AND p_Attribute_Code_Tbl.COUNT > 0) THEN
238: FOR i IN p_Attribute_Code_Tbl.FIRST..p_Attribute_Code_Tbl.LAST LOOP
239: BIS_AK_REGION_PUB.DELETE_REGION_ITEM_ROW
240: ( p_REGION_CODE => p_region_code
245: , x_msg_count => x_msg_count
246: , x_msg_data => x_msg_data
247: , p_commit => p_commit
248: );
249: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252:
253: -- No primary key validation on BIS_AK_REGION_EXTENSION
246: , x_msg_data => x_msg_data
247: , p_commit => p_commit
248: );
249: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
251: END IF;
252:
253: -- No primary key validation on BIS_AK_REGION_EXTENSION
254: BIS_REGION_ITEM_EXTENSION_PVT.DELETE_REGION_ITEM_RECORD
259: , pAttributeAppId => p_Attribute_Appl_Id_Tbl(i)
260: );
261: END LOOP;
262: END IF;
263: x_return_status := FND_API.G_RET_STS_SUCCESS;
264: EXCEPTION
265: WHEN FND_API.G_EXC_ERROR THEN
266: IF (x_msg_data IS NULL) THEN
267: FND_MSG_PUB.Count_And_Get
261: END LOOP;
262: END IF;
263: x_return_status := FND_API.G_RET_STS_SUCCESS;
264: EXCEPTION
265: WHEN FND_API.G_EXC_ERROR THEN
266: IF (x_msg_data IS NULL) THEN
267: FND_MSG_PUB.Count_And_Get
268: ( p_encoded => FND_API.G_FALSE
269: , p_count => x_msg_count
264: EXCEPTION
265: WHEN FND_API.G_EXC_ERROR THEN
266: IF (x_msg_data IS NULL) THEN
267: FND_MSG_PUB.Count_And_Get
268: ( p_encoded => FND_API.G_FALSE
269: , p_count => x_msg_count
270: , p_data => x_msg_data
271: );
272: END IF;
269: , p_count => x_msg_count
270: , p_data => x_msg_data
271: );
272: END IF;
273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
270: , p_data => x_msg_data
271: );
272: END IF;
273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
278: ( p_encoded => FND_API.G_FALSE
271: );
272: END IF;
273: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
278: ( p_encoded => FND_API.G_FALSE
279: , p_count => x_msg_count
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
278: ( p_encoded => FND_API.G_FALSE
279: , p_count => x_msg_count
280: , p_data => x_msg_data
281: );
282: END IF;
279: , p_count => x_msg_count
280: , p_data => x_msg_data
281: );
282: END IF;
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
285: WHEN OTHERS THEN
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: IF (x_msg_data IS NOT NULL) THEN
280: , p_data => x_msg_data
281: );
282: END IF;
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
285: WHEN OTHERS THEN
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: IF (x_msg_data IS NOT NULL) THEN
288: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_ITEMS_PVT.DELETE_REGION_ITEMS ';
282: END IF;
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
285: WHEN OTHERS THEN
286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287: IF (x_msg_data IS NOT NULL) THEN
288: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_ITEMS_PVT.DELETE_REGION_ITEMS ';
289: ELSE
290: x_msg_data := SQLERRM||' at BIS_PMV_REGION_ITEMS_PVT.DELETE_REGION_ITEMS ';