18: REM +=======================================================================+
19: */
20:
21: PROCEDURE CREATE_REGION
22: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
23: , p_Report_Region_Rec IN BIS_AK_REGION_PUB.Bis_Region_Rec_Type
24: , x_return_status OUT NOCOPY VARCHAR2
25: , x_msg_count OUT NOCOPY NUMBER
26: , x_msg_data OUT NOCOPY VARCHAR2
26: , x_msg_data OUT NOCOPY VARCHAR2
27: ) IS
28: BEGIN
29: FND_MSG_PUB.Initialize;
30: x_return_status := FND_API.G_RET_STS_SUCCESS;
31: BIS_AK_REGION_PUB.INSERT_REGION_ROW
32: ( p_commit => p_commit
33: , p_Report_Region_Rec => p_Report_Region_Rec
34: , x_return_status => x_return_status
34: , x_return_status => x_return_status
35: , x_msg_count => x_msg_count
36: , x_msg_data => x_msg_data
37: );
38: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
39: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40: END IF;
41:
42: BIS_REGION_EXTENSION_PVT.CREATE_REGION_EXTN_RECORD
35: , x_msg_count => x_msg_count
36: , x_msg_data => x_msg_data
37: );
38: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
39: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40: END IF;
41:
42: BIS_REGION_EXTENSION_PVT.CREATE_REGION_EXTN_RECORD
43: ( p_commit => p_commit
48: , pAttribute18 => p_Report_Region_Rec.Dim_Set_Id || ''
49: , pAttribute19 => p_Report_Region_Rec.Global_Menu || ''
50: , pAttribute20 => p_Report_Region_Rec.Global_Title || ''
51: );
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: EXCEPTION
54: WHEN FND_API.G_EXC_ERROR THEN
55: IF (x_msg_data IS NULL) THEN
56: FND_MSG_PUB.Count_And_Get
50: , pAttribute20 => p_Report_Region_Rec.Global_Title || ''
51: );
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: EXCEPTION
54: WHEN FND_API.G_EXC_ERROR THEN
55: IF (x_msg_data IS NULL) THEN
56: FND_MSG_PUB.Count_And_Get
57: ( p_encoded => FND_API.G_FALSE
58: , p_count => x_msg_count
53: EXCEPTION
54: WHEN FND_API.G_EXC_ERROR THEN
55: IF (x_msg_data IS NULL) THEN
56: FND_MSG_PUB.Count_And_Get
57: ( p_encoded => FND_API.G_FALSE
58: , p_count => x_msg_count
59: , p_data => x_msg_data
60: );
61: END IF;
58: , p_count => x_msg_count
59: , p_data => x_msg_data
60: );
61: END IF;
62: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65: IF (x_msg_data IS NULL) THEN
66: FND_MSG_PUB.Count_And_Get
59: , p_data => x_msg_data
60: );
61: END IF;
62: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65: IF (x_msg_data IS NULL) THEN
66: FND_MSG_PUB.Count_And_Get
67: ( p_encoded => FND_API.G_FALSE
60: );
61: END IF;
62: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65: IF (x_msg_data IS NULL) THEN
66: FND_MSG_PUB.Count_And_Get
67: ( p_encoded => FND_API.G_FALSE
68: , p_count => x_msg_count
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65: IF (x_msg_data IS NULL) THEN
66: FND_MSG_PUB.Count_And_Get
67: ( p_encoded => FND_API.G_FALSE
68: , p_count => x_msg_count
69: , p_data => x_msg_data
70: );
71: END IF;
68: , p_count => x_msg_count
69: , p_data => x_msg_data
70: );
71: END IF;
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
74: WHEN OTHERS THEN
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: IF (x_msg_data IS NOT NULL) THEN
69: , p_data => x_msg_data
70: );
71: END IF;
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
74: WHEN OTHERS THEN
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: IF (x_msg_data IS NOT NULL) THEN
77: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.CREATE_REGION ';
71: END IF;
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
74: WHEN OTHERS THEN
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: IF (x_msg_data IS NOT NULL) THEN
77: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.CREATE_REGION ';
78: ELSE
79: x_msg_data := SQLERRM||' at BIS_PMV_REGION_PVT.CREATE_REGION ';
81: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
82: END CREATE_REGION;
83:
84: PROCEDURE UPDATE_REGION
85: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
86: , p_Report_Region_Rec IN BIS_AK_REGION_PUB.Bis_Region_Rec_Type
87: , x_return_status OUT NOCOPY VARCHAR2
88: , x_msg_count OUT NOCOPY NUMBER
89: , x_msg_data OUT NOCOPY VARCHAR2
89: , x_msg_data OUT NOCOPY VARCHAR2
90: ) IS
91: BEGIN
92: FND_MSG_PUB.Initialize;
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: BIS_AK_REGION_PUB.UPDATE_REGION_ROW
95: ( p_commit => p_commit
96: , p_Report_Region_Rec => p_Report_Region_Rec
97: , x_return_status => x_return_status
97: , x_return_status => x_return_status
98: , x_msg_count => x_msg_count
99: , x_msg_data => x_msg_data
100: );
101: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;
104:
105: BIS_REGION_EXTENSION_PVT.UPDATE_REGION_EXTN_RECORD
98: , x_msg_count => x_msg_count
99: , x_msg_data => x_msg_data
100: );
101: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;
104:
105: BIS_REGION_EXTENSION_PVT.UPDATE_REGION_EXTN_RECORD
106: ( p_commit => p_commit
111: , pAttribute18 => p_Report_Region_Rec.Dim_Set_Id || ''
112: , pAttribute19 => p_Report_Region_Rec.Global_Menu || ''
113: , pAttribute20 => p_Report_Region_Rec.Global_Title || ''
114: );
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: IF (x_msg_data IS NULL) THEN
119: FND_MSG_PUB.Count_And_Get
113: , pAttribute20 => p_Report_Region_Rec.Global_Title || ''
114: );
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: IF (x_msg_data IS NULL) THEN
119: FND_MSG_PUB.Count_And_Get
120: ( p_encoded => FND_API.G_FALSE
121: , p_count => x_msg_count
116: EXCEPTION
117: WHEN FND_API.G_EXC_ERROR THEN
118: IF (x_msg_data IS NULL) THEN
119: FND_MSG_PUB.Count_And_Get
120: ( p_encoded => FND_API.G_FALSE
121: , p_count => x_msg_count
122: , p_data => x_msg_data
123: );
124: END IF;
121: , p_count => x_msg_count
122: , p_data => x_msg_data
123: );
124: END IF;
125: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: IF (x_msg_data IS NULL) THEN
129: FND_MSG_PUB.Count_And_Get
122: , p_data => x_msg_data
123: );
124: END IF;
125: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: IF (x_msg_data IS NULL) THEN
129: FND_MSG_PUB.Count_And_Get
130: ( p_encoded => FND_API.G_FALSE
123: );
124: END IF;
125: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: IF (x_msg_data IS NULL) THEN
129: FND_MSG_PUB.Count_And_Get
130: ( p_encoded => FND_API.G_FALSE
131: , p_count => x_msg_count
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: IF (x_msg_data IS NULL) THEN
129: FND_MSG_PUB.Count_And_Get
130: ( p_encoded => FND_API.G_FALSE
131: , p_count => x_msg_count
132: , p_data => x_msg_data
133: );
134: END IF;
131: , p_count => x_msg_count
132: , p_data => x_msg_data
133: );
134: END IF;
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
137: WHEN OTHERS THEN
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: IF (x_msg_data IS NOT NULL) THEN
132: , p_data => x_msg_data
133: );
134: END IF;
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
137: WHEN OTHERS THEN
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: IF (x_msg_data IS NOT NULL) THEN
140: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.UPDATE_REGION ';
134: END IF;
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
137: WHEN OTHERS THEN
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: IF (x_msg_data IS NOT NULL) THEN
140: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.UPDATE_REGION ';
141: ELSE
142: x_msg_data := SQLERRM||' at BIS_PMV_REGION_PVT.UPDATE_REGION ';
144: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
145: END UPDATE_REGION;
146:
147: PROCEDURE DELETE_REGION
148: ( p_commit IN VARCHAR2 := FND_API.G_TRUE
149: , p_Region_Code IN VARCHAR2
150: , p_Region_Application_Id IN NUMBER
151: , x_return_status OUT NOCOPY VARCHAR2
152: , x_msg_count OUT NOCOPY NUMBER
153: , x_msg_data OUT NOCOPY VARCHAR2
154: ) IS
155: BEGIN
156: FND_MSG_PUB.Initialize;
157: x_return_status := FND_API.G_RET_STS_SUCCESS;
158: BIS_AK_REGION_PUB.DELETE_REGION_ROW
159: ( p_REGION_CODE => p_Region_Code
160: , p_REGION_APPLICATION_ID => p_Region_Application_Id
161: , x_return_status => x_return_status
162: , x_msg_count => x_msg_count
163: , x_msg_data => x_msg_data
164: , p_commit => p_commit
165: );
166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169:
170: BIS_REGION_EXTENSION_PVT.DELETE_REGION_EXTN_RECORD
163: , x_msg_data => x_msg_data
164: , p_commit => p_commit
165: );
166: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169:
170: BIS_REGION_EXTENSION_PVT.DELETE_REGION_EXTN_RECORD
171: ( p_commit => p_commit
171: ( p_commit => p_commit
172: , pRegionCode => p_Region_Code
173: , pRegionAppId => p_Region_Application_Id
174: );
175: x_return_status := FND_API.G_RET_STS_SUCCESS;
176: EXCEPTION
177: WHEN FND_API.G_EXC_ERROR THEN
178: IF (x_msg_data IS NULL) THEN
179: FND_MSG_PUB.Count_And_Get
173: , pRegionAppId => p_Region_Application_Id
174: );
175: x_return_status := FND_API.G_RET_STS_SUCCESS;
176: EXCEPTION
177: WHEN FND_API.G_EXC_ERROR THEN
178: IF (x_msg_data IS NULL) THEN
179: FND_MSG_PUB.Count_And_Get
180: ( p_encoded => FND_API.G_FALSE
181: , p_count => x_msg_count
176: EXCEPTION
177: WHEN FND_API.G_EXC_ERROR THEN
178: IF (x_msg_data IS NULL) THEN
179: FND_MSG_PUB.Count_And_Get
180: ( p_encoded => FND_API.G_FALSE
181: , p_count => x_msg_count
182: , p_data => x_msg_data
183: );
184: END IF;
181: , p_count => x_msg_count
182: , p_data => x_msg_data
183: );
184: END IF;
185: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: IF (x_msg_data IS NULL) THEN
189: FND_MSG_PUB.Count_And_Get
182: , p_data => x_msg_data
183: );
184: END IF;
185: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: IF (x_msg_data IS NULL) THEN
189: FND_MSG_PUB.Count_And_Get
190: ( p_encoded => FND_API.G_FALSE
183: );
184: END IF;
185: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: IF (x_msg_data IS NULL) THEN
189: FND_MSG_PUB.Count_And_Get
190: ( p_encoded => FND_API.G_FALSE
191: , p_count => x_msg_count
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: IF (x_msg_data IS NULL) THEN
189: FND_MSG_PUB.Count_And_Get
190: ( p_encoded => FND_API.G_FALSE
191: , p_count => x_msg_count
192: , p_data => x_msg_data
193: );
194: END IF;
191: , p_count => x_msg_count
192: , p_data => x_msg_data
193: );
194: END IF;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
197: WHEN OTHERS THEN
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: IF (x_msg_data IS NOT NULL) THEN
192: , p_data => x_msg_data
193: );
194: END IF;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
197: WHEN OTHERS THEN
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: IF (x_msg_data IS NOT NULL) THEN
200: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.DELETE_REGION ';
194: END IF;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
197: WHEN OTHERS THEN
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: IF (x_msg_data IS NOT NULL) THEN
200: x_msg_data := x_msg_data||' -> BIS_PMV_REGION_PVT.DELETE_REGION ';
201: ELSE
202: x_msg_data := SQLERRM||' at BIS_PMV_REGION_PVT.DELETE_REGION ';