[Home] [Help]
16: --Description: This procedure can be used to create an agreement for an
17: -- existing project or template.
18: --
19: --Called subprograms:
20: -- pa_interface_utils_pub.map_new_amg_msg
21: -- pa_agreement_pub.check_create_agreement_ok
22: -- pa_agreement_utils.validate_flex_fields
23: -- pa_agreement_pvt.convert_ag_ref_to_id
24: -- pa_agreement_utils.create_agreement
34: -- update_agreement procedure.
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*/
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
45: ,p_agreement_in_rec IN Agreement_Rec_In_Type
46: ,p_agreement_out_rec OUT NOCOPY Agreement_Rec_Out_Type /*file.sql.39*/
47: ,p_funding_in_tbl IN funding_in_tbl_type
48: ,p_funding_out_tbl OUT NOCOPY funding_out_tbl_type /*File.sql.39*/
118: END IF;
119:
120:
121: IF l_function_allowed = 'N' THEN
122: pa_interface_utils_pub.map_new_amg_msg
123: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
124: ,p_msg_attribute => 'CHANGE'
125: ,p_resize_flag => 'Y'
126: ,p_msg_context => 'GENERAL'
150: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
151:
152: -- Product Code
153: IF (p_pm_product_code IS NULL)
154: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
155: THEN
156: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
157: THEN
158: pa_interface_utils_pub.map_new_amg_msg
154: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
155: THEN
156: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
157: THEN
158: pa_interface_utils_pub.map_new_amg_msg
159: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISS'
160: ,p_msg_attribute => 'CHANGE'
161: ,p_resize_flag => 'N'
162: ,p_msg_context => 'GENERAL'
172: END IF;
173:
174: -- Agreement Reference
175: IF (p_agreement_in_rec.pm_agreement_reference IS NULL)
176: OR (p_agreement_in_rec.pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
177: THEN
178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
179: THEN
180: pa_interface_utils_pub.map_new_amg_msg
176: OR (p_agreement_in_rec.pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
177: THEN
178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
179: THEN
180: pa_interface_utils_pub.map_new_amg_msg
181: ( p_old_message_code => 'PA_AGMT_REF_IS_MISS'
182: ,p_msg_attribute => 'CHANGE'
183: ,p_resize_flag => 'N'
184: ,p_msg_context => 'GENERAL'
194: END IF;
195:
196: -- Agreement Number
197: IF (p_agreement_in_rec.agreement_num IS NULL)
198: OR (p_agreement_in_rec.agreement_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
199: THEN
200: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
201: THEN
202: pa_interface_utils_pub.map_new_amg_msg
198: OR (p_agreement_in_rec.agreement_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
199: THEN
200: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
201: THEN
202: pa_interface_utils_pub.map_new_amg_msg
203: ( p_old_message_code => 'PA_AGMT_NUM_IS_MISS'
204: ,p_msg_attribute => 'CHANGE'
205: ,p_resize_flag => 'N'
206: ,p_msg_context => 'AGREEMENT'
217:
218: -- Customer Id
219:
220: IF (p_agreement_in_rec.customer_id IS NULL)
221: OR (p_agreement_in_rec.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
222: THEN
223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
224: THEN
225: pa_interface_utils_pub.map_new_amg_msg
221: OR (p_agreement_in_rec.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
222: THEN
223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
224: THEN
225: pa_interface_utils_pub.map_new_amg_msg
226: ( p_old_message_code => 'PA_CUST_ID_IS_MISS'
227: ,p_msg_attribute => 'CHANGE'
228: ,p_resize_flag => 'N'
229: ,p_msg_context => 'AGREEMENT'
239: END IF;
240:
241: -- Customer Number
242: IF (p_agreement_in_rec.customer_num IS NULL)
243: OR (p_agreement_in_rec.customer_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
244: THEN
245: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
246: THEN
247: pa_interface_utils_pub.map_new_amg_msg
243: OR (p_agreement_in_rec.customer_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
244: THEN
245: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
246: THEN
247: pa_interface_utils_pub.map_new_amg_msg
248: ( p_old_message_code => 'PA_CUST_NUM_IS_MISS'
249: ,p_msg_attribute => 'CHANGE'
250: ,p_resize_flag => 'N'
251: ,p_msg_context => 'AGREEMENT'
261: END IF;
262:
263: -- Agreement Type
264: IF (p_agreement_in_rec.agreement_type IS NULL)
265: OR (p_agreement_in_rec.agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
266: THEN
267: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
268: THEN
269: pa_interface_utils_pub.map_new_amg_msg
265: OR (p_agreement_in_rec.agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
266: THEN
267: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
268: THEN
269: pa_interface_utils_pub.map_new_amg_msg
270: ( p_old_message_code => 'PA_AGMT_TYPE_IS_MISS'
271: ,p_msg_attribute => 'CHANGE'
272: ,p_resize_flag => 'N'
273: ,p_msg_context => 'AGREEMENT'
283: END IF;
284:
285: -- Term Id
286: IF (p_agreement_in_rec.term_id IS NULL)
287: OR (p_agreement_in_rec.term_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
288: THEN
289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
290: THEN
291: pa_interface_utils_pub.map_new_amg_msg
287: OR (p_agreement_in_rec.term_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
288: THEN
289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
290: THEN
291: pa_interface_utils_pub.map_new_amg_msg
292: ( p_old_message_code => 'PA_TERM_ID_IS_MISS'
293: ,p_msg_attribute => 'CHANGE'
294: ,p_resize_flag => 'N'
295: ,p_msg_context => 'AGREEMENT'
305: END IF;
306: /*
307: -- Template Flag
308: IF (p_agreement_in_rec.template_flag IS NULL)
309: OR (p_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
310: THEN
311: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
312: THEN
313: pa_interface_utils_pub.map_new_amg_msg
309: OR (p_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
310: THEN
311: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
312: THEN
313: pa_interface_utils_pub.map_new_amg_msg
314: ( p_old_message_code => 'PA_TEMP_FLG_IS_MISS'
315: ,p_msg_attribute => 'CHANGE'
316: ,p_resize_flag => 'N'
317: ,p_msg_context => 'AGREEMENT'
327: END IF;
328: */
329: -- Revenue Limit Flag
330: IF (p_agreement_in_rec.revenue_limit_flag IS NULL)
331: OR (p_agreement_in_rec.revenue_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
332: THEN
333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
334: THEN
335: pa_interface_utils_pub.map_new_amg_msg
331: OR (p_agreement_in_rec.revenue_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
332: THEN
333: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
334: THEN
335: pa_interface_utils_pub.map_new_amg_msg
336: ( p_old_message_code => 'PA_REV_LT_FLG_IS_MISS'
337: ,p_msg_attribute => 'CHANGE'
338: ,p_resize_flag => 'N'
339: ,p_msg_context => 'AGREEMENT'
349: END IF;
350:
351: -- Owned By Person Id
352: IF (p_agreement_in_rec.owned_by_person_id IS NULL)
353: OR (p_agreement_in_rec.owned_by_person_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
354: THEN
355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
356: THEN
357: pa_interface_utils_pub.map_new_amg_msg
353: OR (p_agreement_in_rec.owned_by_person_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
354: THEN
355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
356: THEN
357: pa_interface_utils_pub.map_new_amg_msg
358: ( p_old_message_code => 'PA_OWND_BY_PRSN_ID_MISS'
359: ,p_msg_attribute => 'CHANGE'
360: ,p_resize_flag => 'N'
361: ,p_msg_context => 'AGREEMENT'
371: END IF;
372:
373: -- Amount
374: IF (p_agreement_in_rec.amount IS NULL)
375: OR (p_agreement_in_rec.amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
376: THEN
377: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
378: THEN
379: pa_interface_utils_pub.map_new_amg_msg
375: OR (p_agreement_in_rec.amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
376: THEN
377: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
378: THEN
379: pa_interface_utils_pub.map_new_amg_msg
380: ( p_old_message_code => 'PA_ALLOC_AMT_IS_MISS_AMG'
381: ,p_msg_attribute => 'CHANGE'
382: ,p_resize_flag => 'N'
383: ,p_msg_context => 'AGREEMENT'
421: -- Flex Field Validations
422:
423: IF (p_agreement_in_rec.desc_flex_name IS NOT NULL)
424:
425: AND (p_agreement_in_rec.desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
426: THEN
427: /*Changed for federal*/
428: pa_agreement_pvt.validate_flex_fields
429: (p_desc_flex_name => p_agreement_in_rec.desc_flex_name
459: IF l_validate_status = 'N'
460: THEN
461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
462: THEN
463: pa_interface_utils_pub.map_new_amg_msg
464: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
465: ,p_msg_attribute => 'CHANGE'
466: ,p_resize_flag => 'N'
467: ,p_msg_context => 'FLEX'
499: */
500:
501: l_agreement_in_rec := p_agreement_in_rec;
502:
503: IF l_agreement_in_rec.expiration_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE Then
504: l_agreement_in_rec.expiration_date := NULL;
505: END IF;
506:
507: IF l_agreement_in_rec.description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
503: IF l_agreement_in_rec.expiration_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE Then
504: l_agreement_in_rec.expiration_date := NULL;
505: END IF;
506:
507: IF l_agreement_in_rec.description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
508: l_agreement_in_rec.description := NULL;
509: END IF;
510:
511: IF l_agreement_in_rec.desc_flex_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
507: IF l_agreement_in_rec.description = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
508: l_agreement_in_rec.description := NULL;
509: END IF;
510:
511: IF l_agreement_in_rec.desc_flex_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
512: l_agreement_in_rec.desc_flex_name := NULL;
513: END IF;
514:
515: IF l_agreement_in_rec.attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
511: IF l_agreement_in_rec.desc_flex_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
512: l_agreement_in_rec.desc_flex_name := NULL;
513: END IF;
514:
515: IF l_agreement_in_rec.attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
516: l_agreement_in_rec.attribute_category := NULL;
517: END IF;
518: IF l_agreement_in_rec.attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
519: l_agreement_in_rec.attribute1 := NULL;
514:
515: IF l_agreement_in_rec.attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
516: l_agreement_in_rec.attribute_category := NULL;
517: END IF;
518: IF l_agreement_in_rec.attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
519: l_agreement_in_rec.attribute1 := NULL;
520: END IF;
521:
522: IF l_agreement_in_rec.attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
518: IF l_agreement_in_rec.attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
519: l_agreement_in_rec.attribute1 := NULL;
520: END IF;
521:
522: IF l_agreement_in_rec.attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
523: l_agreement_in_rec.attribute2 := NULL;
524: END IF;
525: IF l_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
526: l_agreement_in_rec.template_flag := NULL;
521:
522: IF l_agreement_in_rec.attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
523: l_agreement_in_rec.attribute2 := NULL;
524: END IF;
525: IF l_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
526: l_agreement_in_rec.template_flag := NULL;
527: END IF;
528:
529: IF l_agreement_in_rec.attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
525: IF l_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
526: l_agreement_in_rec.template_flag := NULL;
527: END IF;
528:
529: IF l_agreement_in_rec.attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
530: l_agreement_in_rec.attribute3 := NULL;
531: END IF;
532: IF l_agreement_in_rec.attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
533: l_agreement_in_rec.attribute4 := NULL;
528:
529: IF l_agreement_in_rec.attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
530: l_agreement_in_rec.attribute3 := NULL;
531: END IF;
532: IF l_agreement_in_rec.attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
533: l_agreement_in_rec.attribute4 := NULL;
534: END IF;
535: IF l_agreement_in_rec.attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
536: l_agreement_in_rec.attribute5 := NULL;
531: END IF;
532: IF l_agreement_in_rec.attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
533: l_agreement_in_rec.attribute4 := NULL;
534: END IF;
535: IF l_agreement_in_rec.attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
536: l_agreement_in_rec.attribute5 := NULL;
537: END IF;
538: IF l_agreement_in_rec.attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
539: l_agreement_in_rec.attribute6 := NULL;
534: END IF;
535: IF l_agreement_in_rec.attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
536: l_agreement_in_rec.attribute5 := NULL;
537: END IF;
538: IF l_agreement_in_rec.attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
539: l_agreement_in_rec.attribute6 := NULL;
540: END IF;
541: IF l_agreement_in_rec.attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
542: l_agreement_in_rec.attribute7 := NULL;
537: END IF;
538: IF l_agreement_in_rec.attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
539: l_agreement_in_rec.attribute6 := NULL;
540: END IF;
541: IF l_agreement_in_rec.attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
542: l_agreement_in_rec.attribute7 := NULL;
543: END IF;
544: IF l_agreement_in_rec.attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
545: l_agreement_in_rec.attribute8 := NULL;
540: END IF;
541: IF l_agreement_in_rec.attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
542: l_agreement_in_rec.attribute7 := NULL;
543: END IF;
544: IF l_agreement_in_rec.attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
545: l_agreement_in_rec.attribute8 := NULL;
546: END IF;
547: IF l_agreement_in_rec.attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
548: l_agreement_in_rec.attribute9 := NULL;
543: END IF;
544: IF l_agreement_in_rec.attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
545: l_agreement_in_rec.attribute8 := NULL;
546: END IF;
547: IF l_agreement_in_rec.attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
548: l_agreement_in_rec.attribute9 := NULL;
549: END IF;
550: IF l_agreement_in_rec.attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
551: l_agreement_in_rec.attribute10 := NULL;
546: END IF;
547: IF l_agreement_in_rec.attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
548: l_agreement_in_rec.attribute9 := NULL;
549: END IF;
550: IF l_agreement_in_rec.attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
551: l_agreement_in_rec.attribute10 := NULL;
552: END IF;
553:
554: IF l_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
550: IF l_agreement_in_rec.attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
551: l_agreement_in_rec.attribute10 := NULL;
552: END IF;
553:
554: IF l_agreement_in_rec.template_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
555: l_agreement_in_rec.template_flag := NULL;
556: END IF;
557:
558: /* Start Bug 2701579 Initialized owning_organization_id,invoice_limit_flag
556: END IF;
557:
558: /* Start Bug 2701579 Initialized owning_organization_id,invoice_limit_flag
559: and agreement_currency_code */
560: IF l_agreement_in_rec.owning_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
561: l_agreement_in_rec.owning_organization_id := NULL;
562: END IF;
563:
564: IF l_agreement_in_rec.invoice_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
560: IF l_agreement_in_rec.owning_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
561: l_agreement_in_rec.owning_organization_id := NULL;
562: END IF;
563:
564: IF l_agreement_in_rec.invoice_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
565: l_agreement_in_rec.invoice_limit_flag := 'N';
566: END IF;
567:
568: IF l_agreement_in_rec.agreement_currency_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
564: IF l_agreement_in_rec.invoice_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
565: l_agreement_in_rec.invoice_limit_flag := 'N';
566: END IF;
567:
568: IF l_agreement_in_rec.agreement_currency_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
569: SELECT pa_currency.get_currency_code
570: INTO l_agreement_in_rec.agreement_currency_code from dual;
571: END IF;
572: /* End- Bug 2701579 */
572: /* End- Bug 2701579 */
573:
574: /*Federal*/
575:
576: IF l_agreement_in_rec.customer_order_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
577: l_agreement_in_rec.customer_order_number := NULL;
578: END IF;
579:
580: /* Code commented for bug 5743599 syarts
577: l_agreement_in_rec.customer_order_number := NULL;
578: END IF;
579:
580: /* Code commented for bug 5743599 syarts
581: IF l_agreement_in_rec.Advance_required = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
582: l_agreement_in_rec.Advance_required := 'N';
583: END IF;
584: Code commented for bug 5743599 ends */
585:
598: END IF;
599: ELSE
600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
601: THEN
602: pa_interface_utils_pub.map_new_amg_msg
603: ( p_old_message_code => 'PA_CLNT_ADV_CHECK'
604: ,p_msg_attribute => 'CHANGE'
605: ,p_resize_flag => 'N'
606: ,p_msg_context => 'AGREEMENT'
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
619:
620: IF (FND_FUNCTION.TEST('PA_PAXINEAG_ADVREQ')) THEN
621: null;
622: ELSE
627: END IF;
628:
629: /* Code Added for bug 5743599 ends */
630:
631: IF l_agreement_in_rec.start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE Then
632: l_agreement_in_rec.start_date := NULL;
633: END IF;
634:
635: IF l_agreement_in_rec.Billing_sequence = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
631: IF l_agreement_in_rec.start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE Then
632: l_agreement_in_rec.start_date := NULL;
633: END IF;
634:
635: IF l_agreement_in_rec.Billing_sequence = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
636: l_agreement_in_rec.Billing_sequence := NUll;
637: END IF;
638:
639: IF l_agreement_in_rec.line_of_account = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
635: IF l_agreement_in_rec.Billing_sequence = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
636: l_agreement_in_rec.Billing_sequence := NUll;
637: END IF;
638:
639: IF l_agreement_in_rec.line_of_account = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
640: l_agreement_in_rec.line_of_account := NULL;
641: END IF;
642:
643: IF l_agreement_in_rec.attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
639: IF l_agreement_in_rec.line_of_account = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
640: l_agreement_in_rec.line_of_account := NULL;
641: END IF;
642:
643: IF l_agreement_in_rec.attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
644: l_agreement_in_rec.attribute11 := NULL;
645: END IF;
646:
647: IF l_agreement_in_rec.attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
643: IF l_agreement_in_rec.attribute11 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
644: l_agreement_in_rec.attribute11 := NULL;
645: END IF;
646:
647: IF l_agreement_in_rec.attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
648: l_agreement_in_rec.attribute12 := NULL;
649: END IF;
650:
651: IF l_agreement_in_rec.attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
647: IF l_agreement_in_rec.attribute12 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
648: l_agreement_in_rec.attribute12 := NULL;
649: END IF;
650:
651: IF l_agreement_in_rec.attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
652: l_agreement_in_rec.attribute13 := NULL;
653: END IF;
654:
655: IF l_agreement_in_rec.attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
651: IF l_agreement_in_rec.attribute13 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
652: l_agreement_in_rec.attribute13 := NULL;
653: END IF;
654:
655: IF l_agreement_in_rec.attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
656: l_agreement_in_rec.attribute14 := NULL;
657: END IF;
658:
659: IF l_agreement_in_rec.attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
655: IF l_agreement_in_rec.attribute14 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
656: l_agreement_in_rec.attribute14 := NULL;
657: END IF;
658:
659: IF l_agreement_in_rec.attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
660: l_agreement_in_rec.attribute15 := NULL;
661: END IF;
662:
663: IF l_agreement_in_rec.attribute16 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
659: IF l_agreement_in_rec.attribute15 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
660: l_agreement_in_rec.attribute15 := NULL;
661: END IF;
662:
663: IF l_agreement_in_rec.attribute16 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
664: l_agreement_in_rec.attribute16 := NULL;
665: END IF;
666:
667: IF l_agreement_in_rec.attribute17 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
663: IF l_agreement_in_rec.attribute16 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
664: l_agreement_in_rec.attribute16 := NULL;
665: END IF;
666:
667: IF l_agreement_in_rec.attribute17 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
668: l_agreement_in_rec.attribute17 := NULL;
669: END IF;
670:
671: IF l_agreement_in_rec.attribute18 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
667: IF l_agreement_in_rec.attribute17 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
668: l_agreement_in_rec.attribute17 := NULL;
669: END IF;
670:
671: IF l_agreement_in_rec.attribute18 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
672: l_agreement_in_rec.attribute18 := NULL;
673: END IF;
674:
675: IF l_agreement_in_rec.attribute19 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
671: IF l_agreement_in_rec.attribute18 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
672: l_agreement_in_rec.attribute18 := NULL;
673: END IF;
674:
675: IF l_agreement_in_rec.attribute19 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
676: l_agreement_in_rec.attribute19 := NULL;
677: END IF;
678:
679: IF l_agreement_in_rec.attribute20 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
675: IF l_agreement_in_rec.attribute19 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
676: l_agreement_in_rec.attribute19 := NULL;
677: END IF;
678:
679: IF l_agreement_in_rec.attribute20 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
680: l_agreement_in_rec.attribute20 := NULL;
681: END IF;
682:
683: IF l_agreement_in_rec.attribute21 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
679: IF l_agreement_in_rec.attribute20 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
680: l_agreement_in_rec.attribute20 := NULL;
681: END IF;
682:
683: IF l_agreement_in_rec.attribute21 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
684: l_agreement_in_rec.attribute21 := NULL;
685: END IF;
686:
687: IF l_agreement_in_rec.attribute22 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
683: IF l_agreement_in_rec.attribute21 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
684: l_agreement_in_rec.attribute21 := NULL;
685: END IF;
686:
687: IF l_agreement_in_rec.attribute22 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
688: l_agreement_in_rec.attribute22 := NULL;
689: END IF;
690:
691: IF l_agreement_in_rec.attribute23 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
687: IF l_agreement_in_rec.attribute22 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
688: l_agreement_in_rec.attribute22 := NULL;
689: END IF;
690:
691: IF l_agreement_in_rec.attribute23 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
692: l_agreement_in_rec.attribute23 := NULL;
693: END IF;
694:
695: IF l_agreement_in_rec.attribute24 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
691: IF l_agreement_in_rec.attribute23 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
692: l_agreement_in_rec.attribute23 := NULL;
693: END IF;
694:
695: IF l_agreement_in_rec.attribute24 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
696: l_agreement_in_rec.attribute24 := NULL;
697: END IF;
698:
699: IF l_agreement_in_rec.attribute25 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
695: IF l_agreement_in_rec.attribute24 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
696: l_agreement_in_rec.attribute24 := NULL;
697: END IF;
698:
699: IF l_agreement_in_rec.attribute25 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
700: l_agreement_in_rec.attribute25 := NULL;
701: END IF;
702:
703: -- CREATE AGREEMENT
775: if (l_funding_in_rec.project_id is NULL
776: or l_funding_in_rec.date_allocated is NULL
777: or l_funding_in_rec.allocated_amount is NULL
778: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
779: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
780: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
781: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
782: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
783: then
776: or l_funding_in_rec.date_allocated is NULL
777: or l_funding_in_rec.allocated_amount is NULL
778: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
779: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
780: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
781: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
782: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
783: then
784: --dbms_output.put_line('Funding not entered. ');
777: or l_funding_in_rec.allocated_amount is NULL
778: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
779: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
780: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
781: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
782: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
783: then
784: --dbms_output.put_line('Funding not entered. ');
785: exit;
778: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
779: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
780: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
781: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
782: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
783: then
784: --dbms_output.put_line('Funding not entered. ');
785: exit;
786: end if;
819:
820: IF l_valid_currency='N' THEN
821: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
822: THEN
823: pa_interface_utils_pub.map_new_amg_msg
824: ( p_old_message_code => 'PA_CURR_NOT_VALID'
825: ,p_msg_attribute => 'CHANGE'
826: ,p_resize_flag => 'N'
827: ,p_msg_context => 'AGREEMENT'
946: --Description: This procedure can be used to delete an agreement for an
947: -- existing project or template.
948: --
949: --Called subprograms:
950: -- pa_interface_utils_pub.map_new_amg_msg
951: -- pa_agreement_pub.check_delete_agreement_ok
952: -- pa_agreement_pvt.convert_ag_ref_to_id
953: -- pa_agreement_utils.delete_agreement
954:
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'
1037: ,p_msg_attribute => 'CHANGE'
1038: ,p_resize_flag => 'Y'
1039: ,p_msg_context => 'GENERAL'
1063: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
1064:
1065: -- Product Code
1066: IF (p_pm_product_code IS NULL)
1067: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1068: THEN
1069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1070: THEN
1071: pa_interface_utils_pub.map_new_amg_msg
1067: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1068: THEN
1069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1070: THEN
1071: pa_interface_utils_pub.map_new_amg_msg
1072: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISS'
1073: ,p_msg_attribute => 'CHANGE'
1074: ,p_resize_flag => 'N'
1075: ,p_msg_context => 'GENERAL'
1084: END IF;
1085:
1086: -- Agreement Reference
1087: IF (p_pm_agreement_reference IS NULL)
1088: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1089: THEN
1090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1091: THEN
1092: pa_interface_utils_pub.map_new_amg_msg
1088: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1089: THEN
1090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1091: THEN
1092: pa_interface_utils_pub.map_new_amg_msg
1093: ( p_old_message_code => 'PA_AGMT_REF_IS_MISS'
1094: ,p_msg_attribute => 'CHANGE'
1095: ,p_resize_flag => 'N'
1096: ,p_msg_context => 'GENERAL'
1105: END IF;
1106: /* NOT REQUIRED
1107: -- Agreement Id
1108: IF (p_agreement_id IS NULL)
1109: OR (p_agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1110: THEN
1111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1112: THEN
1113: pa_interface_utils_pub.map_new_amg_msg
1109: OR (p_agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1110: THEN
1111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1112: THEN
1113: pa_interface_utils_pub.map_new_amg_msg
1114: ( p_old_message_code => 'PA_AGMT_ID_IS_MISS'
1115: ,p_msg_attribute => 'CHANGE'
1116: ,p_resize_flag => 'N'
1117: ,p_msg_context => 'AGREEMENT'
1255: --Description: This procedure can be used to update an agreement for an
1256: -- existing project or template.
1257: --
1258: --Called subprograms:
1259: -- pa_interface_utils_pub.map_new_amg_msg
1260: -- pa_agreement_pub.check_update_agreement_ok
1261: -- pa_agreement_utils.validate_flex_fields
1262: -- pa_agreement_pvt.convert_ag_ref_to_id
1263: -- pa_agreement_utils.update_agreement
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'
1352: ,p_msg_attribute => 'CHANGE'
1353: ,p_resize_flag => 'Y'
1354: ,p_msg_context => 'GENERAL'
1379: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
1380:
1381: -- Product Code
1382: IF (p_pm_product_code IS NULL)
1383: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1384: THEN
1385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1386: THEN
1387: pa_interface_utils_pub.map_new_amg_msg
1383: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1384: THEN
1385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1386: THEN
1387: pa_interface_utils_pub.map_new_amg_msg
1388: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISS'
1389: ,p_msg_attribute => 'CHANGE'
1390: ,p_resize_flag => 'N'
1391: ,p_msg_context => 'GENERAL'
1402:
1403: /*Commented the validation for non mandatory parameter 'pm_agreement_reference' for bug 6601566
1404: -- Agreement Reference
1405: IF (l_agreement_in_rec.pm_agreement_reference IS NULL)
1406: OR (l_agreement_in_rec.pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1407: THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1409: THEN
1410: pa_interface_utils_pub.map_new_amg_msg
1406: OR (l_agreement_in_rec.pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1407: THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1409: THEN
1410: pa_interface_utils_pub.map_new_amg_msg
1411: ( p_old_message_code => 'PA_AGMT_REF_IS_MISS'
1412: ,p_msg_attribute => 'CHANGE'
1413: ,p_resize_flag => 'N'
1414: ,p_msg_context => 'GENERAL'
1426:
1427: /* Commented the validations for non mandatory parameters for bug 6602451
1428: -- Customer Id
1429: IF (l_agreement_in_rec.customer_ID IS NULL)
1430: OR (l_agreement_in_rec.customer_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1431: THEN
1432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1433: THEN
1434: pa_interface_utils_pub.map_new_amg_msg
1430: OR (l_agreement_in_rec.customer_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1431: THEN
1432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1433: THEN
1434: pa_interface_utils_pub.map_new_amg_msg
1435: ( p_old_message_code => 'PA_CUST_ID_IS_MISS'
1436: ,p_msg_attribute => 'CHANGE'
1437: ,p_resize_flag => 'N'
1438: ,p_msg_context => 'AGREEMENT'
1448: END IF;
1449:
1450: -- Customer Number
1451: IF (l_agreement_in_rec.customer_num IS NULL)
1452: OR (l_agreement_in_rec.customer_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1453: THEN
1454: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1455: THEN
1456: pa_interface_utils_pub.map_new_amg_msg
1452: OR (l_agreement_in_rec.customer_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1453: THEN
1454: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1455: THEN
1456: pa_interface_utils_pub.map_new_amg_msg
1457: ( p_old_message_code => 'PA_CUST_NUM_IS_MISS'
1458: ,p_msg_attribute => 'CHANGE'
1459: ,p_resize_flag => 'N'
1460: ,p_msg_context => 'AGREEMENT'
1470: END IF;
1471:
1472: -- Agreement Type
1473: IF (l_agreement_in_rec.agreement_type IS NULL)
1474: OR (l_agreement_in_rec.agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1475: THEN
1476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1477: THEN
1478: pa_interface_utils_pub.map_new_amg_msg
1474: OR (l_agreement_in_rec.agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1475: THEN
1476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1477: THEN
1478: pa_interface_utils_pub.map_new_amg_msg
1479: ( p_old_message_code => 'PA_AGMT_TYPE_IS_MISS'
1480: ,p_msg_attribute => 'CHANGE'
1481: ,p_resize_flag => 'N'
1482: ,p_msg_context => 'AGREEMENT'
1492: END IF;
1493:
1494: -- Agreement Number
1495: IF (l_agreement_in_rec.agreement_num IS NULL)
1496: OR (l_agreement_in_rec.agreement_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1497: THEN
1498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1499: THEN
1500: pa_interface_utils_pub.map_new_amg_msg
1496: OR (l_agreement_in_rec.agreement_num = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1497: THEN
1498: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1499: THEN
1500: pa_interface_utils_pub.map_new_amg_msg
1501: ( p_old_message_code => 'PA_AGMT_NUM_IS_MISS'
1502: ,p_msg_attribute => 'CHANGE'
1503: ,p_resize_flag => 'N'
1504: ,p_msg_context => 'AGREEMENT'
1526:
1527: /*Commented code for bug 7110396
1528: /* Start Bug 3511175 Initialized owning_organization_id,invoice_limit_flag
1529: and agreement_currency_code
1530: IF l_agreement_in_rec.owning_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
1531: l_agreement_in_rec.owning_organization_id := NULL;
1532: END IF;
1533:
1534: IF l_agreement_in_rec.invoice_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
1530: IF l_agreement_in_rec.owning_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
1531: l_agreement_in_rec.owning_organization_id := NULL;
1532: END IF;
1533:
1534: IF l_agreement_in_rec.invoice_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
1535: l_agreement_in_rec.invoice_limit_flag := 'N';
1536: END IF;
1537:
1538: IF l_agreement_in_rec.agreement_currency_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
1534: IF l_agreement_in_rec.invoice_limit_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
1535: l_agreement_in_rec.invoice_limit_flag := 'N';
1536: END IF;
1537:
1538: IF l_agreement_in_rec.agreement_currency_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Then
1539: SELECT pa_currency.get_currency_code
1540: INTO l_agreement_in_rec.agreement_currency_code from dual;
1541: END IF;
1542:
1587: if (l_funding_in_rec.project_id is NULL
1588: or l_funding_in_rec.date_allocated is NULL
1589: or l_funding_in_rec.allocated_amount is NULL
1590: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1591: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1592: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1593: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1594: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1595: then
1588: or l_funding_in_rec.date_allocated is NULL
1589: or l_funding_in_rec.allocated_amount is NULL
1590: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1591: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1592: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1593: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1594: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1595: then
1596: --dbms_output.put_line('Funding not entered. ');
1589: or l_funding_in_rec.allocated_amount is NULL
1590: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1591: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1592: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1593: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1594: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1595: then
1596: --dbms_output.put_line('Funding not entered. ');
1597: exit;
1590: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1591: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1592: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1593: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1594: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1595: then
1596: --dbms_output.put_line('Funding not entered. ');
1597: exit;
1598: end if;
1605:
1606: /** Bug 2180350 - Replaced OR with AND in the following IF conmdition **/
1607:
1608: IF (l_agreement_in_rec.desc_flex_name IS NOT NULL)
1609: AND (l_agreement_in_rec.desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1610: THEN
1611: pa_agreement_pvt.validate_flex_fields
1612: (p_desc_flex_name => l_agreement_in_rec.desc_flex_name
1613: ,p_attribute_category => l_agreement_in_rec.attribute_category
1642: IF l_validate_status = 'N'
1643: THEN
1644: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1645: THEN
1646: pa_interface_utils_pub.map_new_amg_msg
1647: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
1648: ,p_msg_attribute => 'CHANGE'
1649: ,p_resize_flag => 'N'
1650: ,p_msg_context => 'FLEX'
1731: if (l_funding_in_rec.project_id is NULL
1732: or l_funding_in_rec.date_allocated is NULL
1733: or l_funding_in_rec.allocated_amount is NULL
1734: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1735: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1736: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1737: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1738: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1739: then
1732: or l_funding_in_rec.date_allocated is NULL
1733: or l_funding_in_rec.allocated_amount is NULL
1734: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1735: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1736: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1737: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1738: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1739: then
1740: --dbms_output.put_line('Funding not entered. ');
1733: or l_funding_in_rec.allocated_amount is NULL
1734: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1735: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1736: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1737: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1738: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1739: then
1740: --dbms_output.put_line('Funding not entered. ');
1741: exit;
1734: --or l_funding_in_rec.funding_category is NULL /* Commented for the bug 6780803 */
1735: or l_funding_in_rec.project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1736: or l_funding_in_rec.date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1737: or l_funding_in_rec.allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1738: --or l_funding_in_rec.funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) /* Commented for the bug 6780803 */
1739: then
1740: --dbms_output.put_line('Funding not entered. ');
1741: exit;
1742: end if;
1882: p_data => p_msg_data );
1883:
1884: WHEN NO_DATA_FOUND
1885: THEN
1886: pa_interface_utils_pub.map_new_amg_msg
1887: ( p_old_message_code => 'PA_NO_DATA_FOUND'
1888: ,p_msg_attribute => 'CHANGE'
1889: ,p_resize_flag => 'N'
1890: ,p_msg_context => 'GENERAL'
1934: --Description: This procedure can be used to create funding for an existing for an
1935: -- agreement.
1936: --
1937: --Called subprograms:
1938: -- pa_interface_utils_pub.map_new_amg_msg
1939: -- pa_agreement_pub.check_add_funding_ok
1940: -- pa_agreement_utils.validate_flex_fields
1941: -- pa_agreement_pvt.convert_fu_ref_to_id
1942: -- pa_agreement_utils.add_funding
2083: -- since the user does not have access to such functions
2084:
2085: -- This call is added for patchset K project role based security check
2086:
2087: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := p_pa_project_id;
2088:
2089:
2090: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
2091: (p_api_version_number => p_api_version_number,
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'
2111: ,p_msg_attribute => 'CHANGE'
2112: ,p_resize_flag => 'Y'
2113: ,p_msg_context => 'GENERAL'
2137:
2138:
2139: -- Product Code
2140: IF (p_pm_product_code IS NULL)
2141: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2142: THEN
2143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2144: THEN
2145: pa_interface_utils_pub.map_new_amg_msg
2141: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2142: THEN
2143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2144: THEN
2145: pa_interface_utils_pub.map_new_amg_msg
2146: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISS'
2147: ,p_msg_attribute => 'CHANGE'
2148: ,p_resize_flag => 'N'
2149: ,p_msg_context => 'GENERAL'
2159:
2160: /* NOT REQUIRED
2161: -- Agreement Reference
2162: IF (p_pm_agreement_reference IS NULL)
2163: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2164: THEN
2165: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2166: THEN
2167: pa_interface_utils_pub.map_new_amg_msg
2163: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2164: THEN
2165: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2166: THEN
2167: pa_interface_utils_pub.map_new_amg_msg
2168: ( p_old_message_code => 'PA_AGMT_REF_IS_MISS'
2169: ,p_msg_attribute => 'CHANGE'
2170: ,p_resize_flag => 'N'
2171: ,p_msg_context => 'GENERAL'
2181:
2182:
2183: -- Project Reference
2184: IF (p_pm_project_reference IS NULL)
2185: OR (p_pm_project_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2186: THEN
2187: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2188: THEN
2189: pa_interface_utils_pub.map_new_amg_msg
2185: OR (p_pm_project_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2186: THEN
2187: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2188: THEN
2189: pa_interface_utils_pub.map_new_amg_msg
2190: ( p_old_message_code => 'PA_PROJ_REF_IS_MISS'
2191: ,p_msg_attribute => 'CHANGE'
2192: ,p_resize_flag => 'N'
2193: ,p_msg_context => 'GENERAL'
2206:
2207: -- Funding category
2208: /* Commented for 2483081 */
2209: /* IF (p_funding_category IS NULL)
2210: OR (p_funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2211: THEN
2212: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2213: THEN
2214: pa_interface_utils_pub.map_new_amg_msg
2210: OR (p_funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2211: THEN
2212: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2213: THEN
2214: pa_interface_utils_pub.map_new_amg_msg
2215: ( p_old_message_code => 'PA_FUND_CAT_IS_MISS'
2216: ,p_msg_attribute => 'CHANGE'
2217: ,p_resize_flag => 'N'
2218: ,p_msg_context => 'GENERAL'
2229:
2230: -- Validate funding category
2231: /* Added IF condition for bug 2838872 */
2232: IF (p_funding_category IS NULL)
2233: OR (p_funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2234: THEN
2235: l_funding_category := 'ADDITIONAL';
2236: ELSE
2237: l_funding_category := p_funding_category;
2252:
2253:
2254: -- Funding Reference
2255: IF (p_pm_funding_reference IS NULL)
2256: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2257: THEN
2258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2259: THEN
2260: pa_interface_utils_pub.map_new_amg_msg
2256: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2257: THEN
2258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2259: THEN
2260: pa_interface_utils_pub.map_new_amg_msg
2261: ( p_old_message_code => 'PA_FUND_REF_IS_MISS'
2262: ,p_msg_attribute => 'CHANGE'
2263: ,p_resize_flag => 'N'
2264: ,p_msg_context => 'GENERAL'
2273: END IF;
2274:
2275: -- Project Id
2276: IF (p_pa_project_id IS NULL)
2277: OR (p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2278: THEN
2279: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2280: THEN
2281: pa_interface_utils_pub.map_new_amg_msg
2277: OR (p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2278: THEN
2279: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2280: THEN
2281: pa_interface_utils_pub.map_new_amg_msg
2282: ( p_old_message_code => 'PA_PROJ_ID_IS_MISS'
2283: ,p_msg_attribute => 'CHANGE'
2284: ,p_resize_flag => 'N'
2285: ,p_msg_context => 'FUNDING'
2295:
2296: -- Task Id
2297: /*
2298: IF (p_pa_task_id IS NULL)
2299: OR (p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2300: THEN
2301: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2302: THEN
2303: pa_interface_utils_pub.map_new_amg_msg
2299: OR (p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2300: THEN
2301: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2302: THEN
2303: pa_interface_utils_pub.map_new_amg_msg
2304: ( p_old_message_code => 'PA_TASK_ID_IS_MISS'
2305: ,p_msg_attribute => 'CHANGE'
2306: ,p_resize_flag => 'N'
2307: ,p_msg_context => 'FUNDING'
2316: END IF;
2317: */
2318: -- Date Allocated
2319: IF (p_date_allocated IS NULL)
2320: OR (p_date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
2321: THEN
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2323: THEN
2324: pa_interface_utils_pub.map_new_amg_msg
2320: OR (p_date_allocated = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
2321: THEN
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2323: THEN
2324: pa_interface_utils_pub.map_new_amg_msg
2325: ( p_old_message_code => 'PA_DATE_ALLOC_IS_MISS'
2326: ,p_msg_attribute => 'CHANGE'
2327: ,p_resize_flag => 'N'
2328: ,p_msg_context => 'FUNDING'
2337: END IF;
2338:
2339: -- Allocated Amount
2340: IF (p_allocated_amount IS NULL)
2341: OR (p_allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2342: THEN
2343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2344: THEN
2345: pa_interface_utils_pub.map_new_amg_msg
2341: OR (p_allocated_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2342: THEN
2343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2344: THEN
2345: pa_interface_utils_pub.map_new_amg_msg
2346: ( p_old_message_code => 'PA_ALLOC_AMT_IS_MISS'
2347: ,p_msg_attribute => 'CHANGE'
2348: ,p_resize_flag => 'N'
2349: ,p_msg_context => 'FUNDING'
2360: END IF;
2361:
2362: -- Agreement Id
2363: IF (p_agreement_id IS NULL)
2364: OR (p_agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2365: THEN
2366: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2367: THEN
2368: pa_interface_utils_pub.map_new_amg_msg
2364: OR (p_agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2365: THEN
2366: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2367: THEN
2368: pa_interface_utils_pub.map_new_amg_msg
2369: ( p_old_message_code => 'PA_AGMT_ID_IS_MISS'
2370: ,p_msg_attribute => 'CHANGE'
2371: ,p_resize_flag => 'N'
2372: ,p_msg_context => 'FUNDING'
2394: THEN
2395:
2396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2397: THEN
2398: pa_interface_utils_pub.map_new_amg_msg
2399: ( p_old_message_code => 'PA_BU_AMT_ALLOC_LT_AMT_ACCRUED'
2400: ,p_msg_attribute => 'CHANGE'
2401: ,p_resize_flag => 'N'
2402: ,p_msg_context => 'FUNDING'
2440:
2441:
2442: -- Flex Field Validations
2443: IF (p_desc_flex_name IS NOT NULL)
2444: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2445: -- OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2446: THEN
2447: pa_agreement_pvt.validate_flex_fields
2448: (p_desc_flex_name => p_desc_flex_name
2441:
2442: -- Flex Field Validations
2443: IF (p_desc_flex_name IS NOT NULL)
2444: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2445: -- OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2446: THEN
2447: pa_agreement_pvt.validate_flex_fields
2448: (p_desc_flex_name => p_desc_flex_name
2449: ,p_attribute_category => p_attribute_category
2464: IF l_validate_status = 'N'
2465: THEN
2466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2467: THEN
2468: pa_interface_utils_pub.map_new_amg_msg
2469: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
2470: ,p_msg_attribute => 'CHANGE'
2471: ,p_resize_flag => 'N'
2472: ,p_msg_context => 'FLEX'
2510: p_return_status := l_return_status;
2511: */
2512: --HERE
2513: --TO BE CORRECTED - BUDGET_TYPE_CODE - NIKHIL
2514: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_pa_task_id IS NOT NULL THEN
2515: l_pa_task_id := p_pa_task_id;
2516: ELSIF p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
2517: l_pa_task_id := NULL;
2518: END IF;
2512: --HERE
2513: --TO BE CORRECTED - BUDGET_TYPE_CODE - NIKHIL
2514: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND p_pa_task_id IS NOT NULL THEN
2515: l_pa_task_id := p_pa_task_id;
2516: ELSIF p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
2517: l_pa_task_id := NULL;
2518: END IF;
2519:
2520:
2519:
2520:
2521: /* 2315767 Added Else condition for all the Flex Field Attributes
2522: so that proper value is passed if corresponding p_attribute's are not NULL
2523: or not the default PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR */
2524: IF p_desc_flex_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2525: l_desc_flex_name:= NULL;
2526: ELSE
2527: l_desc_flex_name := p_desc_flex_name;
2520:
2521: /* 2315767 Added Else condition for all the Flex Field Attributes
2522: so that proper value is passed if corresponding p_attribute's are not NULL
2523: or not the default PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR */
2524: IF p_desc_flex_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2525: l_desc_flex_name:= NULL;
2526: ELSE
2527: l_desc_flex_name := p_desc_flex_name;
2528: END IF;
2525: l_desc_flex_name:= NULL;
2526: ELSE
2527: l_desc_flex_name := p_desc_flex_name;
2528: END IF;
2529: IF p_attribute_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2530: l_attribute_category := NULL;
2531: ELSE
2532: l_attribute_category := p_attribute_category;
2533: END IF;
2530: l_attribute_category := NULL;
2531: ELSE
2532: l_attribute_category := p_attribute_category;
2533: END IF;
2534: IF p_attribute1 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2535: l_attribute1 := NULL;
2536: ELSE
2537: l_attribute1 := p_attribute1;
2538: END IF;
2535: l_attribute1 := NULL;
2536: ELSE
2537: l_attribute1 := p_attribute1;
2538: END IF;
2539: IF p_attribute2 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2540: l_attribute2 := NULL;
2541: ELSE
2542: l_attribute2 := p_attribute2;
2543: END IF;
2540: l_attribute2 := NULL;
2541: ELSE
2542: l_attribute2 := p_attribute2;
2543: END IF;
2544: IF p_attribute3 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2545: l_attribute3 := NULL;
2546: ELSE
2547: l_attribute3 := p_attribute3;/* 2315767 Modified l_attribute4 to l_attribute3 */
2548: END IF;
2546: ELSE
2547: l_attribute3 := p_attribute3;/* 2315767 Modified l_attribute4 to l_attribute3 */
2548: END IF;
2549: /* 2315767 Added code for attribute4 of flexfield */
2550: IF p_attribute4 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2551: l_attribute4 := NULL;
2552: ELSE
2553: l_attribute4 := p_attribute4;
2554: END IF;
2551: l_attribute4 := NULL;
2552: ELSE
2553: l_attribute4 := p_attribute4;
2554: END IF;
2555: IF p_attribute5 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2556: l_attribute5 := NULL;
2557: ELSE
2558: l_attribute5 := p_attribute5;
2559: END IF;
2556: l_attribute5 := NULL;
2557: ELSE
2558: l_attribute5 := p_attribute5;
2559: END IF;
2560: IF p_attribute6 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2561: l_attribute6 := NULL;
2562: ELSE
2563: l_attribute6 := p_attribute6;
2564: END IF;
2561: l_attribute6 := NULL;
2562: ELSE
2563: l_attribute6 := p_attribute6;
2564: END IF;
2565: IF p_attribute7 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2566: l_attribute7 := NULL;
2567: ELSE
2568: l_attribute7 := p_attribute7;
2569: END IF;
2566: l_attribute7 := NULL;
2567: ELSE
2568: l_attribute7 := p_attribute7;
2569: END IF;
2570: IF p_attribute8 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2571: l_attribute8 := NULL;
2572: ELSE
2573: l_attribute8 := p_attribute8;
2574: END IF;
2571: l_attribute8 := NULL;
2572: ELSE
2573: l_attribute8 := p_attribute8;
2574: END IF;
2575: IF p_attribute9 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2576: l_attribute9 := NULL;
2577: ELSE
2578: l_attribute9 := p_attribute9;
2579: END IF;
2576: l_attribute9 := NULL;
2577: ELSE
2578: l_attribute9 := p_attribute9;
2579: END IF;
2580: IF p_attribute10 = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2581: l_attribute10 := NULL;
2582: ELSE
2583: l_attribute10 := p_attribute10;
2584: END IF;
2584: END IF;
2585:
2586: /* Changes for bug 5554070-Start */
2587:
2588: IF p_project_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2589: l_project_rate_type := null;
2590: else
2591: l_project_rate_type :=p_project_rate_type;
2592: end if;
2590: else
2591: l_project_rate_type :=p_project_rate_type;
2592: end if;
2593:
2594: If p_projfunc_rate_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2595: l_projfunc_rate_type :=null;
2596: else
2597: l_projfunc_rate_type := p_projfunc_rate_type;
2598: end if;
2596: else
2597: l_projfunc_rate_type := p_projfunc_rate_type;
2598: end if;
2599:
2600: If p_projfunc_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2601: l_projfunc_rate_date :=null;
2602: else
2603: l_projfunc_rate_date := p_projfunc_rate_date;
2604: end if;
2602: else
2603: l_projfunc_rate_date := p_projfunc_rate_date;
2604: end if;
2605:
2606: If p_project_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
2607: l_project_rate_date :=null;
2608: else
2609: l_project_rate_date := p_project_rate_date;
2610: end if;
2671: /* End - Bug 2902096 */
2672:
2673: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2674: THEN
2675: pa_interface_utils_pub.map_new_amg_msg
2676: ( p_old_message_code => l_err_msg
2677: ,p_msg_attribute => 'CHANGE'
2678: /* ,p_resize_flag => 'N' changed for bug 2902096 */
2679: ,p_resize_flag => l_resize_flag
2744: --Description: This procedure can be used to delete funding for an existing for an
2745: -- agreement.
2746: --
2747: --Called subprograms:
2748: -- pa_interface_utils_pub.map_new_amg_msg
2749: -- pa_agreement_pub.check_delete_funding_ok
2750: -- pa_agreement_pvt.convert_fu_ref_to_id
2751: -- pa_agreement_utils.delete_agreement
2752: --
2821: -- Get the project id from this project funding line
2822: l_project_id := pa_agreement_utils.get_project_id(p_funding_id => p_funding_id,
2823: p_funding_reference => p_pm_funding_reference);
2824:
2825: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
2826:
2827: -- End of the security changes
2828:
2829:
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'
2857: ,p_msg_attribute => 'CHANGE'
2858: ,p_resize_flag => 'Y'
2859: ,p_msg_context => 'GENERAL'
2882: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
2883:
2884: -- Product Code
2885: IF (p_pm_product_code IS NULL)
2886: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2887: THEN
2888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2889: THEN
2890: pa_interface_utils_pub.map_new_amg_msg
2886: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2887: THEN
2888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2889: THEN
2890: pa_interface_utils_pub.map_new_amg_msg
2891: ( p_old_message_code => 'PA_CUST_NUM_IS_MISS'
2892: ,p_msg_attribute => 'CHANGE'
2893: ,p_resize_flag => 'N'
2894: ,p_msg_context => 'GENERAL'
2903: END IF;
2904:
2905: -- Funding Reference
2906: IF (p_pm_funding_reference IS NULL)
2907: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2908: THEN
2909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2910: THEN
2911: pa_interface_utils_pub.map_new_amg_msg
2907: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2908: THEN
2909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2910: THEN
2911: pa_interface_utils_pub.map_new_amg_msg
2912: ( p_old_message_code => 'PA_FUND_REF_IS_MISS'
2913: ,p_msg_attribute => 'CHANGE'
2914: ,p_resize_flag => 'N'
2915: ,p_msg_context => 'GENERAL'
2925:
2926: /* NOT REQUIRED
2927: -- Funding Id
2928: IF (p_funding_id IS NULL)
2929: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2930: THEN
2931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2932: THEN
2933: pa_interface_utils_pub.map_new_amg_msg
2929: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2930: THEN
2931: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2932: THEN
2933: pa_interface_utils_pub.map_new_amg_msg
2934: ( p_old_message_code => 'PA_FUND_ID_IS_MISS'
2935: ,p_msg_attribute => 'CHANGE'
2936: ,p_resize_flag => 'N'
2937: ,p_msg_context => 'FUNDING'
2955: close c1;
2956:
2957: IF l_funding_category = 'REVALUATION'
2958: THEN
2959: pa_interface_utils_pub.map_new_amg_msg
2960: ( p_old_message_code => 'PA_UPDATE_DELETE_REVAL'
2961: ,p_msg_attribute => 'CHANGE'
2962: ,p_resize_flag => 'N'
2963: ,p_msg_context => 'GENERAL'
3219: l_resp_id := FND_GLOBAL.Resp_id;
3220:
3221: -- This call is added for patchset K project role based security check
3222:
3223: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := p_project_id;
3224:
3225:
3226: -- Actions performed using the APIs would be subject to
3227: -- function security. If the responsibility does not allow
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'
3253: ,p_msg_attribute => 'CHANGE'
3254: ,p_resize_flag => 'Y'
3255: ,p_msg_context => 'GENERAL'
3277: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
3278:
3279: -- Product Code
3280: IF (p_pm_product_code IS NULL)
3281: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3282: THEN
3283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3284: THEN
3285: pa_interface_utils_pub.map_new_amg_msg
3281: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3282: THEN
3283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3284: THEN
3285: pa_interface_utils_pub.map_new_amg_msg
3286: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISS'
3287: ,p_msg_attribute => 'CHANGE'
3288: ,p_resize_flag => 'N'
3289: ,p_msg_context => 'GENERAL'
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*/
3302:
3303: IF (p_funding_category <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
3304: -- Code added for Bug 2403652 starts here
3305:
3306: -- Funding category is NULL
3307: /* Added IF condition for bug 2838872 */
3305:
3306: -- Funding category is NULL
3307: /* Added IF condition for bug 2838872 */
3308: IF (p_funding_category IS NULL)
3309: /*OR (p_funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3310: Bug 5686790 */
3311: THEN
3312: l_funding_category := 'ADDITIONAL';
3313: ELSE
3313: ELSE
3314: l_funding_category := p_funding_category;
3315: /***** IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3316: THEN
3317: pa_interface_utils_pub.map_new_amg_msg
3318: ( p_old_message_code => 'PA_FUND_CAT_IS_MISS'
3319: ,p_msg_attribute => 'CHANGE'
3320: ,p_resize_flag => 'N'
3321: ,p_msg_context => 'GENERAL'
3348:
3349:
3350: -- Funding Reference
3351: IF (p_pm_funding_reference IS NULL)
3352: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3353: THEN
3354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3355: THEN
3356: pa_interface_utils_pub.map_new_amg_msg
3352: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3353: THEN
3354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3355: THEN
3356: pa_interface_utils_pub.map_new_amg_msg
3357: ( p_old_message_code => 'PA_FUND_REF_IS_MISS'
3358: ,p_msg_attribute => 'CHANGE'
3359: ,p_resize_flag => 'N'
3360: ,p_msg_context => 'GENERAL'
3369: END IF;
3370: /* NOT REQUIED
3371: -- Funding Id
3372: IF (p_funding_id IS NULL)
3373: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3374: THEN
3375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3376: THEN
3377: pa_interface_utils_pub.map_new_amg_msg
3373: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3374: THEN
3375: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3376: THEN
3377: pa_interface_utils_pub.map_new_amg_msg
3378: ( p_old_message_code => 'PA_FUND_ID_IS_MISS'
3379: ,p_msg_attribute => 'CHANGE'
3380: ,p_resize_flag => 'N'
3381: ,p_msg_context => 'FUNDING'
3407: ((l_total_funding+p_allocated_amount - l_projfunc_allocated_amount) < l_billed_amt and l_inv_limit_flag = 'Y')) THEN
3408:
3409: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3410: THEN
3411: pa_interface_utils_pub.map_new_amg_msg
3412: (p_old_message_code => 'PA_BU_AMT_ALLOC_LT_AMT_ACCRUED'
3413: ,p_msg_attribute => 'CHANGE'
3414: ,p_resize_flag => 'N'
3415: ,p_msg_context => 'FUNDING'
3434:
3435:
3436: IF l_funding_category = 'REVALUATION'
3437: THEN
3438: pa_interface_utils_pub.map_new_amg_msg
3439: ( p_old_message_code => 'PA_UPDATE_DELETE_REVAL'
3440: ,p_msg_attribute => 'CHANGE'
3441: ,p_resize_flag => 'N'
3442: ,p_msg_context => 'GENERAL'
3490:
3491:
3492: -- Flex Field Validations
3493: IF (p_desc_flex_name IS NOT NULL)
3494: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3495: -- Nikhil OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3496: THEN
3497: pa_agreement_pvt.validate_flex_fields
3498: (p_desc_flex_name => p_desc_flex_name
3491:
3492: -- Flex Field Validations
3493: IF (p_desc_flex_name IS NOT NULL)
3494: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3495: -- Nikhil OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3496: THEN
3497: pa_agreement_pvt.validate_flex_fields
3498: (p_desc_flex_name => p_desc_flex_name
3499: ,p_attribute_category => p_attribute_category
3514: IF l_validate_status = 'N'
3515: THEN
3516: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3517: THEN
3518: pa_interface_utils_pub.map_new_amg_msg
3519: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
3520: ,p_msg_attribute => 'CHANGE'
3521: ,p_resize_flag => 'N'
3522: ,p_msg_context => 'FLEX'
3552: ***** Commented bug 2434153 **/
3553:
3554: /* Added for bug 5686790*/
3555:
3556: IF (p_funding_category = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
3557: SELECT funding_category
3558: INTO l_funding_category
3559: FROM pa_project_fundings
3560: WHERE PROJECT_FUNDING_ID = l_out_funding_id;
3617: /* End - Bug 2902096 */
3618:
3619: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3620: THEN
3621: pa_interface_utils_pub.map_new_amg_msg
3622: ( p_old_message_code => l_err_msg
3623: ,p_msg_attribute => 'CHANGE'
3624: /* ,p_resize_flag => 'N' changed for bug 2902096 */
3625: ,p_resize_flag => l_resize_flag
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'
3853: ,p_msg_attribute => 'CHANGE'
3854: ,p_resize_flag => 'Y'
3855: ,p_msg_context => 'GENERAL'
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'
4062: ,p_msg_attribute => 'CHANGE'
4063: ,p_resize_flag => 'Y'
4064: ,p_msg_context => 'GENERAL'
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'
4224: ,p_msg_attribute => 'CHANGE'
4225: ,p_resize_flag => 'Y'
4226: ,p_msg_context => 'GENERAL'
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
4274: THEN
4275: p_agreement_id_out := NULL;
4276: ELSE
4277: p_agreement_id_out := G_agreement_out_rec.agreement_id;
4276: ELSE
4277: p_agreement_id_out := G_agreement_out_rec.agreement_id;
4278: END IF;
4279:
4280: IF G_agreement_out_rec.customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4281: THEN
4282: p_customer_id_out := NULL;
4283: ELSE
4284: p_customer_id_out := G_agreement_out_rec.customer_id;
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'
4407: ,p_msg_attribute => 'CHANGE'
4408: ,p_resize_flag => 'Y'
4409: ,p_msg_context => 'GENERAL'
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'
4575: ,p_msg_attribute => 'CHANGE'
4576: ,p_resize_flag => 'Y'
4577: ,p_msg_context => 'GENERAL'
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
4603: THEN
4604: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4605: THEN
4602: OR p_funding_index IS NULL
4603: THEN
4604: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4605: THEN
4606: pa_interface_utils_pub.map_new_amg_msg
4607: ( p_old_message_code => 'PA_FUND_INDEX_NOT_PROV'
4608: ,p_msg_attribute => 'CHANGE'
4609: ,p_resize_flag => 'N'
4610: ,p_msg_context => 'GENERAL'
4622: IF G_funding_out_tbl.exists(l_index)
4623: THEN
4624: -- assign global table fields to the outgoing parameter
4625: -- we don't want to return the big number G_PA_MISS_NUM
4626: IF G_funding_out_tbl(l_index).project_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4627: THEN
4628: p_funding_id := NULL;
4629: ELSE
4630: p_funding_id := G_funding_out_tbl(l_index).project_funding_id;
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'
4777: ,p_msg_attribute => 'CHANGE'
4778: ,p_resize_flag => 'Y'
4779: ,p_msg_context => 'GENERAL'
4803: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
4804:
4805: -- Agreement Reference
4806: IF (p_pm_agreement_reference IS NULL)
4807: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
4808: THEN
4809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4810: THEN
4811: pa_interface_utils_pub.map_new_amg_msg
4807: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
4808: THEN
4809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4810: THEN
4811: pa_interface_utils_pub.map_new_amg_msg
4812: ( p_old_message_code => 'PA_AGMT_REF_IS_MISS'
4813: ,p_msg_attribute => 'CHANGE'
4814: ,p_resize_flag => 'N'
4815: ,p_msg_context => 'GENERAL'
4824: END IF;
4825: /* NOT REQUIRED
4826: -- Agreement Id
4827: IF (p_agreement_id IS NULL)
4828: OR (p_agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
4829: THEN
4830: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4831: THEN
4832: pa_interface_utils_pub.map_new_amg_msg
4828: OR (p_agreement_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
4829: THEN
4830: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4831: THEN
4832: pa_interface_utils_pub.map_new_amg_msg
4833: ( p_old_message_code => 'PA_AGMT_ID_IS_MISS'
4834: ,p_msg_attribute => 'CHANGE'
4835: ,p_resize_flag => 'N'
4836: ,p_msg_context => 'AGREEMENT'
4851: IF pa_agreement_utils.check_valid_agreement_ref(p_agreement_reference => p_pm_agreement_reference) = 'N'
4852: THEN
4853: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4854: THEN
4855: pa_interface_utils_pub.map_new_amg_msg
4856: ( p_old_message_code => 'PA_INVD_AGMT_REF'
4857: ,p_msg_attribute => 'CHANGE'
4858: ,p_resize_flag => 'N'
4859: ,p_msg_context => 'GENERAL'
4872: IF pa_agreement_utils.check_valid_agreement_id(p_agreement_id => p_agreement_id) = 'N'
4873: THEN
4874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4875: THEN
4876: pa_interface_utils_pub.map_new_amg_msg
4877: ( p_old_message_code => 'PA_INVD_AGMT_ID'
4878: ,p_msg_attribute => 'CHANGE'
4879: ,p_resize_flag => 'N'
4880: ,p_msg_context => 'AGREEMENT'
5022: l_resp_id := FND_GLOBAL.Resp_id;
5023:
5024: -- This call is added for patchset K project role based security check
5025:
5026: PA_INTERFACE_UTILS_PUB.G_PROJECt_ID := p_project_id;
5027:
5028:
5029:
5030: -- Actions performed using the APIs would be subject to
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'
5057: ,p_msg_attribute => 'CHANGE'
5058: ,p_resize_flag => 'Y'
5059: ,p_msg_context => 'GENERAL'
5082: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5083:
5084: -- Agreement Reference
5085: IF (p_pm_agreement_reference IS NULL)
5086: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5087: THEN
5088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5089: THEN
5090: pa_interface_utils_pub.map_new_amg_msg
5086: OR (p_pm_agreement_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5087: THEN
5088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5089: THEN
5090: pa_interface_utils_pub.map_new_amg_msg
5091: ( p_old_message_code => 'PA_AGMT_REF_IS_MISS'
5092: ,p_msg_attribute => 'CHANGE'
5093: ,p_resize_flag => 'N'
5094: ,p_msg_context => 'GENERAL'
5103: END IF;
5104:
5105: -- Project Id
5106: IF (p_project_id IS NULL)
5107: OR (p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5108: THEN
5109: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5110: THEN
5111: pa_interface_utils_pub.map_new_amg_msg
5107: OR (p_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5108: THEN
5109: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5110: THEN
5111: pa_interface_utils_pub.map_new_amg_msg
5112: ( p_old_message_code => 'PA_PROJ_ID_IS_MISS'
5113: ,p_msg_attribute => 'CHANGE'
5114: ,p_resize_flag => 'N'
5115: ,p_msg_context => 'FUNDING'
5124: END IF;
5125: /*
5126: -- Task Id
5127: IF (p_task_id IS NULL)
5128: OR (p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5129: THEN
5130: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5131: THEN
5132: pa_interface_utils_pub.map_new_amg_msg
5128: OR (p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5129: THEN
5130: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5131: THEN
5132: pa_interface_utils_pub.map_new_amg_msg
5133: ( p_old_message_code => 'PA_TASK_ID_IS_MISS'
5134: ,p_msg_attribute => 'CHANGE'
5135: ,p_resize_flag => 'N'
5136: ,p_msg_context => 'FUNDING'
5145: END IF;
5146: */
5147: -- Funding Reference
5148: IF (p_pm_funding_reference IS NULL)
5149: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5150: THEN
5151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5152: THEN
5153: pa_interface_utils_pub.map_new_amg_msg
5149: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5150: THEN
5151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5152: THEN
5153: pa_interface_utils_pub.map_new_amg_msg
5154: ( p_old_message_code => 'PA_FUND_REF_IS_MISS'
5155: ,p_msg_attribute => 'CHANGE'
5156: ,p_resize_flag => 'N'
5157: ,p_msg_context => 'GENERAL'
5167:
5168: /* NOT REQUIRED
5169: -- Funding Id
5170: IF (p_funding_id IS NULL)
5171: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5172: THEN
5173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5174: THEN
5175: pa_interface_utils_pub.map_new_amg_msg
5171: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5172: THEN
5173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5174: THEN
5175: pa_interface_utils_pub.map_new_amg_msg
5176: ( p_old_message_code => 'PA_FUND_ID_IS_MISS'
5177: ,p_msg_attribute => 'CHANGE'
5178: ,p_resize_flag => 'N'
5179: ,p_msg_context => 'GENERAL'
5195: IF pa_agreement_utils.check_valid_agreement_ref(p_agreement_reference => p_pm_agreement_reference) = 'N'
5196: THEN
5197: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5198: THEN
5199: pa_interface_utils_pub.map_new_amg_msg
5200: ( p_old_message_code => 'PA_INVD_AGMT_REF'
5201: ,p_msg_attribute => 'CHANGE'
5202: ,p_resize_flag => 'Y'
5203: ,p_msg_context => 'AGREEMENT'
5216: ,p_agreement_id => p_agreement_id) = 'N'
5217: THEN
5218: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5219: THEN
5220: pa_interface_utils_pub.map_new_amg_msg
5221: ( p_old_message_code => 'PA_INVD_FUND_REF'
5222: ,p_msg_attribute => 'CHANGE'
5223: ,p_resize_flag => 'N'
5224: ,p_msg_context => 'FUNDING'
5379: p_funding_reference => p_pm_funding_reference);
5380:
5381: -- This call is added for patchset K project role based security check
5382:
5383: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
5384:
5385: -- Actions performed using the APIs would be subject to
5386: -- function security. If the responsibility does not allow
5387: -- such functions to be executed, the API should not proceed further
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'
5412: ,p_msg_attribute => 'CHANGE'
5413: ,p_resize_flag => 'Y'
5414: ,p_msg_context => 'GENERAL'
5437: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5438:
5439: -- Funding Reference
5440: IF (p_pm_funding_reference IS NULL)
5441: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5442: THEN
5443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5444: THEN
5445: pa_interface_utils_pub.map_new_amg_msg
5441: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5442: THEN
5443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5444: THEN
5445: pa_interface_utils_pub.map_new_amg_msg
5446: ( p_old_message_code => 'PA_FUND_REF_IS_MISS'
5447: ,p_msg_attribute => 'CHANGE'
5448: ,p_resize_flag => 'N'
5449: ,p_msg_context => 'GENERAL'
5458: END IF;
5459: /* NOT REQUIRED
5460: -- Funding Id
5461: IF (p_funding_id IS NULL)
5462: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5463: THEN
5464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5465: THEN
5466: pa_interface_utils_pub.map_new_amg_msg
5462: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5463: THEN
5464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5465: THEN
5466: pa_interface_utils_pub.map_new_amg_msg
5467: ( p_old_message_code => 'PA_FUND_ID_IS_MISS'
5468: ,p_msg_attribute => 'CHANGE'
5469: ,p_resize_flag => 'N'
5470: ,p_msg_context => 'GENERAL'
5488: ,p_funding_reference => p_pm_funding_reference)) = 'N'
5489: THEN
5490: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5491: THEN
5492: pa_interface_utils_pub.map_new_amg_msg
5493: ( p_old_message_code => 'PA_INVD_FUND_REF'
5494: ,p_msg_attribute => 'CHANGE'
5495: ,p_resize_flag => 'N'
5496: ,p_msg_context => 'AGREEMENT'
5510: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)) = 'N'
5511: THEN
5512: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5513: THEN
5514: pa_interface_utils_pub.map_new_amg_msg
5515: ( p_old_message_code => 'PA_INVD_FUND_ID'
5516: ,p_msg_attribute => 'CHANGE'
5517: ,p_resize_flag => 'N'
5518: ,p_msg_context => 'FUNDING'
5660: l_resp_id := FND_GLOBAL.Resp_id;
5661:
5662: -- This call is added for patchset K project role based security check
5663:
5664: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := p_project_id;
5665:
5666:
5667: -- Actions performed using the APIs would be subject to
5668: -- function security. If the responsibility does not allow
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'
5694: ,p_msg_attribute => 'CHANGE'
5695: ,p_resize_flag => 'Y'
5696: ,p_msg_context => 'GENERAL'
5719: -- CHECK WHETHER MANDATORY INCOMING PARAMETERS EXIST
5720:
5721: -- Funding Reference
5722: IF (p_pm_funding_reference IS NULL)
5723: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5724: THEN
5725: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5726: THEN
5727: pa_interface_utils_pub.map_new_amg_msg
5723: OR (p_pm_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
5724: THEN
5725: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5726: THEN
5727: pa_interface_utils_pub.map_new_amg_msg
5728: ( p_old_message_code => 'PA_FUND_REF_IS_MISS'
5729: ,p_msg_attribute => 'CHANGE'
5730: ,p_resize_flag => 'N'
5731: ,p_msg_context => 'GENERAL'
5740: END IF;
5741:
5742: -- Funding Id
5743: IF (p_funding_id IS NULL)
5744: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5745: THEN
5746: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5747: THEN
5748: pa_interface_utils_pub.map_new_amg_msg
5744: OR (p_funding_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
5745: THEN
5746: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5747: THEN
5748: pa_interface_utils_pub.map_new_amg_msg
5749: ( p_old_message_code => 'PA_FUND_ID_IS_MISS'
5750: ,p_msg_attribute => 'CHANGE'
5751: ,p_resize_flag => 'N'
5752: ,p_msg_context => 'GENERAL'
5767: ,p_agreement_id => p_agreement_id) = 'N'
5768: THEN
5769: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5770: THEN
5771: pa_interface_utils_pub.map_new_amg_msg
5772: ( p_old_message_code => 'PA_INVD_FUND_REF'
5773: ,p_msg_attribute => 'CHANGE'
5774: ,p_resize_flag => 'Y'
5775: ,p_msg_context => 'AGREEMENT'
5788: (p_agreement_id => p_agreement_id) = 'N'
5789: THEN
5790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5791: THEN
5792: pa_interface_utils_pub.map_new_amg_msg
5793: ( p_old_message_code => 'PA_INVALID_FUNDING_ID'
5794: ,p_msg_attribute => 'CHANGE'
5795: ,p_resize_flag => 'Y'
5796: ,p_msg_context => 'AGREEMENT'
5825: IF l_validate_status = 'N'
5826: THEN
5827: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5828: THEN
5829: pa_interface_utils_pub.map_new_amg_msg
5830: ( p_old_message_code => 'PA_INVALID_FF_VALUES'
5831: ,p_msg_attribute => 'CHANGE'
5832: ,p_resize_flag => 'N'
5833: ,p_msg_context => 'FLEX'
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
5912: ,p_pm_budget_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
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
5912: ,p_pm_budget_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
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
5912: ,p_pm_budget_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
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
5912: ,p_pm_budget_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5911: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5912: ,p_pm_budget_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5912: ,p_pm_budget_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5913: -- ,p_budget_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5914: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5915: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5916: -- ,p_budget_type_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR Always "AR"
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5917: ,p_change_reason_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5918: -- ,p_description IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5919: -- ,p_entry_method_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5920: -- ,p_resource_list_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5921: -- ,p_resource_list_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5922: ,p_attribute_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5923: ,p_attribute1 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5924: ,p_attribute2 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5925: ,p_attribute3 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5926: ,p_attribute4 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5927: ,p_attribute5 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5928: ,p_attribute6 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5929: ,p_attribute7 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5930: ,p_attribute8 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5938: ,p_create_new_curr_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5931: ,p_attribute9 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5938: ,p_create_new_curr_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5939: ,p_replace_current_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5932: ,p_attribute10 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5938: ,p_create_new_curr_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5939: ,p_replace_current_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5940: )
5933: ,p_attribute11 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5938: ,p_create_new_curr_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5939: ,p_replace_current_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5940: )
5941: IS
5934: ,p_attribute12 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5938: ,p_create_new_curr_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5939: ,p_replace_current_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5940: )
5941: IS
5942: CURSOR res_info IS
5935: ,p_attribute13 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5936: ,p_attribute14 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5937: ,p_attribute15 IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5938: ,p_create_new_curr_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5939: ,p_replace_current_working_flag IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR /* Added for bug#9892202 */
5940: )
5941: IS
5942: CURSOR res_info IS
5943: SELECT R1.resource_list_id resource_list_id,
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
6112: ( p_old_message_code => 'PA_INVALID_PROJECT'
6113: ,p_msg_attribute => 'CHANGE'
6114: ,p_resize_flag => 'N'
6115: ,p_msg_context => 'CONTRACT'
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'
6141: ,p_resize_flag => 'N'
6142: ,p_msg_context => 'BUDG'
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'
6160: ,p_resize_flag => 'N'
6161: ,p_msg_context => 'BUDG'
6178: x_err_stage => l_err_stage,
6179: x_err_stack => l_err_stack);
6180:
6181: IF l_err_code <> 0 then
6182: pa_interface_utils_pub.map_new_amg_msg
6183: ( p_old_message_code => l_err_code
6184: ,p_msg_attribute => 'CHANGE'
6185: ,p_resize_flag => 'N'
6186: ,p_msg_context => 'BUDG'