[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
2065:
2066: -- Standard call to check for call compatibility.
2067:
2068:
2069: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2070: p_api_version_number ,
2071: l_api_name ,
2072: G_PKG_NAME )
2073: THEN
2071: l_api_name ,
2072: G_PKG_NAME )
2073: THEN
2074:
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076:
2077: END IF;
2078: l_resp_id := FND_GLOBAL.Resp_id;
2079:
2096: p_return_status => l_return_status,
2097: p_function_allowed => l_function_allowed
2098: );
2099:
2100: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2101: THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103:
2104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2098: );
2099:
2100: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2101: THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103:
2104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2105: THEN
2106: RAISE FND_API.G_EXC_ERROR;
2100: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2101: THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103:
2104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2105: THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107: END IF;
2108: IF l_function_allowed = 'N' THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103:
2104: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2105: THEN
2106: RAISE FND_API.G_EXC_ERROR;
2107: END IF;
2108: IF l_function_allowed = 'N' THEN
2109: pa_interface_utils_pub.map_new_amg_msg
2110: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
2115: ,p_attribute2 => ''
2116: ,p_attribute3 => ''
2117: ,p_attribute4 => ''
2118: ,p_attribute5 => '');
2119: p_return_status := FND_API.G_RET_STS_ERROR;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2123: -- Initialize the message table if requested.
2116: ,p_attribute3 => ''
2117: ,p_attribute4 => ''
2118: ,p_attribute5 => '');
2119: p_return_status := FND_API.G_RET_STS_ERROR;
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2123: -- Initialize the message table if requested.
2124:
2121: END IF;
2122:
2123: -- Initialize the message table if requested.
2124:
2125: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2126: THEN
2127:
2128: FND_MSG_PUB.initialize;
2129:
2130: END IF;
2131:
2132: -- Set API return status to success
2133:
2134: p_return_status := FND_API.G_RET_STS_SUCCESS;
2135:
2136: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
2137:
2138:
2152: ,p_attribute3 => ''
2153: ,p_attribute4 => ''
2154: ,p_attribute5 => '');
2155: END IF;
2156: p_return_status := FND_API.G_RET_STS_ERROR;
2157: RAISE FND_API.G_EXC_ERROR;
2158: END IF;
2159:
2160: /* NOT REQUIRED
2153: ,p_attribute4 => ''
2154: ,p_attribute5 => '');
2155: END IF;
2156: p_return_status := FND_API.G_RET_STS_ERROR;
2157: RAISE FND_API.G_EXC_ERROR;
2158: END IF;
2159:
2160: /* NOT REQUIRED
2161: -- Agreement Reference
2174: ,p_attribute3 => ''
2175: ,p_attribute4 => ''
2176: ,p_attribute5 => '');
2177: END IF;
2178: p_return_status := FND_API.G_RET_STS_ERROR;
2179: RAISE FND_API.G_EXC_ERROR;
2180: END IF;
2181:
2182:
2175: ,p_attribute4 => ''
2176: ,p_attribute5 => '');
2177: END IF;
2178: p_return_status := FND_API.G_RET_STS_ERROR;
2179: RAISE FND_API.G_EXC_ERROR;
2180: END IF;
2181:
2182:
2183: -- Project Reference
2196: ,p_attribute3 => ''
2197: ,p_attribute4 => ''
2198: ,p_attribute5 => '');
2199: END IF;
2200: p_return_status := FND_API.G_RET_STS_ERROR;
2201: RAISE FND_API.G_EXC_ERROR;
2202: END IF;
2203: */
2204:
2197: ,p_attribute4 => ''
2198: ,p_attribute5 => '');
2199: END IF;
2200: p_return_status := FND_API.G_RET_STS_ERROR;
2201: RAISE FND_API.G_EXC_ERROR;
2202: END IF;
2203: */
2204:
2205: -- Code added for Bug 2403652 starts here
2221: ,p_attribute3 => ''
2222: ,p_attribute4 => ''
2223: ,p_attribute5 => '');
2224: END IF;
2225: p_return_status := FND_API.G_RET_STS_ERROR;
2226: RAISE FND_API.G_EXC_ERROR;
2227: END IF;
2228: */
2229:
2222: ,p_attribute4 => ''
2223: ,p_attribute5 => '');
2224: END IF;
2225: p_return_status := FND_API.G_RET_STS_ERROR;
2226: RAISE FND_API.G_EXC_ERROR;
2227: END IF;
2228: */
2229:
2230: -- Validate funding category
2243: ,p_agreement_id
2244: ,p_pm_funding_reference
2245: ,l_funding_category ) = 'N'
2246: THEN
2247: p_return_status := FND_API.G_RET_STS_ERROR;
2248: RAISE FND_API.G_EXC_ERROR;
2249: END IF;
2250:
2251: -- Code added for Bug 2403652 ends here
2244: ,p_pm_funding_reference
2245: ,l_funding_category ) = 'N'
2246: THEN
2247: p_return_status := FND_API.G_RET_STS_ERROR;
2248: RAISE FND_API.G_EXC_ERROR;
2249: END IF;
2250:
2251: -- Code added for Bug 2403652 ends here
2252:
2267: ,p_attribute3 => ''
2268: ,p_attribute4 => ''
2269: ,p_attribute5 => '');
2270: END IF;
2271: p_return_status := FND_API.G_RET_STS_ERROR;
2272: RAISE FND_API.G_EXC_ERROR;
2273: END IF;
2274:
2275: -- Project Id
2268: ,p_attribute4 => ''
2269: ,p_attribute5 => '');
2270: END IF;
2271: p_return_status := FND_API.G_RET_STS_ERROR;
2272: RAISE FND_API.G_EXC_ERROR;
2273: END IF;
2274:
2275: -- Project Id
2276: IF (p_pa_project_id IS NULL)
2288: ,p_attribute3 => ''
2289: ,p_attribute4 => ''
2290: ,p_attribute5 => '');
2291: END IF;
2292: p_return_status := FND_API.G_RET_STS_ERROR;
2293: RAISE FND_API.G_EXC_ERROR;
2294: END IF;
2295:
2296: -- Task Id
2289: ,p_attribute4 => ''
2290: ,p_attribute5 => '');
2291: END IF;
2292: p_return_status := FND_API.G_RET_STS_ERROR;
2293: RAISE FND_API.G_EXC_ERROR;
2294: END IF;
2295:
2296: -- Task Id
2297: /*
2310: ,p_attribute3 => ''
2311: ,p_attribute4 => ''
2312: ,p_attribute5 => '');
2313: END IF;
2314: p_return_status := FND_API.G_RET_STS_ERROR;
2315: RAISE FND_API.G_EXC_ERROR;
2316: END IF;
2317: */
2318: -- Date Allocated
2311: ,p_attribute4 => ''
2312: ,p_attribute5 => '');
2313: END IF;
2314: p_return_status := FND_API.G_RET_STS_ERROR;
2315: RAISE FND_API.G_EXC_ERROR;
2316: END IF;
2317: */
2318: -- Date Allocated
2319: IF (p_date_allocated IS NULL)
2331: ,p_attribute3 => ''
2332: ,p_attribute4 => ''
2333: ,p_attribute5 => '');
2334: END IF;
2335: p_return_status := FND_API.G_RET_STS_ERROR;
2336: RAISE FND_API.G_EXC_ERROR;
2337: END IF;
2338:
2339: -- Allocated Amount
2332: ,p_attribute4 => ''
2333: ,p_attribute5 => '');
2334: END IF;
2335: p_return_status := FND_API.G_RET_STS_ERROR;
2336: RAISE FND_API.G_EXC_ERROR;
2337: END IF;
2338:
2339: -- Allocated Amount
2340: IF (p_allocated_amount IS NULL)
2352: ,p_attribute3 => ''
2353: ,p_attribute4 => ''
2354: ,p_attribute5 => '');
2355: END IF;
2356: p_return_status := FND_API.G_RET_STS_ERROR;
2357: RAISE FND_API.G_EXC_ERROR;
2358: -- ELSE
2359: -- select amount into l_nik from pa_agreements_all where agreement_id = p_agreement_id;
2360: END IF;
2353: ,p_attribute4 => ''
2354: ,p_attribute5 => '');
2355: END IF;
2356: p_return_status := FND_API.G_RET_STS_ERROR;
2357: RAISE FND_API.G_EXC_ERROR;
2358: -- ELSE
2359: -- select amount into l_nik from pa_agreements_all where agreement_id = p_agreement_id;
2360: END IF;
2361:
2375: ,p_attribute3 => ''
2376: ,p_attribute4 => ''
2377: ,p_attribute5 => '');
2378: END IF;
2379: p_return_status := FND_API.G_RET_STS_ERROR;
2380: RAISE FND_API.G_EXC_ERROR;
2381: END IF;
2382:
2383: /* Bug 13434695*/
2376: ,p_attribute4 => ''
2377: ,p_attribute5 => '');
2378: END IF;
2379: p_return_status := FND_API.G_RET_STS_ERROR;
2380: RAISE FND_API.G_EXC_ERROR;
2381: END IF;
2382:
2383: /* Bug 13434695*/
2384: Open l_limit_flag_csr(p_agreement_id);
2405: ,p_attribute3 => ''
2406: ,p_attribute4 => ''
2407: ,p_attribute5 => '');
2408: END IF;
2409: p_return_status := FND_API.G_RET_STS_ERROR;
2410: RAISE FND_API.G_EXC_ERROR;
2411: END IF;
2412:
2413: /* Bug 13434695*/
2406: ,p_attribute4 => ''
2407: ,p_attribute5 => '');
2408: END IF;
2409: p_return_status := FND_API.G_RET_STS_ERROR;
2410: RAISE FND_API.G_EXC_ERROR;
2411: END IF;
2412:
2413: /* Bug 13434695*/
2414:
2433: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate ) = 'N'
2434: /* MCB2 PARAMETERS END */
2435:
2436: THEN
2437: p_return_status := FND_API.G_RET_STS_ERROR;
2438: RAISE FND_API.G_EXC_ERROR;
2439: END IF;
2440:
2441:
2434: /* MCB2 PARAMETERS END */
2435:
2436: THEN
2437: p_return_status := FND_API.G_RET_STS_ERROR;
2438: RAISE FND_API.G_EXC_ERROR;
2439: END IF;
2440:
2441:
2442: -- Flex Field Validations
2475: ,p_attribute3 => ''
2476: ,p_attribute4 => ''
2477: ,p_attribute5 => '');
2478: END IF;
2479: p_return_status := FND_API.G_RET_STS_ERROR;
2480: RAISE FND_API.G_EXC_ERROR;
2481: END IF;
2482: END IF;
2483:
2476: ,p_attribute4 => ''
2477: ,p_attribute5 => '');
2478: END IF;
2479: p_return_status := FND_API.G_RET_STS_ERROR;
2480: RAISE FND_API.G_EXC_ERROR;
2481: END IF;
2482: END IF;
2483:
2484: /* NOT REQUIRED
2683: ,p_attribute3 => ''
2684: ,p_attribute4 => ''
2685: ,p_attribute5 => '');
2686: END IF;
2687: p_return_status := FND_API.G_RET_STS_ERROR;
2688: RAISE FND_API.G_EXC_ERROR;
2689:
2690: ELSE
2691:
2684: ,p_attribute4 => ''
2685: ,p_attribute5 => '');
2686: END IF;
2687: p_return_status := FND_API.G_RET_STS_ERROR;
2688: RAISE FND_API.G_EXC_ERROR;
2689:
2690: ELSE
2691:
2692: -- UPDATE SUMMARY PROJECT FUNDINGS
2696: ,p_task_id => p_pa_task_id
2697: ,p_login_id => G_LOGIN_ID
2698: ,p_user_id => G_USER_ID);
2699:
2700: IF FND_API.to_boolean( p_commit ) THEN
2701: COMMIT;
2702: END IF;
2703:
2704: END IF;
2703:
2704: END IF;
2705:
2706: EXCEPTION
2707: WHEN FND_API.G_EXC_ERROR
2708: THEN
2709: ROLLBACK TO add_funding_pub;
2710: p_return_status := FND_API.G_RET_STS_ERROR;
2711: FND_MSG_PUB.Count_And_Get
2706: EXCEPTION
2707: WHEN FND_API.G_EXC_ERROR
2708: THEN
2709: ROLLBACK TO add_funding_pub;
2710: p_return_status := FND_API.G_RET_STS_ERROR;
2711: FND_MSG_PUB.Count_And_Get
2712: ( p_count => p_msg_count ,
2713: p_data => p_msg_data );
2714:
2711: FND_MSG_PUB.Count_And_Get
2712: ( p_count => p_msg_count ,
2713: p_data => p_msg_data );
2714:
2715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2716: THEN
2717: ROLLBACK TO add_funding_pub;
2718: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2719: FND_MSG_PUB.Count_And_Get
2714:
2715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2716: THEN
2717: ROLLBACK TO add_funding_pub;
2718: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2719: FND_MSG_PUB.Count_And_Get
2720: ( p_count => p_msg_count ,
2721: p_data => p_msg_data );
2722:
2722:
2723: WHEN OTHERS
2724: THEN
2725: ROLLBACK TO add_funding_pub;
2726: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2727: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2728: THEN
2729: FND_MSG_PUB.add_exc_msg
2730: ( p_pkg_name => G_PKG_NAME
2803:
2804: -- Standard call to check for call compatibility.
2805:
2806:
2807: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2808: p_api_version_number ,
2809: l_api_name ,
2810: G_PKG_NAME )
2811: THEN
2809: l_api_name ,
2810: G_PKG_NAME )
2811: THEN
2812:
2813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2814:
2815: END IF;
2816: l_resp_id := FND_GLOBAL.Resp_id;
2817:
2842: p_return_status => l_return_status,
2843: p_function_allowed => l_function_allowed
2844: );
2845:
2846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2847: THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849:
2850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2844: );
2845:
2846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2847: THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849:
2850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2851: THEN
2852: RAISE FND_API.G_EXC_ERROR;
2846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2847: THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849:
2850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2851: THEN
2852: RAISE FND_API.G_EXC_ERROR;
2853: END IF;
2854: IF l_function_allowed = 'N' THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849:
2850: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2851: THEN
2852: RAISE FND_API.G_EXC_ERROR;
2853: END IF;
2854: IF l_function_allowed = 'N' THEN
2855: pa_interface_utils_pub.map_new_amg_msg
2856: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
2861: ,p_attribute2 => ''
2862: ,p_attribute3 => ''
2863: ,p_attribute4 => ''
2864: ,p_attribute5 => '');
2865: p_return_status := FND_API.G_RET_STS_ERROR;
2866: RAISE FND_API.G_EXC_ERROR;
2867: END IF;
2868:
2869: -- Initialize the message table if requested.
2862: ,p_attribute3 => ''
2863: ,p_attribute4 => ''
2864: ,p_attribute5 => '');
2865: p_return_status := FND_API.G_RET_STS_ERROR;
2866: RAISE FND_API.G_EXC_ERROR;
2867: END IF;
2868:
2869: -- Initialize the message table if requested.
2870:
2867: END IF;
2868:
2869: -- Initialize the message table if requested.
2870:
2871: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2872: THEN
2873:
2874: FND_MSG_PUB.initialize;
2875:
2876: END IF;
2877:
2878: -- Set API return status to success
2879:
2880: p_return_status := FND_API.G_RET_STS_SUCCESS;
2881:
2882: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
2883:
2884: -- Product Code
2897: ,p_attribute3 => ''
2898: ,p_attribute4 => ''
2899: ,p_attribute5 => '');
2900: END IF;
2901: p_return_status := FND_API.G_RET_STS_ERROR;
2902: RAISE FND_API.G_EXC_ERROR;
2903: END IF;
2904:
2905: -- Funding Reference
2898: ,p_attribute4 => ''
2899: ,p_attribute5 => '');
2900: END IF;
2901: p_return_status := FND_API.G_RET_STS_ERROR;
2902: RAISE FND_API.G_EXC_ERROR;
2903: END IF;
2904:
2905: -- Funding Reference
2906: IF (p_pm_funding_reference IS NULL)
2918: ,p_attribute3 => ''
2919: ,p_attribute4 => ''
2920: ,p_attribute5 => '');
2921: END IF;
2922: p_return_status := FND_API.G_RET_STS_ERROR;
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:
2926: /* NOT REQUIRED
2919: ,p_attribute4 => ''
2920: ,p_attribute5 => '');
2921: END IF;
2922: p_return_status := FND_API.G_RET_STS_ERROR;
2923: RAISE FND_API.G_EXC_ERROR;
2924: END IF;
2925:
2926: /* NOT REQUIRED
2927: -- Funding Id
2940: ,p_attribute3 => ''
2941: ,p_attribute4 => ''
2942: ,p_attribute5 => '');
2943: END IF;
2944: p_return_status := FND_API.G_RET_STS_ERROR;
2945: RAISE FND_API.G_EXC_ERROR;
2946: END IF;
2947: */
2948: /* code change for bug 2868818*/
2941: ,p_attribute4 => ''
2942: ,p_attribute5 => '');
2943: END IF;
2944: p_return_status := FND_API.G_RET_STS_ERROR;
2945: RAISE FND_API.G_EXC_ERROR;
2946: END IF;
2947: */
2948: /* code change for bug 2868818*/
2949:
2966: ,p_attribute3 => ''
2967: ,p_attribute4 => ''
2968: ,p_attribute5 => '');
2969:
2970: p_return_status := FND_API.G_RET_STS_ERROR;
2971: RAISE FND_API.G_EXC_ERROR;
2972: END IF;
2973:
2974: /* end code change for bug 2868818*/
2967: ,p_attribute4 => ''
2968: ,p_attribute5 => '');
2969:
2970: p_return_status := FND_API.G_RET_STS_ERROR;
2971: RAISE FND_API.G_EXC_ERROR;
2972: END IF;
2973:
2974: /* end code change for bug 2868818*/
2975:
2985: ,p_funding_reference => p_pm_funding_reference)
2986: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
2987: ,p_pm_funding_reference => p_pm_funding_reference) = 'N'
2988: THEN
2989: p_return_status := FND_API.G_RET_STS_ERROR;
2990: RAISE FND_API.G_EXC_ERROR;
2991: END IF;
2992: END IF;
2993: -- End
2986: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
2987: ,p_pm_funding_reference => p_pm_funding_reference) = 'N'
2988: THEN
2989: p_return_status := FND_API.G_RET_STS_ERROR;
2990: RAISE FND_API.G_EXC_ERROR;
2991: END IF;
2992: END IF;
2993: -- End
2994: -- CONVERT FUNDING REFERENCE TO FUNDING ID
3022: ,p_project_id => l_project_id
3023: ,p_task_id => l_task_id
3024: ,p_login_id => G_LOGIN_ID
3025: ,p_user_id => G_USER_ID );
3026: IF FND_API.to_boolean( p_commit )
3027: THEN
3028: COMMIT;
3029: END IF;
3030:
3028: COMMIT;
3029: END IF;
3030:
3031: EXCEPTION
3032: WHEN FND_API.G_EXC_ERROR
3033: THEN
3034: ROLLBACK TO delete_funding_pub;
3035: p_return_status := FND_API.G_RET_STS_ERROR;
3036: FND_MSG_PUB.Count_And_Get
3031: EXCEPTION
3032: WHEN FND_API.G_EXC_ERROR
3033: THEN
3034: ROLLBACK TO delete_funding_pub;
3035: p_return_status := FND_API.G_RET_STS_ERROR;
3036: FND_MSG_PUB.Count_And_Get
3037: ( p_count => p_msg_count ,
3038: p_data => p_msg_data );
3039:
3036: FND_MSG_PUB.Count_And_Get
3037: ( p_count => p_msg_count ,
3038: p_data => p_msg_data );
3039:
3040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3041: THEN
3042: ROLLBACK TO delete_funding_pub;
3043: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3044: FND_MSG_PUB.Count_And_Get
3039:
3040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3041: THEN
3042: ROLLBACK TO delete_funding_pub;
3043: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3044: FND_MSG_PUB.Count_And_Get
3045: ( p_count => p_msg_count ,
3046: p_data => p_msg_data );
3047:
3047:
3048: WHEN ROW_ALREADY_LOCKED
3049: THEN
3050: ROLLBACK TO delete_funding_pub;
3051: p_return_status := FND_API.G_RET_STS_ERROR;
3052: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3053: THEN
3054: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_T_AMG');
3055: FND_MESSAGE.SET_TOKEN('FUNDING',p_pm_funding_reference);
3061:
3062: WHEN OTHERS
3063: THEN
3064: ROLLBACK TO delete_funding_pub;
3065: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3066: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3067: THEN
3068: FND_MSG_PUB.add_exc_msg
3069: ( p_pkg_name => G_PKG_NAME
3206:
3207: -- Standard call to check for call compatibility.
3208:
3209:
3210: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3211: p_api_version_number ,
3212: l_api_name ,
3213: G_PKG_NAME )
3214: THEN
3212: l_api_name ,
3213: G_PKG_NAME )
3214: THEN
3215:
3216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3217:
3218: END IF;
3219: l_resp_id := FND_GLOBAL.Resp_id;
3220:
3238: p_return_status => l_return_status,
3239: p_function_allowed => l_function_allowed
3240: );
3241:
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3243: THEN
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3240: );
3241:
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3243: THEN
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3247: THEN
3248: RAISE FND_API.G_EXC_ERROR;
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3243: THEN
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3247: THEN
3248: RAISE FND_API.G_EXC_ERROR;
3249: END IF;
3250: IF l_function_allowed = 'N' THEN
3244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3247: THEN
3248: RAISE FND_API.G_EXC_ERROR;
3249: END IF;
3250: IF l_function_allowed = 'N' THEN
3251: pa_interface_utils_pub.map_new_amg_msg
3252: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
3257: ,p_attribute2 => ''
3258: ,p_attribute3 => ''
3259: ,p_attribute4 => ''
3260: ,p_attribute5 => '');
3261: RAISE FND_API.G_EXC_ERROR;
3262: END IF;
3263:
3264: -- Initialize the message table if requested.
3265:
3262: END IF;
3263:
3264: -- Initialize the message table if requested.
3265:
3266: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3267: THEN
3268:
3269: FND_MSG_PUB.initialize;
3270:
3271: END IF;
3272:
3273: -- Set API return status to success
3274:
3275: p_return_status := FND_API.G_RET_STS_SUCCESS;
3276:
3277: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
3278:
3279: -- Product Code
3292: ,p_attribute3 => ''
3293: ,p_attribute4 => ''
3294: ,p_attribute5 => '');
3295: END IF;
3296: p_return_status := FND_API.G_RET_STS_ERROR;
3297: RAISE FND_API.G_EXC_ERROR;
3298: END IF;
3299:
3300: /* Bug 5686790. If Miss char is passed then this check is not required, as
3293: ,p_attribute4 => ''
3294: ,p_attribute5 => '');
3295: END IF;
3296: p_return_status := FND_API.G_RET_STS_ERROR;
3297: RAISE FND_API.G_EXC_ERROR;
3298: END IF;
3299:
3300: /* Bug 5686790. If Miss char is passed then this check is not required, as
3301: customer doesn't want to change the funding category*/
3324: ,p_attribute3 => ''
3325: ,p_attribute4 => ''
3326: ,p_attribute5 => '');
3327: END IF;
3328: p_return_status := FND_API.G_RET_STS_ERROR;
3329: RAISE FND_API.G_EXC_ERROR;
3330: *** Commented for bug 2838872 ***/
3331: END IF;
3332:
3325: ,p_attribute4 => ''
3326: ,p_attribute5 => '');
3327: END IF;
3328: p_return_status := FND_API.G_RET_STS_ERROR;
3329: RAISE FND_API.G_EXC_ERROR;
3330: *** Commented for bug 2838872 ***/
3331: END IF;
3332:
3333: -- Validate funding category
3338: ,p_agreement_id
3339: ,p_pm_funding_reference
3340: ,upper(l_funding_category)) = 'N'--Added upper for 3360593
3341: THEN
3342: p_return_status := FND_API.G_RET_STS_ERROR;
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3345: END IF; /* l_funding_category is mischar*/
3346:
3339: ,p_pm_funding_reference
3340: ,upper(l_funding_category)) = 'N'--Added upper for 3360593
3341: THEN
3342: p_return_status := FND_API.G_RET_STS_ERROR;
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3345: END IF; /* l_funding_category is mischar*/
3346:
3347: -- Code added for Bug 2403652 ends here
3363: ,p_attribute3 => ''
3364: ,p_attribute4 => ''
3365: ,p_attribute5 => '');
3366: END IF;
3367: p_return_status := FND_API.G_RET_STS_ERROR;
3368: RAISE FND_API.G_EXC_ERROR;
3369: END IF;
3370: /* NOT REQUIED
3371: -- Funding Id
3364: ,p_attribute4 => ''
3365: ,p_attribute5 => '');
3366: END IF;
3367: p_return_status := FND_API.G_RET_STS_ERROR;
3368: RAISE FND_API.G_EXC_ERROR;
3369: END IF;
3370: /* NOT REQUIED
3371: -- Funding Id
3372: IF (p_funding_id IS NULL)
3384: ,p_attribute3 => ''
3385: ,p_attribute4 => ''
3386: ,p_attribute5 => '');
3387: END IF;
3388: p_return_status := FND_API.G_RET_STS_ERROR;
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391: */
3392:
3385: ,p_attribute4 => ''
3386: ,p_attribute5 => '');
3387: END IF;
3388: p_return_status := FND_API.G_RET_STS_ERROR;
3389: RAISE FND_API.G_EXC_ERROR;
3390: END IF;
3391: */
3392:
3393: /* code change for bug 2868818*/
3418: ,p_attribute3 => ''
3419: ,p_attribute4 => ''
3420: ,p_attribute5 => '' );
3421: END IF;
3422: p_return_status := FND_API.G_RET_STS_ERROR;
3423: RAISE FND_API.G_EXC_ERROR;
3424: END IF;
3425:
3426: /* Bug 13434695 */
3419: ,p_attribute4 => ''
3420: ,p_attribute5 => '' );
3421: END IF;
3422: p_return_status := FND_API.G_RET_STS_ERROR;
3423: RAISE FND_API.G_EXC_ERROR;
3424: END IF;
3425:
3426: /* Bug 13434695 */
3427:
3445: ,p_attribute3 => ''
3446: ,p_attribute4 => ''
3447: ,p_attribute5 => '');
3448:
3449: p_return_status := FND_API.G_RET_STS_ERROR;
3450: RAISE FND_API.G_EXC_ERROR;
3451: END IF;
3452:
3453:
3446: ,p_attribute4 => ''
3447: ,p_attribute5 => '');
3448:
3449: p_return_status := FND_API.G_RET_STS_ERROR;
3450: RAISE FND_API.G_EXC_ERROR;
3451: END IF;
3452:
3453:
3454: /* Moved the following function call from below to this place bug 2434153 **/
3483: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate ) = 'N'
3484: /* MCB2 PARAMETERS END */
3485:
3486: THEN
3487: p_return_status := FND_API.G_RET_STS_ERROR;
3488: RAISE FND_API.G_EXC_ERROR;
3489: END IF;
3490:
3491:
3484: /* MCB2 PARAMETERS END */
3485:
3486: THEN
3487: p_return_status := FND_API.G_RET_STS_ERROR;
3488: RAISE FND_API.G_EXC_ERROR;
3489: END IF;
3490:
3491:
3492: -- Flex Field Validations
3525: ,p_attribute3 => ''
3526: ,p_attribute4 => ''
3527: ,p_attribute5 => '');
3528: END IF;
3529: p_return_status := FND_API.G_RET_STS_ERROR;
3530: RAISE FND_API.G_EXC_ERROR;
3531: END IF;
3532: END IF;
3533:
3526: ,p_attribute4 => ''
3527: ,p_attribute5 => '');
3528: END IF;
3529: p_return_status := FND_API.G_RET_STS_ERROR;
3530: RAISE FND_API.G_EXC_ERROR;
3531: END IF;
3532: END IF;
3533:
3534: /* NOT REQUIRED
3629: ,p_attribute3 => ''
3630: ,p_attribute4 => ''
3631: ,p_attribute5 => '');
3632: END IF;
3633: p_return_status := FND_API.G_RET_STS_ERROR;
3634: RAISE FND_API.G_EXC_ERROR;
3635:
3636: ELSE
3637:
3630: ,p_attribute4 => ''
3631: ,p_attribute5 => '');
3632: END IF;
3633: p_return_status := FND_API.G_RET_STS_ERROR;
3634: RAISE FND_API.G_EXC_ERROR;
3635:
3636: ELSE
3637:
3638:
3645: ,p_user_id => G_USER_ID
3646: );
3647:
3648:
3649: IF FND_API.to_boolean( p_commit ) THEN
3650: COMMIT;
3651: END IF;
3652:
3653: END IF;
3653: END IF;
3654:
3655: EXCEPTION
3656:
3657: WHEN FND_API.G_EXC_ERROR
3658: THEN
3659: p_return_status := FND_API.G_RET_STS_ERROR ;
3660: ROLLBACK TO update_funding_pub;
3661: FND_MSG_PUB.Count_And_Get
3655: EXCEPTION
3656:
3657: WHEN FND_API.G_EXC_ERROR
3658: THEN
3659: p_return_status := FND_API.G_RET_STS_ERROR ;
3660: ROLLBACK TO update_funding_pub;
3661: FND_MSG_PUB.Count_And_Get
3662: ( p_count => p_msg_count ,
3663: p_data => p_msg_data );
3661: FND_MSG_PUB.Count_And_Get
3662: ( p_count => p_msg_count ,
3663: p_data => p_msg_data );
3664:
3665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3666: THEN
3667: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3668: ROLLBACK TO update_funding_pub;
3669: FND_MSG_PUB.Count_And_Get
3663: p_data => p_msg_data );
3664:
3665: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3666: THEN
3667: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3668: ROLLBACK TO update_funding_pub;
3669: FND_MSG_PUB.Count_And_Get
3670: ( p_count => p_msg_count ,
3671: p_data => p_msg_data );
3672:
3673: WHEN OTHERS
3674: THEN
3675: ROLLBACK TO update_funding_pub;
3676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3677: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3678: THEN
3679: FND_MSG_PUB.add_exc_msg
3680: ( p_pkg_name => G_PKG_NAME
3810:
3811: -- Standard call to check for call compatibility.
3812:
3813:
3814: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3815: p_api_version_number ,
3816: l_api_name ,
3817: G_PKG_NAME )
3818: THEN
3816: l_api_name ,
3817: G_PKG_NAME )
3818: THEN
3819:
3820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3821:
3822: END IF;
3823: l_resp_id := FND_GLOBAL.Resp_id;
3824:
3838: p_return_status => l_return_status,
3839: p_function_allowed => l_function_allowed
3840: );
3841:
3842: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3843: THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845:
3846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3840: );
3841:
3842: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3843: THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845:
3846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3847: THEN
3848: RAISE FND_API.G_EXC_ERROR;
3842: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3843: THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845:
3846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3847: THEN
3848: RAISE FND_API.G_EXC_ERROR;
3849: END IF;
3850: IF l_function_allowed = 'N' THEN
3844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3845:
3846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3847: THEN
3848: RAISE FND_API.G_EXC_ERROR;
3849: END IF;
3850: IF l_function_allowed = 'N' THEN
3851: pa_interface_utils_pub.map_new_amg_msg
3852: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
3857: ,p_attribute2 => ''
3858: ,p_attribute3 => ''
3859: ,p_attribute4 => ''
3860: ,p_attribute5 => '');
3861: p_return_status := FND_API.G_RET_STS_ERROR;
3862: RAISE FND_API.G_EXC_ERROR;
3863: END IF;
3864: */
3865: -- Initialize the message table if requested.
3858: ,p_attribute3 => ''
3859: ,p_attribute4 => ''
3860: ,p_attribute5 => '');
3861: p_return_status := FND_API.G_RET_STS_ERROR;
3862: RAISE FND_API.G_EXC_ERROR;
3863: END IF;
3864: */
3865: -- Initialize the message table if requested.
3866:
3863: END IF;
3864: */
3865: -- Initialize the message table if requested.
3866:
3867: IF FND_API.TO_BOOLEAN( p_init_msg_list )
3868: THEN
3869:
3870: FND_MSG_PUB.initialize;
3871:
3872: END IF;
3873:
3874: -- Set API return status to success
3875:
3876: p_return_status := FND_API.G_RET_STS_SUCCESS;
3877:
3878:
3879: -- ASSIGN INCOMING PARAMETERS TO THE FIELDS OF THE GLOBAL AGREEMENT RECORD
3880:
3930:
3931:
3932: EXCEPTION
3933:
3934: WHEN FND_API.G_EXC_ERROR
3935: THEN
3936: ROLLBACK TO load_agreement_pub;
3937: p_return_status := FND_API.G_RET_STS_ERROR;
3938:
3933:
3934: WHEN FND_API.G_EXC_ERROR
3935: THEN
3936: ROLLBACK TO load_agreement_pub;
3937: p_return_status := FND_API.G_RET_STS_ERROR;
3938:
3939:
3940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3941: THEN
3936: ROLLBACK TO load_agreement_pub;
3937: p_return_status := FND_API.G_RET_STS_ERROR;
3938:
3939:
3940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3941: THEN
3942: ROLLBACK TO load_agreement_pub;
3943: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3944:
3939:
3940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3941: THEN
3942: ROLLBACK TO load_agreement_pub;
3943: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3944:
3945:
3946: WHEN OTHERS
3947: THEN
3945:
3946: WHEN OTHERS
3947: THEN
3948: ROLLBACK TO load_agreement_pub;
3949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3952: THEN
3953: FND_MSG_PUB.add_exc_msg
4020:
4021: -- Standard call to check for call compatibility.
4022:
4023:
4024: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4025: p_api_version_number ,
4026: l_api_name ,
4027: G_PKG_NAME )
4028: THEN
4026: l_api_name ,
4027: G_PKG_NAME )
4028: THEN
4029:
4030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4031:
4032: END IF;
4033: l_resp_id := FND_GLOBAL.Resp_id;
4034:
4047: p_return_status => l_return_status,
4048: p_function_allowed => l_function_allowed
4049: );
4050:
4051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4052: THEN
4053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4054:
4055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4049: );
4050:
4051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4052: THEN
4053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4054:
4055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4056: THEN
4057: RAISE FND_API.G_EXC_ERROR;
4051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4052: THEN
4053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4054:
4055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4056: THEN
4057: RAISE FND_API.G_EXC_ERROR;
4058: END IF;
4059: IF l_function_allowed = 'N' THEN
4053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4054:
4055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4056: THEN
4057: RAISE FND_API.G_EXC_ERROR;
4058: END IF;
4059: IF l_function_allowed = 'N' THEN
4060: pa_interface_utils_pub.map_new_amg_msg
4061: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4066: ,p_attribute2 => ''
4067: ,p_attribute3 => ''
4068: ,p_attribute4 => ''
4069: ,p_attribute5 => '');
4070: p_return_status := FND_API.G_RET_STS_ERROR;
4071: RAISE FND_API.G_EXC_ERROR;
4072: END IF;
4073: */
4074: -- Initialize the message table if requested.
4067: ,p_attribute3 => ''
4068: ,p_attribute4 => ''
4069: ,p_attribute5 => '');
4070: p_return_status := FND_API.G_RET_STS_ERROR;
4071: RAISE FND_API.G_EXC_ERROR;
4072: END IF;
4073: */
4074: -- Initialize the message table if requested.
4075:
4072: END IF;
4073: */
4074: -- Initialize the message table if requested.
4075:
4076: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4077: THEN
4078:
4079: FND_MSG_PUB.initialize;
4080:
4081: END IF;
4082:
4083: -- Set API return status to success
4084:
4085: p_return_status := FND_API.G_RET_STS_SUCCESS;
4086:
4087: -- ASSIGN A VALUE TO THE GLOBAL COUNTER FOR THIS TABLE
4088: G_funding_tbl_count := G_funding_tbl_count + 1;
4089:
4115:
4116:
4117: EXCEPTION
4118:
4119: WHEN FND_API.G_EXC_ERROR
4120: THEN
4121: ROLLBACK TO load_funding_pub;
4122: p_return_status := FND_API.G_RET_STS_ERROR;
4123:
4118:
4119: WHEN FND_API.G_EXC_ERROR
4120: THEN
4121: ROLLBACK TO load_funding_pub;
4122: p_return_status := FND_API.G_RET_STS_ERROR;
4123:
4124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4125: THEN
4126: ROLLBACK TO load_funding_pub;
4120: THEN
4121: ROLLBACK TO load_funding_pub;
4122: p_return_status := FND_API.G_RET_STS_ERROR;
4123:
4124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4125: THEN
4126: ROLLBACK TO load_funding_pub;
4127: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4128:
4123:
4124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4125: THEN
4126: ROLLBACK TO load_funding_pub;
4127: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4128:
4129: WHEN OTHERS
4130: THEN
4131: ROLLBACK TO load_funding_pub;
4128:
4129: WHEN OTHERS
4130: THEN
4131: ROLLBACK TO load_funding_pub;
4132: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4134: THEN
4135: FND_MSG_PUB.add_exc_msg
4136: ( p_pkg_name => G_PKG_NAME
4182:
4183: -- Standard call to check for call compatibility.
4184:
4185:
4186: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4187: p_api_version_number ,
4188: l_api_name ,
4189: G_PKG_NAME )
4190: THEN
4188: l_api_name ,
4189: G_PKG_NAME )
4190: THEN
4191:
4192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4193:
4194: END IF;
4195: l_resp_id := FND_GLOBAL.Resp_id;
4196:
4209: p_return_status => l_return_status,
4210: p_function_allowed => l_function_allowed
4211: );
4212:
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4214: THEN
4215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4216:
4217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4211: );
4212:
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4214: THEN
4215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4216:
4217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4218: THEN
4219: RAISE FND_API.G_EXC_ERROR;
4213: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4214: THEN
4215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4216:
4217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4218: THEN
4219: RAISE FND_API.G_EXC_ERROR;
4220: END IF;
4221: IF l_function_allowed = 'N' THEN
4215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4216:
4217: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4218: THEN
4219: RAISE FND_API.G_EXC_ERROR;
4220: END IF;
4221: IF l_function_allowed = 'N' THEN
4222: pa_interface_utils_pub.map_new_amg_msg
4223: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4228: ,p_attribute2 => ''
4229: ,p_attribute3 => ''
4230: ,p_attribute4 => ''
4231: ,p_attribute5 => '');
4232: p_return_status := FND_API.G_RET_STS_ERROR;
4233: RAISE FND_API.G_EXC_ERROR;
4234: END IF;
4235: */
4236: -- Initialize the message table if requested.
4229: ,p_attribute3 => ''
4230: ,p_attribute4 => ''
4231: ,p_attribute5 => '');
4232: p_return_status := FND_API.G_RET_STS_ERROR;
4233: RAISE FND_API.G_EXC_ERROR;
4234: END IF;
4235: */
4236: -- Initialize the message table if requested.
4237:
4234: END IF;
4235: */
4236: -- Initialize the message table if requested.
4237:
4238: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4239: THEN
4240:
4241: FND_MSG_PUB.initialize;
4242:
4243: END IF;
4244:
4245: -- Set API return status to success
4246:
4247: p_return_status := FND_API.G_RET_STS_SUCCESS;
4248:
4249:
4250: -- CALL CREATE AGREEMENT
4251: pa_agreement_pub.create_agreement
4260: ,p_agreement_out_rec => G_agreement_out_rec
4261: ,p_funding_in_tbl => G_funding_in_tbl
4262: ,p_funding_out_tbl => G_funding_out_tbl);
4263:
4264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4265: THEN
4266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4267: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4268: THEN
4262: ,p_funding_out_tbl => G_funding_out_tbl);
4263:
4264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4265: THEN
4266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4267: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4268: THEN
4269: RAISE FND_API.G_EXC_ERROR;
4270: END IF;
4263:
4264: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4265: THEN
4266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4267: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4268: THEN
4269: RAISE FND_API.G_EXC_ERROR;
4270: END IF;
4271:
4265: THEN
4266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4267: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4268: THEN
4269: RAISE FND_API.G_EXC_ERROR;
4270: END IF;
4271:
4272: -- ASSIGN OUTGOING VALUES TO OUTGOING PARAMETERS
4273: IF G_agreement_out_rec.agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4283: ELSE
4284: p_customer_id_out := G_agreement_out_rec.customer_id;
4285: END IF;
4286:
4287: IF FND_API.to_boolean( p_commit )
4288: THEN
4289: COMMIT;
4290: END IF;
4291:
4291:
4292:
4293: EXCEPTION
4294:
4295: WHEN FND_API.G_EXC_ERROR
4296: THEN
4297: ROLLBACK TO execute_create_agreement_pub;
4298: p_return_status := FND_API.G_RET_STS_ERROR;
4299: FND_MSG_PUB.Count_And_Get
4294:
4295: WHEN FND_API.G_EXC_ERROR
4296: THEN
4297: ROLLBACK TO execute_create_agreement_pub;
4298: p_return_status := FND_API.G_RET_STS_ERROR;
4299: FND_MSG_PUB.Count_And_Get
4300: ( p_count => p_msg_count ,
4301: p_data => p_msg_data );
4302:
4299: FND_MSG_PUB.Count_And_Get
4300: ( p_count => p_msg_count ,
4301: p_data => p_msg_data );
4302:
4303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4304: THEN
4305: ROLLBACK TO execute_create_agreement_pub;
4306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4307: FND_MSG_PUB.Count_And_Get
4302:
4303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4304: THEN
4305: ROLLBACK TO execute_create_agreement_pub;
4306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4307: FND_MSG_PUB.Count_And_Get
4308: ( p_count => p_msg_count ,
4309: p_data => p_msg_data );
4310:
4310:
4311: WHEN OTHERS
4312: THEN
4313: ROLLBACK TO execute_create_agreement_pub;
4314: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4315: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4316: THEN
4317: FND_MSG_PUB.add_exc_msg
4318: ( p_pkg_name => G_PKG_NAME
4365:
4366: -- Standard call to check for call compatibility.
4367:
4368:
4369: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4370: p_api_version_number ,
4371: l_api_name ,
4372: G_PKG_NAME )
4373: THEN
4371: l_api_name ,
4372: G_PKG_NAME )
4373: THEN
4374:
4375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4376:
4377: END IF;
4378: l_resp_id := FND_GLOBAL.Resp_id;
4379:
4392: p_return_status => l_return_status,
4393: p_function_allowed => l_function_allowed
4394: );
4395:
4396: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4397: THEN
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399:
4400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4394: );
4395:
4396: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4397: THEN
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399:
4400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4401: THEN
4402: RAISE FND_API.G_EXC_ERROR;
4396: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4397: THEN
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399:
4400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4401: THEN
4402: RAISE FND_API.G_EXC_ERROR;
4403: END IF;
4404: IF l_function_allowed = 'N' THEN
4398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4399:
4400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4401: THEN
4402: RAISE FND_API.G_EXC_ERROR;
4403: END IF;
4404: IF l_function_allowed = 'N' THEN
4405: pa_interface_utils_pub.map_new_amg_msg
4406: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4411: ,p_attribute2 => ''
4412: ,p_attribute3 => ''
4413: ,p_attribute4 => ''
4414: ,p_attribute5 => '');
4415: p_return_status := FND_API.G_RET_STS_ERROR;
4416: RAISE FND_API.G_EXC_ERROR;
4417: END IF;
4418: */
4419: -- Initialize the message table if requested.
4412: ,p_attribute3 => ''
4413: ,p_attribute4 => ''
4414: ,p_attribute5 => '');
4415: p_return_status := FND_API.G_RET_STS_ERROR;
4416: RAISE FND_API.G_EXC_ERROR;
4417: END IF;
4418: */
4419: -- Initialize the message table if requested.
4420:
4417: END IF;
4418: */
4419: -- Initialize the message table if requested.
4420:
4421: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4422: THEN
4423:
4424: FND_MSG_PUB.initialize;
4425:
4426: END IF;
4427:
4428: -- Set API return status to success
4429:
4430: p_return_status := FND_API.G_RET_STS_SUCCESS;
4431:
4432: -- CALL UPDATE AGREEMENT
4433: pa_agreement_pub.update_agreement
4434: (p_api_version_number => p_api_version_number
4442: ,p_agreement_out_rec => G_agreement_out_rec
4443: ,p_funding_in_tbl => G_funding_in_tbl
4444: ,p_funding_out_tbl => G_funding_out_tbl);
4445:
4446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4447: THEN
4448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4450: THEN
4444: ,p_funding_out_tbl => G_funding_out_tbl);
4445:
4446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4447: THEN
4448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4450: THEN
4451: RAISE FND_API.G_EXC_ERROR;
4452: END IF;
4445:
4446: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4447: THEN
4448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4450: THEN
4451: RAISE FND_API.G_EXC_ERROR;
4452: END IF;
4453:
4447: THEN
4448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4450: THEN
4451: RAISE FND_API.G_EXC_ERROR;
4452: END IF;
4453:
4454: IF FND_API.to_boolean( p_commit )
4455: THEN
4450: THEN
4451: RAISE FND_API.G_EXC_ERROR;
4452: END IF;
4453:
4454: IF FND_API.to_boolean( p_commit )
4455: THEN
4456: COMMIT;
4457: END IF;
4458:
4458:
4459:
4460: EXCEPTION
4461:
4462: WHEN FND_API.G_EXC_ERROR
4463: THEN
4464: ROLLBACK TO execute_update_agreement_pub;
4465: p_return_status := FND_API.G_RET_STS_ERROR;
4466: FND_MSG_PUB.Count_And_Get
4461:
4462: WHEN FND_API.G_EXC_ERROR
4463: THEN
4464: ROLLBACK TO execute_update_agreement_pub;
4465: p_return_status := FND_API.G_RET_STS_ERROR;
4466: FND_MSG_PUB.Count_And_Get
4467: ( p_count => p_msg_count ,
4468: p_data => p_msg_data );
4469:
4466: FND_MSG_PUB.Count_And_Get
4467: ( p_count => p_msg_count ,
4468: p_data => p_msg_data );
4469:
4470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4471: THEN
4472: ROLLBACK TO execute_update_agreement_pub;
4473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.Count_And_Get
4469:
4470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4471: THEN
4472: ROLLBACK TO execute_update_agreement_pub;
4473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.Count_And_Get
4475: ( p_count => p_msg_count ,
4476: p_data => p_msg_data );
4477:
4477:
4478: WHEN OTHERS
4479: THEN
4480: ROLLBACK TO execute_update_agreement_pub;
4481: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4482: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4483: THEN
4484: FND_MSG_PUB.add_exc_msg
4485: ( p_pkg_name => G_PKG_NAME
4533:
4534: -- Standard call to check for call compatibility.
4535:
4536:
4537: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4538: p_api_version_number ,
4539: l_api_name ,
4540: G_PKG_NAME )
4541: THEN
4539: l_api_name ,
4540: G_PKG_NAME )
4541: THEN
4542:
4543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4544:
4545: END IF;
4546: l_resp_id := FND_GLOBAL.Resp_id;
4547:
4560: p_return_status => l_return_status,
4561: p_function_allowed => l_function_allowed
4562: );
4563:
4564: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4565: THEN
4566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4567:
4568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4562: );
4563:
4564: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4565: THEN
4566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4567:
4568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4569: THEN
4570: RAISE FND_API.G_EXC_ERROR;
4564: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4565: THEN
4566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4567:
4568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4569: THEN
4570: RAISE FND_API.G_EXC_ERROR;
4571: END IF;
4572: IF l_function_allowed = 'N' THEN
4566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4567:
4568: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4569: THEN
4570: RAISE FND_API.G_EXC_ERROR;
4571: END IF;
4572: IF l_function_allowed = 'N' THEN
4573: pa_interface_utils_pub.map_new_amg_msg
4574: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4579: ,p_attribute2 => ''
4580: ,p_attribute3 => ''
4581: ,p_attribute4 => ''
4582: ,p_attribute5 => '');
4583: p_return_status := FND_API.G_RET_STS_ERROR;
4584: RAISE FND_API.G_EXC_ERROR;
4585: END IF;
4586: */
4587: -- Initialize the message table if requested.
4580: ,p_attribute3 => ''
4581: ,p_attribute4 => ''
4582: ,p_attribute5 => '');
4583: p_return_status := FND_API.G_RET_STS_ERROR;
4584: RAISE FND_API.G_EXC_ERROR;
4585: END IF;
4586: */
4587: -- Initialize the message table if requested.
4588:
4585: END IF;
4586: */
4587: -- Initialize the message table if requested.
4588:
4589: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4590: THEN
4591:
4592: FND_MSG_PUB.initialize;
4593:
4594: END IF;
4595:
4596: -- Set API return status to success
4597:
4598: p_return_status := FND_API.G_RET_STS_SUCCESS;
4599:
4600: -- Check Funding index value, when they don't provide an index we will error out
4601: IF p_funding_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4602: OR p_funding_index IS NULL
4613: ,p_attribute3 => ''
4614: ,p_attribute4 => ''
4615: ,p_attribute5 => '');
4616: END IF;
4617: p_return_status := FND_API.G_RET_STS_ERROR;
4618: RAISE FND_API.G_EXC_ERROR;
4619: ELSE
4620: l_index := p_funding_index;
4621: END IF;
4614: ,p_attribute4 => ''
4615: ,p_attribute5 => '');
4616: END IF;
4617: p_return_status := FND_API.G_RET_STS_ERROR;
4618: RAISE FND_API.G_EXC_ERROR;
4619: ELSE
4620: l_index := p_funding_index;
4621: END IF;
4622: IF G_funding_out_tbl.exists(l_index)
4633: END IF;
4634:
4635: EXCEPTION
4636:
4637: WHEN FND_API.G_EXC_ERROR
4638: THEN
4639: ROLLBACK TO fetch_funding_pub;
4640: p_return_status := FND_API.G_RET_STS_ERROR;
4641:
4636:
4637: WHEN FND_API.G_EXC_ERROR
4638: THEN
4639: ROLLBACK TO fetch_funding_pub;
4640: p_return_status := FND_API.G_RET_STS_ERROR;
4641:
4642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4643: THEN
4644: ROLLBACK TO fetch_funding_pub;
4638: THEN
4639: ROLLBACK TO fetch_funding_pub;
4640: p_return_status := FND_API.G_RET_STS_ERROR;
4641:
4642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4643: THEN
4644: ROLLBACK TO fetch_funding_pub;
4645: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4646:
4641:
4642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4643: THEN
4644: ROLLBACK TO fetch_funding_pub;
4645: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4646:
4647: WHEN OTHERS
4648: THEN
4649: ROLLBACK TO fetch_funding_pub;
4646:
4647: WHEN OTHERS
4648: THEN
4649: ROLLBACK TO fetch_funding_pub;
4650: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4652: THEN
4653: FND_MSG_PUB.add_exc_msg
4654: ( p_pkg_name => G_PKG_NAME
4735:
4736: -- Standard call to check for call compatibility.
4737:
4738:
4739: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
4740: p_api_version_number ,
4741: l_api_name ,
4742: G_PKG_NAME )
4743: THEN
4741: l_api_name ,
4742: G_PKG_NAME )
4743: THEN
4744:
4745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4746:
4747: END IF;
4748: l_resp_id := FND_GLOBAL.Resp_id;
4749:
4762: p_return_status => l_return_status,
4763: p_function_allowed => l_function_allowed
4764: );
4765:
4766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4767: THEN
4768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4769:
4770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4764: );
4765:
4766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4767: THEN
4768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4769:
4770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4771: THEN
4772: RAISE FND_API.G_EXC_ERROR;
4766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4767: THEN
4768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4769:
4770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4771: THEN
4772: RAISE FND_API.G_EXC_ERROR;
4773: END IF;
4774: IF l_function_allowed = 'N' THEN
4768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4769:
4770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4771: THEN
4772: RAISE FND_API.G_EXC_ERROR;
4773: END IF;
4774: IF l_function_allowed = 'N' THEN
4775: pa_interface_utils_pub.map_new_amg_msg
4776: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
4781: ,p_attribute2 => ''
4782: ,p_attribute3 => ''
4783: ,p_attribute4 => ''
4784: ,p_attribute5 => '');
4785: p_return_status := FND_API.G_RET_STS_ERROR;
4786: RAISE FND_API.G_EXC_ERROR;
4787: END IF;
4788:
4789: -- Initialize the message table if requested.
4782: ,p_attribute3 => ''
4783: ,p_attribute4 => ''
4784: ,p_attribute5 => '');
4785: p_return_status := FND_API.G_RET_STS_ERROR;
4786: RAISE FND_API.G_EXC_ERROR;
4787: END IF;
4788:
4789: -- Initialize the message table if requested.
4790:
4787: END IF;
4788:
4789: -- Initialize the message table if requested.
4790:
4791: IF FND_API.TO_BOOLEAN( p_init_msg_list )
4792: THEN
4793:
4794: FND_MSG_PUB.initialize;
4795:
4796: END IF;
4797:
4798: -- Set API return status to success
4799:
4800: p_return_status := FND_API.G_RET_STS_SUCCESS;
4801:
4802:
4803: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
4804:
4818: ,p_attribute3 => ''
4819: ,p_attribute4 => ''
4820: ,p_attribute5 => '');
4821: END IF;
4822: p_return_status := FND_API.G_RET_STS_ERROR;
4823: RAISE FND_API.G_EXC_ERROR;
4824: END IF;
4825: /* NOT REQUIRED
4826: -- Agreement Id
4819: ,p_attribute4 => ''
4820: ,p_attribute5 => '');
4821: END IF;
4822: p_return_status := FND_API.G_RET_STS_ERROR;
4823: RAISE FND_API.G_EXC_ERROR;
4824: END IF;
4825: /* NOT REQUIRED
4826: -- Agreement Id
4827: IF (p_agreement_id IS NULL)
4839: ,p_attribute3 => ''
4840: ,p_attribute4 => ''
4841: ,p_attribute5 => '');
4842: END IF;
4843: p_return_status := FND_API.G_RET_STS_ERROR;
4844: RAISE FND_API.G_EXC_ERROR;
4845: END IF;
4846: */
4847: -- VALIDATE THE INCOMING PARAMETERS
4840: ,p_attribute4 => ''
4841: ,p_attribute5 => '');
4842: END IF;
4843: p_return_status := FND_API.G_RET_STS_ERROR;
4844: RAISE FND_API.G_EXC_ERROR;
4845: END IF;
4846: */
4847: -- VALIDATE THE INCOMING PARAMETERS
4848:
4862: ,p_attribute3 => ''
4863: ,p_attribute4 => ''
4864: ,p_attribute5 => '');
4865: END IF;
4866: p_return_status := FND_API.G_RET_STS_ERROR;
4867: RAISE FND_API.G_EXC_ERROR;
4868: END IF;
4869:
4870: /* NOT REQUIRED
4863: ,p_attribute4 => ''
4864: ,p_attribute5 => '');
4865: END IF;
4866: p_return_status := FND_API.G_RET_STS_ERROR;
4867: RAISE FND_API.G_EXC_ERROR;
4868: END IF;
4869:
4870: /* NOT REQUIRED
4871: -- Agreement Id
4883: ,p_attribute3 => ''
4884: ,p_attribute4 => ''
4885: ,p_attribute5 => '');
4886: END IF;
4887: p_return_status := FND_API.G_RET_STS_ERROR;
4888: RAISE FND_API.G_EXC_ERROR;
4889: END IF;
4890: */
4891:
4884: ,p_attribute4 => ''
4885: ,p_attribute5 => '');
4886: END IF;
4887: p_return_status := FND_API.G_RET_STS_ERROR;
4888: RAISE FND_API.G_EXC_ERROR;
4889: END IF;
4890: */
4891:
4892: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
4896: ,p_out_agreement_id => l_out_agreement_id
4897: ,p_return_status => l_return_status);
4898: p_return_status := l_return_status;
4899:
4900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4901: THEN
4902: IF l_return_status = FND_API.G_RET_STS_ERROR
4903: THEN
4904: RAISE FND_API.G_EXC_ERROR;
4898: p_return_status := l_return_status;
4899:
4900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4901: THEN
4902: IF l_return_status = FND_API.G_RET_STS_ERROR
4903: THEN
4904: RAISE FND_API.G_EXC_ERROR;
4905: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4906: THEN
4900: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4901: THEN
4902: IF l_return_status = FND_API.G_RET_STS_ERROR
4903: THEN
4904: RAISE FND_API.G_EXC_ERROR;
4905: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4906: THEN
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: ELSE
4901: THEN
4902: IF l_return_status = FND_API.G_RET_STS_ERROR
4903: THEN
4904: RAISE FND_API.G_EXC_ERROR;
4905: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4906: THEN
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: ELSE
4909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4903: THEN
4904: RAISE FND_API.G_EXC_ERROR;
4905: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4906: THEN
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: ELSE
4909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4910: END IF;
4911: END IF;
4905: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4906: THEN
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: ELSE
4909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4910: END IF;
4911: END IF;
4912:
4913: -- CHECK IF IT IS OK TO DELETE THE AGREEMENT
4914: p_del_agree_ok_flag := pa_agreement_pvt.check_delete_agreement_ok
4915: (p_agreement_id => l_out_agreement_id
4916: ,p_pm_agreement_reference => p_pm_agreement_reference);
4917:
4918: IF FND_API.to_boolean( p_commit )
4919: THEN
4920: COMMIT;
4921: END IF;
4922:
4920: COMMIT;
4921: END IF;
4922:
4923: EXCEPTION
4924: WHEN FND_API.G_EXC_ERROR
4925: THEN
4926: ROLLBACK TO check_delete_agreement_ok_pub;
4927: p_return_status := FND_API.G_RET_STS_ERROR;
4928: FND_MSG_PUB.Count_And_Get
4923: EXCEPTION
4924: WHEN FND_API.G_EXC_ERROR
4925: THEN
4926: ROLLBACK TO check_delete_agreement_ok_pub;
4927: p_return_status := FND_API.G_RET_STS_ERROR;
4928: FND_MSG_PUB.Count_And_Get
4929: ( p_count => p_msg_count ,
4930: p_data => p_msg_data );
4931:
4928: FND_MSG_PUB.Count_And_Get
4929: ( p_count => p_msg_count ,
4930: p_data => p_msg_data );
4931:
4932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4933: THEN
4934: ROLLBACK TO check_delete_agreement_ok_pub;
4935: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4936: FND_MSG_PUB.Count_And_Get
4931:
4932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4933: THEN
4934: ROLLBACK TO check_delete_agreement_ok_pub;
4935: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4936: FND_MSG_PUB.Count_And_Get
4937: ( p_count => p_msg_count ,
4938: p_data => p_msg_data );
4939:
4939:
4940: WHEN OTHERS
4941: THEN
4942: ROLLBACK TO check_delete_agreement_ok_pub;
4943: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4945: THEN
4946: FND_MSG_PUB.add_exc_msg
4947: ( p_pkg_name => G_PKG_NAME
5009:
5010: -- Standard call to check for call compatibility.
5011:
5012:
5013: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5014: p_api_version_number ,
5015: l_api_name ,
5016: G_PKG_NAME )
5017: THEN
5015: l_api_name ,
5016: G_PKG_NAME )
5017: THEN
5018:
5019: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5020:
5021: END IF;
5022: l_resp_id := FND_GLOBAL.Resp_id;
5023:
5042: p_return_status => l_return_status,
5043: p_function_allowed => l_function_allowed
5044: );
5045:
5046: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5047: THEN
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049:
5050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5044: );
5045:
5046: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5047: THEN
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049:
5050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5051: THEN
5052: RAISE FND_API.G_EXC_ERROR;
5046: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5047: THEN
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049:
5050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5051: THEN
5052: RAISE FND_API.G_EXC_ERROR;
5053: END IF;
5054: IF l_function_allowed = 'N' THEN
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049:
5050: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5051: THEN
5052: RAISE FND_API.G_EXC_ERROR;
5053: END IF;
5054: IF l_function_allowed = 'N' THEN
5055: pa_interface_utils_pub.map_new_amg_msg
5056: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
5061: ,p_attribute2 => ''
5062: ,p_attribute3 => ''
5063: ,p_attribute4 => ''
5064: ,p_attribute5 => '');
5065: p_return_status := FND_API.G_RET_STS_ERROR;
5066: RAISE FND_API.G_EXC_ERROR;
5067: END IF;
5068:
5069: -- Initialize the message table if requested.
5062: ,p_attribute3 => ''
5063: ,p_attribute4 => ''
5064: ,p_attribute5 => '');
5065: p_return_status := FND_API.G_RET_STS_ERROR;
5066: RAISE FND_API.G_EXC_ERROR;
5067: END IF;
5068:
5069: -- Initialize the message table if requested.
5070:
5067: END IF;
5068:
5069: -- Initialize the message table if requested.
5070:
5071: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5072: THEN
5073:
5074: FND_MSG_PUB.initialize;
5075:
5076: END IF;
5077:
5078: -- Set API return status to success
5079:
5080: p_return_status := FND_API.G_RET_STS_SUCCESS;
5081:
5082: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5083:
5084: -- Agreement Reference
5097: ,p_attribute3 => ''
5098: ,p_attribute4 => ''
5099: ,p_attribute5 => '');
5100: END IF;
5101: p_return_status := FND_API.G_RET_STS_ERROR;
5102: RAISE FND_API.G_EXC_ERROR;
5103: END IF;
5104:
5105: -- Project Id
5098: ,p_attribute4 => ''
5099: ,p_attribute5 => '');
5100: END IF;
5101: p_return_status := FND_API.G_RET_STS_ERROR;
5102: RAISE FND_API.G_EXC_ERROR;
5103: END IF;
5104:
5105: -- Project Id
5106: IF (p_project_id IS NULL)
5118: ,p_attribute3 => ''
5119: ,p_attribute4 => ''
5120: ,p_attribute5 => '');
5121: END IF;
5122: p_return_status := FND_API.G_RET_STS_ERROR;
5123: RAISE FND_API.G_EXC_ERROR;
5124: END IF;
5125: /*
5126: -- Task Id
5119: ,p_attribute4 => ''
5120: ,p_attribute5 => '');
5121: END IF;
5122: p_return_status := FND_API.G_RET_STS_ERROR;
5123: RAISE FND_API.G_EXC_ERROR;
5124: END IF;
5125: /*
5126: -- Task Id
5127: IF (p_task_id IS NULL)
5139: ,p_attribute3 => ''
5140: ,p_attribute4 => ''
5141: ,p_attribute5 => '');
5142: END IF;
5143: p_return_status := FND_API.G_RET_STS_ERROR;
5144: RAISE FND_API.G_EXC_ERROR;
5145: END IF;
5146: */
5147: -- Funding Reference
5140: ,p_attribute4 => ''
5141: ,p_attribute5 => '');
5142: END IF;
5143: p_return_status := FND_API.G_RET_STS_ERROR;
5144: RAISE FND_API.G_EXC_ERROR;
5145: END IF;
5146: */
5147: -- Funding Reference
5148: IF (p_pm_funding_reference IS NULL)
5160: ,p_attribute3 => ''
5161: ,p_attribute4 => ''
5162: ,p_attribute5 => '');
5163: END IF;
5164: p_return_status := FND_API.G_RET_STS_ERROR;
5165: RAISE FND_API.G_EXC_ERROR;
5166: END IF;
5167:
5168: /* NOT REQUIRED
5161: ,p_attribute4 => ''
5162: ,p_attribute5 => '');
5163: END IF;
5164: p_return_status := FND_API.G_RET_STS_ERROR;
5165: RAISE FND_API.G_EXC_ERROR;
5166: END IF;
5167:
5168: /* NOT REQUIRED
5169: -- Funding Id
5182: ,p_attribute3 => ''
5183: ,p_attribute4 => ''
5184: ,p_attribute5 => '');
5185: END IF;
5186: p_return_status := FND_API.G_RET_STS_ERROR;
5187: RAISE FND_API.G_EXC_ERROR;
5188: END IF;
5189: */
5190:
5183: ,p_attribute4 => ''
5184: ,p_attribute5 => '');
5185: END IF;
5186: p_return_status := FND_API.G_RET_STS_ERROR;
5187: RAISE FND_API.G_EXC_ERROR;
5188: END IF;
5189: */
5190:
5191: -- VALIDATE THE INCOMING PARAMETERS
5206: ,p_attribute3 => ''
5207: ,p_attribute4 => ''
5208: ,p_attribute5 => '');
5209: END IF;
5210: p_return_status := FND_API.G_RET_STS_ERROR;
5211: RAISE FND_API.G_EXC_ERROR;
5212: END IF;
5213: /* NOT REQUIRED
5214: -- Funding Reference
5207: ,p_attribute4 => ''
5208: ,p_attribute5 => '');
5209: END IF;
5210: p_return_status := FND_API.G_RET_STS_ERROR;
5211: RAISE FND_API.G_EXC_ERROR;
5212: END IF;
5213: /* NOT REQUIRED
5214: -- Funding Reference
5215: IF pa_agreement_utils.check_valid_funding_ref(p_funding_reference => p_pm_funding_reference
5227: ,p_attribute3 => ''
5228: ,p_attribute4 => ''
5229: ,p_attribute5 => '');
5230: END IF;
5231: p_return_status := FND_API.G_RET_STS_ERROR;
5232: RAISE FND_API.G_EXC_ERROR;
5233: END IF;
5234: */
5235: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
5228: ,p_attribute4 => ''
5229: ,p_attribute5 => '');
5230: END IF;
5231: p_return_status := FND_API.G_RET_STS_ERROR;
5232: RAISE FND_API.G_EXC_ERROR;
5233: END IF;
5234: */
5235: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
5236: pa_agreement_pvt.convert_ag_ref_to_id
5239: ,p_out_agreement_id => l_out_agreement_id
5240: ,p_return_status => l_return_status);
5241: p_return_status := l_return_status;
5242:
5243: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5244: THEN
5245: IF l_return_status = FND_API.G_RET_STS_ERROR
5246: THEN
5247: RAISE FND_API.G_EXC_ERROR;
5241: p_return_status := l_return_status;
5242:
5243: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5244: THEN
5245: IF l_return_status = FND_API.G_RET_STS_ERROR
5246: THEN
5247: RAISE FND_API.G_EXC_ERROR;
5248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5249: THEN
5243: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5244: THEN
5245: IF l_return_status = FND_API.G_RET_STS_ERROR
5246: THEN
5247: RAISE FND_API.G_EXC_ERROR;
5248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5249: THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5251: ELSE
5244: THEN
5245: IF l_return_status = FND_API.G_RET_STS_ERROR
5246: THEN
5247: RAISE FND_API.G_EXC_ERROR;
5248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5249: THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5251: ELSE
5252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5246: THEN
5247: RAISE FND_API.G_EXC_ERROR;
5248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5249: THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5251: ELSE
5252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5253: END IF;
5254: END IF;
5248: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5249: THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5251: ELSE
5252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5253: END IF;
5254: END IF;
5255:
5256: -- TO BE CORRECTED - NIKHIL
5276: ,p_projfunc_rate_date => p_projfunc_rate_date
5277: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate );
5278: /* MCB2 PARAMETERS END */
5279:
5280: IF FND_API.to_boolean( p_commit )
5281: THEN
5282: COMMIT;
5283: END IF;
5284:
5282: COMMIT;
5283: END IF;
5284:
5285: EXCEPTION
5286: WHEN FND_API.G_EXC_ERROR
5287: THEN
5288: ROLLBACK TO check_add_funding_ok_pub;
5289: p_return_status := FND_API.G_RET_STS_ERROR;
5290: FND_MSG_PUB.Count_And_Get
5285: EXCEPTION
5286: WHEN FND_API.G_EXC_ERROR
5287: THEN
5288: ROLLBACK TO check_add_funding_ok_pub;
5289: p_return_status := FND_API.G_RET_STS_ERROR;
5290: FND_MSG_PUB.Count_And_Get
5291: ( p_count => p_msg_count ,
5292: p_data => p_msg_data );
5293:
5290: FND_MSG_PUB.Count_And_Get
5291: ( p_count => p_msg_count ,
5292: p_data => p_msg_data );
5293:
5294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5295: THEN
5296: ROLLBACK TO check_add_funding_ok_pub;
5297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5298: FND_MSG_PUB.Count_And_Get
5293:
5294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5295: THEN
5296: ROLLBACK TO check_add_funding_ok_pub;
5297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5298: FND_MSG_PUB.Count_And_Get
5299: ( p_count => p_msg_count ,
5300: p_data => p_msg_data );
5301:
5301:
5302: WHEN OTHERS
5303: THEN
5304: ROLLBACK TO check_add_funding_ok_pub;
5305: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5306: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5307: THEN
5308: FND_MSG_PUB.add_exc_msg
5309: ( p_pkg_name => G_PKG_NAME
5361:
5362: -- Standard call to check for call compatibility.
5363:
5364:
5365: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5366: p_api_version_number ,
5367: l_api_name ,
5368: G_PKG_NAME )
5369: THEN
5367: l_api_name ,
5368: G_PKG_NAME )
5369: THEN
5370:
5371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5372:
5373: END IF;
5374: l_resp_id := FND_GLOBAL.Resp_id;
5375:
5397: p_return_status => l_return_status,
5398: p_function_allowed => l_function_allowed
5399: );
5400:
5401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5402: THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404:
5405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5399: );
5400:
5401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5402: THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404:
5405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5406: THEN
5407: RAISE FND_API.G_EXC_ERROR;
5401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5402: THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404:
5405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5406: THEN
5407: RAISE FND_API.G_EXC_ERROR;
5408: END IF;
5409: IF l_function_allowed = 'N' THEN
5403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5404:
5405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5406: THEN
5407: RAISE FND_API.G_EXC_ERROR;
5408: END IF;
5409: IF l_function_allowed = 'N' THEN
5410: pa_interface_utils_pub.map_new_amg_msg
5411: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
5416: ,p_attribute2 => ''
5417: ,p_attribute3 => ''
5418: ,p_attribute4 => ''
5419: ,p_attribute5 => '');
5420: p_return_status := FND_API.G_RET_STS_ERROR;
5421: RAISE FND_API.G_EXC_ERROR;
5422: END IF;
5423:
5424: -- Initialize the message table if requested.
5417: ,p_attribute3 => ''
5418: ,p_attribute4 => ''
5419: ,p_attribute5 => '');
5420: p_return_status := FND_API.G_RET_STS_ERROR;
5421: RAISE FND_API.G_EXC_ERROR;
5422: END IF;
5423:
5424: -- Initialize the message table if requested.
5425:
5422: END IF;
5423:
5424: -- Initialize the message table if requested.
5425:
5426: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5427: THEN
5428:
5429: FND_MSG_PUB.initialize;
5430:
5431: END IF;
5432:
5433: -- Set API return status to success
5434:
5435: p_return_status := FND_API.G_RET_STS_SUCCESS;
5436:
5437: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5438:
5439: -- Funding Reference
5452: ,p_attribute3 => ''
5453: ,p_attribute4 => ''
5454: ,p_attribute5 => '');
5455: END IF;
5456: p_return_status := FND_API.G_RET_STS_ERROR;
5457: RAISE FND_API.G_EXC_ERROR;
5458: END IF;
5459: /* NOT REQUIRED
5460: -- Funding Id
5453: ,p_attribute4 => ''
5454: ,p_attribute5 => '');
5455: END IF;
5456: p_return_status := FND_API.G_RET_STS_ERROR;
5457: RAISE FND_API.G_EXC_ERROR;
5458: END IF;
5459: /* NOT REQUIRED
5460: -- Funding Id
5461: IF (p_funding_id IS NULL)
5473: ,p_attribute3 => ''
5474: ,p_attribute4 => ''
5475: ,p_attribute5 => '');
5476: END IF;
5477: p_return_status := FND_API.G_RET_STS_ERROR;
5478: RAISE FND_API.G_EXC_ERROR;
5479: END IF;
5480: */
5481:
5474: ,p_attribute4 => ''
5475: ,p_attribute5 => '');
5476: END IF;
5477: p_return_status := FND_API.G_RET_STS_ERROR;
5478: RAISE FND_API.G_EXC_ERROR;
5479: END IF;
5480: */
5481:
5482: -- VALIDATE THE INCOMING PARAMETERS
5499: ,p_attribute3 => ''
5500: ,p_attribute4 => ''
5501: ,p_attribute5 => '');
5502: END IF;
5503: p_return_status := FND_API.G_RET_STS_ERROR;
5504: RAISE FND_API.G_EXC_ERROR;
5505: END IF;
5506:
5507: -- Funding Id
5500: ,p_attribute4 => ''
5501: ,p_attribute5 => '');
5502: END IF;
5503: p_return_status := FND_API.G_RET_STS_ERROR;
5504: RAISE FND_API.G_EXC_ERROR;
5505: END IF;
5506:
5507: -- Funding Id
5508: IF pa_agreement_utils.check_valid_funding_id(p_agreement_id => pa_agreement_utils.get_agreement_id(p_funding_id => p_funding_id
5521: ,p_attribute3 => ''
5522: ,p_attribute4 => ''
5523: ,p_attribute5 => '');
5524: END IF;
5525: p_return_status := FND_API.G_RET_STS_ERROR;
5526: RAISE FND_API.G_EXC_ERROR;
5527: END IF;
5528:
5529: -- CALL THE CHECK DELETE FUNDING OK PRIVATE PROCEDURE
5522: ,p_attribute4 => ''
5523: ,p_attribute5 => '');
5524: END IF;
5525: p_return_status := FND_API.G_RET_STS_ERROR;
5526: RAISE FND_API.G_EXC_ERROR;
5527: END IF;
5528:
5529: -- CALL THE CHECK DELETE FUNDING OK PRIVATE PROCEDURE
5530:
5535: ,p_pm_funding_reference => p_pm_funding_reference);
5536:
5537:
5538:
5539: IF FND_API.to_boolean( p_commit )
5540: THEN
5541: COMMIT;
5542: END IF;
5543:
5542: END IF;
5543:
5544: EXCEPTION
5545:
5546: WHEN FND_API.G_EXC_ERROR
5547: THEN
5548: ROLLBACK TO check_delete_funding_ok_pub;
5549:
5550: p_return_status := FND_API.G_RET_STS_ERROR;
5546: WHEN FND_API.G_EXC_ERROR
5547: THEN
5548: ROLLBACK TO check_delete_funding_ok_pub;
5549:
5550: p_return_status := FND_API.G_RET_STS_ERROR;
5551:
5552:
5553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5554: THEN
5549:
5550: p_return_status := FND_API.G_RET_STS_ERROR;
5551:
5552:
5553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5554: THEN
5555: ROLLBACK TO check_delete_funding_ok_pub;
5556:
5557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5554: THEN
5555: ROLLBACK TO check_delete_funding_ok_pub;
5556:
5557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5558:
5559:
5560: WHEN OTHERS
5561: THEN
5560: WHEN OTHERS
5561: THEN
5562: ROLLBACK TO check_delete_funding_ok_pub;
5563:
5564: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5565:
5566: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5567: THEN
5568: FND_MSG_PUB.add_exc_msg
5647:
5648: -- Standard call to check for call compatibility.
5649:
5650:
5651: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5652: p_api_version_number ,
5653: l_api_name ,
5654: G_PKG_NAME )
5655: THEN
5653: l_api_name ,
5654: G_PKG_NAME )
5655: THEN
5656:
5657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5658:
5659: END IF;
5660: l_resp_id := FND_GLOBAL.Resp_id;
5661:
5679: p_return_status => l_return_status,
5680: p_function_allowed => l_function_allowed
5681: );
5682:
5683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5684: THEN
5685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5686:
5687: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5681: );
5682:
5683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5684: THEN
5685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5686:
5687: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5688: THEN
5689: RAISE FND_API.G_EXC_ERROR;
5683: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5684: THEN
5685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5686:
5687: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5688: THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691: IF l_function_allowed = 'N' THEN
5685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5686:
5687: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5688: THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691: IF l_function_allowed = 'N' THEN
5692: pa_interface_utils_pub.map_new_amg_msg
5693: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
5698: ,p_attribute2 => ''
5699: ,p_attribute3 => ''
5700: ,p_attribute4 => ''
5701: ,p_attribute5 => '');
5702: p_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: END IF;
5705:
5706: -- Initialize the message table if requested.
5699: ,p_attribute3 => ''
5700: ,p_attribute4 => ''
5701: ,p_attribute5 => '');
5702: p_return_status := FND_API.G_RET_STS_ERROR;
5703: RAISE FND_API.G_EXC_ERROR;
5704: END IF;
5705:
5706: -- Initialize the message table if requested.
5707:
5704: END IF;
5705:
5706: -- Initialize the message table if requested.
5707:
5708: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5709: THEN
5710:
5711: FND_MSG_PUB.initialize;
5712:
5713: END IF;
5714:
5715: -- Set API return status to success
5716:
5717: p_return_status := FND_API.G_RET_STS_SUCCESS;
5718:
5719: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5720:
5721: -- Funding Reference
5734: ,p_attribute3 => ''
5735: ,p_attribute4 => ''
5736: ,p_attribute5 => '');
5737: END IF;
5738: p_return_status := FND_API.G_RET_STS_ERROR;
5739: RAISE FND_API.G_EXC_ERROR;
5740: END IF;
5741:
5742: -- Funding Id
5735: ,p_attribute4 => ''
5736: ,p_attribute5 => '');
5737: END IF;
5738: p_return_status := FND_API.G_RET_STS_ERROR;
5739: RAISE FND_API.G_EXC_ERROR;
5740: END IF;
5741:
5742: -- Funding Id
5743: IF (p_funding_id IS NULL)
5755: ,p_attribute3 => ''
5756: ,p_attribute4 => ''
5757: ,p_attribute5 => '');
5758: END IF;
5759: p_return_status := FND_API.G_RET_STS_ERROR;
5760: RAISE FND_API.G_EXC_ERROR;
5761: END IF;
5762:
5763: -- VALIDATE THE INCOMING PARAMETERS
5756: ,p_attribute4 => ''
5757: ,p_attribute5 => '');
5758: END IF;
5759: p_return_status := FND_API.G_RET_STS_ERROR;
5760: RAISE FND_API.G_EXC_ERROR;
5761: END IF;
5762:
5763: -- VALIDATE THE INCOMING PARAMETERS
5764:
5778: ,p_attribute3 => ''
5779: ,p_attribute4 => ''
5780: ,p_attribute5 => '');
5781: END IF;
5782: p_return_status := FND_API.G_RET_STS_ERROR;
5783: RAISE FND_API.G_EXC_ERROR;
5784: END IF;
5785:
5786: -- Agreement Id
5779: ,p_attribute4 => ''
5780: ,p_attribute5 => '');
5781: END IF;
5782: p_return_status := FND_API.G_RET_STS_ERROR;
5783: RAISE FND_API.G_EXC_ERROR;
5784: END IF;
5785:
5786: -- Agreement Id
5787: IF pa_agreement_utils.check_valid_agreement_id
5799: ,p_attribute3 => ''
5800: ,p_attribute4 => ''
5801: ,p_attribute5 => '');
5802: END IF;
5803: p_return_status := FND_API.G_RET_STS_ERROR;
5804: RAISE FND_API.G_EXC_ERROR;
5805: END IF;
5806:
5807: -- Flex Field Validations
5800: ,p_attribute4 => ''
5801: ,p_attribute5 => '');
5802: END IF;
5803: p_return_status := FND_API.G_RET_STS_ERROR;
5804: RAISE FND_API.G_EXC_ERROR;
5805: END IF;
5806:
5807: -- Flex Field Validations
5808: pa_agreement_pvt.validate_flex_fields
5836: ,p_attribute3 => ''
5837: ,p_attribute4 => ''
5838: ,p_attribute5 => '');
5839: END IF;
5840: p_return_status := FND_API.G_RET_STS_ERROR;
5841: RAISE FND_API.G_EXC_ERROR;
5842: END IF;
5843:
5844:
5837: ,p_attribute4 => ''
5838: ,p_attribute5 => '');
5839: END IF;
5840: p_return_status := FND_API.G_RET_STS_ERROR;
5841: RAISE FND_API.G_EXC_ERROR;
5842: END IF;
5843:
5844:
5845: -- CALL THE CHECK UPDATE FUNDING OK PRIVATE PROCEDURE
5861: ,p_projfunc_rate_date => p_projfunc_rate_date
5862: ,p_projfunc_exchange_rate => p_projfunc_exchange_rate );
5863: /* MCB2 PARAMETERS END */
5864:
5865: IF FND_API.to_boolean( p_commit )
5866: THEN
5867: COMMIT;
5868: END IF;
5869:
5868: END IF;
5869:
5870: EXCEPTION
5871:
5872: WHEN FND_API.G_EXC_ERROR
5873: THEN
5874: ROLLBACK TO check_update_funding_ok_pub;
5875:
5876: p_return_status := FND_API.G_RET_STS_ERROR;
5872: WHEN FND_API.G_EXC_ERROR
5873: THEN
5874: ROLLBACK TO check_update_funding_ok_pub;
5875:
5876: p_return_status := FND_API.G_RET_STS_ERROR;
5877:
5878:
5879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5880: THEN
5875:
5876: p_return_status := FND_API.G_RET_STS_ERROR;
5877:
5878:
5879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5880: THEN
5881: ROLLBACK TO check_update_funding_ok_pub;
5882:
5883: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5879: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5880: THEN
5881: ROLLBACK TO check_update_funding_ok_pub;
5882:
5883: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5884:
5885:
5886: WHEN OTHERS
5887: THEN
5886: WHEN OTHERS
5887: THEN
5888: ROLLBACK TO check_update_funding_ok_pub;
5889:
5890: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5891:
5892: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5893: THEN
5894: FND_MSG_PUB.add_exc_msg
5902:
5903:
5904: PROCEDURE create_baseline_budget
5905: ( p_api_version_number IN NUMBER
5906: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5907: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5908: ,p_msg_count OUT NOCOPY NUMBER /*File.sql.39*/
5909: ,p_msg_data OUT NOCOPY VARCHAR2 /*File.sql.39*/
5910: ,p_return_status OUT NOCOPY VARCHAR2 /*File.sql.39*/
5903:
5904: PROCEDURE create_baseline_budget
5905: ( p_api_version_number IN NUMBER
5906: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5907: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5908: ,p_msg_count OUT NOCOPY NUMBER /*File.sql.39*/
5909: ,p_msg_data OUT NOCOPY VARCHAR2 /*File.sql.39*/
5910: ,p_return_status OUT NOCOPY VARCHAR2 /*File.sql.39*/
5911: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6062:
6063: SAVEPOINT Create_Budget_From_funding;
6064: -- Initializing the return status to success ! -- bug 3099706
6065: -- Set API return status to success
6066: p_return_status := FND_API.G_RET_STS_SUCCESS;
6067:
6068: -- Standard call to check for call compatibility.
6069: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6070: THEN
6065: -- Set API return status to success
6066: p_return_status := FND_API.G_RET_STS_SUCCESS;
6067:
6068: -- Standard call to check for call compatibility.
6069: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6070: THEN
6071:
6072: FND_MSG_PUB.initialize;
6073:
6073:
6074: END IF;
6075:
6076:
6077: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6078: p_api_version_number ,
6079: l_api_name ,
6080: G_PKG_NAME )
6081: THEN
6079: l_api_name ,
6080: G_PKG_NAME )
6081: THEN
6082:
6083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6084:
6085: END IF;
6086: l_resp_id := FND_GLOBAL.Resp_id;
6087:
6090: p_pa_project_id => p_pa_project_id,
6091: p_out_project_id => l_project_id,
6092: p_return_status => l_return_status );
6093:
6094: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6095: THEN
6096: p_return_status := l_return_status;
6097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6098:
6093:
6094: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6095: THEN
6096: p_return_status := l_return_status;
6097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6098:
6099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6100: THEN
6101: p_return_status := l_return_status;
6095: THEN
6096: p_return_status := l_return_status;
6097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6098:
6099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6100: THEN
6101: p_return_status := l_return_status;
6102: RAISE FND_API.G_EXC_ERROR;
6103:
6098:
6099: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6100: THEN
6101: p_return_status := l_return_status;
6102: RAISE FND_API.G_EXC_ERROR;
6103:
6104: END IF;
6105:
6106: IF (PA_FUNDING_CORE.CHECK_PROJECT_TYPE(l_project_id)) = 'N' THEN
6103:
6104: END IF;
6105:
6106: IF (PA_FUNDING_CORE.CHECK_PROJECT_TYPE(l_project_id)) = 'N' THEN
6107: p_return_status := FND_API.G_RET_STS_ERROR;
6108:
6109: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6110: THEN
6111: pa_interface_utils_pub.map_new_amg_msg
6132: CLOSE proj_dates;
6133:
6134: IF (proj_dates_rec.completion_date is null or proj_dates_rec.start_date is null) then
6135: -- Set API return status to success
6136: P_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6137:
6138: pa_interface_utils_pub.map_new_amg_msg
6139: ( p_old_message_code => 'PA_BU_NO_PROJ_END_DATE'
6140: ,p_msg_attribute => 'CHANGE'
6145: ,p_attribute3 => null
6146: ,p_attribute4 => ''
6147: ,p_attribute5 => '');
6148:
6149: RAISE FND_API.G_EXC_ERROR;
6150: END IF;
6151:
6152: IF proj_dates_rec.baseline_funding_flag = 'N' then
6153:
6151:
6152: IF proj_dates_rec.baseline_funding_flag = 'N' then
6153:
6154:
6155: P_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
6156:
6157: pa_interface_utils_pub.map_new_amg_msg
6158: ( p_old_message_code => 'PA_NO_BASELINE_FUNDING'
6159: ,p_msg_attribute => 'CHANGE'
6164: ,p_attribute3 => null
6165: ,p_attribute4 => ''
6166: ,p_attribute5 => '');
6167:
6168: RAISE FND_API.G_EXC_ERROR;
6169:
6170: END IF;
6171:
6172:
6189: ,p_attribute3 => l_funding_level
6190: ,p_attribute4 => ''
6191: ,p_attribute5 => '');
6192:
6193: RAISE FND_API.G_EXC_ERROR;
6194:
6195: END IF;
6196:
6197:
6228: -- dbms_output.put_line('about to call create_draft_budget ... '||l_budget_entry_method_code||' '||l_project_id||' '||p_budget_version_name);
6229:
6230: /* Commented for bug 4941046
6231: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
6232: ,p_commit => FND_API.G_FALSE
6233: ,p_init_msg_list => FND_API.G_FALSE
6234: ,p_msg_count => p_msg_count
6235: ,p_msg_data => p_msg_data
6236: ,p_return_status => l_return_status
6229:
6230: /* Commented for bug 4941046
6231: pa_budget_pub.create_draft_budget( p_api_version_number => p_api_version_number
6232: ,p_commit => FND_API.G_FALSE
6233: ,p_init_msg_list => FND_API.G_FALSE
6234: ,p_msg_count => p_msg_count
6235: ,p_msg_data => p_msg_data
6236: ,p_return_status => l_return_status
6237: ,p_pm_product_code => p_pm_product_code
6264: ,p_budget_lines_out => l_budget_lines_out_tbl);*/
6265:
6266: --WRAPPER API CALL ADDED FOR BUG 4941046
6267: pa_fin_plan_utils.create_draft_budget_wrp( p_api_version_number => p_api_version_number
6268: ,p_commit => FND_API.G_FALSE
6269: ,p_init_msg_list => FND_API.G_FALSE
6270: ,p_msg_count => p_msg_count
6271: ,p_msg_data => p_msg_data
6272: ,p_return_status => l_return_status
6265:
6266: --WRAPPER API CALL ADDED FOR BUG 4941046
6267: pa_fin_plan_utils.create_draft_budget_wrp( p_api_version_number => p_api_version_number
6268: ,p_commit => FND_API.G_FALSE
6269: ,p_init_msg_list => FND_API.G_FALSE
6270: ,p_msg_count => p_msg_count
6271: ,p_msg_data => p_msg_data
6272: ,p_return_status => l_return_status
6273: ,p_pm_product_code => p_pm_product_code
6301: ,p_create_new_curr_working_flag => p_create_new_curr_working_flag /* Added for bug#9892202 */
6302: ,p_replace_current_working_flag => p_replace_current_working_flag); /* Added for bug#9892202 */
6303:
6304: -- dbms_output.put_line('returned from create_draft ... status = '||l_return_status);
6305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6306: THEN
6307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6308:
6309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6303:
6304: -- dbms_output.put_line('returned from create_draft ... status = '||l_return_status);
6305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6306: THEN
6307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6308:
6309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6310: THEN
6311: RAISE FND_API.G_EXC_ERROR;
6305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6306: THEN
6307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6308:
6309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6310: THEN
6311: RAISE FND_API.G_EXC_ERROR;
6312: END IF;
6313:
6307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6308:
6309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6310: THEN
6311: RAISE FND_API.G_EXC_ERROR;
6312: END IF;
6313:
6314: -- dbms_output.put_line('about to call baseline_budget ... ');
6315: -- 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);
6318: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
6319:
6320: PA_BUDGET_PUB.BASELINE_BUDGET
6321: ( p_api_version_number => p_api_version_number
6322: ,p_commit => FND_API.G_FALSE
6323: ,p_init_msg_list => FND_API.G_FALSE
6324: ,p_msg_count => p_msg_count
6325: ,p_msg_data => p_msg_data
6326: ,p_return_status => l_return_status
6319:
6320: PA_BUDGET_PUB.BASELINE_BUDGET
6321: ( p_api_version_number => p_api_version_number
6322: ,p_commit => FND_API.G_FALSE
6323: ,p_init_msg_list => FND_API.G_FALSE
6324: ,p_msg_count => p_msg_count
6325: ,p_msg_data => p_msg_data
6326: ,p_return_status => l_return_status
6327: ,p_workflow_started => l_workflow_started
6336: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
6337: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
6338: END IF;
6339:
6340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6341: THEN
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343:
6344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6338: END IF;
6339:
6340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6341: THEN
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343:
6344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6345: THEN
6346: RAISE FND_API.G_EXC_ERROR;
6340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6341: THEN
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343:
6344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6345: THEN
6346: RAISE FND_API.G_EXC_ERROR;
6347: END IF; End of comment for bug 4941046 */
6348:
6342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6343:
6344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6345: THEN
6346: RAISE FND_API.G_EXC_ERROR;
6347: END IF; End of comment for bug 4941046 */
6348:
6349:
6350: IF FND_API.to_boolean( p_commit )
6346: RAISE FND_API.G_EXC_ERROR;
6347: END IF; End of comment for bug 4941046 */
6348:
6349:
6350: IF FND_API.to_boolean( p_commit )
6351: THEN
6352: COMMIT;
6353: END IF;
6354:
6352: COMMIT;
6353: END IF;
6354:
6355: EXCEPTION
6356: WHEN FND_API.G_EXC_ERROR
6357: THEN
6358: ROLLBACK TO Create_Budget_From_funding;
6359: p_return_status := FND_API.G_RET_STS_ERROR;
6360: FND_MSG_PUB.Count_And_Get
6355: EXCEPTION
6356: WHEN FND_API.G_EXC_ERROR
6357: THEN
6358: ROLLBACK TO Create_Budget_From_funding;
6359: p_return_status := FND_API.G_RET_STS_ERROR;
6360: FND_MSG_PUB.Count_And_Get
6361: ( p_count => p_msg_count ,
6362: p_data => p_msg_data );
6363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6359: p_return_status := FND_API.G_RET_STS_ERROR;
6360: FND_MSG_PUB.Count_And_Get
6361: ( p_count => p_msg_count ,
6362: p_data => p_msg_data );
6363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6364: THEN
6365: ROLLBACK TO Create_Budget_From_funding;
6366: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6367: FND_MSG_PUB.Count_And_Get
6362: p_data => p_msg_data );
6363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
6364: THEN
6365: ROLLBACK TO Create_Budget_From_funding;
6366: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6367: FND_MSG_PUB.Count_And_Get
6368: ( p_count => p_msg_count ,
6369: p_data => p_msg_data );
6370:
6370:
6371: WHEN OTHERS
6372: THEN
6373: ROLLBACK TO Create_Budget_From_funding;
6374: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6376: THEN
6377: FND_MSG_PUB.add_exc_msg
6378: ( p_pkg_name => G_PKG_NAME