39: );
40:
41: EXCEPTION
42: WHEN NO_DATA_FOUND THEN
43: x_return_status := FND_API.G_RET_STS_ERROR ;
44: when FND_API.G_EXC_ERROR then
45: x_return_status := FND_API.G_RET_STS_ERROR ;
46: when FND_API.G_EXC_UNEXPECTED_ERROR then
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
40:
41: EXCEPTION
42: WHEN NO_DATA_FOUND THEN
43: x_return_status := FND_API.G_RET_STS_ERROR ;
44: when FND_API.G_EXC_ERROR then
45: x_return_status := FND_API.G_RET_STS_ERROR ;
46: when FND_API.G_EXC_UNEXPECTED_ERROR then
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
48: when others then
41: EXCEPTION
42: WHEN NO_DATA_FOUND THEN
43: x_return_status := FND_API.G_RET_STS_ERROR ;
44: when FND_API.G_EXC_ERROR then
45: x_return_status := FND_API.G_RET_STS_ERROR ;
46: when FND_API.G_EXC_UNEXPECTED_ERROR then
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
48: when others then
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
42: WHEN NO_DATA_FOUND THEN
43: x_return_status := FND_API.G_RET_STS_ERROR ;
44: when FND_API.G_EXC_ERROR then
45: x_return_status := FND_API.G_RET_STS_ERROR ;
46: when FND_API.G_EXC_UNEXPECTED_ERROR then
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
48: when others then
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
50: BIS_UTILITIES_PVT.Add_Error_Message
43: x_return_status := FND_API.G_RET_STS_ERROR ;
44: when FND_API.G_EXC_ERROR then
45: x_return_status := FND_API.G_RET_STS_ERROR ;
46: when FND_API.G_EXC_UNEXPECTED_ERROR then
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
48: when others then
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
50: BIS_UTILITIES_PVT.Add_Error_Message
51: ( p_error_msg_id => SQLCODE
45: x_return_status := FND_API.G_RET_STS_ERROR ;
46: when FND_API.G_EXC_UNEXPECTED_ERROR then
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
48: when others then
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
50: BIS_UTILITIES_PVT.Add_Error_Message
51: ( p_error_msg_id => SQLCODE
52: , p_error_description => SQLERRM
53: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plans'
75: , x_return_status => x_return_status
76: , x_error_Tbl => x_error_tbl
77: );
78:
79: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
80: BIS_UTILITIES_PVT.Add_Error_Message
81: ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
82: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
83: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
82: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
83: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
84: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
85: );
86: RAISE FND_API.G_EXC_ERROR;
87: end if;
88:
89: BIS_BUSINESS_PLAN_PVT.Retrieve_Business_Plan
90: ( p_api_version => 1.0
96:
97:
98: EXCEPTION
99: WHEN NO_DATA_FOUND THEN
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: when FND_API.G_EXC_ERROR then
102: x_return_status := FND_API.G_RET_STS_ERROR ;
103: when FND_API.G_EXC_UNEXPECTED_ERROR then
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
97:
98: EXCEPTION
99: WHEN NO_DATA_FOUND THEN
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: when FND_API.G_EXC_ERROR then
102: x_return_status := FND_API.G_RET_STS_ERROR ;
103: when FND_API.G_EXC_UNEXPECTED_ERROR then
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: when others then
98: EXCEPTION
99: WHEN NO_DATA_FOUND THEN
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: when FND_API.G_EXC_ERROR then
102: x_return_status := FND_API.G_RET_STS_ERROR ;
103: when FND_API.G_EXC_UNEXPECTED_ERROR then
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
99: WHEN NO_DATA_FOUND THEN
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: when FND_API.G_EXC_ERROR then
102: x_return_status := FND_API.G_RET_STS_ERROR ;
103: when FND_API.G_EXC_UNEXPECTED_ERROR then
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107: BIS_UTILITIES_PVT.Add_Error_Message
100: x_return_status := FND_API.G_RET_STS_ERROR ;
101: when FND_API.G_EXC_ERROR then
102: x_return_status := FND_API.G_RET_STS_ERROR ;
103: when FND_API.G_EXC_UNEXPECTED_ERROR then
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107: BIS_UTILITIES_PVT.Add_Error_Message
108: ( p_error_msg_id => SQLCODE
102: x_return_status := FND_API.G_RET_STS_ERROR ;
103: when FND_API.G_EXC_UNEXPECTED_ERROR then
104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
105: when others then
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
107: BIS_UTILITIES_PVT.Add_Error_Message
108: ( p_error_msg_id => SQLCODE
109: , p_error_description => SQLERRM
110: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
115: END Retrieve_Business_Plan;
116: --
117: Procedure Translate_Business_Plan
118: ( p_api_version IN NUMBER
119: , p_commit IN VARCHAR2 := FND_API.G_FALSE
120: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
121: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
122: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
123: , x_return_status OUT NOCOPY VARCHAR2
116: --
117: Procedure Translate_Business_Plan
118: ( p_api_version IN NUMBER
119: , p_commit IN VARCHAR2 := FND_API.G_FALSE
120: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
121: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
122: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
123: , x_return_status OUT NOCOPY VARCHAR2
124: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
134: , x_return_status => x_return_status
135: , x_error_Tbl => x_error_tbl
136: );
137:
138: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
139: BIS_UTILITIES_PVT.Add_Error_Message
140: ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
141: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
142: , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
141: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
142: , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
143: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
144: );
145: RAISE FND_API.G_EXC_ERROR;
146: end if;
147:
148: BIS_BUSINESS_PLAN_PVT.Translate_Business_Plan
149: ( p_api_version => p_api_version
156: );
157:
158: EXCEPTION
159: WHEN NO_DATA_FOUND THEN
160: x_return_status := FND_API.G_RET_STS_ERROR ;
161: when FND_API.G_EXC_ERROR then
162: x_return_status := FND_API.G_RET_STS_ERROR ;
163: when FND_API.G_EXC_UNEXPECTED_ERROR then
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
157:
158: EXCEPTION
159: WHEN NO_DATA_FOUND THEN
160: x_return_status := FND_API.G_RET_STS_ERROR ;
161: when FND_API.G_EXC_ERROR then
162: x_return_status := FND_API.G_RET_STS_ERROR ;
163: when FND_API.G_EXC_UNEXPECTED_ERROR then
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165: when others then
158: EXCEPTION
159: WHEN NO_DATA_FOUND THEN
160: x_return_status := FND_API.G_RET_STS_ERROR ;
161: when FND_API.G_EXC_ERROR then
162: x_return_status := FND_API.G_RET_STS_ERROR ;
163: when FND_API.G_EXC_UNEXPECTED_ERROR then
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165: when others then
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
159: WHEN NO_DATA_FOUND THEN
160: x_return_status := FND_API.G_RET_STS_ERROR ;
161: when FND_API.G_EXC_ERROR then
162: x_return_status := FND_API.G_RET_STS_ERROR ;
163: when FND_API.G_EXC_UNEXPECTED_ERROR then
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165: when others then
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167: BIS_UTILITIES_PVT.Add_Error_Message
160: x_return_status := FND_API.G_RET_STS_ERROR ;
161: when FND_API.G_EXC_ERROR then
162: x_return_status := FND_API.G_RET_STS_ERROR ;
163: when FND_API.G_EXC_UNEXPECTED_ERROR then
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165: when others then
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167: BIS_UTILITIES_PVT.Add_Error_Message
168: ( p_error_msg_id => SQLCODE
162: x_return_status := FND_API.G_RET_STS_ERROR ;
163: when FND_API.G_EXC_UNEXPECTED_ERROR then
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165: when others then
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
167: BIS_UTILITIES_PVT.Add_Error_Message
168: ( p_error_msg_id => SQLCODE
169: , p_error_description => SQLERRM
170: , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
175: END Translate_Business_Plan ;
176: --
177: Procedure Load_Business_Plan
178: ( p_api_version IN NUMBER
179: , p_commit IN VARCHAR2 := FND_API.G_FALSE
180: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
181: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
182: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
183: , x_return_status OUT NOCOPY VARCHAR2
176: --
177: Procedure Load_Business_Plan
178: ( p_api_version IN NUMBER
179: , p_commit IN VARCHAR2 := FND_API.G_FALSE
180: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
181: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
182: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
183: , x_return_status OUT NOCOPY VARCHAR2
184: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
198: , x_return_status => x_return_status
199: , x_error_Tbl => x_error_tbl
200: );
201:
202: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
203: BIS_UTILITIES_PVT.Add_Error_Message
204: ( p_error_msg_name => 'BIS_INVALID_PLAN_ID'
205: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
206: , p_error_proc_name => G_PKG_NAME||'.Load_Business_Plan'
205: , p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
206: , p_error_proc_name => G_PKG_NAME||'.Load_Business_Plan'
207: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
208: );
209: RAISE FND_API.G_EXC_ERROR;
210: END IF;
211:
212: BIS_BUSINESS_PLAN_PVT.Update_Business_Plan
213: ( p_api_version => p_api_version
219: , x_error_Tbl => x_error_Tbl
220: );
221:
222: EXCEPTION
223: WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR THEN
224:
225: BIS_BUSINESS_PLAN_PVT.Create_Business_Plan
226: ( p_api_version => p_api_version
227: , p_commit => p_commit
232: , x_error_Tbl => x_error_Tbl
233: );
234:
235: WHEN OTHERS THEN
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
237: BIS_UTILITIES_PVT.Add_Error_Message
238: ( p_error_msg_id => SQLCODE
239: , p_error_description => SQLERRM
240: , p_error_proc_name => G_PKG_NAME||'.Update_Business_Plan'
238: ( p_error_msg_id => SQLCODE
239: , p_error_description => SQLERRM
240: , p_error_proc_name => G_PKG_NAME||'.Update_Business_Plan'
241: );
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243:
244: END;
245:
246: EXCEPTION
243:
244: END;
245:
246: EXCEPTION
247: WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR then
248: x_return_status := FND_API.G_RET_STS_ERROR ;
249: when FND_API.G_EXC_UNEXPECTED_ERROR then
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251: when others then
244: END;
245:
246: EXCEPTION
247: WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR then
248: x_return_status := FND_API.G_RET_STS_ERROR ;
249: when FND_API.G_EXC_UNEXPECTED_ERROR then
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251: when others then
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
245:
246: EXCEPTION
247: WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR then
248: x_return_status := FND_API.G_RET_STS_ERROR ;
249: when FND_API.G_EXC_UNEXPECTED_ERROR then
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251: when others then
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
253: BIS_UTILITIES_PVT.Add_Error_Message
246: EXCEPTION
247: WHEN NO_DATA_FOUND OR FND_API.G_EXC_ERROR then
248: x_return_status := FND_API.G_RET_STS_ERROR ;
249: when FND_API.G_EXC_UNEXPECTED_ERROR then
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251: when others then
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
253: BIS_UTILITIES_PVT.Add_Error_Message
254: ( p_error_msg_id => SQLCODE
248: x_return_status := FND_API.G_RET_STS_ERROR ;
249: when FND_API.G_EXC_UNEXPECTED_ERROR then
250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
251: when others then
252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
253: BIS_UTILITIES_PVT.Add_Error_Message
254: ( p_error_msg_id => SQLCODE
255: , p_error_description => SQLERRM
256: , p_error_proc_name => G_PKG_NAME||'.Load_Business_Plan'