296: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
297: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Lock_Documents');
298: END IF;
299: IF ( g_unexp_level >= g_debug_level ) THEN
300: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
301: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
302: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
303: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
304: END IF;
297: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Lock_Documents');
298: END IF;
299: IF ( g_unexp_level >= g_debug_level ) THEN
300: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
301: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
302: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
303: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
304: END IF;
305: APP_EXCEPTION.Raise_Exception;
298: END IF;
299: IF ( g_unexp_level >= g_debug_level ) THEN
300: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
301: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
302: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
303: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
304: END IF;
305: APP_EXCEPTION.Raise_Exception;
306: END Lock_Documents;
403: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
404: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Log_Error');
405: END IF;
406: IF ( g_unexp_level >= g_debug_level ) THEN
407: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
408: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
409: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
410: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
411: END IF;
404: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Log_Error');
405: END IF;
406: IF ( g_unexp_level >= g_debug_level ) THEN
407: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
408: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
409: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
410: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
411: END IF;
412: APP_EXCEPTION.Raise_Exception;
405: END IF;
406: IF ( g_unexp_level >= g_debug_level ) THEN
407: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
408: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
409: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
410: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
411: END IF;
412: APP_EXCEPTION.Raise_Exception;
413: END Log_Error;
505: ARGUMENT96 => NULL, ARGUMENT97 => NULL, ARGUMENT98 => NULL,
506: ARGUMENT99 => NULL, ARGUMENT100 => NULL );
507:
508: IF l_request_id = 0 THEN
509: fnd_message.set_name('IGC','IGC_CC_ER_SUBMIT_EXCPTION_RPT');
510: IF (g_debug_mode = 'Y') THEN
511: Put_Debug_Msg (l_full_path,fnd_message.get,g_event_level);
512: END IF;
513: app_exception.raise_exception;
507:
508: IF l_request_id = 0 THEN
509: fnd_message.set_name('IGC','IGC_CC_ER_SUBMIT_EXCPTION_RPT');
510: IF (g_debug_mode = 'Y') THEN
511: Put_Debug_Msg (l_full_path,fnd_message.get,g_event_level);
512: END IF;
513: app_exception.raise_exception;
514: END IF; -- l_request_id = 0
515:
585: ARGUMENT96 => NULL, ARGUMENT97 => NULL, ARGUMENT98 => NULL,
586: ARGUMENT99 => NULL, ARGUMENT100 => NULL );
587:
588: IF l_request_id = 0 THEN
589: fnd_message.set_name('IGC','IGC_CC_ER_SUBMIT_EXCPTION_RPT');
590: IF (g_debug_mode = 'Y') THEN
591: Put_Debug_Msg (l_full_path,fnd_message.get,g_event_level);
592: END IF;
593: app_exception.raise_exception;
587:
588: IF l_request_id = 0 THEN
589: fnd_message.set_name('IGC','IGC_CC_ER_SUBMIT_EXCPTION_RPT');
590: IF (g_debug_mode = 'Y') THEN
591: Put_Debug_Msg (l_full_path,fnd_message.get,g_event_level);
592: END IF;
593: app_exception.raise_exception;
594: END IF; -- l_request_id = 0
595: IF (g_debug_mode = 'Y') THEN
604:
605:
606: EXCEPTION
607: WHEN OTHERS THEN
608: fnd_message.set_name('IGC','IGC_CC_ER_SUBMIT_EXCPTION_RPT');
609: IF g_debug_mode = 'Y' THEN
610: Put_Debug_Msg (l_full_path,fnd_message.get,g_error_level);
611: END IF;
612: app_exception.raise_exception;
606: EXCEPTION
607: WHEN OTHERS THEN
608: fnd_message.set_name('IGC','IGC_CC_ER_SUBMIT_EXCPTION_RPT');
609: IF g_debug_mode = 'Y' THEN
610: Put_Debug_Msg (l_full_path,fnd_message.get,g_error_level);
611: END IF;
612: app_exception.raise_exception;
613: IF ( g_unexp_level >= g_debug_level ) THEN
614: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
610: Put_Debug_Msg (l_full_path,fnd_message.get,g_error_level);
611: END IF;
612: app_exception.raise_exception;
613: IF ( g_unexp_level >= g_debug_level ) THEN
614: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
618: END IF;
611: END IF;
612: app_exception.raise_exception;
613: IF ( g_unexp_level >= g_debug_level ) THEN
614: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
618: END IF;
619:
612: app_exception.raise_exception;
613: IF ( g_unexp_level >= g_debug_level ) THEN
614: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
615: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
616: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
617: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
618: END IF;
619:
620: END Execute_Exceptions_Report;
673: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
674: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Insert_Exception_Record');
675: END IF;
676: IF ( g_unexp_level >= g_debug_level ) THEN
677: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
678: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
679: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
680: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
681: END IF;
674: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Insert_Exception_Record');
675: END IF;
676: IF ( g_unexp_level >= g_debug_level ) THEN
677: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
678: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
679: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
680: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
681: END IF;
682: APP_EXCEPTION.Raise_Exception;
675: END IF;
676: IF ( g_unexp_level >= g_debug_level ) THEN
677: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
678: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
679: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
680: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
681: END IF;
682: APP_EXCEPTION.Raise_Exception;
683:
898: -- Record encumbrance exceptions
899: IF NOT x_req_enc_on
900: THEN
901: l_err_code := 'IGC_PO_YEP_REQ_ENC_OFF';
902: FND_MESSAGE.set_name('IGC',l_err_code);
903: l_msg_data := FND_MESSAGE.get;
904: Insert_Exception_Record(p_exception_reason => l_msg_data,
905: p_exception_code => l_err_code);
906: END IF; -- NOT x_req_enc_on
899: IF NOT x_req_enc_on
900: THEN
901: l_err_code := 'IGC_PO_YEP_REQ_ENC_OFF';
902: FND_MESSAGE.set_name('IGC',l_err_code);
903: l_msg_data := FND_MESSAGE.get;
904: Insert_Exception_Record(p_exception_reason => l_msg_data,
905: p_exception_code => l_err_code);
906: END IF; -- NOT x_req_enc_on
907:
907:
908: IF NOT x_po_enc_on
909: THEN
910: l_err_code := 'IGC_PO_YEP_PO_ENC_OFF';
911: FND_MESSAGE.set_name('IGC',l_err_code);
912: l_msg_data := FND_MESSAGE.get;
913: Insert_Exception_Record(p_exception_reason => l_msg_data,
914: p_exception_code => l_err_code);
915: END IF ; -- NOT x_po_enc_on
908: IF NOT x_po_enc_on
909: THEN
910: l_err_code := 'IGC_PO_YEP_PO_ENC_OFF';
911: FND_MESSAGE.set_name('IGC',l_err_code);
912: l_msg_data := FND_MESSAGE.get;
913: Insert_Exception_Record(p_exception_reason => l_msg_data,
914: p_exception_code => l_err_code);
915: END IF ; -- NOT x_po_enc_on
916:
926:
927: EXCEPTION
928: WHEN E_IGC_CBC_PO_DISABLE_YEP THEN
929: l_err_code := 'IGC_CBC_PO_DISABLE_YEP';
930: FND_MESSAGE.set_name('IGC',l_err_code);
931: IF(g_excep_level >= g_debug_level) THEN
932: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
933: END IF;
934: x_msg_buf := FND_MESSAGE.Get;
930: FND_MESSAGE.set_name('IGC',l_err_code);
931: IF(g_excep_level >= g_debug_level) THEN
932: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
933: END IF;
934: x_msg_buf := FND_MESSAGE.Get;
935: x_return_code := 2 ;
936: WHEN E_IGC_CBC_PO_ON_SBC_OFF THEN
937: l_err_code := 'IGC_CBC_PO_ON_SBC_OFF';
938: FND_MESSAGE.set_name('IGC',l_err_code);
934: x_msg_buf := FND_MESSAGE.Get;
935: x_return_code := 2 ;
936: WHEN E_IGC_CBC_PO_ON_SBC_OFF THEN
937: l_err_code := 'IGC_CBC_PO_ON_SBC_OFF';
938: FND_MESSAGE.set_name('IGC',l_err_code);
939: IF(g_excep_level >= g_debug_level) THEN
940: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
941: END IF;
942: x_msg_buf := FND_MESSAGE.Get;
938: FND_MESSAGE.set_name('IGC',l_err_code);
939: IF(g_excep_level >= g_debug_level) THEN
940: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
941: END IF;
942: x_msg_buf := FND_MESSAGE.Get;
943: x_return_code := 2 ;
944: WHEN E_IGC_CC_INVALID_SET_UP THEN
945: l_err_code := 'IGC_CC_INVALID_SET_UP';
946: FND_MESSAGE.set_name('IGC',l_err_code);
942: x_msg_buf := FND_MESSAGE.Get;
943: x_return_code := 2 ;
944: WHEN E_IGC_CC_INVALID_SET_UP THEN
945: l_err_code := 'IGC_CC_INVALID_SET_UP';
946: FND_MESSAGE.set_name('IGC',l_err_code);
947: IF(g_excep_level >= g_debug_level) THEN
948: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
949: END IF;
950: x_msg_buf := FND_MESSAGE.Get;
946: FND_MESSAGE.set_name('IGC',l_err_code);
947: IF(g_excep_level >= g_debug_level) THEN
948: FND_LOG.MESSAGE(g_excep_level, l_full_path, FALSE);
949: END IF;
950: x_msg_buf := FND_MESSAGE.Get;
951: x_return_code := 2 ;
952: WHEN OTHERS THEN
953: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
954: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_BC_Params');
952: WHEN OTHERS THEN
953: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
954: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_BC_Params');
955: END IF;
956: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
957: x_msg_buf := fnd_message.get;
958: x_return_code := 2 ;
959: IF ( g_unexp_level >= g_debug_level ) THEN
960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
953: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
954: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_BC_Params');
955: END IF;
956: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
957: x_msg_buf := fnd_message.get;
958: x_return_code := 2 ;
959: IF ( g_unexp_level >= g_debug_level ) THEN
960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
961: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
956: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
957: x_msg_buf := fnd_message.get;
958: x_return_code := 2 ;
959: IF ( g_unexp_level >= g_debug_level ) THEN
960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
961: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
962: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
963: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
964: END IF;
957: x_msg_buf := fnd_message.get;
958: x_return_code := 2 ;
959: IF ( g_unexp_level >= g_debug_level ) THEN
960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
961: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
962: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
963: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
964: END IF;
965:
958: x_return_code := 2 ;
959: IF ( g_unexp_level >= g_debug_level ) THEN
960: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
961: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
962: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
963: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
964: END IF;
965:
966:
1107: IF l_prd_dtls_rec.po_period_status(l_period_index) NOT IN ('C','P','N')
1108: AND p_process_phase = 'F'
1109: THEN
1110: l_err_code := 'IGC_PO_YEP_PO_PRD_STATUS';
1111: FND_MESSAGE.set_name('IGC',l_err_code);
1112: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1113: l_msg_data := FND_MESSAGE.get;
1114: Insert_Exception_Record(p_exception_reason => l_msg_data,
1115: p_exception_code => l_err_code);
1108: AND p_process_phase = 'F'
1109: THEN
1110: l_err_code := 'IGC_PO_YEP_PO_PRD_STATUS';
1111: FND_MESSAGE.set_name('IGC',l_err_code);
1112: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1113: l_msg_data := FND_MESSAGE.get;
1114: Insert_Exception_Record(p_exception_reason => l_msg_data,
1115: p_exception_code => l_err_code);
1116: END IF ; -- po_period_status
1109: THEN
1110: l_err_code := 'IGC_PO_YEP_PO_PRD_STATUS';
1111: FND_MESSAGE.set_name('IGC',l_err_code);
1112: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1113: l_msg_data := FND_MESSAGE.get;
1114: Insert_Exception_Record(p_exception_reason => l_msg_data,
1115: p_exception_code => l_err_code);
1116: END IF ; -- po_period_status
1117:
1130: IF l_prd_dtls_rec.po_period_status(l_period_index) <> 'O'
1131: AND p_process_phase = 'F'
1132: THEN
1133: l_err_code := 'IGC_PO_YEP_PO_LAST_PERIOD';
1134: FND_MESSAGE.set_name('IGC',l_err_code);
1135: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1136: l_msg_data := FND_MESSAGE.get;
1137: Insert_Exception_Record(p_exception_reason => l_msg_data,
1138: p_exception_code => l_err_code);
1131: AND p_process_phase = 'F'
1132: THEN
1133: l_err_code := 'IGC_PO_YEP_PO_LAST_PERIOD';
1134: FND_MESSAGE.set_name('IGC',l_err_code);
1135: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1136: l_msg_data := FND_MESSAGE.get;
1137: Insert_Exception_Record(p_exception_reason => l_msg_data,
1138: p_exception_code => l_err_code);
1139: END IF ; -- po_period_status
1132: THEN
1133: l_err_code := 'IGC_PO_YEP_PO_LAST_PERIOD';
1134: FND_MESSAGE.set_name('IGC',l_err_code);
1135: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1136: l_msg_data := FND_MESSAGE.get;
1137: Insert_Exception_Record(p_exception_reason => l_msg_data,
1138: p_exception_code => l_err_code);
1139: END IF ; -- po_period_status
1140:
1142: IF l_prd_dtls_rec.gl_period_status(l_period_index) <> 'O'
1143: AND p_process_phase = 'F'
1144: THEN
1145: l_err_code := 'IGC_PO_YEP_GL_LAST_PERIOD';
1146: FND_MESSAGE.set_name('IGC',l_err_code );
1147: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1148: l_msg_data := FND_MESSAGE.get;
1149: Insert_Exception_Record(p_exception_reason => l_msg_data,
1150: p_exception_code => l_err_code);
1143: AND p_process_phase = 'F'
1144: THEN
1145: l_err_code := 'IGC_PO_YEP_GL_LAST_PERIOD';
1146: FND_MESSAGE.set_name('IGC',l_err_code );
1147: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1148: l_msg_data := FND_MESSAGE.get;
1149: Insert_Exception_Record(p_exception_reason => l_msg_data,
1150: p_exception_code => l_err_code);
1151: END IF ; -- gl_period_status
1144: THEN
1145: l_err_code := 'IGC_PO_YEP_GL_LAST_PERIOD';
1146: FND_MESSAGE.set_name('IGC',l_err_code );
1147: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1148: l_msg_data := FND_MESSAGE.get;
1149: Insert_Exception_Record(p_exception_reason => l_msg_data,
1150: p_exception_code => l_err_code);
1151: END IF ; -- gl_period_status
1152:
1161: IF l_prd_dtls_rec.po_period_status(l_period_index) NOT IN ('C','P','N')
1162: AND p_process_phase = 'F'
1163: THEN
1164: l_err_code := 'IGC_PO_YEP_PO_PRD_STATUS';
1165: FND_MESSAGE.set_name('IGC',l_err_code);
1166: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1167: l_msg_data := FND_MESSAGE.get;
1168: Insert_Exception_Record(p_exception_reason => l_msg_data,
1169: p_exception_code => l_err_code);
1162: AND p_process_phase = 'F'
1163: THEN
1164: l_err_code := 'IGC_PO_YEP_PO_PRD_STATUS';
1165: FND_MESSAGE.set_name('IGC',l_err_code);
1166: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1167: l_msg_data := FND_MESSAGE.get;
1168: Insert_Exception_Record(p_exception_reason => l_msg_data,
1169: p_exception_code => l_err_code);
1170: END IF ; -- po_poeriod_status
1163: THEN
1164: l_err_code := 'IGC_PO_YEP_PO_PRD_STATUS';
1165: FND_MESSAGE.set_name('IGC',l_err_code);
1166: FND_MESSAGE.set_token('PREV_YEAR',p_year);
1167: l_msg_data := FND_MESSAGE.get;
1168: Insert_Exception_Record(p_exception_reason => l_msg_data,
1169: p_exception_code => l_err_code);
1170: END IF ; -- po_poeriod_status
1171:
1196: IF l_curr_period_rec.po_period_status(1) NOT IN ('O', 'F')
1197: AND p_process_phase = 'F'
1198: THEN
1199: l_err_code := 'IGC_PO_YEP_PO_FIRST_PERIOD';
1200: FND_MESSAGE.set_name('IGC',l_err_code);
1201: FND_MESSAGE.set_token('CURR_YEAR',(p_year + 1));
1202: l_msg_data := FND_MESSAGE.get;
1203: Insert_Exception_Record(p_exception_reason => l_msg_data,
1204: p_exception_code => l_err_code);
1197: AND p_process_phase = 'F'
1198: THEN
1199: l_err_code := 'IGC_PO_YEP_PO_FIRST_PERIOD';
1200: FND_MESSAGE.set_name('IGC',l_err_code);
1201: FND_MESSAGE.set_token('CURR_YEAR',(p_year + 1));
1202: l_msg_data := FND_MESSAGE.get;
1203: Insert_Exception_Record(p_exception_reason => l_msg_data,
1204: p_exception_code => l_err_code);
1205:
1198: THEN
1199: l_err_code := 'IGC_PO_YEP_PO_FIRST_PERIOD';
1200: FND_MESSAGE.set_name('IGC',l_err_code);
1201: FND_MESSAGE.set_token('CURR_YEAR',(p_year + 1));
1202: l_msg_data := FND_MESSAGE.get;
1203: Insert_Exception_Record(p_exception_reason => l_msg_data,
1204: p_exception_code => l_err_code);
1205:
1206: END IF ; -- po_period_status
1209: IF l_curr_period_rec.gl_period_status(1) NOT IN ('O', 'F')
1210: AND p_process_phase = 'F'
1211: THEN
1212: l_err_code := 'IGC_PO_YEP_GL_FIRST_PERIOD';
1213: FND_MESSAGE.set_name('IGC',l_err_code);
1214: FND_MESSAGE.set_token('CURR_YEAR',(p_year + 1));
1215: l_msg_data := FND_MESSAGE.get;
1216: Insert_Exception_Record(p_exception_reason => l_msg_data,
1217: p_exception_code => l_err_code);
1210: AND p_process_phase = 'F'
1211: THEN
1212: l_err_code := 'IGC_PO_YEP_GL_FIRST_PERIOD';
1213: FND_MESSAGE.set_name('IGC',l_err_code);
1214: FND_MESSAGE.set_token('CURR_YEAR',(p_year + 1));
1215: l_msg_data := FND_MESSAGE.get;
1216: Insert_Exception_Record(p_exception_reason => l_msg_data,
1217: p_exception_code => l_err_code);
1218:
1211: THEN
1212: l_err_code := 'IGC_PO_YEP_GL_FIRST_PERIOD';
1213: FND_MESSAGE.set_name('IGC',l_err_code);
1214: FND_MESSAGE.set_token('CURR_YEAR',(p_year + 1));
1215: l_msg_data := FND_MESSAGE.get;
1216: Insert_Exception_Record(p_exception_reason => l_msg_data,
1217: p_exception_code => l_err_code);
1218:
1219: END IF ; -- gl_period_status
1233: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1234: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_Period_Status');
1235: END IF;
1236: IF ( g_unexp_level >= g_debug_level ) THEN
1237: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1238: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1239: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1240: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1241: END IF;
1234: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_Period_Status');
1235: END IF;
1236: IF ( g_unexp_level >= g_debug_level ) THEN
1237: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1238: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1239: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1240: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1241: END IF;
1242: APP_EXCEPTION.Raise_Exception;
1235: END IF;
1236: IF ( g_unexp_level >= g_debug_level ) THEN
1237: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1238: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1239: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1240: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1241: END IF;
1242: APP_EXCEPTION.Raise_Exception;
1243:
1342: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1343: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fetch_PO_And_Releases');
1344: END IF;
1345: IF ( g_unexp_level >= g_debug_level ) THEN
1346: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1347: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1348: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1349: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1350: END IF;
1343: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fetch_PO_And_Releases');
1344: END IF;
1345: IF ( g_unexp_level >= g_debug_level ) THEN
1346: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1347: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1348: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1349: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1350: END IF;
1351: APP_EXCEPTION.Raise_Exception;
1344: END IF;
1345: IF ( g_unexp_level >= g_debug_level ) THEN
1346: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1347: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1348: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1349: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1350: END IF;
1351: APP_EXCEPTION.Raise_Exception;
1352:
1445: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1446: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fetch_Requisitions');
1447: END IF;
1448: IF ( g_unexp_level >= g_debug_level ) THEN
1449: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1450: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1451: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1452: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1453: END IF;
1446: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fetch_Requisitions');
1447: END IF;
1448: IF ( g_unexp_level >= g_debug_level ) THEN
1449: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1450: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1451: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1452: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1453: END IF;
1454: APP_EXCEPTION.Raise_Exception;
1447: END IF;
1448: IF ( g_unexp_level >= g_debug_level ) THEN
1449: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1450: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1451: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1452: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1453: END IF;
1454: APP_EXCEPTION.Raise_Exception;
1455:
1542: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1543: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fetch_BPAs');
1544: END IF;
1545: IF ( g_unexp_level >= g_debug_level ) THEN
1546: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1547: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1548: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1549: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1550: END IF;
1543: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Fetch_BPAs');
1544: END IF;
1545: IF ( g_unexp_level >= g_debug_level ) THEN
1546: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1547: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1548: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1549: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1550: END IF;
1551: APP_EXCEPTION.Raise_Exception;
1544: END IF;
1545: IF ( g_unexp_level >= g_debug_level ) THEN
1546: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1547: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1548: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1549: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1550: END IF;
1551: APP_EXCEPTION.Raise_Exception;
1552:
1691: END IF;
1692: IF l_valid_dist_rec.result_error_code(l_index) IS NOT NULL
1693: THEN
1694: -- report any errors and set return status to error
1695: FND_MESSAGE.set_name('IGC',l_valid_dist_rec.result_error_code(l_index));
1696: IF l_valid_dist_rec.result_error_code(l_index) LIKE 'IGC_PO_YEP_INV_%'
1697: THEN
1698: FND_MESSAGE.set_token('INVOICE_NUM',l_valid_dist_rec.invoice_number(l_index));
1699: END IF;
1694: -- report any errors and set return status to error
1695: FND_MESSAGE.set_name('IGC',l_valid_dist_rec.result_error_code(l_index));
1696: IF l_valid_dist_rec.result_error_code(l_index) LIKE 'IGC_PO_YEP_INV_%'
1697: THEN
1698: FND_MESSAGE.set_token('INVOICE_NUM',l_valid_dist_rec.invoice_number(l_index));
1699: END IF;
1700: l_msg_data := FND_MESSAGE.get;
1701: Insert_Exception_Record(p_exception_reason => l_msg_data,
1702: p_exception_code => l_valid_dist_rec.result_error_code(l_index),
1696: IF l_valid_dist_rec.result_error_code(l_index) LIKE 'IGC_PO_YEP_INV_%'
1697: THEN
1698: FND_MESSAGE.set_token('INVOICE_NUM',l_valid_dist_rec.invoice_number(l_index));
1699: END IF;
1700: l_msg_data := FND_MESSAGE.get;
1701: Insert_Exception_Record(p_exception_reason => l_msg_data,
1702: p_exception_code => l_valid_dist_rec.result_error_code(l_index),
1703: p_document_type => p_document_type,
1704: p_document_id => p_document_id,
1725: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1726: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_Distributions');
1727: END IF;
1728: IF ( g_unexp_level >= g_debug_level ) THEN
1729: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1730: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1731: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1732: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1733: END IF;
1726: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_Distributions');
1727: END IF;
1728: IF ( g_unexp_level >= g_debug_level ) THEN
1729: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1730: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1731: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1732: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1733: END IF;
1734: APP_EXCEPTION.Raise_Exception;
1727: END IF;
1728: IF ( g_unexp_level >= g_debug_level ) THEN
1729: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
1730: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
1731: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
1732: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
1733: END IF;
1734: APP_EXCEPTION.Raise_Exception;
1735:
3116: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3117: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Create Journal Adjustment');
3118: END IF;
3119: IF ( g_unexp_level >= g_debug_level ) THEN
3120: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3121: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3122: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3123: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3124: END IF;
3117: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Create Journal Adjustment');
3118: END IF;
3119: IF ( g_unexp_level >= g_debug_level ) THEN
3120: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3121: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3122: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3123: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3124: END IF;
3125: APP_EXCEPTION.Raise_Exception;
3118: END IF;
3119: IF ( g_unexp_level >= g_debug_level ) THEN
3120: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3121: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3122: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3123: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3124: END IF;
3125: APP_EXCEPTION.Raise_Exception;
3126: END Create_Journal_Adjustments;
3264:
3265: IF l_distribution_id_tbl.FIRST IS NULL THEN
3266: Put_Debug_Msg (l_full_path,p_debug_msg => 'No encumbered distributions to process');
3267: l_err_code := 'IGC_PO_YEP_NO_ENC_DIST';
3268: FND_MESSAGE.set_name('IGC',l_err_code);
3269: l_msg_data := FND_MESSAGE.get;
3270: Insert_Exception_Record(p_exception_reason => l_msg_data,
3271: p_exception_code => l_err_code,
3272: p_document_type => p_document_type,
3265: IF l_distribution_id_tbl.FIRST IS NULL THEN
3266: Put_Debug_Msg (l_full_path,p_debug_msg => 'No encumbered distributions to process');
3267: l_err_code := 'IGC_PO_YEP_NO_ENC_DIST';
3268: FND_MESSAGE.set_name('IGC',l_err_code);
3269: l_msg_data := FND_MESSAGE.get;
3270: Insert_Exception_Record(p_exception_reason => l_msg_data,
3271: p_exception_code => l_err_code,
3272: p_document_type => p_document_type,
3273: p_document_id => p_document_id);
3308: p_exception_code => l_return_status,
3309: p_document_type => p_document_type,
3310: p_document_id => p_document_id);
3311: x_return_code := 2 ;
3312: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_ACCT_DATE_UPD_ERR');
3313: x_msg_buf := FND_MESSAGE.get ;
3314: RETURN;
3315: END LOOP;
3316: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3309: p_document_type => p_document_type,
3310: p_document_id => p_document_id);
3311: x_return_code := 2 ;
3312: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_ACCT_DATE_UPD_ERR');
3313: x_msg_buf := FND_MESSAGE.get ;
3314: RETURN;
3315: END LOOP;
3316: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3317:
3380:
3381: -- report any errors with the unreserve
3382: IF l_return_value <> 0 OR l_return_code IN ('R','F','T','P') OR length(trim(l_error_msg)) > 0 --l_error_msg IS NOT NULL
3383: THEN
3384: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3385: l_msg_data := FND_MESSAGE.get;
3386: l_msg_data := l_msg_data ||' - '||l_error_msg;
3387: Insert_Exception_Record(p_exception_reason => l_msg_data,
3388: p_exception_code => l_return_code,
3381: -- report any errors with the unreserve
3382: IF l_return_value <> 0 OR l_return_code IN ('R','F','T','P') OR length(trim(l_error_msg)) > 0 --l_error_msg IS NOT NULL
3383: THEN
3384: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3385: l_msg_data := FND_MESSAGE.get;
3386: l_msg_data := l_msg_data ||' - '||l_error_msg;
3387: Insert_Exception_Record(p_exception_reason => l_msg_data,
3388: p_exception_code => l_return_code,
3389: p_document_type => p_document_type,
3429: END IF; -- l_return_code NOT in ('S','A')
3430:
3431: -- as the unreserve failed, terminate processing with error
3432: x_return_code := 2;
3433: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3434: x_msg_buf := FND_MESSAGE.get;
3435: RETURN;
3436: END IF; -- l_return_value <> 0 ...
3437:
3430:
3431: -- as the unreserve failed, terminate processing with error
3432: x_return_code := 2;
3433: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3434: x_msg_buf := FND_MESSAGE.get;
3435: RETURN;
3436: END IF; -- l_return_value <> 0 ...
3437:
3438: -- Unreserve successful, so continue
3446: p_document_id => p_document_id) <> FND_API.G_RET_STS_SUCCESS
3447: THEN
3448: -- if unable to relock doc report error and do not process this doc any further
3449: l_err_code := 'IGC_PO_YEP_RELOCK_DOCUMENT';
3450: FND_MESSAGE.set_name('IGC',l_err_code);
3451: l_msg_data := FND_MESSAGE.get;
3452: Insert_Exception_Record(p_exception_reason => l_msg_data,
3453: p_document_type => p_document_type,
3454: p_document_id => p_document_id);
3447: THEN
3448: -- if unable to relock doc report error and do not process this doc any further
3449: l_err_code := 'IGC_PO_YEP_RELOCK_DOCUMENT';
3450: FND_MESSAGE.set_name('IGC',l_err_code);
3451: l_msg_data := FND_MESSAGE.get;
3452: Insert_Exception_Record(p_exception_reason => l_msg_data,
3453: p_document_type => p_document_type,
3454: p_document_id => p_document_id);
3455: -- do not process this doc any further
3470: EXCEPTION
3471: WHEN OTHERS THEN
3472: Rollback; -- release locks
3473: IF ( g_unexp_level >= g_debug_level ) THEN
3474: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3475: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3476: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3477: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3478: END IF;
3471: WHEN OTHERS THEN
3472: Rollback; -- release locks
3473: IF ( g_unexp_level >= g_debug_level ) THEN
3474: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3475: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3476: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3477: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3478: END IF;
3479: -- Terminate processing with error
3472: Rollback; -- release locks
3473: IF ( g_unexp_level >= g_debug_level ) THEN
3474: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3475: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3476: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3477: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3478: END IF;
3479: -- Terminate processing with error
3480: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3480: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3481: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3482: END IF;
3483: x_return_code := 2;
3484: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3485: x_msg_buf := fnd_message.get;
3486: RETURN;
3487: END;
3488: IF (g_debug_mode = 'Y') THEN
3481: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3482: END IF;
3483: x_return_code := 2;
3484: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3485: x_msg_buf := fnd_message.get;
3486: RETURN;
3487: END;
3488: IF (g_debug_mode = 'Y') THEN
3489: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed update of po_req_distributions table');
3498: EXCEPTION
3499: WHEN OTHERS THEN
3500: Rollback; -- release locks
3501: IF ( g_unexp_level >= g_debug_level ) THEN
3502: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3503: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3504: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3505: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3506: END IF;
3499: WHEN OTHERS THEN
3500: Rollback; -- release locks
3501: IF ( g_unexp_level >= g_debug_level ) THEN
3502: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3503: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3504: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3505: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3506: END IF;
3507: -- Terminate processing with error
3500: Rollback; -- release locks
3501: IF ( g_unexp_level >= g_debug_level ) THEN
3502: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3503: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3504: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3505: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3506: END IF;
3507: -- Terminate processing with error
3508: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3508: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3509: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3510: END IF;
3511: x_return_code := 2;
3512: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3513: x_msg_buf := fnd_message.get;
3514: RETURN;
3515: END;
3516: IF (g_debug_mode = 'Y') THEN
3509: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3510: END IF;
3511: x_return_code := 2;
3512: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3513: x_msg_buf := fnd_message.get;
3514: RETURN;
3515: END;
3516: IF (g_debug_mode = 'Y') THEN
3517: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed update of po_distributions table');
3549: p_document_type => p_document_type,
3550: p_document_id => p_document_id);
3551: END LOOP;
3552: x_return_code := 2;
3553: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_ACCT_DATE_UPD_ERR');
3554: x_msg_buf := FND_MESSAGE.get;
3555: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3556:
3557:
3550: p_document_id => p_document_id);
3551: END LOOP;
3552: x_return_code := 2;
3553: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_ACCT_DATE_UPD_ERR');
3554: x_msg_buf := FND_MESSAGE.get;
3555: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3556:
3557:
3558:
3602:
3603: IF l_return_value <> 0 OR l_return_code IN ('R','F','T','P') OR length(trim(l_error_msg)) > 0 --l_error_msg IS NOT NULL
3604: THEN
3605: -- if unsuccessful report errors
3606: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3607: l_msg_data := FND_MESSAGE.get;
3608: l_msg_data := l_msg_data ||' - '||l_error_msg;
3609: Insert_Exception_Record(p_exception_reason => l_msg_data,
3610: p_exception_code => l_return_code,
3603: IF l_return_value <> 0 OR l_return_code IN ('R','F','T','P') OR length(trim(l_error_msg)) > 0 --l_error_msg IS NOT NULL
3604: THEN
3605: -- if unsuccessful report errors
3606: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3607: l_msg_data := FND_MESSAGE.get;
3608: l_msg_data := l_msg_data ||' - '||l_error_msg;
3609: Insert_Exception_Record(p_exception_reason => l_msg_data,
3610: p_exception_code => l_return_code,
3611: p_document_type => p_document_type,
3620: p_document_id => p_document_id) <> FND_API.G_RET_STS_SUCCESS
3621: THEN
3622: -- if unable to relock doc report error and do not process this doc any further
3623: l_err_code := 'IGC_PO_YEP_RELOCK_DOCUMENT';
3624: FND_MESSAGE.set_name('IGC',l_err_code);
3625: l_msg_data := FND_MESSAGE.get;
3626: Insert_Exception_Record(p_exception_reason => l_msg_data,
3627: p_exception_code => l_err_code,
3628: p_document_type => p_document_type,
3621: THEN
3622: -- if unable to relock doc report error and do not process this doc any further
3623: l_err_code := 'IGC_PO_YEP_RELOCK_DOCUMENT';
3624: FND_MESSAGE.set_name('IGC',l_err_code);
3625: l_msg_data := FND_MESSAGE.get;
3626: Insert_Exception_Record(p_exception_reason => l_msg_data,
3627: p_exception_code => l_err_code,
3628: p_document_type => p_document_type,
3629: p_document_id => p_document_id);
3676: EXCEPTION
3677: WHEN OTHERS THEN
3678: Rollback; -- release locks
3679: IF ( g_unexp_level >= g_debug_level ) THEN
3680: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3681: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3682: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3683: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3684: END IF;
3677: WHEN OTHERS THEN
3678: Rollback; -- release locks
3679: IF ( g_unexp_level >= g_debug_level ) THEN
3680: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3681: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3682: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3683: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3684: END IF;
3685: -- Terminate processing with error
3678: Rollback; -- release locks
3679: IF ( g_unexp_level >= g_debug_level ) THEN
3680: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3681: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3682: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3683: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3684: END IF;
3685: -- Terminate processing with error
3686: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3686: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3687: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3688: END IF;
3689: x_return_code := 2;
3690: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3691: x_msg_buf := fnd_message.get;
3692: RETURN;
3693: END;
3694: IF (g_debug_mode = 'Y') THEN
3687: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3688: END IF;
3689: x_return_code := 2;
3690: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3691: x_msg_buf := fnd_message.get;
3692: RETURN;
3693: END;
3694: IF (g_debug_mode = 'Y') THEN
3695: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed 2nd update of po_req_distributions table');
3704: EXCEPTION
3705: WHEN OTHERS THEN
3706: Rollback; -- release locks
3707: IF ( g_unexp_level >= g_debug_level ) THEN
3708: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3709: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3710: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3711: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3712: END IF;
3705: WHEN OTHERS THEN
3706: Rollback; -- release locks
3707: IF ( g_unexp_level >= g_debug_level ) THEN
3708: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3709: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3710: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3711: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3712: END IF;
3713: -- Terminate processing with error
3706: Rollback; -- release locks
3707: IF ( g_unexp_level >= g_debug_level ) THEN
3708: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3709: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3710: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3711: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3712: END IF;
3713: -- Terminate processing with error
3714: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3714: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3715: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3716: END IF;
3717: x_return_code := 2;
3718: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3719: x_msg_buf := fnd_message.get;
3720: RETURN;
3721: END;
3722: IF (g_debug_mode = 'Y') THEN
3715: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3716: END IF;
3717: x_return_code := 2;
3718: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3719: x_msg_buf := fnd_message.get;
3720: RETURN;
3721: END;
3722: IF (g_debug_mode = 'Y') THEN
3723: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed 2nd update of po_distributions table');
3729:
3730:
3731: -- terminate processing with error
3732: x_return_code := 2;
3733: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3734: x_msg_buf := FND_MESSAGE.get;
3735: RETURN;
3736:
3737: END IF; -- l_return_code NOT IN ('S','A')
3730:
3731: -- terminate processing with error
3732: x_return_code := 2;
3733: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3734: x_msg_buf := FND_MESSAGE.get;
3735: RETURN;
3736:
3737: END IF; -- l_return_code NOT IN ('S','A')
3738:
3763: -- THEN
3764: -- -- Commit anyway so that the record in gl_bc_packet gets
3765: -- -- saved and gives us a chance to see why the funds check failed.
3766: -- COMMIT;
3767: -- FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3768: -- x_msg_buf := FND_MESSAGE.get;
3769: -- Insert_Exception_Record(p_exception_reason => x_msg_buf,
3770: -- p_exception_code => 'IGC_PO_YEP_DOC_FAIL_FC',
3771: -- p_document_type => p_document_type,
3764: -- -- Commit anyway so that the record in gl_bc_packet gets
3765: -- -- saved and gives us a chance to see why the funds check failed.
3766: -- COMMIT;
3767: -- FND_MESSAGE.set_name('IGC','IGC_PO_YEP_DOC_FAIL_FC');
3768: -- x_msg_buf := FND_MESSAGE.get;
3769: -- Insert_Exception_Record(p_exception_reason => x_msg_buf,
3770: -- p_exception_code => 'IGC_PO_YEP_DOC_FAIL_FC',
3771: -- p_document_type => p_document_type,
3772: -- p_document_id => p_document_id);
3784: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3785: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3786: END IF;
3787: IF ( g_unexp_level >= g_debug_level ) THEN
3788: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3789: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3790: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3791: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3792: END IF;
3785: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Process_Document');
3786: END IF;
3787: IF ( g_unexp_level >= g_debug_level ) THEN
3788: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3789: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3790: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3791: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3792: END IF;
3793: x_return_code := 2;
3786: END IF;
3787: IF ( g_unexp_level >= g_debug_level ) THEN
3788: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
3789: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
3790: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3791: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3792: END IF;
3793: x_return_code := 2;
3794: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3790: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
3791: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3792: END IF;
3793: x_return_code := 2;
3794: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3795: x_msg_buf := fnd_message.get;
3796:
3797: END Process_Document;
3798:
3791: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
3792: END IF;
3793: x_return_code := 2;
3794: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
3795: x_msg_buf := fnd_message.get;
3796:
3797: END Process_Document;
3798:
3799:
3992: p_document_id => p_po_release_id) <> FND_API.G_RET_STS_SUCCESS
3993: THEN
3994: -- if unable to lock doc, then report error and do not process this doc any further
3995: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
3996: FND_MESSAGE.set_name('IGC',l_err_code);
3997: l_msg_data := FND_MESSAGE.get;
3998: Insert_Exception_Record(p_exception_reason => l_msg_data,
3999: p_document_type => p_document_type,
4000: p_document_id => p_po_release_id);
3993: THEN
3994: -- if unable to lock doc, then report error and do not process this doc any further
3995: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
3996: FND_MESSAGE.set_name('IGC',l_err_code);
3997: l_msg_data := FND_MESSAGE.get;
3998: Insert_Exception_Record(p_exception_reason => l_msg_data,
3999: p_document_type => p_document_type,
4000: p_document_id => p_po_release_id);
4001: x_return_code := -99;
4018: OR l_release.hold_flag = 'Y'
4019: THEN
4020: -- if not valid then report error and do not process this doc any further
4021: l_err_code := 'IGC_PO_YEP_REL_INV_STATE';
4022: FND_MESSAGE.set_name('IGC',l_err_code);
4023: IF l_release.hold_flag = 'Y' THEN
4024: FND_MESSAGE.set_token('REL_STATE','ON HOLD');
4025: ELSE
4026: FND_MESSAGE.set_token('REL_STATE',NVL(l_release.auth_status,'INCOMPLETE'));
4020: -- if not valid then report error and do not process this doc any further
4021: l_err_code := 'IGC_PO_YEP_REL_INV_STATE';
4022: FND_MESSAGE.set_name('IGC',l_err_code);
4023: IF l_release.hold_flag = 'Y' THEN
4024: FND_MESSAGE.set_token('REL_STATE','ON HOLD');
4025: ELSE
4026: FND_MESSAGE.set_token('REL_STATE',NVL(l_release.auth_status,'INCOMPLETE'));
4027: END IF;
4028: l_msg_data := FND_MESSAGE.get;
4022: FND_MESSAGE.set_name('IGC',l_err_code);
4023: IF l_release.hold_flag = 'Y' THEN
4024: FND_MESSAGE.set_token('REL_STATE','ON HOLD');
4025: ELSE
4026: FND_MESSAGE.set_token('REL_STATE',NVL(l_release.auth_status,'INCOMPLETE'));
4027: END IF;
4028: l_msg_data := FND_MESSAGE.get;
4029: Insert_Exception_Record(p_exception_reason => l_msg_data,
4030: p_exception_code => l_err_code,
4024: FND_MESSAGE.set_token('REL_STATE','ON HOLD');
4025: ELSE
4026: FND_MESSAGE.set_token('REL_STATE',NVL(l_release.auth_status,'INCOMPLETE'));
4027: END IF;
4028: l_msg_data := FND_MESSAGE.get;
4029: Insert_Exception_Record(p_exception_reason => l_msg_data,
4030: p_exception_code => l_err_code,
4031: p_document_type => p_document_type,
4032: p_document_id => p_po_release_id);
4044: THEN
4045: -- if frozen and user requested not to process frozen docs then report error and
4046: -- do not process this doc any further
4047: l_err_code := 'IGC_PO_YEP_REL_FROZEN';
4048: FND_MESSAGE.set_name('IGC',l_err_code);
4049: l_msg_data := FND_MESSAGE.get;
4050: Insert_Exception_Record(p_exception_reason => l_msg_data,
4051: p_exception_code => l_err_code,
4052: p_document_type => p_document_type,
4045: -- if frozen and user requested not to process frozen docs then report error and
4046: -- do not process this doc any further
4047: l_err_code := 'IGC_PO_YEP_REL_FROZEN';
4048: FND_MESSAGE.set_name('IGC',l_err_code);
4049: l_msg_data := FND_MESSAGE.get;
4050: Insert_Exception_Record(p_exception_reason => l_msg_data,
4051: p_exception_code => l_err_code,
4052: p_document_type => p_document_type,
4053: p_document_id => p_po_release_id);
4135: p_document_id => p_po_header_id) <> FND_API.G_RET_STS_SUCCESS
4136: THEN
4137: -- if unable to lock doc then do not process this doc any further
4138: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4139: FND_MESSAGE.set_name('IGC',l_err_code);
4140: l_msg_data := FND_MESSAGE.get;
4141: Insert_Exception_Record(p_exception_reason => l_msg_data,
4142: p_exception_code => l_err_code,
4143: p_document_type => p_document_type,
4136: THEN
4137: -- if unable to lock doc then do not process this doc any further
4138: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4139: FND_MESSAGE.set_name('IGC',l_err_code);
4140: l_msg_data := FND_MESSAGE.get;
4141: Insert_Exception_Record(p_exception_reason => l_msg_data,
4142: p_exception_code => l_err_code,
4143: p_document_type => p_document_type,
4144: p_document_id => p_po_header_id);
4162: OR l_po.hold_flag = 'Y'
4163: THEN
4164: -- if invalid then report error and do not process this doc any further
4165: l_err_code := 'IGC_PO_YEP_PO_INV_STATE';
4166: FND_MESSAGE.set_name('IGC',l_err_code);
4167: IF l_po.hold_flag = 'Y' THEN
4168: FND_MESSAGE.set_token('PO_STATE','ON HOLD');
4169: ELSE
4170: FND_MESSAGE.set_token('PO_STATE',NVL(l_po.auth_status,'INCOMPLETE'));
4164: -- if invalid then report error and do not process this doc any further
4165: l_err_code := 'IGC_PO_YEP_PO_INV_STATE';
4166: FND_MESSAGE.set_name('IGC',l_err_code);
4167: IF l_po.hold_flag = 'Y' THEN
4168: FND_MESSAGE.set_token('PO_STATE','ON HOLD');
4169: ELSE
4170: FND_MESSAGE.set_token('PO_STATE',NVL(l_po.auth_status,'INCOMPLETE'));
4171: END IF;
4172: l_msg_data := FND_MESSAGE.get;
4166: FND_MESSAGE.set_name('IGC',l_err_code);
4167: IF l_po.hold_flag = 'Y' THEN
4168: FND_MESSAGE.set_token('PO_STATE','ON HOLD');
4169: ELSE
4170: FND_MESSAGE.set_token('PO_STATE',NVL(l_po.auth_status,'INCOMPLETE'));
4171: END IF;
4172: l_msg_data := FND_MESSAGE.get;
4173: Insert_Exception_Record(p_exception_reason => l_msg_data,
4174: p_exception_code => l_err_code,
4168: FND_MESSAGE.set_token('PO_STATE','ON HOLD');
4169: ELSE
4170: FND_MESSAGE.set_token('PO_STATE',NVL(l_po.auth_status,'INCOMPLETE'));
4171: END IF;
4172: l_msg_data := FND_MESSAGE.get;
4173: Insert_Exception_Record(p_exception_reason => l_msg_data,
4174: p_exception_code => l_err_code,
4175: p_document_type => p_document_type,
4176: p_document_id => p_po_header_id);
4189: THEN
4190: -- if frozen and user requested not to process frozen docs then report error and
4191: -- do not process this doc any further
4192: l_err_code := 'IGC_PO_YEP_PO_FROZEN';
4193: FND_MESSAGE.set_name('IGC',l_err_code);
4194: l_msg_data := FND_MESSAGE.get;
4195: Insert_Exception_Record(p_exception_reason => l_msg_data,
4196: p_exception_code => l_err_code,
4197: p_document_type => p_document_type,
4190: -- if frozen and user requested not to process frozen docs then report error and
4191: -- do not process this doc any further
4192: l_err_code := 'IGC_PO_YEP_PO_FROZEN';
4193: FND_MESSAGE.set_name('IGC',l_err_code);
4194: l_msg_data := FND_MESSAGE.get;
4195: Insert_Exception_Record(p_exception_reason => l_msg_data,
4196: p_exception_code => l_err_code,
4197: p_document_type => p_document_type,
4198: p_document_id => p_po_header_id);
4214: IF c_get_release_errors%FOUND
4215: THEN
4216: -- if any releases in error then report error and do not process this doc any further
4217: l_err_code := 'IGC_PO_YEP_REL_NOT_APP';
4218: FND_MESSAGE.set_name('IGC',l_err_code);
4219: l_msg_data := FND_MESSAGE.get;
4220: Insert_Exception_Record(p_exception_reason => l_msg_data,
4221: p_exception_code => l_err_code,
4222: p_document_type => p_document_type,
4215: THEN
4216: -- if any releases in error then report error and do not process this doc any further
4217: l_err_code := 'IGC_PO_YEP_REL_NOT_APP';
4218: FND_MESSAGE.set_name('IGC',l_err_code);
4219: l_msg_data := FND_MESSAGE.get;
4220: Insert_Exception_Record(p_exception_reason => l_msg_data,
4221: p_exception_code => l_err_code,
4222: p_document_type => p_document_type,
4223: p_document_id => p_po_header_id);
4241: IF c_get_release_future%FOUND
4242: THEN
4243: -- if any releases in future then report error and do not process this doc any further
4244: l_err_code := 'IGC_PO_YEP_PO_REL_FUTURE';
4245: FND_MESSAGE.set_name('IGC',l_err_code);
4246: l_msg_data := FND_MESSAGE.get;
4247: Insert_Exception_Record(p_exception_reason => l_msg_data,
4248: p_exception_code => l_err_code,
4249: p_document_type => p_document_type,
4242: THEN
4243: -- if any releases in future then report error and do not process this doc any further
4244: l_err_code := 'IGC_PO_YEP_PO_REL_FUTURE';
4245: FND_MESSAGE.set_name('IGC',l_err_code);
4246: l_msg_data := FND_MESSAGE.get;
4247: Insert_Exception_Record(p_exception_reason => l_msg_data,
4248: p_exception_code => l_err_code,
4249: p_document_type => p_document_type,
4250: p_document_id => p_po_header_id);
4337: p_document_id => p_req_header_id) <> FND_API.G_RET_STS_SUCCESS
4338: THEN
4339: -- if unable to lock doc then report error and do not process this doc any further
4340: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4341: FND_MESSAGE.set_name('IGC',l_err_code);
4342: l_msg_data := FND_MESSAGE.get;
4343: Insert_Exception_Record(p_exception_reason => l_msg_data,
4344: p_exception_code => l_err_code,
4345: p_document_type => p_document_type,
4338: THEN
4339: -- if unable to lock doc then report error and do not process this doc any further
4340: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4341: FND_MESSAGE.set_name('IGC',l_err_code);
4342: l_msg_data := FND_MESSAGE.get;
4343: Insert_Exception_Record(p_exception_reason => l_msg_data,
4344: p_exception_code => l_err_code,
4345: p_document_type => p_document_type,
4346: p_document_id => p_req_header_id);
4365: OR l_requisition.closed_code = 'ON HOLD'
4366: THEN
4367: -- if invalid status then report error and do not process this doc any further
4368: l_err_code := 'IGC_PO_YEP_REQ_INV_STATE';
4369: FND_MESSAGE.set_name('IGC',l_err_code);
4370: IF l_requisition.closed_code = 'ON HOLD' THEN
4371: FND_MESSAGE.set_token('REQ_STATE','ON HOLD');
4372: ELSE
4373: FND_MESSAGE.set_token('REQ_STATE',NVL(l_requisition.auth_status,'INCOMPLETE'));
4367: -- if invalid status then report error and do not process this doc any further
4368: l_err_code := 'IGC_PO_YEP_REQ_INV_STATE';
4369: FND_MESSAGE.set_name('IGC',l_err_code);
4370: IF l_requisition.closed_code = 'ON HOLD' THEN
4371: FND_MESSAGE.set_token('REQ_STATE','ON HOLD');
4372: ELSE
4373: FND_MESSAGE.set_token('REQ_STATE',NVL(l_requisition.auth_status,'INCOMPLETE'));
4374: END IF;
4375: l_msg_data := FND_MESSAGE.get;
4369: FND_MESSAGE.set_name('IGC',l_err_code);
4370: IF l_requisition.closed_code = 'ON HOLD' THEN
4371: FND_MESSAGE.set_token('REQ_STATE','ON HOLD');
4372: ELSE
4373: FND_MESSAGE.set_token('REQ_STATE',NVL(l_requisition.auth_status,'INCOMPLETE'));
4374: END IF;
4375: l_msg_data := FND_MESSAGE.get;
4376: Insert_Exception_Record(p_exception_reason => l_msg_data,
4377: p_exception_code => l_err_code,
4371: FND_MESSAGE.set_token('REQ_STATE','ON HOLD');
4372: ELSE
4373: FND_MESSAGE.set_token('REQ_STATE',NVL(l_requisition.auth_status,'INCOMPLETE'));
4374: END IF;
4375: l_msg_data := FND_MESSAGE.get;
4376: Insert_Exception_Record(p_exception_reason => l_msg_data,
4377: p_exception_code => l_err_code,
4378: p_document_type => p_document_type,
4379: p_document_id => p_req_header_id);
4392: IF c_get_po_errors%FOUND
4393: THEN
4394: -- If any PO's in error then report and do not process this doc any further
4395: l_err_code := 'IGC_PO_YEP_REQ_PO_NAPPR';
4396: FND_MESSAGE.set_name('IGC',l_err_code);
4397: l_msg_data := FND_MESSAGE.get;
4398: Insert_Exception_Record(p_exception_reason => l_msg_data,
4399: p_exception_code => l_err_code,
4400: p_document_type => p_document_type,
4393: THEN
4394: -- If any PO's in error then report and do not process this doc any further
4395: l_err_code := 'IGC_PO_YEP_REQ_PO_NAPPR';
4396: FND_MESSAGE.set_name('IGC',l_err_code);
4397: l_msg_data := FND_MESSAGE.get;
4398: Insert_Exception_Record(p_exception_reason => l_msg_data,
4399: p_exception_code => l_err_code,
4400: p_document_type => p_document_type,
4401: p_document_id => p_req_header_id);
4419: IF c_get_po_future%FOUND
4420: THEN
4421: -- If any related PO's with GL dates in future years, then do not process this doc any further
4422: l_err_code := 'IGC_PO_YEP_REQ_PO_FUTURE';
4423: FND_MESSAGE.set_name('IGC',l_err_code);
4424: l_msg_data := FND_MESSAGE.get;
4425: Insert_Exception_Record(p_exception_reason => l_msg_data,
4426: p_exception_code => l_err_code,
4427: p_document_type => p_document_type,
4420: THEN
4421: -- If any related PO's with GL dates in future years, then do not process this doc any further
4422: l_err_code := 'IGC_PO_YEP_REQ_PO_FUTURE';
4423: FND_MESSAGE.set_name('IGC',l_err_code);
4424: l_msg_data := FND_MESSAGE.get;
4425: Insert_Exception_Record(p_exception_reason => l_msg_data,
4426: p_exception_code => l_err_code,
4427: p_document_type => p_document_type,
4428: p_document_id => p_req_header_id);
4519: p_document_id => p_po_header_id) <> FND_API.G_RET_STS_SUCCESS
4520: THEN
4521: -- if unable to lock doc then report error and do not process this doc any further
4522: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4523: FND_MESSAGE.set_name('IGC',l_err_code);
4524: l_msg_data := FND_MESSAGE.get;
4525: Insert_Exception_Record(p_exception_reason => l_msg_data,
4526: p_exception_code => l_err_code,
4527: p_document_type => p_document_type,
4520: THEN
4521: -- if unable to lock doc then report error and do not process this doc any further
4522: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4523: FND_MESSAGE.set_name('IGC',l_err_code);
4524: l_msg_data := FND_MESSAGE.get;
4525: Insert_Exception_Record(p_exception_reason => l_msg_data,
4526: p_exception_code => l_err_code,
4527: p_document_type => p_document_type,
4528: p_document_id => p_po_header_id);
4547: OR l_bpa.hold_flag = 'Y'
4548: THEN
4549: -- if invalid status then report error and do not process this doc any further
4550: l_err_code := 'IGC_PO_YEP_BPA_INV_STATE';
4551: FND_MESSAGE.set_name('IGC',l_err_code);
4552: IF l_bpa.hold_flag = 'Y'
4553: THEN
4554: FND_MESSAGE.set_token('BPA_STATE','ON HOLD');
4555: ELSE
4550: l_err_code := 'IGC_PO_YEP_BPA_INV_STATE';
4551: FND_MESSAGE.set_name('IGC',l_err_code);
4552: IF l_bpa.hold_flag = 'Y'
4553: THEN
4554: FND_MESSAGE.set_token('BPA_STATE','ON HOLD');
4555: ELSE
4556: FND_MESSAGE.set_token('BPA_STATE',NVL(l_bpa.auth_status,'INCOMPLETE'));
4557: END IF;
4558: l_msg_data := FND_MESSAGE.get;
4552: IF l_bpa.hold_flag = 'Y'
4553: THEN
4554: FND_MESSAGE.set_token('BPA_STATE','ON HOLD');
4555: ELSE
4556: FND_MESSAGE.set_token('BPA_STATE',NVL(l_bpa.auth_status,'INCOMPLETE'));
4557: END IF;
4558: l_msg_data := FND_MESSAGE.get;
4559: Insert_Exception_Record(p_exception_reason => l_msg_data,
4560: p_exception_code => l_err_code,
4554: FND_MESSAGE.set_token('BPA_STATE','ON HOLD');
4555: ELSE
4556: FND_MESSAGE.set_token('BPA_STATE',NVL(l_bpa.auth_status,'INCOMPLETE'));
4557: END IF;
4558: l_msg_data := FND_MESSAGE.get;
4559: Insert_Exception_Record(p_exception_reason => l_msg_data,
4560: p_exception_code => l_err_code,
4561: p_document_type => p_document_type,
4562: p_document_id => p_po_header_id);
4575: THEN
4576: -- if frozen and user requested not to process frozen docs then report error and
4577: -- do not process this doc any further
4578: l_err_code := 'IGC_PO_YEP_PO_FROZEN';
4579: FND_MESSAGE.set_name('IGC',l_err_code);
4580: l_msg_data := FND_MESSAGE.get;
4581: Insert_Exception_Record(p_exception_reason => l_msg_data,
4582: p_exception_code => l_err_code,
4583: p_document_type => p_document_type,
4576: -- if frozen and user requested not to process frozen docs then report error and
4577: -- do not process this doc any further
4578: l_err_code := 'IGC_PO_YEP_PO_FROZEN';
4579: FND_MESSAGE.set_name('IGC',l_err_code);
4580: l_msg_data := FND_MESSAGE.get;
4581: Insert_Exception_Record(p_exception_reason => l_msg_data,
4582: p_exception_code => l_err_code,
4583: p_document_type => p_document_type,
4584: p_document_id => p_po_header_id);
4598: THEN
4599: -- If any PO's in error then report
4600: -- and do not process this doc any further
4601: l_err_code := 'IGC_PO_YEP_BPA_PO_NAPPR';
4602: FND_MESSAGE.set_name('IGC',l_err_code);
4603: l_msg_data := FND_MESSAGE.get;
4604: Insert_Exception_Record(p_exception_reason => l_msg_data,
4605: p_exception_code => l_err_code,
4606: p_document_type => p_document_type,
4599: -- If any PO's in error then report
4600: -- and do not process this doc any further
4601: l_err_code := 'IGC_PO_YEP_BPA_PO_NAPPR';
4602: FND_MESSAGE.set_name('IGC',l_err_code);
4603: l_msg_data := FND_MESSAGE.get;
4604: Insert_Exception_Record(p_exception_reason => l_msg_data,
4605: p_exception_code => l_err_code,
4606: p_document_type => p_document_type,
4607: p_document_id => p_po_header_id);
4625: IF c_get_release_errors%FOUND
4626: THEN
4627: -- if any releases in error then report error and do not process this doc any further
4628: l_err_code := 'IGC_PO_YEP_REL_NOT_APP';
4629: FND_MESSAGE.set_name('IGC',l_err_code);
4630: l_msg_data := FND_MESSAGE.get;
4631: Insert_Exception_Record(p_exception_reason => l_msg_data,
4632: p_exception_code => l_err_code,
4633: p_document_type => p_document_type,
4626: THEN
4627: -- if any releases in error then report error and do not process this doc any further
4628: l_err_code := 'IGC_PO_YEP_REL_NOT_APP';
4629: FND_MESSAGE.set_name('IGC',l_err_code);
4630: l_msg_data := FND_MESSAGE.get;
4631: Insert_Exception_Record(p_exception_reason => l_msg_data,
4632: p_exception_code => l_err_code,
4633: p_document_type => p_document_type,
4634: p_document_id => p_po_header_id);
4656: THEN
4657: -- If any REQs in error then report
4658: -- and do not process this doc any further
4659: l_err_code := 'IGC_PO_YEP_BPA_REQ_NAPPR';
4660: FND_MESSAGE.set_name('IGC',l_err_code);
4661: l_msg_data := FND_MESSAGE.get;
4662: Insert_Exception_Record(p_exception_reason => l_msg_data,
4663: p_exception_code => l_err_code,
4664: p_document_type => p_document_type,
4657: -- If any REQs in error then report
4658: -- and do not process this doc any further
4659: l_err_code := 'IGC_PO_YEP_BPA_REQ_NAPPR';
4660: FND_MESSAGE.set_name('IGC',l_err_code);
4661: l_msg_data := FND_MESSAGE.get;
4662: Insert_Exception_Record(p_exception_reason => l_msg_data,
4663: p_exception_code => l_err_code,
4664: p_document_type => p_document_type,
4665: p_document_id => p_po_header_id);
4727: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4728: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_And_Process_Doc');
4729: END IF;
4730: IF ( g_unexp_level >= g_debug_level ) THEN
4731: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4732: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4733: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
4734: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4735: END IF;
4728: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Validate_And_Process_Doc');
4729: END IF;
4730: IF ( g_unexp_level >= g_debug_level ) THEN
4731: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4732: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4733: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
4734: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4735: END IF;
4736: x_return_code := 2 ;
4729: END IF;
4730: IF ( g_unexp_level >= g_debug_level ) THEN
4731: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
4732: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
4733: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
4734: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4735: END IF;
4736: x_return_code := 2 ;
4737: fnd_message.set_name('IGC','IGC_LOGGIN_USER_ERROR');
4733: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
4734: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4735: END IF;
4736: x_return_code := 2 ;
4737: fnd_message.set_name('IGC','IGC_LOGGIN_USER_ERROR');
4738: x_msg_buf := fnd_message.get;
4739:
4740: END Validate_And_Process_Doc;
4741:
4734: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
4735: END IF;
4736: x_return_code := 2 ;
4737: fnd_message.set_name('IGC','IGC_LOGGIN_USER_ERROR');
4738: x_msg_buf := fnd_message.get;
4739:
4740: END Validate_And_Process_Doc;
4741:
4742:
5081: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5082: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Year_End_Main');
5083: END IF;
5084: IF ( g_unexp_level >= g_debug_level ) THEN
5085: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5086: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5087: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5088: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5089: END IF;
5082: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Year_End_Main');
5083: END IF;
5084: IF ( g_unexp_level >= g_debug_level ) THEN
5085: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5086: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5087: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5088: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5089: END IF;
5090: APP_EXCEPTION.Raise_Exception;
5083: END IF;
5084: IF ( g_unexp_level >= g_debug_level ) THEN
5085: FND_MESSAGE.SET_NAME('IGC','IGC_LOGGING_UNEXP_ERROR');
5086: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
5087: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
5088: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5089: END IF;
5090: APP_EXCEPTION.Raise_Exception;
5091: retcode := 2 ;
5088: FND_LOG.MESSAGE ( g_unexp_level,l_full_path, TRUE);
5089: END IF;
5090: APP_EXCEPTION.Raise_Exception;
5091: retcode := 2 ;
5092: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
5093: errbuf := fnd_message.get;
5094:
5095:
5096: END Year_End_Main ;
5089: END IF;
5090: APP_EXCEPTION.Raise_Exception;
5091: retcode := 2 ;
5092: fnd_message.set_name('IGC','IGC_LOGGING_USER_ERROR');
5093: errbuf := fnd_message.get;
5094:
5095:
5096: END Year_End_Main ;
5097: