228: -- If validation succeeds, get the derived values and insert header record.
229: -- -------------------------------------------------------------------
230: IF (x_valid_cc <> FND_API.G_TRUE) THEN
231:
232: x_msg_data := FND_MESSAGE.GET;
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: x_msg_count := 1;
235:
236: IF g_debug_mode = 'Y'
262:
263: -- --------------------------------------------------------------------
264: -- Failure in retrieving the sequesnce number for the Header ID.
265: -- --------------------------------------------------------------------
266: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NO_CC_HDR_SEQ');
267: FND_MSG_PUB.ADD;
268: RAISE FND_API.G_EXC_ERROR;
269:
270: ELSE
333: );
334: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
335:
336: ROLLBACK to CC_Open_API_PT;
337: x_msg_data := FND_MESSAGE.GET;
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: x_msg_count := 1;
340: g_debug_msg := 'CC Open API Main Header Record Insert Row Not Successful...'||l_msg_data;
341: -- Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
369: EXCEPTION
370:
371: WHEN FND_API.G_EXC_ERROR THEN
372: ROLLBACK to CC_Open_API_PT;
373: x_msg_data := FND_MESSAGE.GET;
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: x_msg_count := 1;
376:
377: -- Bug 3199488
387: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
388: END IF;
389: -- Bug 3199488
390: IF ( g_unexp_level >= g_debug_level ) THEN
391: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
392: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
393: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
394: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
395: END IF;
388: END IF;
389: -- Bug 3199488
390: IF ( g_unexp_level >= g_debug_level ) THEN
391: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
392: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
393: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
394: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
395: END IF;
396: -- Bug 3199488
389: -- Bug 3199488
390: IF ( g_unexp_level >= g_debug_level ) THEN
391: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
392: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
393: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
394: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
395: END IF;
396: -- Bug 3199488
397: RETURN;
504: -- -------------------------------------------------------------------
505: -- Validate the Org Id.
506: -- -------------------------------------------------------------------
507: IF (p_cc_header_rec.org_id <> p_current_org_id) THEN
508: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
509: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(p_cc_header_rec.org_id), TRUE);
510: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(p_current_org_id), TRUE);
511: FND_MSG_PUB.ADD;
512: l_error_count := l_error_count + 1;
505: -- Validate the Org Id.
506: -- -------------------------------------------------------------------
507: IF (p_cc_header_rec.org_id <> p_current_org_id) THEN
508: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
509: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(p_cc_header_rec.org_id), TRUE);
510: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(p_current_org_id), TRUE);
511: FND_MSG_PUB.ADD;
512: l_error_count := l_error_count + 1;
513:
506: -- -------------------------------------------------------------------
507: IF (p_cc_header_rec.org_id <> p_current_org_id) THEN
508: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_ORGID_NO_MATCH');
509: FND_MESSAGE.SET_TOKEN('ORGID', TO_CHAR(p_cc_header_rec.org_id), TRUE);
510: FND_MESSAGE.SET_TOKEN('CURR_ORGID', TO_CHAR(p_current_org_id), TRUE);
511: FND_MSG_PUB.ADD;
512: l_error_count := l_error_count + 1;
513:
514: IF g_debug_mode = 'Y'
517: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
518: END IF;
519:
520: IF (p_cc_header_rec.org_id IS NULL) THEN
521: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NO_ORG_ID');
522: FND_MSG_PUB.ADD;
523: l_error_count := l_error_count + 1;
524:
525: IF g_debug_mode = 'Y'
537: INTO l_org_name;
538:
539: IF (c_validate_org_id%NOTFOUND) THEN
540:
541: FND_MESSAGE.SET_NAME('IGC', 'IGC_ORG_NOT_FOUND');
542: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_cc_header_rec.org_id),TRUE);
543: FND_MSG_PUB.ADD;
544: l_error_count := l_error_count + 1;
545: IF g_debug_mode = 'Y'
538:
539: IF (c_validate_org_id%NOTFOUND) THEN
540:
541: FND_MESSAGE.SET_NAME('IGC', 'IGC_ORG_NOT_FOUND');
542: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_cc_header_rec.org_id),TRUE);
543: FND_MSG_PUB.ADD;
544: l_error_count := l_error_count + 1;
545: IF g_debug_mode = 'Y'
546: THEN
559: -- -------------------------------------------------------------------
560: -- Validate Set of Books Id
561: -- -------------------------------------------------------------------
562: IF (p_cc_header_rec.set_of_books_id <> p_current_sob_id) THEN
563: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
564: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id), TRUE);
565: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(p_current_sob_id), TRUE);
566: FND_MSG_PUB.ADD;
567: l_error_count := l_error_count + 1;
560: -- Validate Set of Books Id
561: -- -------------------------------------------------------------------
562: IF (p_cc_header_rec.set_of_books_id <> p_current_sob_id) THEN
563: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
564: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id), TRUE);
565: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(p_current_sob_id), TRUE);
566: FND_MSG_PUB.ADD;
567: l_error_count := l_error_count + 1;
568: IF g_debug_mode = 'Y'
561: -- -------------------------------------------------------------------
562: IF (p_cc_header_rec.set_of_books_id <> p_current_sob_id) THEN
563: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_SOB_NO_MATCH_USER_SOB');
564: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id), TRUE);
565: FND_MESSAGE.SET_TOKEN('CURRENT_SOB_ID', TO_CHAR(p_current_sob_id), TRUE);
566: FND_MSG_PUB.ADD;
567: l_error_count := l_error_count + 1;
568: IF g_debug_mode = 'Y'
569: THEN
572: END IF;
573: END IF;
574:
575: IF (p_cc_header_rec.set_of_books_id IS NULL) THEN
576: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NO_SOB');
577: FND_MSG_PUB.ADD;
578: l_error_count := l_error_count + 1;
579:
580: IF g_debug_mode = 'Y'
592: INTO l_sob_id;
593:
594: IF (c_validate_sob_id%NOTFOUND) THEN
595:
596: FND_MESSAGE.SET_NAME('IGC', 'IGC_SOB_ID_NOT_FOUND');
597: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id));
598: FND_MSG_PUB.ADD;
599: l_error_count := l_error_count + 1;
600: IF g_debug_mode = 'Y'
593:
594: IF (c_validate_sob_id%NOTFOUND) THEN
595:
596: FND_MESSAGE.SET_NAME('IGC', 'IGC_SOB_ID_NOT_FOUND');
597: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id));
598: FND_MSG_PUB.ADD;
599: l_error_count := l_error_count + 1;
600: IF g_debug_mode = 'Y'
601: THEN
619: FETCH c_validate_sob_org_combo
620: INTO l_name;
621:
622: IF (c_validate_sob_org_combo%NOTFOUND) THEN
623: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
624: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id), TRUE);
625: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_cc_header_rec.org_id), TRUE);
626: FND_MSG_PUB.ADD;
627: l_error_count := l_error_count + 1;
620: INTO l_name;
621:
622: IF (c_validate_sob_org_combo%NOTFOUND) THEN
623: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
624: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id), TRUE);
625: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_cc_header_rec.org_id), TRUE);
626: FND_MSG_PUB.ADD;
627: l_error_count := l_error_count + 1;
628: IF g_debug_mode = 'Y'
621:
622: IF (c_validate_sob_org_combo%NOTFOUND) THEN
623: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
624: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_cc_header_rec.set_of_books_id), TRUE);
625: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_cc_header_rec.org_id), TRUE);
626: FND_MSG_PUB.ADD;
627: l_error_count := l_error_count + 1;
628: IF g_debug_mode = 'Y'
629: THEN
640: -- -------------------------------------------------------------------
641: -- Validate the CC type.
642: -- -------------------------------------------------------------------
643: IF UPPER(p_cc_header_rec.cc_type) NOT IN ('S', 'C', 'R') THEN
644: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCTYPE_INVALID');
645: FND_MESSAGE.SET_TOKEN('CC_TYPE', p_cc_header_rec.cc_type, TRUE);
646: FND_MSG_PUB.ADD;
647: l_error_count := l_error_count + 1;
648: IF g_debug_mode = 'Y'
641: -- Validate the CC type.
642: -- -------------------------------------------------------------------
643: IF UPPER(p_cc_header_rec.cc_type) NOT IN ('S', 'C', 'R') THEN
644: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CCTYPE_INVALID');
645: FND_MESSAGE.SET_TOKEN('CC_TYPE', p_cc_header_rec.cc_type, TRUE);
646: FND_MSG_PUB.ADD;
647: l_error_count := l_error_count + 1;
648: IF g_debug_mode = 'Y'
649: THEN
666:
667: EXCEPTION
668: WHEN OTHERS THEN
669: l_error_count := l_error_count + 1;
670: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NUM_METHOD_NOT_DEFINED');
671: FND_MSG_PUB.ADD;
672: IF g_debug_mode = 'Y'
673: THEN
674: g_debug_msg := 'CC Open API Validate Numbering method not found...';
678: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
679: END IF;
680: -- Bug 3199488
681: IF ( g_unexp_level >= g_debug_level ) THEN
682: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
683: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
684: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
685: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
686: END IF;
679: END IF;
680: -- Bug 3199488
681: IF ( g_unexp_level >= g_debug_level ) THEN
682: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
683: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
684: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
685: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
686: END IF;
687: -- Bug 3199488
680: -- Bug 3199488
681: IF ( g_unexp_level >= g_debug_level ) THEN
682: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
683: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
684: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
685: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
686: END IF;
687: -- Bug 3199488
688: END;
690: -- -------------------------------------------------------------------
691: -- Check to ensure that the CC Reference Number given is NOT NULL.
692: -- -------------------------------------------------------------------
693: IF (p_cc_header_rec.cc_ref_num IS NULL) THEN
694: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NO_REF_NUM');
695: FND_MSG_PUB.ADD;
696: l_error_count := l_error_count + 1;
697: IF g_debug_mode = 'Y'
698: THEN
710: -- -------------------------------------------------------------------
711: IF ((l_cc_num_method = 'A') AND
712: (p_cc_header_rec.cc_num IS NOT NULL)) THEN
713:
714: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_AUTO_NUMBERING_ENABLED');
715: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_header_rec.cc_num);
716: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
717: FND_MSG_PUB.ADD;
718: l_error_count := l_error_count + 1;
711: IF ((l_cc_num_method = 'A') AND
712: (p_cc_header_rec.cc_num IS NOT NULL)) THEN
713:
714: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_AUTO_NUMBERING_ENABLED');
715: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_header_rec.cc_num);
716: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
717: FND_MSG_PUB.ADD;
718: l_error_count := l_error_count + 1;
719: IF g_debug_mode = 'Y'
712: (p_cc_header_rec.cc_num IS NOT NULL)) THEN
713:
714: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_AUTO_NUMBERING_ENABLED');
715: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_header_rec.cc_num);
716: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
717: FND_MSG_PUB.ADD;
718: l_error_count := l_error_count + 1;
719: IF g_debug_mode = 'Y'
720: THEN
741:
742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_NUMERIC_CC_NUM');
746: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_header_rec.cc_num);
747: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
748: FND_MSG_PUB.ADD;
749: END IF;
742: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_NUMERIC_CC_NUM');
746: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_header_rec.cc_num);
747: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
748: FND_MSG_PUB.ADD;
749: END IF;
750:
743:
744: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
745: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_NUMERIC_CC_NUM');
746: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_header_rec.cc_num);
747: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
748: FND_MSG_PUB.ADD;
749: END IF;
750:
751: l_error_count := l_error_count + 1;
762:
763: ELSIF ((l_cc_num_method = 'M') AND
764: (p_cc_header_rec.cc_num IS NULL)) THEN
765:
766: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_NUM_NULL_FOR_MANUAL');
767: FND_MSG_PUB.ADD;
768: l_error_count := l_error_count + 1;
769: IF g_debug_mode = 'Y'
770: THEN
800: p_cc_header_rec.cc_num := to_char (l_cc_num_created);
801:
802: ELSE
803:
804: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_API_AUTO_CC_NUM_FAIL');
805: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
806: FND_MSG_PUB.ADD;
807: l_error_count := l_error_count + 1;
808:
801:
802: ELSE
803:
804: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_API_AUTO_CC_NUM_FAIL');
805: FND_MESSAGE.SET_TOKEN('ORG_ID', p_current_org_id);
806: FND_MSG_PUB.ADD;
807: l_error_count := l_error_count + 1;
808:
809: IF g_debug_mode = 'Y'
839: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
840: END IF;
841: -- Bug 3199488
842: IF ( g_unexp_level >= g_debug_level ) THEN
843: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
844: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
845: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
846: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
847: END IF;
840: END IF;
841: -- Bug 3199488
842: IF ( g_unexp_level >= g_debug_level ) THEN
843: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
844: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
845: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
846: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
847: END IF;
848: -- Bug 3199488
841: -- Bug 3199488
842: IF ( g_unexp_level >= g_debug_level ) THEN
843: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
844: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
845: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
846: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
847: END IF;
848: -- Bug 3199488
849:
850:
851: END;
852:
853: IF (l_count > 0) THEN
854: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_NUMBER');
855: FND_MESSAGE.SET_TOKEN('CC_NUMBER', p_cc_header_rec.cc_num);
856: FND_MSG_PUB.ADD;
857: l_error_count := l_error_count + 1;
858: IF g_debug_mode = 'Y'
851: END;
852:
853: IF (l_count > 0) THEN
854: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_NUMBER');
855: FND_MESSAGE.SET_TOKEN('CC_NUMBER', p_cc_header_rec.cc_num);
856: FND_MSG_PUB.ADD;
857: l_error_count := l_error_count + 1;
858: IF g_debug_mode = 'Y'
859: THEN
885: END IF;
886: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
887: -- Bug 3199488
888: IF ( g_unexp_level >= g_debug_level ) THEN
889: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
890: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
891: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
892: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
893: END IF;
886: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
887: -- Bug 3199488
888: IF ( g_unexp_level >= g_debug_level ) THEN
889: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
890: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
891: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
892: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
893: END IF;
894: -- Bug 3199488
887: -- Bug 3199488
888: IF ( g_unexp_level >= g_debug_level ) THEN
889: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
890: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
891: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
892: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
893: END IF;
894: -- Bug 3199488
895: END;
894: -- Bug 3199488
895: END;
896:
897: IF l_count > 0 THEN
898: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_REF_NUM');
899: FND_MESSAGE.SET_TOKEN('CC_REF_NUM', p_cc_header_rec.cc_ref_num);
900: FND_MSG_PUB.ADD;
901: l_error_count := l_error_count + 1;
902: IF g_debug_mode = 'Y'
895: END;
896:
897: IF l_count > 0 THEN
898: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_REF_NUM');
899: FND_MESSAGE.SET_TOKEN('CC_REF_NUM', p_cc_header_rec.cc_ref_num);
900: FND_MSG_PUB.ADD;
901: l_error_count := l_error_count + 1;
902: IF g_debug_mode = 'Y'
903: THEN
914: IF p_cc_header_rec.cc_type = 'R' THEN
915:
916: IF p_cc_header_rec.parent_header_Id IS NULL THEN
917:
918: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_HDR_ID_REQD');
919: FND_MSG_PUB.ADD;
920: l_error_count := l_error_count + 1;
921: IF g_debug_mode = 'Y'
922: THEN
933: FETCH c_val_cover_state_stat
934: INTO l_cc_num;
935:
936: IF (c_val_cover_state_stat%NOTFOUND) THEN
937: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_NOT_VAL_STATE');
938: FND_MSG_PUB.ADD;
939: l_error_count := l_error_count + 1;
940: IF g_debug_mode = 'Y'
941: THEN
963:
964: EXCEPTION
965:
966: WHEN NO_DATA_FOUND THEN
967: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_NOT_VALID_OAPI');
968: FND_MESSAGE.SET_TOKEN('PARENT_HEADER_ID', TO_CHAR(p_cc_header_rec.parent_header_id), TRUE);
969: FND_MSG_PUB.ADD;
970: l_error_count := l_error_count + 1;
971: IF g_debug_mode = 'Y'
964: EXCEPTION
965:
966: WHEN NO_DATA_FOUND THEN
967: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_NOT_VALID_OAPI');
968: FND_MESSAGE.SET_TOKEN('PARENT_HEADER_ID', TO_CHAR(p_cc_header_rec.parent_header_id), TRUE);
969: FND_MSG_PUB.ADD;
970: l_error_count := l_error_count + 1;
971: IF g_debug_mode = 'Y'
972: THEN
982:
983: ELSE
984:
985: IF p_cc_header_rec.parent_header_id IS NOT NULL THEN
986: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PARENT_ID_NULL_OAPI');
987: FND_MSG_PUB.ADD;
988: l_error_count := l_error_count + 1;
989: IF g_debug_mode = 'Y'
990: THEN
1121:
1122: EXCEPTION
1123:
1124: WHEN NO_DATA_FOUND THEN
1125: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_ID');
1126: FND_MESSAGE.SET_TOKEN('VENDOR_ID', TO_CHAR(p_cc_header_rec.vendor_id), TRUE);
1127: FND_MSG_PUB.ADD;
1128: l_error_count := l_error_count + 1;
1129: IF g_debug_mode = 'Y'
1122: EXCEPTION
1123:
1124: WHEN NO_DATA_FOUND THEN
1125: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_ID');
1126: FND_MESSAGE.SET_TOKEN('VENDOR_ID', TO_CHAR(p_cc_header_rec.vendor_id), TRUE);
1127: FND_MSG_PUB.ADD;
1128: l_error_count := l_error_count + 1;
1129: IF g_debug_mode = 'Y'
1130: THEN
1161:
1162: EXCEPTION
1163:
1164: WHEN NO_DATA_FOUND THEN
1165: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_SITE_ID');
1166: FND_MESSAGE.SET_TOKEN('VENDOR_SITE_ID', TO_CHAR(p_cc_header_rec.vendor_site_id), TRUE);
1167: FND_MSG_PUB.ADD;
1168: l_error_count := l_error_count + 1;
1169: IF g_debug_mode = 'Y'
1162: EXCEPTION
1163:
1164: WHEN NO_DATA_FOUND THEN
1165: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VENDOR_SITE_ID');
1166: FND_MESSAGE.SET_TOKEN('VENDOR_SITE_ID', TO_CHAR(p_cc_header_rec.vendor_site_id), TRUE);
1167: FND_MSG_PUB.ADD;
1168: l_error_count := l_error_count + 1;
1169: IF g_debug_mode = 'Y'
1170: THEN
1192:
1193: IF ((p_cc_header_rec.vendor_site_id IS NULL) OR
1194: (p_cc_header_rec.vendor_id IS NULL)) THEN
1195:
1196: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_VNDR_SITE_CONT_ID_NULL');
1197: FND_MSG_PUB.ADD;
1198: l_error_count := l_error_count + 1;
1199: IF g_debug_mode = 'Y'
1200: THEN
1217:
1218: EXCEPTION
1219:
1220: WHEN NO_DATA_FOUND THEN
1221: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VEDR_CONTACT_ID');
1222: FND_MESSAGE.SET_TOKEN('VENDOR_CONTACT_ID', TO_CHAR(p_cc_header_rec.vendor_contact_id), TRUE);
1223: FND_MSG_PUB.ADD;
1224: l_error_count := l_error_count + 1;
1225: IF g_debug_mode = 'Y'
1218: EXCEPTION
1219:
1220: WHEN NO_DATA_FOUND THEN
1221: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_VEDR_CONTACT_ID');
1222: FND_MESSAGE.SET_TOKEN('VENDOR_CONTACT_ID', TO_CHAR(p_cc_header_rec.vendor_contact_id), TRUE);
1223: FND_MSG_PUB.ADD;
1224: l_error_count := l_error_count + 1;
1225: IF g_debug_mode = 'Y'
1226: THEN
1249:
1250: EXCEPTION
1251:
1252: WHEN NO_DATA_FOUND THEN
1253: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TERM_ID');
1254: FND_MESSAGE.SET_TOKEN('TERM_ID', TO_CHAR(p_cc_header_rec.term_id), TRUE);
1255: FND_MSG_PUB.ADD;
1256: l_error_count := l_error_count + 1;
1257: IF g_debug_mode = 'Y'
1250: EXCEPTION
1251:
1252: WHEN NO_DATA_FOUND THEN
1253: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_TERM_ID');
1254: FND_MESSAGE.SET_TOKEN('TERM_ID', TO_CHAR(p_cc_header_rec.term_id), TRUE);
1255: FND_MSG_PUB.ADD;
1256: l_error_count := l_error_count + 1;
1257: IF g_debug_mode = 'Y'
1258: THEN
1281: -- -------------------------------------------------------------------
1282: IF p_cc_header_rec.location_id IS NOT NULL THEN
1283:
1284: IF p_cc_header_rec.vendor_id IS NULL THEN
1285: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_LOCATION_ID_NULL');
1286: FND_MSG_PUB.ADD;
1287: l_error_count := l_error_count + 1;
1288: IF g_debug_mode = 'Y'
1289: THEN
1304: AND NVL(inactive_date, sysdate+1) > sysdate;
1305:
1306: EXCEPTION
1307: WHEN NO_DATA_FOUND THEN
1308: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LOCATION_ID');
1309: FND_MESSAGE.SET_TOKEN('LOCATION_ID', TO_CHAR(p_cc_header_rec.location_id), TRUE);
1310: FND_MSG_PUB.ADD;
1311: l_error_count := l_error_count + 1;
1312: IF g_debug_mode = 'Y'
1305:
1306: EXCEPTION
1307: WHEN NO_DATA_FOUND THEN
1308: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LOCATION_ID');
1309: FND_MESSAGE.SET_TOKEN('LOCATION_ID', TO_CHAR(p_cc_header_rec.location_id), TRUE);
1310: FND_MSG_PUB.ADD;
1311: l_error_count := l_error_count + 1;
1312: IF g_debug_mode = 'Y'
1313: THEN
1370: AND a.assignment_type = 'E';
1371:
1372: EXCEPTION
1373: WHEN NO_DATA_FOUND THEN
1374: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OWNER_UID_INVALID');
1375: FND_MESSAGE.SET_TOKEN('OWNER_UID', TO_CHAR(p_cc_header_rec.cc_owner_user_id), TRUE);
1376: FND_MSG_PUB.ADD;
1377: l_error_count := l_error_count + 1;
1378: IF g_debug_mode = 'Y'
1371:
1372: EXCEPTION
1373: WHEN NO_DATA_FOUND THEN
1374: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_OWNER_UID_INVALID');
1375: FND_MESSAGE.SET_TOKEN('OWNER_UID', TO_CHAR(p_cc_header_rec.cc_owner_user_id), TRUE);
1376: FND_MSG_PUB.ADD;
1377: l_error_count := l_error_count + 1;
1378: IF g_debug_mode = 'Y'
1379: THEN
1427:
1428: EXCEPTION
1429:
1430: WHEN NO_DATA_FOUND THEN
1431: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PREPARER_UID_INVALID');
1432: FND_MESSAGE.SET_TOKEN('PREPARER_UID', TO_CHAR(p_cc_header_rec.cc_preparer_user_id), TRUE);
1433: FND_MSG_PUB.ADD;
1434: l_error_count := l_error_count + 1;
1435: IF g_debug_mode = 'Y'
1428: EXCEPTION
1429:
1430: WHEN NO_DATA_FOUND THEN
1431: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_PREPARER_UID_INVALID');
1432: FND_MESSAGE.SET_TOKEN('PREPARER_UID', TO_CHAR(p_cc_header_rec.cc_preparer_user_id), TRUE);
1433: FND_MSG_PUB.ADD;
1434: l_error_count := l_error_count + 1;
1435: IF g_debug_mode = 'Y'
1436: THEN
1472:
1473: IF x_currency_code IS NULL THEN
1474:
1475: IF p_func_currency_code IS NULL THEN
1476: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_REQD');
1477: FND_MSG_PUB.ADD;
1478: l_error_count := l_error_count + 1;
1479: IF g_debug_mode = 'Y'
1480: THEN
1507:
1508: EXCEPTION
1509:
1510: WHEN NO_DATA_FOUND THEN
1511: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
1512: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1513: FND_MSG_PUB.ADD;
1514: l_error_count := l_error_count + 1;
1515: IF g_debug_mode = 'Y'
1508: EXCEPTION
1509:
1510: WHEN NO_DATA_FOUND THEN
1511: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
1512: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1513: FND_MSG_PUB.ADD;
1514: l_error_count := l_error_count + 1;
1515: IF g_debug_mode = 'Y'
1516: THEN
1549:
1550: EXCEPTION
1551:
1552: WHEN OTHERS THEN
1553: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_TYPE_RATE_DT_REQD');
1554: FND_MSG_PUB.ADD;
1555: l_error_count := l_error_count + 1;
1556: IF g_debug_mode = 'Y'
1557: THEN
1562: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
1563: END IF;
1564: -- Bug 3199488
1565: IF ( g_unexp_level >= g_debug_level ) THEN
1566: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1567: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1568: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1569: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1570: END IF;
1563: END IF;
1564: -- Bug 3199488
1565: IF ( g_unexp_level >= g_debug_level ) THEN
1566: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1567: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1568: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1569: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1570: END IF;
1571: -- Bug 3199488
1564: -- Bug 3199488
1565: IF ( g_unexp_level >= g_debug_level ) THEN
1566: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1567: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1568: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1569: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1570: END IF;
1571: -- Bug 3199488
1572:
1578:
1579: EXCEPTION
1580:
1581: WHEN OTHERS THEN
1582: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
1583: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1584: FND_MSG_PUB.ADD;
1585: l_error_count := l_error_count + 1;
1586: IF g_debug_mode = 'Y'
1579: EXCEPTION
1580:
1581: WHEN OTHERS THEN
1582: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CODE_INVALID');
1583: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1584: FND_MSG_PUB.ADD;
1585: l_error_count := l_error_count + 1;
1586: IF g_debug_mode = 'Y'
1587: THEN
1592: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
1593: END IF;
1594: -- Bug 3199488
1595: IF ( g_unexp_level >= g_debug_level ) THEN
1596: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1597: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1598: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1599: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1600: END IF;
1593: END IF;
1594: -- Bug 3199488
1595: IF ( g_unexp_level >= g_debug_level ) THEN
1596: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1597: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1598: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1599: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1600: END IF;
1601: -- Bug 3199488
1594: -- Bug 3199488
1595: IF ( g_unexp_level >= g_debug_level ) THEN
1596: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1597: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1598: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1599: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1600: END IF;
1601: -- Bug 3199488
1602:
1609: x_conversion_type <> l_cov_conversion_type OR
1610: x_conversion_rate <> l_cov_conversion_rate OR
1611: x_conversion_date <> l_cov_conversion_date) THEN
1612:
1613: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CURR_CD_CT_CR_CD_SAME');
1614: FND_MSG_PUB.ADD;
1615: l_error_count := l_error_count + 1;
1616: IF g_debug_mode = 'Y'
1617: THEN
1650:
1651: EXCEPTION
1652:
1653: WHEN NO_DATA_FOUND THEN
1654: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_TYPE_INVALID');
1655: FND_MESSAGE.SET_TOKEN('CONVTYPE', x_conversion_type, TRUE);
1656: FND_MSG_PUB.ADD;
1657: l_error_count := l_error_count + 1;
1658: IF g_debug_mode = 'Y'
1651: EXCEPTION
1652:
1653: WHEN NO_DATA_FOUND THEN
1654: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_TYPE_INVALID');
1655: FND_MESSAGE.SET_TOKEN('CONVTYPE', x_conversion_type, TRUE);
1656: FND_MSG_PUB.ADD;
1657: l_error_count := l_error_count + 1;
1658: IF g_debug_mode = 'Y'
1659: THEN
1668: l_conversion_type IS NOT NULL AND
1669: (x_conversion_date IS NULL OR
1670: x_conversion_rate IS NULL) THEN
1671:
1672: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_DATE_RATE_REQD');
1673: FND_MSG_PUB.ADD;
1674: l_error_count := l_error_count + 1;
1675: IF g_debug_mode = 'Y'
1676: THEN
1702:
1703: EXCEPTION
1704:
1705: WHEN OTHERS THEN
1706: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_FAILURE');
1707: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1708: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1709: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1710: FND_MSG_PUB.ADD;
1703: EXCEPTION
1704:
1705: WHEN OTHERS THEN
1706: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_FAILURE');
1707: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1708: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1709: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1710: FND_MSG_PUB.ADD;
1711: l_error_count := l_error_count + 1;
1704:
1705: WHEN OTHERS THEN
1706: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_FAILURE');
1707: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1708: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1709: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1710: FND_MSG_PUB.ADD;
1711: l_error_count := l_error_count + 1;
1712: IF g_debug_mode = 'Y'
1705: WHEN OTHERS THEN
1706: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_FAILURE');
1707: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1708: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1709: FND_MESSAGE.SET_TOKEN('CURR_CODE', x_currency_code, TRUE);
1710: FND_MSG_PUB.ADD;
1711: l_error_count := l_error_count + 1;
1712: IF g_debug_mode = 'Y'
1713: THEN
1718: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
1719: END IF;
1720: -- Bug 3199488
1721: IF ( g_unexp_level >= g_debug_level ) THEN
1722: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1723: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1724: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1725: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1726: END IF;
1719: END IF;
1720: -- Bug 3199488
1721: IF ( g_unexp_level >= g_debug_level ) THEN
1722: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1723: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1724: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1725: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1726: END IF;
1727: -- Bug 3199488
1720: -- Bug 3199488
1721: IF ( g_unexp_level >= g_debug_level ) THEN
1722: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1723: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1724: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1725: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1726: END IF;
1727: -- Bug 3199488
1728:
1734: (UPPER(x_conversion_type) NOT IN ('USER','EMU FIXED') AND
1735: (x_conversion_date IS NULL OR
1736: x_conversion_rate IS NOT NULL)) THEN
1737:
1738: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_NOT_ALLWD');
1739: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1740: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1741: FND_MESSAGE.SET_TOKEN('CONV_RATE', x_conversion_rate, TRUE);
1742: FND_MSG_PUB.ADD;
1735: (x_conversion_date IS NULL OR
1736: x_conversion_rate IS NOT NULL)) THEN
1737:
1738: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_NOT_ALLWD');
1739: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1740: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1741: FND_MESSAGE.SET_TOKEN('CONV_RATE', x_conversion_rate, TRUE);
1742: FND_MSG_PUB.ADD;
1743: l_error_count := l_error_count + 1;
1736: x_conversion_rate IS NOT NULL)) THEN
1737:
1738: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_NOT_ALLWD');
1739: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1740: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1741: FND_MESSAGE.SET_TOKEN('CONV_RATE', x_conversion_rate, TRUE);
1742: FND_MSG_PUB.ADD;
1743: l_error_count := l_error_count + 1;
1744: IF g_debug_mode = 'Y'
1737:
1738: FND_MESSAGE.SET_NAME('IGC', 'IGC_API_CONV_RATE_NOT_ALLWD');
1739: FND_MESSAGE.SET_TOKEN('CONV_TYPE', x_conversion_type, TRUE);
1740: FND_MESSAGE.SET_TOKEN('CONV_DATE', x_conversion_date, TRUE);
1741: FND_MESSAGE.SET_TOKEN('CONV_RATE', x_conversion_rate, TRUE);
1742: FND_MSG_PUB.ADD;
1743: l_error_count := l_error_count + 1;
1744: IF g_debug_mode = 'Y'
1745: THEN
1757: IF x_currency_code = p_func_currency_code AND
1758: (x_conversion_type IS NOT NULL OR
1759: x_conversion_date IS NOT NULL OR
1760: x_conversion_rate IS NOT NULL ) THEN
1761: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_CONV_TYPE_RTDT_NULL');
1762: FND_MSG_PUB.ADD;
1763: x_conversion_type := NULL;
1764: x_conversion_date := NULL;
1765: x_conversion_rate := NULL;
1789:
1790: EXCEPTION
1791:
1792: WHEN NO_DATA_FOUND THEN
1793: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
1794: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(p_cc_header_rec.created_by), TRUE);
1795: FND_MSG_PUB.ADD;
1796: l_error_count := l_error_count + 1;
1797: IF g_debug_mode = 'Y'
1790: EXCEPTION
1791:
1792: WHEN NO_DATA_FOUND THEN
1793: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
1794: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(p_cc_header_rec.created_by), TRUE);
1795: FND_MSG_PUB.ADD;
1796: l_error_count := l_error_count + 1;
1797: IF g_debug_mode = 'Y'
1798: THEN
1805: END;
1806:
1807: ELSE
1808:
1809: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
1810: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(p_cc_header_rec.created_by), TRUE);
1811: FND_MSG_PUB.ADD;
1812: l_error_count := l_error_count + 1;
1813: IF g_debug_mode = 'Y'
1806:
1807: ELSE
1808:
1809: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_CREATED_BY');
1810: FND_MESSAGE.SET_TOKEN('CREATED_BY', TO_CHAR(p_cc_header_rec.created_by), TRUE);
1811: FND_MSG_PUB.ADD;
1812: l_error_count := l_error_count + 1;
1813: IF g_debug_mode = 'Y'
1814: THEN
1834:
1835: EXCEPTION
1836:
1837: WHEN NO_DATA_FOUND THEN
1838: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
1839: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(p_cc_header_rec.last_updated_by), TRUE);
1840: FND_MSG_PUB.ADD;
1841: l_error_count := l_error_count + 1;
1842: IF g_debug_mode = 'Y'
1835: EXCEPTION
1836:
1837: WHEN NO_DATA_FOUND THEN
1838: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
1839: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(p_cc_header_rec.last_updated_by), TRUE);
1840: FND_MSG_PUB.ADD;
1841: l_error_count := l_error_count + 1;
1842: IF g_debug_mode = 'Y'
1843: THEN
1849: END IF;
1850: END;
1851: ELSE
1852:
1853: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
1854: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(p_cc_header_rec.last_updated_by), TRUE);
1855: FND_MSG_PUB.ADD;
1856: l_error_count := l_error_count + 1;
1857: IF g_debug_mode = 'Y'
1850: END;
1851: ELSE
1852:
1853: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
1854: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(p_cc_header_rec.last_updated_by), TRUE);
1855: FND_MSG_PUB.ADD;
1856: l_error_count := l_error_count + 1;
1857: IF g_debug_mode = 'Y'
1858: THEN
1878:
1879: EXCEPTION
1880:
1881: WHEN NO_DATA_FOUND THEN
1882: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
1883: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(p_cc_header_rec.last_update_login), TRUE);
1884: FND_MSG_PUB.ADD;
1885: l_error_count := l_error_count + 1;
1886: IF g_debug_mode = 'Y'
1879: EXCEPTION
1880:
1881: WHEN NO_DATA_FOUND THEN
1882: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
1883: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(p_cc_header_rec.last_update_login), TRUE);
1884: FND_MSG_PUB.ADD;
1885: l_error_count := l_error_count + 1;
1886: IF g_debug_mode = 'Y'
1887: THEN
1894: END;
1895:
1896: ELSE
1897:
1898: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
1899: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(p_cc_header_rec.last_update_login), TRUE);
1900: FND_MSG_PUB.ADD;
1901: l_error_count := l_error_count + 1;
1902: IF g_debug_mode = 'Y'
1895:
1896: ELSE
1897:
1898: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
1899: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(p_cc_header_rec.last_update_login), TRUE);
1900: FND_MSG_PUB.ADD;
1901: l_error_count := l_error_count + 1;
1902: IF g_debug_mode = 'Y'
1903: THEN
1972: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1973: END IF;
1974: -- Bug 3199488
1975: IF ( g_unexp_level >= g_debug_level ) THEN
1976: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1977: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1978: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1979: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1980: END IF;
1973: END IF;
1974: -- Bug 3199488
1975: IF ( g_unexp_level >= g_debug_level ) THEN
1976: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1977: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1978: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1979: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1980: END IF;
1981: -- Bug 3199488
1974: -- Bug 3199488
1975: IF ( g_unexp_level >= g_debug_level ) THEN
1976: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1977: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1978: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1979: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1980: END IF;
1981: -- Bug 3199488
1982: RETURN;
2012: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
2013: END IF;
2014: -- Bug 3199488
2015: IF ( g_unexp_level >= g_debug_level ) THEN
2016: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2017: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2018: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2019: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2020: END IF;
2013: END IF;
2014: -- Bug 3199488
2015: IF ( g_unexp_level >= g_debug_level ) THEN
2016: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2017: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2018: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2019: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2020: END IF;
2021: -- Bug 3199488
2014: -- Bug 3199488
2015: IF ( g_unexp_level >= g_debug_level ) THEN
2016: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
2017: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2018: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2019: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
2020: END IF;
2021: -- Bug 3199488
2022: RETURN;
2199: FETCH c_validate_sob_org_combo
2200: INTO l_name;
2201:
2202: IF (c_validate_sob_org_combo%NOTFOUND) THEN
2203: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
2204: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
2205: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
2206: FND_MSG_PUB.ADD;
2207: x_msg_data := FND_MESSAGE.GET;
2200: INTO l_name;
2201:
2202: IF (c_validate_sob_org_combo%NOTFOUND) THEN
2203: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
2204: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
2205: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
2206: FND_MSG_PUB.ADD;
2207: x_msg_data := FND_MESSAGE.GET;
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2201:
2202: IF (c_validate_sob_org_combo%NOTFOUND) THEN
2203: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
2204: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
2205: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
2206: FND_MSG_PUB.ADD;
2207: x_msg_data := FND_MESSAGE.GET;
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2209: x_msg_count := 1;
2203: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
2204: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
2205: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
2206: FND_MSG_PUB.ADD;
2207: x_msg_data := FND_MESSAGE.GET;
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2209: x_msg_count := 1;
2210: IF g_debug_mode = 'Y'
2211: THEN
2225: FETCH c_cc_header_exist
2226: INTO l_cc_header_id;
2227:
2228: IF (c_cc_header_exist%NOTFOUND) THEN
2229: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2230: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num, TRUE);
2231: FND_MSG_PUB.ADD;
2232: x_msg_data := FND_MESSAGE.GET;
2233: x_return_status := FND_API.G_RET_STS_ERROR;
2226: INTO l_cc_header_id;
2227:
2228: IF (c_cc_header_exist%NOTFOUND) THEN
2229: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2230: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num, TRUE);
2231: FND_MSG_PUB.ADD;
2232: x_msg_data := FND_MESSAGE.GET;
2233: x_return_status := FND_API.G_RET_STS_ERROR;
2234: x_msg_count := 1;
2228: IF (c_cc_header_exist%NOTFOUND) THEN
2229: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2230: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num, TRUE);
2231: FND_MSG_PUB.ADD;
2232: x_msg_data := FND_MESSAGE.GET;
2233: x_return_status := FND_API.G_RET_STS_ERROR;
2234: x_msg_count := 1;
2235: IF g_debug_mode = 'Y'
2236: THEN
2250: FETCH c_val_ref_num
2251: INTO l_cc_ref_num;
2252:
2253: IF (c_val_ref_num%NOTFOUND) THEN
2254: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NO_UPD_NO_REF');
2255: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2256: FND_MSG_PUB.ADD;
2257: x_msg_data := FND_MESSAGE.GET;
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2251: INTO l_cc_ref_num;
2252:
2253: IF (c_val_ref_num%NOTFOUND) THEN
2254: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NO_UPD_NO_REF');
2255: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2256: FND_MSG_PUB.ADD;
2257: x_msg_data := FND_MESSAGE.GET;
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259: x_msg_count := 1;
2253: IF (c_val_ref_num%NOTFOUND) THEN
2254: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NO_UPD_NO_REF');
2255: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2256: FND_MSG_PUB.ADD;
2257: x_msg_data := FND_MESSAGE.GET;
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259: x_msg_count := 1;
2260: IF g_debug_mode = 'Y'
2261: THEN
2272: FETCH c_cc_header_state
2273: INTO l_cc_header_rec;
2274:
2275: IF (c_cc_header_state%NOTFOUND) THEN
2276: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_APPRVD_CONFIRMED');
2277: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num, TRUE);
2278: FND_MSG_PUB.ADD;
2279: x_msg_data := FND_MESSAGE.GET;
2280: x_return_status := FND_API.G_RET_STS_ERROR;
2273: INTO l_cc_header_rec;
2274:
2275: IF (c_cc_header_state%NOTFOUND) THEN
2276: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_APPRVD_CONFIRMED');
2277: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num, TRUE);
2278: FND_MSG_PUB.ADD;
2279: x_msg_data := FND_MESSAGE.GET;
2280: x_return_status := FND_API.G_RET_STS_ERROR;
2281: x_msg_count := 1;
2275: IF (c_cc_header_state%NOTFOUND) THEN
2276: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_APPRVD_CONFIRMED');
2277: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num, TRUE);
2278: FND_MSG_PUB.ADD;
2279: x_msg_data := FND_MESSAGE.GET;
2280: x_return_status := FND_API.G_RET_STS_ERROR;
2281: x_msg_count := 1;
2282: IF g_debug_mode = 'Y'
2283: THEN
2290: RAISE E_CC_NOT_FOUND;
2291: END IF;
2292:
2293: IF l_cc_header_rec.cc_type = 'C' THEN
2294: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_TYPE_NOT_ALWD');
2295: FND_MSG_PUB.ADD;
2296: x_msg_data := FND_MESSAGE.GET;
2297: x_return_status := FND_API.G_RET_STS_ERROR;
2298: x_msg_count := 1;
2292:
2293: IF l_cc_header_rec.cc_type = 'C' THEN
2294: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_TYPE_NOT_ALWD');
2295: FND_MSG_PUB.ADD;
2296: x_msg_data := FND_MESSAGE.GET;
2297: x_return_status := FND_API.G_RET_STS_ERROR;
2298: x_msg_count := 1;
2299: IF g_debug_mode = 'Y'
2300: THEN
2318: AND lkup.lookup_code IN ('OP','CL','OH','RH');
2319:
2320: EXCEPTION
2321: WHEN NO_DATA_FOUND THEN
2322: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_ACTION_CODE');
2323: FND_MESSAGE.SET_TOKEN('ACTION_CODE', p_action_code,TRUE);
2324: FND_MSG_PUB.ADD;
2325: x_msg_data := FND_MESSAGE.GET;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2319:
2320: EXCEPTION
2321: WHEN NO_DATA_FOUND THEN
2322: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_ACTION_CODE');
2323: FND_MESSAGE.SET_TOKEN('ACTION_CODE', p_action_code,TRUE);
2324: FND_MSG_PUB.ADD;
2325: x_msg_data := FND_MESSAGE.GET;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2327: x_msg_count := 1;
2321: WHEN NO_DATA_FOUND THEN
2322: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_ACTION_CODE');
2323: FND_MESSAGE.SET_TOKEN('ACTION_CODE', p_action_code,TRUE);
2324: FND_MSG_PUB.ADD;
2325: x_msg_data := FND_MESSAGE.GET;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2327: x_msg_count := 1;
2328: IF g_debug_mode = 'Y'
2329: THEN
2349:
2350: EXCEPTION
2351:
2352: WHEN NO_DATA_FOUND THEN
2353: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
2354: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(l_current_login_id), TRUE);
2355: FND_MSG_PUB.ADD;
2356: x_msg_data := FND_MESSAGE.GET;
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2350: EXCEPTION
2351:
2352: WHEN NO_DATA_FOUND THEN
2353: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
2354: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(l_current_login_id), TRUE);
2355: FND_MSG_PUB.ADD;
2356: x_msg_data := FND_MESSAGE.GET;
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2358: x_msg_count := 1;
2352: WHEN NO_DATA_FOUND THEN
2353: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
2354: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(l_current_login_id), TRUE);
2355: FND_MSG_PUB.ADD;
2356: x_msg_data := FND_MESSAGE.GET;
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2358: x_msg_count := 1;
2359: IF g_debug_mode = 'Y'
2360: THEN
2368: END;
2369:
2370: ELSE
2371:
2372: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
2373: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(l_current_login_id), TRUE);
2374: FND_MSG_PUB.ADD;
2375: x_msg_data := FND_MESSAGE.GET;
2376: x_return_status := FND_API.G_RET_STS_ERROR;
2369:
2370: ELSE
2371:
2372: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
2373: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(l_current_login_id), TRUE);
2374: FND_MSG_PUB.ADD;
2375: x_msg_data := FND_MESSAGE.GET;
2376: x_return_status := FND_API.G_RET_STS_ERROR;
2377: x_msg_count := 1;
2371:
2372: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPD_LOGIN');
2373: FND_MESSAGE.SET_TOKEN('LAST_UPDATE_LOGIN', TO_CHAR(l_current_login_id), TRUE);
2374: FND_MSG_PUB.ADD;
2375: x_msg_data := FND_MESSAGE.GET;
2376: x_return_status := FND_API.G_RET_STS_ERROR;
2377: x_msg_count := 1;
2378: IF g_debug_mode = 'Y'
2379: THEN
2400:
2401: EXCEPTION
2402:
2403: WHEN NO_DATA_FOUND THEN
2404: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
2405: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(l_current_user_id), TRUE);
2406: FND_MSG_PUB.ADD;
2407: x_msg_data := FND_MESSAGE.GET;
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2401: EXCEPTION
2402:
2403: WHEN NO_DATA_FOUND THEN
2404: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
2405: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(l_current_user_id), TRUE);
2406: FND_MSG_PUB.ADD;
2407: x_msg_data := FND_MESSAGE.GET;
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: x_msg_count := 1;
2403: WHEN NO_DATA_FOUND THEN
2404: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
2405: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(l_current_user_id), TRUE);
2406: FND_MSG_PUB.ADD;
2407: x_msg_data := FND_MESSAGE.GET;
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409: x_msg_count := 1;
2410: IF g_debug_mode = 'Y'
2411: THEN
2418: RAISE E_CC_NOT_FOUND;
2419: END;
2420: ELSE
2421:
2422: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
2423: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(l_current_user_id), TRUE);
2424: FND_MSG_PUB.ADD;
2425: x_msg_data := FND_MESSAGE.GET;
2426: x_return_status := FND_API.G_RET_STS_ERROR;
2419: END;
2420: ELSE
2421:
2422: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
2423: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(l_current_user_id), TRUE);
2424: FND_MSG_PUB.ADD;
2425: x_msg_data := FND_MESSAGE.GET;
2426: x_return_status := FND_API.G_RET_STS_ERROR;
2427: x_msg_count := 1;
2421:
2422: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_INVALID_LAST_UPDATED_BY');
2423: FND_MESSAGE.SET_TOKEN('LAST_UPDATED_BY', TO_CHAR(l_current_user_id), TRUE);
2424: FND_MSG_PUB.ADD;
2425: x_msg_data := FND_MESSAGE.GET;
2426: x_return_status := FND_API.G_RET_STS_ERROR;
2427: x_msg_count := 1;
2428: IF g_debug_mode = 'Y'
2429: THEN
2447: AND lkup.lookup_code = l_cc_header_rec.cc_ctrl_status;
2448:
2449: EXCEPTION
2450: WHEN NO_DATA_FOUND THEN
2451: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_CONTROL_STATUS');
2452: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', l_cc_header_rec.cc_ctrl_status,TRUE);
2453: FND_MSG_PUB.ADD;
2454: x_msg_data := FND_MESSAGE.GET;
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2448:
2449: EXCEPTION
2450: WHEN NO_DATA_FOUND THEN
2451: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_CONTROL_STATUS');
2452: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', l_cc_header_rec.cc_ctrl_status,TRUE);
2453: FND_MSG_PUB.ADD;
2454: x_msg_data := FND_MESSAGE.GET;
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2456: x_msg_count := 1;
2450: WHEN NO_DATA_FOUND THEN
2451: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_CONTROL_STATUS');
2452: FND_MESSAGE.SET_TOKEN('CTRL_STATUS', l_cc_header_rec.cc_ctrl_status,TRUE);
2453: FND_MSG_PUB.ADD;
2454: x_msg_data := FND_MESSAGE.GET;
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2456: x_msg_count := 1;
2457: IF g_debug_mode = 'Y'
2458: THEN
2470: -- --------------------------------------------------------------------
2471: IF (l_cc_header_rec.cc_ctrl_status = 'E') THEN
2472:
2473: IF p_action_code NOT IN ('OP','OH') THEN
2474: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2475: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2476: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2477: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2478: FND_MSG_PUB.ADD;
2471: IF (l_cc_header_rec.cc_ctrl_status = 'E') THEN
2472:
2473: IF p_action_code NOT IN ('OP','OH') THEN
2474: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2475: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2476: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2477: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2478: FND_MSG_PUB.ADD;
2479: x_msg_data := FND_MESSAGE.GET;
2472:
2473: IF p_action_code NOT IN ('OP','OH') THEN
2474: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2475: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2476: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2477: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2478: FND_MSG_PUB.ADD;
2479: x_msg_data := FND_MESSAGE.GET;
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2473: IF p_action_code NOT IN ('OP','OH') THEN
2474: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2475: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2476: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2477: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2478: FND_MSG_PUB.ADD;
2479: x_msg_data := FND_MESSAGE.GET;
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2481: x_msg_count := 1;
2475: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2476: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2477: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2478: FND_MSG_PUB.ADD;
2479: x_msg_data := FND_MESSAGE.GET;
2480: x_return_status := FND_API.G_RET_STS_ERROR;
2481: x_msg_count := 1;
2482: IF g_debug_mode = 'Y'
2483: THEN
2492:
2493: ELSIF (l_cc_header_rec.cc_ctrl_status = 'O') THEN
2494:
2495: IF p_action_code NOT IN ('CL','OH') THEN
2496: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2497: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2498: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2499: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2500: FND_MSG_PUB.ADD;
2493: ELSIF (l_cc_header_rec.cc_ctrl_status = 'O') THEN
2494:
2495: IF p_action_code NOT IN ('CL','OH') THEN
2496: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2497: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2498: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2499: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2500: FND_MSG_PUB.ADD;
2501: x_msg_data := FND_MESSAGE.GET;
2494:
2495: IF p_action_code NOT IN ('CL','OH') THEN
2496: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2497: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2498: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2499: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2500: FND_MSG_PUB.ADD;
2501: x_msg_data := FND_MESSAGE.GET;
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2495: IF p_action_code NOT IN ('CL','OH') THEN
2496: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2497: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2498: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2499: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2500: FND_MSG_PUB.ADD;
2501: x_msg_data := FND_MESSAGE.GET;
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2503: x_msg_count := 1;
2497: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2498: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2499: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2500: FND_MSG_PUB.ADD;
2501: x_msg_data := FND_MESSAGE.GET;
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2503: x_msg_count := 1;
2504: IF g_debug_mode = 'Y'
2505: THEN
2514:
2515: ELSIF (l_cc_header_rec.cc_ctrl_status = 'C') THEN
2516:
2517: IF p_action_code NOT IN ('OP','OH') THEN
2518: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2519: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2520: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2521: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2522: FND_MSG_PUB.ADD;
2515: ELSIF (l_cc_header_rec.cc_ctrl_status = 'C') THEN
2516:
2517: IF p_action_code NOT IN ('OP','OH') THEN
2518: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2519: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2520: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2521: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2522: FND_MSG_PUB.ADD;
2523: x_msg_data := FND_MESSAGE.GET;
2516:
2517: IF p_action_code NOT IN ('OP','OH') THEN
2518: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2519: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2520: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2521: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2522: FND_MSG_PUB.ADD;
2523: x_msg_data := FND_MESSAGE.GET;
2524: x_return_status := FND_API.G_RET_STS_ERROR;
2517: IF p_action_code NOT IN ('OP','OH') THEN
2518: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2519: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2520: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2521: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2522: FND_MSG_PUB.ADD;
2523: x_msg_data := FND_MESSAGE.GET;
2524: x_return_status := FND_API.G_RET_STS_ERROR;
2525: x_msg_count := 1;
2519: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2520: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2521: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2522: FND_MSG_PUB.ADD;
2523: x_msg_data := FND_MESSAGE.GET;
2524: x_return_status := FND_API.G_RET_STS_ERROR;
2525: x_msg_count := 1;
2526: IF g_debug_mode = 'Y'
2527: THEN
2536:
2537: ELSIF (l_cc_header_rec.cc_ctrl_status = 'H') THEN
2538:
2539: IF p_action_code NOT IN ('RH') THEN
2540: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2541: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2542: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2543: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2544: FND_MSG_PUB.ADD;
2537: ELSIF (l_cc_header_rec.cc_ctrl_status = 'H') THEN
2538:
2539: IF p_action_code NOT IN ('RH') THEN
2540: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2541: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2542: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2543: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2544: FND_MSG_PUB.ADD;
2545: x_msg_data := FND_MESSAGE.GET;
2538:
2539: IF p_action_code NOT IN ('RH') THEN
2540: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2541: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2542: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2543: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2544: FND_MSG_PUB.ADD;
2545: x_msg_data := FND_MESSAGE.GET;
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2539: IF p_action_code NOT IN ('RH') THEN
2540: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_ACTION_NOT_ALLOWED');
2541: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2542: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2543: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2544: FND_MSG_PUB.ADD;
2545: x_msg_data := FND_MESSAGE.GET;
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2547: x_msg_count := 1;
2541: FND_MESSAGE.SET_TOKEN('CODE_MEANING', l_action_meaning,TRUE);
2542: FND_MESSAGE.SET_TOKEN('CC_NUM', p_cc_num,TRUE);
2543: FND_MESSAGE.SET_TOKEN('CONT_STATUS', l_control_meaning,TRUE);
2544: FND_MSG_PUB.ADD;
2545: x_msg_data := FND_MESSAGE.GET;
2546: x_return_status := FND_API.G_RET_STS_ERROR;
2547: x_msg_count := 1;
2548: IF g_debug_mode = 'Y'
2549: THEN
2573: ELSIF (p_action_code = 'RH') THEN
2574: l_new_ctrl_status := 'O';
2575: l_new_apprvl_status := 'RR';
2576: ELSE
2577: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_ACTION_CODE');
2578: FND_MESSAGE.SET_TOKEN('ACTION_CODE', p_action_code,TRUE);
2579: FND_MSG_PUB.ADD;
2580: x_msg_data := FND_MESSAGE.GET;
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2574: l_new_ctrl_status := 'O';
2575: l_new_apprvl_status := 'RR';
2576: ELSE
2577: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_ACTION_CODE');
2578: FND_MESSAGE.SET_TOKEN('ACTION_CODE', p_action_code,TRUE);
2579: FND_MSG_PUB.ADD;
2580: x_msg_data := FND_MESSAGE.GET;
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: x_msg_count := 1;
2576: ELSE
2577: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_INVALID_ACTION_CODE');
2578: FND_MESSAGE.SET_TOKEN('ACTION_CODE', p_action_code,TRUE);
2579: FND_MSG_PUB.ADD;
2580: x_msg_data := FND_MESSAGE.GET;
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: x_msg_count := 1;
2583: IF g_debug_mode = 'Y'
2584: THEN
2613: X_encumbrance_on => l_encumbrance_flag
2614: );
2615:
2616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2617: x_msg_data := FND_MESSAGE.GET;
2618: x_return_status := FND_API.G_RET_STS_ERROR;
2619: x_msg_count := 1;
2620: IF g_debug_mode = 'Y'
2621: THEN
2659: p_cc_state => l_cc_header_rec.cc_state
2660: );
2661:
2662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2663: x_msg_data := FND_MESSAGE.GET;
2664: x_return_status := FND_API.G_RET_STS_ERROR;
2665: x_msg_count := 1;
2666: IF g_debug_mode = 'Y'
2667: THEN
2711: END IF;
2712:
2713: ROLLBACK to CC_Update_API_PT;
2714:
2715: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2716: FND_MESSAGE.SET_TOKEN ('CC_NUM', to_char(l_cc_header_id));
2717: x_msg_data := FND_MESSAGE.GET;
2718: x_return_status := FND_API.G_RET_STS_ERROR;
2719: x_msg_count := 1;
2712:
2713: ROLLBACK to CC_Update_API_PT;
2714:
2715: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2716: FND_MESSAGE.SET_TOKEN ('CC_NUM', to_char(l_cc_header_id));
2717: x_msg_data := FND_MESSAGE.GET;
2718: x_return_status := FND_API.G_RET_STS_ERROR;
2719: x_msg_count := 1;
2720: ELSE
2713: ROLLBACK to CC_Update_API_PT;
2714:
2715: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2716: FND_MESSAGE.SET_TOKEN ('CC_NUM', to_char(l_cc_header_id));
2717: x_msg_data := FND_MESSAGE.GET;
2718: x_return_status := FND_API.G_RET_STS_ERROR;
2719: x_msg_count := 1;
2720: ELSE
2721:
2751: );
2752:
2753: IF l_return_status IN ('E','U') THEN
2754: ROLLBACK to CC_Update_API_PT;
2755: x_msg_data := FND_MESSAGE.GET;
2756: x_return_status := FND_API.G_RET_STS_ERROR;
2757: x_msg_count := 1;
2758: IF g_debug_mode = 'Y'
2759: THEN
2800: x_result => l_result
2801: );
2802:
2803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2804: x_msg_data := FND_MESSAGE.GET;
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806: x_msg_count := 1;
2807: IF g_debug_mode = 'Y'
2808: THEN
2898: IF ((SQL%ROWCOUNT <> 1) AND (SQL%ROWCOUNT <> 0) ) THEN
2899:
2900: ROLLBACK to CC_Update_API_PT;
2901:
2902: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2903: FND_MESSAGE.SET_TOKEN ('CC_NUM', to_char(l_cc_header_id));
2904: x_msg_data := FND_MESSAGE.GET;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: x_msg_count := 1;
2899:
2900: ROLLBACK to CC_Update_API_PT;
2901:
2902: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2903: FND_MESSAGE.SET_TOKEN ('CC_NUM', to_char(l_cc_header_id));
2904: x_msg_data := FND_MESSAGE.GET;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: x_msg_count := 1;
2907: IF g_debug_mode = 'Y'
2900: ROLLBACK to CC_Update_API_PT;
2901:
2902: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
2903: FND_MESSAGE.SET_TOKEN ('CC_NUM', to_char(l_cc_header_id));
2904: x_msg_data := FND_MESSAGE.GET;
2905: x_return_status := FND_API.G_RET_STS_ERROR;
2906: x_msg_count := 1;
2907: IF g_debug_mode = 'Y'
2908: THEN
2927:
2928: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2929:
2930: ROLLBACK to CC_Update_API_PT;
2931: x_msg_data := FND_MESSAGE.GET;
2932: x_return_status := FND_API.G_RET_STS_ERROR;
2933: x_msg_count := 1;
2934: IF g_debug_mode = 'Y'
2935: THEN
2974: l_current_user_id );
2975:
2976: IF l_return_status IN ('E','U') THEN
2977: ROLLBACK to CC_Update_API_PT;
2978: x_msg_data := FND_MESSAGE.GET;
2979: x_return_status := FND_API.G_RET_STS_ERROR;
2980: x_msg_count := 1;
2981: IF g_debug_mode = 'Y'
2982: THEN
3026: -- --------------------------------------------------------------------
3027: EXCEPTION
3028:
3029: WHEN FND_API.G_EXC_ERROR THEN
3030: x_msg_data := FND_MESSAGE.GET;
3031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3032: x_msg_count := 1;
3033: ROLLBACK to CC_Update_API_PT;
3034: IF (c_cc_header_state%ISOPEN) THEN
3050: -- Bug 3199488
3051: RETURN;
3052:
3053: WHEN E_INVALID_ACTION THEN
3054: x_msg_data := FND_MESSAGE.GET;
3055: x_return_status := FND_API.G_RET_STS_ERROR;
3056: x_msg_count := 1;
3057: ROLLBACK to CC_Update_API_PT;
3058: IF (c_cc_header_state%ISOPEN) THEN
3074: -- Bug 3199488
3075: RETURN;
3076:
3077: WHEN E_CC_NOT_FOUND THEN
3078: x_msg_data := FND_MESSAGE.GET;
3079: x_return_status := FND_API.G_RET_STS_ERROR;
3080: x_msg_count := 1;
3081: ROLLBACK to CC_Update_API_PT;
3082: IF (c_cc_header_state%ISOPEN) THEN
3098: -- Bug 3199488
3099: RETURN;
3100:
3101: WHEN OTHERS THEN
3102: x_msg_data := FND_MESSAGE.GET;
3103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3104: x_msg_count := 1;
3105: IF (c_cc_header_state%ISOPEN) THEN
3106: CLOSE c_cc_header_state;
3118: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
3119: END IF;
3120: -- Bug 3199488
3121: IF ( g_unexp_level >= g_debug_level ) THEN
3122: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3123: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3124: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3125: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3126: END IF;
3119: END IF;
3120: -- Bug 3199488
3121: IF ( g_unexp_level >= g_debug_level ) THEN
3122: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3123: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3124: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3125: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3126: END IF;
3127: -- Bug 3199488
3120: -- Bug 3199488
3121: IF ( g_unexp_level >= g_debug_level ) THEN
3122: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3123: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3124: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3125: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3126: END IF;
3127: -- Bug 3199488
3128: RETURN;
3286: INTO l_name;
3287:
3288: IF (c_validate_sob_org_combo%NOTFOUND) THEN
3289:
3290: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3291: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3292: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3293: FND_MSG_PUB.ADD;
3294: x_msg_data := FND_MESSAGE.GET;
3287:
3288: IF (c_validate_sob_org_combo%NOTFOUND) THEN
3289:
3290: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3291: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3292: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3293: FND_MSG_PUB.ADD;
3294: x_msg_data := FND_MESSAGE.GET;
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3288: IF (c_validate_sob_org_combo%NOTFOUND) THEN
3289:
3290: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3291: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3292: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3293: FND_MSG_PUB.ADD;
3294: x_msg_data := FND_MESSAGE.GET;
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3296: x_msg_count := 1;
3290: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3291: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3292: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3293: FND_MSG_PUB.ADD;
3294: x_msg_data := FND_MESSAGE.GET;
3295: x_return_status := FND_API.G_RET_STS_ERROR;
3296: x_msg_count := 1;
3297: x_cc_header_id := NULL;
3298: x_cc_ref_num := NULL;
3309: x_cc_ref_num;
3310:
3311: IF (c_check_cc_num%NOTFOUND) THEN
3312:
3313: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3314: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3315: FND_MSG_PUB.ADD;
3316: x_msg_data := FND_MESSAGE.GET;
3317: x_return_status := FND_API.G_RET_STS_ERROR;
3310:
3311: IF (c_check_cc_num%NOTFOUND) THEN
3312:
3313: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3314: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3315: FND_MSG_PUB.ADD;
3316: x_msg_data := FND_MESSAGE.GET;
3317: x_return_status := FND_API.G_RET_STS_ERROR;
3318: x_msg_count := 1;
3312:
3313: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3314: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3315: FND_MSG_PUB.ADD;
3316: x_msg_data := FND_MESSAGE.GET;
3317: x_return_status := FND_API.G_RET_STS_ERROR;
3318: x_msg_count := 1;
3319: x_cc_header_id := NULL;
3320: x_cc_ref_num := NULL;
3352: l_api_name);
3353: END IF;
3354: -- Bug 3199488
3355: IF ( g_unexp_level >= g_debug_level ) THEN
3356: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3357: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3358: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3359: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3360: END IF;
3353: END IF;
3354: -- Bug 3199488
3355: IF ( g_unexp_level >= g_debug_level ) THEN
3356: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3357: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3358: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3359: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3360: END IF;
3361: -- Bug 3199488
3354: -- Bug 3199488
3355: IF ( g_unexp_level >= g_debug_level ) THEN
3356: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3357: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3358: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3359: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3360: END IF;
3361: -- Bug 3199488
3362: RETURN;
3475: INTO l_name;
3476:
3477: IF (c_validate_sob_org_combo%NOTFOUND) THEN
3478:
3479: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3480: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3481: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3482: FND_MSG_PUB.ADD;
3483: x_msg_data := FND_MESSAGE.GET;
3476:
3477: IF (c_validate_sob_org_combo%NOTFOUND) THEN
3478:
3479: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3480: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3481: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3482: FND_MSG_PUB.ADD;
3483: x_msg_data := FND_MESSAGE.GET;
3484: x_return_status := FND_API.G_RET_STS_ERROR;
3477: IF (c_validate_sob_org_combo%NOTFOUND) THEN
3478:
3479: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3480: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3481: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3482: FND_MSG_PUB.ADD;
3483: x_msg_data := FND_MESSAGE.GET;
3484: x_return_status := FND_API.G_RET_STS_ERROR;
3485: x_msg_count := 1;
3479: FND_MESSAGE.SET_NAME('IGC', 'IGC_NO_SOB_ORG_COMBO');
3480: FND_MESSAGE.SET_TOKEN('SOB_ID', TO_CHAR(p_set_of_books_id), TRUE);
3481: FND_MESSAGE.SET_TOKEN('ORG_ID', TO_CHAR(p_org_id), TRUE);
3482: FND_MSG_PUB.ADD;
3483: x_msg_data := FND_MESSAGE.GET;
3484: x_return_status := FND_API.G_RET_STS_ERROR;
3485: x_msg_count := 1;
3486:
3487: ELSE
3495: l_cc_header_id;
3496:
3497: IF (c_check_cc_num%NOTFOUND) THEN
3498:
3499: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3500: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3501: FND_MSG_PUB.ADD;
3502: x_msg_data := FND_MESSAGE.GET;
3503: x_return_status := FND_API.G_RET_STS_ERROR;
3496:
3497: IF (c_check_cc_num%NOTFOUND) THEN
3498:
3499: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3500: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3501: FND_MSG_PUB.ADD;
3502: x_msg_data := FND_MESSAGE.GET;
3503: x_return_status := FND_API.G_RET_STS_ERROR;
3504: x_msg_count := 1;
3498:
3499: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3500: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3501: FND_MSG_PUB.ADD;
3502: x_msg_data := FND_MESSAGE.GET;
3503: x_return_status := FND_API.G_RET_STS_ERROR;
3504: x_msg_count := 1;
3505:
3506: ELSE
3525: IF ( (SQL%ROWCOUNT <> 1) AND (SQL%ROWCOUNT <> 0) ) THEN
3526:
3527: ROLLBACK to CC_Link_API_PT;
3528:
3529: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3530: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3531: FND_MSG_PUB.ADD;
3532: x_msg_data := FND_MESSAGE.GET;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3526:
3527: ROLLBACK to CC_Link_API_PT;
3528:
3529: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3530: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3531: FND_MSG_PUB.ADD;
3532: x_msg_data := FND_MESSAGE.GET;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: x_msg_count := 1;
3528:
3529: FND_MESSAGE.SET_NAME ('IGC', 'IGC_CC_NOT_FOUND');
3530: FND_MESSAGE.SET_TOKEN ('CC_NUM', p_cc_num);
3531: FND_MSG_PUB.ADD;
3532: x_msg_data := FND_MESSAGE.GET;
3533: x_return_status := FND_API.G_RET_STS_ERROR;
3534: x_msg_count := 1;
3535:
3536: END IF;
3539:
3540: -- --------------------------------------------------------------------
3541: -- Duplicate Reference numbers not allowed for the same org and SOB
3542: -- --------------------------------------------------------------------
3543: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_REF_NUM');
3544: FND_MESSAGE.SET_TOKEN('CC_REF_NUM', p_cc_ref_num);
3545: FND_MSG_PUB.ADD;
3546: x_msg_data := FND_MESSAGE.GET;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3540: -- --------------------------------------------------------------------
3541: -- Duplicate Reference numbers not allowed for the same org and SOB
3542: -- --------------------------------------------------------------------
3543: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_REF_NUM');
3544: FND_MESSAGE.SET_TOKEN('CC_REF_NUM', p_cc_ref_num);
3545: FND_MSG_PUB.ADD;
3546: x_msg_data := FND_MESSAGE.GET;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: x_msg_count := 1;
3542: -- --------------------------------------------------------------------
3543: FND_MESSAGE.SET_NAME('IGC', 'IGC_CC_DUP_CC_REF_NUM');
3544: FND_MESSAGE.SET_TOKEN('CC_REF_NUM', p_cc_ref_num);
3545: FND_MSG_PUB.ADD;
3546: x_msg_data := FND_MESSAGE.GET;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: x_msg_count := 1;
3549:
3550: END IF;
3601: l_api_name);
3602: END IF;
3603: -- Bug 3199488
3604: IF ( g_unexp_level >= g_debug_level ) THEN
3605: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3606: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3607: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3608: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3609: END IF;
3602: END IF;
3603: -- Bug 3199488
3604: IF ( g_unexp_level >= g_debug_level ) THEN
3605: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3606: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3607: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3608: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3609: END IF;
3610: -- Bug 3199488
3603: -- Bug 3199488
3604: IF ( g_unexp_level >= g_debug_level ) THEN
3605: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3606: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3607: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3608: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3609: END IF;
3610: -- Bug 3199488
3611: RETURN;
3673: -- Ensure the responsibility id passed is valid
3674: IF p_responsibility_id IS NULL THEN
3675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3676: THEN
3677: FND_MESSAGE.SET_NAME('IGC','IGC_RESP_ID_INVALID');
3678: FND_MSG_PUB.add;
3679: END IF;
3680:
3681: RAISE FND_API.G_EXC_ERROR;
3684: OPEN l_resp_csr;
3685: FETCH l_resp_csr INTO l_dummy;
3686: IF l_resp_csr%NOTFOUND THEN
3687: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3688: FND_MESSAGE.SET_NAME('IGC','IGC_RESP_ID_INVALID');
3689: FND_MSG_PUB.add;
3690: END IF;
3691: CLOSE l_resp_csr;
3692: RAISE FND_API.G_EXC_ERROR;
3697: -- Ensure the user id passed is valid
3698: IF p_user_id IS NULL THEN
3699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3700: THEN
3701: FND_MESSAGE.SET_NAME('IGC','IGC_USER_ID_INVALID');
3702: FND_MSG_PUB.add;
3703: END IF;
3704:
3705: RAISE FND_API.G_EXC_ERROR;
3709: OPEN l_user_csr ;
3710: FETCH l_user_csr INTO l_dummy;
3711: IF l_user_csr%NOTFOUND THEN
3712: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3713: FND_MESSAGE.SET_NAME('IGC','IGC_USER_ID_INVALID');
3714: FND_MSG_PUB.add;
3715: END IF;
3716: CLOSE l_user_csr;
3717: RAISE FND_API.G_EXC_ERROR;
3741: x_return_status := FND_API.G_RET_STS_ERROR;
3742:
3743: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3744:
3745: FND_MESSAGE.SET_NAME('IGC','IGC_MOAC_PASS_VALID_ORG');
3746: FND_MSG_PUB.add;
3747: FND_MSG_PUB.Count_And_Get
3748: ( p_count => x_msg_count ,
3749: p_data => x_msg_data );