[Home] [Help]
109: RAISE FND_API.G_EXC_ERROR;
110: END IF;
111:
112: IF l_function_allowed = 'N' THEN
113: pa_interface_utils_pub.map_new_amg_msg
114: ( p_old_message_code => 'PA_FUNC_SECURITY_ENFORCED'
115: ,p_msg_attribute => 'CHANGE'
116: ,p_resize_flag => 'Y'
117: ,p_msg_context => 'GENERAL'
136: ELSE
137: g_rev_evt_fun_allowed := 'N';
138: END IF;
139: IF (g_inv_evt_fun_allowed = 'N') AND (g_rev_evt_fun_allowed = 'N') THEN
140: pa_interface_utils_pub.map_new_amg_msg
141: ( p_old_message_code => 'PA_EV_NO_PRV_MAINT_AMG'
142: ,p_msg_attribute => 'CHANGE'
143: ,p_resize_flag => 'Y'
144: ,p_msg_context => 'GENERAL'
160: End If;
161:
162: -- CHECK WHETHER MANDATORY INCOMING PARAMETER PRODUCT CODE EXIST
163: IF (p_pm_product_code IS NULL)
164: OR (p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
165: THEN
166: IF (p_pm_product_code IS NOT NULL AND p_function_name <> 'PA_EV_UPDATE_EVENT') /* Added for bug 5056969 */
167: THEN
168: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
166: IF (p_pm_product_code IS NOT NULL AND p_function_name <> 'PA_EV_UPDATE_EVENT') /* Added for bug 5056969 */
167: THEN
168: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
169: THEN
170: pa_interface_utils_pub.map_new_amg_msg
171: ( p_old_message_code => 'PA_PRODUCT_CODE_IS_MISS'
172: ,p_msg_attribute => 'CHANGE'
173: ,p_resize_flag => 'N'
174: ,p_msg_context => 'GENERAL'
189: If l_product_code Is NULL
190: Then
191: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
192: THEN
193: pa_interface_utils_pub.map_new_amg_msg
194: ( p_old_message_code => 'PA_INVALID_PRODUCT_CODE'
195: ,p_msg_attribute => 'CHANGE'
196: ,p_resize_flag => 'N'
197: ,p_msg_context => 'GENERAL'
285: ,x_log_level => 5);
286: END IF;
287:
288: IF (p_pm_event_reference IS NULL
289: OR p_pm_event_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
290: THEN
291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
292: THEN
293: pa_interface_utils_pub.map_new_amg_msg
289: OR p_pm_event_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
290: THEN
291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
292: THEN
293: pa_interface_utils_pub.map_new_amg_msg
294: ( p_old_message_code =>'PA_EVENT_REF_IS_MISS'
295: ,p_msg_attribute => 'CHANGE'
296: ,p_resize_flag => 'N'
297: ,p_msg_context => 'EVENT'
329: ,P_pm_event_reference =>P_pm_event_reference)='N'
330: Then
331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
332: THEN
333: pa_interface_utils_pub.map_new_amg_msg
334: ( p_old_message_code => 'PA_EVENT_REF_IS_NOT_UNQ'
335: ,p_msg_attribute => 'CHANGE'
336: ,p_resize_flag => 'N'
337: ,p_msg_context => 'EVENT'
352: ,x_log_level => 5);
353: END IF;
354:
355: IF (p_project_number IS NULL
356: OR p_project_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
357: THEN
358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
359: THEN
360: pa_interface_utils_pub.map_new_amg_msg
356: OR p_project_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
357: THEN
358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
359: THEN
360: pa_interface_utils_pub.map_new_amg_msg
361: ( p_old_message_code => 'PA_PROJ_NUM_IS_MISS'
362: ,p_msg_attribute => 'CHANGE'
363: ,p_resize_flag => 'N'
364: ,p_msg_context => 'EVENT'
378: ,x_log_level => 5);
379: END IF;
380:
381: IF (p_event_type IS NULL
382: OR p_event_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
383: THEN
384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
385: THEN
386: pa_interface_utils_pub.map_new_amg_msg
382: OR p_event_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
383: THEN
384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
385: THEN
386: pa_interface_utils_pub.map_new_amg_msg
387: ( p_old_message_code => 'PA_EVNT_TYPE_IS_MISS'
388: ,p_msg_attribute => 'CHANGE'
389: ,p_resize_flag => 'N'
390: ,p_msg_context => 'EVENT'
404: ,x_log_level => 5);
405: END IF;
406:
407: IF (p_organization_name IS NULL
408: OR p_organization_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
409: THEN
410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
411: THEN
412: pa_interface_utils_pub.map_new_amg_msg
408: OR p_organization_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
409: THEN
410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
411: THEN
412: pa_interface_utils_pub.map_new_amg_msg
413: ( p_old_message_code => 'PA_EVNT_ORG_IS_MISS'
414: ,p_msg_attribute => 'CHANGE'
415: ,p_resize_flag => 'N'
416: ,p_msg_context => 'EVENT'
532: END IF;
533:
534: --validating the task
535: If (P_event_in_rec.P_task_number Is NOT NULL
536: AND P_event_in_rec.P_task_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
537: Then
538: If PA_EVENT_UTILS.check_valid_task
539: (P_project_id =>P_project_id
540: ,P_task_id =>x_task_id
541: ,P_task_num =>P_event_in_rec.P_task_number)='N'
542: Then
543: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
544: THEN
545: pa_interface_utils_pub.map_new_amg_msg
546: ( p_old_message_code => 'PA_INVALID_TOP_TASK'
547: ,p_msg_attribute => 'CHANGE'
548: ,p_resize_flag => 'N'
549: ,p_msg_context => 'EVENT'
572: ,P_task_id =>x_task_id)='N'
573: Then
574: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
575: THEN
576: pa_interface_utils_pub.map_new_amg_msg
577: ( p_old_message_code => 'PA_TASK_FUND_NO_PROJ_EVENT'
578: ,p_msg_attribute => 'CHANGE'
579: ,p_resize_flag => 'N'
580: ,p_msg_context => 'EVENT'
598: --validating the agreement
599: If ( ( P_event_in_rec.P_agreement_number Is NOT NULL OR
600: P_event_in_rec.P_agreement_type IS NOT NULL OR
601: P_event_in_rec.P_customer_number IS NOT NULL )
602: AND( P_event_in_rec.P_agreement_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR))
603: Then
604: If PA_EVENT_UTILS.CHECK_VALID_AGREEMENT (
605: P_project_id => P_project_id
606: ,P_task_id => x_task_id
610: ,P_agreement_id => x_agreement_id ) ='N'
611: Then
612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
613: THEN
614: pa_interface_utils_pub.map_new_amg_msg
615: ( p_old_message_code => 'PA_INVALID_AGMT_NUM'
616: ,p_msg_attribute => 'CHANGE'
617: ,p_resize_flag => 'N'
618: ,p_msg_context => 'EVENT'
635: END IF;
636:
637: --validating event date
638: If ( P_event_in_rec.P_completion_date Is NOT NULL
639: AND P_event_in_rec.P_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE )
640: Then
641: If PA_EVENT_UTILS.CHECK_VALID_EVENT_DATE (
642: P_event_date => P_event_in_rec.P_completion_date
643: ,P_agreement_id => x_agreement_id ) ='N'
643: ,P_agreement_id => x_agreement_id ) ='N'
644: Then
645: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
646: THEN
647: pa_interface_utils_pub.map_new_amg_msg
648: ( p_old_message_code => 'PA_INVALID_EVENT_DATE'
649: ,p_msg_attribute => 'CHANGE'
650: ,p_resize_flag => 'N'
651: ,p_msg_context => 'EVENT'
670:
671: If ( P_event_in_rec.P_context = 'D' )
672: Then
673: IF (P_event_in_rec.P_deliverable_id IS NULL OR
674: P_event_in_rec.P_deliverable_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
675: Then
676: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
677: THEN
678: pa_interface_utils_pub.map_new_amg_msg
674: P_event_in_rec.P_deliverable_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
675: Then
676: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
677: THEN
678: pa_interface_utils_pub.map_new_amg_msg
679: ( p_old_message_code => 'PA_EV_DLV_ID_MISS'
680: ,p_msg_attribute => 'CHANGE'
681: ,p_resize_flag => 'N'
682: ,p_msg_context => 'EVENT'
689: l_return_status:='N';
690: END If;
691:
692: IF (P_event_in_rec.P_action_id IS NULL OR
693: P_event_in_rec.P_action_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
694: Then
695: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
696: THEN
697: pa_interface_utils_pub.map_new_amg_msg
693: P_event_in_rec.P_action_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
694: Then
695: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
696: THEN
697: pa_interface_utils_pub.map_new_amg_msg
698: ( p_old_message_code => 'PA_EV_ACT_ID_MISS'
699: ,p_msg_attribute => 'CHANGE'
700: ,p_resize_flag => 'N'
701: ,p_msg_context => 'EVENT'
716: ,X_event_type_classification =>p_event_type_classification)='N'
717: Then
718: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
719: THEN
720: pa_interface_utils_pub.map_new_amg_msg
721: ( p_old_message_code => 'PA_INVALID_EVNT_TYPE'
722: ,p_msg_attribute => 'CHANGE'
723: ,p_resize_flag => 'N'
724: ,p_msg_context => 'EVENT'
732: End If;
733: --For Bug 3619483
734: IF ((g_rev_evt_fun_allowed = 'N' ) AND
735: (p_event_type_classification IN('WRITE ON','WRITE OFF') )) THEN
736: pa_interface_utils_pub.map_new_amg_msg
737: ( p_old_message_code => 'PA_EV_NO_REV_MAINT_AMG'
738: ,p_msg_attribute => 'CHANGE'
739: ,p_resize_flag => 'Y'
740: ,p_msg_context => 'GENERAL'
747: END IF;
748:
749: IF ((g_inv_evt_fun_allowed = 'N' ) AND
750: (p_event_type_classification IN('DEFERRED REVENUE','INVOICE REDUCTION','SCHEDULED PAYMENTS'))) THEN
751: pa_interface_utils_pub.map_new_amg_msg
752: ( p_old_message_code => 'PA_EV_NO_INV_MAINT_AMG'
753: ,p_msg_attribute => 'CHANGE'
754: ,p_resize_flag => 'Y'
755: ,p_msg_context => 'GENERAL'
764: IF ((p_event_type_classification = 'MANUAL') AND
765: (g_inv_evt_fun_allowed = 'Y' ) AND
766: (g_rev_evt_fun_allowed = 'N' ) AND
767: (NVL(p_event_in_rec.P_bill_trans_rev_amount,0)<> 0)) THEN
768: pa_interface_utils_pub.map_new_amg_msg
769: ( p_old_message_code => 'PA_EV_NO_REV_MAINT_AMG'
770: ,p_msg_attribute => 'CHANGE'
771: ,p_resize_flag => 'Y'
772: ,p_msg_context => 'GENERAL'
774: ,p_attribute2 => ''
775: ,p_attribute3 => ''
776: ,p_attribute4 => ''
777: ,p_attribute5 => '');
778: pa_interface_utils_pub.map_new_amg_msg
779: ( p_old_message_code => 'PA_INVALID_REV_AMT_AMG'
780: ,p_msg_attribute => 'CHANGE'
781: ,p_resize_flag => 'Y'
782: ,p_msg_context => 'GENERAL'
791: IF ((p_event_type_classification = 'MANUAL') AND
792: (g_inv_evt_fun_allowed = 'N' ) AND
793: (g_rev_evt_fun_allowed = 'Y' ) AND
794: (NVL(p_event_in_rec.P_bill_trans_bill_amount,0) <> 0 )) THEN
795: pa_interface_utils_pub.map_new_amg_msg
796: ( p_old_message_code => 'PA_EV_NO_INV_MAINT_AMG'
797: ,p_msg_attribute => 'CHANGE'
798: ,p_resize_flag => 'Y'
799: ,p_msg_context => 'GENERAL'
801: ,p_attribute2 => ''
802: ,p_attribute3 => ''
803: ,p_attribute4 => ''
804: ,p_attribute5 => '');
805: pa_interface_utils_pub.map_new_amg_msg
806: ( p_old_message_code => 'PA_INVALID_BILL_AMT_AMG'
807: ,p_msg_attribute => 'CHANGE'
808: ,p_resize_flag => 'Y'
809: ,p_msg_context => 'GENERAL'
830: ,P_event_org_id =>x_Organization_Id)='N'
831: Then
832: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
833: THEN
834: pa_interface_utils_pub.map_new_amg_msg
835: ( p_old_message_code => 'PA_INVALID_EVNT_ORG'
836: ,p_msg_attribute => 'CHANGE'
837: ,p_resize_flag => 'N'
838: ,p_msg_context => 'EVENT'
873: (P_bill_trans_curr =>p_event_in_rec.P_bill_trans_currency_code)='N'
874: Then
875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
876: THEN
877: pa_interface_utils_pub.map_new_amg_msg
878: (p_old_message_code => 'PA_INVALID_BIL_TRX_CUR'
879: ,p_msg_attribute => 'CHANGE'
880: ,p_resize_flag => 'N'
881: ,p_msg_context => 'EVENT'
899: END IF;
900:
901: --If funding rate type is null or '^' then the default value is used for other validations.
902: If (P_event_in_rec.P_funding_rate_type Is NOT NULL
903: AND P_event_in_rec.P_funding_rate_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
904: Then
905: If PA_EVENT_UTILS.check_valid_fund_rate_type
906: (P_fund_rate_type =>P_event_in_rec.P_funding_rate_type,
907: x_fund_rate_type =>l_funding_rate_type)='N'
907: x_fund_rate_type =>l_funding_rate_type)='N'
908: Then
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
910: THEN
911: pa_interface_utils_pub.map_new_amg_msg
912: ( p_old_message_code => 'PA_FUND_RATE_TYPE_INV'
913: ,p_msg_attribute => 'CHANGE'
914: ,p_resize_flag => 'N'
915: ,p_msg_context => 'EVENT'
932: -- irrespective of the Rate Type we should raise an error.
933:
934: If ((UPPER(P_event_in_rec.P_funding_rate_type) = 'USER'
935: AND p_event_in_rec.P_funding_rate_type <> P_funding_rate_type
936: AND ( p_event_in_rec.P_funding_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
937: OR p_event_in_rec.P_funding_exchange_rate Is NULL ))
938: OR p_event_in_rec.P_funding_exchange_rate <= 0)
939: Then
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
938: OR p_event_in_rec.P_funding_exchange_rate <= 0)
939: Then
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
941: THEN
942: pa_interface_utils_pub.map_new_amg_msg
943: ( p_old_message_code => 'PA_FUND_EXCG_RATE_INV'
944: ,p_msg_attribute => 'CHANGE'
945: ,p_resize_flag => 'N'
946: ,p_msg_context => 'EVENT'
957: If ( p_funding_bil_rate_date_code ='FIXED_DATE'
958: AND UPPER(P_funding_rate_type) ='USER'
959: AND NVL(UPPER(P_event_in_rec.P_funding_rate_type),'USER') <>'USER'
960: AND (P_event_in_rec.P_funding_rate_date IS NULL
961: OR P_event_in_rec.P_funding_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE))
962: THEN
963: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
964: THEN
965: pa_interface_utils_pub.map_new_amg_msg
961: OR P_event_in_rec.P_funding_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE))
962: THEN
963: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
964: THEN
965: pa_interface_utils_pub.map_new_amg_msg
966: ( p_old_message_code => 'PA_INVALID_FUND_DATE'
967: ,p_msg_attribute => 'CHANGE'
968: ,p_resize_flag => 'N'
969: ,p_msg_context => 'EVENT'
985: /*We validate the PC attributes only when PC<>PFC for Bug 3045302*/
986: IF (P_project_currency_code <> P_proj_func_currency_code )
987: THEN
988: If(p_event_in_rec.P_project_rate_date Is NULL
989: or p_event_in_rec.P_project_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
990: Then
991: l_project_rate_date := p_project_bil_rate_date;
992: Else
993: l_project_rate_date := p_event_in_rec.P_project_rate_date;
993: l_project_rate_date := p_event_in_rec.P_project_rate_date;
994: End If;
995:
996: If (p_event_in_rec.P_project_rate_type Is NOT NULL
997: AND p_event_in_rec.P_project_rate_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
998: Then
999: If PA_EVENT_UTILS.check_valid_proj_rate_type
1000: (
1001: P_proj_rate_type =>p_event_in_rec.P_project_rate_type
1009: ) ='N'
1010: Then
1011: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1012: THEN
1013: pa_interface_utils_pub.map_new_amg_msg
1014: ( p_old_message_code => 'PA_PROJ_RATE_TYPE_INV'
1015: ,p_msg_attribute => 'CHANGE'
1016: ,p_resize_flag => 'N'
1017: ,p_msg_context => 'EVENT'
1038:
1039: If ((l_proj_func_currency_code <> P_project_currency_code
1040: AND UPPER(p_event_in_rec.P_project_rate_type) = 'USER'
1041: AND p_event_in_rec.P_project_rate_type <> P_project_rate_type
1042: AND ( p_event_in_rec.P_project_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1043: OR p_event_in_rec.P_project_exchange_rate Is NULL))
1044: OR p_event_in_rec.P_project_exchange_rate <= 0)
1045: Then
1046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1044: OR p_event_in_rec.P_project_exchange_rate <= 0)
1045: Then
1046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1047: THEN
1048: pa_interface_utils_pub.map_new_amg_msg
1049: ( p_old_message_code => 'PA_PROJ_EXCG_RATE_INV'
1050: ,p_msg_attribute => 'CHANGE'
1051: ,p_resize_flag => 'N'
1052: ,p_msg_context => 'EVENT'
1063: If ( P_project_bil_rate_date_code ='FIXED_DATE'
1064: AND UPPER(P_project_rate_type) ='USER'
1065: AND NVL(UPPER(P_event_in_rec.P_project_rate_type),'USER') <>'USER'
1066: AND (P_event_in_rec.P_project_rate_date IS NULL
1067: OR P_event_in_rec.P_project_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE))
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_event_in_rec.P_project_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE))
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_INVALID_PROJ_DATE'
1073: ,p_msg_attribute => 'CHANGE'
1074: ,p_resize_flag => 'N'
1075: ,p_msg_context => 'EVENT'
1090: ,x_log_level => 5);
1091: END IF;
1092:
1093: If (P_event_in_rec.P_projfunc_rate_date Is NULL
1094: OR P_event_in_rec.P_projfunc_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
1095: Then
1096: l_projfunc_rate_date:=p_projfunc_bil_rate_date;
1097: Else
1098: l_projfunc_rate_date :=P_event_in_rec.P_projfunc_rate_date;
1098: l_projfunc_rate_date :=P_event_in_rec.P_projfunc_rate_date;
1099: End If;
1100:
1101: If (p_event_in_rec.P_projfunc_rate_type Is NOT NULL
1102: AND p_event_in_rec.P_projfunc_rate_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1103: Then
1104: If PA_EVENT_UTILS.check_valid_pfc_rate_type
1105: (P_pfc_rate_type =>P_event_in_rec.P_projfunc_rate_type
1106: ,P_bill_trans_currency_code =>l_proj_func_currency_code
1114: ='N'
1115: Then
1116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1117: THEN
1118: pa_interface_utils_pub.map_new_amg_msg
1119: ( p_old_message_code =>'PA_PFC_RATE_TYPE_INV'
1120: ,p_msg_attribute => 'CHANGE'
1121: ,p_resize_flag => 'N'
1122: ,p_msg_context => 'EVENT'
1143:
1144: If ((P_proj_func_currency_code <> l_proj_func_currency_code
1145: AND UPPER(p_event_in_rec.P_projfunc_rate_type) = 'USER'
1146: AND p_event_in_rec.P_projfunc_rate_type <> P_projfunc_rate_type
1147: AND (p_event_in_rec.P_projfunc_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1148: OR p_event_in_rec.P_projfunc_exchange_rate Is NULL ))
1149: OR p_event_in_rec.P_projfunc_exchange_rate <= 0)
1150: Then
1151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1149: OR p_event_in_rec.P_projfunc_exchange_rate <= 0)
1150: Then
1151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1152: THEN
1153: pa_interface_utils_pub.map_new_amg_msg
1154: ( p_old_message_code => 'PA_PFC_EXCG_RATE_INV'
1155: ,p_msg_attribute => 'CHANGE'
1156: ,p_resize_flag => 'N'
1157: ,p_msg_context => 'EVENT'
1168: If ( p_projfunc_bil_rate_date_code ='FIXED_DATE'
1169: AND UPPER(P_projfunc_rate_type) ='USER'
1170: AND NVL(UPPER(P_event_in_rec.P_projfunc_rate_type),'USER') <>'USER'
1171: AND (P_event_in_rec.P_projfunc_rate_date IS NULL
1172: OR P_event_in_rec.P_projfunc_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE))
1173: THEN
1174: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1175: THEN
1176: pa_interface_utils_pub.map_new_amg_msg
1172: OR P_event_in_rec.P_projfunc_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE))
1173: THEN
1174: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1175: THEN
1176: pa_interface_utils_pub.map_new_amg_msg
1177: ( p_old_message_code => 'PA_INVALID_PROJFUNC_DATE'
1178: ,p_msg_attribute => 'CHANGE'
1179: ,p_resize_flag => 'N'
1180: ,p_msg_context => 'EVENT'
1195: ElsIf (p_event_in_rec.P_bill_trans_currency_code <> P_proj_func_currency_code)
1196: Then
1197: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1198: THEN
1199: pa_interface_utils_pub.map_new_amg_msg
1200: -- (p_old_message_code => 'PA_INVALID_BIL_TRX_CUR' -- Commented for Bug#3013172
1201: (p_old_message_code => 'PA_EVENT_NON_MCB_OPTION' -- Modified the message code for Bug#3013172
1202: ,p_msg_attribute => 'CHANGE'
1203: ,p_resize_flag => 'N'
1223: END IF;
1224:
1225: --validating the Adjusting Revenue flag
1226: If(p_event_in_rec.P_adjusting_revenue_flag Is NOT NULL
1227: AND p_event_in_rec.P_adjusting_revenue_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1228: AND PA_EVENT_PVT.CHECK_YES_NO
1229: (P_flag =>P_event_in_rec.P_adjusting_revenue_flag)='N')
1230: Then
1231: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1229: (P_flag =>P_event_in_rec.P_adjusting_revenue_flag)='N')
1230: Then
1231: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1232: THEN
1233: pa_interface_utils_pub.map_new_amg_msg
1234: ( p_old_message_code =>'PA_INVALID_ADJ_REV_FLG'
1235: ,p_msg_attribute => 'CHANGE'
1236: ,p_resize_flag => 'N'
1237: ,p_msg_context => 'EVENT'
1248: OR p_event_type_classification <> 'MANUAL')
1249: Then
1250: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1251: THEN
1252: pa_interface_utils_pub.map_new_amg_msg
1253: ( p_old_message_code =>'PA_INV_EV_TYP_ADJ_REV'
1254: ,p_msg_attribute => 'CHANGE'
1255: ,p_resize_flag => 'N'
1256: ,p_msg_context => 'EVENT'
1281: ,P_rev_amt =>p_event_in_rec.P_bill_trans_rev_amount)='N'
1282: Then
1283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1284: THEN
1285: pa_interface_utils_pub.map_new_amg_msg
1286: ( p_old_message_code => 'PA_PR_EPR_REV_GT_ZERO'
1287: ,p_msg_attribute => 'CHANGE'
1288: ,p_resize_flag => 'N'
1289: ,p_msg_context => 'EVENT'
1297: --call to check revenue amount for write-off events .The check should be done only if the p_completion_date
1298: -- is not NULL.
1299: /*For bug 3053669 */
1300: ElsIf (p_event_type_classification = 'WRITE OFF'AND P_event_in_rec.p_completion_date is not NULL
1301: AND P_event_in_rec.p_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE )
1302: Then
1303:
1304: l_ret_status:=PA_EVENT_UTILS.check_write_off_amt
1305: (P_project_id =>P_project_id
1322: If l_ret_status = 'N'
1323: Then
1324: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1325: THEN
1326: pa_interface_utils_pub.map_new_amg_msg
1327: ( p_old_message_code =>'PA_TK_EXCESS_REV'
1328: ,p_msg_attribute => 'CHANGE'
1329: ,p_resize_flag => 'N'
1330: ,p_msg_context => 'EVENT'
1337: l_return_status:='N';
1338: Else
1339: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1340: THEN
1341: pa_interface_utils_pub.map_new_amg_msg
1342: ( p_old_message_code =>l_ret_status
1343: ,p_msg_attribute => 'CHANGE'
1344: ,p_resize_flag => 'N'
1345: ,p_msg_context => 'EVENT'
1354: End If; /*If l_ret_status <> 'Y'*/
1355: End If;
1356: ElsIf (p_event_type_classification In('MANUAL','WRITE ON','WRITE OFF')
1357: AND (p_event_in_rec.P_bill_trans_rev_amount Is NULL
1358: OR p_event_in_rec.P_bill_trans_rev_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM))
1359: Then
1360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1361: THEN
1362: pa_interface_utils_pub.map_new_amg_msg
1358: OR p_event_in_rec.P_bill_trans_rev_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM))
1359: Then
1360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1361: THEN
1362: pa_interface_utils_pub.map_new_amg_msg
1363: ( p_old_message_code => 'PA_INVALID_REV_AMT'
1364: ,p_msg_attribute => 'CHANGE'
1365: ,p_resize_flag => 'N'
1366: ,p_msg_context => 'EVENT'
1386: ,P_bill_amt =>p_event_in_rec.P_bill_trans_bill_amount)='N'
1387: Then
1388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1389: THEN
1390: pa_interface_utils_pub.map_new_amg_msg
1391: ( p_old_message_code => 'PA_PR_EPR_BILL_GT_ZERO'
1392: ,p_msg_attribute => 'CHANGE'
1393: ,p_resize_flag => 'N'
1394: ,p_msg_context => 'EVENT'
1400: END IF;
1401: l_return_status:='N';
1402: ElsIf (p_event_type_classification In('MANUAL','DEFERRED REVENUE','INVOICE REDUCTION','SCHEDULED PAYMENTS')
1403: AND (p_event_in_rec.P_bill_trans_bill_amount Is NULL
1404: OR p_event_in_rec.P_bill_trans_bill_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM))
1405: Then
1406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1407: THEN
1408: pa_interface_utils_pub.map_new_amg_msg
1404: OR p_event_in_rec.P_bill_trans_bill_amount = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM))
1405: Then
1406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1407: THEN
1408: pa_interface_utils_pub.map_new_amg_msg
1409: ( p_old_message_code => 'PA_INVALID_BILL_AMT'
1410: ,p_msg_attribute => 'CHANGE'
1411: ,p_resize_flag => 'N'
1412: ,p_msg_context => 'EVENT'
1428:
1429:
1430: --validating the Bill hold flag
1431: If (p_event_in_rec.P_bill_hold_flag Is NOT NULL
1432: AND p_event_in_rec.P_bill_hold_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1433: Then
1434: If (upper(p_event_in_rec.P_bill_hold_flag) NOT In('Y','N','O'))
1435: Then
1436: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1434: If (upper(p_event_in_rec.P_bill_hold_flag) NOT In('Y','N','O'))
1435: Then
1436: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1437: THEN
1438: pa_interface_utils_pub.map_new_amg_msg
1439: ( p_old_message_code => 'PA_INVALID_BIL_HLD_FLG'
1440: ,p_msg_attribute => 'CHANGE'
1441: ,p_resize_flag => 'N'
1442: ,p_msg_context => 'EVENT'
1458: END IF;
1459:
1460: --validating the event number
1461: If (p_event_in_rec.P_event_number Is NOT NULL
1462: AND p_event_in_rec.P_event_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1463: AND PA_EVENT_UTILS.CHECK_VALID_EVENT_NUM
1464: (P_project_id =>P_project_id
1465: ,P_task_id =>x_task_id
1466: ,P_event_num =>p_event_in_rec.P_event_number)='N')
1466: ,P_event_num =>p_event_in_rec.P_event_number)='N')
1467: Then
1468: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1469: THEN
1470: pa_interface_utils_pub.map_new_amg_msg
1471: ( p_old_message_code => 'PA_INV_EVNT_NUM'
1472: ,p_msg_attribute => 'CHANGE'
1473: ,p_resize_flag => 'N'
1474: ,p_msg_context => 'EVENT'
1490:
1491:
1492: --validating the inventory organization name should be valid and active
1493: If (p_event_in_rec.P_inventory_org_name Is NOT NULL
1494: AND p_event_in_rec.P_inventory_org_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1495: AND PA_EVENT_UTILS.CHECK_VALID_INV_ORG
1496: (P_inv_org_name =>p_event_in_rec.P_inventory_org_name
1497: ,P_inv_org_id =>x_inv_org_id)='N')
1498: Then
1497: ,P_inv_org_id =>x_inv_org_id)='N')
1498: Then
1499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1500: THEN
1501: pa_interface_utils_pub.map_new_amg_msg
1502: ( p_old_message_code => 'PA_INV_INVT_ORG_NAME'
1503: ,p_msg_attribute => 'CHANGE'
1504: ,p_resize_flag => 'N'
1505: ,p_msg_context => 'EVENT'
1520: END IF;
1521:
1522: --validating the inventory item_id
1523: If (p_event_in_rec.P_inventory_item_id Is NOT NULL
1524: AND p_event_in_rec.P_inventory_item_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1525: AND PA_EVENT_UTILS.CHECK_VALID_INV_ITEM
1526: (P_inv_item_id =>p_event_in_rec.P_inventory_item_id)='N')
1527: Then
1528: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1526: (P_inv_item_id =>p_event_in_rec.P_inventory_item_id)='N')
1527: Then
1528: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1529: THEN
1530: pa_interface_utils_pub.map_new_amg_msg
1531: ( p_old_message_code => 'PA_INV_INVT_ITEM'
1532: ,p_msg_attribute => 'CHANGE'
1533: ,p_resize_flag => 'N'
1534: ,p_msg_context => 'EVENT'
1689: WHEN NO_DATA_FOUND THEN
1690:
1691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1692: THEN
1693: pa_interface_utils_pub.map_new_amg_msg
1694: ( p_old_message_code => 'PA_EVENT_IN_DELV_UPD'
1695: ,p_msg_attribute => 'CHANGE'
1696: ,p_resize_flag => 'N'
1697: ,p_msg_context => 'EVENT'
1707: ElsIf l_event_processed = 'N'
1708: Then
1709: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1710: THEN
1711: pa_interface_utils_pub.map_new_amg_msg
1712: ( p_old_message_code => 'PA_TK_EVENT_IN_USE'
1713: ,p_msg_attribute => 'CHANGE'
1714: ,p_resize_flag => 'N'
1715: ,p_msg_context => 'EVENT'
1738: ELSIF l_event_processed = 'P'
1739: THEN
1740: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1741: THEN
1742: pa_interface_utils_pub.map_new_amg_msg
1743: ( p_old_message_code => 'PA_EVENT_PARTIAL_BILL'
1744: ,p_msg_attribute => 'CHANGE'
1745: ,p_resize_flag => 'N'
1746: ,p_msg_context => 'EVENT'
1793: P_event_in_rec.P_adjusting_revenue_flag IS NOT NULL ) THEN
1794:
1795: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1796: THEN
1797: pa_interface_utils_pub.map_new_amg_msg
1798: ( p_old_message_code => 'PA_EVENT_CANCEL_UPD'
1799: ,p_msg_attribute => 'CHANGE'
1800: ,p_resize_flag => 'N'
1801: ,p_msg_context => 'EVENT'
1820: END IF;
1821:
1822: --validating the task
1823: If (P_event_in_rec.P_task_number Is NOT NULL
1824: AND P_event_in_rec.P_task_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1825: Then
1826: If PA_EVENT_UTILS.CHECK_VALID_TASK
1827: (P_project_id =>P_project_id
1828: ,P_task_id =>x_task_id
1829: ,P_task_num =>P_event_in_rec.P_task_number)='N'
1830: Then
1831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1832: THEN
1833: pa_interface_utils_pub.map_new_amg_msg
1834: ( p_old_message_code => 'PA_INVALID_TOP_TASK'
1835: ,p_msg_attribute => 'CHANGE'
1836: ,p_resize_flag => 'N'
1837: ,p_msg_context => 'EVENT'
1865: ,P_task_id =>x_task_id)='N'
1866: Then
1867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1868: THEN
1869: pa_interface_utils_pub.map_new_amg_msg
1870: ( p_old_message_code => 'PA_TASK_FUND_NO_PROJ_EVENT'
1871: ,p_msg_attribute => 'CHANGE'
1872: ,p_resize_flag => 'N'
1873: ,p_msg_context => 'EVENT'
1900: from pa_events
1901: where event_id = P_event_in_rec.P_event_id;
1902: else
1903: if
1904: (P_event_in_rec.P_agreement_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
1905: (P_event_in_rec.P_agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
1906: (P_event_in_rec.P_customer_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1907: Then
1908: x_agreement_id := NULL;
1901: where event_id = P_event_in_rec.P_event_id;
1902: else
1903: if
1904: (P_event_in_rec.P_agreement_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
1905: (P_event_in_rec.P_agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
1906: (P_event_in_rec.P_customer_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1907: Then
1908: x_agreement_id := NULL;
1909: else
1902: else
1903: if
1904: (P_event_in_rec.P_agreement_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
1905: (P_event_in_rec.P_agreement_type = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
1906: (P_event_in_rec.P_customer_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1907: Then
1908: x_agreement_id := NULL;
1909: else
1910: if PA_EVENT_UTILS.CHECK_VALID_AGREEMENT (
1916: ,P_agreement_id => x_agreement_id ) ='N'
1917: Then
1918: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1919: THEN
1920: pa_interface_utils_pub.map_new_amg_msg
1921: ( p_old_message_code => 'PA_INVALID_AGMT_NUM'
1922: ,p_msg_attribute => 'CHANGE'
1923: ,p_resize_flag => 'N'
1924: ,p_msg_context => 'EVENT'
1952: ELSE
1953: l_event_date := P_event_in_rec.P_completion_date;
1954: END IF;
1955:
1956: IF l_event_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1957: Then
1958: If PA_EVENT_UTILS.CHECK_VALID_EVENT_DATE (
1959: P_event_date => l_event_date
1960: ,P_agreement_id => x_agreement_id ) ='N'
1960: ,P_agreement_id => x_agreement_id ) ='N'
1961: Then
1962: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1963: THEN
1964: pa_interface_utils_pub.map_new_amg_msg
1965: ( p_old_message_code => 'PA_INVALID_EVENT_DATE'
1966: ,p_msg_attribute => 'CHANGE'
1967: ,p_resize_flag => 'N'
1968: ,p_msg_context => 'EVENT'
1987: END IF;
1988:
1989: --validating the event_type
1990: If (P_event_in_rec.P_event_type Is NOT NULL
1991: AND P_event_in_rec.P_event_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1992: Then
1993: If PA_EVENT_UTILS.CHECK_VALID_EVENT_TYPE
1994: (P_event_type =>P_event_in_rec.P_event_type
1995: ,P_context =>P_event_in_rec.P_context
1996: ,X_event_type_classification =>p_event_type_classification)='N'
1997: Then
1998: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1999: THEN
2000: pa_interface_utils_pub.map_new_amg_msg
2001: (p_old_message_code => 'PA_INVALID_EVNT_TYPE'
2002: ,p_msg_attribute => 'CHANGE'
2003: ,p_resize_flag => 'N'
2004: ,p_msg_context => 'EVENT'
2020: End If;
2021: --For Bug 3619483
2022: IF ( (g_rev_evt_fun_allowed = 'N' ) AND
2023: (p_event_type_classification IN('WRITE ON','WRITE OFF')) ) THEN
2024: pa_interface_utils_pub.map_new_amg_msg
2025: ( p_old_message_code => 'PA_EV_NO_REV_MAINT_AMG'
2026: ,p_msg_attribute => 'CHANGE'
2027: ,p_resize_flag => 'Y'
2028: ,p_msg_context => 'GENERAL'
2035: END IF;
2036:
2037: IF ( (g_inv_evt_fun_allowed = 'N' ) AND
2038: (p_event_type_classification IN('DEFERRED REVENUE','INVOICE REDUCTION','SCHEDULED PAYMENTS'))) THEN
2039: pa_interface_utils_pub.map_new_amg_msg
2040: ( p_old_message_code => 'PA_EV_NO_INV_MAINT_AMG'
2041: ,p_msg_attribute => 'CHANGE'
2042: ,p_resize_flag => 'Y'
2043: ,p_msg_context => 'GENERAL'
2059: IF (p_event_type_classification = 'MANUAL') THEN
2060: IF ( (g_inv_evt_fun_allowed = 'Y' ) AND
2061: (g_rev_evt_fun_allowed = 'N' ) AND
2062: (l_old_rev_amount <> NVL(p_event_in_rec.p_bill_trans_rev_amount,0)) ) THEN
2063: pa_interface_utils_pub.map_new_amg_msg
2064: ( p_old_message_code => 'PA_EV_NO_REV_MAINT_AMG'
2065: ,p_msg_attribute => 'CHANGE'
2066: ,p_resize_flag => 'Y'
2067: ,p_msg_context => 'GENERAL'
2069: ,p_attribute2 => ''
2070: ,p_attribute3 => ''
2071: ,p_attribute4 => ''
2072: ,p_attribute5 => '');
2073: pa_interface_utils_pub.map_new_amg_msg
2074: ( p_old_message_code => 'PA_INVALID_REV_AMT_AMG'
2075: ,p_msg_attribute => 'CHANGE'
2076: ,p_resize_flag => 'Y'
2077: ,p_msg_context => 'GENERAL'
2084:
2085: ELSIF ( (g_inv_evt_fun_allowed = 'N' ) AND
2086: (g_rev_evt_fun_allowed = 'Y' ) AND
2087: (l_old_bill_amount <> NVL(p_event_in_rec.p_bill_trans_bill_amount,0))) THEN
2088: pa_interface_utils_pub.map_new_amg_msg
2089: ( p_old_message_code => 'PA_EV_NO_INV_MAINT_AMG'
2090: ,p_msg_attribute => 'CHANGE'
2091: ,p_resize_flag => 'Y'
2092: ,p_msg_context => 'GENERAL'
2094: ,p_attribute2 => ''
2095: ,p_attribute3 => ''
2096: ,p_attribute4 => ''
2097: ,p_attribute5 => '');
2098: pa_interface_utils_pub.map_new_amg_msg
2099: ( p_old_message_code => 'PA_INVALID_BILL_AMT_AMG'
2100: ,p_msg_attribute => 'CHANGE'
2101: ,p_resize_flag => 'Y'
2102: ,p_msg_context => 'GENERAL'
2119:
2120: --calls PA_EVENT_UTILS.CHECK_VALID_EVENT_ORG to validate and
2121: --derive the organisation_id from organisation name
2122: If (p_event_in_rec.P_organization_name Is NOT NULL
2123: AND p_event_in_rec.P_organization_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2124: AND PA_EVENT_UTILS.CHECK_VALID_EVENT_ORG
2125: (P_event_org_name =>p_event_in_rec.P_organization_name
2126: ,P_event_org_id =>x_Organization_Id)='N')
2127: Then
2126: ,P_event_org_id =>x_Organization_Id)='N')
2127: Then
2128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2129: THEN
2130: pa_interface_utils_pub.map_new_amg_msg
2131: ( p_old_message_code => 'PA_INVALID_EVNT_ORG'
2132: ,p_msg_attribute => 'CHANGE'
2133: ,p_resize_flag => 'N'
2134: ,p_msg_context => 'EVENT'
2155: decode(p_event_in_rec.p_completion_date,NULL,ev.completion_date,P_event_in_rec.p_completion_date),
2156: decode(p_event_in_rec.P_adjusting_revenue_flag,NULL,ev.adjusting_revenue_flag,
2157: p_event_in_rec.P_adjusting_revenue_flag),
2158: decode(p_event_in_rec.P_projfunc_rate_date,NULL,ev.projfunc_rate_date,
2159: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.projfunc_rate_date,
2160: p_event_in_rec.P_projfunc_rate_date),
2161: decode(p_event_in_rec.P_project_rate_date,NULL,ev.project_rate_date,
2162: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.project_rate_date,
2163: p_event_in_rec.P_project_rate_date),
2158: decode(p_event_in_rec.P_projfunc_rate_date,NULL,ev.projfunc_rate_date,
2159: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.projfunc_rate_date,
2160: p_event_in_rec.P_projfunc_rate_date),
2161: decode(p_event_in_rec.P_project_rate_date,NULL,ev.project_rate_date,
2162: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.project_rate_date,
2163: p_event_in_rec.P_project_rate_date),
2164: decode(p_event_in_rec.P_funding_rate_date,NULL,ev.funding_rate_date,
2165: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.funding_rate_date,
2166: p_event_in_rec.P_funding_rate_date)
2161: decode(p_event_in_rec.P_project_rate_date,NULL,ev.project_rate_date,
2162: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.project_rate_date,
2163: p_event_in_rec.P_project_rate_date),
2164: decode(p_event_in_rec.P_funding_rate_date,NULL,ev.funding_rate_date,
2165: PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,ev.funding_rate_date,
2166: p_event_in_rec.P_funding_rate_date)
2167: into l_revenue_amount,l_bill_amount,l_completion_date,l_adjusting_revenue_flag,
2168: l_check_projfunc_rate_date,l_check_project_rate_date,l_check_funding_rate_date
2169: from pa_events ev
2191:
2192: --If bill trans currency code is null or '^' then the default value
2193: --is used for further validation.
2194: /* If (p_event_in_rec.P_bill_trans_currency_code Is NULL) 4027500 */
2195: If (p_event_in_rec.P_bill_trans_currency_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2196: Then
2197: /* l_proj_func_currency_code:=P_proj_func_currency_code; commented for bug 3049100 */
2198:
2199: SELECT bill_trans_currency_code
2205: (P_bill_trans_curr =>p_event_in_rec.P_bill_trans_currency_code)='N'
2206: Then
2207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2208: THEN
2209: pa_interface_utils_pub.map_new_amg_msg
2210: (p_old_message_code => 'PA_INVALID_BIL_TRX_CUR'
2211: ,p_msg_attribute => 'CHANGE'
2212: ,p_resize_flag => 'N'
2213: ,p_msg_context => 'EVENT'
2232:
2233: --If funding rate type is null or '^' then the default value is used for
2234: --other validations.
2235: If (P_event_in_rec.P_funding_rate_type Is NOT NULL
2236: AND P_event_in_rec.P_funding_rate_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2237: Then
2238: If PA_EVENT_UTILS.CHECK_VALID_FUND_RATE_TYPE
2239: (P_fund_rate_type =>P_event_in_rec.P_funding_rate_type
2240: ,x_fund_rate_type =>l_funding_rate_type)='N'
2241:
2242: Then
2243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2244: THEN
2245: pa_interface_utils_pub.map_new_amg_msg
2246: ( p_old_message_code => 'PA_FUND_RATE_TYPE_INV'
2247: ,p_msg_attribute => 'CHANGE'
2248: ,p_resize_flag => 'N'
2249: ,p_msg_context => 'EVENT'
2262: -- If exchange rate has been passed by the AMG is 0 or -ve then
2263: -- irrespective of the Rate Type we should raise an error.
2264: If ((UPPER(P_event_in_rec.P_funding_rate_type) = 'USER'
2265: AND p_event_in_rec.P_funding_rate_type <> P_funding_rate_type
2266: AND ( p_event_in_rec.P_funding_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2267: OR p_event_in_rec.P_funding_exchange_rate Is NULL ))
2268: OR p_event_in_rec.P_funding_exchange_rate <=0 )
2269: Then
2270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2268: OR p_event_in_rec.P_funding_exchange_rate <=0 )
2269: Then
2270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2271: THEN
2272: pa_interface_utils_pub.map_new_amg_msg
2273: ( p_old_message_code => 'PA_FUND_EXCG_RATE_INV'
2274: ,p_msg_attribute => 'CHANGE'
2275: ,p_resize_flag => 'N'
2276: ,p_msg_context => 'EVENT'
2291: AND l_check_funding_rate_date IS NULL )
2292: THEN
2293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2294: THEN
2295: pa_interface_utils_pub.map_new_amg_msg
2296: ( p_old_message_code => 'PA_INVALID_FUND_DATE'
2297: ,p_msg_attribute => 'CHANGE'
2298: ,p_resize_flag => 'N'
2299: ,p_msg_context => 'EVENT'
2318:
2319: IF (P_project_currency_code <> P_proj_func_currency_code )
2320: THEN
2321: If(p_event_in_rec.P_project_rate_date Is NULL
2322: or p_event_in_rec.P_project_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
2323: Then
2324: l_project_rate_date := p_project_bil_rate_date;
2325: Else
2326: l_project_rate_date := p_event_in_rec.P_project_rate_date;
2326: l_project_rate_date := p_event_in_rec.P_project_rate_date;
2327: End If;
2328:
2329: If (p_event_in_rec.P_project_rate_type Is NOT NULL
2330: AND p_event_in_rec.P_project_rate_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2331: Then
2332: If PA_EVENT_UTILS.check_valid_proj_rate_type
2333: (P_proj_rate_type =>p_event_in_rec.P_project_rate_type
2334: ,P_bill_trans_currency_code =>l_proj_func_currency_code
2342:
2343: Then
2344: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2345: THEN
2346: pa_interface_utils_pub.map_new_amg_msg
2347: ( p_old_message_code => 'PA_PROJ_RATE_TYPE_INV'
2348: ,p_msg_attribute => 'CHANGE'
2349: ,p_resize_flag => 'N'
2350: ,p_msg_context => 'EVENT'
2371:
2372: If (( l_proj_func_currency_code <> P_project_currency_code
2373: AND UPPER(p_event_in_rec.P_project_rate_type) = 'USER'
2374: AND p_event_in_rec.P_project_rate_type <> P_project_rate_type
2375: AND ( p_event_in_rec.P_project_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2376: OR p_event_in_rec.P_project_exchange_rate Is NULL))
2377: OR p_event_in_rec.P_project_exchange_rate <= 0)
2378: Then
2379: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2377: OR p_event_in_rec.P_project_exchange_rate <= 0)
2378: Then
2379: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2380: THEN
2381: pa_interface_utils_pub.map_new_amg_msg
2382: ( p_old_message_code => 'PA_PROJ_EXCG_RATE_INV'
2383: ,p_msg_attribute => 'CHANGE'
2384: ,p_resize_flag => 'N'
2385: ,p_msg_context => 'EVENT'
2399: AND l_check_project_rate_date IS NULL)
2400: THEN
2401: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2402: THEN
2403: pa_interface_utils_pub.map_new_amg_msg
2404: ( p_old_message_code => 'PA_INVALID_PROJ_DATE'
2405: ,p_msg_attribute => 'CHANGE'
2406: ,p_resize_flag => 'N'
2407: ,p_msg_context => 'EVENT'
2424: ,x_log_level => 5);
2425: END IF;
2426:
2427: If (P_event_in_rec.P_projfunc_rate_date Is NULL
2428: OR P_event_in_rec.P_projfunc_rate_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE)
2429: Then
2430: l_projfunc_rate_date:=p_projfunc_bil_rate_date;
2431: Else
2432: l_projfunc_rate_date :=P_event_in_rec.P_projfunc_rate_date;
2432: l_projfunc_rate_date :=P_event_in_rec.P_projfunc_rate_date;
2433: End If;
2434:
2435: If (p_event_in_rec.P_projfunc_rate_type Is NOT NULL
2436: AND p_event_in_rec.P_projfunc_rate_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2437: Then
2438: If PA_EVENT_UTILS.check_valid_pfc_rate_type
2439: (P_pfc_rate_type =>P_event_in_rec.P_projfunc_rate_type
2440: ,P_bill_trans_currency_code =>l_proj_func_currency_code
2449:
2450: Then
2451: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2452: THEN
2453: pa_interface_utils_pub.map_new_amg_msg
2454: ( p_old_message_code =>'PA_PFC_RATE_TYPE_INV'
2455: ,p_msg_attribute => 'CHANGE'
2456: ,p_resize_flag => 'N'
2457: ,p_msg_context => 'EVENT'
2478:
2479: If ((P_proj_func_currency_code <> l_proj_func_currency_code
2480: AND UPPER(p_event_in_rec.P_projfunc_rate_type) = 'USER'
2481: AND p_event_in_rec.P_projfunc_rate_type <> P_projfunc_rate_type
2482: AND (p_event_in_rec.P_projfunc_exchange_rate = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2483: OR p_event_in_rec.P_projfunc_exchange_rate Is NULL ))
2484: OR p_event_in_rec.P_projfunc_exchange_rate <= 0)
2485: Then
2486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2484: OR p_event_in_rec.P_projfunc_exchange_rate <= 0)
2485: Then
2486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2487: THEN
2488: pa_interface_utils_pub.map_new_amg_msg
2489: ( p_old_message_code => 'PA_PFC_EXCG_RATE_INV'
2490: ,p_msg_attribute => 'CHANGE'
2491: ,p_resize_flag => 'N'
2492: ,p_msg_context => 'EVENT'
2506: AND l_check_projfunc_rate_date IS NULL )
2507: THEN
2508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2509: THEN
2510: pa_interface_utils_pub.map_new_amg_msg
2511: ( p_old_message_code => 'PA_INVALID_PROJFUNC_DATE'
2512: ,p_msg_attribute => 'CHANGE'
2513: ,p_resize_flag => 'N'
2514: ,p_msg_context => 'EVENT'
2532: ElsIf (p_event_in_rec.P_bill_trans_currency_code <> P_proj_func_currency_code)
2533: Then
2534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2535: THEN
2536: pa_interface_utils_pub.map_new_amg_msg
2537: -- (p_old_message_code => 'PA_INVALID_BIL_TRX_CUR' --Commented for Bug#3013172
2538: (p_old_message_code => 'PA_EVENT_NON_MCB_OPTION' --Modified for Bug#3013172
2539: ,p_msg_attribute => 'CHANGE'
2540: ,p_resize_flag => 'N'
2575: from pa_events ev
2576: where ev.event_id = p_event_in_rec.P_event_id; */
2577:
2578: If(l_adjusting_revenue_flag Is NOT NULL
2579: AND l_adjusting_revenue_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2580: AND PA_EVENT_PVT.CHECK_YES_NO
2581: (P_flag =>l_adjusting_revenue_flag)='N')
2582: Then
2583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2581: (P_flag =>l_adjusting_revenue_flag)='N')
2582: Then
2583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2584: THEN
2585: pa_interface_utils_pub.map_new_amg_msg
2586: ( p_old_message_code =>'PA_INVALID_ADJ_REV_FLG'
2587: ,p_msg_attribute => 'CHANGE'
2588: ,p_resize_flag => 'N'
2589: ,p_msg_context => 'EVENT'
2599: If (p_event_type_classification <> 'MANUAL')
2600: Then
2601: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2602: THEN
2603: pa_interface_utils_pub.map_new_amg_msg
2604: ( p_old_message_code =>'PA_INV_EV_TYP_ADJ_REV'
2605: ,p_msg_attribute => 'CHANGE'
2606: ,p_resize_flag => 'N'
2607: ,p_msg_context => 'EVENT'
2626: --For revenue events like Write-on And Write-off events,
2627: --revenue amount is mandatory and a +ve value.
2628:
2629: If (l_revenue_amount Is NOT NULL
2630: AND l_revenue_amount <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
2631: Then
2632: If (p_event_type_classification In('WRITE ON','WRITE OFF'))
2633: Then
2634: If PA_EVENT_UTILS.check_valid_rev_amt
2636: ,P_rev_amt =>l_revenue_amount)='N'
2637: Then
2638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2639: THEN
2640: pa_interface_utils_pub.map_new_amg_msg
2641: ( p_old_message_code => 'PA_PR_EPR_REV_GT_ZERO'
2642: ,p_msg_attribute => 'CHANGE'
2643: ,p_resize_flag => 'N'
2644: ,p_msg_context => 'EVENT'
2652: --call to check revenue amount for write-on events .
2653: ElsIf (p_event_type_classification = 'WRITE OFF')
2654: Then
2655: /* Added for bug 3053669 */
2656: IF (l_completion_date IS NOT NULL AND l_completion_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE )
2657: THEN
2658: l_ret_status:=PA_EVENT_UTILS.check_write_off_amt
2659: (P_project_id =>P_project_id
2660: ,P_task_id =>x_task_id
2676: If l_ret_status = 'N'
2677: Then
2678: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2679: THEN
2680: pa_interface_utils_pub.map_new_amg_msg
2681: ( p_old_message_code =>'PA_TK_EXCESS_REV'
2682: ,p_msg_attribute => 'CHANGE'
2683: ,p_resize_flag => 'N'
2684: ,p_msg_context => 'EVENT'
2691: l_return_status:='N';
2692: Else
2693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2694: THEN
2695: pa_interface_utils_pub.map_new_amg_msg
2696: ( p_old_message_code =>l_ret_status
2697: ,p_msg_attribute => 'CHANGE'
2698: ,p_resize_flag => 'N'
2699: ,p_msg_context => 'EVENT'
2709: End If;/* P_event_in_rec.p_completion_date IS NOT NULL */
2710: End If;
2711: End If;
2712: ElsIf (p_event_type_classification In('MANUAL','WRITE ON','WRITE OFF')
2713: /* AND l_bill_amount= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) 4027500 */ AND l_revenue_amount is null )
2714: Then
2715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2716: THEN
2717: pa_interface_utils_pub.map_new_amg_msg
2713: /* AND l_bill_amount= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) 4027500 */ AND l_revenue_amount is null )
2714: Then
2715: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2716: THEN
2717: pa_interface_utils_pub.map_new_amg_msg
2718: ( p_old_message_code => 'PA_INVALID_REV_AMT'
2719: ,p_msg_attribute => 'CHANGE'
2720: ,p_resize_flag => 'N'
2721: ,p_msg_context => 'EVENT'
2737: END IF;
2738:
2739: --validating the bill amount. Changed the variable name for bug 3013226.
2740: If (l_bill_amount Is NOT NULL
2741: AND l_bill_amount <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2742: AND PA_EVENT_UTILS.CHECK_VALID_BILL_AMT
2743: (P_event_type_classification =>P_event_type_classification
2744: ,P_bill_amt =>l_bill_amount)='N')
2745: Then
2744: ,P_bill_amt =>l_bill_amount)='N')
2745: Then
2746: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2747: THEN
2748: pa_interface_utils_pub.map_new_amg_msg
2749: ( p_old_message_code => 'PA_PR_EPR_BILL_GT_ZERO'
2750: ,p_msg_attribute => 'CHANGE'
2751: ,p_resize_flag => 'N'
2752: ,p_msg_context => 'EVENT'
2757: ,p_attribute5 => '');
2758: END IF;
2759: l_return_status:='N';
2760: ElsIf (p_event_type_classification In('MANUAL','DEFERRED REVENUE','INVOICE REDUCTION','SCHEDULED PAYMENTS')
2761: /* AND l_bill_amount= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) 4027500 */ AND l_bill_amount is null )
2762: Then
2763: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2764: THEN
2765: pa_interface_utils_pub.map_new_amg_msg
2761: /* AND l_bill_amount= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM ) 4027500 */ AND l_bill_amount is null )
2762: Then
2763: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2764: THEN
2765: pa_interface_utils_pub.map_new_amg_msg
2766: ( p_old_message_code => 'PA_INVALID_BILL_AMT'
2767: ,p_msg_attribute => 'CHANGE'
2768: ,p_resize_flag => 'N'
2769: ,p_msg_context => 'EVENT'
2784: END IF;
2785:
2786: --validating the Bill hold flag
2787: If (p_event_in_rec.P_bill_hold_flag Is NOT NULL
2788: AND p_event_in_rec.P_bill_hold_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2789: Then
2790: If (upper(p_event_in_rec.P_bill_hold_flag) NOT In('Y','N','O'))
2791: Then
2792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2790: If (upper(p_event_in_rec.P_bill_hold_flag) NOT In('Y','N','O'))
2791: Then
2792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2793: THEN
2794: pa_interface_utils_pub.map_new_amg_msg
2795: ( p_old_message_code => 'PA_INVALID_BIL_HLD_FLG'
2796: ,p_msg_attribute => 'CHANGE'
2797: ,p_resize_flag => 'N'
2798: ,p_msg_context => 'EVENT'
2814: END IF;
2815:
2816: --validating the event number
2817: If ((p_event_in_rec.P_event_number Is NOT NULL
2818: AND p_event_in_rec.P_event_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2819: AND PA_EVENT_UTILS.CHECK_VALID_EVENT_NUM
2820: (P_project_id =>P_project_id
2821: ,P_task_id =>x_task_id
2822: ,P_event_num =>p_event_in_rec.P_event_number)='Y')
2823: OR p_event_in_rec.P_event_number <=0 ) -- Added the OR condition for bug 5697448
2824: Then
2825: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2826: THEN
2827: pa_interface_utils_pub.map_new_amg_msg
2828: ( p_old_message_code => 'PA_INV_EVNT_NUM'
2829: ,p_msg_attribute => 'CHANGE'
2830: ,p_resize_flag => 'N'
2831: ,p_msg_context => 'EVENT'
2846: END IF;
2847:
2848: --validating the inventory organization name should be valid and active
2849: If (p_event_in_rec.P_inventory_org_name Is NOT NULL
2850: AND p_event_in_rec.P_inventory_org_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2851: AND PA_EVENT_UTILS.CHECK_VALID_INV_ORG
2852: (P_inv_org_name =>p_event_in_rec.P_inventory_org_name
2853: ,P_inv_org_id =>x_inv_org_id)='N')
2854: Then
2853: ,P_inv_org_id =>x_inv_org_id)='N')
2854: Then
2855: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2856: THEN
2857: pa_interface_utils_pub.map_new_amg_msg
2858: ( p_old_message_code => 'PA_INV_INVT_ORG_NAME'
2859: ,p_msg_attribute => 'CHANGE'
2860: ,p_resize_flag => 'N'
2861: ,p_msg_context => 'EVENT'
2876: END IF;
2877:
2878: --validating the inventory item_id
2879: If (p_event_in_rec.P_inventory_item_id Is NOT NULL
2880: AND p_event_in_rec.P_inventory_item_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2881: AND PA_EVENT_UTILS.CHECK_VALID_INV_ITEM
2882: (P_inv_item_id =>p_event_in_rec.P_inventory_item_id)='N')
2883: Then
2884: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2882: (P_inv_item_id =>p_event_in_rec.P_inventory_item_id)='N')
2883: Then
2884: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2885: THEN
2886: pa_interface_utils_pub.map_new_amg_msg
2887: ( p_old_message_code => 'PA_INV_INVT_ITEM'
2888: ,p_msg_attribute => 'CHANGE'
2889: ,p_resize_flag => 'N'
2890: ,p_msg_context => 'EVENT'
3035:
3036: BEGIN
3037: --validating that either the event reference or the event id is passed.
3038: If ( ( P_pm_event_reference IS NULL
3039: OR P_pm_event_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3040: AND ( P_event_id IS NULL
3041: OR P_event_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3042: )
3043:
3037: --validating that either the event reference or the event id is passed.
3038: If ( ( P_pm_event_reference IS NULL
3039: OR P_pm_event_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3040: AND ( P_event_id IS NULL
3041: OR P_event_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3042: )
3043:
3044: Then
3045: If FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3043:
3044: Then
3045: If FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3046: Then
3047: pa_interface_utils_pub.map_new_amg_msg
3048: ( p_old_message_code => 'PA_INV_EVNT_ID_REF'
3049: ,p_msg_attribute => 'CHANGE'
3050: ,p_resize_flag => 'N'
3051: ,p_msg_context => 'EVENT'
3059: End If;
3060:
3061: --validating event id when provided.
3062: If (P_event_id is not null)
3063: And (P_event_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3064: Then
3065: Open check_event_id;
3066: Fetch check_event_id into event_id_found;
3067:
3068: If check_event_id%NOTFOUND
3069: Then
3070: If FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3071: Then
3072: pa_interface_utils_pub.map_new_amg_msg
3073: ( p_old_message_code => 'PA_INV_EVNT_ID'
3074: ,p_msg_attribute => 'CHANGE'
3075: ,p_resize_flag => 'N'
3076: ,p_msg_context => 'EVENT'
3088: --Validating event_reference.
3089: --Derive event_id from the event_reference number when not provided.
3090:
3091: If ( P_pm_event_reference IS NOT NULL
3092: AND P_pm_event_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3093:
3094: Then
3095:
3096: l_event_id := PA_EVENT_PVT.FETCH_EVENT_ID
3101: If (l_event_id Is NULL)
3102: Then
3103: If FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3104: Then
3105: pa_interface_utils_pub.map_new_amg_msg
3106: (p_old_message_code => 'PA_INVALID_EVENT_REF'
3107: ,p_msg_attribute => 'CHANGE'
3108: ,p_resize_flag => 'N'
3109: ,p_msg_context => 'EVENT'
3120:
3121: --Check if the event_id is same in both the above cases.
3122:
3123: If (P_event_id is not null)
3124: And (P_event_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3125: And P_pm_event_reference IS NOT NULL
3126: And P_pm_event_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3127: Then
3128:
3122:
3123: If (P_event_id is not null)
3124: And (P_event_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3125: And P_pm_event_reference IS NOT NULL
3126: And P_pm_event_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3127: Then
3128:
3129: If (l_event_id <> p_event_id )
3130: Then
3129: If (l_event_id <> p_event_id )
3130: Then
3131: If FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3132: Then
3133: pa_interface_utils_pub.map_new_amg_msg
3134: (p_old_message_code => 'PA_INV_EVENT_REF_ID'
3135: ,p_msg_attribute => 'CHANGE'
3136: ,p_resize_flag => 'N'
3137: ,p_msg_context => 'EVENT'
3143: End If;
3144: l_return_status := 'N';
3145: End If;
3146: elsif (P_event_id IS NULL
3147: OR P_event_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3148: Then
3149: p_event_id := l_event_id;
3150: End If;
3151:
3151:
3152: --If the event reference is not given then derive then derive it from the id.
3153:
3154: If ( P_pm_event_reference IS NULL
3155: OR P_pm_event_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3156:
3157: Then
3158:
3159: BEGIN
3252: WHEN NO_DATA_FOUND THEN
3253:
3254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3255: THEN
3256: pa_interface_utils_pub.map_new_amg_msg
3257: ( p_old_message_code => 'PA_EVENT_IN_DELV_DEL'
3258: ,p_msg_attribute => 'CHANGE'
3259: ,p_resize_flag => 'N'
3260: ,p_msg_context => 'EVENT'
3270: ElsIf l_event_processed IN ('N','I','R')/*For Bug 7305416*/
3271: Then
3272: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3273: THEN
3274: pa_interface_utils_pub.map_new_amg_msg
3275: ( p_old_message_code => 'PA_TK_EVENT_IN_USE'
3276: ,p_msg_attribute => 'CHANGE'
3277: ,p_resize_flag => 'N'
3278: ,p_msg_context => 'EVENT'
3288: Elsif l_event_processed ='P'
3289: Then
3290: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3291: THEN
3292: pa_interface_utils_pub.map_new_amg_msg
3293: ( p_old_message_code => 'PA_EVENT_PARTIAL_BILL'
3294: ,p_msg_attribute => 'CHANGE'
3295: ,p_resize_flag => 'N'
3296: ,p_msg_context => 'EVENT'
3305: Elsif l_event_processed = 'C'
3306: Then
3307: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3308: THEN
3309: pa_interface_utils_pub.map_new_amg_msg
3310: ( p_old_message_code => 'PA_EVENT_CANCEL_DEL'
3311: ,p_msg_attribute => 'CHANGE'
3312: ,p_resize_flag => 'N'
3313: ,p_msg_context => 'EVENT'
3329: AND t.event_type=v.event_type ;
3330:
3331: IF ( (g_rev_evt_fun_allowed = 'N' ) AND
3332: (p_event_type_classification IN('WRITE ON','WRITE OFF')) ) THEN
3333: pa_interface_utils_pub.map_new_amg_msg
3334: ( p_old_message_code => 'PA_EV_NO_REV_MAINT_AMG'
3335: ,p_msg_attribute => 'CHANGE'
3336: ,p_resize_flag => 'Y'
3337: ,p_msg_context => 'GENERAL'
3344: END IF;
3345:
3346: IF ( (g_inv_evt_fun_allowed = 'N' ) AND
3347: (p_event_type_classification IN('DEFERRED REVENUE','INVOICE REDUCTION','SCHEDULED PAYMENTS'))) THEN
3348: pa_interface_utils_pub.map_new_amg_msg
3349: ( p_old_message_code => 'PA_EV_NO_INV_MAINT_AMG'
3350: ,p_msg_attribute => 'CHANGE'
3351: ,p_resize_flag => 'Y'
3352: ,p_msg_context => 'GENERAL'
3367: IF (p_event_type_classification = 'MANUAL') THEN
3368: IF ( (g_inv_evt_fun_allowed = 'Y' ) AND
3369: (g_rev_evt_fun_allowed = 'N' ) AND
3370: (l_rev_amount <> 0) ) THEN
3371: pa_interface_utils_pub.map_new_amg_msg
3372: ( p_old_message_code => 'PA_EV_NO_REV_MAINT_AMG'
3373: ,p_msg_attribute => 'CHANGE'
3374: ,p_resize_flag => 'Y'
3375: ,p_msg_context => 'GENERAL'
3382:
3383: ELSIF ( (g_inv_evt_fun_allowed = 'N' ) AND
3384: (g_rev_evt_fun_allowed = 'Y' ) AND
3385: (l_bill_amount <> 0)) THEN
3386: pa_interface_utils_pub.map_new_amg_msg
3387: ( p_old_message_code => 'PA_EV_NO_INV_MAINT_AMG'
3388: ,p_msg_attribute => 'CHANGE'
3389: ,p_resize_flag => 'Y'
3390: ,p_msg_context => 'GENERAL'
3504:
3505: BEGIN
3506:
3507: If (P_flag In('Y','y','N','n')
3508: OR P_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3509: Then
3510: RETURN(l_return_status);
3511: Else
3512: l_return_status := 'N';