DBA Data[Home] [Help]

APPS.IGC_CBC_PO_YEAR_END_PKG dependencies on FND_API

Line 94: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN

90: p_sub_comp => l_sub_comp,
91: p_filename_val => NULL,
92: x_Return_Status => l_Return_Status
93: );
94: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
95: fnd_file.put_line(fnd_file.log,'g_exc_error');
96: raise FND_API.G_EXC_ERROR;
97: END IF;
98:

Line 96: raise FND_API.G_EXC_ERROR;

92: x_Return_Status => l_Return_Status
93: );
94: IF (l_Return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
95: fnd_file.put_line(fnd_file.log,'g_exc_error');
96: raise FND_API.G_EXC_ERROR;
97: END IF;
98:
99: RETURN;
100:

Line 106: WHEN FND_API.G_EXC_ERROR THEN

102: -- Exception handler section for the Put_Debug_Msg procedure.
103: -- --------------------------------------------------------------------
104: EXCEPTION
105:
106: WHEN FND_API.G_EXC_ERROR THEN
107: RETURN;
108:
109: WHEN OTHERS THEN
110: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN

Line 132: -- Returns Fnd_Api.G_True for success, otherwise G_False

128: -- p_document_id Id of document
129: --
130: -- OUT Parameters
131: -- --------------
132: -- Returns Fnd_Api.G_True for success, otherwise G_False
133: --
134: FUNCTION Lock_Documents(p_document_type IN VARCHAR2,
135: p_document_id IN NUMBER
136: ) RETURN VARCHAR2 AS

Line 288: RETURN FND_API.G_RET_STS_SUCCESS;

284: END LOOP;
285: END IF; -- p_document_type = 'PO'
286:
287: IF l_exception = FALSE THEN
288: RETURN FND_API.G_RET_STS_SUCCESS;
289: ELSE
290: RETURN FND_API.G_RET_STS_ERROR;
291: END IF;
292:

Line 290: RETURN FND_API.G_RET_STS_ERROR;

286:
287: IF l_exception = FALSE THEN
288: RETURN FND_API.G_RET_STS_SUCCESS;
289: ELSE
290: RETURN FND_API.G_RET_STS_ERROR;
291: END IF;
292:
293:
294: EXCEPTION

Line 766: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

762: -- l_con_enc_type_id NUMBER := 0 ;
763: -- l_prv_enc_flag VARCHAR2(1) := 'N' ;
764: -- l_con_enc_flag VARCHAR2(1) := 'N' ;
765: l_sql_string VARCHAR2(100) := null ;
766: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
767: l_msg_count NUMBER := 0 ;
768: l_msg_data VARCHAR2(2000) := null ;
769: l_err_code VARCHAR2(100) := null ;
770:

Line 796: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

792: ,x_msg_data => l_msg_data
793: ,x_cbc_enabled => l_cbc_enabled
794: ) ;
795:
796: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
797: THEN
798: -- if update unsuccessful report errors
799: l_msg_data := '';
800: For j in 1..NVL(l_msg_count,0) LOOP

Line 1591: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;

1587:
1588: c_valid_dist c_valid_dist_type;
1589:
1590: l_msg_data VARCHAR2(2000) := null ;
1591: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
1592:
1593: l_full_path VARCHAR2(500) := g_path||'Validate_Distributions';
1594: BEGIN
1595:

Line 1661: RETURN FND_API.G_RET_STS_SUCCESS;

1657: ELSE
1658: IF (g_debug_mode = 'Y') THEN
1659: Put_Debug_Msg (l_full_path,p_debug_msg => 'No distributions for this document type');
1660: END IF;
1661: RETURN FND_API.G_RET_STS_SUCCESS;
1662: END IF; -- p_document_type = 'PO' and p_document_subtype = 'STANDARD'
1663:
1664: -- fetch distributions in batches determined by user parameter
1665: LOOP

Line 1708: l_return_status := FND_API.G_RET_STS_ERROR;

1704: p_line_id => l_valid_dist_rec.line_id(l_index),
1705: p_line_location_id => l_valid_dist_rec.line_location_id(l_index),
1706: p_distribution_id => l_valid_dist_rec.distribution_id(l_index)
1707: );
1708: l_return_status := FND_API.G_RET_STS_ERROR;
1709: ELSE
1710: EXIT;
1711: END IF; -- result_error_code(l_index) IS NOT NULL
1712: END LOOP;

Line 3195: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

3191: TYPE c_prev_val_type IS REF CURSOR ;
3192:
3193: c_prev_val c_prev_val_type ;
3194:
3195: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3196: l_msg_count NUMBER := 0;
3197: l_msg_data VARCHAR2(2000) := null ;
3198: l_info_request VARCHAR2(25) := null ;
3199: l_document_status VARCHAR2(240) := null ;

