225: P_X_Error_Status := 'E';
226: END IF;
227:
228: l_error_message := NULL;
229: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_HDR_REC_NOT_FOUND');
230: l_error_message := FND_MESSAGE.GET;
231: INTERFACE_HANDLE_ERRORS
232: ( l_interface_header_id,
233: l_interface_acct_line_id,
226: END IF;
227:
228: l_error_message := NULL;
229: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_HDR_REC_NOT_FOUND');
230: l_error_message := FND_MESSAGE.GET;
231: INTERFACE_HANDLE_ERRORS
232: ( l_interface_header_id,
233: l_interface_acct_line_id,
234: NULL,
249: P_X_Error_Status := 'E';
250: END IF;
251:
252: l_error_message := NULL;
253: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_HDR_NOT_FOUND');
254: l_error_message := FND_MESSAGE.GET;
255: INTERFACE_HANDLE_ERRORS
256: ( NULL,
257: l_interface_acct_line_id,
250: END IF;
251:
252: l_error_message := NULL;
253: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_HDR_NOT_FOUND');
254: l_error_message := FND_MESSAGE.GET;
255: INTERFACE_HANDLE_ERRORS
256: ( NULL,
257: l_interface_acct_line_id,
258: l_interface_det_pf_id,
474: IF p_cc_start_date IS NULL
475: THEN
476: l_valid := FALSE;
477: l_error_message := NULL;
478: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DATE_REQD');
479: l_error_message := FND_MESSAGE.GET;
480:
481: INTERFACE_HANDLE_ERRORS
482: ( P_Interface_Header_Id,
475: THEN
476: l_valid := FALSE;
477: l_error_message := NULL;
478: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DATE_REQD');
479: l_error_message := FND_MESSAGE.GET;
480:
481: INTERFACE_HANDLE_ERRORS
482: ( P_Interface_Header_Id,
483: NULL,
495: AND l_valid
496: THEN
497: l_valid := FALSE;
498: l_error_message := NULL;
499: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DT_GREATER_END_DT');
500: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
501: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
502: l_error_message := FND_MESSAGE.GET;
503:
496: THEN
497: l_valid := FALSE;
498: l_error_message := NULL;
499: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DT_GREATER_END_DT');
500: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
501: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
502: l_error_message := FND_MESSAGE.GET;
503:
504: INTERFACE_HANDLE_ERRORS
497: l_valid := FALSE;
498: l_error_message := NULL;
499: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DT_GREATER_END_DT');
500: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
501: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
502: l_error_message := FND_MESSAGE.GET;
503:
504: INTERFACE_HANDLE_ERRORS
505: ( P_Interface_Header_Id,
498: l_error_message := NULL;
499: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DT_GREATER_END_DT');
500: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
501: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
502: l_error_message := FND_MESSAGE.GET;
503:
504: INTERFACE_HANDLE_ERRORS
505: ( P_Interface_Header_Id,
506: NULL,
519: AND l_valid
520: THEN
521: l_valid := FALSE;
522: l_error_message := NULL;
523: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DATE_OF');
524: l_error_message := FND_MESSAGE.GET;
525:
526: INTERFACE_HANDLE_ERRORS
527: ( P_Interface_Header_Id,
520: THEN
521: l_valid := FALSE;
522: l_error_message := NULL;
523: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_START_DATE_OF');
524: l_error_message := FND_MESSAGE.GET;
525:
526: INTERFACE_HANDLE_ERRORS
527: ( P_Interface_Header_Id,
528: NULL,
549: IF NVL(l_min_rel_start_date, p_cc_start_date) < p_cc_start_date
550: THEN
551: l_valid := FALSE;
552: l_error_message := NULL;
553: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_COV_GT_SD_REL');
554: FND_MESSAGE.SET_TOKEN('START_DATE_REL',
555: TO_CHAR(l_min_rel_start_date, 'DD-MON-YYYY'), TRUE);
556: FND_MESSAGE.SET_TOKEN('START_DATE_COV',
557: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
550: THEN
551: l_valid := FALSE;
552: l_error_message := NULL;
553: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_COV_GT_SD_REL');
554: FND_MESSAGE.SET_TOKEN('START_DATE_REL',
555: TO_CHAR(l_min_rel_start_date, 'DD-MON-YYYY'), TRUE);
556: FND_MESSAGE.SET_TOKEN('START_DATE_COV',
557: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
558: l_error_message := FND_MESSAGE.GET;
552: l_error_message := NULL;
553: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_COV_GT_SD_REL');
554: FND_MESSAGE.SET_TOKEN('START_DATE_REL',
555: TO_CHAR(l_min_rel_start_date, 'DD-MON-YYYY'), TRUE);
556: FND_MESSAGE.SET_TOKEN('START_DATE_COV',
557: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
558: l_error_message := FND_MESSAGE.GET;
559:
560: INTERFACE_HANDLE_ERRORS
554: FND_MESSAGE.SET_TOKEN('START_DATE_REL',
555: TO_CHAR(l_min_rel_start_date, 'DD-MON-YYYY'), TRUE);
556: FND_MESSAGE.SET_TOKEN('START_DATE_COV',
557: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
558: l_error_message := FND_MESSAGE.GET;
559:
560: INTERFACE_HANDLE_ERRORS
561: ( P_Interface_Header_Id,
562: NULL,
617: IF NVL(l_max_rel_end_date, p_cc_end_date) > p_cc_end_date
618: THEN
619: l_valid := FALSE;
620: l_error_message := NULL;
621: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_COV_LESS_ED_REL');
622: FND_MESSAGE.SET_TOKEN('END_DATE_REL',
623: TO_CHAR(l_max_rel_end_date, 'DD-MON-YYYY'), TRUE);
624: FND_MESSAGE.SET_TOKEN('END_DATE_COV',
625: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
618: THEN
619: l_valid := FALSE;
620: l_error_message := NULL;
621: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_COV_LESS_ED_REL');
622: FND_MESSAGE.SET_TOKEN('END_DATE_REL',
623: TO_CHAR(l_max_rel_end_date, 'DD-MON-YYYY'), TRUE);
624: FND_MESSAGE.SET_TOKEN('END_DATE_COV',
625: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
626: l_error_message := FND_MESSAGE.GET;
620: l_error_message := NULL;
621: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_COV_LESS_ED_REL');
622: FND_MESSAGE.SET_TOKEN('END_DATE_REL',
623: TO_CHAR(l_max_rel_end_date, 'DD-MON-YYYY'), TRUE);
624: FND_MESSAGE.SET_TOKEN('END_DATE_COV',
625: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
626: l_error_message := FND_MESSAGE.GET;
627:
628: INTERFACE_HANDLE_ERRORS
622: FND_MESSAGE.SET_TOKEN('END_DATE_REL',
623: TO_CHAR(l_max_rel_end_date, 'DD-MON-YYYY'), TRUE);
624: FND_MESSAGE.SET_TOKEN('END_DATE_COV',
625: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
626: l_error_message := FND_MESSAGE.GET;
627:
628: INTERFACE_HANDLE_ERRORS
629: ( P_Interface_Header_Id,
630: NULL,
680: IF p_cc_acct_date IS NULL
681: THEN
682: l_valid := FALSE;
683: l_error_message := NULL;
684: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DATE_NULL');
685: l_error_message := FND_MESSAGE.GET;
686:
687: INTERFACE_HANDLE_ERRORS
688: ( P_Interface_Header_Id,
681: THEN
682: l_valid := FALSE;
683: l_error_message := NULL;
684: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DATE_NULL');
685: l_error_message := FND_MESSAGE.GET;
686:
687: INTERFACE_HANDLE_ERRORS
688: ( P_Interface_Header_Id,
689: P_Interface_Acct_Line_Id,
709: IF p_cc_acct_date IS NOT NULL
710: THEN
711: l_valid := FALSE;
712: l_error_message := NULL;
713: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DATE_NOT_NULL');
714: l_error_message := FND_MESSAGE.GET;
715:
716: INTERFACE_HANDLE_ERRORS
717: ( P_Interface_Header_Id,
710: THEN
711: l_valid := FALSE;
712: l_error_message := NULL;
713: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DATE_NOT_NULL');
714: l_error_message := FND_MESSAGE.GET;
715:
716: INTERFACE_HANDLE_ERRORS
717: ( P_Interface_Header_Id,
718: P_Interface_Acct_Line_Id,
734: AND Nvl(p_cc_end_date, g_high_date)
735: THEN
736: l_valid := FALSE;
737: l_error_message := NULL;
738: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
739: FND_MESSAGE.SET_TOKEN('ACCT_DT',
740: TO_CHAR(p_cc_acct_date, 'DD-MON-YYYY'), TRUE);
741: FND_MESSAGE.SET_TOKEN('START_DATE',
742: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
735: THEN
736: l_valid := FALSE;
737: l_error_message := NULL;
738: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
739: FND_MESSAGE.SET_TOKEN('ACCT_DT',
740: TO_CHAR(p_cc_acct_date, 'DD-MON-YYYY'), TRUE);
741: FND_MESSAGE.SET_TOKEN('START_DATE',
742: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
743: FND_MESSAGE.SET_TOKEN('END_DATE',
737: l_error_message := NULL;
738: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
739: FND_MESSAGE.SET_TOKEN('ACCT_DT',
740: TO_CHAR(p_cc_acct_date, 'DD-MON-YYYY'), TRUE);
741: FND_MESSAGE.SET_TOKEN('START_DATE',
742: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
743: FND_MESSAGE.SET_TOKEN('END_DATE',
744: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
745: l_error_message := FND_MESSAGE.GET;
739: FND_MESSAGE.SET_TOKEN('ACCT_DT',
740: TO_CHAR(p_cc_acct_date, 'DD-MON-YYYY'), TRUE);
741: FND_MESSAGE.SET_TOKEN('START_DATE',
742: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
743: FND_MESSAGE.SET_TOKEN('END_DATE',
744: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
745: l_error_message := FND_MESSAGE.GET;
746:
747: INTERFACE_HANDLE_ERRORS
741: FND_MESSAGE.SET_TOKEN('START_DATE',
742: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
743: FND_MESSAGE.SET_TOKEN('END_DATE',
744: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
745: l_error_message := FND_MESSAGE.GET;
746:
747: INTERFACE_HANDLE_ERRORS
748: ( P_Interface_Header_Id,
749: P_Interface_Acct_Line_Id,
762: AND l_valid
763: THEN
764: l_valid := FALSE;
765: l_error_message := NULL;
766: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DATE_OF');
767: l_error_message := FND_MESSAGE.GET;
768:
769: INTERFACE_HANDLE_ERRORS
770: ( P_Interface_Header_Id,
763: THEN
764: l_valid := FALSE;
765: l_error_message := NULL;
766: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DATE_OF');
767: l_error_message := FND_MESSAGE.GET;
768:
769: INTERFACE_HANDLE_ERRORS
770: ( P_Interface_Header_Id,
771: P_Interface_Acct_Line_Id,
823: IF p_cc_encmbrnc_acct_date IS NULL
824: THEN
825: l_valid := FALSE;
826: l_error_message := NULL;
827: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_IS_NULL');
828: l_error_message := FND_MESSAGE.GET;
829:
830: INTERFACE_HANDLE_ERRORS
831: ( P_Interface_Header_Id,
824: THEN
825: l_valid := FALSE;
826: l_error_message := NULL;
827: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_IS_NULL');
828: l_error_message := FND_MESSAGE.GET;
829:
830: INTERFACE_HANDLE_ERRORS
831: ( P_Interface_Header_Id,
832: P_Interface_Acct_Line_Id,
851: IF p_cc_encmbrnc_acct_date IS NOT NULL
852: THEN
853: l_valid := FALSE;
854: l_error_message := NULL;
855: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_ACCT_DATE_NOT_NULL');
856: l_error_message := FND_MESSAGE.GET;
857:
858: INTERFACE_HANDLE_ERRORS
859: ( P_Interface_Header_Id,
852: THEN
853: l_valid := FALSE;
854: l_error_message := NULL;
855: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_ACCT_DATE_NOT_NULL');
856: l_error_message := FND_MESSAGE.GET;
857:
858: INTERFACE_HANDLE_ERRORS
859: ( P_Interface_Header_Id,
860: P_Interface_Acct_Line_Id,
875: IF p_cc_encmbrnc_acct_date > p_cc_acct_date
876: THEN
877: l_valid := FALSE;
878: l_error_message := NULL;
879: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_DT_GT_ACCT_DT');
880: l_error_message := FND_MESSAGE.GET;
881:
882: INTERFACE_HANDLE_ERRORS
883: ( P_Interface_Header_Id,
876: THEN
877: l_valid := FALSE;
878: l_error_message := NULL;
879: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_DT_GT_ACCT_DT');
880: l_error_message := FND_MESSAGE.GET;
881:
882: INTERFACE_HANDLE_ERRORS
883: ( P_Interface_Header_Id,
884: P_Interface_Acct_Line_Id,
923: IF p_cc_det_pf_date IS NULL
924: THEN
925: l_valid := FALSE;
926: l_error_message := NULL;
927: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_DATE_NULL');
928: l_error_message := FND_MESSAGE.GET;
929:
930: INTERFACE_HANDLE_ERRORS
931: ( P_Interface_Header_Id,
924: THEN
925: l_valid := FALSE;
926: l_error_message := NULL;
927: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_DATE_NULL');
928: l_error_message := FND_MESSAGE.GET;
929:
930: INTERFACE_HANDLE_ERRORS
931: ( P_Interface_Header_Id,
932: P_Interface_Acct_Line_Id,
943: AND l_valid
944: THEN
945: l_valid := FALSE;
946: l_error_message := NULL;
947: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FRCT_DT_NOT_IN_START_DT');
948: FND_MESSAGE.SET_TOKEN('PF_DATE',
949: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
950: FND_MESSAGE.SET_TOKEN('START_DT',
951: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
944: THEN
945: l_valid := FALSE;
946: l_error_message := NULL;
947: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FRCT_DT_NOT_IN_START_DT');
948: FND_MESSAGE.SET_TOKEN('PF_DATE',
949: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
950: FND_MESSAGE.SET_TOKEN('START_DT',
951: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
952: FND_MESSAGE.SET_TOKEN('END_DT',
946: l_error_message := NULL;
947: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FRCT_DT_NOT_IN_START_DT');
948: FND_MESSAGE.SET_TOKEN('PF_DATE',
949: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
950: FND_MESSAGE.SET_TOKEN('START_DT',
951: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
952: FND_MESSAGE.SET_TOKEN('END_DT',
953: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
954: l_error_message := FND_MESSAGE.GET;
948: FND_MESSAGE.SET_TOKEN('PF_DATE',
949: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
950: FND_MESSAGE.SET_TOKEN('START_DT',
951: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
952: FND_MESSAGE.SET_TOKEN('END_DT',
953: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
954: l_error_message := FND_MESSAGE.GET;
955:
956: INTERFACE_HANDLE_ERRORS
950: FND_MESSAGE.SET_TOKEN('START_DT',
951: TO_CHAR(p_cc_start_date, 'DD-MON-YYYY'), TRUE);
952: FND_MESSAGE.SET_TOKEN('END_DT',
953: TO_CHAR(p_cc_end_date, 'DD-MON-YYYY'), TRUE);
954: l_error_message := FND_MESSAGE.GET;
955:
956: INTERFACE_HANDLE_ERRORS
957: ( P_Interface_Header_Id,
958: P_Interface_Acct_Line_Id,
972: p_set_of_books_id)
973: THEN
974: l_valid := FALSE;
975: l_error_message := NULL;
976: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FRCT_DT_NOT_IN_LMT');
977: FND_MESSAGE.SET_TOKEN('DET_PF_DATE',
978: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
979: l_error_message := FND_MESSAGE.GET;
980:
973: THEN
974: l_valid := FALSE;
975: l_error_message := NULL;
976: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FRCT_DT_NOT_IN_LMT');
977: FND_MESSAGE.SET_TOKEN('DET_PF_DATE',
978: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
979: l_error_message := FND_MESSAGE.GET;
980:
981: INTERFACE_HANDLE_ERRORS
975: l_error_message := NULL;
976: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FRCT_DT_NOT_IN_LMT');
977: FND_MESSAGE.SET_TOKEN('DET_PF_DATE',
978: TO_CHAR(p_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
979: l_error_message := FND_MESSAGE.GET;
980:
981: INTERFACE_HANDLE_ERRORS
982: ( P_Interface_Header_Id,
983: P_Interface_Acct_Line_Id,
1008: IF l_cover_cc_det_pf_date <> p_cc_det_pf_date
1009: THEN
1010: l_valid := FALSE;
1011: l_error_message := NULL;
1012: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FCT_REL_DIFFERS_COV');
1013: FND_MESSAGE.SET_TOKEN('REL_PF_DATE',
1014: TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
1015: FND_MESSAGE.SET_TOKEN('COV_PF_DATE',
1016: TO_CHAR(l_cover_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
1009: THEN
1010: l_valid := FALSE;
1011: l_error_message := NULL;
1012: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FCT_REL_DIFFERS_COV');
1013: FND_MESSAGE.SET_TOKEN('REL_PF_DATE',
1014: TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
1015: FND_MESSAGE.SET_TOKEN('COV_PF_DATE',
1016: TO_CHAR(l_cover_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
1017: l_error_message := FND_MESSAGE.GET;
1011: l_error_message := NULL;
1012: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FCT_REL_DIFFERS_COV');
1013: FND_MESSAGE.SET_TOKEN('REL_PF_DATE',
1014: TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
1015: FND_MESSAGE.SET_TOKEN('COV_PF_DATE',
1016: TO_CHAR(l_cover_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
1017: l_error_message := FND_MESSAGE.GET;
1018:
1019: INTERFACE_HANDLE_ERRORS
1013: FND_MESSAGE.SET_TOKEN('REL_PF_DATE',
1014: TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
1015: FND_MESSAGE.SET_TOKEN('COV_PF_DATE',
1016: TO_CHAR(l_cover_cc_det_pf_date, 'DD-MON-YYYY'), TRUE);
1017: l_error_message := FND_MESSAGE.GET;
1018:
1019: INTERFACE_HANDLE_ERRORS
1020: ( P_Interface_Header_Id,
1021: P_Interface_Acct_Line_Id,
1083: IF p_cc_det_pf_encmbrnc_date IS NULL
1084: THEN
1085: l_valid := FALSE;
1086: l_error_message := NULL;
1087: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DTL_PAY_FRCT_ENC_DT_NUL');
1088: l_error_message := FND_MESSAGE.GET;
1089:
1090: INTERFACE_HANDLE_ERRORS
1091: ( P_Interface_Header_Id,
1084: THEN
1085: l_valid := FALSE;
1086: l_error_message := NULL;
1087: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DTL_PAY_FRCT_ENC_DT_NUL');
1088: l_error_message := FND_MESSAGE.GET;
1089:
1090: INTERFACE_HANDLE_ERRORS
1091: ( P_Interface_Header_Id,
1092: P_Interface_Acct_Line_Id,
1105: THEN
1106:
1107: l_valid := FALSE;
1108: l_error_message := NULL;
1109: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
1110: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', p_cc_det_pf_encmbrnc_date, TRUE);
1111: FND_MESSAGE.SET_TOKEN('PF_DATE', p_cc_det_pf_date, TRUE);
1112: l_error_message := FND_MESSAGE.GET;
1113:
1106:
1107: l_valid := FALSE;
1108: l_error_message := NULL;
1109: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
1110: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', p_cc_det_pf_encmbrnc_date, TRUE);
1111: FND_MESSAGE.SET_TOKEN('PF_DATE', p_cc_det_pf_date, TRUE);
1112: l_error_message := FND_MESSAGE.GET;
1113:
1114: INTERFACE_HANDLE_ERRORS
1107: l_valid := FALSE;
1108: l_error_message := NULL;
1109: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
1110: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', p_cc_det_pf_encmbrnc_date, TRUE);
1111: FND_MESSAGE.SET_TOKEN('PF_DATE', p_cc_det_pf_date, TRUE);
1112: l_error_message := FND_MESSAGE.GET;
1113:
1114: INTERFACE_HANDLE_ERRORS
1115: ( P_Interface_Header_Id,
1108: l_error_message := NULL;
1109: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
1110: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', p_cc_det_pf_encmbrnc_date, TRUE);
1111: FND_MESSAGE.SET_TOKEN('PF_DATE', p_cc_det_pf_date, TRUE);
1112: l_error_message := FND_MESSAGE.GET;
1113:
1114: INTERFACE_HANDLE_ERRORS
1115: ( P_Interface_Header_Id,
1116: P_Interface_Acct_Line_Id,
1126: IF p_cc_det_pf_encmbrnc_date IS NOT NULL
1127: THEN
1128: l_valid := FALSE;
1129: l_error_message := NULL;
1130: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DTL_PF_ENC_DT_NOT_NUL');
1131: l_error_message := FND_MESSAGE.GET;
1132:
1133: INTERFACE_HANDLE_ERRORS
1134: ( P_Interface_Header_Id,
1127: THEN
1128: l_valid := FALSE;
1129: l_error_message := NULL;
1130: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DTL_PF_ENC_DT_NOT_NUL');
1131: l_error_message := FND_MESSAGE.GET;
1132:
1133: INTERFACE_HANDLE_ERRORS
1134: ( P_Interface_Header_Id,
1135: P_Interface_Acct_Line_Id,
1440: FROM igi_lookups
1441: WHERE lookup_code = 'CC'
1442: AND lookup_type = 'GCC_DESCRIPTION';
1443:
1444: FND_MESSAGE.SET_NAME('IGI', 'IGI_GEN_PROD_NOT_INSTALLED');
1445: FND_MESSAGE.SET_TOKEN('OPTION_NAME', l_option_name);
1446: lv_message := fnd_message.get;
1447: errbuf := lv_message;
1448: retcode := 2;
1441: WHERE lookup_code = 'CC'
1442: AND lookup_type = 'GCC_DESCRIPTION';
1443:
1444: FND_MESSAGE.SET_NAME('IGI', 'IGI_GEN_PROD_NOT_INSTALLED');
1445: FND_MESSAGE.SET_TOKEN('OPTION_NAME', l_option_name);
1446: lv_message := fnd_message.get;
1447: errbuf := lv_message;
1448: retcode := 2;
1449: return;
1442: AND lookup_type = 'GCC_DESCRIPTION';
1443:
1444: FND_MESSAGE.SET_NAME('IGI', 'IGI_GEN_PROD_NOT_INSTALLED');
1445: FND_MESSAGE.SET_TOKEN('OPTION_NAME', l_option_name);
1446: lv_message := fnd_message.get;
1447: errbuf := lv_message;
1448: retcode := 2;
1449: return;
1450: END IF;
1806:
1807: -- Insert record into table IGC_CC_ACTIONS
1808: IF UPPER(g_process_phase) = 'F' AND UPPER(l_error_status) = 'N' THEN
1809: l_history_message := NULL;
1810: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENTERED_THRU_CCOI_PROG');
1811: l_history_message := FND_MESSAGE.GET;
1812: IGC_CC_ACTIONS_PKG.Insert_Row(
1813: 1.0,
1814: FND_API.G_TRUE,
1807: -- Insert record into table IGC_CC_ACTIONS
1808: IF UPPER(g_process_phase) = 'F' AND UPPER(l_error_status) = 'N' THEN
1809: l_history_message := NULL;
1810: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENTERED_THRU_CCOI_PROG');
1811: l_history_message := FND_MESSAGE.GET;
1812: IGC_CC_ACTIONS_PKG.Insert_Row(
1813: 1.0,
1814: FND_API.G_TRUE,
1815: FND_API.G_FALSE,
1849: END IF;
1850:
1851: IF UPPER(l_interface_header_record.CC_Encmbrnc_Status) IN ('P', 'C') AND UPPER(l_error_status) = 'N' THEN
1852: l_history_message := NULL;
1853: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCMBRED_THRU_CCOI_PROG');
1854: l_history_message := FND_MESSAGE.GET;
1855: IGC_CC_ACTIONS_PKG.Insert_Row(
1856: 1.0,
1857: FND_API.G_TRUE,
1850:
1851: IF UPPER(l_interface_header_record.CC_Encmbrnc_Status) IN ('P', 'C') AND UPPER(l_error_status) = 'N' THEN
1852: l_history_message := NULL;
1853: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCMBRED_THRU_CCOI_PROG');
1854: l_history_message := FND_MESSAGE.GET;
1855: IGC_CC_ACTIONS_PKG.Insert_Row(
1856: 1.0,
1857: FND_API.G_TRUE,
1858: FND_API.G_FALSE,
1990: l_error_msg);
1991: END IF;
1992: -- bug 3199488, end block
1993:
1994: Fnd_Message.Set_Name('IGC', 'IGC_OPI_FAIL_PA_FC_COM');
1995: Fnd_Message.Set_Token('ERROR',l_error_msg);
1996: l_msg_buf := Fnd_Message.Get;
1997: -- Log Interface error
1998: INTERFACE_HANDLE_ERRORS
1991: END IF;
1992: -- bug 3199488, end block
1993:
1994: Fnd_Message.Set_Name('IGC', 'IGC_OPI_FAIL_PA_FC_COM');
1995: Fnd_Message.Set_Token('ERROR',l_error_msg);
1996: l_msg_buf := Fnd_Message.Get;
1997: -- Log Interface error
1998: INTERFACE_HANDLE_ERRORS
1999: (NULL,
1992: -- bug 3199488, end block
1993:
1994: Fnd_Message.Set_Name('IGC', 'IGC_OPI_FAIL_PA_FC_COM');
1995: Fnd_Message.Set_Token('ERROR',l_error_msg);
1996: l_msg_buf := Fnd_Message.Get;
1997: -- Log Interface error
1998: INTERFACE_HANDLE_ERRORS
1999: (NULL,
2000: NULL,
2025: END IF;
2026: -- bug 3199488, end block
2027:
2028: -- Log Interface error
2029: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_INS_PA_COM');
2030: Fnd_Message.Set_Token('ERROR',l_error_msg);
2031: l_msg_buf := Fnd_Message.Get;
2032: INTERFACE_HANDLE_ERRORS
2033: (NULL,
2026: -- bug 3199488, end block
2027:
2028: -- Log Interface error
2029: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_INS_PA_COM');
2030: Fnd_Message.Set_Token('ERROR',l_error_msg);
2031: l_msg_buf := Fnd_Message.Get;
2032: INTERFACE_HANDLE_ERRORS
2033: (NULL,
2034: NULL,
2027:
2028: -- Log Interface error
2029: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_INS_PA_COM');
2030: Fnd_Message.Set_Token('ERROR',l_error_msg);
2031: l_msg_buf := Fnd_Message.Get;
2032: INTERFACE_HANDLE_ERRORS
2033: (NULL,
2034: NULL,
2035: NULL,
2127: END IF;
2128: -- bug 3199488, end block
2129:
2130: -- Log Interface error
2131: Fnd_Message.Set_Name('IGC', 'IGC_OPI_FAIL_PA_FC_STD');
2132: Fnd_Message.Set_Token('ERROR',l_error_msg);
2133: l_msg_buf := Fnd_Message.Get;
2134: INTERFACE_HANDLE_ERRORS
2135: (NULL,
2128: -- bug 3199488, end block
2129:
2130: -- Log Interface error
2131: Fnd_Message.Set_Name('IGC', 'IGC_OPI_FAIL_PA_FC_STD');
2132: Fnd_Message.Set_Token('ERROR',l_error_msg);
2133: l_msg_buf := Fnd_Message.Get;
2134: INTERFACE_HANDLE_ERRORS
2135: (NULL,
2136: NULL,
2129:
2130: -- Log Interface error
2131: Fnd_Message.Set_Name('IGC', 'IGC_OPI_FAIL_PA_FC_STD');
2132: Fnd_Message.Set_Token('ERROR',l_error_msg);
2133: l_msg_buf := Fnd_Message.Get;
2134: INTERFACE_HANDLE_ERRORS
2135: (NULL,
2136: NULL,
2137: NULL,
2164: l_error_msg);
2165: END IF;
2166: -- bug 3199488, end block
2167:
2168: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_INS_PA_STD');
2169: Fnd_Message.Set_Token('ERROR',l_error_msg);
2170: l_msg_buf := Fnd_Message.Get;
2171: INTERFACE_HANDLE_ERRORS
2172: (NULL,
2165: END IF;
2166: -- bug 3199488, end block
2167:
2168: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_INS_PA_STD');
2169: Fnd_Message.Set_Token('ERROR',l_error_msg);
2170: l_msg_buf := Fnd_Message.Get;
2171: INTERFACE_HANDLE_ERRORS
2172: (NULL,
2173: NULL,
2166: -- bug 3199488, end block
2167:
2168: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_INS_PA_STD');
2169: Fnd_Message.Set_Token('ERROR',l_error_msg);
2170: l_msg_buf := Fnd_Message.Get;
2171: INTERFACE_HANDLE_ERRORS
2172: (NULL,
2173: NULL,
2174: NULL,
2238: ' for commitment budget');
2239: END IF;
2240: -- bug 3199488, end block
2241:
2242: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_COM_TIEBACK');
2243: l_msg_buf := Fnd_Message.Get;
2244: INTERFACE_HANDLE_ERRORS
2245: (NULL,
2246: NULL,
2239: END IF;
2240: -- bug 3199488, end block
2241:
2242: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_COM_TIEBACK');
2243: l_msg_buf := Fnd_Message.Get;
2244: INTERFACE_HANDLE_ERRORS
2245: (NULL,
2246: NULL,
2247: NULL,
2298: ' for payment budget');
2299: END IF;
2300: -- bug 3199488, end block
2301:
2302: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_STD_TIEBACK');
2303: Fnd_Message.Set_Token('ERROR',l_error_msg);
2304: l_msg_buf := Fnd_Message.Get;
2305: INTERFACE_HANDLE_ERRORS
2306: (NULL,
2299: END IF;
2300: -- bug 3199488, end block
2301:
2302: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_STD_TIEBACK');
2303: Fnd_Message.Set_Token('ERROR',l_error_msg);
2304: l_msg_buf := Fnd_Message.Get;
2305: INTERFACE_HANDLE_ERRORS
2306: (NULL,
2307: NULL,
2300: -- bug 3199488, end block
2301:
2302: Fnd_Message.Set_Name('IGC', 'IGC_OPI_ERR_STD_TIEBACK');
2303: Fnd_Message.Set_Token('ERROR',l_error_msg);
2304: l_msg_buf := Fnd_Message.Get;
2305: INTERFACE_HANDLE_ERRORS
2306: (NULL,
2307: NULL,
2308: NULL,
2329: P_Process_Phase,
2330: P_Batch_Id);
2331: IF l_request_id = 0 THEN
2332: l_error_message := NULL;
2333: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ERR_SUBMIT_EXCPTION_RPT');
2334: l_error_message := FND_MESSAGE.GET;
2335: ERRBUF := ERRBUF || l_error_message;
2336: ELSE
2337: COMMIT;
2330: P_Batch_Id);
2331: IF l_request_id = 0 THEN
2332: l_error_message := NULL;
2333: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ERR_SUBMIT_EXCPTION_RPT');
2334: l_error_message := FND_MESSAGE.GET;
2335: ERRBUF := ERRBUF || l_error_message;
2336: ELSE
2337: COMMIT;
2338: l_wait_for_request := FND_CONCURRENT.WAIT_FOR_REQUEST(l_request_id,
2374: P_Process_Phase,
2375: P_Batch_Id);
2376: IF l_request_id = 0 THEN
2377: l_error_message := NULL;
2378: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ERR_SUBMIT_EXCPTION_RPT');
2379: l_error_message := FND_MESSAGE.GET;
2380: ERRBUF := ERRBUF || l_error_message;
2381: ELSE
2382: COMMIT;
2375: P_Batch_Id);
2376: IF l_request_id = 0 THEN
2377: l_error_message := NULL;
2378: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ERR_SUBMIT_EXCPTION_RPT');
2379: l_error_message := FND_MESSAGE.GET;
2380: ERRBUF := ERRBUF || l_error_message;
2381: ELSE
2382: COMMIT;
2383: l_wait_for_request := FND_CONCURRENT.WAIT_FOR_REQUEST(
2455: END IF;
2456:
2457: -- bug 3199488, start block
2458: IF (l_unexp_level >= l_debug_level) THEN
2459: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2460: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
2461: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
2462: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Unexp1',TRUE);
2463: END IF;
2456:
2457: -- bug 3199488, start block
2458: IF (l_unexp_level >= l_debug_level) THEN
2459: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2460: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
2461: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
2462: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Unexp1',TRUE);
2463: END IF;
2464: -- bug 3199488, end block
2457: -- bug 3199488, start block
2458: IF (l_unexp_level >= l_debug_level) THEN
2459: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2460: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
2461: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
2462: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.header_interface_main.Unexp1',TRUE);
2463: END IF;
2464: -- bug 3199488, end block
2465:
2586: (P_CC_State = 'CT' AND P_Cc_Ctrl_Status = 'O') OR
2587: (P_Cc_Apprvl_Status = 'IN' AND P_Cc_Ctrl_Status = 'O')) THEN
2588:
2589: l_error_message := NULL;
2590: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2591: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2587: (P_Cc_Apprvl_Status = 'IN' AND P_Cc_Ctrl_Status = 'O')) THEN
2588:
2589: l_error_message := NULL;
2590: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2591: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2595: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2588:
2589: l_error_message := NULL;
2590: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2591: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2595: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2596: l_error_message := FND_MESSAGE.GET;
2589: l_error_message := NULL;
2590: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2591: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2595: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2596: l_error_message := FND_MESSAGE.GET;
2597: INTERFACE_HANDLE_ERRORS
2590: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2591: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2595: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2596: l_error_message := FND_MESSAGE.GET;
2597: INTERFACE_HANDLE_ERRORS
2598: ( P_Interface_Header_Id,
2591: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2595: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2596: l_error_message := FND_MESSAGE.GET;
2597: INTERFACE_HANDLE_ERRORS
2598: ( P_Interface_Header_Id,
2599: NULL,
2592: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2593: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2594: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2595: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2596: l_error_message := FND_MESSAGE.GET;
2597: INTERFACE_HANDLE_ERRORS
2598: ( P_Interface_Header_Id,
2599: NULL,
2600: NULL,
2611: (P_Cc_Apprvl_Status = 'IN' AND P_Cc_Ctrl_Status = 'O')) THEN
2612:
2613:
2614: l_error_message := NULL;
2615: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2616: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2612:
2613:
2614: l_error_message := NULL;
2615: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2616: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2620: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2613:
2614: l_error_message := NULL;
2615: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2616: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2620: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2621: l_error_message := FND_MESSAGE.GET;
2614: l_error_message := NULL;
2615: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2616: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2620: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2621: l_error_message := FND_MESSAGE.GET;
2622: INTERFACE_HANDLE_ERRORS
2615: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_COMBINATION');
2616: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2620: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2621: l_error_message := FND_MESSAGE.GET;
2622: INTERFACE_HANDLE_ERRORS
2623: ( P_Interface_Header_Id,
2616: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2620: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2621: l_error_message := FND_MESSAGE.GET;
2622: INTERFACE_HANDLE_ERRORS
2623: ( P_Interface_Header_Id,
2624: NULL,
2617: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2618: FND_MESSAGE.SET_TOKEN('CC_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2619: FND_MESSAGE.SET_TOKEN('APPR_STATUS', P_Cc_Apprvl_Status, TRUE);
2620: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2621: l_error_message := FND_MESSAGE.GET;
2622: INTERFACE_HANDLE_ERRORS
2623: ( P_Interface_Header_Id,
2624: NULL,
2625: NULL,
2632:
2633: -- Validate the Org Id.
2634: IF P_Org_Id <> P_Current_Org_Id THEN
2635: l_error_message := NULL;
2636: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
2637: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(P_Org_Id), TRUE);
2638: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(P_Current_Org_Id), TRUE);
2639: l_error_message := FND_MESSAGE.GET;
2640: INTERFACE_HANDLE_ERRORS
2633: -- Validate the Org Id.
2634: IF P_Org_Id <> P_Current_Org_Id THEN
2635: l_error_message := NULL;
2636: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
2637: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(P_Org_Id), TRUE);
2638: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(P_Current_Org_Id), TRUE);
2639: l_error_message := FND_MESSAGE.GET;
2640: INTERFACE_HANDLE_ERRORS
2641: ( P_Interface_Header_Id,
2634: IF P_Org_Id <> P_Current_Org_Id THEN
2635: l_error_message := NULL;
2636: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
2637: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(P_Org_Id), TRUE);
2638: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(P_Current_Org_Id), TRUE);
2639: l_error_message := FND_MESSAGE.GET;
2640: INTERFACE_HANDLE_ERRORS
2641: ( P_Interface_Header_Id,
2642: NULL,
2635: l_error_message := NULL;
2636: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
2637: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(P_Org_Id), TRUE);
2638: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(P_Current_Org_Id), TRUE);
2639: l_error_message := FND_MESSAGE.GET;
2640: INTERFACE_HANDLE_ERRORS
2641: ( P_Interface_Header_Id,
2642: NULL,
2643: NULL,
2649:
2650: -- Validate the CC type.
2651: IF UPPER(P_Cc_Type) NOT IN ('S', 'C', 'R') THEN
2652: l_error_message := NULL;
2653: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCTYPE_INVALID');
2654: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2655: l_error_message := FND_MESSAGE.GET;
2656: INTERFACE_HANDLE_ERRORS
2657: ( P_Interface_Header_Id,
2650: -- Validate the CC type.
2651: IF UPPER(P_Cc_Type) NOT IN ('S', 'C', 'R') THEN
2652: l_error_message := NULL;
2653: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCTYPE_INVALID');
2654: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2655: l_error_message := FND_MESSAGE.GET;
2656: INTERFACE_HANDLE_ERRORS
2657: ( P_Interface_Header_Id,
2658: NULL,
2651: IF UPPER(P_Cc_Type) NOT IN ('S', 'C', 'R') THEN
2652: l_error_message := NULL;
2653: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCTYPE_INVALID');
2654: FND_MESSAGE.SET_TOKEN('CC_TYPE', P_Cc_Type, TRUE);
2655: l_error_message := FND_MESSAGE.GET;
2656: INTERFACE_HANDLE_ERRORS
2657: ( P_Interface_Header_Id,
2658: NULL,
2659: NULL,
2668: IF UPPER(P_Cc_Type) <> 'S'
2669: AND Nvl(P_CC_Guarantee_Flag,'N') = 'Y'
2670: THEN
2671: l_error_message := NULL;
2672: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OPI_INV_TYPE_FOR_GCC');
2673: l_error_message := FND_MESSAGE.GET;
2674: INTERFACE_HANDLE_ERRORS
2675: ( P_Interface_Header_Id,
2676: NULL,
2669: AND Nvl(P_CC_Guarantee_Flag,'N') = 'Y'
2670: THEN
2671: l_error_message := NULL;
2672: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OPI_INV_TYPE_FOR_GCC');
2673: l_error_message := FND_MESSAGE.GET;
2674: INTERFACE_HANDLE_ERRORS
2675: ( P_Interface_Header_Id,
2676: NULL,
2677: NULL,
2688: AND cc_num = P_Cc_Num;
2689:
2690: IF l_count > 0 THEN
2691: l_error_message := NULL;
2692: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_NUMBER');
2693: FND_MESSAGE.SET_TOKEN('CC_NUMBER', P_Cc_Num);
2694: l_error_message := FND_MESSAGE.GET;
2695: INTERFACE_HANDLE_ERRORS
2696: ( P_Interface_Header_Id,
2689:
2690: IF l_count > 0 THEN
2691: l_error_message := NULL;
2692: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_NUMBER');
2693: FND_MESSAGE.SET_TOKEN('CC_NUMBER', P_Cc_Num);
2694: l_error_message := FND_MESSAGE.GET;
2695: INTERFACE_HANDLE_ERRORS
2696: ( P_Interface_Header_Id,
2697: NULL,
2690: IF l_count > 0 THEN
2691: l_error_message := NULL;
2692: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_NUMBER');
2693: FND_MESSAGE.SET_TOKEN('CC_NUMBER', P_Cc_Num);
2694: l_error_message := FND_MESSAGE.GET;
2695: INTERFACE_HANDLE_ERRORS
2696: ( P_Interface_Header_Id,
2697: NULL,
2698: NULL,
2744:
2745: IF P_Cc_Type = 'R' THEN
2746: IF P_Interface_Parent_Header_Id IS NULL THEN
2747: l_error_message := NULL;
2748: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_REQD');
2749: l_error_message := FND_MESSAGE.GET;
2750: INTERFACE_HANDLE_ERRORS
2751: ( P_Interface_Header_Id,
2752: NULL,
2745: IF P_Cc_Type = 'R' THEN
2746: IF P_Interface_Parent_Header_Id IS NULL THEN
2747: l_error_message := NULL;
2748: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_REQD');
2749: l_error_message := FND_MESSAGE.GET;
2750: INTERFACE_HANDLE_ERRORS
2751: ( P_Interface_Header_Id,
2752: NULL,
2753: NULL,
2763: WHERE interface_header_id = P_Interface_Parent_Header_Id
2764: AND cc_type = 'C';
2765: IF P_Cc_Start_Date < l_start_date THEN
2766: l_error_message := NULL;
2767: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_REL_LESS_SD_COV');
2768: FND_MESSAGE.SET_TOKEN('START_DATE_REL', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
2769: FND_MESSAGE.SET_TOKEN('START_DATE_COV', TO_CHAR(l_start_date, 'DD-MON-YYYY'), TRUE);
2770: l_error_message := FND_MESSAGE.GET;
2771: INTERFACE_HANDLE_ERRORS
2764: AND cc_type = 'C';
2765: IF P_Cc_Start_Date < l_start_date THEN
2766: l_error_message := NULL;
2767: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_REL_LESS_SD_COV');
2768: FND_MESSAGE.SET_TOKEN('START_DATE_REL', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
2769: FND_MESSAGE.SET_TOKEN('START_DATE_COV', TO_CHAR(l_start_date, 'DD-MON-YYYY'), TRUE);
2770: l_error_message := FND_MESSAGE.GET;
2771: INTERFACE_HANDLE_ERRORS
2772: ( P_Interface_Header_Id,
2765: IF P_Cc_Start_Date < l_start_date THEN
2766: l_error_message := NULL;
2767: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_REL_LESS_SD_COV');
2768: FND_MESSAGE.SET_TOKEN('START_DATE_REL', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
2769: FND_MESSAGE.SET_TOKEN('START_DATE_COV', TO_CHAR(l_start_date, 'DD-MON-YYYY'), TRUE);
2770: l_error_message := FND_MESSAGE.GET;
2771: INTERFACE_HANDLE_ERRORS
2772: ( P_Interface_Header_Id,
2773: NULL,
2766: l_error_message := NULL;
2767: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SD_REL_LESS_SD_COV');
2768: FND_MESSAGE.SET_TOKEN('START_DATE_REL', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
2769: FND_MESSAGE.SET_TOKEN('START_DATE_COV', TO_CHAR(l_start_date, 'DD-MON-YYYY'), TRUE);
2770: l_error_message := FND_MESSAGE.GET;
2771: INTERFACE_HANDLE_ERRORS
2772: ( P_Interface_Header_Id,
2773: NULL,
2774: NULL,
2778: P_X_Error_Status);
2779: END IF;
2780: IF P_Cc_End_Date > l_end_date THEN
2781: l_error_message := NULL;
2782: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_REL_GRET_ED_COV');
2783: FND_MESSAGE.SET_TOKEN('END_DATE_REL', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
2784: FND_MESSAGE.SET_TOKEN('END_DATE_COV', TO_CHAR(l_end_date, 'DD-MON-YYYY'), TRUE);
2785: l_error_message := FND_MESSAGE.GET;
2786: INTERFACE_HANDLE_ERRORS
2779: END IF;
2780: IF P_Cc_End_Date > l_end_date THEN
2781: l_error_message := NULL;
2782: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_REL_GRET_ED_COV');
2783: FND_MESSAGE.SET_TOKEN('END_DATE_REL', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
2784: FND_MESSAGE.SET_TOKEN('END_DATE_COV', TO_CHAR(l_end_date, 'DD-MON-YYYY'), TRUE);
2785: l_error_message := FND_MESSAGE.GET;
2786: INTERFACE_HANDLE_ERRORS
2787: ( P_Interface_Header_Id,
2780: IF P_Cc_End_Date > l_end_date THEN
2781: l_error_message := NULL;
2782: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_REL_GRET_ED_COV');
2783: FND_MESSAGE.SET_TOKEN('END_DATE_REL', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
2784: FND_MESSAGE.SET_TOKEN('END_DATE_COV', TO_CHAR(l_end_date, 'DD-MON-YYYY'), TRUE);
2785: l_error_message := FND_MESSAGE.GET;
2786: INTERFACE_HANDLE_ERRORS
2787: ( P_Interface_Header_Id,
2788: NULL,
2781: l_error_message := NULL;
2782: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ED_REL_GRET_ED_COV');
2783: FND_MESSAGE.SET_TOKEN('END_DATE_REL', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
2784: FND_MESSAGE.SET_TOKEN('END_DATE_COV', TO_CHAR(l_end_date, 'DD-MON-YYYY'), TRUE);
2785: l_error_message := FND_MESSAGE.GET;
2786: INTERFACE_HANDLE_ERRORS
2787: ( P_Interface_Header_Id,
2788: NULL,
2789: NULL,
2793: P_X_Error_Status);
2794: END IF;
2795: EXCEPTION WHEN NO_DATA_FOUND THEN
2796: l_error_message := NULL;
2797: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_NOT_VALID_COV');
2798: FND_MESSAGE.SET_TOKEN('PARENT_HEADER_ID', TO_CHAR(P_Interface_Parent_Header_Id), TRUE);
2799: l_error_message := FND_MESSAGE.GET;
2800: INTERFACE_HANDLE_ERRORS
2801: ( P_Interface_Header_Id,
2794: END IF;
2795: EXCEPTION WHEN NO_DATA_FOUND THEN
2796: l_error_message := NULL;
2797: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_NOT_VALID_COV');
2798: FND_MESSAGE.SET_TOKEN('PARENT_HEADER_ID', TO_CHAR(P_Interface_Parent_Header_Id), TRUE);
2799: l_error_message := FND_MESSAGE.GET;
2800: INTERFACE_HANDLE_ERRORS
2801: ( P_Interface_Header_Id,
2802: NULL,
2795: EXCEPTION WHEN NO_DATA_FOUND THEN
2796: l_error_message := NULL;
2797: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_NOT_VALID_COV');
2798: FND_MESSAGE.SET_TOKEN('PARENT_HEADER_ID', TO_CHAR(P_Interface_Parent_Header_Id), TRUE);
2799: l_error_message := FND_MESSAGE.GET;
2800: INTERFACE_HANDLE_ERRORS
2801: ( P_Interface_Header_Id,
2802: NULL,
2803: NULL,
2809: END IF;
2810: ELSE
2811: IF P_Interface_Parent_Header_Id IS NOT NULL THEN
2812: l_error_message := NULL;
2813: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_ID_NULL');
2814: l_error_message := FND_MESSAGE.GET;
2815: INTERFACE_HANDLE_ERRORS
2816: ( P_Interface_Header_Id,
2817: NULL,
2810: ELSE
2811: IF P_Interface_Parent_Header_Id IS NOT NULL THEN
2812: l_error_message := NULL;
2813: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_ID_NULL');
2814: l_error_message := FND_MESSAGE.GET;
2815: INTERFACE_HANDLE_ERRORS
2816: ( P_Interface_Header_Id,
2817: NULL,
2818: NULL,
2825:
2826: -- Valid CC States are PR - Provisional, CM - Confirmed and CT- Completed
2827: IF UPPER(P_Cc_State) NOT IN ('PR', 'CM', 'CT') THEN
2828: l_error_message := NULL;
2829: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_STATE');
2830: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2831: l_error_message := FND_MESSAGE.GET;
2832: INTERFACE_HANDLE_ERRORS
2833: ( P_Interface_Header_Id,
2826: -- Valid CC States are PR - Provisional, CM - Confirmed and CT- Completed
2827: IF UPPER(P_Cc_State) NOT IN ('PR', 'CM', 'CT') THEN
2828: l_error_message := NULL;
2829: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_STATE');
2830: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2831: l_error_message := FND_MESSAGE.GET;
2832: INTERFACE_HANDLE_ERRORS
2833: ( P_Interface_Header_Id,
2834: NULL,
2827: IF UPPER(P_Cc_State) NOT IN ('PR', 'CM', 'CT') THEN
2828: l_error_message := NULL;
2829: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_STATE');
2830: FND_MESSAGE.SET_TOKEN('CC_STATE', P_Cc_State, TRUE);
2831: l_error_message := FND_MESSAGE.GET;
2832: INTERFACE_HANDLE_ERRORS
2833: ( P_Interface_Header_Id,
2834: NULL,
2835: NULL,
2841:
2842: -- Validate CC Control Status
2843: IF UPPER(P_Cc_Ctrl_Status) NOT IN ('C', 'E', 'O') THEN
2844: l_error_message := NULL;
2845: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CONTROL_STATUS');
2846: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2847: l_error_message := FND_MESSAGE.GET;
2848: INTERFACE_HANDLE_ERRORS
2849: ( P_Interface_Header_Id,
2842: -- Validate CC Control Status
2843: IF UPPER(P_Cc_Ctrl_Status) NOT IN ('C', 'E', 'O') THEN
2844: l_error_message := NULL;
2845: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CONTROL_STATUS');
2846: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2847: l_error_message := FND_MESSAGE.GET;
2848: INTERFACE_HANDLE_ERRORS
2849: ( P_Interface_Header_Id,
2850: NULL,
2843: IF UPPER(P_Cc_Ctrl_Status) NOT IN ('C', 'E', 'O') THEN
2844: l_error_message := NULL;
2845: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CONTROL_STATUS');
2846: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', P_Cc_Ctrl_Status, TRUE);
2847: l_error_message := FND_MESSAGE.GET;
2848: INTERFACE_HANDLE_ERRORS
2849: ( P_Interface_Header_Id,
2850: NULL,
2851: NULL,
2857:
2858: -- Validate CC Encumbrace Status
2859: IF UPPER(P_Cc_Encmbrnc_Status) NOT IN ('C', 'N', 'P') THEN
2860: l_error_message := NULL;
2861: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_ENCUM_STATUS');
2862: FND_MESSAGE.SET_TOKEN('ENCUMBRANCE_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2863: l_error_message := FND_MESSAGE.GET;
2864: INTERFACE_HANDLE_ERRORS
2865: ( P_Interface_Header_Id,
2858: -- Validate CC Encumbrace Status
2859: IF UPPER(P_Cc_Encmbrnc_Status) NOT IN ('C', 'N', 'P') THEN
2860: l_error_message := NULL;
2861: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_ENCUM_STATUS');
2862: FND_MESSAGE.SET_TOKEN('ENCUMBRANCE_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2863: l_error_message := FND_MESSAGE.GET;
2864: INTERFACE_HANDLE_ERRORS
2865: ( P_Interface_Header_Id,
2866: NULL,
2859: IF UPPER(P_Cc_Encmbrnc_Status) NOT IN ('C', 'N', 'P') THEN
2860: l_error_message := NULL;
2861: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_ENCUM_STATUS');
2862: FND_MESSAGE.SET_TOKEN('ENCUMBRANCE_STATUS', P_Cc_Encmbrnc_Status, TRUE);
2863: l_error_message := FND_MESSAGE.GET;
2864: INTERFACE_HANDLE_ERRORS
2865: ( P_Interface_Header_Id,
2866: NULL,
2867: NULL,
2873:
2874: -- Validate CC Approval Status
2875: IF UPPER(P_Cc_Apprvl_Status) NOT IN ('IN', 'AP') THEN
2876: l_error_message := NULL;
2877: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_APPROVAL_STATUS');
2878: FND_MESSAGE.SET_TOKEN('APPRVL_STATUS', P_Cc_Apprvl_Status, TRUE);
2879: l_error_message := FND_MESSAGE.GET;
2880: INTERFACE_HANDLE_ERRORS
2881: ( P_Interface_Header_Id,
2874: -- Validate CC Approval Status
2875: IF UPPER(P_Cc_Apprvl_Status) NOT IN ('IN', 'AP') THEN
2876: l_error_message := NULL;
2877: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_APPROVAL_STATUS');
2878: FND_MESSAGE.SET_TOKEN('APPRVL_STATUS', P_Cc_Apprvl_Status, TRUE);
2879: l_error_message := FND_MESSAGE.GET;
2880: INTERFACE_HANDLE_ERRORS
2881: ( P_Interface_Header_Id,
2882: NULL,
2875: IF UPPER(P_Cc_Apprvl_Status) NOT IN ('IN', 'AP') THEN
2876: l_error_message := NULL;
2877: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_APPROVAL_STATUS');
2878: FND_MESSAGE.SET_TOKEN('APPRVL_STATUS', P_Cc_Apprvl_Status, TRUE);
2879: l_error_message := FND_MESSAGE.GET;
2880: INTERFACE_HANDLE_ERRORS
2881: ( P_Interface_Header_Id,
2882: NULL,
2883: NULL,
2892: P_Vendor_Id IS NULL AND
2893: UPPER(P_CC_Type) <> 'C' -- Added for 2119450
2894: THEN
2895: l_error_message := NULL;
2896: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NULL_VENDOR_ID');
2897: l_error_message := FND_MESSAGE.GET;
2898: INTERFACE_HANDLE_ERRORS
2899: ( P_Interface_Header_Id,
2900: NULL,
2893: UPPER(P_CC_Type) <> 'C' -- Added for 2119450
2894: THEN
2895: l_error_message := NULL;
2896: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NULL_VENDOR_ID');
2897: l_error_message := FND_MESSAGE.GET;
2898: INTERFACE_HANDLE_ERRORS
2899: ( P_Interface_Header_Id,
2900: NULL,
2901: NULL,
2912: AND sysdate BETWEEN NVL(start_date_active, sysdate-1)
2913: AND NVL(end_date_active, sysdate+1);
2914: EXCEPTION WHEN NO_DATA_FOUND THEN
2915: l_error_message := NULL;
2916: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_ID');
2917: FND_MESSAGE.SET_TOKEN('VENDOR_ID', TO_CHAR(P_Vendor_Id), TRUE);
2918: l_error_message := FND_MESSAGE.GET;
2919: INTERFACE_HANDLE_ERRORS
2920: ( P_Interface_Header_Id,
2913: AND NVL(end_date_active, sysdate+1);
2914: EXCEPTION WHEN NO_DATA_FOUND THEN
2915: l_error_message := NULL;
2916: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_ID');
2917: FND_MESSAGE.SET_TOKEN('VENDOR_ID', TO_CHAR(P_Vendor_Id), TRUE);
2918: l_error_message := FND_MESSAGE.GET;
2919: INTERFACE_HANDLE_ERRORS
2920: ( P_Interface_Header_Id,
2921: NULL,
2914: EXCEPTION WHEN NO_DATA_FOUND THEN
2915: l_error_message := NULL;
2916: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_ID');
2917: FND_MESSAGE.SET_TOKEN('VENDOR_ID', TO_CHAR(P_Vendor_Id), TRUE);
2918: l_error_message := FND_MESSAGE.GET;
2919: INTERFACE_HANDLE_ERRORS
2920: ( P_Interface_Header_Id,
2921: NULL,
2922: NULL,
2932: IF UPPER(P_Cc_State) = 'CM' AND
2933: UPPER(P_CC_Type) <> 'C' AND -- Added for 2119450
2934: P_Vendor_Site_Id IS NULL THEN
2935: l_error_message := NULL;
2936: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NULL_VENDOR_SITE_ID');
2937: l_error_message := FND_MESSAGE.GET;
2938: INTERFACE_HANDLE_ERRORS
2939: ( P_Interface_Header_Id,
2940: NULL,
2933: UPPER(P_CC_Type) <> 'C' AND -- Added for 2119450
2934: P_Vendor_Site_Id IS NULL THEN
2935: l_error_message := NULL;
2936: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NULL_VENDOR_SITE_ID');
2937: l_error_message := FND_MESSAGE.GET;
2938: INTERFACE_HANDLE_ERRORS
2939: ( P_Interface_Header_Id,
2940: NULL,
2941: NULL,
2952: AND purchasing_site_flag = 'Y'
2953: AND NVL(inactive_date, sysdate+1) > sysdate;
2954: EXCEPTION WHEN NO_DATA_FOUND THEN
2955: l_error_message := NULL;
2956: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_SITE_ID');
2957: FND_MESSAGE.SET_TOKEN('VENDOR_SITE_ID', TO_CHAR(P_Vendor_Site_Id), TRUE);
2958: l_error_message := FND_MESSAGE.GET;
2959: INTERFACE_HANDLE_ERRORS
2960: ( P_Interface_Header_Id,
2953: AND NVL(inactive_date, sysdate+1) > sysdate;
2954: EXCEPTION WHEN NO_DATA_FOUND THEN
2955: l_error_message := NULL;
2956: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_SITE_ID');
2957: FND_MESSAGE.SET_TOKEN('VENDOR_SITE_ID', TO_CHAR(P_Vendor_Site_Id), TRUE);
2958: l_error_message := FND_MESSAGE.GET;
2959: INTERFACE_HANDLE_ERRORS
2960: ( P_Interface_Header_Id,
2961: NULL,
2954: EXCEPTION WHEN NO_DATA_FOUND THEN
2955: l_error_message := NULL;
2956: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_SITE_ID');
2957: FND_MESSAGE.SET_TOKEN('VENDOR_SITE_ID', TO_CHAR(P_Vendor_Site_Id), TRUE);
2958: l_error_message := FND_MESSAGE.GET;
2959: INTERFACE_HANDLE_ERRORS
2960: ( P_Interface_Header_Id,
2961: NULL,
2962: NULL,
2970:
2971: -- Validate Vendor Contact Id
2972: IF P_Vendor_Id IS NULL AND P_Vendor_Contact_Id IS NOT NULL THEN
2973: l_error_message := NULL;
2974: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_VENDOR_CONTACT_ID_NULL');
2975: l_error_message := FND_MESSAGE.GET;
2976: INTERFACE_HANDLE_ERRORS
2977: ( P_Interface_Header_Id,
2978: NULL,
2971: -- Validate Vendor Contact Id
2972: IF P_Vendor_Id IS NULL AND P_Vendor_Contact_Id IS NOT NULL THEN
2973: l_error_message := NULL;
2974: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_VENDOR_CONTACT_ID_NULL');
2975: l_error_message := FND_MESSAGE.GET;
2976: INTERFACE_HANDLE_ERRORS
2977: ( P_Interface_Header_Id,
2978: NULL,
2979: NULL,
2989: AND vendor_contact_id = P_Vendor_Contact_Id
2990: AND NVL(inactive_date, sysdate+1) > sysdate;
2991: EXCEPTION WHEN NO_DATA_FOUND THEN
2992: l_error_message := NULL;
2993: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VEDR_CONTACT_ID');
2994: FND_MESSAGE.SET_TOKEN('VENDOR_CONTACT_ID', TO_CHAR(P_Vendor_Contact_Id), TRUE);
2995: l_error_message := FND_MESSAGE.GET;
2996: INTERFACE_HANDLE_ERRORS
2997: ( P_Interface_Header_Id,
2990: AND NVL(inactive_date, sysdate+1) > sysdate;
2991: EXCEPTION WHEN NO_DATA_FOUND THEN
2992: l_error_message := NULL;
2993: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VEDR_CONTACT_ID');
2994: FND_MESSAGE.SET_TOKEN('VENDOR_CONTACT_ID', TO_CHAR(P_Vendor_Contact_Id), TRUE);
2995: l_error_message := FND_MESSAGE.GET;
2996: INTERFACE_HANDLE_ERRORS
2997: ( P_Interface_Header_Id,
2998: NULL,
2991: EXCEPTION WHEN NO_DATA_FOUND THEN
2992: l_error_message := NULL;
2993: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VEDR_CONTACT_ID');
2994: FND_MESSAGE.SET_TOKEN('VENDOR_CONTACT_ID', TO_CHAR(P_Vendor_Contact_Id), TRUE);
2995: l_error_message := FND_MESSAGE.GET;
2996: INTERFACE_HANDLE_ERRORS
2997: ( P_Interface_Header_Id,
2998: NULL,
2999: NULL,
3012: FROM ap_terms_val_v
3013: WHERE term_id = P_Term_Id;
3014: EXCEPTION WHEN NO_DATA_FOUND THEN
3015: l_error_message := NULL;
3016: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TERM_ID');
3017: FND_MESSAGE.SET_TOKEN('TERM_ID', TO_CHAR(P_Term_Id), TRUE);
3018: l_error_message := FND_MESSAGE.GET;
3019: INTERFACE_HANDLE_ERRORS
3020: ( P_Interface_Header_Id,
3013: WHERE term_id = P_Term_Id;
3014: EXCEPTION WHEN NO_DATA_FOUND THEN
3015: l_error_message := NULL;
3016: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TERM_ID');
3017: FND_MESSAGE.SET_TOKEN('TERM_ID', TO_CHAR(P_Term_Id), TRUE);
3018: l_error_message := FND_MESSAGE.GET;
3019: INTERFACE_HANDLE_ERRORS
3020: ( P_Interface_Header_Id,
3021: NULL,
3014: EXCEPTION WHEN NO_DATA_FOUND THEN
3015: l_error_message := NULL;
3016: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TERM_ID');
3017: FND_MESSAGE.SET_TOKEN('TERM_ID', TO_CHAR(P_Term_Id), TRUE);
3018: l_error_message := FND_MESSAGE.GET;
3019: INTERFACE_HANDLE_ERRORS
3020: ( P_Interface_Header_Id,
3021: NULL,
3022: NULL,
3030:
3031: -- Validate Location Id
3032: IF P_Vendor_Id IS NULL AND P_Location_Id IS NOT NULL THEN
3033: l_error_message := NULL;
3034: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_LOCATION_ID_NULL');
3035: l_error_message := FND_MESSAGE.GET;
3036: INTERFACE_HANDLE_ERRORS
3037: ( P_Interface_Header_Id,
3038: NULL,
3031: -- Validate Location Id
3032: IF P_Vendor_Id IS NULL AND P_Location_Id IS NOT NULL THEN
3033: l_error_message := NULL;
3034: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_LOCATION_ID_NULL');
3035: l_error_message := FND_MESSAGE.GET;
3036: INTERFACE_HANDLE_ERRORS
3037: ( P_Interface_Header_Id,
3038: NULL,
3039: NULL,
3049: AND bill_to_site_flag = 'Y'
3050: AND NVL(inactive_date, sysdate+1) > sysdate;
3051: EXCEPTION WHEN NO_DATA_FOUND THEN
3052: l_error_message := NULL;
3053: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LOCATION_ID');
3054: FND_MESSAGE.SET_TOKEN('LOCATION_ID', TO_CHAR(P_Location_Id), TRUE);
3055: l_error_message := FND_MESSAGE.GET;
3056: INTERFACE_HANDLE_ERRORS
3057: ( P_Interface_Header_Id,
3050: AND NVL(inactive_date, sysdate+1) > sysdate;
3051: EXCEPTION WHEN NO_DATA_FOUND THEN
3052: l_error_message := NULL;
3053: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LOCATION_ID');
3054: FND_MESSAGE.SET_TOKEN('LOCATION_ID', TO_CHAR(P_Location_Id), TRUE);
3055: l_error_message := FND_MESSAGE.GET;
3056: INTERFACE_HANDLE_ERRORS
3057: ( P_Interface_Header_Id,
3058: NULL,
3051: EXCEPTION WHEN NO_DATA_FOUND THEN
3052: l_error_message := NULL;
3053: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LOCATION_ID');
3054: FND_MESSAGE.SET_TOKEN('LOCATION_ID', TO_CHAR(P_Location_Id), TRUE);
3055: l_error_message := FND_MESSAGE.GET;
3056: INTERFACE_HANDLE_ERRORS
3057: ( P_Interface_Header_Id,
3058: NULL,
3059: NULL,
3067:
3068: -- Validate Set of Books Id
3069: IF P_Set_of_Books_Id <> P_Current_Set_of_Books_Id THEN
3070: l_error_message := NULL;
3071: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
3072: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(P_Set_of_Books_Id), TRUE);
3073: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(P_Current_Set_of_Books_Id), TRUE);
3074: l_error_message := FND_MESSAGE.GET;
3075: INTERFACE_HANDLE_ERRORS
3068: -- Validate Set of Books Id
3069: IF P_Set_of_Books_Id <> P_Current_Set_of_Books_Id THEN
3070: l_error_message := NULL;
3071: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
3072: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(P_Set_of_Books_Id), TRUE);
3073: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(P_Current_Set_of_Books_Id), TRUE);
3074: l_error_message := FND_MESSAGE.GET;
3075: INTERFACE_HANDLE_ERRORS
3076: ( P_Interface_Header_Id,
3069: IF P_Set_of_Books_Id <> P_Current_Set_of_Books_Id THEN
3070: l_error_message := NULL;
3071: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
3072: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(P_Set_of_Books_Id), TRUE);
3073: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(P_Current_Set_of_Books_Id), TRUE);
3074: l_error_message := FND_MESSAGE.GET;
3075: INTERFACE_HANDLE_ERRORS
3076: ( P_Interface_Header_Id,
3077: NULL,
3070: l_error_message := NULL;
3071: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
3072: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(P_Set_of_Books_Id), TRUE);
3073: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(P_Current_Set_of_Books_Id), TRUE);
3074: l_error_message := FND_MESSAGE.GET;
3075: INTERFACE_HANDLE_ERRORS
3076: ( P_Interface_Header_Id,
3077: NULL,
3078: NULL,
3085: -- Validate Cc Acct Date
3086: IF P_Cc_Acct_Date IS NOT NULL THEN
3087: IF (P_Cc_Acct_Date < P_Cc_Start_Date) OR (P_Cc_Acct_Date > P_Cc_End_Date) THEN
3088: l_error_message := NULL;
3089: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
3090: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3091: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
3092: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
3093: l_error_message := FND_MESSAGE.GET;
3086: IF P_Cc_Acct_Date IS NOT NULL THEN
3087: IF (P_Cc_Acct_Date < P_Cc_Start_Date) OR (P_Cc_Acct_Date > P_Cc_End_Date) THEN
3088: l_error_message := NULL;
3089: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
3090: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3091: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
3092: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
3093: l_error_message := FND_MESSAGE.GET;
3094: INTERFACE_HANDLE_ERRORS
3087: IF (P_Cc_Acct_Date < P_Cc_Start_Date) OR (P_Cc_Acct_Date > P_Cc_End_Date) THEN
3088: l_error_message := NULL;
3089: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
3090: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3091: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
3092: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
3093: l_error_message := FND_MESSAGE.GET;
3094: INTERFACE_HANDLE_ERRORS
3095: ( P_Interface_Header_Id,
3088: l_error_message := NULL;
3089: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
3090: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3091: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
3092: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
3093: l_error_message := FND_MESSAGE.GET;
3094: INTERFACE_HANDLE_ERRORS
3095: ( P_Interface_Header_Id,
3096: NULL,
3089: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCOUNT_DT_OUT_OF_RANGE');
3090: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3091: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
3092: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
3093: l_error_message := FND_MESSAGE.GET;
3094: INTERFACE_HANDLE_ERRORS
3095: ( P_Interface_Header_Id,
3096: NULL,
3097: NULL,
3113: AND P_Cc_Acct_Date BETWEEN glp.start_date AND glp.end_date
3114: AND ccp.cc_period_status IN ('O','F');
3115: EXCEPTION WHEN NO_DATA_FOUND THEN
3116: l_error_message := NULL;
3117: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DT_NOTIN_OPEN_PRD');
3118: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3119: l_error_message := FND_MESSAGE.GET;
3120: INTERFACE_HANDLE_ERRORS
3121: ( P_Interface_Header_Id,
3114: AND ccp.cc_period_status IN ('O','F');
3115: EXCEPTION WHEN NO_DATA_FOUND THEN
3116: l_error_message := NULL;
3117: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DT_NOTIN_OPEN_PRD');
3118: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3119: l_error_message := FND_MESSAGE.GET;
3120: INTERFACE_HANDLE_ERRORS
3121: ( P_Interface_Header_Id,
3122: NULL,
3115: EXCEPTION WHEN NO_DATA_FOUND THEN
3116: l_error_message := NULL;
3117: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACCT_DT_NOTIN_OPEN_PRD');
3118: FND_MESSAGE.SET_TOKEN('ACCT_DT', TO_CHAR(P_Cc_Acct_Date, 'DD-MON-YYYY'), TRUE);
3119: l_error_message := FND_MESSAGE.GET;
3120: INTERFACE_HANDLE_ERRORS
3121: ( P_Interface_Header_Id,
3122: NULL,
3123: NULL,
3166: AND a.assignment_type = 'E';
3167:
3168: EXCEPTION WHEN NO_DATA_FOUND THEN
3169: l_error_message := NULL;
3170: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OWNER_UID_INVALID');
3171: FND_MESSAGE.SET_TOKEN('OWNER_UID', FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP'), TRUE);
3172: /* FND_MESSAGE.SET_TOKEN('OWNER_UID', TO_CHAR(P_Cc_Owner_User_Id), TRUE);*/
3173: l_error_message := FND_MESSAGE.GET;
3174: INTERFACE_HANDLE_ERRORS
3167:
3168: EXCEPTION WHEN NO_DATA_FOUND THEN
3169: l_error_message := NULL;
3170: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OWNER_UID_INVALID');
3171: FND_MESSAGE.SET_TOKEN('OWNER_UID', FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP'), TRUE);
3172: /* FND_MESSAGE.SET_TOKEN('OWNER_UID', TO_CHAR(P_Cc_Owner_User_Id), TRUE);*/
3173: l_error_message := FND_MESSAGE.GET;
3174: INTERFACE_HANDLE_ERRORS
3175: ( P_Interface_Header_Id,
3168: EXCEPTION WHEN NO_DATA_FOUND THEN
3169: l_error_message := NULL;
3170: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OWNER_UID_INVALID');
3171: FND_MESSAGE.SET_TOKEN('OWNER_UID', FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP'), TRUE);
3172: /* FND_MESSAGE.SET_TOKEN('OWNER_UID', TO_CHAR(P_Cc_Owner_User_Id), TRUE);*/
3173: l_error_message := FND_MESSAGE.GET;
3174: INTERFACE_HANDLE_ERRORS
3175: ( P_Interface_Header_Id,
3176: NULL,
3169: l_error_message := NULL;
3170: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OWNER_UID_INVALID');
3171: FND_MESSAGE.SET_TOKEN('OWNER_UID', FND_PROFILE.VALUE('HR_CROSS_BUSINESS_GROUP'), TRUE);
3172: /* FND_MESSAGE.SET_TOKEN('OWNER_UID', TO_CHAR(P_Cc_Owner_User_Id), TRUE);*/
3173: l_error_message := FND_MESSAGE.GET;
3174: INTERFACE_HANDLE_ERRORS
3175: ( P_Interface_Header_Id,
3176: NULL,
3177: NULL,
3216: AND a.assignment_type = 'E';
3217:
3218: EXCEPTION WHEN NO_DATA_FOUND THEN
3219: l_error_message := NULL;
3220: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PREPARER_UID_INVALID');
3221: FND_MESSAGE.SET_TOKEN('PREPARER_UID', TO_CHAR(P_Cc_Preparer_User_Id), TRUE);
3222: l_error_message := FND_MESSAGE.GET;
3223: INTERFACE_HANDLE_ERRORS
3224: ( P_Interface_Header_Id,
3217:
3218: EXCEPTION WHEN NO_DATA_FOUND THEN
3219: l_error_message := NULL;
3220: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PREPARER_UID_INVALID');
3221: FND_MESSAGE.SET_TOKEN('PREPARER_UID', TO_CHAR(P_Cc_Preparer_User_Id), TRUE);
3222: l_error_message := FND_MESSAGE.GET;
3223: INTERFACE_HANDLE_ERRORS
3224: ( P_Interface_Header_Id,
3225: NULL,
3218: EXCEPTION WHEN NO_DATA_FOUND THEN
3219: l_error_message := NULL;
3220: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PREPARER_UID_INVALID');
3221: FND_MESSAGE.SET_TOKEN('PREPARER_UID', TO_CHAR(P_Cc_Preparer_User_Id), TRUE);
3222: l_error_message := FND_MESSAGE.GET;
3223: INTERFACE_HANDLE_ERRORS
3224: ( P_Interface_Header_Id,
3225: NULL,
3226: NULL,
3233:
3234: -- Validate Currency Code and the conversion columns
3235: IF P_Currency_Code IS NULL THEN
3236: l_error_message := NULL;
3237: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_REQD');
3238: l_error_message := FND_MESSAGE.GET;
3239: INTERFACE_HANDLE_ERRORS
3240: ( P_Interface_Header_Id,
3241: NULL,
3234: -- Validate Currency Code and the conversion columns
3235: IF P_Currency_Code IS NULL THEN
3236: l_error_message := NULL;
3237: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_REQD');
3238: l_error_message := FND_MESSAGE.GET;
3239: INTERFACE_HANDLE_ERRORS
3240: ( P_Interface_Header_Id,
3241: NULL,
3242: NULL,
3254:
3255: IF P_Currency_Code <> P_Func_Currency_Code AND
3256: (P_Conversion_Type IS NULL OR P_Conversion_Rate IS NULL OR P_Conversion_Date IS NULL) THEN
3257: l_error_message := NULL;
3258: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_TYPE_RATE_DT_REQD');
3259: l_error_message := FND_MESSAGE.GET;
3260: INTERFACE_HANDLE_ERRORS
3261: ( P_Interface_Header_Id,
3262: NULL,
3255: IF P_Currency_Code <> P_Func_Currency_Code AND
3256: (P_Conversion_Type IS NULL OR P_Conversion_Rate IS NULL OR P_Conversion_Date IS NULL) THEN
3257: l_error_message := NULL;
3258: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_TYPE_RATE_DT_REQD');
3259: l_error_message := FND_MESSAGE.GET;
3260: INTERFACE_HANDLE_ERRORS
3261: ( P_Interface_Header_Id,
3262: NULL,
3263: NULL,
3268: END IF;
3269: IF l_curr_code <> P_Func_Currency_Code AND P_Cc_Type = 'R' AND
3270: (P_Currency_Code <> l_curr_code OR P_Conversion_Type <> l_conversion_type OR P_Conversion_Rate <> l_conversion_rate OR P_Conversion_Date <> l_conversion_date) THEN
3271: l_error_message := NULL;
3272: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CD_CT_CR_CD_SAME');
3273: l_error_message := FND_MESSAGE.GET;
3274: INTERFACE_HANDLE_ERRORS
3275: ( P_Interface_Header_Id,
3276: NULL,
3269: IF l_curr_code <> P_Func_Currency_Code AND P_Cc_Type = 'R' AND
3270: (P_Currency_Code <> l_curr_code OR P_Conversion_Type <> l_conversion_type OR P_Conversion_Rate <> l_conversion_rate OR P_Conversion_Date <> l_conversion_date) THEN
3271: l_error_message := NULL;
3272: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CD_CT_CR_CD_SAME');
3273: l_error_message := FND_MESSAGE.GET;
3274: INTERFACE_HANDLE_ERRORS
3275: ( P_Interface_Header_Id,
3276: NULL,
3277: NULL,
3282: END IF;
3283:
3284: EXCEPTION WHEN NO_DATA_FOUND THEN
3285: l_error_message := NULL;
3286: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
3287: FND_MESSAGE.SET_TOKEN('CURR_CODE', P_Currency_Code, TRUE);
3288: l_error_message := FND_MESSAGE.GET;
3289: INTERFACE_HANDLE_ERRORS
3290: ( P_Interface_Header_Id,
3283:
3284: EXCEPTION WHEN NO_DATA_FOUND THEN
3285: l_error_message := NULL;
3286: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
3287: FND_MESSAGE.SET_TOKEN('CURR_CODE', P_Currency_Code, TRUE);
3288: l_error_message := FND_MESSAGE.GET;
3289: INTERFACE_HANDLE_ERRORS
3290: ( P_Interface_Header_Id,
3291: NULL,
3284: EXCEPTION WHEN NO_DATA_FOUND THEN
3285: l_error_message := NULL;
3286: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
3287: FND_MESSAGE.SET_TOKEN('CURR_CODE', P_Currency_Code, TRUE);
3288: l_error_message := FND_MESSAGE.GET;
3289: INTERFACE_HANDLE_ERRORS
3290: ( P_Interface_Header_Id,
3291: NULL,
3292: NULL,
3305: FROM fnd_user
3306: WHERE user_id = P_Created_By;
3307: EXCEPTION WHEN NO_DATA_FOUND THEN
3308: l_error_message := NULL;
3309: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
3310: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
3311: l_error_message := FND_MESSAGE.GET;
3312: INTERFACE_HANDLE_ERRORS
3313: ( P_Interface_Header_Id,
3306: WHERE user_id = P_Created_By;
3307: EXCEPTION WHEN NO_DATA_FOUND THEN
3308: l_error_message := NULL;
3309: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
3310: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
3311: l_error_message := FND_MESSAGE.GET;
3312: INTERFACE_HANDLE_ERRORS
3313: ( P_Interface_Header_Id,
3314: NULL,
3307: EXCEPTION WHEN NO_DATA_FOUND THEN
3308: l_error_message := NULL;
3309: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
3310: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
3311: l_error_message := FND_MESSAGE.GET;
3312: INTERFACE_HANDLE_ERRORS
3313: ( P_Interface_Header_Id,
3314: NULL,
3315: NULL,
3356: AND a.assignment_type = 'E';
3357:
3358: EXCEPTION WHEN NO_DATA_FOUND THEN
3359: l_error_message := NULL;
3360: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_USER_ID');
3361: FND_MESSAGE.SET_TOKEN('CURR_UID', TO_CHAR(P_Cc_Current_User_Id), TRUE);
3362: l_error_message := FND_MESSAGE.GET;
3363: INTERFACE_HANDLE_ERRORS
3364: ( P_Interface_Header_Id,
3357:
3358: EXCEPTION WHEN NO_DATA_FOUND THEN
3359: l_error_message := NULL;
3360: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_USER_ID');
3361: FND_MESSAGE.SET_TOKEN('CURR_UID', TO_CHAR(P_Cc_Current_User_Id), TRUE);
3362: l_error_message := FND_MESSAGE.GET;
3363: INTERFACE_HANDLE_ERRORS
3364: ( P_Interface_Header_Id,
3365: NULL,
3358: EXCEPTION WHEN NO_DATA_FOUND THEN
3359: l_error_message := NULL;
3360: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_USER_ID');
3361: FND_MESSAGE.SET_TOKEN('CURR_UID', TO_CHAR(P_Cc_Current_User_Id), TRUE);
3362: l_error_message := FND_MESSAGE.GET;
3363: INTERFACE_HANDLE_ERRORS
3364: ( P_Interface_Header_Id,
3365: NULL,
3366: NULL,
3631: ROLLBACK;
3632: l_msg_data := TO_CHAR(SQLCODE)||': '||SQLERRM;
3633: -- bug 3199488, start block
3634: IF (l_unexp_level >= l_debug_level) THEN
3635: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3636: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
3637: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
3638: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.acct_line_interface_main.Unexp1',TRUE);
3639: END IF;
3632: l_msg_data := TO_CHAR(SQLCODE)||': '||SQLERRM;
3633: -- bug 3199488, start block
3634: IF (l_unexp_level >= l_debug_level) THEN
3635: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3636: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
3637: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
3638: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.acct_line_interface_main.Unexp1',TRUE);
3639: END IF;
3640: -- bug 3199488, end block
3633: -- bug 3199488, start block
3634: IF (l_unexp_level >= l_debug_level) THEN
3635: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3636: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
3637: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
3638: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.acct_line_interface_main.Unexp1',TRUE);
3639: END IF;
3640: -- bug 3199488, end block
3641: P_X_Error_Status := 'U';
3701: -- valid one for CC type 'R'
3702: IF P_Cc_Type = 'R' THEN
3703: IF P_Interface_Parent_Header_Id IS NULL THEN
3704: l_error_message := NULL;
3705: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_NULL');
3706: l_error_message := FND_MESSAGE.GET;
3707: INTERFACE_HANDLE_ERRORS
3708: ( P_Interface_Header_Id,
3709: P_Interface_Acct_Line_Id,
3702: IF P_Cc_Type = 'R' THEN
3703: IF P_Interface_Parent_Header_Id IS NULL THEN
3704: l_error_message := NULL;
3705: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_NULL');
3706: l_error_message := FND_MESSAGE.GET;
3707: INTERFACE_HANDLE_ERRORS
3708: ( P_Interface_Header_Id,
3709: P_Interface_Acct_Line_Id,
3710: NULL,
3715: ELSE
3716: IF P_Int_Head_Parent_Header_Id IS NOT NULL AND
3717: P_Int_Head_Parent_Header_Id <> P_Interface_Parent_Header_Id THEN
3718: l_error_message := NULL;
3719: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_INVLD');
3720: FND_MESSAGE.SET_TOKEN('INT_HDR_PARENT_ID', TO_CHAR(P_Interface_Parent_Header_Id), TRUE);
3721: l_error_message := FND_MESSAGE.GET;
3722: INTERFACE_HANDLE_ERRORS
3723: ( P_Interface_Header_Id,
3716: IF P_Int_Head_Parent_Header_Id IS NOT NULL AND
3717: P_Int_Head_Parent_Header_Id <> P_Interface_Parent_Header_Id THEN
3718: l_error_message := NULL;
3719: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_INVLD');
3720: FND_MESSAGE.SET_TOKEN('INT_HDR_PARENT_ID', TO_CHAR(P_Interface_Parent_Header_Id), TRUE);
3721: l_error_message := FND_MESSAGE.GET;
3722: INTERFACE_HANDLE_ERRORS
3723: ( P_Interface_Header_Id,
3724: P_Interface_Acct_Line_Id,
3717: P_Int_Head_Parent_Header_Id <> P_Interface_Parent_Header_Id THEN
3718: l_error_message := NULL;
3719: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PARENT_HDR_ID_INVLD');
3720: FND_MESSAGE.SET_TOKEN('INT_HDR_PARENT_ID', TO_CHAR(P_Interface_Parent_Header_Id), TRUE);
3721: l_error_message := FND_MESSAGE.GET;
3722: INTERFACE_HANDLE_ERRORS
3723: ( P_Interface_Header_Id,
3724: P_Interface_Acct_Line_Id,
3725: NULL,
3731: END IF;
3732: ELSE
3733: IF P_Interface_Parent_Header_Id IS NOT NULL THEN
3734: l_error_message := NULL;
3735: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_HDR_ID_NUL_CC_REL');
3736: l_error_message := FND_MESSAGE.GET;
3737: INTERFACE_HANDLE_ERRORS
3738: ( P_Interface_Header_Id,
3739: P_Interface_Acct_Line_Id,
3732: ELSE
3733: IF P_Interface_Parent_Header_Id IS NOT NULL THEN
3734: l_error_message := NULL;
3735: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_HDR_ID_NUL_CC_REL');
3736: l_error_message := FND_MESSAGE.GET;
3737: INTERFACE_HANDLE_ERRORS
3738: ( P_Interface_Header_Id,
3739: P_Interface_Acct_Line_Id,
3740: NULL,
3749: -- one for CC type 'R'
3750: IF P_Cc_Type = 'R' THEN
3751: IF P_Interface_Parent_AcctLine_Id IS NULL THEN
3752: l_error_message := NULL;
3753: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PRNT_ACNT_LINE_NULL');
3754: l_error_message := FND_MESSAGE.GET;
3755: INTERFACE_HANDLE_ERRORS
3756: ( P_Interface_Header_Id,
3757: P_Interface_Acct_Line_Id,
3750: IF P_Cc_Type = 'R' THEN
3751: IF P_Interface_Parent_AcctLine_Id IS NULL THEN
3752: l_error_message := NULL;
3753: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PRNT_ACNT_LINE_NULL');
3754: l_error_message := FND_MESSAGE.GET;
3755: INTERFACE_HANDLE_ERRORS
3756: ( P_Interface_Header_Id,
3757: P_Interface_Acct_Line_Id,
3758: NULL,
3768: WHERE interface_acct_line_id = P_Interface_Parent_AcctLine_Id
3769: AND interface_header_id = P_Interface_Parent_Header_Id;
3770: EXCEPTION WHEN NO_DATA_FOUND THEN
3771: l_error_message := NULL;
3772: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PRNT_ACNT_LINE_INVL');
3773: FND_MESSAGE.SET_TOKEN('INT_PRNT_ACNT_LINE_ID', TO_CHAR(P_Interface_Parent_AcctLine_Id), TRUE);
3774: l_error_message := FND_MESSAGE.GET;
3775: INTERFACE_HANDLE_ERRORS
3776: ( P_Interface_Header_Id,
3769: AND interface_header_id = P_Interface_Parent_Header_Id;
3770: EXCEPTION WHEN NO_DATA_FOUND THEN
3771: l_error_message := NULL;
3772: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PRNT_ACNT_LINE_INVL');
3773: FND_MESSAGE.SET_TOKEN('INT_PRNT_ACNT_LINE_ID', TO_CHAR(P_Interface_Parent_AcctLine_Id), TRUE);
3774: l_error_message := FND_MESSAGE.GET;
3775: INTERFACE_HANDLE_ERRORS
3776: ( P_Interface_Header_Id,
3777: P_Interface_Acct_Line_Id,
3770: EXCEPTION WHEN NO_DATA_FOUND THEN
3771: l_error_message := NULL;
3772: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_PRNT_ACNT_LINE_INVL');
3773: FND_MESSAGE.SET_TOKEN('INT_PRNT_ACNT_LINE_ID', TO_CHAR(P_Interface_Parent_AcctLine_Id), TRUE);
3774: l_error_message := FND_MESSAGE.GET;
3775: INTERFACE_HANDLE_ERRORS
3776: ( P_Interface_Header_Id,
3777: P_Interface_Acct_Line_Id,
3778: NULL,
3784: END IF;
3785: ELSE
3786: IF P_Interface_Parent_AcctLine_Id IS NOT NULL THEN
3787: l_error_message := NULL;
3788: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_LINE_ID_NULL');
3789: l_error_message := FND_MESSAGE.GET;
3790: INTERFACE_HANDLE_ERRORS
3791: ( P_Interface_Header_Id,
3792: P_Interface_Acct_Line_Id,
3785: ELSE
3786: IF P_Interface_Parent_AcctLine_Id IS NOT NULL THEN
3787: l_error_message := NULL;
3788: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INT_LINE_ID_NULL');
3789: l_error_message := FND_MESSAGE.GET;
3790: INTERFACE_HANDLE_ERRORS
3791: ( P_Interface_Header_Id,
3792: P_Interface_Acct_Line_Id,
3793: NULL,
3856: AND enabled_flag = 'Y';
3857: END IF;
3858: EXCEPTION WHEN NO_DATA_FOUND THEN
3859: l_error_message := NULL;
3860: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CHARGE_CCID_NOT_VALID');
3861: FND_MESSAGE.SET_TOKEN('CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
3862: l_error_message := FND_MESSAGE.GET;
3863: INTERFACE_HANDLE_ERRORS
3864: ( P_Interface_Header_Id,
3857: END IF;
3858: EXCEPTION WHEN NO_DATA_FOUND THEN
3859: l_error_message := NULL;
3860: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CHARGE_CCID_NOT_VALID');
3861: FND_MESSAGE.SET_TOKEN('CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
3862: l_error_message := FND_MESSAGE.GET;
3863: INTERFACE_HANDLE_ERRORS
3864: ( P_Interface_Header_Id,
3865: P_Interface_Acct_Line_Id,
3858: EXCEPTION WHEN NO_DATA_FOUND THEN
3859: l_error_message := NULL;
3860: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CHARGE_CCID_NOT_VALID');
3861: FND_MESSAGE.SET_TOKEN('CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
3862: l_error_message := FND_MESSAGE.GET;
3863: INTERFACE_HANDLE_ERRORS
3864: ( P_Interface_Header_Id,
3865: P_Interface_Acct_Line_Id,
3866: NULL,
3887: AND enabled_flag = 'Y';
3888: END IF;
3889: EXCEPTION WHEN NO_DATA_FOUND THEN
3890: l_error_message := NULL;
3891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BUD_CCID_NOT_VALID');
3892: FND_MESSAGE.SET_TOKEN('BUD_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
3893: l_error_message := FND_MESSAGE.GET;
3894: INTERFACE_HANDLE_ERRORS
3895: ( P_Interface_Header_Id,
3888: END IF;
3889: EXCEPTION WHEN NO_DATA_FOUND THEN
3890: l_error_message := NULL;
3891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BUD_CCID_NOT_VALID');
3892: FND_MESSAGE.SET_TOKEN('BUD_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
3893: l_error_message := FND_MESSAGE.GET;
3894: INTERFACE_HANDLE_ERRORS
3895: ( P_Interface_Header_Id,
3896: P_Interface_Acct_Line_Id,
3889: EXCEPTION WHEN NO_DATA_FOUND THEN
3890: l_error_message := NULL;
3891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BUD_CCID_NOT_VALID');
3892: FND_MESSAGE.SET_TOKEN('BUD_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
3893: l_error_message := FND_MESSAGE.GET;
3894: INTERFACE_HANDLE_ERRORS
3895: ( P_Interface_Header_Id,
3896: P_Interface_Acct_Line_Id,
3897: NULL,
3908: IF UPPER(P_CC_Type) <> 'S'
3909: AND Nvl(P_CC_Ent_Withheld_Amt,0) <> 0
3910: THEN
3911: l_error_message := NULL;
3912: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OPI_INV_TYPE_FOR_WHAMT');
3913: l_error_message := FND_MESSAGE.GET;
3914: INTERFACE_HANDLE_ERRORS
3915: ( P_Interface_Header_Id,
3916: P_Interface_Acct_Line_Id,
3909: AND Nvl(P_CC_Ent_Withheld_Amt,0) <> 0
3910: THEN
3911: l_error_message := NULL;
3912: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OPI_INV_TYPE_FOR_WHAMT');
3913: l_error_message := FND_MESSAGE.GET;
3914: INTERFACE_HANDLE_ERRORS
3915: ( P_Interface_Header_Id,
3916: P_Interface_Acct_Line_Id,
3917: NULL,
3925: -- 2043221, Bidisha , 24 Oct 2001
3926: IF Nvl(P_CC_Ent_Withheld_Amt,0) < 0
3927: THEN
3928: l_error_message := NULL;
3929: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_WHLD_AMT_NEGATIVE');
3930: l_error_message := FND_MESSAGE.GET;
3931: INTERFACE_HANDLE_ERRORS
3932: ( P_Interface_Header_Id,
3933: P_Interface_Acct_Line_Id,
3926: IF Nvl(P_CC_Ent_Withheld_Amt,0) < 0
3927: THEN
3928: l_error_message := NULL;
3929: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_WHLD_AMT_NEGATIVE');
3930: l_error_message := FND_MESSAGE.GET;
3931: INTERFACE_HANDLE_ERRORS
3932: ( P_Interface_Header_Id,
3933: P_Interface_Acct_Line_Id,
3934: NULL,
3944: AND UPPER(P_CC_Apprvl_Status) = 'AP'
3945: AND Nvl(P_CC_Ent_Withheld_Amt,0) <> 0
3946: THEN
3947: l_error_message := NULL;
3948: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INV_WHLD_AMT_FOR_CT');
3949: FND_MESSAGE.SET_TOKEN('WHLD_AMT', to_char(p_cc_ent_withheld_amt),TRUE);
3950: l_error_message := FND_MESSAGE.GET;
3951: INTERFACE_HANDLE_ERRORS
3952: ( P_Interface_Header_Id,
3945: AND Nvl(P_CC_Ent_Withheld_Amt,0) <> 0
3946: THEN
3947: l_error_message := NULL;
3948: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INV_WHLD_AMT_FOR_CT');
3949: FND_MESSAGE.SET_TOKEN('WHLD_AMT', to_char(p_cc_ent_withheld_amt),TRUE);
3950: l_error_message := FND_MESSAGE.GET;
3951: INTERFACE_HANDLE_ERRORS
3952: ( P_Interface_Header_Id,
3953: P_Interface_Acct_Line_Id,
3946: THEN
3947: l_error_message := NULL;
3948: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INV_WHLD_AMT_FOR_CT');
3949: FND_MESSAGE.SET_TOKEN('WHLD_AMT', to_char(p_cc_ent_withheld_amt),TRUE);
3950: l_error_message := FND_MESSAGE.GET;
3951: INTERFACE_HANDLE_ERRORS
3952: ( P_Interface_Header_Id,
3953: P_Interface_Acct_Line_Id,
3954: NULL,
3969: IF NVL(P_Cc_Acct_Entered_Amt, 0) <> (NVL(l_entered_amt, 0)
3970: + Nvl(P_CC_Func_Withheld_Amt,0))
3971: THEN
3972: l_error_message := NULL;
3973: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENT_AMT_DIFFERS');
3974: FND_MESSAGE.SET_TOKEN('ACCT_ENT_AMOUNT', TO_CHAR(P_Cc_Acct_Entered_Amt), TRUE);
3975: FND_MESSAGE.SET_TOKEN('ENT_AMOUNT', TO_CHAR(l_entered_amt), TRUE);
3976: FND_MESSAGE.SET_TOKEN('WHLD_AMOUNT', TO_CHAR(P_CC_Ent_Withheld_Amt), TRUE);
3977: l_error_message := FND_MESSAGE.GET;
3970: + Nvl(P_CC_Func_Withheld_Amt,0))
3971: THEN
3972: l_error_message := NULL;
3973: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENT_AMT_DIFFERS');
3974: FND_MESSAGE.SET_TOKEN('ACCT_ENT_AMOUNT', TO_CHAR(P_Cc_Acct_Entered_Amt), TRUE);
3975: FND_MESSAGE.SET_TOKEN('ENT_AMOUNT', TO_CHAR(l_entered_amt), TRUE);
3976: FND_MESSAGE.SET_TOKEN('WHLD_AMOUNT', TO_CHAR(P_CC_Ent_Withheld_Amt), TRUE);
3977: l_error_message := FND_MESSAGE.GET;
3978: INTERFACE_HANDLE_ERRORS
3971: THEN
3972: l_error_message := NULL;
3973: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENT_AMT_DIFFERS');
3974: FND_MESSAGE.SET_TOKEN('ACCT_ENT_AMOUNT', TO_CHAR(P_Cc_Acct_Entered_Amt), TRUE);
3975: FND_MESSAGE.SET_TOKEN('ENT_AMOUNT', TO_CHAR(l_entered_amt), TRUE);
3976: FND_MESSAGE.SET_TOKEN('WHLD_AMOUNT', TO_CHAR(P_CC_Ent_Withheld_Amt), TRUE);
3977: l_error_message := FND_MESSAGE.GET;
3978: INTERFACE_HANDLE_ERRORS
3979: ( P_Interface_Header_Id,
3972: l_error_message := NULL;
3973: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENT_AMT_DIFFERS');
3974: FND_MESSAGE.SET_TOKEN('ACCT_ENT_AMOUNT', TO_CHAR(P_Cc_Acct_Entered_Amt), TRUE);
3975: FND_MESSAGE.SET_TOKEN('ENT_AMOUNT', TO_CHAR(l_entered_amt), TRUE);
3976: FND_MESSAGE.SET_TOKEN('WHLD_AMOUNT', TO_CHAR(P_CC_Ent_Withheld_Amt), TRUE);
3977: l_error_message := FND_MESSAGE.GET;
3978: INTERFACE_HANDLE_ERRORS
3979: ( P_Interface_Header_Id,
3980: P_Interface_Acct_Line_Id,
3973: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENT_AMT_DIFFERS');
3974: FND_MESSAGE.SET_TOKEN('ACCT_ENT_AMOUNT', TO_CHAR(P_Cc_Acct_Entered_Amt), TRUE);
3975: FND_MESSAGE.SET_TOKEN('ENT_AMOUNT', TO_CHAR(l_entered_amt), TRUE);
3976: FND_MESSAGE.SET_TOKEN('WHLD_AMOUNT', TO_CHAR(P_CC_Ent_Withheld_Amt), TRUE);
3977: l_error_message := FND_MESSAGE.GET;
3978: INTERFACE_HANDLE_ERRORS
3979: ( P_Interface_Header_Id,
3980: P_Interface_Acct_Line_Id,
3981: NULL,
3994: FROM igc_cc_acct_lines_interface
3995: WHERE interface_parent_acct_line_id = P_Interface_Acct_Line_Id;
3996: IF NVL(P_Cc_Acct_Func_Amt, 0) < NVL(l_func_amt, 0) THEN
3997: l_error_message := NULL;
3998: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
3999: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4000: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4001: l_error_message := FND_MESSAGE.GET;
4002: INTERFACE_HANDLE_ERRORS
3995: WHERE interface_parent_acct_line_id = P_Interface_Acct_Line_Id;
3996: IF NVL(P_Cc_Acct_Func_Amt, 0) < NVL(l_func_amt, 0) THEN
3997: l_error_message := NULL;
3998: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
3999: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4000: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4001: l_error_message := FND_MESSAGE.GET;
4002: INTERFACE_HANDLE_ERRORS
4003: ( P_Interface_Header_Id,
3996: IF NVL(P_Cc_Acct_Func_Amt, 0) < NVL(l_func_amt, 0) THEN
3997: l_error_message := NULL;
3998: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
3999: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4000: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4001: l_error_message := FND_MESSAGE.GET;
4002: INTERFACE_HANDLE_ERRORS
4003: ( P_Interface_Header_Id,
4004: P_Interface_Acct_Line_Id,
3997: l_error_message := NULL;
3998: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
3999: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4000: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4001: l_error_message := FND_MESSAGE.GET;
4002: INTERFACE_HANDLE_ERRORS
4003: ( P_Interface_Header_Id,
4004: P_Interface_Acct_Line_Id,
4005: NULL,
4013:
4014: -- Validate the Encumbrance Status
4015: IF NVL(P_Cc_Encmbrnc_Status, 'N') <> NVL(P_Cc_Acct_Encmbrnc_Status, 'N') THEN
4016: l_error_message := NULL;
4017: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCU_STATUS_DIFFERS');
4018: FND_MESSAGE.SET_TOKEN('ACCT_ENCUM_STATUS', P_Cc_Acct_Encmbrnc_Status, TRUE);
4019: FND_MESSAGE.SET_TOKEN('ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4020: l_error_message := FND_MESSAGE.GET;
4021: INTERFACE_HANDLE_ERRORS
4014: -- Validate the Encumbrance Status
4015: IF NVL(P_Cc_Encmbrnc_Status, 'N') <> NVL(P_Cc_Acct_Encmbrnc_Status, 'N') THEN
4016: l_error_message := NULL;
4017: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCU_STATUS_DIFFERS');
4018: FND_MESSAGE.SET_TOKEN('ACCT_ENCUM_STATUS', P_Cc_Acct_Encmbrnc_Status, TRUE);
4019: FND_MESSAGE.SET_TOKEN('ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4020: l_error_message := FND_MESSAGE.GET;
4021: INTERFACE_HANDLE_ERRORS
4022: ( P_Interface_Header_Id,
4015: IF NVL(P_Cc_Encmbrnc_Status, 'N') <> NVL(P_Cc_Acct_Encmbrnc_Status, 'N') THEN
4016: l_error_message := NULL;
4017: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCU_STATUS_DIFFERS');
4018: FND_MESSAGE.SET_TOKEN('ACCT_ENCUM_STATUS', P_Cc_Acct_Encmbrnc_Status, TRUE);
4019: FND_MESSAGE.SET_TOKEN('ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4020: l_error_message := FND_MESSAGE.GET;
4021: INTERFACE_HANDLE_ERRORS
4022: ( P_Interface_Header_Id,
4023: P_Interface_Acct_Line_Id,
4016: l_error_message := NULL;
4017: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCU_STATUS_DIFFERS');
4018: FND_MESSAGE.SET_TOKEN('ACCT_ENCUM_STATUS', P_Cc_Acct_Encmbrnc_Status, TRUE);
4019: FND_MESSAGE.SET_TOKEN('ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4020: l_error_message := FND_MESSAGE.GET;
4021: INTERFACE_HANDLE_ERRORS
4022: ( P_Interface_Header_Id,
4023: P_Interface_Acct_Line_Id,
4024: NULL,
4031: -- Validate the Encumbrance colunmns
4032: IF NVL(P_Cc_Acct_Encmbrnc_Status,'N') IN ('C','P') THEN
4033: IF NVL(P_Cc_Acct_Func_Amt, 0) <> NVL(P_Cc_Acct_Encmbrnc_Amt, 0) THEN
4034: l_error_message := NULL;
4035: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4036: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Acct_Encmbrnc_Amt), TRUE);
4037: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4038: l_error_message := FND_MESSAGE.GET;
4039: INTERFACE_HANDLE_ERRORS
4032: IF NVL(P_Cc_Acct_Encmbrnc_Status,'N') IN ('C','P') THEN
4033: IF NVL(P_Cc_Acct_Func_Amt, 0) <> NVL(P_Cc_Acct_Encmbrnc_Amt, 0) THEN
4034: l_error_message := NULL;
4035: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4036: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Acct_Encmbrnc_Amt), TRUE);
4037: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4038: l_error_message := FND_MESSAGE.GET;
4039: INTERFACE_HANDLE_ERRORS
4040: ( P_Interface_Header_Id,
4033: IF NVL(P_Cc_Acct_Func_Amt, 0) <> NVL(P_Cc_Acct_Encmbrnc_Amt, 0) THEN
4034: l_error_message := NULL;
4035: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4036: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Acct_Encmbrnc_Amt), TRUE);
4037: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4038: l_error_message := FND_MESSAGE.GET;
4039: INTERFACE_HANDLE_ERRORS
4040: ( P_Interface_Header_Id,
4041: P_Interface_Acct_Line_Id,
4034: l_error_message := NULL;
4035: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4036: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Acct_Encmbrnc_Amt), TRUE);
4037: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Acct_Func_Amt), TRUE);
4038: l_error_message := FND_MESSAGE.GET;
4039: INTERFACE_HANDLE_ERRORS
4040: ( P_Interface_Header_Id,
4041: P_Interface_Acct_Line_Id,
4042: NULL,
4051:
4052: IF NVL(P_Cc_Start_Date, P_Cc_Acct_Encmbrnc_Date) > P_Cc_Acct_Encmbrnc_Date OR
4053: NVL(P_Cc_End_Date, P_Cc_Acct_Encmbrnc_Date) < P_Cc_Acct_Encmbrnc_Date THEN
4054: l_error_message := NULL;
4055: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_NOT_LMT');
4056: FND_MESSAGE.SET_TOKEN('ACNT_ENCUM_DT', TO_CHAR(P_Cc_Acct_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4057: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4058: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4059: l_error_message := FND_MESSAGE.GET;
4052: IF NVL(P_Cc_Start_Date, P_Cc_Acct_Encmbrnc_Date) > P_Cc_Acct_Encmbrnc_Date OR
4053: NVL(P_Cc_End_Date, P_Cc_Acct_Encmbrnc_Date) < P_Cc_Acct_Encmbrnc_Date THEN
4054: l_error_message := NULL;
4055: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_NOT_LMT');
4056: FND_MESSAGE.SET_TOKEN('ACNT_ENCUM_DT', TO_CHAR(P_Cc_Acct_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4057: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4058: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4059: l_error_message := FND_MESSAGE.GET;
4060: INTERFACE_HANDLE_ERRORS
4053: NVL(P_Cc_End_Date, P_Cc_Acct_Encmbrnc_Date) < P_Cc_Acct_Encmbrnc_Date THEN
4054: l_error_message := NULL;
4055: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_NOT_LMT');
4056: FND_MESSAGE.SET_TOKEN('ACNT_ENCUM_DT', TO_CHAR(P_Cc_Acct_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4057: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4058: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4059: l_error_message := FND_MESSAGE.GET;
4060: INTERFACE_HANDLE_ERRORS
4061: ( P_Interface_Header_Id,
4054: l_error_message := NULL;
4055: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_NOT_LMT');
4056: FND_MESSAGE.SET_TOKEN('ACNT_ENCUM_DT', TO_CHAR(P_Cc_Acct_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4057: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4058: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4059: l_error_message := FND_MESSAGE.GET;
4060: INTERFACE_HANDLE_ERRORS
4061: ( P_Interface_Header_Id,
4062: P_Interface_Acct_Line_Id,
4055: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ACNT_ENCUM_DT_NOT_LMT');
4056: FND_MESSAGE.SET_TOKEN('ACNT_ENCUM_DT', TO_CHAR(P_Cc_Acct_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4057: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4058: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4059: l_error_message := FND_MESSAGE.GET;
4060: INTERFACE_HANDLE_ERRORS
4061: ( P_Interface_Header_Id,
4062: P_Interface_Acct_Line_Id,
4063: NULL,
4082: FROM pa_projects
4083: WHERE project_id = P_Project_Id;
4084: EXCEPTION WHEN NO_DATA_FOUND THEN
4085: l_error_message := NULL;
4086: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_PROJECT_ID');
4087: FND_MESSAGE.SET_TOKEN('PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4088: l_error_message := FND_MESSAGE.GET;
4089: INTERFACE_HANDLE_ERRORS
4090: ( P_Interface_Header_Id,
4083: WHERE project_id = P_Project_Id;
4084: EXCEPTION WHEN NO_DATA_FOUND THEN
4085: l_error_message := NULL;
4086: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_PROJECT_ID');
4087: FND_MESSAGE.SET_TOKEN('PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4088: l_error_message := FND_MESSAGE.GET;
4089: INTERFACE_HANDLE_ERRORS
4090: ( P_Interface_Header_Id,
4091: P_Interface_Acct_Line_Id,
4084: EXCEPTION WHEN NO_DATA_FOUND THEN
4085: l_error_message := NULL;
4086: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_PROJECT_ID');
4087: FND_MESSAGE.SET_TOKEN('PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4088: l_error_message := FND_MESSAGE.GET;
4089: INTERFACE_HANDLE_ERRORS
4090: ( P_Interface_Header_Id,
4091: P_Interface_Acct_Line_Id,
4092: NULL,
4097: WHEN TOO_MANY_ROWS THEN NULL;
4098: END;
4099: ELSE
4100: l_error_message := NULL;
4101: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PROJECT_ID_REQD');
4102: l_error_message := FND_MESSAGE.GET;
4103: INTERFACE_HANDLE_ERRORS
4104: ( P_Interface_Header_Id,
4105: P_Interface_Acct_Line_Id,
4098: END;
4099: ELSE
4100: l_error_message := NULL;
4101: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PROJECT_ID_REQD');
4102: l_error_message := FND_MESSAGE.GET;
4103: INTERFACE_HANDLE_ERRORS
4104: ( P_Interface_Header_Id,
4105: P_Interface_Acct_Line_Id,
4106: NULL,
4112:
4113: -- Validate the Task Id
4114: IF P_Task_Id is NULL THEN
4115: l_error_message := NULL;
4116: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_TASK_ID_REQD');
4117: l_error_message := FND_MESSAGE.GET;
4118: INTERFACE_HANDLE_ERRORS
4119: ( P_Interface_Header_Id,
4120: P_Interface_Acct_Line_Id,
4113: -- Validate the Task Id
4114: IF P_Task_Id is NULL THEN
4115: l_error_message := NULL;
4116: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_TASK_ID_REQD');
4117: l_error_message := FND_MESSAGE.GET;
4118: INTERFACE_HANDLE_ERRORS
4119: ( P_Interface_Header_Id,
4120: P_Interface_Acct_Line_Id,
4121: NULL,
4132: WHERE task_id = P_Task_Id
4133: AND project_id = P_Project_Id;
4134: EXCEPTION WHEN NO_DATA_FOUND THEN
4135: l_error_message := NULL;
4136: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TASK_ID');
4137: FND_MESSAGE.SET_TOKEN('TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4138: l_error_message := FND_MESSAGE.GET;
4139: INTERFACE_HANDLE_ERRORS
4140: ( P_Interface_Header_Id,
4133: AND project_id = P_Project_Id;
4134: EXCEPTION WHEN NO_DATA_FOUND THEN
4135: l_error_message := NULL;
4136: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TASK_ID');
4137: FND_MESSAGE.SET_TOKEN('TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4138: l_error_message := FND_MESSAGE.GET;
4139: INTERFACE_HANDLE_ERRORS
4140: ( P_Interface_Header_Id,
4141: P_Interface_Acct_Line_Id,
4134: EXCEPTION WHEN NO_DATA_FOUND THEN
4135: l_error_message := NULL;
4136: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TASK_ID');
4137: FND_MESSAGE.SET_TOKEN('TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4138: l_error_message := FND_MESSAGE.GET;
4139: INTERFACE_HANDLE_ERRORS
4140: ( P_Interface_Header_Id,
4141: P_Interface_Acct_Line_Id,
4142: NULL,
4150:
4151: -- Validate the Expenditure_Type
4152: IF P_Expenditure_Type is NULL THEN
4153: l_error_message := NULL;
4154: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPENDITURE_TYPE_REQD');
4155: l_error_message := FND_MESSAGE.GET;
4156: INTERFACE_HANDLE_ERRORS
4157: ( P_Interface_Header_Id,
4158: P_Interface_Acct_Line_Id,
4151: -- Validate the Expenditure_Type
4152: IF P_Expenditure_Type is NULL THEN
4153: l_error_message := NULL;
4154: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPENDITURE_TYPE_REQD');
4155: l_error_message := FND_MESSAGE.GET;
4156: INTERFACE_HANDLE_ERRORS
4157: ( P_Interface_Header_Id,
4158: P_Interface_Acct_Line_Id,
4159: NULL,
4197: AND nvl(sys_link_end_date_active,sysdate))
4198: AND expenditure_type = p_expenditure_type;
4199: EXCEPTION WHEN NO_DATA_FOUND THEN
4200: l_error_message := NULL;
4201: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_TYPE_INVALID');
4202: FND_MESSAGE.SET_TOKEN('EXP_TYPE', P_Expenditure_Type, TRUE);
4203: l_error_message := FND_MESSAGE.GET;
4204: INTERFACE_HANDLE_ERRORS
4205: ( P_Interface_Header_Id,
4198: AND expenditure_type = p_expenditure_type;
4199: EXCEPTION WHEN NO_DATA_FOUND THEN
4200: l_error_message := NULL;
4201: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_TYPE_INVALID');
4202: FND_MESSAGE.SET_TOKEN('EXP_TYPE', P_Expenditure_Type, TRUE);
4203: l_error_message := FND_MESSAGE.GET;
4204: INTERFACE_HANDLE_ERRORS
4205: ( P_Interface_Header_Id,
4206: P_Interface_Acct_Line_Id,
4199: EXCEPTION WHEN NO_DATA_FOUND THEN
4200: l_error_message := NULL;
4201: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_TYPE_INVALID');
4202: FND_MESSAGE.SET_TOKEN('EXP_TYPE', P_Expenditure_Type, TRUE);
4203: l_error_message := FND_MESSAGE.GET;
4204: INTERFACE_HANDLE_ERRORS
4205: ( P_Interface_Header_Id,
4206: P_Interface_Acct_Line_Id,
4207: NULL,
4215:
4216: -- Validate the Expenditure Org Id
4217: IF P_Expenditure_Org_Id is NULL THEN
4218: l_error_message := NULL;
4219: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPENDITURE_ORG_ID_REQD');
4220: l_error_message := FND_MESSAGE.GET;
4221: INTERFACE_HANDLE_ERRORS
4222: ( P_Interface_Header_Id,
4223: P_Interface_Acct_Line_Id,
4216: -- Validate the Expenditure Org Id
4217: IF P_Expenditure_Org_Id is NULL THEN
4218: l_error_message := NULL;
4219: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPENDITURE_ORG_ID_REQD');
4220: l_error_message := FND_MESSAGE.GET;
4221: INTERFACE_HANDLE_ERRORS
4222: ( P_Interface_Header_Id,
4223: P_Interface_Acct_Line_Id,
4224: NULL,
4246: AND b.organization_id = P_Expenditure_Org_Id;
4247:
4248: EXCEPTION WHEN NO_DATA_FOUND THEN
4249: l_error_message := NULL;
4250: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ORG_ID_INVALID');
4251: FND_MESSAGE.SET_TOKEN('EXP_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4252: l_error_message := FND_MESSAGE.GET;
4253: INTERFACE_HANDLE_ERRORS
4254: ( P_Interface_Header_Id,
4247:
4248: EXCEPTION WHEN NO_DATA_FOUND THEN
4249: l_error_message := NULL;
4250: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ORG_ID_INVALID');
4251: FND_MESSAGE.SET_TOKEN('EXP_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4252: l_error_message := FND_MESSAGE.GET;
4253: INTERFACE_HANDLE_ERRORS
4254: ( P_Interface_Header_Id,
4255: P_Interface_Acct_Line_Id,
4248: EXCEPTION WHEN NO_DATA_FOUND THEN
4249: l_error_message := NULL;
4250: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ORG_ID_INVALID');
4251: FND_MESSAGE.SET_TOKEN('EXP_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4252: l_error_message := FND_MESSAGE.GET;
4253: INTERFACE_HANDLE_ERRORS
4254: ( P_Interface_Header_Id,
4255: P_Interface_Acct_Line_Id,
4256: NULL,
4264:
4265: -- Validate Expenditure Item Date
4266: IF P_Expenditure_Item_Date is NULL THEN
4267: l_error_message := NULL;
4268: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPENDITURE_ITEM_DT_REQ');
4269: l_error_message := FND_MESSAGE.GET;
4270: INTERFACE_HANDLE_ERRORS
4271: ( P_Interface_Header_Id,
4272: P_Interface_Acct_Line_Id,
4265: -- Validate Expenditure Item Date
4266: IF P_Expenditure_Item_Date is NULL THEN
4267: l_error_message := NULL;
4268: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPENDITURE_ITEM_DT_REQ');
4269: l_error_message := FND_MESSAGE.GET;
4270: INTERFACE_HANDLE_ERRORS
4271: ( P_Interface_Header_Id,
4272: P_Interface_Acct_Line_Id,
4273: NULL,
4278: ELSE
4279: IF NVL(P_Cc_Start_Date, P_Expenditure_Item_Date) > P_Expenditure_Item_Date OR
4280: NVL(P_Cc_End_Date, P_Expenditure_Item_Date) < P_Expenditure_Item_Date THEN
4281: l_error_message := NULL;
4282: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ITEM_DT_NOT_IN_LMT');
4283: FND_MESSAGE.SET_TOKEN('EXP_ITEM_DATE', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4284: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4285: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4286: l_error_message := FND_MESSAGE.GET;
4279: IF NVL(P_Cc_Start_Date, P_Expenditure_Item_Date) > P_Expenditure_Item_Date OR
4280: NVL(P_Cc_End_Date, P_Expenditure_Item_Date) < P_Expenditure_Item_Date THEN
4281: l_error_message := NULL;
4282: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ITEM_DT_NOT_IN_LMT');
4283: FND_MESSAGE.SET_TOKEN('EXP_ITEM_DATE', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4284: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4285: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4286: l_error_message := FND_MESSAGE.GET;
4287: INTERFACE_HANDLE_ERRORS
4280: NVL(P_Cc_End_Date, P_Expenditure_Item_Date) < P_Expenditure_Item_Date THEN
4281: l_error_message := NULL;
4282: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ITEM_DT_NOT_IN_LMT');
4283: FND_MESSAGE.SET_TOKEN('EXP_ITEM_DATE', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4284: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4285: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4286: l_error_message := FND_MESSAGE.GET;
4287: INTERFACE_HANDLE_ERRORS
4288: ( P_Interface_Header_Id,
4281: l_error_message := NULL;
4282: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ITEM_DT_NOT_IN_LMT');
4283: FND_MESSAGE.SET_TOKEN('EXP_ITEM_DATE', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4284: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4285: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4286: l_error_message := FND_MESSAGE.GET;
4287: INTERFACE_HANDLE_ERRORS
4288: ( P_Interface_Header_Id,
4289: P_Interface_Acct_Line_Id,
4282: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXP_ITEM_DT_NOT_IN_LMT');
4283: FND_MESSAGE.SET_TOKEN('EXP_ITEM_DATE', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4284: FND_MESSAGE.SET_TOKEN('START_DATE', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
4285: FND_MESSAGE.SET_TOKEN('END_DATE', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
4286: l_error_message := FND_MESSAGE.GET;
4287: INTERFACE_HANDLE_ERRORS
4288: ( P_Interface_Header_Id,
4289: P_Interface_Acct_Line_Id,
4290: NULL,
4311: IF (P_Charge_Code_Combination_Id IS NULL AND l_charge_ccid IS NOT NULL) OR
4312: (P_Charge_Code_Combination_Id IS NOT NULL AND l_charge_ccid IS NULL) OR
4313: (P_Charge_Code_Combination_Id <> l_charge_ccid) THEN
4314: l_error_message := NULL;
4315: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCCID_MISMATCH');
4316: FND_MESSAGE.SET_TOKEN('R_CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
4317: FND_MESSAGE.SET_TOKEN('C_CHARGE_CCID', TO_CHAR(l_charge_ccid), TRUE);
4318: l_error_message := FND_MESSAGE.GET;
4319: INTERFACE_HANDLE_ERRORS
4312: (P_Charge_Code_Combination_Id IS NOT NULL AND l_charge_ccid IS NULL) OR
4313: (P_Charge_Code_Combination_Id <> l_charge_ccid) THEN
4314: l_error_message := NULL;
4315: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCCID_MISMATCH');
4316: FND_MESSAGE.SET_TOKEN('R_CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
4317: FND_MESSAGE.SET_TOKEN('C_CHARGE_CCID', TO_CHAR(l_charge_ccid), TRUE);
4318: l_error_message := FND_MESSAGE.GET;
4319: INTERFACE_HANDLE_ERRORS
4320: ( P_Interface_Header_Id,
4313: (P_Charge_Code_Combination_Id <> l_charge_ccid) THEN
4314: l_error_message := NULL;
4315: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCCID_MISMATCH');
4316: FND_MESSAGE.SET_TOKEN('R_CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
4317: FND_MESSAGE.SET_TOKEN('C_CHARGE_CCID', TO_CHAR(l_charge_ccid), TRUE);
4318: l_error_message := FND_MESSAGE.GET;
4319: INTERFACE_HANDLE_ERRORS
4320: ( P_Interface_Header_Id,
4321: P_Interface_Acct_Line_Id,
4314: l_error_message := NULL;
4315: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCCID_MISMATCH');
4316: FND_MESSAGE.SET_TOKEN('R_CHARGE_CCID', TO_CHAR(P_Charge_Code_Combination_Id), TRUE);
4317: FND_MESSAGE.SET_TOKEN('C_CHARGE_CCID', TO_CHAR(l_charge_ccid), TRUE);
4318: l_error_message := FND_MESSAGE.GET;
4319: INTERFACE_HANDLE_ERRORS
4320: ( P_Interface_Header_Id,
4321: P_Interface_Acct_Line_Id,
4322: NULL,
4328: IF (P_Budget_Code_Combination_Id IS NULL AND l_budget_ccid IS NOT NULL) OR
4329: (P_Budget_Code_Combination_Id IS NOT NULL AND l_budget_ccid IS NULL) OR
4330: (P_Budget_Code_Combination_Id <> l_budget_ccid) THEN
4331: l_error_message := NULL;
4332: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BCCID_MISMATCH');
4333: FND_MESSAGE.SET_TOKEN('R_BUDGET_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
4334: FND_MESSAGE.SET_TOKEN('C_BUDGET_CCID', TO_CHAR(l_budget_ccid), TRUE);
4335: l_error_message := FND_MESSAGE.GET;
4336: INTERFACE_HANDLE_ERRORS
4329: (P_Budget_Code_Combination_Id IS NOT NULL AND l_budget_ccid IS NULL) OR
4330: (P_Budget_Code_Combination_Id <> l_budget_ccid) THEN
4331: l_error_message := NULL;
4332: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BCCID_MISMATCH');
4333: FND_MESSAGE.SET_TOKEN('R_BUDGET_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
4334: FND_MESSAGE.SET_TOKEN('C_BUDGET_CCID', TO_CHAR(l_budget_ccid), TRUE);
4335: l_error_message := FND_MESSAGE.GET;
4336: INTERFACE_HANDLE_ERRORS
4337: ( P_Interface_Header_Id,
4330: (P_Budget_Code_Combination_Id <> l_budget_ccid) THEN
4331: l_error_message := NULL;
4332: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BCCID_MISMATCH');
4333: FND_MESSAGE.SET_TOKEN('R_BUDGET_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
4334: FND_MESSAGE.SET_TOKEN('C_BUDGET_CCID', TO_CHAR(l_budget_ccid), TRUE);
4335: l_error_message := FND_MESSAGE.GET;
4336: INTERFACE_HANDLE_ERRORS
4337: ( P_Interface_Header_Id,
4338: P_Interface_Acct_Line_Id,
4331: l_error_message := NULL;
4332: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_BCCID_MISMATCH');
4333: FND_MESSAGE.SET_TOKEN('R_BUDGET_CCID', TO_CHAR(P_Budget_Code_Combination_Id), TRUE);
4334: FND_MESSAGE.SET_TOKEN('C_BUDGET_CCID', TO_CHAR(l_budget_ccid), TRUE);
4335: l_error_message := FND_MESSAGE.GET;
4336: INTERFACE_HANDLE_ERRORS
4337: ( P_Interface_Header_Id,
4338: P_Interface_Acct_Line_Id,
4339: NULL,
4345: IF (P_Project_Id IS NULL AND l_cov_project_id IS NOT NULL) OR
4346: (P_Project_Id IS NOT NULL AND l_cov_project_id IS NULL) OR
4347: (P_Project_Id <> l_cov_project_id) THEN
4348: l_error_message := NULL;
4349: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PROJECT_ID_MISMATCH');
4350: FND_MESSAGE.SET_TOKEN('R_PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4351: FND_MESSAGE.SET_TOKEN('C_PROJECT_ID', TO_CHAR(l_cov_project_id), TRUE);
4352: l_error_message := FND_MESSAGE.GET;
4353: INTERFACE_HANDLE_ERRORS
4346: (P_Project_Id IS NOT NULL AND l_cov_project_id IS NULL) OR
4347: (P_Project_Id <> l_cov_project_id) THEN
4348: l_error_message := NULL;
4349: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PROJECT_ID_MISMATCH');
4350: FND_MESSAGE.SET_TOKEN('R_PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4351: FND_MESSAGE.SET_TOKEN('C_PROJECT_ID', TO_CHAR(l_cov_project_id), TRUE);
4352: l_error_message := FND_MESSAGE.GET;
4353: INTERFACE_HANDLE_ERRORS
4354: ( P_Interface_Header_Id,
4347: (P_Project_Id <> l_cov_project_id) THEN
4348: l_error_message := NULL;
4349: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PROJECT_ID_MISMATCH');
4350: FND_MESSAGE.SET_TOKEN('R_PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4351: FND_MESSAGE.SET_TOKEN('C_PROJECT_ID', TO_CHAR(l_cov_project_id), TRUE);
4352: l_error_message := FND_MESSAGE.GET;
4353: INTERFACE_HANDLE_ERRORS
4354: ( P_Interface_Header_Id,
4355: P_Interface_Acct_Line_Id,
4348: l_error_message := NULL;
4349: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PROJECT_ID_MISMATCH');
4350: FND_MESSAGE.SET_TOKEN('R_PROJECT_ID', TO_CHAR(P_Project_Id), TRUE);
4351: FND_MESSAGE.SET_TOKEN('C_PROJECT_ID', TO_CHAR(l_cov_project_id), TRUE);
4352: l_error_message := FND_MESSAGE.GET;
4353: INTERFACE_HANDLE_ERRORS
4354: ( P_Interface_Header_Id,
4355: P_Interface_Acct_Line_Id,
4356: NULL,
4362: IF (P_Task_Id IS NULL AND l_cov_task_id IS NOT NULL) OR
4363: (P_Task_Id IS NOT NULL AND l_cov_task_id IS NULL) OR
4364: (P_Task_Id <> l_cov_task_id) THEN
4365: l_error_message := NULL;
4366: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_TASK_ID_MISMATCH');
4367: FND_MESSAGE.SET_TOKEN('R_TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4368: FND_MESSAGE.SET_TOKEN('C_TASK_ID', TO_CHAR(l_cov_task_id), TRUE);
4369: l_error_message := FND_MESSAGE.GET;
4370: INTERFACE_HANDLE_ERRORS
4363: (P_Task_Id IS NOT NULL AND l_cov_task_id IS NULL) OR
4364: (P_Task_Id <> l_cov_task_id) THEN
4365: l_error_message := NULL;
4366: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_TASK_ID_MISMATCH');
4367: FND_MESSAGE.SET_TOKEN('R_TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4368: FND_MESSAGE.SET_TOKEN('C_TASK_ID', TO_CHAR(l_cov_task_id), TRUE);
4369: l_error_message := FND_MESSAGE.GET;
4370: INTERFACE_HANDLE_ERRORS
4371: ( P_Interface_Header_Id,
4364: (P_Task_Id <> l_cov_task_id) THEN
4365: l_error_message := NULL;
4366: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_TASK_ID_MISMATCH');
4367: FND_MESSAGE.SET_TOKEN('R_TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4368: FND_MESSAGE.SET_TOKEN('C_TASK_ID', TO_CHAR(l_cov_task_id), TRUE);
4369: l_error_message := FND_MESSAGE.GET;
4370: INTERFACE_HANDLE_ERRORS
4371: ( P_Interface_Header_Id,
4372: P_Interface_Acct_Line_Id,
4365: l_error_message := NULL;
4366: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_TASK_ID_MISMATCH');
4367: FND_MESSAGE.SET_TOKEN('R_TASK_ID', TO_CHAR(P_Task_Id), TRUE);
4368: FND_MESSAGE.SET_TOKEN('C_TASK_ID', TO_CHAR(l_cov_task_id), TRUE);
4369: l_error_message := FND_MESSAGE.GET;
4370: INTERFACE_HANDLE_ERRORS
4371: ( P_Interface_Header_Id,
4372: P_Interface_Acct_Line_Id,
4373: NULL,
4379: IF (P_Expenditure_Type IS NULL AND l_cov_expenditure_type IS NOT NULL) OR
4380: (P_Expenditure_Type IS NOT NULL AND l_cov_expenditure_type IS NULL) OR
4381: (P_Expenditure_Type <> l_cov_expenditure_type) THEN
4382: l_error_message := NULL;
4383: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_TYPE_MISMATCH');
4384: FND_MESSAGE.SET_TOKEN('R_EXPEND_TYPE', P_Expenditure_Type, TRUE);
4385: FND_MESSAGE.SET_TOKEN('C_EXPEND_TYPE', l_cov_expenditure_type, TRUE);
4386: l_error_message := FND_MESSAGE.GET;
4387: INTERFACE_HANDLE_ERRORS
4380: (P_Expenditure_Type IS NOT NULL AND l_cov_expenditure_type IS NULL) OR
4381: (P_Expenditure_Type <> l_cov_expenditure_type) THEN
4382: l_error_message := NULL;
4383: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_TYPE_MISMATCH');
4384: FND_MESSAGE.SET_TOKEN('R_EXPEND_TYPE', P_Expenditure_Type, TRUE);
4385: FND_MESSAGE.SET_TOKEN('C_EXPEND_TYPE', l_cov_expenditure_type, TRUE);
4386: l_error_message := FND_MESSAGE.GET;
4387: INTERFACE_HANDLE_ERRORS
4388: ( P_Interface_Header_Id,
4381: (P_Expenditure_Type <> l_cov_expenditure_type) THEN
4382: l_error_message := NULL;
4383: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_TYPE_MISMATCH');
4384: FND_MESSAGE.SET_TOKEN('R_EXPEND_TYPE', P_Expenditure_Type, TRUE);
4385: FND_MESSAGE.SET_TOKEN('C_EXPEND_TYPE', l_cov_expenditure_type, TRUE);
4386: l_error_message := FND_MESSAGE.GET;
4387: INTERFACE_HANDLE_ERRORS
4388: ( P_Interface_Header_Id,
4389: P_Interface_Acct_Line_Id,
4382: l_error_message := NULL;
4383: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_TYPE_MISMATCH');
4384: FND_MESSAGE.SET_TOKEN('R_EXPEND_TYPE', P_Expenditure_Type, TRUE);
4385: FND_MESSAGE.SET_TOKEN('C_EXPEND_TYPE', l_cov_expenditure_type, TRUE);
4386: l_error_message := FND_MESSAGE.GET;
4387: INTERFACE_HANDLE_ERRORS
4388: ( P_Interface_Header_Id,
4389: P_Interface_Acct_Line_Id,
4390: NULL,
4396: IF (P_Expenditure_Org_Id IS NULL AND l_cov_expenditure_org_id IS NOT NULL) OR
4397: (P_Expenditure_Org_Id IS NOT NULL AND l_cov_expenditure_org_id IS NULL) OR
4398: (P_Expenditure_Org_Id <> l_cov_expenditure_org_id) THEN
4399: l_error_message := NULL;
4400: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ORG_ID_MISMATCH');
4401: FND_MESSAGE.SET_TOKEN('R_EXPEND_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4402: FND_MESSAGE.SET_TOKEN('C_EXPEND_ORG_ID', TO_CHAR(l_cov_expenditure_org_id), TRUE);
4403: l_error_message := FND_MESSAGE.GET;
4404: INTERFACE_HANDLE_ERRORS
4397: (P_Expenditure_Org_Id IS NOT NULL AND l_cov_expenditure_org_id IS NULL) OR
4398: (P_Expenditure_Org_Id <> l_cov_expenditure_org_id) THEN
4399: l_error_message := NULL;
4400: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ORG_ID_MISMATCH');
4401: FND_MESSAGE.SET_TOKEN('R_EXPEND_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4402: FND_MESSAGE.SET_TOKEN('C_EXPEND_ORG_ID', TO_CHAR(l_cov_expenditure_org_id), TRUE);
4403: l_error_message := FND_MESSAGE.GET;
4404: INTERFACE_HANDLE_ERRORS
4405: ( P_Interface_Header_Id,
4398: (P_Expenditure_Org_Id <> l_cov_expenditure_org_id) THEN
4399: l_error_message := NULL;
4400: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ORG_ID_MISMATCH');
4401: FND_MESSAGE.SET_TOKEN('R_EXPEND_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4402: FND_MESSAGE.SET_TOKEN('C_EXPEND_ORG_ID', TO_CHAR(l_cov_expenditure_org_id), TRUE);
4403: l_error_message := FND_MESSAGE.GET;
4404: INTERFACE_HANDLE_ERRORS
4405: ( P_Interface_Header_Id,
4406: P_Interface_Acct_Line_Id,
4399: l_error_message := NULL;
4400: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ORG_ID_MISMATCH');
4401: FND_MESSAGE.SET_TOKEN('R_EXPEND_ORG_ID', TO_CHAR(P_Expenditure_Org_Id), TRUE);
4402: FND_MESSAGE.SET_TOKEN('C_EXPEND_ORG_ID', TO_CHAR(l_cov_expenditure_org_id), TRUE);
4403: l_error_message := FND_MESSAGE.GET;
4404: INTERFACE_HANDLE_ERRORS
4405: ( P_Interface_Header_Id,
4406: P_Interface_Acct_Line_Id,
4407: NULL,
4413: IF (P_Expenditure_Item_Date IS NULL AND l_cov_expenditure_item_date IS NOT NULL) OR
4414: (P_Expenditure_Item_Date IS NOT NULL AND l_cov_expenditure_item_date IS NULL) OR
4415: (P_Expenditure_Item_Date <> l_cov_expenditure_item_date) THEN
4416: l_error_message := NULL;
4417: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ITEM_DT_MISMATCH');
4418: FND_MESSAGE.SET_TOKEN('R_EXPEND_ITEM_DT', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4419: FND_MESSAGE.SET_TOKEN('C_EXPEND_ITEM_DT', TO_CHAR(l_cov_expenditure_item_date, 'DD-MON-YYYY'), TRUE);
4420: l_error_message := FND_MESSAGE.GET;
4421: INTERFACE_HANDLE_ERRORS
4414: (P_Expenditure_Item_Date IS NOT NULL AND l_cov_expenditure_item_date IS NULL) OR
4415: (P_Expenditure_Item_Date <> l_cov_expenditure_item_date) THEN
4416: l_error_message := NULL;
4417: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ITEM_DT_MISMATCH');
4418: FND_MESSAGE.SET_TOKEN('R_EXPEND_ITEM_DT', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4419: FND_MESSAGE.SET_TOKEN('C_EXPEND_ITEM_DT', TO_CHAR(l_cov_expenditure_item_date, 'DD-MON-YYYY'), TRUE);
4420: l_error_message := FND_MESSAGE.GET;
4421: INTERFACE_HANDLE_ERRORS
4422: ( P_Interface_Header_Id,
4415: (P_Expenditure_Item_Date <> l_cov_expenditure_item_date) THEN
4416: l_error_message := NULL;
4417: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ITEM_DT_MISMATCH');
4418: FND_MESSAGE.SET_TOKEN('R_EXPEND_ITEM_DT', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4419: FND_MESSAGE.SET_TOKEN('C_EXPEND_ITEM_DT', TO_CHAR(l_cov_expenditure_item_date, 'DD-MON-YYYY'), TRUE);
4420: l_error_message := FND_MESSAGE.GET;
4421: INTERFACE_HANDLE_ERRORS
4422: ( P_Interface_Header_Id,
4423: P_Interface_Acct_Line_Id,
4416: l_error_message := NULL;
4417: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_EXPEND_ITEM_DT_MISMATCH');
4418: FND_MESSAGE.SET_TOKEN('R_EXPEND_ITEM_DT', TO_CHAR(P_Expenditure_Item_Date, 'DD-MON-YYYY'), TRUE);
4419: FND_MESSAGE.SET_TOKEN('C_EXPEND_ITEM_DT', TO_CHAR(l_cov_expenditure_item_date, 'DD-MON-YYYY'), TRUE);
4420: l_error_message := FND_MESSAGE.GET;
4421: INTERFACE_HANDLE_ERRORS
4422: ( P_Interface_Header_Id,
4423: P_Interface_Acct_Line_Id,
4424: NULL,
4438: FROM fnd_user
4439: WHERE user_id = P_Created_By;
4440: EXCEPTION WHEN NO_DATA_FOUND THEN
4441: l_error_message := NULL;
4442: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
4443: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
4444: l_error_message := FND_MESSAGE.GET;
4445: INTERFACE_HANDLE_ERRORS
4446: ( P_Interface_Header_Id,
4439: WHERE user_id = P_Created_By;
4440: EXCEPTION WHEN NO_DATA_FOUND THEN
4441: l_error_message := NULL;
4442: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
4443: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
4444: l_error_message := FND_MESSAGE.GET;
4445: INTERFACE_HANDLE_ERRORS
4446: ( P_Interface_Header_Id,
4447: P_Interface_Acct_Line_Id,
4440: EXCEPTION WHEN NO_DATA_FOUND THEN
4441: l_error_message := NULL;
4442: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
4443: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
4444: l_error_message := FND_MESSAGE.GET;
4445: INTERFACE_HANDLE_ERRORS
4446: ( P_Interface_Header_Id,
4447: P_Interface_Acct_Line_Id,
4448: NULL,
4661: ROLLBACK;
4662: l_msg_data := TO_CHAR(SQLCODE)||': '||SQLERRM;
4663: -- bug 3199488, start block
4664: IF (l_unexp_level >= l_debug_level) THEN
4665: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4666: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
4667: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
4668: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.det_pf_interface_main.Unexp1',TRUE);
4669: END IF;
4662: l_msg_data := TO_CHAR(SQLCODE)||': '||SQLERRM;
4663: -- bug 3199488, start block
4664: IF (l_unexp_level >= l_debug_level) THEN
4665: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4666: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
4667: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
4668: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.det_pf_interface_main.Unexp1',TRUE);
4669: END IF;
4670: -- bug 3199488, end block
4663: -- bug 3199488, start block
4664: IF (l_unexp_level >= l_debug_level) THEN
4665: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4666: FND_MESSAGE.SET_TOKEN('CODE',sqlcode);
4667: FND_MESSAGE.SET_TOKEN('MSG',sqlerrm);
4668: FND_LOG.MESSAGE(l_unexp_level, 'igc.plsql.igc_cc_open_interface_pkg.det_pf_interface_main.Unexp1',TRUE);
4669: END IF;
4670: -- bug 3199488, end block
4671: P_X_Error_Status := 'U';
4719: -- valid one for CC type 'R'
4720: IF P_Cc_Type = 'R' THEN
4721: IF P_Interface_Parent_AcctLine_Id IS NULL THEN
4722: l_error_message := NULL;
4723: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_ACNT_ID_NULL');
4724: l_error_message := FND_MESSAGE.GET;
4725: INTERFACE_HANDLE_ERRORS
4726: ( P_Interface_Header_Id,
4727: P_Interface_Acct_Line_Id,
4720: IF P_Cc_Type = 'R' THEN
4721: IF P_Interface_Parent_AcctLine_Id IS NULL THEN
4722: l_error_message := NULL;
4723: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_ACNT_ID_NULL');
4724: l_error_message := FND_MESSAGE.GET;
4725: INTERFACE_HANDLE_ERRORS
4726: ( P_Interface_Header_Id,
4727: P_Interface_Acct_Line_Id,
4728: P_Interface_Det_Pf_Id,
4733: ELSE
4734: IF P_Int_Acct_Parent_AcctLine_Id IS NOT NULL AND
4735: P_Int_Acct_Parent_AcctLine_Id <> P_Interface_Parent_AcctLine_Id THEN
4736: l_error_message := NULL;
4737: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_ACCT_LINE_ID_INV');
4738: FND_MESSAGE.SET_TOKEN('INT_PAR_ACCT_LINE_INVALID', TO_CHAR(P_Interface_Parent_AcctLine_Id), TRUE);
4739: l_error_message := FND_MESSAGE.GET;
4740: INTERFACE_HANDLE_ERRORS
4741: ( P_Interface_Header_Id,
4734: IF P_Int_Acct_Parent_AcctLine_Id IS NOT NULL AND
4735: P_Int_Acct_Parent_AcctLine_Id <> P_Interface_Parent_AcctLine_Id THEN
4736: l_error_message := NULL;
4737: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_ACCT_LINE_ID_INV');
4738: FND_MESSAGE.SET_TOKEN('INT_PAR_ACCT_LINE_INVALID', TO_CHAR(P_Interface_Parent_AcctLine_Id), TRUE);
4739: l_error_message := FND_MESSAGE.GET;
4740: INTERFACE_HANDLE_ERRORS
4741: ( P_Interface_Header_Id,
4742: P_Interface_Acct_Line_Id,
4735: P_Int_Acct_Parent_AcctLine_Id <> P_Interface_Parent_AcctLine_Id THEN
4736: l_error_message := NULL;
4737: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_ACCT_LINE_ID_INV');
4738: FND_MESSAGE.SET_TOKEN('INT_PAR_ACCT_LINE_INVALID', TO_CHAR(P_Interface_Parent_AcctLine_Id), TRUE);
4739: l_error_message := FND_MESSAGE.GET;
4740: INTERFACE_HANDLE_ERRORS
4741: ( P_Interface_Header_Id,
4742: P_Interface_Acct_Line_Id,
4743: P_Interface_Det_Pf_Id,
4749: END IF;
4750: ELSE
4751: IF P_Interface_Parent_AcctLine_Id IS NOT NULL THEN
4752: l_error_message := NULL;
4753: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_ACCT_LINE_ID_NULL');
4754: l_error_message := FND_MESSAGE.GET;
4755: INTERFACE_HANDLE_ERRORS
4756: ( P_Interface_Header_Id,
4757: P_Interface_Acct_Line_Id,
4750: ELSE
4751: IF P_Interface_Parent_AcctLine_Id IS NOT NULL THEN
4752: l_error_message := NULL;
4753: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_ACCT_LINE_ID_NULL');
4754: l_error_message := FND_MESSAGE.GET;
4755: INTERFACE_HANDLE_ERRORS
4756: ( P_Interface_Header_Id,
4757: P_Interface_Acct_Line_Id,
4758: P_Interface_Det_Pf_Id,
4767: -- valid one for CC type 'R'
4768: IF P_Cc_Type = 'R' THEN
4769: IF P_Interface_Parent_Det_Pf_Id IS NULL THEN
4770: l_error_message := NULL;
4771: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_DET_PF_ID_NULL');
4772: l_error_message := FND_MESSAGE.GET;
4773: INTERFACE_HANDLE_ERRORS
4774: ( P_Interface_Header_Id,
4775: P_Interface_Acct_Line_Id,
4768: IF P_Cc_Type = 'R' THEN
4769: IF P_Interface_Parent_Det_Pf_Id IS NULL THEN
4770: l_error_message := NULL;
4771: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PRENT_DET_PF_ID_NULL');
4772: l_error_message := FND_MESSAGE.GET;
4773: INTERFACE_HANDLE_ERRORS
4774: ( P_Interface_Header_Id,
4775: P_Interface_Acct_Line_Id,
4776: P_Interface_Det_Pf_Id,
4785: FROM igc_cc_det_pf_interface
4786: WHERE interface_det_pf_line_id = P_Interface_Parent_Det_Pf_Id;
4787: EXCEPTION WHEN NO_DATA_FOUND THEN
4788: l_error_message := NULL;
4789: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DET_PF_LINE_NOT_EXISTS');
4790: FND_MESSAGE.SET_TOKEN('INT_PARENT_DET_PF_LINE_ID', TO_CHAR(P_Interface_Parent_Det_Pf_Id), TRUE);
4791: l_error_message := FND_MESSAGE.GET;
4792: INTERFACE_HANDLE_ERRORS
4793: ( P_Interface_Header_Id,
4786: WHERE interface_det_pf_line_id = P_Interface_Parent_Det_Pf_Id;
4787: EXCEPTION WHEN NO_DATA_FOUND THEN
4788: l_error_message := NULL;
4789: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DET_PF_LINE_NOT_EXISTS');
4790: FND_MESSAGE.SET_TOKEN('INT_PARENT_DET_PF_LINE_ID', TO_CHAR(P_Interface_Parent_Det_Pf_Id), TRUE);
4791: l_error_message := FND_MESSAGE.GET;
4792: INTERFACE_HANDLE_ERRORS
4793: ( P_Interface_Header_Id,
4794: P_Interface_Acct_Line_Id,
4787: EXCEPTION WHEN NO_DATA_FOUND THEN
4788: l_error_message := NULL;
4789: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DET_PF_LINE_NOT_EXISTS');
4790: FND_MESSAGE.SET_TOKEN('INT_PARENT_DET_PF_LINE_ID', TO_CHAR(P_Interface_Parent_Det_Pf_Id), TRUE);
4791: l_error_message := FND_MESSAGE.GET;
4792: INTERFACE_HANDLE_ERRORS
4793: ( P_Interface_Header_Id,
4794: P_Interface_Acct_Line_Id,
4795: P_Interface_Det_Pf_Id,
4801: END IF;
4802: ELSE
4803: IF P_Interface_Parent_Det_Pf_Id IS NOT NULL THEN
4804: l_error_message := NULL;
4805: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DET_PF_LINE_ID_NULL');
4806: l_error_message := FND_MESSAGE.GET;
4807: INTERFACE_HANDLE_ERRORS
4808: ( P_Interface_Header_Id,
4809: P_Interface_Acct_Line_Id,
4802: ELSE
4803: IF P_Interface_Parent_Det_Pf_Id IS NOT NULL THEN
4804: l_error_message := NULL;
4805: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DET_PF_LINE_ID_NULL');
4806: l_error_message := FND_MESSAGE.GET;
4807: INTERFACE_HANDLE_ERRORS
4808: ( P_Interface_Header_Id,
4809: P_Interface_Acct_Line_Id,
4810: P_Interface_Det_Pf_Id,
4868: FROM igc_cc_det_pf_interface
4869: WHERE interface_par_det_pf_line_id = P_Interface_Det_Pf_Id;
4870: IF NVL(P_Cc_Det_Pf_Func_Amt, 0) < NVL(l_func_amt, 0) THEN
4871: l_error_message := NULL;
4872: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
4873: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4874: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4875: l_error_message := FND_MESSAGE.GET;
4876: INTERFACE_HANDLE_ERRORS
4869: WHERE interface_par_det_pf_line_id = P_Interface_Det_Pf_Id;
4870: IF NVL(P_Cc_Det_Pf_Func_Amt, 0) < NVL(l_func_amt, 0) THEN
4871: l_error_message := NULL;
4872: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
4873: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4874: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4875: l_error_message := FND_MESSAGE.GET;
4876: INTERFACE_HANDLE_ERRORS
4877: ( P_Interface_Header_Id,
4870: IF NVL(P_Cc_Det_Pf_Func_Amt, 0) < NVL(l_func_amt, 0) THEN
4871: l_error_message := NULL;
4872: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
4873: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4874: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4875: l_error_message := FND_MESSAGE.GET;
4876: INTERFACE_HANDLE_ERRORS
4877: ( P_Interface_Header_Id,
4878: P_Interface_Acct_Line_Id,
4871: l_error_message := NULL;
4872: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_FUNC_AMT_COV_DIFFERS');
4873: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4874: FND_MESSAGE.SET_TOKEN('FUNC_REL_AMT', TO_CHAR(l_func_amt), TRUE);
4875: l_error_message := FND_MESSAGE.GET;
4876: INTERFACE_HANDLE_ERRORS
4877: ( P_Interface_Header_Id,
4878: P_Interface_Acct_Line_Id,
4879: P_Interface_Det_Pf_Id,
4887:
4888: -- Validate the Encumbrance Status
4889: IF NVL(P_Cc_Encmbrnc_Status, 'N') <> NVL(P_Cc_Det_Pf_Encmbrnc_Status, 'N') THEN
4890: l_error_message := NULL;
4891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCUM_STATUS_DIFFERS');
4892: FND_MESSAGE.SET_TOKEN('LINE_ENCUM_STATUS', P_Cc_Det_Pf_Encmbrnc_Status, TRUE);
4893: FND_MESSAGE.SET_TOKEN('HDR_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4894: l_error_message := FND_MESSAGE.GET;
4895: INTERFACE_HANDLE_ERRORS
4888: -- Validate the Encumbrance Status
4889: IF NVL(P_Cc_Encmbrnc_Status, 'N') <> NVL(P_Cc_Det_Pf_Encmbrnc_Status, 'N') THEN
4890: l_error_message := NULL;
4891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCUM_STATUS_DIFFERS');
4892: FND_MESSAGE.SET_TOKEN('LINE_ENCUM_STATUS', P_Cc_Det_Pf_Encmbrnc_Status, TRUE);
4893: FND_MESSAGE.SET_TOKEN('HDR_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4894: l_error_message := FND_MESSAGE.GET;
4895: INTERFACE_HANDLE_ERRORS
4896: ( P_Interface_Header_Id,
4889: IF NVL(P_Cc_Encmbrnc_Status, 'N') <> NVL(P_Cc_Det_Pf_Encmbrnc_Status, 'N') THEN
4890: l_error_message := NULL;
4891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCUM_STATUS_DIFFERS');
4892: FND_MESSAGE.SET_TOKEN('LINE_ENCUM_STATUS', P_Cc_Det_Pf_Encmbrnc_Status, TRUE);
4893: FND_MESSAGE.SET_TOKEN('HDR_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4894: l_error_message := FND_MESSAGE.GET;
4895: INTERFACE_HANDLE_ERRORS
4896: ( P_Interface_Header_Id,
4897: P_Interface_Acct_Line_Id,
4890: l_error_message := NULL;
4891: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENCUM_STATUS_DIFFERS');
4892: FND_MESSAGE.SET_TOKEN('LINE_ENCUM_STATUS', P_Cc_Det_Pf_Encmbrnc_Status, TRUE);
4893: FND_MESSAGE.SET_TOKEN('HDR_ENCUM_STATUS', P_Cc_Encmbrnc_Status, TRUE);
4894: l_error_message := FND_MESSAGE.GET;
4895: INTERFACE_HANDLE_ERRORS
4896: ( P_Interface_Header_Id,
4897: P_Interface_Acct_Line_Id,
4898: P_Interface_Det_Pf_Id,
4905: -- Validate the Encumbrance colunmns
4906: IF NVL(P_Cc_Det_Pf_Encmbrnc_Status,'N') IN ('C','P') THEN
4907: IF NVL(P_Cc_Det_Pf_Func_Amt, 0) <> NVL(P_Cc_Det_Pf_Encmbrnc_Amt, 0) THEN
4908: l_error_message := NULL;
4909: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4910: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Amt), TRUE);
4911: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4912: l_error_message := FND_MESSAGE.GET;
4913: INTERFACE_HANDLE_ERRORS
4906: IF NVL(P_Cc_Det_Pf_Encmbrnc_Status,'N') IN ('C','P') THEN
4907: IF NVL(P_Cc_Det_Pf_Func_Amt, 0) <> NVL(P_Cc_Det_Pf_Encmbrnc_Amt, 0) THEN
4908: l_error_message := NULL;
4909: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4910: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Amt), TRUE);
4911: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4912: l_error_message := FND_MESSAGE.GET;
4913: INTERFACE_HANDLE_ERRORS
4914: ( P_Interface_Header_Id,
4907: IF NVL(P_Cc_Det_Pf_Func_Amt, 0) <> NVL(P_Cc_Det_Pf_Encmbrnc_Amt, 0) THEN
4908: l_error_message := NULL;
4909: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4910: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Amt), TRUE);
4911: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4912: l_error_message := FND_MESSAGE.GET;
4913: INTERFACE_HANDLE_ERRORS
4914: ( P_Interface_Header_Id,
4915: P_Interface_Acct_Line_Id,
4908: l_error_message := NULL;
4909: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ENC_AMT_EQUAL_FUNC_AMT');
4910: FND_MESSAGE.SET_TOKEN('ENC_AMT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Amt), TRUE);
4911: FND_MESSAGE.SET_TOKEN('FUNC_AMT', TO_CHAR(P_Cc_Det_Pf_Func_Amt), TRUE);
4912: l_error_message := FND_MESSAGE.GET;
4913: INTERFACE_HANDLE_ERRORS
4914: ( P_Interface_Header_Id,
4915: P_Interface_Acct_Line_Id,
4916: P_Interface_Det_Pf_Id,
4921: END IF;
4922:
4923: IF P_Cc_Det_Pf_Encmbrnc_Date IS NULL THEN
4924: l_error_message := NULL;
4925: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DTL_PAY_FRCT_ENC_DT_NUL');
4926: l_error_message := FND_MESSAGE.GET;
4927: INTERFACE_HANDLE_ERRORS
4928: ( P_Interface_Header_Id,
4929: P_Interface_Acct_Line_Id,
4922:
4923: IF P_Cc_Det_Pf_Encmbrnc_Date IS NULL THEN
4924: l_error_message := NULL;
4925: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DTL_PAY_FRCT_ENC_DT_NUL');
4926: l_error_message := FND_MESSAGE.GET;
4927: INTERFACE_HANDLE_ERRORS
4928: ( P_Interface_Header_Id,
4929: P_Interface_Acct_Line_Id,
4930: P_Interface_Det_Pf_Id,
4933: l_error_message,
4934: P_X_Error_Status);
4935: ELSIF P_Cc_Det_Pf_Encmbrnc_Date <> P_Cc_Det_Pf_Date THEN
4936: l_error_message := NULL;
4937: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
4938: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4939: FND_MESSAGE.SET_TOKEN('PF_DATE', TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
4940: l_error_message := FND_MESSAGE.GET;
4941: INTERFACE_HANDLE_ERRORS
4934: P_X_Error_Status);
4935: ELSIF P_Cc_Det_Pf_Encmbrnc_Date <> P_Cc_Det_Pf_Date THEN
4936: l_error_message := NULL;
4937: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
4938: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4939: FND_MESSAGE.SET_TOKEN('PF_DATE', TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
4940: l_error_message := FND_MESSAGE.GET;
4941: INTERFACE_HANDLE_ERRORS
4942: ( P_Interface_Header_Id,
4935: ELSIF P_Cc_Det_Pf_Encmbrnc_Date <> P_Cc_Det_Pf_Date THEN
4936: l_error_message := NULL;
4937: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
4938: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4939: FND_MESSAGE.SET_TOKEN('PF_DATE', TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
4940: l_error_message := FND_MESSAGE.GET;
4941: INTERFACE_HANDLE_ERRORS
4942: ( P_Interface_Header_Id,
4943: P_Interface_Acct_Line_Id,
4936: l_error_message := NULL;
4937: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DT_PF_ENC_DT_DIFF_PFDT');
4938: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4939: FND_MESSAGE.SET_TOKEN('PF_DATE', TO_CHAR(P_Cc_Det_Pf_Date, 'DD-MON-YYYY'), TRUE);
4940: l_error_message := FND_MESSAGE.GET;
4941: INTERFACE_HANDLE_ERRORS
4942: ( P_Interface_Header_Id,
4943: P_Interface_Acct_Line_Id,
4944: P_Interface_Det_Pf_Id,
4966: AND ccp.cc_period_status IN ('O','F')
4967: AND glp.closing_status IN ('O','F');
4968: EXCEPTION WHEN NO_DATA_FOUND THEN
4969: l_error_message := NULL;
4970: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FRCT_ENCUM_DT_LMT');
4971: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4972: l_error_message := FND_MESSAGE.GET;
4973: INTERFACE_HANDLE_ERRORS
4974: ( P_Interface_Header_Id,
4967: AND glp.closing_status IN ('O','F');
4968: EXCEPTION WHEN NO_DATA_FOUND THEN
4969: l_error_message := NULL;
4970: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FRCT_ENCUM_DT_LMT');
4971: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4972: l_error_message := FND_MESSAGE.GET;
4973: INTERFACE_HANDLE_ERRORS
4974: ( P_Interface_Header_Id,
4975: P_Interface_Acct_Line_Id,
4968: EXCEPTION WHEN NO_DATA_FOUND THEN
4969: l_error_message := NULL;
4970: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PAY_FRCT_ENCUM_DT_LMT');
4971: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4972: l_error_message := FND_MESSAGE.GET;
4973: INTERFACE_HANDLE_ERRORS
4974: ( P_Interface_Header_Id,
4975: P_Interface_Acct_Line_Id,
4976: P_Interface_Det_Pf_Id,
4988: FROM igc_cc_det_pf_interface
4989: WHERE interface_det_pf_line_id = P_Interface_Parent_Det_Pf_Id;
4990: IF l_det_pf_date <> P_Cc_Det_Pf_Encmbrnc_Date THEN
4991: l_error_message := NULL;
4992: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_RELDT_MORE_COVDT');
4993: FND_MESSAGE.SET_TOKEN('REL_DATE', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4994: FND_MESSAGE.SET_TOKEN('COV_DATE', TO_CHAR(l_det_pf_date, 'DD-MON-YYYY'), TRUE);
4995: l_error_message := FND_MESSAGE.GET;
4996: INTERFACE_HANDLE_ERRORS
4989: WHERE interface_det_pf_line_id = P_Interface_Parent_Det_Pf_Id;
4990: IF l_det_pf_date <> P_Cc_Det_Pf_Encmbrnc_Date THEN
4991: l_error_message := NULL;
4992: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_RELDT_MORE_COVDT');
4993: FND_MESSAGE.SET_TOKEN('REL_DATE', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4994: FND_MESSAGE.SET_TOKEN('COV_DATE', TO_CHAR(l_det_pf_date, 'DD-MON-YYYY'), TRUE);
4995: l_error_message := FND_MESSAGE.GET;
4996: INTERFACE_HANDLE_ERRORS
4997: ( P_Interface_Header_Id,
4990: IF l_det_pf_date <> P_Cc_Det_Pf_Encmbrnc_Date THEN
4991: l_error_message := NULL;
4992: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_RELDT_MORE_COVDT');
4993: FND_MESSAGE.SET_TOKEN('REL_DATE', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4994: FND_MESSAGE.SET_TOKEN('COV_DATE', TO_CHAR(l_det_pf_date, 'DD-MON-YYYY'), TRUE);
4995: l_error_message := FND_MESSAGE.GET;
4996: INTERFACE_HANDLE_ERRORS
4997: ( P_Interface_Header_Id,
4998: P_Interface_Acct_Line_Id,
4991: l_error_message := NULL;
4992: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_RELDT_MORE_COVDT');
4993: FND_MESSAGE.SET_TOKEN('REL_DATE', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
4994: FND_MESSAGE.SET_TOKEN('COV_DATE', TO_CHAR(l_det_pf_date, 'DD-MON-YYYY'), TRUE);
4995: l_error_message := FND_MESSAGE.GET;
4996: INTERFACE_HANDLE_ERRORS
4997: ( P_Interface_Header_Id,
4998: P_Interface_Acct_Line_Id,
4999: P_Interface_Det_Pf_Id,
5007: END IF;
5008: ELSE
5009: IF P_Cc_Det_Pf_Encmbrnc_Date < P_Cc_Start_Date OR P_Cc_Det_Pf_Encmbrnc_Date > P_Cc_End_Date THEN
5010: l_error_message := NULL;
5011: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_DT_NOTIN_SD_ED');
5012: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
5013: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
5014: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
5015: l_error_message := FND_MESSAGE.GET;
5008: ELSE
5009: IF P_Cc_Det_Pf_Encmbrnc_Date < P_Cc_Start_Date OR P_Cc_Det_Pf_Encmbrnc_Date > P_Cc_End_Date THEN
5010: l_error_message := NULL;
5011: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_DT_NOTIN_SD_ED');
5012: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
5013: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
5014: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
5015: l_error_message := FND_MESSAGE.GET;
5016: INTERFACE_HANDLE_ERRORS
5009: IF P_Cc_Det_Pf_Encmbrnc_Date < P_Cc_Start_Date OR P_Cc_Det_Pf_Encmbrnc_Date > P_Cc_End_Date THEN
5010: l_error_message := NULL;
5011: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_DT_NOTIN_SD_ED');
5012: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
5013: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
5014: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
5015: l_error_message := FND_MESSAGE.GET;
5016: INTERFACE_HANDLE_ERRORS
5017: ( P_Interface_Header_Id,
5010: l_error_message := NULL;
5011: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_DT_NOTIN_SD_ED');
5012: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
5013: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
5014: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
5015: l_error_message := FND_MESSAGE.GET;
5016: INTERFACE_HANDLE_ERRORS
5017: ( P_Interface_Header_Id,
5018: P_Interface_Acct_Line_Id,
5011: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PF_ENC_DT_NOTIN_SD_ED');
5012: FND_MESSAGE.SET_TOKEN('PF_ENCUM_DT', TO_CHAR(P_Cc_Det_Pf_Encmbrnc_Date, 'DD-MON-YYYY'), TRUE);
5013: FND_MESSAGE.SET_TOKEN('START_DT', TO_CHAR(P_Cc_Start_Date, 'DD-MON-YYYY'), TRUE);
5014: FND_MESSAGE.SET_TOKEN('END_DT', TO_CHAR(P_Cc_End_Date, 'DD-MON-YYYY'), TRUE);
5015: l_error_message := FND_MESSAGE.GET;
5016: INTERFACE_HANDLE_ERRORS
5017: ( P_Interface_Header_Id,
5018: P_Interface_Acct_Line_Id,
5019: P_Interface_Det_Pf_Id,
5032: FROM fnd_user
5033: WHERE user_id = P_Created_By;
5034: EXCEPTION WHEN NO_DATA_FOUND THEN
5035: l_error_message := NULL;
5036: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
5037: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
5038: l_error_message := FND_MESSAGE.GET;
5039: INTERFACE_HANDLE_ERRORS
5040: ( P_Interface_Header_Id,
5033: WHERE user_id = P_Created_By;
5034: EXCEPTION WHEN NO_DATA_FOUND THEN
5035: l_error_message := NULL;
5036: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
5037: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
5038: l_error_message := FND_MESSAGE.GET;
5039: INTERFACE_HANDLE_ERRORS
5040: ( P_Interface_Header_Id,
5041: P_Interface_Acct_Line_Id,
5034: EXCEPTION WHEN NO_DATA_FOUND THEN
5035: l_error_message := NULL;
5036: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
5037: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(P_Created_By), TRUE);
5038: l_error_message := FND_MESSAGE.GET;
5039: INTERFACE_HANDLE_ERRORS
5040: ( P_Interface_Header_Id,
5041: P_Interface_Acct_Line_Id,
5042: P_Interface_Det_Pf_Id,