[Home] [Help]
35: -- ---------------------------------------------------------------------------
36:
37: PROCEDURE create_agreement
38: (p_api_version_number IN NUMBER --:=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
39: ,p_commit IN VARCHAR2 --:= FND_API.G_FALSE
40: ,p_init_msg_list IN VARCHAR2 --:= FND_API.G_FALSE
41: ,p_msg_count OUT NOCOPY NUMBER /*file.sql.39*/
42: ,p_msg_data OUT NOCOPY VARCHAR2 /*file.sql.39*/
43: ,p_return_status OUT NOCOPY VARCHAR2
36:
37: PROCEDURE create_agreement
38: (p_api_version_number IN NUMBER --:=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
39: ,p_commit IN VARCHAR2 --:= FND_API.G_FALSE
40: ,p_init_msg_list IN VARCHAR2 --:= FND_API.G_FALSE
41: ,p_msg_count OUT NOCOPY NUMBER /*file.sql.39*/
42: ,p_msg_data OUT NOCOPY VARCHAR2 /*file.sql.39*/
43: ,p_return_status OUT NOCOPY VARCHAR2
44: ,p_pm_product_code IN VARCHAR2 --:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
79:
80: -- Standard call to check for call compatibility.
81:
82:
83: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
84: p_api_version_number ,
85: l_api_name ,
86: G_PKG_NAME )
87: THEN
85: l_api_name ,
86: G_PKG_NAME )
87: THEN
88:
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90:
91: END IF;
92: l_resp_id := FND_GLOBAL.Resp_id;
93:
107: p_return_status => l_return_status,
108: p_function_allowed => l_function_allowed
109: );
110:
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
112: THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114:
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
109: );
110:
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
112: THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114:
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
116: THEN
117: RAISE FND_API.G_EXC_ERROR;
111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
112: THEN
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114:
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
116: THEN
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114:
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
116: THEN
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120:
121: IF l_function_allowed = 'N' THEN
128: ,p_attribute2 => ''
129: ,p_attribute3 => ''
130: ,p_attribute4 => ''
131: ,p_attribute5 => '');
132: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
136: -- Initialize the message table if requested.
129: ,p_attribute3 => ''
130: ,p_attribute4 => ''
131: ,p_attribute5 => '');
132: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
136: -- Initialize the message table if requested.
137:
134: END IF;
135:
136: -- Initialize the message table if requested.
137:
138: IF FND_API.TO_BOOLEAN( p_init_msg_list )
139: THEN
140:
141: FND_MSG_PUB.initialize;
142:
143: END IF;
144:
145: -- Set API return status to success
146:
147: p_return_status := FND_API.G_RET_STS_SUCCESS;
148: p_agreement_out_rec.return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
151:
144:
145: -- Set API return status to success
146:
147: p_return_status := FND_API.G_RET_STS_SUCCESS;
148: p_agreement_out_rec.return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
151:
152: -- Product Code
165: ,p_attribute3 => ''
166: ,p_attribute4 => ''
167: ,p_attribute5 => '');
168: END IF;
169: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
170: p_return_status := FND_API.G_RET_STS_ERROR;
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
166: ,p_attribute4 => ''
167: ,p_attribute5 => '');
168: END IF;
169: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
170: p_return_status := FND_API.G_RET_STS_ERROR;
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: -- Agreement Reference
167: ,p_attribute5 => '');
168: END IF;
169: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
170: p_return_status := FND_API.G_RET_STS_ERROR;
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: -- Agreement Reference
175: IF (p_agreement_in_rec.pm_agreement_reference IS NULL)
187: ,p_attribute3 => ''
188: ,p_attribute4 => ''
189: ,p_attribute5 => '');
190: END IF;
191: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
192: p_return_status := FND_API.G_RET_STS_ERROR;
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195:
188: ,p_attribute4 => ''
189: ,p_attribute5 => '');
190: END IF;
191: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
192: p_return_status := FND_API.G_RET_STS_ERROR;
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195:
196: -- Agreement Number
189: ,p_attribute5 => '');
190: END IF;
191: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
192: p_return_status := FND_API.G_RET_STS_ERROR;
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195:
196: -- Agreement Number
197: IF (p_agreement_in_rec.agreement_num IS NULL)
209: ,p_attribute3 => ''
210: ,p_attribute4 => ''
211: ,p_attribute5 => '');
212: END IF;
213: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
214: p_return_status := FND_API.G_RET_STS_ERROR;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
210: ,p_attribute4 => ''
211: ,p_attribute5 => '');
212: END IF;
213: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
214: p_return_status := FND_API.G_RET_STS_ERROR;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
218: -- Customer Id
211: ,p_attribute5 => '');
212: END IF;
213: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
214: p_return_status := FND_API.G_RET_STS_ERROR;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
218: -- Customer Id
219:
232: ,p_attribute3 => ''
233: ,p_attribute4 => ''
234: ,p_attribute5 => '');
235: END IF;
236: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
237: p_return_status := FND_API.G_RET_STS_ERROR;
238: RAISE FND_API.G_EXC_ERROR;
239: END IF;
240:
233: ,p_attribute4 => ''
234: ,p_attribute5 => '');
235: END IF;
236: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
237: p_return_status := FND_API.G_RET_STS_ERROR;
238: RAISE FND_API.G_EXC_ERROR;
239: END IF;
240:
241: -- Customer Number
234: ,p_attribute5 => '');
235: END IF;
236: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
237: p_return_status := FND_API.G_RET_STS_ERROR;
238: RAISE FND_API.G_EXC_ERROR;
239: END IF;
240:
241: -- Customer Number
242: IF (p_agreement_in_rec.customer_num IS NULL)
254: ,p_attribute3 => ''
255: ,p_attribute4 => ''
256: ,p_attribute5 => '');
257: END IF;
258: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
259: p_return_status := FND_API.G_RET_STS_ERROR;
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
255: ,p_attribute4 => ''
256: ,p_attribute5 => '');
257: END IF;
258: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
259: p_return_status := FND_API.G_RET_STS_ERROR;
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
263: -- Agreement Type
256: ,p_attribute5 => '');
257: END IF;
258: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
259: p_return_status := FND_API.G_RET_STS_ERROR;
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
263: -- Agreement Type
264: IF (p_agreement_in_rec.agreement_type IS NULL)
276: ,p_attribute3 => ''
277: ,p_attribute4 => ''
278: ,p_attribute5 => '');
279: END IF;
280: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
281: p_return_status := FND_API.G_RET_STS_ERROR;
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
277: ,p_attribute4 => ''
278: ,p_attribute5 => '');
279: END IF;
280: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
281: p_return_status := FND_API.G_RET_STS_ERROR;
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: -- Term Id
278: ,p_attribute5 => '');
279: END IF;
280: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
281: p_return_status := FND_API.G_RET_STS_ERROR;
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: -- Term Id
286: IF (p_agreement_in_rec.term_id IS NULL)
298: ,p_attribute3 => ''
299: ,p_attribute4 => ''
300: ,p_attribute5 => '');
301: END IF;
302: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
303: p_return_status := FND_API.G_RET_STS_ERROR;
304: RAISE FND_API.G_EXC_ERROR;
305: END IF;
306: /*
299: ,p_attribute4 => ''
300: ,p_attribute5 => '');
301: END IF;
302: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
303: p_return_status := FND_API.G_RET_STS_ERROR;
304: RAISE FND_API.G_EXC_ERROR;
305: END IF;
306: /*
307: -- Template Flag
300: ,p_attribute5 => '');
301: END IF;
302: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
303: p_return_status := FND_API.G_RET_STS_ERROR;
304: RAISE FND_API.G_EXC_ERROR;
305: END IF;
306: /*
307: -- Template Flag
308: IF (p_agreement_in_rec.template_flag IS NULL)
320: ,p_attribute3 => ''
321: ,p_attribute4 => ''
322: ,p_attribute5 => '');
323: END IF;
324: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
325: p_return_status := FND_API.G_RET_STS_ERROR;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: */
321: ,p_attribute4 => ''
322: ,p_attribute5 => '');
323: END IF;
324: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
325: p_return_status := FND_API.G_RET_STS_ERROR;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: */
329: -- Revenue Limit Flag
322: ,p_attribute5 => '');
323: END IF;
324: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
325: p_return_status := FND_API.G_RET_STS_ERROR;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: */
329: -- Revenue Limit Flag
330: IF (p_agreement_in_rec.revenue_limit_flag IS NULL)
342: ,p_attribute3 => ''
343: ,p_attribute4 => ''
344: ,p_attribute5 => '');
345: END IF;
346: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
347: p_return_status := FND_API.G_RET_STS_ERROR;
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
343: ,p_attribute4 => ''
344: ,p_attribute5 => '');
345: END IF;
346: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
347: p_return_status := FND_API.G_RET_STS_ERROR;
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: -- Owned By Person Id
344: ,p_attribute5 => '');
345: END IF;
346: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
347: p_return_status := FND_API.G_RET_STS_ERROR;
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: -- Owned By Person Id
352: IF (p_agreement_in_rec.owned_by_person_id IS NULL)
364: ,p_attribute3 => ''
365: ,p_attribute4 => ''
366: ,p_attribute5 => '');
367: END IF;
368: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
369: p_return_status := FND_API.G_RET_STS_ERROR;
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
365: ,p_attribute4 => ''
366: ,p_attribute5 => '');
367: END IF;
368: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
369: p_return_status := FND_API.G_RET_STS_ERROR;
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
373: -- Amount
366: ,p_attribute5 => '');
367: END IF;
368: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
369: p_return_status := FND_API.G_RET_STS_ERROR;
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372:
373: -- Amount
374: IF (p_agreement_in_rec.amount IS NULL)
386: ,p_attribute3 => ''
387: ,p_attribute4 => ''
388: ,p_attribute5 => '');
389: END IF;
390: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
391: p_return_status := FND_API.G_RET_STS_ERROR;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394:
387: ,p_attribute4 => ''
388: ,p_attribute5 => '');
389: END IF;
390: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
391: p_return_status := FND_API.G_RET_STS_ERROR;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394:
395: -- VALIDATE THE INCOMING PARAMETERS
388: ,p_attribute5 => '');
389: END IF;
390: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
391: p_return_status := FND_API.G_RET_STS_ERROR;
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394:
395: -- VALIDATE THE INCOMING PARAMETERS
396: IF pa_agreement_pvt.check_create_agreement_ok
412: ,p_advance_required => p_agreement_in_rec.advance_required
413: ,p_billing_sequence => p_agreement_in_rec.billing_sequence
414: ) = 'N'
415: THEN
416: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
417: p_return_status := FND_API.G_RET_STS_ERROR;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
413: ,p_billing_sequence => p_agreement_in_rec.billing_sequence
414: ) = 'N'
415: THEN
416: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
417: p_return_status := FND_API.G_RET_STS_ERROR;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
421: -- Flex Field Validations
414: ) = 'N'
415: THEN
416: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
417: p_return_status := FND_API.G_RET_STS_ERROR;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
421: -- Flex Field Validations
422:
470: ,p_attribute3 => ''
471: ,p_attribute4 => ''
472: ,p_attribute5 => '');
473: END IF;
474: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
475: p_return_status := FND_API.G_RET_STS_ERROR;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478: END IF;
471: ,p_attribute4 => ''
472: ,p_attribute5 => '');
473: END IF;
474: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
475: p_return_status := FND_API.G_RET_STS_ERROR;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478: END IF;
479:
472: ,p_attribute5 => '');
473: END IF;
474: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
475: p_return_status := FND_API.G_RET_STS_ERROR;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478: END IF;
479:
480: /* NOT REQUIRED
486: ,p_return_status => l_return_status);
487: p_agreement_out_rec.return_status := l_return_status;
488: p_return_status := l_return_status;
489:
490: IF l_return_status = FND_API.G_RET_STS_ERROR
491: THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
494: THEN
488: p_return_status := l_return_status;
489:
490: IF l_return_status = FND_API.G_RET_STS_ERROR
491: THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
494: THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSE
489:
490: IF l_return_status = FND_API.G_RET_STS_ERROR
491: THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
494: THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSE
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
491: THEN
492: RAISE FND_API.G_EXC_ERROR;
493: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
494: THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSE
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: END IF;
499: */
493: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
494: THEN
495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
496: ELSE
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: END IF;
499: */
500:
501: l_agreement_in_rec := p_agreement_in_rec;
609: ,p_attribute3 => ''
610: ,p_attribute4 => ''
611: ,p_attribute5 => '');
612: END IF;
613: p_return_status := FND_API.G_RET_STS_ERROR;
614: RAISE FND_API.G_EXC_ERROR;
615: END IF;
616:
617: IF (l_agreement_in_rec.Advance_required IS NOT NULL and
610: ,p_attribute4 => ''
611: ,p_attribute5 => '');
612: END IF;
613: p_return_status := FND_API.G_RET_STS_ERROR;
614: RAISE FND_API.G_EXC_ERROR;
615: END IF;
616:
617: IF (l_agreement_in_rec.Advance_required IS NOT NULL and
618: l_agreement_in_rec.Advance_required <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) then
813: l_valid_currency:='N';
814: WHEN NO_DATA_FOUND THEN
815: Null;
816: WHEN OTHERS THEN
817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: END;
819:
820: IF l_valid_currency='N' THEN
821: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
830: ,p_attribute3 => ''
831: ,p_attribute4 => ''
832: ,p_attribute5 => '');
833: END IF;
834: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
835: END IF;
836: END IF;
837:
838: /* Bug 2437469- END */
880:
881: -- Assign the return_status to the fudning out record
882: p_funding_out_tbl(i).return_status := l_return_status;
883:
884: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
885: THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887:
888: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
882: p_funding_out_tbl(i).return_status := l_return_status;
883:
884: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
885: THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887:
888: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
889: THEN
890: -- p_multiple_funding_msg := 'F';
884: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
885: THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887:
888: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
889: THEN
890: -- p_multiple_funding_msg := 'F';
891: RAISE FND_API.G_EXC_ERROR;
892: END IF;
887:
888: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
889: THEN
890: -- p_multiple_funding_msg := 'F';
891: RAISE FND_API.G_EXC_ERROR;
892: END IF;
893:
894: --Move to next funding in funding pl/sql table
895: i := p_funding_in_tbl.next(i);
895: i := p_funding_in_tbl.next(i);
896:
897: END LOOP;
898:
899: IF FND_API.to_boolean( p_commit )
900: THEN
901: COMMIT;
902: END IF;
903:
903:
904: --END IF;
905:
906: EXCEPTION
907: WHEN FND_API.G_EXC_ERROR
908: THEN
909: ROLLBACK TO create_agreement_pub;
910: p_return_status := FND_API.G_RET_STS_ERROR;
911: FND_MSG_PUB.Count_And_Get
906: EXCEPTION
907: WHEN FND_API.G_EXC_ERROR
908: THEN
909: ROLLBACK TO create_agreement_pub;
910: p_return_status := FND_API.G_RET_STS_ERROR;
911: FND_MSG_PUB.Count_And_Get
912: ( p_count => p_msg_count ,
913: p_data => p_msg_data );
914:
911: FND_MSG_PUB.Count_And_Get
912: ( p_count => p_msg_count ,
913: p_data => p_msg_data );
914:
915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
916: THEN
917: ROLLBACK TO create_agreement_pub;
918: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: FND_MSG_PUB.Count_And_Get
914:
915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
916: THEN
917: ROLLBACK TO create_agreement_pub;
918: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: FND_MSG_PUB.Count_And_Get
920: ( p_count => p_msg_count ,
921: p_data => p_msg_data );
922:
922:
923: WHEN OTHERS
924: THEN
925: ROLLBACK TO create_agreement_pub;
926: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
928: THEN
929: FND_MSG_PUB.add_exc_msg
930: ( p_pkg_name => G_PKG_NAME
995:
996: -- Standard call to check for call compatibility.
997:
998:
999: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
1000: p_api_version_number ,
1001: l_api_name ,
1002: G_PKG_NAME )
1003: THEN
1001: l_api_name ,
1002: G_PKG_NAME )
1003: THEN
1004:
1005: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1006:
1007: END IF;
1008: l_resp_id := FND_GLOBAL.Resp_id;
1009:
1022: p_return_status => l_return_status,
1023: p_function_allowed => l_function_allowed
1024: );
1025:
1026: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1027: THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029:
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1024: );
1025:
1026: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1027: THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029:
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1031: THEN
1032: RAISE FND_API.G_EXC_ERROR;
1026: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1027: THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029:
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1031: THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034: IF l_function_allowed = 'N' THEN
1028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1029:
1030: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1031: THEN
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034: IF l_function_allowed = 'N' THEN
1035: pa_interface_utils_pub.map_new_amg_msg
1036: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
1041: ,p_attribute2 => ''
1042: ,p_attribute3 => ''
1043: ,p_attribute4 => ''
1044: ,p_attribute5 => '');
1045: p_return_status := FND_API.G_RET_STS_ERROR;
1046: RAISE FND_API.G_EXC_ERROR;
1047: END IF;
1048:
1049: -- Initialize the message table if requested.
1042: ,p_attribute3 => ''
1043: ,p_attribute4 => ''
1044: ,p_attribute5 => '');
1045: p_return_status := FND_API.G_RET_STS_ERROR;
1046: RAISE FND_API.G_EXC_ERROR;
1047: END IF;
1048:
1049: -- Initialize the message table if requested.
1050:
1047: END IF;
1048:
1049: -- Initialize the message table if requested.
1050:
1051: IF FND_API.TO_BOOLEAN( p_init_msg_list )
1052: THEN
1053:
1054: FND_MSG_PUB.initialize;
1055:
1056: END IF;
1057:
1058: -- Set API return status to success
1059:
1060: p_return_status := FND_API.G_RET_STS_SUCCESS;
1061:
1062:
1063: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
1064:
1078: ,p_attribute3 => ''
1079: ,p_attribute4 => ''
1080: ,p_attribute5 => '');
1081: END IF;
1082: p_return_status := FND_API.G_RET_STS_ERROR;
1083: RAISE FND_API.G_EXC_ERROR;
1084: END IF;
1085:
1086: -- Agreement Reference
1079: ,p_attribute4 => ''
1080: ,p_attribute5 => '');
1081: END IF;
1082: p_return_status := FND_API.G_RET_STS_ERROR;
1083: RAISE FND_API.G_EXC_ERROR;
1084: END IF;
1085:
1086: -- Agreement Reference
1087: IF (p_pm_agreement_reference IS NULL)
1099: ,p_attribute3 => ''
1100: ,p_attribute4 => ''
1101: ,p_attribute5 => '');
1102: END IF;
1103: p_return_status := FND_API.G_RET_STS_ERROR;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106: /* NOT REQUIRED
1107: -- Agreement Id
1100: ,p_attribute4 => ''
1101: ,p_attribute5 => '');
1102: END IF;
1103: p_return_status := FND_API.G_RET_STS_ERROR;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106: /* NOT REQUIRED
1107: -- Agreement Id
1108: IF (p_agreement_id IS NULL)
1120: ,p_attribute3 => ''
1121: ,p_attribute4 => ''
1122: ,p_attribute5 => '');
1123: END IF;
1124: p_return_status := FND_API.G_RET_STS_ERROR;
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: */
1128: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
1121: ,p_attribute4 => ''
1122: ,p_attribute5 => '');
1123: END IF;
1124: p_return_status := FND_API.G_RET_STS_ERROR;
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: */
1128: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
1129: pa_agreement_pvt.convert_ag_ref_to_id
1131: ,p_af_agreement_id => p_agreement_id
1132: ,p_out_agreement_id => l_out_agreement_id
1133: ,p_return_status => l_return_status);
1134: p_return_status := l_return_status;
1135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1136: THEN
1137: IF l_return_status = FND_API.G_RET_STS_ERROR
1138: THEN
1139: RAISE FND_API.G_EXC_ERROR;
1133: ,p_return_status => l_return_status);
1134: p_return_status := l_return_status;
1135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1136: THEN
1137: IF l_return_status = FND_API.G_RET_STS_ERROR
1138: THEN
1139: RAISE FND_API.G_EXC_ERROR;
1140: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1141: THEN
1135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1136: THEN
1137: IF l_return_status = FND_API.G_RET_STS_ERROR
1138: THEN
1139: RAISE FND_API.G_EXC_ERROR;
1140: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1141: THEN
1142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1143: ELSE
1136: THEN
1137: IF l_return_status = FND_API.G_RET_STS_ERROR
1138: THEN
1139: RAISE FND_API.G_EXC_ERROR;
1140: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1141: THEN
1142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1143: ELSE
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: THEN
1139: RAISE FND_API.G_EXC_ERROR;
1140: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1141: THEN
1142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1143: ELSE
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
1146: END IF;
1140: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1141: THEN
1142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1143: ELSE
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
1146: END IF;
1147:
1148: -- VALIDATE THE INCOMING PARAMETERS
1149: IF pa_agreement_pvt.check_delete_agreement_ok
1150: (p_agreement_id => p_agreement_id
1151: ,p_pm_agreement_reference => p_pm_agreement_reference) = 'N'
1152: THEN
1153: p_return_status := FND_API.G_RET_STS_ERROR;
1154: RAISE FND_API.G_EXC_ERROR;
1155: END IF;
1156:
1157: -- DELETE CORRESPONDING FUNDINGS FOR THE AGREEMENT
1150: (p_agreement_id => p_agreement_id
1151: ,p_pm_agreement_reference => p_pm_agreement_reference) = 'N'
1152: THEN
1153: p_return_status := FND_API.G_RET_STS_ERROR;
1154: RAISE FND_API.G_EXC_ERROR;
1155: END IF;
1156:
1157: -- DELETE CORRESPONDING FUNDINGS FOR THE AGREEMENT
1158: OPEN l_funding_id_csr( l_out_agreement_id);
1172: ,p_pm_product_code => p_pm_product_code
1173: ,p_pm_funding_reference => l_funding_id_rec.pm_funding_reference
1174: ,p_funding_id => l_funding_id
1175: ,p_check_y_n => 'N' );
1176: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
1177: THEN
1178: IF p_return_status = FND_API.G_RET_STS_ERROR
1179: THEN
1180: RAISE FND_API.G_EXC_ERROR;
1174: ,p_funding_id => l_funding_id
1175: ,p_check_y_n => 'N' );
1176: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
1177: THEN
1178: IF p_return_status = FND_API.G_RET_STS_ERROR
1179: THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1182: THEN
1176: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
1177: THEN
1178: IF p_return_status = FND_API.G_RET_STS_ERROR
1179: THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1182: THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: ELSE
1177: THEN
1178: IF p_return_status = FND_API.G_RET_STS_ERROR
1179: THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1182: THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: ELSE
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1182: THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: ELSE
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1186: END IF;
1187: END IF;
1181: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1182: THEN
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: ELSE
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1186: END IF;
1187: END IF;
1188: END IF;
1189: END LOOP;
1193:
1194: pa_agreement_utils.delete_agreement
1195: (p_agreement_id => l_out_agreement_id);
1196:
1197: IF FND_API.to_boolean( p_commit )
1198: THEN
1199: COMMIT;
1200: END IF;
1201:
1199: COMMIT;
1200: END IF;
1201:
1202: EXCEPTION
1203: WHEN FND_API.G_EXC_ERROR
1204: THEN
1205: ROLLBACK TO delete_agreement_pub;
1206: p_return_status := FND_API.G_RET_STS_ERROR;
1207: FND_MSG_PUB.Count_And_Get
1202: EXCEPTION
1203: WHEN FND_API.G_EXC_ERROR
1204: THEN
1205: ROLLBACK TO delete_agreement_pub;
1206: p_return_status := FND_API.G_RET_STS_ERROR;
1207: FND_MSG_PUB.Count_And_Get
1208: ( p_count => p_msg_count ,
1209: p_data => p_msg_data );
1210:
1207: FND_MSG_PUB.Count_And_Get
1208: ( p_count => p_msg_count ,
1209: p_data => p_msg_data );
1210:
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1212: THEN
1213: ROLLBACK TO delete_agreement_pub;
1214: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: FND_MSG_PUB.Count_And_Get
1210:
1211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1212: THEN
1213: ROLLBACK TO delete_agreement_pub;
1214: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: FND_MSG_PUB.Count_And_Get
1216: ( p_count => p_msg_count ,
1217: p_data => p_msg_data );
1218:
1218:
1219: WHEN ROW_ALREADY_LOCKED
1220: THEN
1221: ROLLBACK TO delete_agreement_pub;
1222: p_return_status := FND_API.G_RET_STS_ERROR;
1223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1224: THEN
1225: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
1226: FND_MESSAGE.SET_TOKEN('AGREEMENT',p_pm_agreement_reference);
1232:
1233: WHEN OTHERS
1234: THEN
1235: ROLLBACK TO delete_agreement_pub;
1236: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1238: THEN
1239: FND_MSG_PUB.add_exc_msg
1240: ( p_pkg_name => G_PKG_NAME
1310: l_agreement_in_rec:=p_agreement_in_rec;
1311: -- Standard call to check for call compatibility.
1312:
1313:
1314: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
1315: p_api_version_number ,
1316: l_api_name ,
1317: G_PKG_NAME )
1318: THEN
1316: l_api_name ,
1317: G_PKG_NAME )
1318: THEN
1319:
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321:
1322: END IF;
1323: l_resp_id := FND_GLOBAL.Resp_id;
1324:
1337: p_return_status => l_return_status,
1338: p_function_allowed => l_function_allowed
1339: );
1340:
1341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1342: THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344:
1345: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1339: );
1340:
1341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1342: THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344:
1345: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1346: THEN
1347: RAISE FND_API.G_EXC_ERROR;
1341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1342: THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344:
1345: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1346: THEN
1347: RAISE FND_API.G_EXC_ERROR;
1348: END IF;
1349: IF l_function_allowed = 'N' THEN
1343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1344:
1345: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1346: THEN
1347: RAISE FND_API.G_EXC_ERROR;
1348: END IF;
1349: IF l_function_allowed = 'N' THEN
1350: pa_interface_utils_pub.map_new_amg_msg
1351: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
1356: ,p_attribute2 => ''
1357: ,p_attribute3 => ''
1358: ,p_attribute4 => ''
1359: ,p_attribute5 => '');
1360: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1361: RAISE FND_API.G_EXC_ERROR;
1362: END IF;
1363:
1364: -- Initialize the message table if requested.
1357: ,p_attribute3 => ''
1358: ,p_attribute4 => ''
1359: ,p_attribute5 => '');
1360: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1361: RAISE FND_API.G_EXC_ERROR;
1362: END IF;
1363:
1364: -- Initialize the message table if requested.
1365:
1362: END IF;
1363:
1364: -- Initialize the message table if requested.
1365:
1366: IF FND_API.TO_BOOLEAN( p_init_msg_list )
1367: THEN
1368:
1369: FND_MSG_PUB.initialize;
1370:
1371: END IF;
1372:
1373: -- Set API return status to success
1374:
1375: p_return_status := FND_API.G_RET_STS_SUCCESS;
1376: p_agreement_out_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1377:
1378:
1379: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
1372:
1373: -- Set API return status to success
1374:
1375: p_return_status := FND_API.G_RET_STS_SUCCESS;
1376: p_agreement_out_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1377:
1378:
1379: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
1380:
1394: ,p_attribute3 => ''
1395: ,p_attribute4 => ''
1396: ,p_attribute5 => '');
1397: END IF;
1398: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1399: p_return_status := FND_API.G_RET_STS_ERROR;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402:
1395: ,p_attribute4 => ''
1396: ,p_attribute5 => '');
1397: END IF;
1398: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1399: p_return_status := FND_API.G_RET_STS_ERROR;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402:
1403: /*Commented the validation for non mandatory parameter 'pm_agreement_reference' for bug 6601566
1396: ,p_attribute5 => '');
1397: END IF;
1398: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1399: p_return_status := FND_API.G_RET_STS_ERROR;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402:
1403: /*Commented the validation for non mandatory parameter 'pm_agreement_reference' for bug 6601566
1404: -- Agreement Reference
1417: ,p_attribute3 => ''
1418: ,p_attribute4 => ''
1419: ,p_attribute5 => '');
1420: END IF;
1421: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1422: p_return_status := FND_API.G_RET_STS_ERROR;
1423: RAISE FND_API.G_EXC_ERROR;
1424: END IF;
1425: Commenting ends here */
1418: ,p_attribute4 => ''
1419: ,p_attribute5 => '');
1420: END IF;
1421: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1422: p_return_status := FND_API.G_RET_STS_ERROR;
1423: RAISE FND_API.G_EXC_ERROR;
1424: END IF;
1425: Commenting ends here */
1426:
1419: ,p_attribute5 => '');
1420: END IF;
1421: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1422: p_return_status := FND_API.G_RET_STS_ERROR;
1423: RAISE FND_API.G_EXC_ERROR;
1424: END IF;
1425: Commenting ends here */
1426:
1427: /* Commented the validations for non mandatory parameters for bug 6602451
1441: ,p_attribute3 => ''
1442: ,p_attribute4 => ''
1443: ,p_attribute5 => '');
1444: END IF;
1445: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1446: p_return_status := FND_API.G_RET_STS_ERROR;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449:
1442: ,p_attribute4 => ''
1443: ,p_attribute5 => '');
1444: END IF;
1445: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1446: p_return_status := FND_API.G_RET_STS_ERROR;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449:
1450: -- Customer Number
1443: ,p_attribute5 => '');
1444: END IF;
1445: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1446: p_return_status := FND_API.G_RET_STS_ERROR;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449:
1450: -- Customer Number
1451: IF (l_agreement_in_rec.customer_num IS NULL)
1463: ,p_attribute3 => ''
1464: ,p_attribute4 => ''
1465: ,p_attribute5 => '');
1466: END IF;
1467: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1468: p_return_status := FND_API.G_RET_STS_ERROR;
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471:
1464: ,p_attribute4 => ''
1465: ,p_attribute5 => '');
1466: END IF;
1467: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1468: p_return_status := FND_API.G_RET_STS_ERROR;
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471:
1472: -- Agreement Type
1465: ,p_attribute5 => '');
1466: END IF;
1467: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1468: p_return_status := FND_API.G_RET_STS_ERROR;
1469: RAISE FND_API.G_EXC_ERROR;
1470: END IF;
1471:
1472: -- Agreement Type
1473: IF (l_agreement_in_rec.agreement_type IS NULL)
1485: ,p_attribute3 => ''
1486: ,p_attribute4 => ''
1487: ,p_attribute5 => '');
1488: END IF;
1489: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1490: p_return_status := FND_API.G_RET_STS_ERROR;
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1486: ,p_attribute4 => ''
1487: ,p_attribute5 => '');
1488: END IF;
1489: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1490: p_return_status := FND_API.G_RET_STS_ERROR;
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1494: -- Agreement Number
1487: ,p_attribute5 => '');
1488: END IF;
1489: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1490: p_return_status := FND_API.G_RET_STS_ERROR;
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1494: -- Agreement Number
1495: IF (l_agreement_in_rec.agreement_num IS NULL)
1507: ,p_attribute3 => ''
1508: ,p_attribute4 => ''
1509: ,p_attribute5 => '');
1510: END IF;
1511: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1512: p_return_status := FND_API.G_RET_STS_ERROR;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515: Code commented ends here */
1508: ,p_attribute4 => ''
1509: ,p_attribute5 => '');
1510: END IF;
1511: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1512: p_return_status := FND_API.G_RET_STS_ERROR;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515: Code commented ends here */
1516:
1509: ,p_attribute5 => '');
1510: END IF;
1511: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1512: p_return_status := FND_API.G_RET_STS_ERROR;
1513: RAISE FND_API.G_EXC_ERROR;
1514: END IF;
1515: Code commented ends here */
1516:
1517: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
1570: ,p_billing_sequence => p_agreement_in_rec.billing_sequence
1571: ,p_amount => p_agreement_in_rec.amount
1572: ) = 'N'
1573: THEN
1574: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1575: p_return_status := FND_API.G_RET_STS_ERROR;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END IF;
1578: i := p_funding_in_tbl.first;
1571: ,p_amount => p_agreement_in_rec.amount
1572: ) = 'N'
1573: THEN
1574: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1575: p_return_status := FND_API.G_RET_STS_ERROR;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END IF;
1578: i := p_funding_in_tbl.first;
1579: WHILE i IS NOT NULL LOOP
1572: ) = 'N'
1573: THEN
1574: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1575: p_return_status := FND_API.G_RET_STS_ERROR;
1576: RAISE FND_API.G_EXC_ERROR;
1577: END IF;
1578: i := p_funding_in_tbl.first;
1579: WHILE i IS NOT NULL LOOP
1580: --Move the incoming record to a local record
1653: ,p_attribute3 => ''
1654: ,p_attribute4 => ''
1655: ,p_attribute5 => '');
1656: END IF;
1657: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1658: p_return_status := FND_API.G_RET_STS_ERROR;
1659: RAISE FND_API.G_EXC_ERROR;
1660: END IF;
1661: END IF;
1654: ,p_attribute4 => ''
1655: ,p_attribute5 => '');
1656: END IF;
1657: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1658: p_return_status := FND_API.G_RET_STS_ERROR;
1659: RAISE FND_API.G_EXC_ERROR;
1660: END IF;
1661: END IF;
1662:
1655: ,p_attribute5 => '');
1656: END IF;
1657: p_agreement_out_rec.return_status := FND_API.G_RET_STS_ERROR;
1658: p_return_status := FND_API.G_RET_STS_ERROR;
1659: RAISE FND_API.G_EXC_ERROR;
1660: END IF;
1661: END IF;
1662:
1663:
1786:
1787: -- Assign the return_status to the task out record
1788: p_funding_out_tbl(i).return_status := l_return_status;
1789:
1790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1791: THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793:
1794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1788: p_funding_out_tbl(i).return_status := l_return_status;
1789:
1790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1791: THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793:
1794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1795: THEN
1796: -- p_multiple_funding_msg := 'F';
1790: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1791: THEN
1792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793:
1794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1795: THEN
1796: -- p_multiple_funding_msg := 'F';
1797: RAISE FND_API.G_EXC_ERROR;
1798: END IF;
1793:
1794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1795: THEN
1796: -- p_multiple_funding_msg := 'F';
1797: RAISE FND_API.G_EXC_ERROR;
1798: END IF;
1799:
1800: ELSIF pa_agreement_pvt.check_add_update(p_funding_reference => l_funding_in_rec.pm_funding_reference)='A'
1801: THEN
1840: );
1841: -- Assign the return_status to the task out record
1842: p_funding_out_tbl(i).return_status := l_return_status;
1843:
1844: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1845: THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847:
1848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1842: p_funding_out_tbl(i).return_status := l_return_status;
1843:
1844: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1845: THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847:
1848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1849: THEN
1850: -- p_multiple_funding_msg := 'F';
1844: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1845: THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847:
1848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1849: THEN
1850: -- p_multiple_funding_msg := 'F';
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF;
1847:
1848: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
1849: THEN
1850: -- p_multiple_funding_msg := 'F';
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF;
1853:
1854: END IF;
1855:
1857: i := p_funding_in_tbl.next(i);
1858:
1859: END LOOP;
1860:
1861: IF FND_API.to_boolean( p_commit )
1862: THEN
1863: COMMIT;
1864: END IF;
1865:
1863: COMMIT;
1864: END IF;
1865:
1866: EXCEPTION
1867: WHEN FND_API.G_EXC_ERROR
1868: THEN
1869: p_return_status := FND_API.G_RET_STS_ERROR ;
1870: ROLLBACK TO update_agreement_pub;
1871: FND_MSG_PUB.Count_And_Get
1865:
1866: EXCEPTION
1867: WHEN FND_API.G_EXC_ERROR
1868: THEN
1869: p_return_status := FND_API.G_RET_STS_ERROR ;
1870: ROLLBACK TO update_agreement_pub;
1871: FND_MSG_PUB.Count_And_Get
1872: ( p_count => p_msg_count ,
1873: p_data => p_msg_data );
1872: ( p_count => p_msg_count ,
1873: p_data => p_msg_data );
1874:
1875:
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1877: THEN
1878: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1879: ROLLBACK TO update_agreement_pub;
1880: FND_MSG_PUB.Count_And_Get
1874:
1875:
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1877: THEN
1878: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1879: ROLLBACK TO update_agreement_pub;
1880: FND_MSG_PUB.Count_And_Get
1881: ( p_count => p_msg_count ,
1882: p_data => p_msg_data );
1895: ,p_attribute5 => '');
1896:
1897: WHEN ROW_ALREADY_LOCKED THEN
1898: ROLLBACK TO update_project_pub;
1899: p_return_status := FND_API.G_RET_STS_ERROR;
1900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1901: THEN
1902: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
1903: FND_MESSAGE.SET_TOKEN('AGREEMENT',l_agreement_in_rec.pm_agreement_reference);
1911:
1912: WHEN OTHERS
1913: THEN
1914: ROLLBACK TO update_agreement_pub;
1915: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1916: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1917: THEN
1918: FND_MSG_PUB.add_exc_msg
1919: ( p_pkg_name => G_PKG_NAME
2033:
2034: -- Standard call to check for call compatibility.
2035:
2036:
2037: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2038: p_api_version_number ,
2039: l_api_name ,
2040: G_PKG_NAME )
2041: THEN
2039: l_api_name ,
2040: G_PKG_NAME )
2041: THEN
2042:
2043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2044:
2045: END IF;
2046: l_resp_id := FND_GLOBAL.Resp_id;
2047:
2064: p_return_status => l_return_status,
2065: p_function_allowed => l_function_allowed
2066: );
2067:
2068: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2069: THEN
2070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2071:
2072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2066: );
2067:
2068: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2069: THEN
2070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2071:
2072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2073: THEN
2074: RAISE FND_API.G_EXC_ERROR;
2068: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2069: THEN
2070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2071:
2072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2073: THEN
2074: RAISE FND_API.G_EXC_ERROR;
2075: END IF;
2076: IF l_function_allowed = 'N' THEN
2070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2071:
2072: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2073: THEN
2074: RAISE FND_API.G_EXC_ERROR;
2075: END IF;
2076: IF l_function_allowed = 'N' THEN
2077: pa_interface_utils_pub.map_new_amg_msg
2078: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
2083: ,p_attribute2 => ''
2084: ,p_attribute3 => ''
2085: ,p_attribute4 => ''
2086: ,p_attribute5 => '');
2087: p_return_status := FND_API.G_RET_STS_ERROR;
2088: RAISE FND_API.G_EXC_ERROR;
2089: END IF;
2090:
2091: -- Initialize the message table if requested.
2084: ,p_attribute3 => ''
2085: ,p_attribute4 => ''
2086: ,p_attribute5 => '');
2087: p_return_status := FND_API.G_RET_STS_ERROR;
2088: RAISE FND_API.G_EXC_ERROR;
2089: END IF;
2090:
2091: -- Initialize the message table if requested.
2092:
2089: END IF;
2090:
2091: -- Initialize the message table if requested.
2092:
2093: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2094: THEN
2095:
2096: FND_MSG_PUB.initialize;
2097:
2098: END IF;
2099:
2100: -- Set API return status to success
2101:
2102: p_return_status := FND_API.G_RET_STS_SUCCESS;
2103:
2104: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
2105:
2106:
2120: ,p_attribute3 => ''
2121: ,p_attribute4 => ''
2122: ,p_attribute5 => '');
2123: END IF;
2124: p_return_status := FND_API.G_RET_STS_ERROR;
2125: RAISE FND_API.G_EXC_ERROR;
2126: END IF;
2127:
2128: /* NOT REQUIRED
2121: ,p_attribute4 => ''
2122: ,p_attribute5 => '');
2123: END IF;
2124: p_return_status := FND_API.G_RET_STS_ERROR;
2125: RAISE FND_API.G_EXC_ERROR;
2126: END IF;
2127:
2128: /* NOT REQUIRED
2129: -- Agreement Reference
2142: ,p_attribute3 => ''
2143: ,p_attribute4 => ''
2144: ,p_attribute5 => '');
2145: END IF;
2146: p_return_status := FND_API.G_RET_STS_ERROR;
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149:
2150:
2143: ,p_attribute4 => ''
2144: ,p_attribute5 => '');
2145: END IF;
2146: p_return_status := FND_API.G_RET_STS_ERROR;
2147: RAISE FND_API.G_EXC_ERROR;
2148: END IF;
2149:
2150:
2151: -- Project Reference
2164: ,p_attribute3 => ''
2165: ,p_attribute4 => ''
2166: ,p_attribute5 => '');
2167: END IF;
2168: p_return_status := FND_API.G_RET_STS_ERROR;
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2171: */
2172:
2165: ,p_attribute4 => ''
2166: ,p_attribute5 => '');
2167: END IF;
2168: p_return_status := FND_API.G_RET_STS_ERROR;
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2171: */
2172:
2173: -- Code added for Bug 2403652 starts here
2189: ,p_attribute3 => ''
2190: ,p_attribute4 => ''
2191: ,p_attribute5 => '');
2192: END IF;
2193: p_return_status := FND_API.G_RET_STS_ERROR;
2194: RAISE FND_API.G_EXC_ERROR;
2195: END IF;
2196: */
2197:
2190: ,p_attribute4 => ''
2191: ,p_attribute5 => '');
2192: END IF;
2193: p_return_status := FND_API.G_RET_STS_ERROR;
2194: RAISE FND_API.G_EXC_ERROR;
2195: END IF;
2196: */
2197:
2198: -- Validate funding category
2211: ,p_agreement_id
2212: ,p_pm_funding_reference
2213: ,l_funding_category ) = 'N'
2214: THEN
2215: p_return_status := FND_API.G_RET_STS_ERROR;
2216: RAISE FND_API.G_EXC_ERROR;
2217: END IF;
2218:
2219: -- Code added for Bug 2403652 ends here
2212: ,p_pm_funding_reference
2213: ,l_funding_category ) = 'N'
2214: THEN
2215: p_return_status := FND_API.G_RET_STS_ERROR;
2216: RAISE FND_API.G_EXC_ERROR;
2217: END IF;
2218:
2219: -- Code added for Bug 2403652 ends here
2220:
2235: ,p_attribute3 => ''
2236: ,p_attribute4 => ''
2237: ,p_attribute5 => '');
2238: END IF;
2239: p_return_status := FND_API.G_RET_STS_ERROR;
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242:
2243: -- Project Id
2236: ,p_attribute4 => ''
2237: ,p_attribute5 => '');
2238: END IF;
2239: p_return_status := FND_API.G_RET_STS_ERROR;
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242:
2243: -- Project Id
2244: IF (p_pa_project_id IS NULL)
2256: ,p_attribute3 => ''
2257: ,p_attribute4 => ''
2258: ,p_attribute5 => '');
2259: END IF;
2260: p_return_status := FND_API.G_RET_STS_ERROR;
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263:
2264: -- Task Id
2257: ,p_attribute4 => ''
2258: ,p_attribute5 => '');
2259: END IF;
2260: p_return_status := FND_API.G_RET_STS_ERROR;
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263:
2264: -- Task Id
2265: /*
2278: ,p_attribute3 => ''
2279: ,p_attribute4 => ''
2280: ,p_attribute5 => '');
2281: END IF;
2282: p_return_status := FND_API.G_RET_STS_ERROR;
2283: RAISE FND_API.G_EXC_ERROR;
2284: END IF;
2285: */
2286: -- Date Allocated
2279: ,p_attribute4 => ''
2280: ,p_attribute5 => '');
2281: END IF;
2282: p_return_status := FND_API.G_RET_STS_ERROR;
2283: RAISE FND_API.G_EXC_ERROR;
2284: END IF;
2285: */
2286: -- Date Allocated
2287: IF (p_date_allocated IS NULL)
2299: ,p_attribute3 => ''
2300: ,p_attribute4 => ''
2301: ,p_attribute5 => '');
2302: END IF;
2303: p_return_status := FND_API.G_RET_STS_ERROR;
2304: RAISE FND_API.G_EXC_ERROR;
2305: END IF;
2306:
2307: -- Allocated Amount
2300: ,p_attribute4 => ''
2301: ,p_attribute5 => '');
2302: END IF;
2303: p_return_status := FND_API.G_RET_STS_ERROR;
2304: RAISE FND_API.G_EXC_ERROR;
2305: END IF;
2306:
2307: -- Allocated Amount
2308: IF (p_allocated_amount IS NULL)
2320: ,p_attribute3 => ''
2321: ,p_attribute4 => ''
2322: ,p_attribute5 => '');
2323: END IF;
2324: p_return_status := FND_API.G_RET_STS_ERROR;
2325: RAISE FND_API.G_EXC_ERROR;
2326: -- ELSE
2327: -- select amount into l_nik from pa_agreements_all where agreement_id = p_agreement_id;
2328: END IF;
2321: ,p_attribute4 => ''
2322: ,p_attribute5 => '');
2323: END IF;
2324: p_return_status := FND_API.G_RET_STS_ERROR;
2325: RAISE FND_API.G_EXC_ERROR;
2326: -- ELSE
2327: -- select amount into l_nik from pa_agreements_all where agreement_id = p_agreement_id;
2328: END IF;
2329:
2343: ,p_attribute3 => ''
2344: ,p_attribute4 => ''
2345: ,p_attribute5 => '');
2346: END IF;
2347: p_return_status := FND_API.G_RET_STS_ERROR;
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350:
2351:
2344: ,p_attribute4 => ''
2345: ,p_attribute5 => '');
2346: END IF;
2347: p_return_status := FND_API.G_RET_STS_ERROR;
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350:
2351:
2352: -- VALIDATE THE INCOMING PARAMETERS
2370: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate ) = 'N'
2371: /* MCB2 PARAMETERS END */
2372:
2373: THEN
2374: p_return_status := FND_API.G_RET_STS_ERROR;
2375: RAISE FND_API.G_EXC_ERROR;
2376: END IF;
2377:
2378:
2371: /* MCB2 PARAMETERS END */
2372:
2373: THEN
2374: p_return_status := FND_API.G_RET_STS_ERROR;
2375: RAISE FND_API.G_EXC_ERROR;
2376: END IF;
2377:
2378:
2379: -- Flex Field Validations
2412: ,p_attribute3 => ''
2413: ,p_attribute4 => ''
2414: ,p_attribute5 => '');
2415: END IF;
2416: p_return_status := FND_API.G_RET_STS_ERROR;
2417: RAISE FND_API.G_EXC_ERROR;
2418: END IF;
2419: END IF;
2420:
2413: ,p_attribute4 => ''
2414: ,p_attribute5 => '');
2415: END IF;
2416: p_return_status := FND_API.G_RET_STS_ERROR;
2417: RAISE FND_API.G_EXC_ERROR;
2418: END IF;
2419: END IF;
2420:
2421: /* NOT REQUIRED
2620: ,p_attribute3 => ''
2621: ,p_attribute4 => ''
2622: ,p_attribute5 => '');
2623: END IF;
2624: p_return_status := FND_API.G_RET_STS_ERROR;
2625: RAISE FND_API.G_EXC_ERROR;
2626:
2627: ELSE
2628:
2621: ,p_attribute4 => ''
2622: ,p_attribute5 => '');
2623: END IF;
2624: p_return_status := FND_API.G_RET_STS_ERROR;
2625: RAISE FND_API.G_EXC_ERROR;
2626:
2627: ELSE
2628:
2629: -- UPDATE SUMMARY PROJECT FUNDINGS
2633: ,p_task_id => p_pa_task_id
2634: ,p_login_id => G_LOGIN_ID
2635: ,p_user_id => G_USER_ID);
2636:
2637: IF FND_API.to_boolean( p_commit ) THEN
2638: COMMIT;
2639: END IF;
2640:
2641: END IF;
2640:
2641: END IF;
2642:
2643: EXCEPTION
2644: WHEN FND_API.G_EXC_ERROR
2645: THEN
2646: ROLLBACK TO add_funding_pub;
2647: p_return_status := FND_API.G_RET_STS_ERROR;
2648: FND_MSG_PUB.Count_And_Get
2643: EXCEPTION
2644: WHEN FND_API.G_EXC_ERROR
2645: THEN
2646: ROLLBACK TO add_funding_pub;
2647: p_return_status := FND_API.G_RET_STS_ERROR;
2648: FND_MSG_PUB.Count_And_Get
2649: ( p_count => p_msg_count ,
2650: p_data => p_msg_data );
2651:
2648: FND_MSG_PUB.Count_And_Get
2649: ( p_count => p_msg_count ,
2650: p_data => p_msg_data );
2651:
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2653: THEN
2654: ROLLBACK TO add_funding_pub;
2655: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2656: FND_MSG_PUB.Count_And_Get
2651:
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2653: THEN
2654: ROLLBACK TO add_funding_pub;
2655: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2656: FND_MSG_PUB.Count_And_Get
2657: ( p_count => p_msg_count ,
2658: p_data => p_msg_data );
2659:
2659:
2660: WHEN OTHERS
2661: THEN
2662: ROLLBACK TO add_funding_pub;
2663: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2665: THEN
2666: FND_MSG_PUB.add_exc_msg
2667: ( p_pkg_name => G_PKG_NAME
2740:
2741: -- Standard call to check for call compatibility.
2742:
2743:
2744: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2745: p_api_version_number ,
2746: l_api_name ,
2747: G_PKG_NAME )
2748: THEN
2746: l_api_name ,
2747: G_PKG_NAME )
2748: THEN
2749:
2750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2751:
2752: END IF;
2753: l_resp_id := FND_GLOBAL.Resp_id;
2754:
2779: p_return_status => l_return_status,
2780: p_function_allowed => l_function_allowed
2781: );
2782:
2783: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2784: THEN
2785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2786:
2787: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2781: );
2782:
2783: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2784: THEN
2785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2786:
2787: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2788: THEN
2789: RAISE FND_API.G_EXC_ERROR;
2783: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2784: THEN
2785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2786:
2787: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2788: THEN
2789: RAISE FND_API.G_EXC_ERROR;
2790: END IF;
2791: IF l_function_allowed = 'N' THEN
2785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2786:
2787: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2788: THEN
2789: RAISE FND_API.G_EXC_ERROR;
2790: END IF;
2791: IF l_function_allowed = 'N' THEN
2792: pa_interface_utils_pub.map_new_amg_msg
2793: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
2798: ,p_attribute2 => ''
2799: ,p_attribute3 => ''
2800: ,p_attribute4 => ''
2801: ,p_attribute5 => '');
2802: p_return_status := FND_API.G_RET_STS_ERROR;
2803: RAISE FND_API.G_EXC_ERROR;
2804: END IF;
2805:
2806: -- Initialize the message table if requested.
2799: ,p_attribute3 => ''
2800: ,p_attribute4 => ''
2801: ,p_attribute5 => '');
2802: p_return_status := FND_API.G_RET_STS_ERROR;
2803: RAISE FND_API.G_EXC_ERROR;
2804: END IF;
2805:
2806: -- Initialize the message table if requested.
2807:
2804: END IF;
2805:
2806: -- Initialize the message table if requested.
2807:
2808: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2809: THEN
2810:
2811: FND_MSG_PUB.initialize;
2812:
2813: END IF;
2814:
2815: -- Set API return status to success
2816:
2817: p_return_status := FND_API.G_RET_STS_SUCCESS;
2818:
2819: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
2820:
2821: -- Product Code
2834: ,p_attribute3 => ''
2835: ,p_attribute4 => ''
2836: ,p_attribute5 => '');
2837: END IF;
2838: p_return_status := FND_API.G_RET_STS_ERROR;
2839: RAISE FND_API.G_EXC_ERROR;
2840: END IF;
2841:
2842: -- Funding Reference
2835: ,p_attribute4 => ''
2836: ,p_attribute5 => '');
2837: END IF;
2838: p_return_status := FND_API.G_RET_STS_ERROR;
2839: RAISE FND_API.G_EXC_ERROR;
2840: END IF;
2841:
2842: -- Funding Reference
2843: IF (p_pm_funding_reference IS NULL)
2855: ,p_attribute3 => ''
2856: ,p_attribute4 => ''
2857: ,p_attribute5 => '');
2858: END IF;
2859: p_return_status := FND_API.G_RET_STS_ERROR;
2860: RAISE FND_API.G_EXC_ERROR;
2861: END IF;
2862:
2863: /* NOT REQUIRED
2856: ,p_attribute4 => ''
2857: ,p_attribute5 => '');
2858: END IF;
2859: p_return_status := FND_API.G_RET_STS_ERROR;
2860: RAISE FND_API.G_EXC_ERROR;
2861: END IF;
2862:
2863: /* NOT REQUIRED
2864: -- Funding Id
2877: ,p_attribute3 => ''
2878: ,p_attribute4 => ''
2879: ,p_attribute5 => '');
2880: END IF;
2881: p_return_status := FND_API.G_RET_STS_ERROR;
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884: */
2885: /* code change for bug 2868818*/
2878: ,p_attribute4 => ''
2879: ,p_attribute5 => '');
2880: END IF;
2881: p_return_status := FND_API.G_RET_STS_ERROR;
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884: */
2885: /* code change for bug 2868818*/
2886:
2903: ,p_attribute3 => ''
2904: ,p_attribute4 => ''
2905: ,p_attribute5 => '');
2906:
2907: p_return_status := FND_API.G_RET_STS_ERROR;
2908: RAISE FND_API.G_EXC_ERROR;
2909: END IF;
2910:
2911: /* end code change for bug 2868818*/
2904: ,p_attribute4 => ''
2905: ,p_attribute5 => '');
2906:
2907: p_return_status := FND_API.G_RET_STS_ERROR;
2908: RAISE FND_API.G_EXC_ERROR;
2909: END IF;
2910:
2911: /* end code change for bug 2868818*/
2912:
2922: ,p_funding_reference => p_pm_funding_reference)
2923: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
2924: ,p_pm_funding_reference => p_pm_funding_reference) = 'N'
2925: THEN
2926: p_return_status := FND_API.G_RET_STS_ERROR;
2927: RAISE FND_API.G_EXC_ERROR;
2928: END IF;
2929: END IF;
2930: -- End
2923: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
2924: ,p_pm_funding_reference => p_pm_funding_reference) = 'N'
2925: THEN
2926: p_return_status := FND_API.G_RET_STS_ERROR;
2927: RAISE FND_API.G_EXC_ERROR;
2928: END IF;
2929: END IF;
2930: -- End
2931: -- CONVERT FUNDING REFERENCE TO FUNDING ID
2959: ,p_project_id => l_project_id
2960: ,p_task_id => l_task_id
2961: ,p_login_id => G_LOGIN_ID
2962: ,p_user_id => G_USER_ID );
2963: IF FND_API.to_boolean( p_commit )
2964: THEN
2965: COMMIT;
2966: END IF;
2967:
2965: COMMIT;
2966: END IF;
2967:
2968: EXCEPTION
2969: WHEN FND_API.G_EXC_ERROR
2970: THEN
2971: ROLLBACK TO delete_funding_pub;
2972: p_return_status := FND_API.G_RET_STS_ERROR;
2973: FND_MSG_PUB.Count_And_Get
2968: EXCEPTION
2969: WHEN FND_API.G_EXC_ERROR
2970: THEN
2971: ROLLBACK TO delete_funding_pub;
2972: p_return_status := FND_API.G_RET_STS_ERROR;
2973: FND_MSG_PUB.Count_And_Get
2974: ( p_count => p_msg_count ,
2975: p_data => p_msg_data );
2976:
2973: FND_MSG_PUB.Count_And_Get
2974: ( p_count => p_msg_count ,
2975: p_data => p_msg_data );
2976:
2977: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2978: THEN
2979: ROLLBACK TO delete_funding_pub;
2980: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2981: FND_MSG_PUB.Count_And_Get
2976:
2977: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2978: THEN
2979: ROLLBACK TO delete_funding_pub;
2980: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2981: FND_MSG_PUB.Count_And_Get
2982: ( p_count => p_msg_count ,
2983: p_data => p_msg_data );
2984:
2984:
2985: WHEN ROW_ALREADY_LOCKED
2986: THEN
2987: ROLLBACK TO delete_funding_pub;
2988: p_return_status := FND_API.G_RET_STS_ERROR;
2989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2990: THEN
2991: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_T_AMG');
2992: FND_MESSAGE.SET_TOKEN('FUNDING',p_pm_funding_reference);
2998:
2999: WHEN OTHERS
3000: THEN
3001: ROLLBACK TO delete_funding_pub;
3002: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3003: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3004: THEN
3005: FND_MSG_PUB.add_exc_msg
3006: ( p_pkg_name => G_PKG_NAME
3105:
3106: -- Standard call to check for call compatibility.
3107:
3108:
3109: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3110: p_api_version_number ,
3111: l_api_name ,
3112: G_PKG_NAME )
3113: THEN
3111: l_api_name ,
3112: G_PKG_NAME )
3113: THEN
3114:
3115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3116:
3117: END IF;
3118: l_resp_id := FND_GLOBAL.Resp_id;
3119:
3137: p_return_status => l_return_status,
3138: p_function_allowed => l_function_allowed
3139: );
3140:
3141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3142: THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144:
3145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3139: );
3140:
3141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3142: THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144:
3145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3146: THEN
3147: RAISE FND_API.G_EXC_ERROR;
3141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3142: THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144:
3145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3146: THEN
3147: RAISE FND_API.G_EXC_ERROR;
3148: END IF;
3149: IF l_function_allowed = 'N' THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144:
3145: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3146: THEN
3147: RAISE FND_API.G_EXC_ERROR;
3148: END IF;
3149: IF l_function_allowed = 'N' THEN
3150: pa_interface_utils_pub.map_new_amg_msg
3151: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
3156: ,p_attribute2 => ''
3157: ,p_attribute3 => ''
3158: ,p_attribute4 => ''
3159: ,p_attribute5 => '');
3160: RAISE FND_API.G_EXC_ERROR;
3161: END IF;
3162:
3163: -- Initialize the message table if requested.
3164:
3161: END IF;
3162:
3163: -- Initialize the message table if requested.
3164:
3165: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3166: THEN
3167:
3168: FND_MSG_PUB.initialize;
3169:
3170: END IF;
3171:
3172: -- Set API return status to success
3173:
3174: p_return_status := FND_API.G_RET_STS_SUCCESS;
3175:
3176: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
3177:
3178: -- Product Code
3191: ,p_attribute3 => ''
3192: ,p_attribute4 => ''
3193: ,p_attribute5 => '');
3194: END IF;
3195: p_return_status := FND_API.G_RET_STS_ERROR;
3196: RAISE FND_API.G_EXC_ERROR;
3197: END IF;
3198:
3199: /* Bug 5686790. If Miss char is passed then this check is not required, as
3192: ,p_attribute4 => ''
3193: ,p_attribute5 => '');
3194: END IF;
3195: p_return_status := FND_API.G_RET_STS_ERROR;
3196: RAISE FND_API.G_EXC_ERROR;
3197: END IF;
3198:
3199: /* Bug 5686790. If Miss char is passed then this check is not required, as
3200: customer doesn't want to change the funding category*/
3223: ,p_attribute3 => ''
3224: ,p_attribute4 => ''
3225: ,p_attribute5 => '');
3226: END IF;
3227: p_return_status := FND_API.G_RET_STS_ERROR;
3228: RAISE FND_API.G_EXC_ERROR;
3229: *** Commented for bug 2838872 ***/
3230: END IF;
3231:
3224: ,p_attribute4 => ''
3225: ,p_attribute5 => '');
3226: END IF;
3227: p_return_status := FND_API.G_RET_STS_ERROR;
3228: RAISE FND_API.G_EXC_ERROR;
3229: *** Commented for bug 2838872 ***/
3230: END IF;
3231:
3232: -- Validate funding category
3237: ,p_agreement_id
3238: ,p_pm_funding_reference
3239: ,upper(l_funding_category)) = 'N'--Added upper for 3360593
3240: THEN
3241: p_return_status := FND_API.G_RET_STS_ERROR;
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244: END IF; /* l_funding_category is mischar*/
3245:
3238: ,p_pm_funding_reference
3239: ,upper(l_funding_category)) = 'N'--Added upper for 3360593
3240: THEN
3241: p_return_status := FND_API.G_RET_STS_ERROR;
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244: END IF; /* l_funding_category is mischar*/
3245:
3246: -- Code added for Bug 2403652 ends here
3262: ,p_attribute3 => ''
3263: ,p_attribute4 => ''
3264: ,p_attribute5 => '');
3265: END IF;
3266: p_return_status := FND_API.G_RET_STS_ERROR;
3267: RAISE FND_API.G_EXC_ERROR;
3268: END IF;
3269: /* NOT REQUIED
3270: -- Funding Id
3263: ,p_attribute4 => ''
3264: ,p_attribute5 => '');
3265: END IF;
3266: p_return_status := FND_API.G_RET_STS_ERROR;
3267: RAISE FND_API.G_EXC_ERROR;
3268: END IF;
3269: /* NOT REQUIED
3270: -- Funding Id
3271: IF (p_funding_id IS NULL)
3283: ,p_attribute3 => ''
3284: ,p_attribute4 => ''
3285: ,p_attribute5 => '');
3286: END IF;
3287: p_return_status := FND_API.G_RET_STS_ERROR;
3288: RAISE FND_API.G_EXC_ERROR;
3289: END IF;
3290: */
3291:
3284: ,p_attribute4 => ''
3285: ,p_attribute5 => '');
3286: END IF;
3287: p_return_status := FND_API.G_RET_STS_ERROR;
3288: RAISE FND_API.G_EXC_ERROR;
3289: END IF;
3290: */
3291:
3292: /* code change for bug 2868818*/
3311: ,p_attribute3 => ''
3312: ,p_attribute4 => ''
3313: ,p_attribute5 => '');
3314:
3315: p_return_status := FND_API.G_RET_STS_ERROR;
3316: RAISE FND_API.G_EXC_ERROR;
3317: END IF;
3318:
3319:
3312: ,p_attribute4 => ''
3313: ,p_attribute5 => '');
3314:
3315: p_return_status := FND_API.G_RET_STS_ERROR;
3316: RAISE FND_API.G_EXC_ERROR;
3317: END IF;
3318:
3319:
3320: /* Moved the following function call from below to this place bug 2434153 **/
3349: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate ) = 'N'
3350: /* MCB2 PARAMETERS END */
3351:
3352: THEN
3353: p_return_status := FND_API.G_RET_STS_ERROR;
3354: RAISE FND_API.G_EXC_ERROR;
3355: END IF;
3356:
3357:
3350: /* MCB2 PARAMETERS END */
3351:
3352: THEN
3353: p_return_status := FND_API.G_RET_STS_ERROR;
3354: RAISE FND_API.G_EXC_ERROR;
3355: END IF;
3356:
3357:
3358: -- Flex Field Validations
3391: ,p_attribute3 => ''
3392: ,p_attribute4 => ''
3393: ,p_attribute5 => '');
3394: END IF;
3395: p_return_status := FND_API.G_RET_STS_ERROR;
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3398: END IF;
3399:
3392: ,p_attribute4 => ''
3393: ,p_attribute5 => '');
3394: END IF;
3395: p_return_status := FND_API.G_RET_STS_ERROR;
3396: RAISE FND_API.G_EXC_ERROR;
3397: END IF;
3398: END IF;
3399:
3400: /* NOT REQUIRED
3495: ,p_attribute3 => ''
3496: ,p_attribute4 => ''
3497: ,p_attribute5 => '');
3498: END IF;
3499: p_return_status := FND_API.G_RET_STS_ERROR;
3500: RAISE FND_API.G_EXC_ERROR;
3501:
3502: ELSE
3503:
3496: ,p_attribute4 => ''
3497: ,p_attribute5 => '');
3498: END IF;
3499: p_return_status := FND_API.G_RET_STS_ERROR;
3500: RAISE FND_API.G_EXC_ERROR;
3501:
3502: ELSE
3503:
3504:
3511: ,p_user_id => G_USER_ID
3512: );
3513:
3514:
3515: IF FND_API.to_boolean( p_commit ) THEN
3516: COMMIT;
3517: END IF;
3518:
3519: END IF;
3519: END IF;
3520:
3521: EXCEPTION
3522:
3523: WHEN FND_API.G_EXC_ERROR
3524: THEN
3525: p_return_status := FND_API.G_RET_STS_ERROR ;
3526: ROLLBACK TO update_funding_pub;
3527: FND_MSG_PUB.Count_And_Get
3521: EXCEPTION
3522:
3523: WHEN FND_API.G_EXC_ERROR
3524: THEN
3525: p_return_status := FND_API.G_RET_STS_ERROR ;
3526: ROLLBACK TO update_funding_pub;
3527: FND_MSG_PUB.Count_And_Get
3528: ( p_count => p_msg_count ,
3529: p_data => p_msg_data );
3527: FND_MSG_PUB.Count_And_Get
3528: ( p_count => p_msg_count ,
3529: p_data => p_msg_data );
3530:
3531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3532: THEN
3533: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3534: ROLLBACK TO update_funding_pub;
3535: FND_MSG_PUB.Count_And_Get
3529: p_data => p_msg_data );
3530:
3531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3532: THEN
3533: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3534: ROLLBACK TO update_funding_pub;
3535: FND_MSG_PUB.Count_And_Get
3536: ( p_count => p_msg_count ,
3537: p_data => p_msg_data );
3538:
3539: WHEN OTHERS
3540: THEN
3541: ROLLBACK TO update_funding_pub;
3542: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3543: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3544: THEN
3545: FND_MSG_PUB.add_exc_msg
3546: ( p_pkg_name => G_PKG_NAME
3676:
3677: -- Standard call to check for call compatibility.
3678:
3679:
3680: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3681: p_api_version_number ,
3682: l_api_name ,
3683: G_PKG_NAME )
3684: THEN
3682: l_api_name ,
3683: G_PKG_NAME )
3684: THEN
3685:
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687:
3688: END IF;
3689: l_resp_id := FND_GLOBAL.Resp_id;
3690:
3704: p_return_status => l_return_status,
3705: p_function_allowed => l_function_allowed
3706: );
3707:
3708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3709: THEN
3710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3711:
3712: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3706: );
3707:
3708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3709: THEN
3710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3711:
3712: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3713: THEN
3714: RAISE FND_API.G_EXC_ERROR;
3708: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3709: THEN
3710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3711:
3712: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3713: THEN
3714: RAISE FND_API.G_EXC_ERROR;
3715: END IF;
3716: IF l_function_allowed = 'N' THEN
3710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3711:
3712: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3713: THEN
3714: RAISE FND_API.G_EXC_ERROR;
3715: END IF;
3716: IF l_function_allowed = 'N' THEN
3717: pa_interface_utils_pub.map_new_amg_msg
3718: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
3723: ,p_attribute2 => ''
3724: ,p_attribute3 => ''
3725: ,p_attribute4 => ''
3726: ,p_attribute5 => '');
3727: p_return_status := FND_API.G_RET_STS_ERROR;
3728: RAISE FND_API.G_EXC_ERROR;
3729: END IF;
3730: */
3731: -- Initialize the message table if requested.
3724: ,p_attribute3 => ''
3725: ,p_attribute4 => ''
3726: ,p_attribute5 => '');
3727: p_return_status := FND_API.G_RET_STS_ERROR;
3728: RAISE FND_API.G_EXC_ERROR;
3729: END IF;
3730: */
3731: -- Initialize the message table if requested.
3732:
3729: END IF;
3730: */
3731: -- Initialize the message table if requested.
3732:
3733: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3734: THEN
3735:
3736: FND_MSG_PUB.initialize;
3737:
3738: END IF;
3739:
3740: -- Set API return status to success
3741:
3742: p_return_status := FND_API.G_RET_STS_SUCCESS;
3743:
3744:
3745: -- ASSIGN INCOMING PARAMETERS TO THE FIELDS OF THE GLOBAL AGREEMENT RECORD
3746:
3796:
3797:
3798: EXCEPTION
3799:
3800: WHEN FND_API.G_EXC_ERROR
3801: THEN
3802: ROLLBACK TO load_agreement_pub;
3803: p_return_status := FND_API.G_RET_STS_ERROR;
3804:
3799:
3800: WHEN FND_API.G_EXC_ERROR
3801: THEN
3802: ROLLBACK TO load_agreement_pub;
3803: p_return_status := FND_API.G_RET_STS_ERROR;
3804:
3805:
3806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3807: THEN
3802: ROLLBACK TO load_agreement_pub;
3803: p_return_status := FND_API.G_RET_STS_ERROR;
3804:
3805:
3806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3807: THEN
3808: ROLLBACK TO load_agreement_pub;
3809: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3810:
3805:
3806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3807: THEN
3808: ROLLBACK TO load_agreement_pub;
3809: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3810:
3811:
3812: WHEN OTHERS
3813: THEN
3811:
3812: WHEN OTHERS
3813: THEN
3814: ROLLBACK TO load_agreement_pub;
3815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3816:
3817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3818: THEN
3819: FND_MSG_PUB.add_exc_msg
3886:
3887: -- Standard call to check for call compatibility.
3888:
3889:
3890: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3891: p_api_version_number ,
3892: l_api_name ,
3893: G_PKG_NAME )
3894: THEN
3892: l_api_name ,
3893: G_PKG_NAME )
3894: THEN
3895:
3896: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3897:
3898: END IF;
3899: l_resp_id := FND_GLOBAL.Resp_id;
3900:
3913: p_return_status => l_return_status,
3914: p_function_allowed => l_function_allowed
3915: );
3916:
3917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3918: THEN
3919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3920:
3921: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3915: );
3916:
3917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3918: THEN
3919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3920:
3921: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3922: THEN
3923: RAISE FND_API.G_EXC_ERROR;
3917: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3918: THEN
3919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3920:
3921: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3922: THEN
3923: RAISE FND_API.G_EXC_ERROR;
3924: END IF;
3925: IF l_function_allowed = 'N' THEN
3919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3920:
3921: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3922: THEN
3923: RAISE FND_API.G_EXC_ERROR;
3924: END IF;
3925: IF l_function_allowed = 'N' THEN
3926: pa_interface_utils_pub.map_new_amg_msg
3927: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
3932: ,p_attribute2 => ''
3933: ,p_attribute3 => ''
3934: ,p_attribute4 => ''
3935: ,p_attribute5 => '');
3936: p_return_status := FND_API.G_RET_STS_ERROR;
3937: RAISE FND_API.G_EXC_ERROR;
3938: END IF;
3939: */
3940: -- Initialize the message table if requested.
3933: ,p_attribute3 => ''
3934: ,p_attribute4 => ''
3935: ,p_attribute5 => '');
3936: p_return_status := FND_API.G_RET_STS_ERROR;
3937: RAISE FND_API.G_EXC_ERROR;
3938: END IF;
3939: */
3940: -- Initialize the message table if requested.
3941:
3938: END IF;
3939: */
3940: -- Initialize the message table if requested.
3941:
3942: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3943: THEN
3944:
3945: FND_MSG_PUB.initialize;
3946:
3947: END IF;
3948:
3949: -- Set API return status to success
3950:
3951: p_return_status := FND_API.G_RET_STS_SUCCESS;
3952:
3953: -- ASSIGN A VALUE TO THE GLOBAL COUNTER FOR THIS TABLE
3954: G_funding_tbl_count := G_funding_tbl_count + 1;
3955:
3981:
3982:
3983: EXCEPTION
3984:
3985: WHEN FND_API.G_EXC_ERROR
3986: THEN
3987: ROLLBACK TO load_funding_pub;
3988: p_return_status := FND_API.G_RET_STS_ERROR;
3989:
3984:
3985: WHEN FND_API.G_EXC_ERROR
3986: THEN
3987: ROLLBACK TO load_funding_pub;
3988: p_return_status := FND_API.G_RET_STS_ERROR;
3989:
3990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3991: THEN
3992: ROLLBACK TO load_funding_pub;
3986: THEN
3987: ROLLBACK TO load_funding_pub;
3988: p_return_status := FND_API.G_RET_STS_ERROR;
3989:
3990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3991: THEN
3992: ROLLBACK TO load_funding_pub;
3993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3994:
3989:
3990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3991: THEN
3992: ROLLBACK TO load_funding_pub;
3993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3994:
3995: WHEN OTHERS
3996: THEN
3997: ROLLBACK TO load_funding_pub;
3994:
3995: WHEN OTHERS
3996: THEN
3997: ROLLBACK TO load_funding_pub;
3998: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4000: THEN
4001: FND_MSG_PUB.add_exc_msg
4002: ( p_pkg_name => G_PKG_NAME
4048:
4049: -- Standard call to check for call compatibility.
4050:
4051:
4052: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4053: p_api_version_number ,
4054: l_api_name ,
4055: G_PKG_NAME )
4056: THEN
4054: l_api_name ,
4055: G_PKG_NAME )
4056: THEN
4057:
4058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4059:
4060: END IF;
4061: l_resp_id := FND_GLOBAL.Resp_id;
4062:
4075: p_return_status => l_return_status,
4076: p_function_allowed => l_function_allowed
4077: );
4078:
4079: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4080: THEN
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4077: );
4078:
4079: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4080: THEN
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4084: THEN
4085: RAISE FND_API.G_EXC_ERROR;
4079: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4080: THEN
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4084: THEN
4085: RAISE FND_API.G_EXC_ERROR;
4086: END IF;
4087: IF l_function_allowed = 'N' THEN
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4084: THEN
4085: RAISE FND_API.G_EXC_ERROR;
4086: END IF;
4087: IF l_function_allowed = 'N' THEN
4088: pa_interface_utils_pub.map_new_amg_msg
4089: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4094: ,p_attribute2 => ''
4095: ,p_attribute3 => ''
4096: ,p_attribute4 => ''
4097: ,p_attribute5 => '');
4098: p_return_status := FND_API.G_RET_STS_ERROR;
4099: RAISE FND_API.G_EXC_ERROR;
4100: END IF;
4101: */
4102: -- Initialize the message table if requested.
4095: ,p_attribute3 => ''
4096: ,p_attribute4 => ''
4097: ,p_attribute5 => '');
4098: p_return_status := FND_API.G_RET_STS_ERROR;
4099: RAISE FND_API.G_EXC_ERROR;
4100: END IF;
4101: */
4102: -- Initialize the message table if requested.
4103:
4100: END IF;
4101: */
4102: -- Initialize the message table if requested.
4103:
4104: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4105: THEN
4106:
4107: FND_MSG_PUB.initialize;
4108:
4109: END IF;
4110:
4111: -- Set API return status to success
4112:
4113: p_return_status := FND_API.G_RET_STS_SUCCESS;
4114:
4115:
4116: -- CALL CREATE AGREEMENT
4117: pa_agreement_pub.create_agreement
4126: ,p_agreement_out_rec => G_agreement_out_rec
4127: ,p_funding_in_tbl => G_funding_in_tbl
4128: ,p_funding_out_tbl => G_funding_out_tbl);
4129:
4130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4131: THEN
4132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4134: THEN
4128: ,p_funding_out_tbl => G_funding_out_tbl);
4129:
4130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4131: THEN
4132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4134: THEN
4135: RAISE FND_API.G_EXC_ERROR;
4136: END IF;
4129:
4130: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4131: THEN
4132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4134: THEN
4135: RAISE FND_API.G_EXC_ERROR;
4136: END IF;
4137:
4131: THEN
4132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4133: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4134: THEN
4135: RAISE FND_API.G_EXC_ERROR;
4136: END IF;
4137:
4138: -- ASSIGN OUTGOING VALUES TO OUTGOING PARAMETERS
4139: IF G_agreement_out_rec.agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4149: ELSE
4150: p_customer_id_out := G_agreement_out_rec.customer_id;
4151: END IF;
4152:
4153: IF FND_API.to_boolean( p_commit )
4154: THEN
4155: COMMIT;
4156: END IF;
4157:
4157:
4158:
4159: EXCEPTION
4160:
4161: WHEN FND_API.G_EXC_ERROR
4162: THEN
4163: ROLLBACK TO execute_create_agreement_pub;
4164: p_return_status := FND_API.G_RET_STS_ERROR;
4165: FND_MSG_PUB.Count_And_Get
4160:
4161: WHEN FND_API.G_EXC_ERROR
4162: THEN
4163: ROLLBACK TO execute_create_agreement_pub;
4164: p_return_status := FND_API.G_RET_STS_ERROR;
4165: FND_MSG_PUB.Count_And_Get
4166: ( p_count => p_msg_count ,
4167: p_data => p_msg_data );
4168:
4165: FND_MSG_PUB.Count_And_Get
4166: ( p_count => p_msg_count ,
4167: p_data => p_msg_data );
4168:
4169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4170: THEN
4171: ROLLBACK TO execute_create_agreement_pub;
4172: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4173: FND_MSG_PUB.Count_And_Get
4168:
4169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4170: THEN
4171: ROLLBACK TO execute_create_agreement_pub;
4172: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4173: FND_MSG_PUB.Count_And_Get
4174: ( p_count => p_msg_count ,
4175: p_data => p_msg_data );
4176:
4176:
4177: WHEN OTHERS
4178: THEN
4179: ROLLBACK TO execute_create_agreement_pub;
4180: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4181: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4182: THEN
4183: FND_MSG_PUB.add_exc_msg
4184: ( p_pkg_name => G_PKG_NAME
4231:
4232: -- Standard call to check for call compatibility.
4233:
4234:
4235: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4236: p_api_version_number ,
4237: l_api_name ,
4238: G_PKG_NAME )
4239: THEN
4237: l_api_name ,
4238: G_PKG_NAME )
4239: THEN
4240:
4241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4242:
4243: END IF;
4244: l_resp_id := FND_GLOBAL.Resp_id;
4245:
4258: p_return_status => l_return_status,
4259: p_function_allowed => l_function_allowed
4260: );
4261:
4262: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4263: THEN
4264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4265:
4266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4260: );
4261:
4262: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4263: THEN
4264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4265:
4266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4267: THEN
4268: RAISE FND_API.G_EXC_ERROR;
4262: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4263: THEN
4264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4265:
4266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4267: THEN
4268: RAISE FND_API.G_EXC_ERROR;
4269: END IF;
4270: IF l_function_allowed = 'N' THEN
4264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4265:
4266: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4267: THEN
4268: RAISE FND_API.G_EXC_ERROR;
4269: END IF;
4270: IF l_function_allowed = 'N' THEN
4271: pa_interface_utils_pub.map_new_amg_msg
4272: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4277: ,p_attribute2 => ''
4278: ,p_attribute3 => ''
4279: ,p_attribute4 => ''
4280: ,p_attribute5 => '');
4281: p_return_status := FND_API.G_RET_STS_ERROR;
4282: RAISE FND_API.G_EXC_ERROR;
4283: END IF;
4284: */
4285: -- Initialize the message table if requested.
4278: ,p_attribute3 => ''
4279: ,p_attribute4 => ''
4280: ,p_attribute5 => '');
4281: p_return_status := FND_API.G_RET_STS_ERROR;
4282: RAISE FND_API.G_EXC_ERROR;
4283: END IF;
4284: */
4285: -- Initialize the message table if requested.
4286:
4283: END IF;
4284: */
4285: -- Initialize the message table if requested.
4286:
4287: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4288: THEN
4289:
4290: FND_MSG_PUB.initialize;
4291:
4292: END IF;
4293:
4294: -- Set API return status to success
4295:
4296: p_return_status := FND_API.G_RET_STS_SUCCESS;
4297:
4298: -- CALL UPDATE AGREEMENT
4299: pa_agreement_pub.update_agreement
4300: (p_api_version_number => p_api_version_number
4308: ,p_agreement_out_rec => G_agreement_out_rec
4309: ,p_funding_in_tbl => G_funding_in_tbl
4310: ,p_funding_out_tbl => G_funding_out_tbl);
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4313: THEN
4314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4316: THEN
4310: ,p_funding_out_tbl => G_funding_out_tbl);
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4313: THEN
4314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4316: THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4311:
4312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4313: THEN
4314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4316: THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4313: THEN
4314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4316: THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4320: IF FND_API.to_boolean( p_commit )
4321: THEN
4316: THEN
4317: RAISE FND_API.G_EXC_ERROR;
4318: END IF;
4319:
4320: IF FND_API.to_boolean( p_commit )
4321: THEN
4322: COMMIT;
4323: END IF;
4324:
4324:
4325:
4326: EXCEPTION
4327:
4328: WHEN FND_API.G_EXC_ERROR
4329: THEN
4330: ROLLBACK TO execute_update_agreement_pub;
4331: p_return_status := FND_API.G_RET_STS_ERROR;
4332: FND_MSG_PUB.Count_And_Get
4327:
4328: WHEN FND_API.G_EXC_ERROR
4329: THEN
4330: ROLLBACK TO execute_update_agreement_pub;
4331: p_return_status := FND_API.G_RET_STS_ERROR;
4332: FND_MSG_PUB.Count_And_Get
4333: ( p_count => p_msg_count ,
4334: p_data => p_msg_data );
4335:
4332: FND_MSG_PUB.Count_And_Get
4333: ( p_count => p_msg_count ,
4334: p_data => p_msg_data );
4335:
4336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4337: THEN
4338: ROLLBACK TO execute_update_agreement_pub;
4339: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4340: FND_MSG_PUB.Count_And_Get
4335:
4336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4337: THEN
4338: ROLLBACK TO execute_update_agreement_pub;
4339: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4340: FND_MSG_PUB.Count_And_Get
4341: ( p_count => p_msg_count ,
4342: p_data => p_msg_data );
4343:
4343:
4344: WHEN OTHERS
4345: THEN
4346: ROLLBACK TO execute_update_agreement_pub;
4347: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4348: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4349: THEN
4350: FND_MSG_PUB.add_exc_msg
4351: ( p_pkg_name => G_PKG_NAME
4399:
4400: -- Standard call to check for call compatibility.
4401:
4402:
4403: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4404: p_api_version_number ,
4405: l_api_name ,
4406: G_PKG_NAME )
4407: THEN
4405: l_api_name ,
4406: G_PKG_NAME )
4407: THEN
4408:
4409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4410:
4411: END IF;
4412: l_resp_id := FND_GLOBAL.Resp_id;
4413:
4426: p_return_status => l_return_status,
4427: p_function_allowed => l_function_allowed
4428: );
4429:
4430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4431: THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433:
4434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4428: );
4429:
4430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4431: THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433:
4434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4435: THEN
4436: RAISE FND_API.G_EXC_ERROR;
4430: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4431: THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433:
4434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4435: THEN
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438: IF l_function_allowed = 'N' THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433:
4434: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4435: THEN
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438: IF l_function_allowed = 'N' THEN
4439: pa_interface_utils_pub.map_new_amg_msg
4440: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4445: ,p_attribute2 => ''
4446: ,p_attribute3 => ''
4447: ,p_attribute4 => ''
4448: ,p_attribute5 => '');
4449: p_return_status := FND_API.G_RET_STS_ERROR;
4450: RAISE FND_API.G_EXC_ERROR;
4451: END IF;
4452: */
4453: -- Initialize the message table if requested.
4446: ,p_attribute3 => ''
4447: ,p_attribute4 => ''
4448: ,p_attribute5 => '');
4449: p_return_status := FND_API.G_RET_STS_ERROR;
4450: RAISE FND_API.G_EXC_ERROR;
4451: END IF;
4452: */
4453: -- Initialize the message table if requested.
4454:
4451: END IF;
4452: */
4453: -- Initialize the message table if requested.
4454:
4455: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4456: THEN
4457:
4458: FND_MSG_PUB.initialize;
4459:
4460: END IF;
4461:
4462: -- Set API return status to success
4463:
4464: p_return_status := FND_API.G_RET_STS_SUCCESS;
4465:
4466: -- Check Funding index value, when they don't provide an index we will error out
4467: IF p_funding_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4468: OR p_funding_index IS NULL
4479: ,p_attribute3 => ''
4480: ,p_attribute4 => ''
4481: ,p_attribute5 => '');
4482: END IF;
4483: p_return_status := FND_API.G_RET_STS_ERROR;
4484: RAISE FND_API.G_EXC_ERROR;
4485: ELSE
4486: l_index := p_funding_index;
4487: END IF;
4480: ,p_attribute4 => ''
4481: ,p_attribute5 => '');
4482: END IF;
4483: p_return_status := FND_API.G_RET_STS_ERROR;
4484: RAISE FND_API.G_EXC_ERROR;
4485: ELSE
4486: l_index := p_funding_index;
4487: END IF;
4488: IF G_funding_out_tbl.exists(l_index)
4499: END IF;
4500:
4501: EXCEPTION
4502:
4503: WHEN FND_API.G_EXC_ERROR
4504: THEN
4505: ROLLBACK TO fetch_funding_pub;
4506: p_return_status := FND_API.G_RET_STS_ERROR;
4507:
4502:
4503: WHEN FND_API.G_EXC_ERROR
4504: THEN
4505: ROLLBACK TO fetch_funding_pub;
4506: p_return_status := FND_API.G_RET_STS_ERROR;
4507:
4508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4509: THEN
4510: ROLLBACK TO fetch_funding_pub;
4504: THEN
4505: ROLLBACK TO fetch_funding_pub;
4506: p_return_status := FND_API.G_RET_STS_ERROR;
4507:
4508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4509: THEN
4510: ROLLBACK TO fetch_funding_pub;
4511: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4512:
4507:
4508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4509: THEN
4510: ROLLBACK TO fetch_funding_pub;
4511: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4512:
4513: WHEN OTHERS
4514: THEN
4515: ROLLBACK TO fetch_funding_pub;
4512:
4513: WHEN OTHERS
4514: THEN
4515: ROLLBACK TO fetch_funding_pub;
4516: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4517: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4518: THEN
4519: FND_MSG_PUB.add_exc_msg
4520: ( p_pkg_name => G_PKG_NAME
4601:
4602: -- Standard call to check for call compatibility.
4603:
4604:
4605: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4606: p_api_version_number ,
4607: l_api_name ,
4608: G_PKG_NAME )
4609: THEN
4607: l_api_name ,
4608: G_PKG_NAME )
4609: THEN
4610:
4611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4612:
4613: END IF;
4614: l_resp_id := FND_GLOBAL.Resp_id;
4615:
4628: p_return_status => l_return_status,
4629: p_function_allowed => l_function_allowed
4630: );
4631:
4632: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4633: THEN
4634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4635:
4636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4630: );
4631:
4632: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4633: THEN
4634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4635:
4636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4637: THEN
4638: RAISE FND_API.G_EXC_ERROR;
4632: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4633: THEN
4634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4635:
4636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4637: THEN
4638: RAISE FND_API.G_EXC_ERROR;
4639: END IF;
4640: IF l_function_allowed = 'N' THEN
4634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4635:
4636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4637: THEN
4638: RAISE FND_API.G_EXC_ERROR;
4639: END IF;
4640: IF l_function_allowed = 'N' THEN
4641: pa_interface_utils_pub.map_new_amg_msg
4642: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4647: ,p_attribute2 => ''
4648: ,p_attribute3 => ''
4649: ,p_attribute4 => ''
4650: ,p_attribute5 => '');
4651: p_return_status := FND_API.G_RET_STS_ERROR;
4652: RAISE FND_API.G_EXC_ERROR;
4653: END IF;
4654:
4655: -- Initialize the message table if requested.
4648: ,p_attribute3 => ''
4649: ,p_attribute4 => ''
4650: ,p_attribute5 => '');
4651: p_return_status := FND_API.G_RET_STS_ERROR;
4652: RAISE FND_API.G_EXC_ERROR;
4653: END IF;
4654:
4655: -- Initialize the message table if requested.
4656:
4653: END IF;
4654:
4655: -- Initialize the message table if requested.
4656:
4657: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4658: THEN
4659:
4660: FND_MSG_PUB.initialize;
4661:
4662: END IF;
4663:
4664: -- Set API return status to success
4665:
4666: p_return_status := FND_API.G_RET_STS_SUCCESS;
4667:
4668:
4669: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
4670:
4684: ,p_attribute3 => ''
4685: ,p_attribute4 => ''
4686: ,p_attribute5 => '');
4687: END IF;
4688: p_return_status := FND_API.G_RET_STS_ERROR;
4689: RAISE FND_API.G_EXC_ERROR;
4690: END IF;
4691: /* NOT REQUIRED
4692: -- Agreement Id
4685: ,p_attribute4 => ''
4686: ,p_attribute5 => '');
4687: END IF;
4688: p_return_status := FND_API.G_RET_STS_ERROR;
4689: RAISE FND_API.G_EXC_ERROR;
4690: END IF;
4691: /* NOT REQUIRED
4692: -- Agreement Id
4693: IF (p_agreement_id IS NULL)
4705: ,p_attribute3 => ''
4706: ,p_attribute4 => ''
4707: ,p_attribute5 => '');
4708: END IF;
4709: p_return_status := FND_API.G_RET_STS_ERROR;
4710: RAISE FND_API.G_EXC_ERROR;
4711: END IF;
4712: */
4713: -- VALIDATE THE INCOMING PARAMETERS
4706: ,p_attribute4 => ''
4707: ,p_attribute5 => '');
4708: END IF;
4709: p_return_status := FND_API.G_RET_STS_ERROR;
4710: RAISE FND_API.G_EXC_ERROR;
4711: END IF;
4712: */
4713: -- VALIDATE THE INCOMING PARAMETERS
4714:
4728: ,p_attribute3 => ''
4729: ,p_attribute4 => ''
4730: ,p_attribute5 => '');
4731: END IF;
4732: p_return_status := FND_API.G_RET_STS_ERROR;
4733: RAISE FND_API.G_EXC_ERROR;
4734: END IF;
4735:
4736: /* NOT REQUIRED
4729: ,p_attribute4 => ''
4730: ,p_attribute5 => '');
4731: END IF;
4732: p_return_status := FND_API.G_RET_STS_ERROR;
4733: RAISE FND_API.G_EXC_ERROR;
4734: END IF;
4735:
4736: /* NOT REQUIRED
4737: -- Agreement Id
4749: ,p_attribute3 => ''
4750: ,p_attribute4 => ''
4751: ,p_attribute5 => '');
4752: END IF;
4753: p_return_status := FND_API.G_RET_STS_ERROR;
4754: RAISE FND_API.G_EXC_ERROR;
4755: END IF;
4756: */
4757:
4750: ,p_attribute4 => ''
4751: ,p_attribute5 => '');
4752: END IF;
4753: p_return_status := FND_API.G_RET_STS_ERROR;
4754: RAISE FND_API.G_EXC_ERROR;
4755: END IF;
4756: */
4757:
4758: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
4762: ,p_out_agreement_id => l_out_agreement_id
4763: ,p_return_status => l_return_status);
4764: p_return_status := l_return_status;
4765:
4766: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4767: THEN
4768: IF l_return_status = FND_API.G_RET_STS_ERROR
4769: THEN
4770: RAISE FND_API.G_EXC_ERROR;
4764: p_return_status := l_return_status;
4765:
4766: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4767: THEN
4768: IF l_return_status = FND_API.G_RET_STS_ERROR
4769: THEN
4770: RAISE FND_API.G_EXC_ERROR;
4771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4772: THEN
4766: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4767: THEN
4768: IF l_return_status = FND_API.G_RET_STS_ERROR
4769: THEN
4770: RAISE FND_API.G_EXC_ERROR;
4771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4772: THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: ELSE
4767: THEN
4768: IF l_return_status = FND_API.G_RET_STS_ERROR
4769: THEN
4770: RAISE FND_API.G_EXC_ERROR;
4771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4772: THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: ELSE
4775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4769: THEN
4770: RAISE FND_API.G_EXC_ERROR;
4771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4772: THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: ELSE
4775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4776: END IF;
4777: END IF;
4771: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4772: THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: ELSE
4775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4776: END IF;
4777: END IF;
4778:
4779: -- CHECK IF IT IS OK TO DELETE THE AGREEMENT
4780: p_del_agree_ok_flag := pa_agreement_pvt.check_delete_agreement_ok
4781: (p_agreement_id => l_out_agreement_id
4782: ,p_pm_agreement_reference => p_pm_agreement_reference);
4783:
4784: IF FND_API.to_boolean( p_commit )
4785: THEN
4786: COMMIT;
4787: END IF;
4788:
4786: COMMIT;
4787: END IF;
4788:
4789: EXCEPTION
4790: WHEN FND_API.G_EXC_ERROR
4791: THEN
4792: ROLLBACK TO check_delete_agreement_ok_pub;
4793: p_return_status := FND_API.G_RET_STS_ERROR;
4794: FND_MSG_PUB.Count_And_Get
4789: EXCEPTION
4790: WHEN FND_API.G_EXC_ERROR
4791: THEN
4792: ROLLBACK TO check_delete_agreement_ok_pub;
4793: p_return_status := FND_API.G_RET_STS_ERROR;
4794: FND_MSG_PUB.Count_And_Get
4795: ( p_count => p_msg_count ,
4796: p_data => p_msg_data );
4797:
4794: FND_MSG_PUB.Count_And_Get
4795: ( p_count => p_msg_count ,
4796: p_data => p_msg_data );
4797:
4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4799: THEN
4800: ROLLBACK TO check_delete_agreement_ok_pub;
4801: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4802: FND_MSG_PUB.Count_And_Get
4797:
4798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4799: THEN
4800: ROLLBACK TO check_delete_agreement_ok_pub;
4801: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4802: FND_MSG_PUB.Count_And_Get
4803: ( p_count => p_msg_count ,
4804: p_data => p_msg_data );
4805:
4805:
4806: WHEN OTHERS
4807: THEN
4808: ROLLBACK TO check_delete_agreement_ok_pub;
4809: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4811: THEN
4812: FND_MSG_PUB.add_exc_msg
4813: ( p_pkg_name => G_PKG_NAME
4875:
4876: -- Standard call to check for call compatibility.
4877:
4878:
4879: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4880: p_api_version_number ,
4881: l_api_name ,
4882: G_PKG_NAME )
4883: THEN
4881: l_api_name ,
4882: G_PKG_NAME )
4883: THEN
4884:
4885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4886:
4887: END IF;
4888: l_resp_id := FND_GLOBAL.Resp_id;
4889:
4908: p_return_status => l_return_status,
4909: p_function_allowed => l_function_allowed
4910: );
4911:
4912: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4913: THEN
4914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4915:
4916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4910: );
4911:
4912: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4913: THEN
4914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4915:
4916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4917: THEN
4918: RAISE FND_API.G_EXC_ERROR;
4912: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4913: THEN
4914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4915:
4916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4917: THEN
4918: RAISE FND_API.G_EXC_ERROR;
4919: END IF;
4920: IF l_function_allowed = 'N' THEN
4914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4915:
4916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4917: THEN
4918: RAISE FND_API.G_EXC_ERROR;
4919: END IF;
4920: IF l_function_allowed = 'N' THEN
4921: pa_interface_utils_pub.map_new_amg_msg
4922: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4927: ,p_attribute2 => ''
4928: ,p_attribute3 => ''
4929: ,p_attribute4 => ''
4930: ,p_attribute5 => '');
4931: p_return_status := FND_API.G_RET_STS_ERROR;
4932: RAISE FND_API.G_EXC_ERROR;
4933: END IF;
4934:
4935: -- Initialize the message table if requested.
4928: ,p_attribute3 => ''
4929: ,p_attribute4 => ''
4930: ,p_attribute5 => '');
4931: p_return_status := FND_API.G_RET_STS_ERROR;
4932: RAISE FND_API.G_EXC_ERROR;
4933: END IF;
4934:
4935: -- Initialize the message table if requested.
4936:
4933: END IF;
4934:
4935: -- Initialize the message table if requested.
4936:
4937: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4938: THEN
4939:
4940: FND_MSG_PUB.initialize;
4941:
4942: END IF;
4943:
4944: -- Set API return status to success
4945:
4946: p_return_status := FND_API.G_RET_STS_SUCCESS;
4947:
4948: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
4949:
4950: -- Agreement Reference
4963: ,p_attribute3 => ''
4964: ,p_attribute4 => ''
4965: ,p_attribute5 => '');
4966: END IF;
4967: p_return_status := FND_API.G_RET_STS_ERROR;
4968: RAISE FND_API.G_EXC_ERROR;
4969: END IF;
4970:
4971: -- Project Id
4964: ,p_attribute4 => ''
4965: ,p_attribute5 => '');
4966: END IF;
4967: p_return_status := FND_API.G_RET_STS_ERROR;
4968: RAISE FND_API.G_EXC_ERROR;
4969: END IF;
4970:
4971: -- Project Id
4972: IF (p_project_id IS NULL)
4984: ,p_attribute3 => ''
4985: ,p_attribute4 => ''
4986: ,p_attribute5 => '');
4987: END IF;
4988: p_return_status := FND_API.G_RET_STS_ERROR;
4989: RAISE FND_API.G_EXC_ERROR;
4990: END IF;
4991: /*
4992: -- Task Id
4985: ,p_attribute4 => ''
4986: ,p_attribute5 => '');
4987: END IF;
4988: p_return_status := FND_API.G_RET_STS_ERROR;
4989: RAISE FND_API.G_EXC_ERROR;
4990: END IF;
4991: /*
4992: -- Task Id
4993: IF (p_task_id IS NULL)
5005: ,p_attribute3 => ''
5006: ,p_attribute4 => ''
5007: ,p_attribute5 => '');
5008: END IF;
5009: p_return_status := FND_API.G_RET_STS_ERROR;
5010: RAISE FND_API.G_EXC_ERROR;
5011: END IF;
5012: */
5013: -- Funding Reference
5006: ,p_attribute4 => ''
5007: ,p_attribute5 => '');
5008: END IF;
5009: p_return_status := FND_API.G_RET_STS_ERROR;
5010: RAISE FND_API.G_EXC_ERROR;
5011: END IF;
5012: */
5013: -- Funding Reference
5014: IF (p_pm_funding_reference IS NULL)
5026: ,p_attribute3 => ''
5027: ,p_attribute4 => ''
5028: ,p_attribute5 => '');
5029: END IF;
5030: p_return_status := FND_API.G_RET_STS_ERROR;
5031: RAISE FND_API.G_EXC_ERROR;
5032: END IF;
5033:
5034: /* NOT REQUIRED
5027: ,p_attribute4 => ''
5028: ,p_attribute5 => '');
5029: END IF;
5030: p_return_status := FND_API.G_RET_STS_ERROR;
5031: RAISE FND_API.G_EXC_ERROR;
5032: END IF;
5033:
5034: /* NOT REQUIRED
5035: -- Funding Id
5048: ,p_attribute3 => ''
5049: ,p_attribute4 => ''
5050: ,p_attribute5 => '');
5051: END IF;
5052: p_return_status := FND_API.G_RET_STS_ERROR;
5053: RAISE FND_API.G_EXC_ERROR;
5054: END IF;
5055: */
5056:
5049: ,p_attribute4 => ''
5050: ,p_attribute5 => '');
5051: END IF;
5052: p_return_status := FND_API.G_RET_STS_ERROR;
5053: RAISE FND_API.G_EXC_ERROR;
5054: END IF;
5055: */
5056:
5057: -- VALIDATE THE INCOMING PARAMETERS
5072: ,p_attribute3 => ''
5073: ,p_attribute4 => ''
5074: ,p_attribute5 => '');
5075: END IF;
5076: p_return_status := FND_API.G_RET_STS_ERROR;
5077: RAISE FND_API.G_EXC_ERROR;
5078: END IF;
5079: /* NOT REQUIRED
5080: -- Funding Reference
5073: ,p_attribute4 => ''
5074: ,p_attribute5 => '');
5075: END IF;
5076: p_return_status := FND_API.G_RET_STS_ERROR;
5077: RAISE FND_API.G_EXC_ERROR;
5078: END IF;
5079: /* NOT REQUIRED
5080: -- Funding Reference
5081: IF pa_agreement_utils.check_valid_funding_ref(p_funding_reference => p_pm_funding_reference
5093: ,p_attribute3 => ''
5094: ,p_attribute4 => ''
5095: ,p_attribute5 => '');
5096: END IF;
5097: p_return_status := FND_API.G_RET_STS_ERROR;
5098: RAISE FND_API.G_EXC_ERROR;
5099: END IF;
5100: */
5101: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
5094: ,p_attribute4 => ''
5095: ,p_attribute5 => '');
5096: END IF;
5097: p_return_status := FND_API.G_RET_STS_ERROR;
5098: RAISE FND_API.G_EXC_ERROR;
5099: END IF;
5100: */
5101: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
5102: pa_agreement_pvt.convert_ag_ref_to_id
5105: ,p_out_agreement_id => l_out_agreement_id
5106: ,p_return_status => l_return_status);
5107: p_return_status := l_return_status;
5108:
5109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5110: THEN
5111: IF l_return_status = FND_API.G_RET_STS_ERROR
5112: THEN
5113: RAISE FND_API.G_EXC_ERROR;
5107: p_return_status := l_return_status;
5108:
5109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5110: THEN
5111: IF l_return_status = FND_API.G_RET_STS_ERROR
5112: THEN
5113: RAISE FND_API.G_EXC_ERROR;
5114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5115: THEN
5109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5110: THEN
5111: IF l_return_status = FND_API.G_RET_STS_ERROR
5112: THEN
5113: RAISE FND_API.G_EXC_ERROR;
5114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5115: THEN
5116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5117: ELSE
5110: THEN
5111: IF l_return_status = FND_API.G_RET_STS_ERROR
5112: THEN
5113: RAISE FND_API.G_EXC_ERROR;
5114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5115: THEN
5116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5117: ELSE
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5112: THEN
5113: RAISE FND_API.G_EXC_ERROR;
5114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5115: THEN
5116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5117: ELSE
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5119: END IF;
5120: END IF;
5114: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5115: THEN
5116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5117: ELSE
5118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5119: END IF;
5120: END IF;
5121:
5122: -- TO BE CORRECTED - NIKHIL
5142: ,p_projfunc_rate_date => p_projfunc_rate_date
5143: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate );
5144: /* MCB2 PARAMETERS END */
5145:
5146: IF FND_API.to_boolean( p_commit )
5147: THEN
5148: COMMIT;
5149: END IF;
5150:
5148: COMMIT;
5149: END IF;
5150:
5151: EXCEPTION
5152: WHEN FND_API.G_EXC_ERROR
5153: THEN
5154: ROLLBACK TO check_add_funding_ok_pub;
5155: p_return_status := FND_API.G_RET_STS_ERROR;
5156: FND_MSG_PUB.Count_And_Get
5151: EXCEPTION
5152: WHEN FND_API.G_EXC_ERROR
5153: THEN
5154: ROLLBACK TO check_add_funding_ok_pub;
5155: p_return_status := FND_API.G_RET_STS_ERROR;
5156: FND_MSG_PUB.Count_And_Get
5157: ( p_count => p_msg_count ,
5158: p_data => p_msg_data );
5159:
5156: FND_MSG_PUB.Count_And_Get
5157: ( p_count => p_msg_count ,
5158: p_data => p_msg_data );
5159:
5160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5161: THEN
5162: ROLLBACK TO check_add_funding_ok_pub;
5163: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5164: FND_MSG_PUB.Count_And_Get
5159:
5160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5161: THEN
5162: ROLLBACK TO check_add_funding_ok_pub;
5163: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5164: FND_MSG_PUB.Count_And_Get
5165: ( p_count => p_msg_count ,
5166: p_data => p_msg_data );
5167:
5167:
5168: WHEN OTHERS
5169: THEN
5170: ROLLBACK TO check_add_funding_ok_pub;
5171: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5173: THEN
5174: FND_MSG_PUB.add_exc_msg
5175: ( p_pkg_name => G_PKG_NAME
5227:
5228: -- Standard call to check for call compatibility.
5229:
5230:
5231: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5232: p_api_version_number ,
5233: l_api_name ,
5234: G_PKG_NAME )
5235: THEN
5233: l_api_name ,
5234: G_PKG_NAME )
5235: THEN
5236:
5237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5238:
5239: END IF;
5240: l_resp_id := FND_GLOBAL.Resp_id;
5241:
5263: p_return_status => l_return_status,
5264: p_function_allowed => l_function_allowed
5265: );
5266:
5267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5268: THEN
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5265: );
5266:
5267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5268: THEN
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5272: THEN
5273: RAISE FND_API.G_EXC_ERROR;
5267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5268: THEN
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5272: THEN
5273: RAISE FND_API.G_EXC_ERROR;
5274: END IF;
5275: IF l_function_allowed = 'N' THEN
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5272: THEN
5273: RAISE FND_API.G_EXC_ERROR;
5274: END IF;
5275: IF l_function_allowed = 'N' THEN
5276: pa_interface_utils_pub.map_new_amg_msg
5277: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
5282: ,p_attribute2 => ''
5283: ,p_attribute3 => ''
5284: ,p_attribute4 => ''
5285: ,p_attribute5 => '');
5286: p_return_status := FND_API.G_RET_STS_ERROR;
5287: RAISE FND_API.G_EXC_ERROR;
5288: END IF;
5289:
5290: -- Initialize the message table if requested.
5283: ,p_attribute3 => ''
5284: ,p_attribute4 => ''
5285: ,p_attribute5 => '');
5286: p_return_status := FND_API.G_RET_STS_ERROR;
5287: RAISE FND_API.G_EXC_ERROR;
5288: END IF;
5289:
5290: -- Initialize the message table if requested.
5291:
5288: END IF;
5289:
5290: -- Initialize the message table if requested.
5291:
5292: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5293: THEN
5294:
5295: FND_MSG_PUB.initialize;
5296:
5297: END IF;
5298:
5299: -- Set API return status to success
5300:
5301: p_return_status := FND_API.G_RET_STS_SUCCESS;
5302:
5303: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5304:
5305: -- Funding Reference
5318: ,p_attribute3 => ''
5319: ,p_attribute4 => ''
5320: ,p_attribute5 => '');
5321: END IF;
5322: p_return_status := FND_API.G_RET_STS_ERROR;
5323: RAISE FND_API.G_EXC_ERROR;
5324: END IF;
5325: /* NOT REQUIRED
5326: -- Funding Id
5319: ,p_attribute4 => ''
5320: ,p_attribute5 => '');
5321: END IF;
5322: p_return_status := FND_API.G_RET_STS_ERROR;
5323: RAISE FND_API.G_EXC_ERROR;
5324: END IF;
5325: /* NOT REQUIRED
5326: -- Funding Id
5327: IF (p_funding_id IS NULL)
5339: ,p_attribute3 => ''
5340: ,p_attribute4 => ''
5341: ,p_attribute5 => '');
5342: END IF;
5343: p_return_status := FND_API.G_RET_STS_ERROR;
5344: RAISE FND_API.G_EXC_ERROR;
5345: END IF;
5346: */
5347:
5340: ,p_attribute4 => ''
5341: ,p_attribute5 => '');
5342: END IF;
5343: p_return_status := FND_API.G_RET_STS_ERROR;
5344: RAISE FND_API.G_EXC_ERROR;
5345: END IF;
5346: */
5347:
5348: -- VALIDATE THE INCOMING PARAMETERS
5365: ,p_attribute3 => ''
5366: ,p_attribute4 => ''
5367: ,p_attribute5 => '');
5368: END IF;
5369: p_return_status := FND_API.G_RET_STS_ERROR;
5370: RAISE FND_API.G_EXC_ERROR;
5371: END IF;
5372:
5373: -- Funding Id
5366: ,p_attribute4 => ''
5367: ,p_attribute5 => '');
5368: END IF;
5369: p_return_status := FND_API.G_RET_STS_ERROR;
5370: RAISE FND_API.G_EXC_ERROR;
5371: END IF;
5372:
5373: -- Funding Id
5374: IF pa_agreement_utils.check_valid_funding_id(p_agreement_id => pa_agreement_utils.get_agreement_id(p_funding_id => p_funding_id
5387: ,p_attribute3 => ''
5388: ,p_attribute4 => ''
5389: ,p_attribute5 => '');
5390: END IF;
5391: p_return_status := FND_API.G_RET_STS_ERROR;
5392: RAISE FND_API.G_EXC_ERROR;
5393: END IF;
5394:
5395: -- CALL THE CHECK DELETE FUNDING OK PRIVATE PROCEDURE
5388: ,p_attribute4 => ''
5389: ,p_attribute5 => '');
5390: END IF;
5391: p_return_status := FND_API.G_RET_STS_ERROR;
5392: RAISE FND_API.G_EXC_ERROR;
5393: END IF;
5394:
5395: -- CALL THE CHECK DELETE FUNDING OK PRIVATE PROCEDURE
5396:
5401: ,p_pm_funding_reference => p_pm_funding_reference);
5402:
5403:
5404:
5405: IF FND_API.to_boolean( p_commit )
5406: THEN
5407: COMMIT;
5408: END IF;
5409:
5408: END IF;
5409:
5410: EXCEPTION
5411:
5412: WHEN FND_API.G_EXC_ERROR
5413: THEN
5414: ROLLBACK TO check_delete_funding_ok_pub;
5415:
5416: p_return_status := FND_API.G_RET_STS_ERROR;
5412: WHEN FND_API.G_EXC_ERROR
5413: THEN
5414: ROLLBACK TO check_delete_funding_ok_pub;
5415:
5416: p_return_status := FND_API.G_RET_STS_ERROR;
5417:
5418:
5419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5420: THEN
5415:
5416: p_return_status := FND_API.G_RET_STS_ERROR;
5417:
5418:
5419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5420: THEN
5421: ROLLBACK TO check_delete_funding_ok_pub;
5422:
5423: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5420: THEN
5421: ROLLBACK TO check_delete_funding_ok_pub;
5422:
5423: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5424:
5425:
5426: WHEN OTHERS
5427: THEN
5426: WHEN OTHERS
5427: THEN
5428: ROLLBACK TO check_delete_funding_ok_pub;
5429:
5430: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5431:
5432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5433: THEN
5434: FND_MSG_PUB.add_exc_msg
5513:
5514: -- Standard call to check for call compatibility.
5515:
5516:
5517: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5518: p_api_version_number ,
5519: l_api_name ,
5520: G_PKG_NAME )
5521: THEN
5519: l_api_name ,
5520: G_PKG_NAME )
5521: THEN
5522:
5523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5524:
5525: END IF;
5526: l_resp_id := FND_GLOBAL.Resp_id;
5527:
5545: p_return_status => l_return_status,
5546: p_function_allowed => l_function_allowed
5547: );
5548:
5549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5550: THEN
5551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5552:
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5547: );
5548:
5549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5550: THEN
5551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5552:
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5554: THEN
5555: RAISE FND_API.G_EXC_ERROR;
5549: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5550: THEN
5551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5552:
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5554: THEN
5555: RAISE FND_API.G_EXC_ERROR;
5556: END IF;
5557: IF l_function_allowed = 'N' THEN
5551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5552:
5553: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5554: THEN
5555: RAISE FND_API.G_EXC_ERROR;
5556: END IF;
5557: IF l_function_allowed = 'N' THEN
5558: pa_interface_utils_pub.map_new_amg_msg
5559: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
5564: ,p_attribute2 => ''
5565: ,p_attribute3 => ''
5566: ,p_attribute4 => ''
5567: ,p_attribute5 => '');
5568: p_return_status := FND_API.G_RET_STS_ERROR;
5569: RAISE FND_API.G_EXC_ERROR;
5570: END IF;
5571:
5572: -- Initialize the message table if requested.
5565: ,p_attribute3 => ''
5566: ,p_attribute4 => ''
5567: ,p_attribute5 => '');
5568: p_return_status := FND_API.G_RET_STS_ERROR;
5569: RAISE FND_API.G_EXC_ERROR;
5570: END IF;
5571:
5572: -- Initialize the message table if requested.
5573:
5570: END IF;
5571:
5572: -- Initialize the message table if requested.
5573:
5574: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5575: THEN
5576:
5577: FND_MSG_PUB.initialize;
5578:
5579: END IF;
5580:
5581: -- Set API return status to success
5582:
5583: p_return_status := FND_API.G_RET_STS_SUCCESS;
5584:
5585: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5586:
5587: -- Funding Reference
5600: ,p_attribute3 => ''
5601: ,p_attribute4 => ''
5602: ,p_attribute5 => '');
5603: END IF;
5604: p_return_status := FND_API.G_RET_STS_ERROR;
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5607:
5608: -- Funding Id
5601: ,p_attribute4 => ''
5602: ,p_attribute5 => '');
5603: END IF;
5604: p_return_status := FND_API.G_RET_STS_ERROR;
5605: RAISE FND_API.G_EXC_ERROR;
5606: END IF;
5607:
5608: -- Funding Id
5609: IF (p_funding_id IS NULL)
5621: ,p_attribute3 => ''
5622: ,p_attribute4 => ''
5623: ,p_attribute5 => '');
5624: END IF;
5625: p_return_status := FND_API.G_RET_STS_ERROR;
5626: RAISE FND_API.G_EXC_ERROR;
5627: END IF;
5628:
5629: -- VALIDATE THE INCOMING PARAMETERS
5622: ,p_attribute4 => ''
5623: ,p_attribute5 => '');
5624: END IF;
5625: p_return_status := FND_API.G_RET_STS_ERROR;
5626: RAISE FND_API.G_EXC_ERROR;
5627: END IF;
5628:
5629: -- VALIDATE THE INCOMING PARAMETERS
5630:
5644: ,p_attribute3 => ''
5645: ,p_attribute4 => ''
5646: ,p_attribute5 => '');
5647: END IF;
5648: p_return_status := FND_API.G_RET_STS_ERROR;
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: -- Agreement Id
5645: ,p_attribute4 => ''
5646: ,p_attribute5 => '');
5647: END IF;
5648: p_return_status := FND_API.G_RET_STS_ERROR;
5649: RAISE FND_API.G_EXC_ERROR;
5650: END IF;
5651:
5652: -- Agreement Id
5653: IF pa_agreement_utils.check_valid_agreement_id
5665: ,p_attribute3 => ''
5666: ,p_attribute4 => ''
5667: ,p_attribute5 => '');
5668: END IF;
5669: p_return_status := FND_API.G_RET_STS_ERROR;
5670: RAISE FND_API.G_EXC_ERROR;
5671: END IF;
5672:
5673: -- Flex Field Validations
5666: ,p_attribute4 => ''
5667: ,p_attribute5 => '');
5668: END IF;
5669: p_return_status := FND_API.G_RET_STS_ERROR;
5670: RAISE FND_API.G_EXC_ERROR;
5671: END IF;
5672:
5673: -- Flex Field Validations
5674: pa_agreement_pvt.validate_flex_fields
5702: ,p_attribute3 => ''
5703: ,p_attribute4 => ''
5704: ,p_attribute5 => '');
5705: END IF;
5706: p_return_status := FND_API.G_RET_STS_ERROR;
5707: RAISE FND_API.G_EXC_ERROR;
5708: END IF;
5709:
5710:
5703: ,p_attribute4 => ''
5704: ,p_attribute5 => '');
5705: END IF;
5706: p_return_status := FND_API.G_RET_STS_ERROR;
5707: RAISE FND_API.G_EXC_ERROR;
5708: END IF;
5709:
5710:
5711: -- CALL THE CHECK UPDATE FUNDING OK PRIVATE PROCEDURE
5727: ,p_projfunc_rate_date => p_projfunc_rate_date
5728: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate );
5729: /* MCB2 PARAMETERS END */
5730:
5731: IF FND_API.to_boolean( p_commit )
5732: THEN
5733: COMMIT;
5734: END IF;
5735:
5734: END IF;
5735:
5736: EXCEPTION
5737:
5738: WHEN FND_API.G_EXC_ERROR
5739: THEN
5740: ROLLBACK TO check_update_funding_ok_pub;
5741:
5742: p_return_status := FND_API.G_RET_STS_ERROR;
5738: WHEN FND_API.G_EXC_ERROR
5739: THEN
5740: ROLLBACK TO check_update_funding_ok_pub;
5741:
5742: p_return_status := FND_API.G_RET_STS_ERROR;
5743:
5744:
5745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5746: THEN
5741:
5742: p_return_status := FND_API.G_RET_STS_ERROR;
5743:
5744:
5745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5746: THEN
5747: ROLLBACK TO check_update_funding_ok_pub;
5748:
5749: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5746: THEN
5747: ROLLBACK TO check_update_funding_ok_pub;
5748:
5749: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5750:
5751:
5752: WHEN OTHERS
5753: THEN
5752: WHEN OTHERS
5753: THEN
5754: ROLLBACK TO check_update_funding_ok_pub;
5755:
5756: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5757:
5758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5759: THEN
5760: FND_MSG_PUB.add_exc_msg
5768:
5769:
5770: PROCEDURE create_baseline_budget
5771: ( p_api_version_number IN NUMBER
5772: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5773: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5774: ,p_msg_count OUT NOCOPY NUMBER /*File.sql.39*/
5775: ,p_msg_data OUT NOCOPY VARCHAR2 /*File.sql.39*/
5776: ,p_return_status OUT NOCOPY VARCHAR2 /*File.sql.39*/
5769:
5770: PROCEDURE create_baseline_budget
5771: ( p_api_version_number IN NUMBER
5772: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5773: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5774: ,p_msg_count OUT NOCOPY NUMBER /*File.sql.39*/
5775: ,p_msg_data OUT NOCOPY VARCHAR2 /*File.sql.39*/
5776: ,p_return_status OUT NOCOPY VARCHAR2 /*File.sql.39*/
5777: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924:
5925: SAVEPOINT Create_Budget_From_funding;
5926: -- Initializing the return status to success ! -- bug 3099706
5927: -- Set API return status to success
5928: p_return_status := FND_API.G_RET_STS_SUCCESS;
5929:
5930: -- Standard call to check for call compatibility.
5931: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5932: THEN
5927: -- Set API return status to success
5928: p_return_status := FND_API.G_RET_STS_SUCCESS;
5929:
5930: -- Standard call to check for call compatibility.
5931: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5932: THEN
5933:
5934: FND_MSG_PUB.initialize;
5935:
5935:
5936: END IF;
5937:
5938:
5939: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5940: p_api_version_number ,
5941: l_api_name ,
5942: G_PKG_NAME )
5943: THEN
5941: l_api_name ,
5942: G_PKG_NAME )
5943: THEN
5944:
5945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5946:
5947: END IF;
5948: l_resp_id := FND_GLOBAL.Resp_id;
5949:
5952: p_pa_project_id => p_pa_project_id,
5953: p_out_project_id => l_project_id,
5954: p_return_status => l_return_status );
5955:
5956: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5957: THEN
5958: p_return_status := l_return_status;
5959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5960:
5955:
5956: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5957: THEN
5958: p_return_status := l_return_status;
5959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5960:
5961: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5962: THEN
5963: p_return_status := l_return_status;
5957: THEN
5958: p_return_status := l_return_status;
5959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5960:
5961: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5962: THEN
5963: p_return_status := l_return_status;
5964: RAISE FND_API.G_EXC_ERROR;
5965:
5960:
5961: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5962: THEN
5963: p_return_status := l_return_status;
5964: RAISE FND_API.G_EXC_ERROR;
5965:
5966: END IF;
5967:
5968: IF (PA_FUNDING_CORE.CHECK_PROJECT_TYPE(l_project_id)) = 'N' THEN
5965:
5966: END IF;
5967:
5968: IF (PA_FUNDING_CORE.CHECK_PROJECT_TYPE(l_project_id)) = 'N' THEN
5969: p_return_status := FND_API.G_RET_STS_ERROR;
5970:
5971: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5972: THEN
5973: pa_interface_utils_pub.map_new_amg_msg
5994: CLOSE proj_dates;
5995:
5996: IF (proj_dates_rec.completion_date is null or proj_dates_rec.start_date is null) then
5997: -- Set API return status to success
5998: P_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
5999:
6000: pa_interface_utils_pub.map_new_amg_msg
6001: ( p_old_message_code => 'PA_BU_NO_PROJ_END_DATE'
6002: ,p_msg_attribute => 'CHANGE'
6007: ,p_attribute3 => null
6008: ,p_attribute4 => ''
6009: ,p_attribute5 => '');
6010:
6011: RAISE FND_API.G_EXC_ERROR;
6012: END IF;
6013:
6014: IF proj_dates_rec.baseline_funding_flag = 'N' then
6015:
6013:
6014: IF proj_dates_rec.baseline_funding_flag = 'N' then
6015:
6016:
6017: P_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6018:
6019: pa_interface_utils_pub.map_new_amg_msg
6020: ( p_old_message_code => 'PA_NO_BASELINE_FUNDING'
6021: ,p_msg_attribute => 'CHANGE'
6026: ,p_attribute3 => null
6027: ,p_attribute4 => ''
6028: ,p_attribute5 => '');
6029:
6030: RAISE FND_API.G_EXC_ERROR;
6031:
6032: END IF;
6033:
6034:
6051: ,p_attribute3 => l_funding_level
6052: ,p_attribute4 => ''
6053: ,p_attribute5 => '');
6054:
6055: RAISE FND_API.G_EXC_ERROR;
6056:
6057: END IF;
6058:
6059:
6090: -- dbms_output.put_line('about to call create_draft_budget ... '||l_budget_entry_method_code||' '||l_project_id||' '||p_budget_version_name);
6091:
6092: /* Commented for bug 4941046
6093: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
6094: ,p_commit => FND_API.G_FALSE
6095: ,p_init_msg_list => FND_API.G_FALSE
6096: ,p_msg_count => p_msg_count
6097: ,p_msg_data => p_msg_data
6098: ,p_return_status => l_return_status
6091:
6092: /* Commented for bug 4941046
6093: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
6094: ,p_commit => FND_API.G_FALSE
6095: ,p_init_msg_list => FND_API.G_FALSE
6096: ,p_msg_count => p_msg_count
6097: ,p_msg_data => p_msg_data
6098: ,p_return_status => l_return_status
6099: ,p_pm_product_code => p_pm_product_code
6126: ,p_budget_lines_out => l_budget_lines_out_tbl);*/
6127:
6128: --WRAPPER API CALL ADDED FOR BUG 4941046
6129: pa_fin_plan_utils.create_draft_budget_wrp( p_api_version_number => p_api_version_number
6130: ,p_commit => FND_API.G_FALSE
6131: ,p_init_msg_list => FND_API.G_FALSE
6132: ,p_msg_count => p_msg_count
6133: ,p_msg_data => p_msg_data
6134: ,p_return_status => l_return_status
6127:
6128: --WRAPPER API CALL ADDED FOR BUG 4941046
6129: pa_fin_plan_utils.create_draft_budget_wrp( p_api_version_number => p_api_version_number
6130: ,p_commit => FND_API.G_FALSE
6131: ,p_init_msg_list => FND_API.G_FALSE
6132: ,p_msg_count => p_msg_count
6133: ,p_msg_data => p_msg_data
6134: ,p_return_status => l_return_status
6135: ,p_pm_product_code => p_pm_product_code
6161: ,p_budget_lines_in => l_budget_lines_in_tbl
6162: ,p_budget_lines_out => l_budget_lines_out_tbl);
6163:
6164: -- dbms_output.put_line('returned from create_draft ... status = '||l_return_status);
6165: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6166: THEN
6167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6168:
6169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6163:
6164: -- dbms_output.put_line('returned from create_draft ... status = '||l_return_status);
6165: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6166: THEN
6167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6168:
6169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6170: THEN
6171: RAISE FND_API.G_EXC_ERROR;
6165: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6166: THEN
6167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6168:
6169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6170: THEN
6171: RAISE FND_API.G_EXC_ERROR;
6172: END IF;
6173:
6167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6168:
6169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6170: THEN
6171: RAISE FND_API.G_EXC_ERROR;
6172: END IF;
6173:
6174: -- dbms_output.put_line('about to call baseline_budget ... ');
6175: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
6178: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
6179:
6180: PA_BUDGET_PUB.BASELINE_BUDGET
6181: ( p_api_version_number => p_api_version_number
6182: ,p_commit => FND_API.G_FALSE
6183: ,p_init_msg_list => FND_API.G_FALSE
6184: ,p_msg_count => p_msg_count
6185: ,p_msg_data => p_msg_data
6186: ,p_return_status => l_return_status
6179:
6180: PA_BUDGET_PUB.BASELINE_BUDGET
6181: ( p_api_version_number => p_api_version_number
6182: ,p_commit => FND_API.G_FALSE
6183: ,p_init_msg_list => FND_API.G_FALSE
6184: ,p_msg_count => p_msg_count
6185: ,p_msg_data => p_msg_data
6186: ,p_return_status => l_return_status
6187: ,p_workflow_started => l_workflow_started
6196: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
6197: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
6198: END IF;
6199:
6200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6201: THEN
6202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6203:
6204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6198: END IF;
6199:
6200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6201: THEN
6202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6203:
6204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6205: THEN
6206: RAISE FND_API.G_EXC_ERROR;
6200: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6201: THEN
6202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6203:
6204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6205: THEN
6206: RAISE FND_API.G_EXC_ERROR;
6207: END IF; End of comment for bug 4941046 */
6208:
6202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6203:
6204: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6205: THEN
6206: RAISE FND_API.G_EXC_ERROR;
6207: END IF; End of comment for bug 4941046 */
6208:
6209:
6210: IF FND_API.to_boolean( p_commit )
6206: RAISE FND_API.G_EXC_ERROR;
6207: END IF; End of comment for bug 4941046 */
6208:
6209:
6210: IF FND_API.to_boolean( p_commit )
6211: THEN
6212: COMMIT;
6213: END IF;
6214:
6212: COMMIT;
6213: END IF;
6214:
6215: EXCEPTION
6216: WHEN FND_API.G_EXC_ERROR
6217: THEN
6218: ROLLBACK TO Create_Budget_From_funding;
6219: p_return_status := FND_API.G_RET_STS_ERROR;
6220: FND_MSG_PUB.Count_And_Get
6215: EXCEPTION
6216: WHEN FND_API.G_EXC_ERROR
6217: THEN
6218: ROLLBACK TO Create_Budget_From_funding;
6219: p_return_status := FND_API.G_RET_STS_ERROR;
6220: FND_MSG_PUB.Count_And_Get
6221: ( p_count => p_msg_count ,
6222: p_data => p_msg_data );
6223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6219: p_return_status := FND_API.G_RET_STS_ERROR;
6220: FND_MSG_PUB.Count_And_Get
6221: ( p_count => p_msg_count ,
6222: p_data => p_msg_data );
6223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6224: THEN
6225: ROLLBACK TO Create_Budget_From_funding;
6226: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6227: FND_MSG_PUB.Count_And_Get
6222: p_data => p_msg_data );
6223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6224: THEN
6225: ROLLBACK TO Create_Budget_From_funding;
6226: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6227: FND_MSG_PUB.Count_And_Get
6228: ( p_count => p_msg_count ,
6229: p_data => p_msg_data );
6230:
6230:
6231: WHEN OTHERS
6232: THEN
6233: ROLLBACK TO Create_Budget_From_funding;
6234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6235: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6236: THEN
6237: FND_MSG_PUB.add_exc_msg
6238: ( p_pkg_name => G_PKG_NAME