64: x_business_plan_rec.Current_Plan_Flag
65: := BIS_UTILITIES_PVT.CheckMissChar(p_business_plan_rec.Current_Plan_Flag);
66:
67: EXCEPTION
68: WHEN FND_API.G_EXC_ERROR THEN
69: RAISE;
70: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
71: RAISE;
72: WHEN OTHERS THEN
66:
67: EXCEPTION
68: WHEN FND_API.G_EXC_ERROR THEN
69: RAISE;
70: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
71: RAISE;
72: WHEN OTHERS THEN
73: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
74:
69: RAISE;
70: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
71: RAISE;
72: WHEN OTHERS THEN
73: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
74:
75: END SetNULL;
76: --
77: PROCEDURE UpdateRecord
85: l_Business_Plan_Rec BIS_Business_Plan_PUB.Business_Plan_Rec_Type;
86: l_return_status VARCHAR2(10);
87: --
88: BEGIN
89: x_return_status:= FND_API.G_RET_STS_SUCCESS;
90:
91: -- retrieve record from db
92: BIS_Business_Plan_PVT.Retrieve_Business_Plan
93: ( p_api_version => 1.0
98: );
99:
100: -- apply changes
101: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Business_Plan_Rec.Business_Plan_ID)
102: = FND_API.G_TRUE
103: ) THEN
104: l_Business_Plan_Rec.Business_Plan_ID
105: := p_Business_Plan_Rec.Business_Plan_ID;
106: END IF;
106: END IF;
107: --
108: IF( BIS_UTILITIES_PUB.Value_Not_Missing(
109: p_Business_Plan_Rec.Business_Plan_Short_Name)
110: = FND_API.G_TRUE
111: ) THEN
112: l_Business_Plan_Rec.Business_Plan_Short_Name
113: := p_Business_Plan_Rec.Business_Plan_Short_Name ;
114: END IF;
114: END IF;
115: --
116: IF( BIS_UTILITIES_PUB.Value_Not_Missing(
117: p_Business_Plan_Rec.Business_Plan_Name)
118: = FND_API.G_TRUE
119: ) THEN
120: l_Business_Plan_Rec.Business_Plan_Name
121: := p_Business_Plan_Rec.Business_Plan_Name;
122: END IF;
121: := p_Business_Plan_Rec.Business_Plan_Name;
122: END IF;
123: --
124: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Business_Plan_Rec.Description)
125: = FND_API.G_TRUE
126: ) THEN
127: l_Business_Plan_Rec.Description
128: := p_Business_Plan_Rec.Description;
129: END IF;
128: := p_Business_Plan_Rec.Description;
129: END IF;
130: --
131: IF( BIS_UTILITIES_PUB.Value_Not_Missing(p_Business_Plan_Rec.Version_number)
132: = FND_API.G_TRUE
133: ) THEN
134: l_Business_Plan_Rec.Version_number
135: := p_Business_Plan_Rec.Version_number;
136: END IF;
136: END IF;
137: --
138: IF( BIS_UTILITIES_PUB.Value_Not_Missing(
139: p_Business_Plan_Rec.Current_Plan_Flag)
140: = FND_API.G_TRUE
141: ) THEN
142: l_Business_Plan_Rec.Current_Plan_Flag
143: := p_Business_Plan_Rec.Current_Plan_Flag;
144: END IF;
145:
146: x_Business_Plan_Rec := l_Business_Plan_Rec;
147: --
148: EXCEPTION
149: WHEN FND_API.G_EXC_ERROR THEN
150: x_return_status:= FND_API.G_RET_STS_ERROR;
151: RAISE;
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
146: x_Business_Plan_Rec := l_Business_Plan_Rec;
147: --
148: EXCEPTION
149: WHEN FND_API.G_EXC_ERROR THEN
150: x_return_status:= FND_API.G_RET_STS_ERROR;
151: RAISE;
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
154: RAISE;
148: EXCEPTION
149: WHEN FND_API.G_EXC_ERROR THEN
150: x_return_status:= FND_API.G_RET_STS_ERROR;
151: RAISE;
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
154: RAISE;
155: WHEN OTHERS THEN
156: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
149: WHEN FND_API.G_EXC_ERROR THEN
150: x_return_status:= FND_API.G_RET_STS_ERROR;
151: RAISE;
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
154: RAISE;
155: WHEN OTHERS THEN
156: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
157: BIS_UTILITIES_PVT.Add_Error_Message
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
154: RAISE;
155: WHEN OTHERS THEN
156: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
157: BIS_UTILITIES_PVT.Add_Error_Message
158: ( p_error_table => x_error_Tbl
159: , p_error_msg_id => SQLCODE
160: , p_error_description => SQLERRM
159: , p_error_msg_id => SQLCODE
160: , p_error_description => SQLERRM
161: , x_error_table => x_error_Tbl
162: );
163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164:
165: END UpdateRecord;
166: --
167: --
184: from bisfv_business_plans;
185:
186: BEGIN
187:
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
190: for cr in cr_all_business_plans loop
191: l_business_plan_rec.business_plan_id := cr.plan_id;
192: l_business_plan_rec.business_plan_short_name := cr.short_name;
200: end loop;
201:
202: EXCEPTION
203: WHEN NO_DATA_FOUND THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: RAISE FND_API.G_EXC_ERROR;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
201:
202: EXCEPTION
203: WHEN NO_DATA_FOUND THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: RAISE FND_API.G_EXC_ERROR;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
202: EXCEPTION
203: WHEN NO_DATA_FOUND THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: RAISE FND_API.G_EXC_ERROR;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
203: WHEN NO_DATA_FOUND THEN
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: RAISE FND_API.G_EXC_ERROR;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204: x_return_status := FND_API.G_RET_STS_ERROR ;
205: RAISE FND_API.G_EXC_ERROR;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: when others then
205: RAISE FND_API.G_EXC_ERROR;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: when others then
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
206: when FND_API.G_EXC_ERROR then
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: when others then
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
214: BIS_UTILITIES_PVT.Add_Error_Message
207: x_return_status := FND_API.G_RET_STS_ERROR ;
208: RAISE FND_API.G_EXC_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: when others then
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
214: BIS_UTILITIES_PVT.Add_Error_Message
215: ( p_error_msg_id => SQLCODE
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: when others then
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
214: BIS_UTILITIES_PVT.Add_Error_Message
215: ( p_error_msg_id => SQLCODE
216: , p_error_description => SQLERRM
217: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plans'
215: ( p_error_msg_id => SQLCODE
216: , p_error_description => SQLERRM
217: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plans'
218: );
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220:
221: END Retrieve_Business_Plans;
222: --
223: Procedure Retrieve_Business_Plan
229: )
230: is
231: begin
232:
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
234:
235: x_Business_Plan_Rec := p_Business_Plan_Rec;
236: SELECT bp.short_name
237: , bptl.name
249: AND bptl.language = userenv('LANG');
250:
251: EXCEPTION
252: WHEN NO_DATA_FOUND THEN
253: x_return_status := FND_API.G_RET_STS_ERROR ;
254: RAISE FND_API.G_EXC_ERROR;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
250:
251: EXCEPTION
252: WHEN NO_DATA_FOUND THEN
253: x_return_status := FND_API.G_RET_STS_ERROR ;
254: RAISE FND_API.G_EXC_ERROR;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
251: EXCEPTION
252: WHEN NO_DATA_FOUND THEN
253: x_return_status := FND_API.G_RET_STS_ERROR ;
254: RAISE FND_API.G_EXC_ERROR;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252: WHEN NO_DATA_FOUND THEN
253: x_return_status := FND_API.G_RET_STS_ERROR ;
254: RAISE FND_API.G_EXC_ERROR;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253: x_return_status := FND_API.G_RET_STS_ERROR ;
254: RAISE FND_API.G_EXC_ERROR;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: when others then
254: RAISE FND_API.G_EXC_ERROR;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: when others then
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
255: when FND_API.G_EXC_ERROR then
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: when others then
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
263: BIS_UTILITIES_PVT.Add_Error_Message
256: x_return_status := FND_API.G_RET_STS_ERROR ;
257: RAISE FND_API.G_EXC_ERROR;
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: when others then
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
263: BIS_UTILITIES_PVT.Add_Error_Message
264: ( p_error_msg_id => SQLCODE
258: when FND_API.G_EXC_UNEXPECTED_ERROR then
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
261: when others then
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
263: BIS_UTILITIES_PVT.Add_Error_Message
264: ( p_error_msg_id => SQLCODE
265: , p_error_description => SQLERRM
266: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
264: ( p_error_msg_id => SQLCODE
265: , p_error_description => SQLERRM
266: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
267: );
268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
269: end Retrieve_Business_Plan;
270: --
271: Procedure Create_Business_Plan
272: ( p_api_version IN NUMBER
269: end Retrieve_Business_Plan;
270: --
271: Procedure Create_Business_Plan
272: ( p_api_version IN NUMBER
273: , p_commit IN VARCHAR2 := FND_API.G_FALSE
274: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
275: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
276: , x_return_status OUT NOCOPY VARCHAR2
277: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
270: --
271: Procedure Create_Business_Plan
272: ( p_api_version IN NUMBER
273: , p_commit IN VARCHAR2 := FND_API.G_FALSE
274: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
275: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
276: , x_return_status OUT NOCOPY VARCHAR2
277: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
278: )
290: );
291:
292: EXCEPTION
293: when others then
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295: BIS_UTILITIES_PVT.Add_Error_Message
296: ( p_error_msg_id => SQLCODE
297: , p_error_description => SQLERRM
298: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
296: ( p_error_msg_id => SQLCODE
297: , p_error_description => SQLERRM
298: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
299: );
300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
301:
302:
303: END Create_Business_Plan;
304: --
303: END Create_Business_Plan;
304: --
305: Procedure Create_Business_Plan
306: ( p_api_version IN NUMBER
307: , p_commit IN VARCHAR2 := FND_API.G_FALSE
308: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
309: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
310: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
311: , x_return_status OUT NOCOPY VARCHAR2
304: --
305: Procedure Create_Business_Plan
306: ( p_api_version IN NUMBER
307: , p_commit IN VARCHAR2 := FND_API.G_FALSE
308: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
309: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
310: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
311: , x_return_status OUT NOCOPY VARCHAR2
312: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
317: l_id NUMBER;
318: l_business_plan_rec BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type;
319: BEGIN
320:
321: x_return_status := FND_API.G_RET_STS_SUCCESS;
322: l_business_plan_Rec := p_business_plan_Rec;
323:
324: SetNULL
325: ( p_business_plan_Rec => p_business_plan_Rec
332: , x_return_status
333: , x_error_Tbl
334: );
335:
336: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) then
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
339: --
340: IF p_owner = BIS_UTILITIES_PUB.G_SEED_OWNER THEN
333: , x_error_Tbl
334: );
335:
336: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) then
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
339: --
340: IF p_owner = BIS_UTILITIES_PUB.G_SEED_OWNER THEN
341: l_user_id := BIS_UTILITIES_PUB.G_SEED_USER_ID;
406: WHERE TL.PLAN_ID = P.PLAN_ID
407: AND P.SHORT_NAME = l_Business_Plan_Rec.Business_Plan_Short_Name
408: AND TL.LANGUAGE = L.LANGUAGE_CODE) ;
409:
410: if (p_commit = FND_API.G_TRUE) then
411: COMMIT;
412: end if;
413:
414: EXCEPTION
412: end if;
413:
414: EXCEPTION
415: WHEN NO_DATA_FOUND THEN
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: RAISE FND_API.G_EXC_ERROR;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
413:
414: EXCEPTION
415: WHEN NO_DATA_FOUND THEN
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: RAISE FND_API.G_EXC_ERROR;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
414: EXCEPTION
415: WHEN NO_DATA_FOUND THEN
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: RAISE FND_API.G_EXC_ERROR;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
415: WHEN NO_DATA_FOUND THEN
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: RAISE FND_API.G_EXC_ERROR;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
416: x_return_status := FND_API.G_RET_STS_ERROR ;
417: RAISE FND_API.G_EXC_ERROR;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: when others then
417: RAISE FND_API.G_EXC_ERROR;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: when others then
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
418: when FND_API.G_EXC_ERROR then
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: when others then
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
426: BIS_UTILITIES_PVT.Add_Error_Message
419: x_return_status := FND_API.G_RET_STS_ERROR ;
420: RAISE FND_API.G_EXC_ERROR;
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: when others then
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
426: BIS_UTILITIES_PVT.Add_Error_Message
427: ( p_error_msg_id => SQLCODE
421: when FND_API.G_EXC_UNEXPECTED_ERROR then
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: when others then
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
426: BIS_UTILITIES_PVT.Add_Error_Message
427: ( p_error_msg_id => SQLCODE
428: , p_error_description => SQLERRM
429: , p_error_proc_name => G_PKG_NAME||'.Create_Business_Plan'
427: ( p_error_msg_id => SQLCODE
428: , p_error_description => SQLERRM
429: , p_error_proc_name => G_PKG_NAME||'.Create_Business_Plan'
430: );
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END Create_Business_Plan;
433: --
434: Procedure Update_Business_Plan
435: ( p_api_version IN NUMBER
432: END Create_Business_Plan;
433: --
434: Procedure Update_Business_Plan
435: ( p_api_version IN NUMBER
436: , p_commit IN VARCHAR2 := FND_API.G_FALSE
437: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
438: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
439: , x_return_status OUT NOCOPY VARCHAR2
440: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
433: --
434: Procedure Update_Business_Plan
435: ( p_api_version IN NUMBER
436: , p_commit IN VARCHAR2 := FND_API.G_FALSE
437: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
438: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
439: , x_return_status OUT NOCOPY VARCHAR2
440: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
441: )
453: );
454:
455: EXCEPTION
456: when others then
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
458: BIS_UTILITIES_PVT.Add_Error_Message
459: ( p_error_msg_id => SQLCODE
460: , p_error_description => SQLERRM
461: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
459: ( p_error_msg_id => SQLCODE
460: , p_error_description => SQLERRM
461: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
462: );
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464:
465: END Update_Business_Plan;
466: --
467: Procedure Update_Business_Plan
465: END Update_Business_Plan;
466: --
467: Procedure Update_Business_Plan
468: ( p_api_version IN NUMBER
469: , p_commit IN VARCHAR2 := FND_API.G_FALSE
470: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
471: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
472: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
473: , x_return_status OUT NOCOPY VARCHAR2
466: --
467: Procedure Update_Business_Plan
468: ( p_api_version IN NUMBER
469: , p_commit IN VARCHAR2 := FND_API.G_FALSE
470: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
471: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
472: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
473: , x_return_status OUT NOCOPY VARCHAR2
474: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
496: , x_return_status
497: , x_error_Tbl
498: );
499:
500: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503: --
504: IF p_owner = BIS_UTILITIES_PUB.G_SEED_OWNER THEN
497: , x_error_Tbl
498: );
499:
500: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503: --
504: IF p_owner = BIS_UTILITIES_PUB.G_SEED_OWNER THEN
505: l_user_id := BIS_UTILITIES_PUB.G_SEED_USER_ID;
522: , LAST_UPDATED_BY = l_user_id
523: , LAST_UPDATE_LOGIN = l_login_id
524: where plan_ID = l_Business_Plan_Rec.Business_Plan_Id;
525:
526: if (p_commit = FND_API.G_TRUE) then
527: COMMIT;
528: end if;
529:
530: Translate_business_plan
538: );
539:
540: EXCEPTION
541: WHEN NO_DATA_FOUND THEN
542: x_return_status := FND_API.G_RET_STS_ERROR ;
543: RAISE FND_API.G_EXC_ERROR;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
539:
540: EXCEPTION
541: WHEN NO_DATA_FOUND THEN
542: x_return_status := FND_API.G_RET_STS_ERROR ;
543: RAISE FND_API.G_EXC_ERROR;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
540: EXCEPTION
541: WHEN NO_DATA_FOUND THEN
542: x_return_status := FND_API.G_RET_STS_ERROR ;
543: RAISE FND_API.G_EXC_ERROR;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
541: WHEN NO_DATA_FOUND THEN
542: x_return_status := FND_API.G_RET_STS_ERROR ;
543: RAISE FND_API.G_EXC_ERROR;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
542: x_return_status := FND_API.G_RET_STS_ERROR ;
543: RAISE FND_API.G_EXC_ERROR;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: when others then
543: RAISE FND_API.G_EXC_ERROR;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: when others then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
544: when FND_API.G_EXC_ERROR then
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: when others then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: BIS_UTILITIES_PVT.Add_Error_Message
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: RAISE FND_API.G_EXC_ERROR;
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: when others then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: BIS_UTILITIES_PVT.Add_Error_Message
553: ( p_error_msg_id => SQLCODE
547: when FND_API.G_EXC_UNEXPECTED_ERROR then
548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: when others then
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
552: BIS_UTILITIES_PVT.Add_Error_Message
553: ( p_error_msg_id => SQLCODE
554: , p_error_description => SQLERRM
555: , p_error_proc_name => G_PKG_NAME||'.Update_Business_Plan'
553: ( p_error_msg_id => SQLCODE
554: , p_error_description => SQLERRM
555: , p_error_proc_name => G_PKG_NAME||'.Update_Business_Plan'
556: );
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558:
559: END Update_Business_Plan;
560: --
561: Procedure Translate_Business_Plan
559: END Update_Business_Plan;
560: --
561: Procedure Translate_Business_Plan
562: ( p_api_version IN NUMBER
563: , p_commit IN VARCHAR2 := FND_API.G_FALSE
564: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
565: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
566: , x_return_status OUT NOCOPY VARCHAR2
567: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
560: --
561: Procedure Translate_Business_Plan
562: ( p_api_version IN NUMBER
563: , p_commit IN VARCHAR2 := FND_API.G_FALSE
564: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
565: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
566: , x_return_status OUT NOCOPY VARCHAR2
567: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
568: )
580: );
581:
582: EXCEPTION
583: when others then
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: BIS_UTILITIES_PVT.Add_Error_Message
586: ( p_error_msg_id => SQLCODE
587: , p_error_description => SQLERRM
588: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
586: ( p_error_msg_id => SQLCODE
587: , p_error_description => SQLERRM
588: , p_error_proc_name => G_PKG_NAME||'.Retrieve_Business_Plan'
589: );
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591:
592: END Translate_Business_Plan;
593: --
594: Procedure Translate_Business_Plan
592: END Translate_Business_Plan;
593: --
594: Procedure Translate_Business_Plan
595: ( p_api_version IN NUMBER
596: , p_commit IN VARCHAR2 := FND_API.G_FALSE
597: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
598: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
599: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
600: , x_return_status OUT NOCOPY VARCHAR2
593: --
594: Procedure Translate_Business_Plan
595: ( p_api_version IN NUMBER
596: , p_commit IN VARCHAR2 := FND_API.G_FALSE
597: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
598: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
599: , p_owner IN VARCHAR2 := BIS_UTILITIES_PUB.G_CUSTOM_OWNER
600: , x_return_status OUT NOCOPY VARCHAR2
601: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
623: , x_return_status
624: , x_error_Tbl
625: );
626:
627: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
628: RAISE FND_API.G_EXC_ERROR;
629: END IF;
630: --
631: IF p_owner = BIS_UTILITIES_PUB.G_SEED_OWNER THEN
624: , x_error_Tbl
625: );
626:
627: IF( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
628: RAISE FND_API.G_EXC_ERROR;
629: END IF;
630: --
631: IF p_owner = BIS_UTILITIES_PUB.G_SEED_OWNER THEN
632: l_user_id := BIS_UTILITIES_PUB.G_SEED_USER_ID;
647: , SOURCE_LANG = userenv('LANG')
648: where PLAN_ID = l_Business_Plan_Rec.Business_Plan_Id
649: and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
650:
651: if (p_commit = FND_API.G_TRUE) then
652: COMMIT;
653: end if;
654:
655: EXCEPTION
653: end if;
654:
655: EXCEPTION
656: WHEN NO_DATA_FOUND THEN
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: RAISE FND_API.G_EXC_ERROR;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
654:
655: EXCEPTION
656: WHEN NO_DATA_FOUND THEN
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: RAISE FND_API.G_EXC_ERROR;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
655: EXCEPTION
656: WHEN NO_DATA_FOUND THEN
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: RAISE FND_API.G_EXC_ERROR;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
656: WHEN NO_DATA_FOUND THEN
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: RAISE FND_API.G_EXC_ERROR;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
657: x_return_status := FND_API.G_RET_STS_ERROR ;
658: RAISE FND_API.G_EXC_ERROR;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: when others then
658: RAISE FND_API.G_EXC_ERROR;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: when others then
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
659: when FND_API.G_EXC_ERROR then
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: when others then
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
667: BIS_UTILITIES_PVT.Add_Error_Message
660: x_return_status := FND_API.G_RET_STS_ERROR ;
661: RAISE FND_API.G_EXC_ERROR;
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: when others then
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
667: BIS_UTILITIES_PVT.Add_Error_Message
668: ( p_error_msg_id => SQLCODE
662: when FND_API.G_EXC_UNEXPECTED_ERROR then
663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: when others then
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
667: BIS_UTILITIES_PVT.Add_Error_Message
668: ( p_error_msg_id => SQLCODE
669: , p_error_description => SQLERRM
670: , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
668: ( p_error_msg_id => SQLCODE
669: , p_error_description => SQLERRM
670: , p_error_proc_name => G_PKG_NAME||'.Translate_Business_Plan'
671: );
672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
673:
674: END Translate_Business_Plan;
675: --
676: --
675: --
676: --
677: PROCEDURE Validate_Business_Plan
678: ( p_api_version IN NUMBER
679: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
680: , p_Business_Plan_Rec IN BIS_BUSINESS_PLAN_PUB.Business_Plan_Rec_Type
681: , x_return_status OUT NOCOPY VARCHAR2
682: , x_error_Tbl OUT NOCOPY BIS_UTILITIES_PUB.Error_Tbl_Type
683: )
694: , x_error_Tbl => l_error_Tbl
695: );
696:
697: EXCEPTION
698: when FND_API.G_EXC_ERROR then
699: BIS_UTILITIES_PVT.concatenateErrorTables( x_error_Tbl
700: , l_error_Tbl
701: , x_error_tbl
702: );
699: BIS_UTILITIES_PVT.concatenateErrorTables( x_error_Tbl
700: , l_error_Tbl
701: , x_error_tbl
702: );
703: x_return_status := FND_API.G_RET_STS_ERROR;
704: END;
705:
706: if (x_error_tbl.count > 0) then
707: RAISE FND_API.G_EXC_ERROR;
703: x_return_status := FND_API.G_RET_STS_ERROR;
704: END;
705:
706: if (x_error_tbl.count > 0) then
707: RAISE FND_API.G_EXC_ERROR;
708: end if;
709:
710: EXCEPTION
711: WHEN NO_DATA_FOUND THEN
708: end if;
709:
710: EXCEPTION
711: WHEN NO_DATA_FOUND THEN
712: x_return_status := FND_API.G_RET_STS_ERROR ;
713: RAISE FND_API.G_EXC_ERROR;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
709:
710: EXCEPTION
711: WHEN NO_DATA_FOUND THEN
712: x_return_status := FND_API.G_RET_STS_ERROR ;
713: RAISE FND_API.G_EXC_ERROR;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
710: EXCEPTION
711: WHEN NO_DATA_FOUND THEN
712: x_return_status := FND_API.G_RET_STS_ERROR ;
713: RAISE FND_API.G_EXC_ERROR;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
711: WHEN NO_DATA_FOUND THEN
712: x_return_status := FND_API.G_RET_STS_ERROR ;
713: RAISE FND_API.G_EXC_ERROR;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: x_return_status := FND_API.G_RET_STS_ERROR ;
713: RAISE FND_API.G_EXC_ERROR;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: when others then
713: RAISE FND_API.G_EXC_ERROR;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: when others then
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
714: when FND_API.G_EXC_ERROR then
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: when others then
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
722: BIS_UTILITIES_PVT.Add_Error_Message
715: x_return_status := FND_API.G_RET_STS_ERROR ;
716: RAISE FND_API.G_EXC_ERROR;
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: when others then
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
722: BIS_UTILITIES_PVT.Add_Error_Message
723: ( p_error_msg_id => SQLCODE
717: when FND_API.G_EXC_UNEXPECTED_ERROR then
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: when others then
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
722: BIS_UTILITIES_PVT.Add_Error_Message
723: ( p_error_msg_id => SQLCODE
724: , p_error_description => SQLERRM
725: , p_error_proc_name => G_PKG_NAME||'.Validate_Business_Plan'
723: ( p_error_msg_id => SQLCODE
724: , p_error_description => SQLERRM
725: , p_error_proc_name => G_PKG_NAME||'.Validate_Business_Plan'
726: );
727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
728:
729: END Validate_Business_Plan;
730: --
731: -- Value - ID conversion
738: )
739: is
740: begin
741:
742: x_return_status := FND_API.G_RET_STS_SUCCESS;
743: x_Business_Plan_Rec := p_Business_Plan_Rec;
744:
745: if (BIS_UTILITIES_PUB.Value_Missing(x_Business_Plan_Rec.Business_Plan_id)
746: = FND_API.G_TRUE) then
742: x_return_status := FND_API.G_RET_STS_SUCCESS;
743: x_Business_Plan_Rec := p_Business_Plan_Rec;
744:
745: if (BIS_UTILITIES_PUB.Value_Missing(x_Business_Plan_Rec.Business_Plan_id)
746: = FND_API.G_TRUE) then
747:
748: BIS_BUSINESS_PLAN_PVT.Value_ID_Conversion
749: ( p_api_version
750: , x_Business_Plan_Rec.Business_Plan_Short_Name
756: end if;
757:
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: x_return_status := FND_API.G_RET_STS_ERROR ;
761: RAISE FND_API.G_EXC_ERROR;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
757:
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: x_return_status := FND_API.G_RET_STS_ERROR ;
761: RAISE FND_API.G_EXC_ERROR;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: x_return_status := FND_API.G_RET_STS_ERROR ;
761: RAISE FND_API.G_EXC_ERROR;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
759: WHEN NO_DATA_FOUND THEN
760: x_return_status := FND_API.G_RET_STS_ERROR ;
761: RAISE FND_API.G_EXC_ERROR;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
760: x_return_status := FND_API.G_RET_STS_ERROR ;
761: RAISE FND_API.G_EXC_ERROR;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: when others then
761: RAISE FND_API.G_EXC_ERROR;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: when others then
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
762: when FND_API.G_EXC_ERROR then
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: when others then
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
770: BIS_UTILITIES_PVT.Add_Error_Message
763: x_return_status := FND_API.G_RET_STS_ERROR ;
764: RAISE FND_API.G_EXC_ERROR;
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: when others then
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
770: BIS_UTILITIES_PVT.Add_Error_Message
771: ( p_error_msg_id => SQLCODE
765: when FND_API.G_EXC_UNEXPECTED_ERROR then
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
768: when others then
769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
770: BIS_UTILITIES_PVT.Add_Error_Message
771: ( p_error_msg_id => SQLCODE
772: , p_error_description => SQLERRM
773: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
771: ( p_error_msg_id => SQLCODE
772: , p_error_description => SQLERRM
773: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
774: );
775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
776:
777: end Value_ID_Conversion;
778: --
779: PROCEDURE Value_ID_Conversion
786: )
787: is
788: begin
789:
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Business_Plan_Short_Name)
793: = FND_API.G_TRUE) then
794:
789:
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Business_Plan_Short_Name)
793: = FND_API.G_TRUE) then
794:
795: SELECT plan_id into x_Business_Plan_ID
796: FROM bis_business_plans
797: WHERE short_name = p_Business_Plan_Short_Name;
796: FROM bis_business_plans
797: WHERE short_name = p_Business_Plan_Short_Name;
798:
799: elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Business_Plan_Name)
800: = FND_API.G_TRUE) then
801:
802: SELECT plan_id into x_Business_Plan_ID
803: FROM bis_business_plans_tl
804: WHERE name = p_Business_Plan_Name
811: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
812: , p_error_type => BIS_UTILITIES_PUB.G_ERROR
813: );
814:
815: RAISE FND_API.G_EXC_ERROR;
816: end if;
817:
818: EXCEPTION
819: WHEN NO_DATA_FOUND THEN
816: end if;
817:
818: EXCEPTION
819: WHEN NO_DATA_FOUND THEN
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE FND_API.G_EXC_ERROR;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
817:
818: EXCEPTION
819: WHEN NO_DATA_FOUND THEN
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE FND_API.G_EXC_ERROR;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
818: EXCEPTION
819: WHEN NO_DATA_FOUND THEN
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE FND_API.G_EXC_ERROR;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
819: WHEN NO_DATA_FOUND THEN
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE FND_API.G_EXC_ERROR;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: x_return_status := FND_API.G_RET_STS_ERROR ;
821: RAISE FND_API.G_EXC_ERROR;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: when others then
821: RAISE FND_API.G_EXC_ERROR;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: when others then
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
822: when FND_API.G_EXC_ERROR then
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: when others then
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830: BIS_UTILITIES_PVT.Add_Error_Message
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824: RAISE FND_API.G_EXC_ERROR;
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: when others then
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830: BIS_UTILITIES_PVT.Add_Error_Message
831: ( p_error_msg_id => SQLCODE
825: when FND_API.G_EXC_UNEXPECTED_ERROR then
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
828: when others then
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830: BIS_UTILITIES_PVT.Add_Error_Message
831: ( p_error_msg_id => SQLCODE
832: , p_error_description => SQLERRM
833: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
831: ( p_error_msg_id => SQLCODE
832: , p_error_description => SQLERRM
833: , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
834: );
835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
836:
837: end Value_ID_Conversion;
838: --
839: END BIS_BUSINESS_PLAN_PVT;