102: l_validation_level NUMBER;
103: BEGIN
104: --Added by svaithil for GSCC warnings
105:
106: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
107: l_commit := nvl(p_commit,FND_API.G_FALSE);
108: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
109: l_api_name := 'CC_Open_API_Main';
110: l_api_version := 1.0;
103: BEGIN
104: --Added by svaithil for GSCC warnings
105:
106: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
107: l_commit := nvl(p_commit,FND_API.G_FALSE);
108: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
109: l_api_name := 'CC_Open_API_Main';
110: l_api_version := 1.0;
111: l_error_status := NVL(l_error_status,'N');
104: --Added by svaithil for GSCC warnings
105:
106: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
107: l_commit := nvl(p_commit,FND_API.G_FALSE);
108: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
109: l_api_name := 'CC_Open_API_Main';
110: l_api_version := 1.0;
111: l_error_status := NVL(l_error_status,'N');
112:
112:
113: -- -------------------------------------------------------------------
114: -- Initialize the return values
115: -- -------------------------------------------------------------------
116: x_return_status := FND_API.G_RET_STS_SUCCESS;
117: x_msg_data := NULL;
118: x_msg_count := 0;
119: SAVEPOINT CC_Open_API_PT;
120: l_full_path := g_path||'cc_open_api_main';
123: -- Setup Debug info for API usage if needed.
124: -- -------------------------------------------------------------------
125: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
126: IF (g_debug_mode = 'Y') THEN
127: l_debug := FND_API.G_TRUE;
128: ELSE
129: l_debug := FND_API.G_FALSE;
130: END IF;
131: IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
125: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
126: IF (g_debug_mode = 'Y') THEN
127: l_debug := FND_API.G_TRUE;
128: ELSE
129: l_debug := FND_API.G_FALSE;
130: END IF;
131: IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
132: IF g_debug_mode = 'Y'
133: THEN
127: l_debug := FND_API.G_TRUE;
128: ELSE
129: l_debug := FND_API.G_FALSE;
130: END IF;
131: IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
132: IF g_debug_mode = 'Y'
133: THEN
134: g_debug_msg := 'CC Open API Main debug mode enabled...';
135: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
137:
138: -- -------------------------------------------------------------------
139: -- Make sure that the appropriate version is being used
140: -- -------------------------------------------------------------------
141: IF (NOT FND_API.Compatible_API_Call ( l_api_version,
142: p_api_version,
143: l_api_name,
144: G_PKG_NAME )) THEN
145: g_debug_msg := 'CC Open API Main Incorrect Version...';
146: IF(g_excep_level >= g_debug_level) THEN
147: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
148: END IF;
149: -- Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
150: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
151: END IF;
152:
153: -- -------------------------------------------------------------------
154: -- Make sure that if the message stack is to be initialized it is.
152:
153: -- -------------------------------------------------------------------
154: -- Make sure that if the message stack is to be initialized it is.
155: -- -------------------------------------------------------------------
156: IF (FND_API.to_Boolean ( l_init_msg_list )) THEN
157: FND_MSG_PUB.initialize ;
158: END IF;
159:
160: -- -------------------------------------------------------------------
210: g_debug_msg := 'CC Open API Main Header Record Validation Starts Here...';
211: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
212: END IF;
213:
214: l_valid_cc := FND_API.G_FALSE;
215:
216: CC_OPEN_API_VALIDATE (l_cc_header_rec,
217: l_current_org_id,
218: l_current_set_of_books_id,
226:
227: -- -------------------------------------------------------------------
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;
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'
237: THEN
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
271:
272: IGC_CC_HEADERS_PKG.Insert_Row (1.0,
269:
270: ELSE
271:
272: IGC_CC_HEADERS_PKG.Insert_Row (1.0,
273: FND_API.G_FALSE,
274: FND_API.G_FALSE,
275: FND_API.G_VALID_LEVEL_FULL,
276: l_return_status,
277: l_msg_count,
270: ELSE
271:
272: IGC_CC_HEADERS_PKG.Insert_Row (1.0,
273: FND_API.G_FALSE,
274: FND_API.G_FALSE,
275: FND_API.G_VALID_LEVEL_FULL,
276: l_return_status,
277: l_msg_count,
278: l_msg_data,
271:
272: IGC_CC_HEADERS_PKG.Insert_Row (1.0,
273: FND_API.G_FALSE,
274: FND_API.G_FALSE,
275: FND_API.G_VALID_LEVEL_FULL,
276: l_return_status,
277: l_msg_count,
278: l_msg_data,
279: l_row_id,
330: l_cc_header_rec.Context,
331: l_cc_header_rec.CC_Guarantee_Flag,
332: l_flag
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;
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);
342: IF(g_excep_level >= g_debug_level) THEN
341: -- Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
342: IF(g_excep_level >= g_debug_level) THEN
343: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
344: END IF;
345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
346:
347: ELSE
348:
349: IF (FND_API.To_Boolean(l_commit)) THEN
345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
346:
347: ELSE
348:
349: IF (FND_API.To_Boolean(l_commit)) THEN
350: IF g_debug_mode = 'Y'
351: THEN
352: g_debug_msg := 'CC Open API Main Commiting CC header Record...';
353: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
367: -- Exception handler section for the CC_Open_API_Main Procedure.
368: -- --------------------------------------------------------------------
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;
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
378: IF ( g_excep_level >= g_debug_level ) THEN
375: x_msg_count := 1;
376:
377: -- Bug 3199488
378: IF ( g_excep_level >= g_debug_level ) THEN
379: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
380: END IF;
381: -- Bug 3199488
382: RETURN;
383:
381: -- Bug 3199488
382: RETURN;
383:
384: WHEN OTHERS THEN
385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
387: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
388: END IF;
389: -- Bug 3199488
485: l_api_name := 'CC_Open_API_Validate';
486: -- -------------------------------------------------------------------
487: -- Initialize the return values
488: -- -------------------------------------------------------------------
489: x_valid_cc := FND_API.G_FALSE;
490: x_currency_code := NULL;
491: x_conversion_type := NULL;
492: x_conversion_date := NULL;
493: x_conversion_rate := NULL;
729: (l_cc_num_datatype = 'N') AND
730: (p_cc_header_rec.cc_num IS NOT NULL)) THEN
731:
732: IGC_CC_SYSTEM_OPTIONS_PKG.Validate_Numeric_CC_Num (p_api_version => 1.0,
733: p_init_msg_list => FND_API.G_FALSE,
734: p_commit => FND_API.G_FALSE,
735: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
736: x_return_status => l_return_status,
737: x_msg_count => l_msg_count,
730: (p_cc_header_rec.cc_num IS NOT NULL)) THEN
731:
732: IGC_CC_SYSTEM_OPTIONS_PKG.Validate_Numeric_CC_Num (p_api_version => 1.0,
733: p_init_msg_list => FND_API.G_FALSE,
734: p_commit => FND_API.G_FALSE,
735: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
736: x_return_status => l_return_status,
737: x_msg_count => l_msg_count,
738: x_msg_data => l_msg_data,
731:
732: IGC_CC_SYSTEM_OPTIONS_PKG.Validate_Numeric_CC_Num (p_api_version => 1.0,
733: p_init_msg_list => FND_API.G_FALSE,
734: p_commit => FND_API.G_FALSE,
735: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
736: x_return_status => l_return_status,
737: x_msg_count => l_msg_count,
738: x_msg_data => l_msg_data,
739: p_cc_num => p_cc_header_rec.cc_num
738: x_msg_data => l_msg_data,
739: p_cc_num => p_cc_header_rec.cc_num
740: );
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);
740: );
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;
784: IF ((l_cc_num_method = 'A') AND
785: (p_cc_header_rec.cc_num IS NULL)) THEN
786:
787: IGC_CC_SYSTEM_OPTIONS_PKG.Create_Auto_CC_Num (p_api_version => 1.0,
788: p_init_msg_list => FND_API.G_FALSE,
789: p_commit => FND_API.G_FALSE,
790: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
791: x_return_status => l_return_status,
792: x_msg_count => l_msg_count,
785: (p_cc_header_rec.cc_num IS NULL)) THEN
786:
787: IGC_CC_SYSTEM_OPTIONS_PKG.Create_Auto_CC_Num (p_api_version => 1.0,
788: p_init_msg_list => FND_API.G_FALSE,
789: p_commit => FND_API.G_FALSE,
790: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
791: x_return_status => l_return_status,
792: x_msg_count => l_msg_count,
793: x_msg_data => l_msg_data,
786:
787: IGC_CC_SYSTEM_OPTIONS_PKG.Create_Auto_CC_Num (p_api_version => 1.0,
788: p_init_msg_list => FND_API.G_FALSE,
789: p_commit => FND_API.G_FALSE,
790: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
791: x_return_status => l_return_status,
792: x_msg_count => l_msg_count,
793: x_msg_data => l_msg_data,
794: p_org_id => p_current_org_id,
1001: -- -------------------------------------------------------------------
1002: -- Check Budgetary Control is on
1003: -- -------------------------------------------------------------------
1004: IGC_CC_BUDGETARY_CTRL_PKG.CHECK_BUDGETARY_CTRL_ON (p_api_version => 1.0,
1005: p_init_msg_list => FND_API.G_FALSE,
1006: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1007: X_return_status => l_return_status,
1008: X_msg_count => l_msg_count,
1009: X_msg_data => l_msg_data,
1002: -- Check Budgetary Control is on
1003: -- -------------------------------------------------------------------
1004: IGC_CC_BUDGETARY_CTRL_PKG.CHECK_BUDGETARY_CTRL_ON (p_api_version => 1.0,
1005: p_init_msg_list => FND_API.G_FALSE,
1006: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1007: X_return_status => l_return_status,
1008: X_msg_count => l_msg_count,
1009: X_msg_data => l_msg_data,
1010: p_org_id => p_cc_header_rec.org_id,
1012: p_cc_state => 'PR',
1013: X_encumbrance_on => l_encumbrance_flag
1014: );
1015:
1016: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1017: l_error_count := l_error_count + NVL(l_msg_count,0);
1018: IF g_debug_mode = 'Y'
1019: THEN
1020: g_debug_msg := 'CC Open API Validate Check Budgetary Control Not Successful...';
1028: -- -------------------------------------------------------------------
1029: -- Validate the Start_Date.
1030: -- -------------------------------------------------------------------
1031: IGC_CC_BUDGETARY_CTRL_PKG.Validate_CC (p_api_version => 1.0,
1032: p_init_msg_list => FND_API.G_FALSE,
1033: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1034: x_return_status => l_return_status,
1035: x_msg_count => l_msg_count,
1036: x_msg_data => l_msg_data,
1029: -- Validate the Start_Date.
1030: -- -------------------------------------------------------------------
1031: IGC_CC_BUDGETARY_CTRL_PKG.Validate_CC (p_api_version => 1.0,
1032: p_init_msg_list => FND_API.G_FALSE,
1033: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1034: x_return_status => l_return_status,
1035: x_msg_count => l_msg_count,
1036: x_msg_data => l_msg_data,
1037: p_cc_header_id => NULL,
1050: p_prev_acct_date => NULL,
1051: p_cc_state => 'PR'
1052: );
1053:
1054: IF ((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
1055: (l_valid_cc <> FND_API.G_TRUE)) THEN
1056: l_error_count := l_error_count + NVL(l_msg_count,0);
1057: IF g_debug_mode = 'Y'
1058: THEN
1051: p_cc_state => 'PR'
1052: );
1053:
1054: IF ((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
1055: (l_valid_cc <> FND_API.G_TRUE)) THEN
1056: l_error_count := l_error_count + NVL(l_msg_count,0);
1057: IF g_debug_mode = 'Y'
1058: THEN
1059: g_debug_msg := 'CC Open API Validate CC for start date Not Successful...';
1067: -- -------------------------------------------------------------------
1068: -- Validate the End Date.
1069: -- -------------------------------------------------------------------
1070: IGC_CC_BUDGETARY_CTRL_PKG.Validate_CC (p_api_version => 1.0,
1071: p_init_msg_list => FND_API.G_FALSE,
1072: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1073: x_return_status => l_return_status,
1074: x_msg_count => l_msg_count,
1075: x_msg_data => l_msg_data,
1068: -- Validate the End Date.
1069: -- -------------------------------------------------------------------
1070: IGC_CC_BUDGETARY_CTRL_PKG.Validate_CC (p_api_version => 1.0,
1071: p_init_msg_list => FND_API.G_FALSE,
1072: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1073: x_return_status => l_return_status,
1074: x_msg_count => l_msg_count,
1075: x_msg_data => l_msg_data,
1076: p_cc_header_id => NULL,
1089: p_prev_acct_date => NULL,
1090: p_cc_state => 'PR'
1091: );
1092:
1093: IF ((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
1094: (l_valid_cc <> FND_API.G_TRUE)) THEN
1095: l_error_count := l_error_count + NVL(l_msg_count,0);
1096: IF g_debug_mode = 'Y'
1097: THEN
1090: p_cc_state => 'PR'
1091: );
1092:
1093: IF ((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
1094: (l_valid_cc <> FND_API.G_TRUE)) THEN
1095: l_error_count := l_error_count + NVL(l_msg_count,0);
1096: IF g_debug_mode = 'Y'
1097: THEN
1098: g_debug_msg := 'CC Open API Validate CC for end date Not Successful...';
1932: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
1933: END IF;
1934:
1935: IF l_error_count > 0 THEN
1936: x_valid_cc := FND_API.G_FALSE;
1937: ELSE
1938: x_valid_cc := FND_API.G_TRUE;
1939: END IF;
1940:
1934:
1935: IF l_error_count > 0 THEN
1936: x_valid_cc := FND_API.G_FALSE;
1937: ELSE
1938: x_valid_cc := FND_API.G_TRUE;
1939: END IF;
1940:
1941: RETURN;
1942:
1945: -- --------------------------------------------------------------------
1946: EXCEPTION
1947:
1948: WHEN OTHERS THEN
1949: x_valid_cc := FND_API.G_FALSE;
1950: x_currency_code := NULL;
1951: x_conversion_type := NULL;
1952: x_conversion_date := NULL;
1953: x_conversion_rate := NULL;
2113: BEGIN
2114:
2115: --Added by svaithil for GSCC warnings
2116:
2117: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
2118: l_commit := nvl(p_commit,FND_API.G_FALSE);
2119: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
2120: l_api_name := 'CC_Update_Control_Status_API';
2121: l_api_version := 1.0;
2114:
2115: --Added by svaithil for GSCC warnings
2116:
2117: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
2118: l_commit := nvl(p_commit,FND_API.G_FALSE);
2119: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
2120: l_api_name := 'CC_Update_Control_Status_API';
2121: l_api_version := 1.0;
2122: -- -------------------------------------------------------------------
2115: --Added by svaithil for GSCC warnings
2116:
2117: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
2118: l_commit := nvl(p_commit,FND_API.G_FALSE);
2119: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
2120: l_api_name := 'CC_Update_Control_Status_API';
2121: l_api_version := 1.0;
2122: -- -------------------------------------------------------------------
2123: -- Initialize the return values
2121: l_api_version := 1.0;
2122: -- -------------------------------------------------------------------
2123: -- Initialize the return values
2124: -- -------------------------------------------------------------------
2125: x_return_status := FND_API.G_RET_STS_SUCCESS;
2126: x_msg_data := NULL;
2127: x_msg_count := 0;
2128: l_full_path := g_path||'cc_update_control_status_API';
2129: SAVEPOINT CC_Update_API_PT;
2132: -- Setup Debug info for API usage if needed.
2133: -- -------------------------------------------------------------------
2134: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2135: -- IF (l_debug = 'Y') THEN
2136: -- l_debug := FND_API.G_TRUE;
2137: -- ELSE
2138: -- l_debug := FND_API.G_FALSE;
2139: -- END IF;
2140: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2134: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
2135: -- IF (l_debug = 'Y') THEN
2136: -- l_debug := FND_API.G_TRUE;
2137: -- ELSE
2138: -- l_debug := FND_API.G_FALSE;
2139: -- END IF;
2140: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2141: IF g_debug_mode = 'Y'
2142: THEN
2136: -- l_debug := FND_API.G_TRUE;
2137: -- ELSE
2138: -- l_debug := FND_API.G_FALSE;
2139: -- END IF;
2140: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
2141: IF g_debug_mode = 'Y'
2142: THEN
2143: g_debug_msg := 'CC Update API Debug mode enabled...';
2144: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2146:
2147: -- -------------------------------------------------------------------
2148: -- Make sure that the appropriate version is being used
2149: -- -------------------------------------------------------------------
2150: IF (NOT FND_API.Compatible_API_Call ( l_api_version,
2151: p_api_version,
2152: l_api_name,
2153: G_PKG_NAME )) THEN
2154: IF g_debug_mode = 'Y'
2158: IF(g_excep_level >= g_debug_level) THEN
2159: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2160: END IF;
2161: END IF;
2162: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
2163: END IF;
2164:
2165: -- -------------------------------------------------------------------
2166: -- Make sure that if the message stack is to be initialized it is.
2164:
2165: -- -------------------------------------------------------------------
2166: -- Make sure that if the message stack is to be initialized it is.
2167: -- -------------------------------------------------------------------
2168: IF (FND_API.to_Boolean ( l_init_msg_list )) THEN
2169: FND_MSG_PUB.initialize ;
2170: END IF;
2171:
2172: -- --------------------------------------------------------------------
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
2212: g_debug_msg := 'CC Update API Validate Set of books ID and Org ID Combo Failed...';
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
2237: g_debug_msg := 'CC Update APi CC Found or not...'||x_msg_data;
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
2262: g_debug_msg := 'CC Update APi CC Found or not...'||x_msg_data;
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
2284: g_debug_msg := 'CC Update APi CC Found or not approved / confirmed...'||x_msg_data;
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
2301: g_debug_msg := 'CC Update APi Action Not Allowed...'||x_msg_data;
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
2330: g_debug_msg := 'CC Update APi Invalid Action Code...'||x_msg_data;
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
2361: g_debug_msg := 'CC Update API Validate Invalid Last Update Login...';
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
2380: g_debug_msg := 'CC Update API Validate Invalid Last Update Login is NULL...';
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
2412: g_debug_msg := 'CC Update API Validate Invalid Last Updated By...';
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
2430: g_debug_msg := 'CC Update API Validate Invalid Last Updated By is NULL...';
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
2459: g_debug_msg := 'CC Update APi Invalid Control Status ...'||x_msg_data;
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
2484: g_debug_msg := 'CC Update APi '||p_action_code||' Action not allowed ...'||x_msg_data;
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
2506: g_debug_msg := 'CC Update APi '||p_action_code||' Action not allowed ...'||x_msg_data;
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
2528: g_debug_msg := 'CC Update APi '||p_action_code||' Action not allowed ...'||x_msg_data;
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
2550: g_debug_msg := 'CC Update APi '||p_action_code||' Action not allowed ...'||x_msg_data;
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
2585: g_debug_msg := 'CC Update APi Invalid Action Code...'||x_msg_data;
2601: -- --------------------------------------------------------------------
2602: -- Check Budgetary Control is on
2603: -- --------------------------------------------------------------------
2604: IGC_CC_BUDGETARY_CTRL_PKG.CHECK_BUDGETARY_CTRL_ON (p_api_version => 1.0,
2605: p_init_msg_list => FND_API.G_FALSE,
2606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2607: X_return_status => l_return_status,
2608: X_msg_count => l_msg_count,
2609: X_msg_data => l_msg_data,
2602: -- Check Budgetary Control is on
2603: -- --------------------------------------------------------------------
2604: IGC_CC_BUDGETARY_CTRL_PKG.CHECK_BUDGETARY_CTRL_ON (p_api_version => 1.0,
2605: p_init_msg_list => FND_API.G_FALSE,
2606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2607: X_return_status => l_return_status,
2608: X_msg_count => l_msg_count,
2609: X_msg_data => l_msg_data,
2610: p_org_id => l_cc_header_rec.org_id,
2612: p_cc_state => l_cc_header_rec.cc_state,
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'
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
2622: g_debug_msg := 'CC Update APi Check Budgetary Control Not Successful...'||x_msg_data;
2624: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2625: END IF;
2626: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2627: END IF;
2628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2629: ELSE
2630: IF g_debug_mode = 'Y'
2631: THEN
2632: g_debug_msg := 'CC Update APi Validate CC begins here ...';
2636: -- --------------------------------------------------------------------
2637: -- Validate the Accounting Date.
2638: -- --------------------------------------------------------------------
2639: IGC_CC_BUDGETARY_CTRL_PKG.Validate_CC (p_api_version => 1.0,
2640: p_init_msg_list => FND_API.G_FALSE,
2641: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2642: x_return_status => l_return_status,
2643: x_msg_count => l_msg_count,
2644: x_msg_data => l_msg_data,
2637: -- Validate the Accounting Date.
2638: -- --------------------------------------------------------------------
2639: IGC_CC_BUDGETARY_CTRL_PKG.Validate_CC (p_api_version => 1.0,
2640: p_init_msg_list => FND_API.G_FALSE,
2641: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2642: x_return_status => l_return_status,
2643: x_msg_count => l_msg_count,
2644: x_msg_data => l_msg_data,
2645: p_cc_header_id => l_cc_header_rec.cc_header_id,
2658: p_prev_acct_date => TRUNC(l_cc_header_rec.cc_acct_date),
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'
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
2668: g_debug_msg := 'CC Update APi Validate CC Not Successful...'||x_msg_data;
2670: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2671: END IF;
2672: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2673: END IF;
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2675: ELSE
2676: IF g_debug_mode = 'Y'
2677: THEN
2678: g_debug_msg := 'CC Update APi Approval Process begins here ...';
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:
2722: IF g_debug_mode = 'Y'
2728: -- ------------------------------------------------------------
2729: -- Insert record into table IGC_CC_ACTIONS for action history.
2730: -- ------------------------------------------------------------
2731: IGC_CC_ACTIONS_PKG.Insert_Row (1.0,
2732: FND_API.G_FALSE,
2733: FND_API.G_FALSE,
2734: FND_API.G_VALID_LEVEL_FULL,
2735: l_return_status,
2736: l_msg_count,
2729: -- Insert record into table IGC_CC_ACTIONS for action history.
2730: -- ------------------------------------------------------------
2731: IGC_CC_ACTIONS_PKG.Insert_Row (1.0,
2732: FND_API.G_FALSE,
2733: FND_API.G_FALSE,
2734: FND_API.G_VALID_LEVEL_FULL,
2735: l_return_status,
2736: l_msg_count,
2737: l_msg_data,
2730: -- ------------------------------------------------------------
2731: IGC_CC_ACTIONS_PKG.Insert_Row (1.0,
2732: FND_API.G_FALSE,
2733: FND_API.G_FALSE,
2734: FND_API.G_VALID_LEVEL_FULL,
2735: l_return_status,
2736: l_msg_count,
2737: l_msg_data,
2738: l_row_id,
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
2760: g_debug_msg := 'CC Update APi Action History Insertion Not Successful...'||l_msg_data;
2762: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2763: END IF;
2764: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2765: END IF;
2766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2767: ELSE
2768:
2769: -- ------------------------------------------------------------
2770: -- Commit Have to be done here.
2787: -- ------------------------------------------------------------
2788: -- Approval process.
2789: -- ------------------------------------------------------------
2790: IGC_CC_APPROVAL_PROCESS.preparer_can_approve (p_api_version => 1.0,
2791: p_init_msg_list => FND_API.G_FALSE,
2792: p_commit => FND_API.G_FALSE,
2793: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2794: x_return_status => l_return_status,
2795: x_msg_count => l_msg_count,
2788: -- Approval process.
2789: -- ------------------------------------------------------------
2790: IGC_CC_APPROVAL_PROCESS.preparer_can_approve (p_api_version => 1.0,
2791: p_init_msg_list => FND_API.G_FALSE,
2792: p_commit => FND_API.G_FALSE,
2793: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2794: x_return_status => l_return_status,
2795: x_msg_count => l_msg_count,
2796: x_msg_data => l_msg_data,
2789: -- ------------------------------------------------------------
2790: IGC_CC_APPROVAL_PROCESS.preparer_can_approve (p_api_version => 1.0,
2791: p_init_msg_list => FND_API.G_FALSE,
2792: p_commit => FND_API.G_FALSE,
2793: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2794: x_return_status => l_return_status,
2795: x_msg_count => l_msg_count,
2796: x_msg_data => l_msg_data,
2797: p_org_id => l_cc_header_rec.org_id,
2799: p_cc_type => l_cc_header_rec.cc_type,
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'
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
2809: g_debug_msg := 'CC Update APi Preparer Can Approve Not Successful...'||x_msg_data;
2811: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2812: END IF;
2813: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2814: END IF;
2815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2816: ELSE
2817: IF l_result <> FND_API.G_TRUE THEN
2818: IF g_debug_mode = 'Y'
2819: THEN
2813: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2814: END IF;
2815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2816: ELSE
2817: IF l_result <> FND_API.G_TRUE THEN
2818: IF g_debug_mode = 'Y'
2819: THEN
2820: g_debug_msg := 'CC Update APi Workflow Call begins here ...'||l_result;
2821: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2824: -- ------------------------------------------------------------
2825: -- call to Approval Workflow Procedure
2826: -- ------------------------------------------------------------
2827: IGC_CC_APPROVAL_WF_PKG.Start_Process (p_api_version => 1.0,
2828: p_init_msg_list => FND_API.G_FALSE,
2829: p_commit => FND_API.G_FALSE,
2830: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2831: p_wf_version => 2,
2832: x_return_status => l_return_status,
2825: -- call to Approval Workflow Procedure
2826: -- ------------------------------------------------------------
2827: IGC_CC_APPROVAL_WF_PKG.Start_Process (p_api_version => 1.0,
2828: p_init_msg_list => FND_API.G_FALSE,
2829: p_commit => FND_API.G_FALSE,
2830: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2831: p_wf_version => 2,
2832: x_return_status => l_return_status,
2833: x_msg_count => l_msg_count,
2826: -- ------------------------------------------------------------
2827: IGC_CC_APPROVAL_WF_PKG.Start_Process (p_api_version => 1.0,
2828: p_init_msg_list => FND_API.G_FALSE,
2829: p_commit => FND_API.G_FALSE,
2830: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2831: p_wf_version => 2,
2832: x_return_status => l_return_status,
2833: x_msg_count => l_msg_count,
2834: x_msg_data => l_msg_data,
2847: END IF;
2848:
2849: IGC_CC_APPROVAL_PROCESS.approved_by_preparer (
2850: p_api_version => 1.0,
2851: p_init_msg_list => FND_API.G_FALSE,
2852: p_commit => FND_API.G_FALSE,
2853: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2854: p_return_status => l_return_status,
2855: p_msg_count => l_msg_count,
2848:
2849: IGC_CC_APPROVAL_PROCESS.approved_by_preparer (
2850: p_api_version => 1.0,
2851: p_init_msg_list => FND_API.G_FALSE,
2852: p_commit => FND_API.G_FALSE,
2853: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2854: p_return_status => l_return_status,
2855: p_msg_count => l_msg_count,
2856: p_msg_data => l_msg_data,
2849: IGC_CC_APPROVAL_PROCESS.approved_by_preparer (
2850: p_api_version => 1.0,
2851: p_init_msg_list => FND_API.G_FALSE,
2852: p_commit => FND_API.G_FALSE,
2853: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2854: p_return_status => l_return_status,
2855: p_msg_count => l_msg_count,
2856: p_msg_data => l_msg_data,
2857: p_cc_header_id => l_cc_header_rec.cc_header_id,
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
2909: g_debug_msg := 'CC Update APi Incorrect Update...'||x_msg_data;
2916: ELSE
2917:
2918: IGC_CC_PO_INTERFACE_PKG.UPDATE_PO_APPROVED_FLAG (
2919: p_api_version => 1.0,
2920: p_init_msg_list => FND_API.G_FALSE,
2921: p_commit => FND_API.G_FALSE,
2922: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2923: X_return_status => l_return_status,
2924: X_msg_count => l_msg_count,
2917:
2918: IGC_CC_PO_INTERFACE_PKG.UPDATE_PO_APPROVED_FLAG (
2919: p_api_version => 1.0,
2920: p_init_msg_list => FND_API.G_FALSE,
2921: p_commit => FND_API.G_FALSE,
2922: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2923: X_return_status => l_return_status,
2924: X_msg_count => l_msg_count,
2925: X_msg_data => l_msg_data,
2918: IGC_CC_PO_INTERFACE_PKG.UPDATE_PO_APPROVED_FLAG (
2919: p_api_version => 1.0,
2920: p_init_msg_list => FND_API.G_FALSE,
2921: p_commit => FND_API.G_FALSE,
2922: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2923: X_return_status => l_return_status,
2924: X_msg_count => l_msg_count,
2925: X_msg_data => l_msg_data,
2926: p_cc_header_id => l_cc_header_rec.cc_header_id);
2924: X_msg_count => l_msg_count,
2925: X_msg_data => l_msg_data,
2926: p_cc_header_id => l_cc_header_rec.cc_header_id);
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;
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
2936: g_debug_msg := 'CC Update APi Update PO Approved Flag Not Successful...'||x_msg_data;
2938: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2939: END IF;
2940: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2941: END IF;
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2943:
2944: ELSE
2945:
2946: IF g_debug_mode = 'Y'
2952: -- ------------------------------------------------------------
2953: -- Insert record into table IGC_CC_ACTIONS for action history.
2954: -- ------------------------------------------------------------
2955: IGC_CC_ACTIONS_PKG.Insert_Row (1.0,
2956: FND_API.G_FALSE,
2957: FND_API.G_FALSE,
2958: FND_API.G_VALID_LEVEL_FULL,
2959: l_return_status,
2960: l_msg_count,
2953: -- Insert record into table IGC_CC_ACTIONS for action history.
2954: -- ------------------------------------------------------------
2955: IGC_CC_ACTIONS_PKG.Insert_Row (1.0,
2956: FND_API.G_FALSE,
2957: FND_API.G_FALSE,
2958: FND_API.G_VALID_LEVEL_FULL,
2959: l_return_status,
2960: l_msg_count,
2961: l_msg_data,
2954: -- ------------------------------------------------------------
2955: IGC_CC_ACTIONS_PKG.Insert_Row (1.0,
2956: FND_API.G_FALSE,
2957: FND_API.G_FALSE,
2958: FND_API.G_VALID_LEVEL_FULL,
2959: l_return_status,
2960: l_msg_count,
2961: l_msg_data,
2962: l_row_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
2983: g_debug_msg := 'CC Update APi Action History Insertion Not Successful...'||l_msg_data;
2985: FND_LOG.STRING(g_excep_level, l_full_path,g_debug_msg );
2986: END IF;
2987: --Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
2988: END IF;
2989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2990: ELSE
2991:
2992: IF FND_API.To_Boolean(l_commit) THEN
2993: IF g_debug_mode = 'Y'
2988: END IF;
2989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2990: ELSE
2991:
2992: IF FND_API.To_Boolean(l_commit) THEN
2993: IF g_debug_mode = 'Y'
2994: THEN
2995: g_debug_msg := 'CC Update API Commiting After Successful Commitment Actions Open or Close or On Hold...';
2996: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
3025: -- Exception handler section for the CC_Update_API procedure.
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;
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
3035: CLOSE c_cc_header_state;
3044: CLOSE c_validate_sob_org_combo;
3045: END IF;
3046: -- Bug 3199488
3047: IF ( g_excep_level >= g_debug_level ) THEN
3048: FND_LOG.STRING (g_excep_level,l_full_path,'FND_API.G_EXC_ERROR Exception Raised');
3049: END IF;
3050: -- Bug 3199488
3051: RETURN;
3052:
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
3059: CLOSE c_cc_header_state;
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
3083: CLOSE c_cc_header_state;
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;
3107: END IF;
3160: p_filename_val => NULL,
3161: x_Return_Status => l_Return_Status
3162: );
3163:
3164: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3165: raise FND_API.G_EXC_ERROR;
3166: END IF;
3167: */
3168: IF(g_state_level >= g_debug_level) THEN
3161: x_Return_Status => l_Return_Status
3162: );
3163:
3164: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3165: raise FND_API.G_EXC_ERROR;
3166: END IF;
3167: */
3168: IF(g_state_level >= g_debug_level) THEN
3169: FND_LOG.STRING(g_state_level,p_path, p_debug_msg);
3174: -- Exception handler section for the Output_Debug procedure.
3175: -- --------------------------------------------------------------------
3176: EXCEPTION
3177:
3178: WHEN FND_API.G_EXC_ERROR THEN
3179: RETURN;
3180:
3181: WHEN OTHERS THEN
3182: /*IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3234: l_validation_level NUMBER;
3235: BEGIN
3236: --Added by svaithil for GSCC warnings
3237:
3238: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
3239: l_commit := nvl(p_commit,FND_API.G_FALSE);
3240: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
3241: l_api_name := 'CC_Get_API';
3242: l_api_version := 1.0;
3235: BEGIN
3236: --Added by svaithil for GSCC warnings
3237:
3238: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
3239: l_commit := nvl(p_commit,FND_API.G_FALSE);
3240: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
3241: l_api_name := 'CC_Get_API';
3242: l_api_version := 1.0;
3243:
3236: --Added by svaithil for GSCC warnings
3237:
3238: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
3239: l_commit := nvl(p_commit,FND_API.G_FALSE);
3240: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
3241: l_api_name := 'CC_Get_API';
3242: l_api_version := 1.0;
3243:
3244: -- -------------------------------------------------------------------
3245: -- Initialize the return values
3246: -- -------------------------------------------------------------------
3247: x_cc_header_id := NULL;
3248: x_cc_ref_num := NULL;
3249: x_return_status := FND_API.G_RET_STS_SUCCESS;
3250: x_msg_data := NULL;
3251: x_msg_count := 0;
3252: l_full_path := g_path||'cc_get_API';
3253: -- -------------------------------------------------------------------
3254: -- Setup Debug info for API usage if needed.
3255: -- -------------------------------------------------------------------
3256: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
3257: -- IF (l_debug = 'Y') THEN
3258: -- l_debug := FND_API.G_TRUE;
3259: -- ELSE
3260: -- l_debug := FND_API.G_FALSE;
3261: -- END IF;
3262: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
3256: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
3257: -- IF (l_debug = 'Y') THEN
3258: -- l_debug := FND_API.G_TRUE;
3259: -- ELSE
3260: -- l_debug := FND_API.G_FALSE;
3261: -- END IF;
3262: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
3263:
3264: -- -------------------------------------------------------------------
3258: -- l_debug := FND_API.G_TRUE;
3259: -- ELSE
3260: -- l_debug := FND_API.G_FALSE;
3261: -- END IF;
3262: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
3263:
3264: -- -------------------------------------------------------------------
3265: -- Make sure that the appropriate version is being used
3266: -- -------------------------------------------------------------------
3263:
3264: -- -------------------------------------------------------------------
3265: -- Make sure that the appropriate version is being used
3266: -- -------------------------------------------------------------------
3267: IF (NOT FND_API.Compatible_API_Call ( l_api_version,
3268: p_api_version,
3269: l_api_name,
3270: G_PKG_NAME )) THEN
3271: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
3267: IF (NOT FND_API.Compatible_API_Call ( l_api_version,
3268: p_api_version,
3269: l_api_name,
3270: G_PKG_NAME )) THEN
3271: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
3272: END IF;
3273:
3274: -- -------------------------------------------------------------------
3275: -- Make sure that if the message stack is to be initialized it is.
3273:
3274: -- -------------------------------------------------------------------
3275: -- Make sure that if the message stack is to be initialized it is.
3276: -- -------------------------------------------------------------------
3277: IF (FND_API.to_Boolean ( l_init_msg_list )) THEN
3278: FND_MSG_PUB.initialize ;
3279: END IF;
3280:
3281: -- -------------------------------------------------------------------
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;
3299:
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;
3321:
3337:
3338: EXCEPTION
3339:
3340: WHEN OTHERS THEN
3341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3342: x_cc_header_id := NULL;
3343: x_cc_ref_num := NULL;
3344: IF (c_check_cc_num%ISOPEN) THEN
3345: CLOSE c_check_cc_num;
3423: BEGIN
3424:
3425: --Added by svaithil for GSCC warnings
3426:
3427: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
3428: l_commit := nvl(p_commit,FND_API.G_FALSE);
3429: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
3430: l_api_name := 'CC_Link_API';
3431: l_api_version := 1.0;
3424:
3425: --Added by svaithil for GSCC warnings
3426:
3427: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
3428: l_commit := nvl(p_commit,FND_API.G_FALSE);
3429: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
3430: l_api_name := 'CC_Link_API';
3431: l_api_version := 1.0;
3432: -- -------------------------------------------------------------------
3425: --Added by svaithil for GSCC warnings
3426:
3427: l_init_msg_list := nvl(p_init_msg_list,FND_API.G_FALSE);
3428: l_commit := nvl(p_commit,FND_API.G_FALSE);
3429: l_validation_level := nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL);
3430: l_api_name := 'CC_Link_API';
3431: l_api_version := 1.0;
3432: -- -------------------------------------------------------------------
3433: -- Initialize the return values
3431: l_api_version := 1.0;
3432: -- -------------------------------------------------------------------
3433: -- Initialize the return values
3434: -- -------------------------------------------------------------------
3435: x_return_status := FND_API.G_RET_STS_SUCCESS;
3436: x_msg_data := NULL;
3437: x_msg_count := 0;
3438:
3439: SAVEPOINT CC_Link_API_PT;
3443: -- Setup Debug info for API usage if needed.
3444: -- -------------------------------------------------------------------
3445: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
3446: -- IF (l_debug = 'Y') THEN
3447: -- l_debug := FND_API.G_TRUE;
3448: -- ELSE
3449: -- l_debug := FND_API.G_FALSE;
3450: -- END IF;
3451: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
3445: -- l_debug := FND_PROFILE.VALUE('IGC_DEBUG_ENABLED');
3446: -- IF (l_debug = 'Y') THEN
3447: -- l_debug := FND_API.G_TRUE;
3448: -- ELSE
3449: -- l_debug := FND_API.G_FALSE;
3450: -- END IF;
3451: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
3452:
3453: -- --------------------------------------------------------------------
3447: -- l_debug := FND_API.G_TRUE;
3448: -- ELSE
3449: -- l_debug := FND_API.G_FALSE;
3450: -- END IF;
3451: -- IGC_MSGS_PKG.g_debug_mode := FND_API.TO_BOOLEAN(l_debug);
3452:
3453: -- --------------------------------------------------------------------
3454: -- Make sure that the appropriate version is being used
3455: -- --------------------------------------------------------------------
3452:
3453: -- --------------------------------------------------------------------
3454: -- Make sure that the appropriate version is being used
3455: -- --------------------------------------------------------------------
3456: IF (NOT FND_API.Compatible_API_Call ( l_api_version,
3457: p_api_version,
3458: l_api_name,
3459: G_PKG_NAME )) THEN
3460: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
3456: IF (NOT FND_API.Compatible_API_Call ( l_api_version,
3457: p_api_version,
3458: l_api_name,
3459: G_PKG_NAME )) THEN
3460: raise FND_API.G_EXC_UNEXPECTED_ERROR ;
3461: END IF;
3462:
3463: -- --------------------------------------------------------------------
3464: -- Make sure that if the message stack is to be initialized it is.
3462:
3463: -- --------------------------------------------------------------------
3464: -- Make sure that if the message stack is to be initialized it is.
3465: -- --------------------------------------------------------------------
3466: IF (FND_API.to_Boolean ( l_init_msg_list )) THEN
3467: FND_MSG_PUB.initialize ;
3468: END IF;
3469:
3470: -- -------------------------------------------------------------------
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
3488:
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
3507:
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;
3537:
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;
3551:
3555:
3556: -- --------------------------------------------------------------------
3557: -- Committing the record based on the value passed as a parameter.
3558: -- --------------------------------------------------------------------
3559: IF FND_API.To_Boolean(l_commit) THEN
3560: IF g_debug_mode = 'Y'
3561: THEN
3562: g_debug_msg := 'CC Link API Commiting After Successful Link...';
3563: Output_Debug( l_full_path,p_debug_msg => g_debug_msg);
3582:
3583: EXCEPTION
3584:
3585: WHEN OTHERS THEN
3586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3587: IF (c_check_cc_num%ISOPEN) THEN
3588: CLOSE c_check_cc_num;
3589: END IF;
3590: IF (c_check_dup_ref_num%ISOPEN) THEN
3658: l_resp_csr_rec l_resp_csr%ROWTYPE;
3659:
3660: BEGIN
3661: -- Standard Api compatibility call
3662: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3663: p_api_version_number ,
3664: l_api_name ,
3665: G_PKG_NAME )
3666: THEN
3663: p_api_version_number ,
3664: l_api_name ,
3665: G_PKG_NAME )
3666: THEN
3667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3668: END IF;
3669:
3670: x_return_status := FND_API.G_RET_STS_SUCCESS;
3671:
3666: THEN
3667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3668: END IF;
3669:
3670: x_return_status := FND_API.G_RET_STS_SUCCESS;
3671:
3672:
3673: -- Ensure the responsibility id passed is valid
3674: IF p_responsibility_id IS NULL 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;
3682: END IF;
3683:
3684: OPEN l_resp_csr;
3685: FETCH l_resp_csr INTO l_dummy;
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;
3693: ELSE
3694: CLOSE l_resp_csr;
3695: END IF;
3696:
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;
3706: END IF;
3707:
3708:
3709: OPEN l_user_csr ;
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;
3718: ELSE
3719: CLOSE l_user_csr; END IF;
3720:
3721:
3737:
3738: IF l_operating_unit_id IS NULL THEN
3739: FND_MSG_PUB.Initialize;
3740:
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');
3751: else
3752: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_operating_unit_id);
3753: END IF;
3754:
3755: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3756: RAISE FND_API.G_EXC_ERROR ;
3757: END IF ;
3758:
3759: -- -----------------------------------------------------------------------------
3752: MO_GLOBAL.SET_POLICY_CONTEXT('S',l_operating_unit_id);
3753: END IF;
3754:
3755: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3756: RAISE FND_API.G_EXC_ERROR ;
3757: END IF ;
3758:
3759: -- -----------------------------------------------------------------------------
3760:
3760:
3761:
3762: EXCEPTION
3763:
3764: WHEN FND_API.G_EXC_ERROR
3765: THEN
3766:
3767: x_return_status := FND_API.G_RET_STS_ERROR;
3768:
3763:
3764: WHEN FND_API.G_EXC_ERROR
3765: THEN
3766:
3767: x_return_status := FND_API.G_RET_STS_ERROR;
3768:
3769: FND_MSG_PUB.Count_And_Get
3770: ( p_count => x_msg_count ,
3771: p_data => x_msg_data );
3769: FND_MSG_PUB.Count_And_Get
3770: ( p_count => x_msg_count ,
3771: p_data => x_msg_data );
3772:
3773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3774: THEN
3775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3776:
3777: FND_MSG_PUB.Count_And_Get
3771: p_data => x_msg_data );
3772:
3773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3774: THEN
3775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3776:
3777: FND_MSG_PUB.Count_And_Get
3778: ( p_count => x_msg_count ,
3779: p_data => x_msg_data );
3780:
3781: WHEN OTHERS
3782: THEN
3783:
3784: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3785:
3786: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3787: THEN
3788: FND_MSG_PUB.add_exc_msg