Line 3288: p_init_msg_list => FND_API.G_FALSE,

3284: p_document_type => p_document_type,
3285: p_document_sub_type => p_document_subtype,
3286: p_cbc_acct_date => p_prev_year_end_date,
3287: p_api_version => 1,
3288: p_init_msg_list => FND_API.G_FALSE,
3289: p_commit => FND_API.G_FALSE,
3290: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3291: x_return_status => l_return_status,
3292: x_msg_count => l_msg_count,

Line 3289: p_commit => FND_API.G_FALSE,

3285: p_document_sub_type => p_document_subtype,
3286: p_cbc_acct_date => p_prev_year_end_date,
3287: p_api_version => 1,
3288: p_init_msg_list => FND_API.G_FALSE,
3289: p_commit => FND_API.G_FALSE,
3290: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3291: x_return_status => l_return_status,
3292: x_msg_count => l_msg_count,
3293: x_msg_data => l_msg_data

Line 3290: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

3286: p_cbc_acct_date => p_prev_year_end_date,
3287: p_api_version => 1,
3288: p_init_msg_list => FND_API.G_FALSE,
3289: p_commit => FND_API.G_FALSE,
3290: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3291: x_return_status => l_return_status,
3292: x_msg_count => l_msg_count,
3293: x_msg_data => l_msg_data
3294: );

Line 3300: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

3296: Put_Debug_Msg (l_full_path,p_debug_msg => 'Completed Update CBC Acct Date');
3297: END IF;
3298:
3299: -- if update unsuccessful then report errors and terminate processing with errors.
3300: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3301: THEN
3302: l_msg_data := '';
3303: For j in 1..NVL(l_msg_count,0) LOOP
3304: l_msg_data := FND_MSG_PUB.Get(p_msg_index => j,

Line 3315: END IF; -- l_return_status <> fnd_api.g_ret_sts_success

3311: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_ACCT_DATE_UPD_ERR');
3312: x_msg_buf := FND_MESSAGE.get ;
3313: RETURN;
3314: END LOOP;
3315: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3316:
3317: -- set document_type for use in PO funds checker
3318: IF p_document_type = 'REQ'
3319: THEN

Line 3400: p_init_msg_list => FND_API.G_FALSE,

3396: p_document_type => p_document_type,
3397: p_document_sub_type => p_document_subtype,
3398: p_cbc_acct_date => p_prev_cbc_acct_date,
3399: p_api_version => 1,
3400: p_init_msg_list => FND_API.G_FALSE,
3401: p_commit => FND_API.G_FALSE,
3402: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3403: x_return_status => l_return_status,
3404: x_msg_count => l_msg_count,

Line 3401: p_commit => FND_API.G_FALSE,

3397: p_document_sub_type => p_document_subtype,
3398: p_cbc_acct_date => p_prev_cbc_acct_date,
3399: p_api_version => 1,
3400: p_init_msg_list => FND_API.G_FALSE,
3401: p_commit => FND_API.G_FALSE,
3402: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3403: x_return_status => l_return_status,
3404: x_msg_count => l_msg_count,
3405: x_msg_data => l_msg_data

Line 3402: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

3398: p_cbc_acct_date => p_prev_cbc_acct_date,
3399: p_api_version => 1,
3400: p_init_msg_list => FND_API.G_FALSE,
3401: p_commit => FND_API.G_FALSE,
3402: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3403: x_return_status => l_return_status,
3404: x_msg_count => l_msg_count,
3405: x_msg_data => l_msg_data
3406: );

Line 3411: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

3407:
3408: IF (g_debug_mode = 'Y') THEN
3409: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed Update CBC Acct Date - Unreserve failure');
3410: END IF;
3411: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3412: THEN
3413: -- if update unsuccessful report errors
3414: l_msg_data := '';
3415: For j in 1..NVL(l_msg_count,0) LOOP

Line 3423: END IF; -- l_return_status <> fnd_api.g_ret_sts_success

3419: p_exception_code => l_return_status,
3420: p_document_type => p_document_type,
3421: p_document_id => p_document_id);
3422: END LOOP;
3423: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3424:
3425: -- commit updates
3426: COMMIT ;
3427:

Line 3445: p_document_id => p_document_id) <> FND_API.G_RET_STS_SUCCESS

3441: -- here ourselves, so as not to invalidate the following lock.
3442: COMMIT;
3443: -- Lock the document and children
3444: IF Lock_Documents(p_document_type => p_document_type,
3445: p_document_id => p_document_id) <> FND_API.G_RET_STS_SUCCESS
3446: THEN
3447: -- if unable to relock doc report error and do not process this doc any further
3448: l_err_code := 'IGC_PO_YEP_RELOCK_DOCUMENT';
3449: FND_MESSAGE.set_name('IGC',l_err_code);

