6616: IF p_installment IS NOT NULL THEN
6617: l_sel_stmt := l_sel_stmt || ' and ps.terms_sequence_number = :inst ';
6618: END IF;
6619:
6620: trx_customer := dbms_sql.open_cursor;
6621: dbms_sql.parse(trx_customer, l_sel_stmt, dbms_sql.v7);
6622: /* Bugfix 2605347 */
6623: dbms_sql.bind_variable(trx_customer,':pg_profile_enable_cc', pg_profile_enable_cc);
6624: dbms_sql.bind_variable(trx_customer,':p_currency_code', p_currency_code);
6617: l_sel_stmt := l_sel_stmt || ' and ps.terms_sequence_number = :inst ';
6618: END IF;
6619:
6620: trx_customer := dbms_sql.open_cursor;
6621: dbms_sql.parse(trx_customer, l_sel_stmt, dbms_sql.v7);
6622: /* Bugfix 2605347 */
6623: dbms_sql.bind_variable(trx_customer,':pg_profile_enable_cc', pg_profile_enable_cc);
6624: dbms_sql.bind_variable(trx_customer,':p_currency_code', p_currency_code);
6625: IF p_applied_payment_schedule_id IS NOT NULL THEN
6619:
6620: trx_customer := dbms_sql.open_cursor;
6621: dbms_sql.parse(trx_customer, l_sel_stmt, dbms_sql.v7);
6622: /* Bugfix 2605347 */
6623: dbms_sql.bind_variable(trx_customer,':pg_profile_enable_cc', pg_profile_enable_cc);
6624: dbms_sql.bind_variable(trx_customer,':p_currency_code', p_currency_code);
6625: IF p_applied_payment_schedule_id IS NOT NULL THEN
6626: dbms_sql.bind_variable(trx_customer,':applied_ps_id',p_applied_payment_schedule_id);
6627: END IF;
6620: trx_customer := dbms_sql.open_cursor;
6621: dbms_sql.parse(trx_customer, l_sel_stmt, dbms_sql.v7);
6622: /* Bugfix 2605347 */
6623: dbms_sql.bind_variable(trx_customer,':pg_profile_enable_cc', pg_profile_enable_cc);
6624: dbms_sql.bind_variable(trx_customer,':p_currency_code', p_currency_code);
6625: IF p_applied_payment_schedule_id IS NOT NULL THEN
6626: dbms_sql.bind_variable(trx_customer,':applied_ps_id',p_applied_payment_schedule_id);
6627: END IF;
6628: IF p_customer_trx_id IS NOT NULL THEN
6622: /* Bugfix 2605347 */
6623: dbms_sql.bind_variable(trx_customer,':pg_profile_enable_cc', pg_profile_enable_cc);
6624: dbms_sql.bind_variable(trx_customer,':p_currency_code', p_currency_code);
6625: IF p_applied_payment_schedule_id IS NOT NULL THEN
6626: dbms_sql.bind_variable(trx_customer,':applied_ps_id',p_applied_payment_schedule_id);
6627: END IF;
6628: IF p_customer_trx_id IS NOT NULL THEN
6629: dbms_sql.bind_variable(trx_customer, ':cust_trx_id', p_customer_trx_id);
6630: END IF;
6625: IF p_applied_payment_schedule_id IS NOT NULL THEN
6626: dbms_sql.bind_variable(trx_customer,':applied_ps_id',p_applied_payment_schedule_id);
6627: END IF;
6628: IF p_customer_trx_id IS NOT NULL THEN
6629: dbms_sql.bind_variable(trx_customer, ':cust_trx_id', p_customer_trx_id);
6630: END IF;
6631: IF p_installment IS NOT NULL THEN
6632: dbms_sql.bind_variable(trx_customer, ':inst', p_installment);
6633: END IF;
6628: IF p_customer_trx_id IS NOT NULL THEN
6629: dbms_sql.bind_variable(trx_customer, ':cust_trx_id', p_customer_trx_id);
6630: END IF;
6631: IF p_installment IS NOT NULL THEN
6632: dbms_sql.bind_variable(trx_customer, ':inst', p_installment);
6633: END IF;
6634: dbms_sql.define_column(trx_customer,1,p_customer_id);
6635: dbms_sql.define_column(trx_customer,2,p_customer_site_use_id);
6636: -- End of bug 1907635
6630: END IF;
6631: IF p_installment IS NOT NULL THEN
6632: dbms_sql.bind_variable(trx_customer, ':inst', p_installment);
6633: END IF;
6634: dbms_sql.define_column(trx_customer,1,p_customer_id);
6635: dbms_sql.define_column(trx_customer,2,p_customer_site_use_id);
6636: -- End of bug 1907635
6637:
6638: p_return_status := FND_API.G_RET_STS_SUCCESS;
6631: IF p_installment IS NOT NULL THEN
6632: dbms_sql.bind_variable(trx_customer, ':inst', p_installment);
6633: END IF;
6634: dbms_sql.define_column(trx_customer,1,p_customer_id);
6635: dbms_sql.define_column(trx_customer,2,p_customer_site_use_id);
6636: -- End of bug 1907635
6637:
6638: p_return_status := FND_API.G_RET_STS_SUCCESS;
6639: l_customer_trx_id := p_customer_trx_id;
6647: IF p_applied_payment_schedule_id IS NOT NULL AND
6648: l_customer_trx_id IS NULL AND
6649: p_installment IS NULL THEN
6650: -- Bug 1907635
6651: l_rows_processed := dbms_sql.execute(trx_customer);
6652: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6653: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6654: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6655: ELSE
6648: l_customer_trx_id IS NULL AND
6649: p_installment IS NULL THEN
6650: -- Bug 1907635
6651: l_rows_processed := dbms_sql.execute(trx_customer);
6652: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6653: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6654: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6655: ELSE
6656: p_return_status := FND_API.G_RET_STS_ERROR;
6649: p_installment IS NULL THEN
6650: -- Bug 1907635
6651: l_rows_processed := dbms_sql.execute(trx_customer);
6652: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6653: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6654: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6655: ELSE
6656: p_return_status := FND_API.G_RET_STS_ERROR;
6657: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6650: -- Bug 1907635
6651: l_rows_processed := dbms_sql.execute(trx_customer);
6652: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6653: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6654: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6655: ELSE
6656: p_return_status := FND_API.G_RET_STS_ERROR;
6657: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6658: FND_MSG_PUB.Add;
6656: p_return_status := FND_API.G_RET_STS_ERROR;
6657: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6658: FND_MSG_PUB.Add;
6659: END IF;
6660: dbms_sql.close_cursor(trx_customer);
6661: -- End Bug 1907635
6662: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6663: l_customer_trx_id IS NOT NULL AND
6664: p_installment IS NOT NULL THEN
6662: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6663: l_customer_trx_id IS NOT NULL AND
6664: p_installment IS NOT NULL THEN
6665: -- Bug 1907635
6666: l_rows_processed := dbms_sql.execute(trx_customer);
6667: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6668: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6669: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6670: ELSE
6663: l_customer_trx_id IS NOT NULL AND
6664: p_installment IS NOT NULL THEN
6665: -- Bug 1907635
6666: l_rows_processed := dbms_sql.execute(trx_customer);
6667: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6668: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6669: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6670: ELSE
6671: p_return_status := FND_API.G_RET_STS_ERROR;
6664: p_installment IS NOT NULL THEN
6665: -- Bug 1907635
6666: l_rows_processed := dbms_sql.execute(trx_customer);
6667: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6668: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6669: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6670: ELSE
6671: p_return_status := FND_API.G_RET_STS_ERROR;
6672: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_PS_NOT_DEF_CUS');
6665: -- Bug 1907635
6666: l_rows_processed := dbms_sql.execute(trx_customer);
6667: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6668: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6669: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6670: ELSE
6671: p_return_status := FND_API.G_RET_STS_ERROR;
6672: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_PS_NOT_DEF_CUS');
6673: FND_MSG_PUB.Add;
6671: p_return_status := FND_API.G_RET_STS_ERROR;
6672: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_PS_NOT_DEF_CUS');
6673: FND_MSG_PUB.Add;
6674: END IF;
6675: dbms_sql.close_cursor(trx_customer);
6676: -- End Bug 1907635
6677: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6678: l_customer_trx_id IS NOT NULL AND
6679: p_installment IS NULL THEN
6677: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6678: l_customer_trx_id IS NOT NULL AND
6679: p_installment IS NULL THEN
6680: -- Bug 1907635
6681: l_rows_processed := dbms_sql.execute(trx_customer);
6682: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6683: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6684: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6685: ELSE
6678: l_customer_trx_id IS NOT NULL AND
6679: p_installment IS NULL THEN
6680: -- Bug 1907635
6681: l_rows_processed := dbms_sql.execute(trx_customer);
6682: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6683: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6684: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6685: ELSE
6686: p_return_status := FND_API.G_RET_STS_ERROR;
6679: p_installment IS NULL THEN
6680: -- Bug 1907635
6681: l_rows_processed := dbms_sql.execute(trx_customer);
6682: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6683: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6684: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6685: ELSE
6686: p_return_status := FND_API.G_RET_STS_ERROR;
6687: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_PS_NOT_DEF_CUS');
6680: -- Bug 1907635
6681: l_rows_processed := dbms_sql.execute(trx_customer);
6682: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6683: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6684: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6685: ELSE
6686: p_return_status := FND_API.G_RET_STS_ERROR;
6687: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_PS_NOT_DEF_CUS');
6688: FND_MSG_PUB.Add;
6686: p_return_status := FND_API.G_RET_STS_ERROR;
6687: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_PS_NOT_DEF_CUS');
6688: FND_MSG_PUB.Add;
6689: END IF;
6690: dbms_sql.close_cursor(trx_customer);
6691: -- End Bug 1907635
6692: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6693: l_customer_trx_id IS NULL AND
6694: p_installment IS NOT NULL THEN
6692: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6693: l_customer_trx_id IS NULL AND
6694: p_installment IS NOT NULL THEN
6695: -- Bug 1907635
6696: l_rows_processed := dbms_sql.execute(trx_customer);
6697: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6698: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6699: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6700: ELSE
6693: l_customer_trx_id IS NULL AND
6694: p_installment IS NOT NULL THEN
6695: -- Bug 1907635
6696: l_rows_processed := dbms_sql.execute(trx_customer);
6697: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6698: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6699: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6700: ELSE
6701: p_return_status := FND_API.G_RET_STS_ERROR;
6694: p_installment IS NOT NULL THEN
6695: -- Bug 1907635
6696: l_rows_processed := dbms_sql.execute(trx_customer);
6697: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6698: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6699: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6700: ELSE
6701: p_return_status := FND_API.G_RET_STS_ERROR;
6702: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_INS_PS_NOT_DEF_CUS');
6695: -- Bug 1907635
6696: l_rows_processed := dbms_sql.execute(trx_customer);
6697: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6698: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6699: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6700: ELSE
6701: p_return_status := FND_API.G_RET_STS_ERROR;
6702: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_INS_PS_NOT_DEF_CUS');
6703: FND_MSG_PUB.Add;
6701: p_return_status := FND_API.G_RET_STS_ERROR;
6702: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_INS_PS_NOT_DEF_CUS');
6703: FND_MSG_PUB.Add;
6704: END IF;
6705: dbms_sql.close_cursor(trx_customer);
6706: -- End Bug 1907635
6707: ELSIF p_applied_payment_schedule_id IS NULL AND
6708: l_customer_trx_id IS NOT NULL AND
6709: p_installment IS NOT NULL THEN
6707: ELSIF p_applied_payment_schedule_id IS NULL AND
6708: l_customer_trx_id IS NOT NULL AND
6709: p_installment IS NOT NULL THEN
6710: -- Bug 1907635
6711: l_rows_processed := dbms_sql.execute(trx_customer);
6712: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6713: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6714: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6715: ELSE
6708: l_customer_trx_id IS NOT NULL AND
6709: p_installment IS NOT NULL THEN
6710: -- Bug 1907635
6711: l_rows_processed := dbms_sql.execute(trx_customer);
6712: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6713: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6714: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6715: ELSE
6716: p_return_status := FND_API.G_RET_STS_ERROR;
6709: p_installment IS NOT NULL THEN
6710: -- Bug 1907635
6711: l_rows_processed := dbms_sql.execute(trx_customer);
6712: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6713: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6714: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6715: ELSE
6716: p_return_status := FND_API.G_RET_STS_ERROR;
6717: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_NOT_DEF_CUS');
6710: -- Bug 1907635
6711: l_rows_processed := dbms_sql.execute(trx_customer);
6712: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6713: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6714: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6715: ELSE
6716: p_return_status := FND_API.G_RET_STS_ERROR;
6717: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_NOT_DEF_CUS');
6718: FND_MSG_PUB.Add;
6716: p_return_status := FND_API.G_RET_STS_ERROR;
6717: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_NOT_DEF_CUS');
6718: FND_MSG_PUB.Add;
6719: END IF;
6720: dbms_sql.close_cursor(trx_customer);
6721: -- End Bug 1907635
6722: ELSIF p_applied_payment_schedule_id IS NULL AND
6723: l_customer_trx_id IS NOT NULL AND
6724: p_installment IS NULL THEN
6722: ELSIF p_applied_payment_schedule_id IS NULL AND
6723: l_customer_trx_id IS NOT NULL AND
6724: p_installment IS NULL THEN
6725: -- Bug 1907635
6726: l_rows_processed := dbms_sql.execute(trx_customer);
6727: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6728: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6729: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6730: ELSE
6723: l_customer_trx_id IS NOT NULL AND
6724: p_installment IS NULL THEN
6725: -- Bug 1907635
6726: l_rows_processed := dbms_sql.execute(trx_customer);
6727: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6728: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6729: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6730: ELSE
6731: p_return_status := FND_API.G_RET_STS_ERROR;
6724: p_installment IS NULL THEN
6725: -- Bug 1907635
6726: l_rows_processed := dbms_sql.execute(trx_customer);
6727: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6728: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6729: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6730: ELSE
6731: p_return_status := FND_API.G_RET_STS_ERROR;
6732: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6725: -- Bug 1907635
6726: l_rows_processed := dbms_sql.execute(trx_customer);
6727: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6728: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6729: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6730: ELSE
6731: p_return_status := FND_API.G_RET_STS_ERROR;
6732: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6733: FND_MSG_PUB.Add;
6731: p_return_status := FND_API.G_RET_STS_ERROR;
6732: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6733: FND_MSG_PUB.Add;
6734: END IF;
6735: dbms_sql.close_cursor(trx_customer);
6736: -- End Bug 1907635
6737: ELSE
6738: -- Bug 1907635
6739: dbms_sql.close_cursor(trx_customer);
6735: dbms_sql.close_cursor(trx_customer);
6736: -- End Bug 1907635
6737: ELSE
6738: -- Bug 1907635
6739: dbms_sql.close_cursor(trx_customer);
6740: -- End Bug 1907635
6741: p_customer_id := NULL;
6742: p_customer_site_use_id := NULL;
6743: END IF;