Line 3527: p_init_msg_list => FND_API.G_FALSE,

3523: p_document_type => p_document_type,
3524: p_document_sub_type => p_document_subtype,
3525: p_cbc_acct_date => p_curr_year_start_date,
3526: p_api_version => 1,
3527: p_init_msg_list => FND_API.G_FALSE,
3528: p_commit => FND_API.G_FALSE,
3529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3530: x_return_status => l_return_status,
3531: x_msg_count => l_msg_count,

Line 3528: p_commit => FND_API.G_FALSE,

3524: p_document_sub_type => p_document_subtype,
3525: p_cbc_acct_date => p_curr_year_start_date,
3526: p_api_version => 1,
3527: p_init_msg_list => FND_API.G_FALSE,
3528: p_commit => FND_API.G_FALSE,
3529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3530: x_return_status => l_return_status,
3531: x_msg_count => l_msg_count,
3532: x_msg_data => l_msg_data

Line 3529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

3525: p_cbc_acct_date => p_curr_year_start_date,
3526: p_api_version => 1,
3527: p_init_msg_list => FND_API.G_FALSE,
3528: p_commit => FND_API.G_FALSE,
3529: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3530: x_return_status => l_return_status,
3531: x_msg_count => l_msg_count,
3532: x_msg_data => l_msg_data
3533: );

Line 3538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

3534: IF (g_debug_mode = 'Y') THEN
3535: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed Update CBC Acct Date - current year');
3536: END IF;
3537:
3538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3539: THEN
3540: -- if update unsuccessful rollback the transaction, report errors and terminate processing with error
3541: Rollback ;
3542: l_msg_data := '';

Line 3554: END IF; -- l_return_status <> fnd_api.g_ret_sts_success

3550: END LOOP;
3551: x_return_code := 2;
3552: FND_MESSAGE.set_name('IGC','IGC_PO_YEP_ACCT_DATE_UPD_ERR');
3553: x_msg_buf := FND_MESSAGE.get;
3554: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
3555:
3556:
3557:
3558: -- we need to commit, as the PO funds checker is called as an autonomous transaction, so if we

Line 3619: p_document_id => p_document_id) <> FND_API.G_RET_STS_SUCCESS

3615:
3616: -- as the funds check will have released the locks on the document, we need to relock
3617: -- Lock the document and children
3618: IF Lock_Documents(p_document_type => p_document_type,
3619: p_document_id => p_document_id) <> FND_API.G_RET_STS_SUCCESS
3620: THEN
3621: -- if unable to relock doc report error and do not process this doc any further
3622: l_err_code := 'IGC_PO_YEP_RELOCK_DOCUMENT';
3623: FND_MESSAGE.set_name('IGC',l_err_code);

Line 3641: p_init_msg_list => FND_API.G_FALSE,

3637: p_document_type => p_document_type,
3638: p_document_sub_type => p_document_subtype,
3639: p_cbc_acct_date => p_prev_year_end_date,
3640: p_api_version => 1,
3641: p_init_msg_list => FND_API.G_FALSE,
3642: p_commit => FND_API.G_FALSE,
3643: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3644: x_return_status => l_return_status,
3645: x_msg_count => l_msg_count,

Line 3642: p_commit => FND_API.G_FALSE,

3638: p_document_sub_type => p_document_subtype,
3639: p_cbc_acct_date => p_prev_year_end_date,
3640: p_api_version => 1,
3641: p_init_msg_list => FND_API.G_FALSE,
3642: p_commit => FND_API.G_FALSE,
3643: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3644: x_return_status => l_return_status,
3645: x_msg_count => l_msg_count,
3646: x_msg_data => l_msg_data

Line 3643: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

3639: p_cbc_acct_date => p_prev_year_end_date,
3640: p_api_version => 1,
3641: p_init_msg_list => FND_API.G_FALSE,
3642: p_commit => FND_API.G_FALSE,
3643: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3644: x_return_status => l_return_status,
3645: x_msg_count => l_msg_count,
3646: x_msg_data => l_msg_data
3647: );

Line 3652: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

3648: IF (g_debug_mode = 'Y') THEN
3649: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed Update CBC Acct Date - Reserve failure');
3650: END IF;
3651:
3652: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3653: THEN
3654: -- if update unsuccessful then report errors
3655: l_msg_data := '';
3656: For j in 1..NVL(l_msg_count,0) LOOP

Line 3664: END IF; -- l_return_status <> fnd_api.g_ret_stst_success

3660: p_exception_code => l_return_status,
3661: p_document_type => p_document_type,
3662: p_document_id => p_document_id);
3663: END LOOP;
3664: END IF; -- l_return_status <> fnd_api.g_ret_stst_success
3665:
3666: -- As reserve funds has failed, reset the GL dates of all distributions related to the document
3667: IF p_document_type = 'REQ'
3668: THEN

Line 3964: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

3960: l_release c_get_releases%ROWTYPE ;
3961: l_po c_get_po_headers%ROWTYPE ;
3962: l_requisition c_get_requisitions%ROWTYPE ;
3963: l_bpa c_get_po_headers%ROWTYPE ;
3964: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3965: l_found_error VARCHAR2(1) ;
3966: l_found_future VARCHAR2(1) ;
3967: l_msg_data VARCHAR2(2000) := null ;
3968: l_err_code VARCHAR2(100) := null ;

Line 3991: p_document_id => p_po_release_id) <> FND_API.G_RET_STS_SUCCESS

3987: THEN
3988: SAVEPOINT savepoint_release ;
3989: -- Attempt to lock the entire document, i.e. header, shipments, distributions
3990: IF Lock_Documents(p_document_type => p_document_type,
3991: p_document_id => p_po_release_id) <> FND_API.G_RET_STS_SUCCESS
3992: THEN
3993: -- if unable to lock doc, then report error and do not process this doc any further
3994: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
3995: FND_MESSAGE.set_name('IGC',l_err_code);

Line 4074: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

4070: IF (g_debug_mode = 'Y') THEN
4071: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed Validate Distributions');
4072: END IF;
4073:
4074: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4075: THEN
4076: -- if not valid then do not process this document any further
4077: IF p_process_phase = 'F'
4078: THEN

Line 4083: END IF; -- l_return_status <> fnd_api.g_ret_sts_success

4079: ROLLBACK TO savepoint_release;
4080: END IF;
4081: x_return_code := -99;
4082: RETURN ;
4083: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
4084:
4085: -- if in Final Mode, process the document
4086: IF p_process_phase = 'F'
4087: THEN

Line 4134: p_document_id => p_po_header_id) <> FND_API.G_RET_STS_SUCCESS

4130: THEN
4131: SAVEPOINT savepoint_po ;
4132: --lock document incl child records
4133: IF Lock_Documents(p_document_type => p_document_type,
4134: p_document_id => p_po_header_id) <> FND_API.G_RET_STS_SUCCESS
4135: THEN
4136: -- if unable to lock doc then do not process this doc any further
4137: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4138: FND_MESSAGE.set_name('IGC',l_err_code);

Line 4275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

4271: );
4272: IF (g_debug_mode = 'Y') THEN
4273: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed Validate Distributions');
4274: END IF;
4275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4276: THEN
4277: -- If distributions invalid report error and do not process this doc any further
4278: IF p_process_phase = 'F'
4279: THEN

Line 4284: END IF; -- l_return_status <> fnd_api.g_ret_sts_success

4280: ROLLBACK TO savepoint_po ;
4281: END IF;
4282: x_return_code := -99;
4283: RETURN ;
4284: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
4285:
4286: -- IF in Final Mode process the document
4287: IF p_process_phase = 'F'
4288: THEN

Line 4336: p_document_id => p_req_header_id) <> FND_API.G_RET_STS_SUCCESS

4332: THEN
4333: SAVEPOINT savepoint_requisition ;
4334: --lock document incl child records
4335: IF Lock_Documents(p_document_type => p_document_type,
4336: p_document_id => p_req_header_id) <> FND_API.G_RET_STS_SUCCESS
4337: THEN
4338: -- if unable to lock doc then report error and do not process this doc any further
4339: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4340: FND_MESSAGE.set_name('IGC',l_err_code);

Line 4453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS

4449: IF (g_debug_mode = 'Y') THEN
4450: Put_Debug_Msg (l_full_path,p_debug_msg => 'completed validate distributions');
4451: END IF;
4452:
4453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4454: THEN
4455: -- If distributions invalid then report error and do not process this doc any further
4456: IF p_process_phase = 'F'
4457: THEN

Line 4462: END IF; -- l_return_status <> fnd_api.g_ret_sts_success

4458: ROLLBACK TO savepoint_requisition ;
4459: END IF;
4460: x_return_code := -99;
4461: RETURN ;
4462: END IF; -- l_return_status <> fnd_api.g_ret_sts_success
4463:
4464:
4465: -- if in Final Mode then process the requisition
4466: IF p_process_phase = 'F'

Line 4518: p_document_id => p_po_header_id) <> FND_API.G_RET_STS_SUCCESS

4514: THEN
4515: SAVEPOINT savepoint_BPA ;
4516: --lock document incl child records
4517: IF Lock_Documents(p_document_type => p_document_type,
4518: p_document_id => p_po_header_id) <> FND_API.G_RET_STS_SUCCESS
4519: THEN
4520: -- if unable to lock doc then report error and do not process this doc any further
4521: l_err_code := 'IGC_PO_YEP_LOCK_DOCUMENT';
4522: FND_MESSAGE.set_name('IGC',l_err_code);