388: print_log('x_new_customer_trx_line_id: '||x_new_customer_trx_line_id);
389: print_log('x_return_status: '||x_return_status);
390:
391: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
392: FND_MESSAGE.SET_NAME('PON','EMD_DEPOSIT_CREATION_FAILED');
393: FND_MSG_PUB.ADD;
394: RETURN;
395: END IF;
396:
395: END IF;
396:
397: IF (x_new_trx_number IS null) THEN
398: x_return_status := FND_API.G_RET_STS_ERROR;
399: FND_MESSAGE.SET_NAME('PON','EMD_DEPOSIT_CREATION_FAILED');
400: FND_MSG_PUB.ADD;
401: RETURN;
402: END IF;
403:
605: l_org_id);
606:
607: --Setting out parameters
608: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
609: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_AND_APPLY_FAILED');
610: FND_MSG_PUB.ADD;
611: RETURN;
612: END IF;
613:
729: print_log('After executing AR procedure AR_RECEIPT_API_PUB.Unapply');
730: print_log('x_return_status: '||x_return_status);
731:
732: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
733: FND_MESSAGE.SET_NAME('PON','UNAPPLY_EMD_RECEIPT_FAILED');
734: FND_MSG_PUB.ADD;
735: RETURN;
736: END IF;
737: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
858: WHERE organization_id = l_org_id;
859: EXCEPTION
860: WHEN OTHERS THEN
861: x_return_status := fnd_api.g_ret_sts_error;
862: FND_MESSAGE.SET_NAME('PON','ORG_NOT_FOUND_IN_HR');
863: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
864: RETURN;
865: END;
866:
859: EXCEPTION
860: WHEN OTHERS THEN
861: x_return_status := fnd_api.g_ret_sts_error;
862: FND_MESSAGE.SET_NAME('PON','ORG_NOT_FOUND_IN_HR');
863: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
864: RETURN;
865: END;
866:
867: IF (l_applied_payment_schedule_id = -8 ) THEN
873: TYPE ='CM_REFUND'AND ORG_ID = l_org_id;
874: EXCEPTION
875: WHEN No_Data_Found THEN
876: x_return_status := fnd_api.g_ret_sts_error;
877: fnd_message.set_name('PON','REC_ACT_OF_REFUND_TYPE_NOT_DEF');
878: fnd_message.set_token('ORG',l_organization_name);
879: FND_MSG_PUB.ADD;
880: RETURN;
881: END;
874: EXCEPTION
875: WHEN No_Data_Found THEN
876: x_return_status := fnd_api.g_ret_sts_error;
877: fnd_message.set_name('PON','REC_ACT_OF_REFUND_TYPE_NOT_DEF');
878: fnd_message.set_token('ORG',l_organization_name);
879: FND_MSG_PUB.ADD;
880: RETURN;
881: END;
882: ELSIF(l_applied_payment_schedule_id = -6 ) THEN
888: TYPE ='CCREFUND'AND ORG_ID = l_org_id;
889: EXCEPTION
890: WHEN No_Data_Found THEN
891: x_return_status := fnd_api.g_ret_sts_error;
892: fnd_message.set_name('PON','REC_ACT_FOR_CCREFUND_NOT_DEF');
893: fnd_message.set_token('ORG',l_organization_name);
894: FND_MSG_PUB.ADD;
895: RETURN;
896: END;
889: EXCEPTION
890: WHEN No_Data_Found THEN
891: x_return_status := fnd_api.g_ret_sts_error;
892: fnd_message.set_name('PON','REC_ACT_FOR_CCREFUND_NOT_DEF');
893: fnd_message.set_token('ORG',l_organization_name);
894: FND_MSG_PUB.ADD;
895: RETURN;
896: END;
897: END IF;
960: print_log('x_return_status: '||x_return_status);
961:
962: IF(l_application_ref_id IS null) THEN
963: x_return_status := fnd_api.g_ret_sts_error;
964: FND_MESSAGE.SET_NAME('PON','EMD_REFUND_TRX_FAILED');
965: FND_MSG_PUB.ADD;
966: RETURN;
967: END IF;
968: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1112: AND Trunc(SYSDATE) BETWEEN start_date AND Nvl(end_date,Trunc(SYSDATE+1));
1113: EXCEPTION
1114: WHEN No_Data_Found THEN
1115: x_return_status := fnd_api.g_ret_sts_success;
1116: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_DEF');
1117: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE_ID',To_Char(p_in_rec.batch_source_id));
1118: FND_MSG_PUB.ADD;
1119: RETURN;
1120: END;
1113: EXCEPTION
1114: WHEN No_Data_Found THEN
1115: x_return_status := fnd_api.g_ret_sts_success;
1116: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_DEF');
1117: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE_ID',To_Char(p_in_rec.batch_source_id));
1118: FND_MSG_PUB.ADD;
1119: RETURN;
1120: END;
1121:
1199: END IF;
1200: x_out_rec.cm_customer_trx_id := x_cm_customer_trx_id;
1201: ELSE
1202: x_return_status := fnd_api.g_ret_sts_error;
1203: FND_MESSAGE.SET_NAME('PON','CM_CREATION_FAILED');
1204: FND_MSG_PUB.ADD;
1205: RETURN;
1206: END IF;
1207: ELSE
1204: FND_MSG_PUB.ADD;
1205: RETURN;
1206: END IF;
1207: ELSE
1208: FND_MESSAGE.SET_NAME('PON','CM_CREATION_FAILED');
1209: FND_MSG_PUB.ADD;
1210: RETURN;
1211: END IF;
1212:
1321: x_msg_data);
1322:
1323:
1324: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1325: FND_MESSAGE.SET_NAME('PON','CUST_ACC_CRE_FAILED');
1326: FND_MESSAGE.SET_TOKEN('SUPPLIER',p_in_rec.party_name);
1327: FND_MSG_PUB.ADD;
1328: RETURN;
1329: END IF;
1322:
1323:
1324: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1325: FND_MESSAGE.SET_NAME('PON','CUST_ACC_CRE_FAILED');
1326: FND_MESSAGE.SET_TOKEN('SUPPLIER',p_in_rec.party_name);
1327: FND_MSG_PUB.ADD;
1328: RETURN;
1329: END IF;
1330:
1420: x_msg_data);
1421:
1422: IF (x_site_return_status = fnd_api.g_ret_sts_error) THEN
1423: x_return_status := fnd_api.g_ret_sts_error;
1424: FND_MESSAGE.SET_NAME('PON','CUST_ACC_SITE_CRE_FAILED');
1425: FND_MESSAGE.SET_TOKEN('SUPPLIER',p_in_rec.party_name);
1426: FND_MSG_PUB.ADD;
1427: RETURN;
1428: END IF;
1421:
1422: IF (x_site_return_status = fnd_api.g_ret_sts_error) THEN
1423: x_return_status := fnd_api.g_ret_sts_error;
1424: FND_MESSAGE.SET_NAME('PON','CUST_ACC_SITE_CRE_FAILED');
1425: FND_MESSAGE.SET_TOKEN('SUPPLIER',p_in_rec.party_name);
1426: FND_MSG_PUB.ADD;
1427: RETURN;
1428: END IF;
1429:
1456: x_msg_data);
1457:
1458: IF (x_site_return_status = fnd_api.g_ret_sts_error) THEN
1459: x_return_status := fnd_api.g_ret_sts_error;
1460: FND_MESSAGE.SET_NAME('PON','CUST_ACC_SITE_USG_CRE_FAILED');
1461: FND_MESSAGE.SET_TOKEN('SUPPLIER',p_in_rec.party_name);
1462: FND_MSG_PUB.ADD;
1463: RETURN;
1464: END IF;
1457:
1458: IF (x_site_return_status = fnd_api.g_ret_sts_error) THEN
1459: x_return_status := fnd_api.g_ret_sts_error;
1460: FND_MESSAGE.SET_NAME('PON','CUST_ACC_SITE_USG_CRE_FAILED');
1461: FND_MESSAGE.SET_TOKEN('SUPPLIER',p_in_rec.party_name);
1462: FND_MSG_PUB.ADD;
1463: RETURN;
1464: END IF;
1465:
1611: p_return_status =>l_org_return_status);
1612: EXCEPTION
1613: WHEN OTHERS THEN
1614: x_return_status := FND_API.G_RET_STS_ERROR;
1615: FND_MESSAGE.SET_NAME('PON','ORG_CONTEXT_CANNOT_SET');
1616: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
1617: FND_MSG_PUB.ADD;
1618: RAISE SETUP_EXCEPTION;
1619: END;
1612: EXCEPTION
1613: WHEN OTHERS THEN
1614: x_return_status := FND_API.G_RET_STS_ERROR;
1615: FND_MESSAGE.SET_NAME('PON','ORG_CONTEXT_CANNOT_SET');
1616: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
1617: FND_MSG_PUB.ADD;
1618: RAISE SETUP_EXCEPTION;
1619: END;
1620:
1638: l_found := pon_emd_fin_parameters%FOUND;
1639: IF NOT l_found THEN
1640: CLOSE pon_emd_fin_parameters;
1641: x_return_status := FND_API.G_RET_STS_ERROR;
1642: FND_MESSAGE.SET_NAME('PON','PON_EMD_FIN_PARAMS_NOT_SETUP');
1643: FND_MSG_PUB.ADD;
1644: RAISE SETUP_EXCEPTION;
1645: ELSE
1646: CLOSE pon_emd_fin_parameters;
1681: CLOSE payment_type_info;
1682: ELSE
1683: CLOSE payment_type_info;
1684: x_return_status := FND_API.G_RET_STS_ERROR;
1685: FND_MESSAGE.SET_NAME('PON','EMD_PAYMENT_TYPE_NOT_SETUP');
1686: FND_MESSAGE.SET_TOKEN('PTYPE_CODE',l_emd_transactions_info.payment_type_code);
1687: FND_MSG_PUB.ADD;
1688: RAISE SETUP_EXCEPTION;
1689: END IF;
1682: ELSE
1683: CLOSE payment_type_info;
1684: x_return_status := FND_API.G_RET_STS_ERROR;
1685: FND_MESSAGE.SET_NAME('PON','EMD_PAYMENT_TYPE_NOT_SETUP');
1686: FND_MESSAGE.SET_TOKEN('PTYPE_CODE',l_emd_transactions_info.payment_type_code);
1687: FND_MSG_PUB.ADD;
1688: RAISE SETUP_EXCEPTION;
1689: END IF;
1690: print_log('After executing cursor payment_type_info');
2262: p_return_status =>l_org_return_status);
2263: EXCEPTION
2264: WHEN OTHERS THEN
2265: x_return_status := FND_API.G_RET_STS_ERROR;
2266: FND_MESSAGE.SET_NAME('PON','ORG_CONTEXT_CANNOT_SET');
2267: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
2268: FND_MSG_PUB.ADD;
2269: RAISE SETUP_EXCEPTION;
2270: END;
2263: EXCEPTION
2264: WHEN OTHERS THEN
2265: x_return_status := FND_API.G_RET_STS_ERROR;
2266: FND_MESSAGE.SET_NAME('PON','ORG_CONTEXT_CANNOT_SET');
2267: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
2268: FND_MSG_PUB.ADD;
2269: RAISE SETUP_EXCEPTION;
2270: END;
2271:
2289: l_found := pon_emd_fin_parameters%FOUND;
2290: IF NOT l_found THEN
2291: CLOSE pon_emd_fin_parameters;
2292: x_return_status := FND_API.G_RET_STS_ERROR;
2293: FND_MESSAGE.SET_NAME('PON','PON_EMD_FIN_PARAMS_NOT_SETUP');
2294: FND_MSG_PUB.ADD;
2295: RAISE SETUP_EXCEPTION;
2296: ELSE
2297: CLOSE pon_emd_fin_parameters;
2324:
2325: l_progress := 140;
2326: print_log('l_emd_transactions_info.parent_emd_transaction_id:'||l_emd_transactions_info.parent_emd_transaction_id);
2327: IF (l_emd_transactions_info.parent_emd_transaction_id IS NULL) THEN
2328: FND_MESSAGE.SET_NAME('PON','PARENT_EMD_TRX_ID_NULL');
2329: FND_MSG_PUB.ADD;
2330: RAISE TRANSACTION_EXCEPTION;
2331: ELSE
2332: BEGIN
2375: CLOSE payment_type_info;
2376: ELSE
2377: CLOSE payment_type_info;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: FND_MESSAGE.SET_NAME('PON','EMD_PAYMENT_TYPE_NOT_SETUP');
2380: FND_MESSAGE.SET_TOKEN('PTYPE_CODE',l_deposit_payment_type_code);
2381: FND_MSG_PUB.ADD;
2382: RAISE SETUP_EXCEPTION;
2383: END IF;
2376: ELSE
2377: CLOSE payment_type_info;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: FND_MESSAGE.SET_NAME('PON','EMD_PAYMENT_TYPE_NOT_SETUP');
2380: FND_MESSAGE.SET_TOKEN('PTYPE_CODE',l_deposit_payment_type_code);
2381: FND_MSG_PUB.ADD;
2382: RAISE SETUP_EXCEPTION;
2383: END IF;
2384: print_log('After executing cursor payment_type_info');
2885:
2886: EXCEPTION
2887: WHEN OTHERS THEN
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: FND_MESSAGE.SET_NAME('PON','ORG_CONTEXT_CANNOT_SET');
2890: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
2891: FND_MSG_PUB.ADD;
2892: RAISE SETUP_EXCEPTION;
2893: END;
2886: EXCEPTION
2887: WHEN OTHERS THEN
2888: x_return_status := FND_API.G_RET_STS_ERROR;
2889: FND_MESSAGE.SET_NAME('PON','ORG_CONTEXT_CANNOT_SET');
2890: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(l_org_id));
2891: FND_MSG_PUB.ADD;
2892: RAISE SETUP_EXCEPTION;
2893: END;
2894:
2913: l_found := pon_emd_fin_parameters%FOUND;
2914: IF NOT l_found THEN
2915: CLOSE pon_emd_fin_parameters;
2916: x_return_status := FND_API.G_RET_STS_ERROR;
2917: FND_MESSAGE.SET_NAME('PON','PON_EMD_FIN_PARAMS_NOT_SETUP');
2918: FND_MSG_PUB.ADD;
2919: RAISE SETUP_EXCEPTION;
2920: ELSE
2921: CLOSE pon_emd_fin_parameters;
2946: END IF;
2947:
2948: l_progress := 140;
2949: IF (l_emd_transactions_info.parent_emd_transaction_id IS NULL) THEN
2950: FND_MESSAGE.SET_NAME('PON','PARENT_EMD_TRX_ID_NULL');
2951: FND_MSG_PUB.ADD;
2952: RAISE TRANSACTION_EXCEPTION;
2953: ELSE
2954: BEGIN
2996: CLOSE payment_type_info;
2997: ELSE
2998: CLOSE payment_type_info;
2999: x_return_status := FND_API.G_RET_STS_ERROR;
3000: FND_MESSAGE.SET_NAME('PON','EMD_PAYMENT_TYPE_NOT_SETUP');
3001: FND_MESSAGE.SET_TOKEN('PTYPE_CODE',l_deposit_payment_type_code);
3002: FND_MSG_PUB.ADD;
3003: RAISE SETUP_EXCEPTION;
3004: END IF;
2997: ELSE
2998: CLOSE payment_type_info;
2999: x_return_status := FND_API.G_RET_STS_ERROR;
3000: FND_MESSAGE.SET_NAME('PON','EMD_PAYMENT_TYPE_NOT_SETUP');
3001: FND_MESSAGE.SET_TOKEN('PTYPE_CODE',l_deposit_payment_type_code);
3002: FND_MSG_PUB.ADD;
3003: RAISE SETUP_EXCEPTION;
3004: END IF;
3005:
3135: WHERE CUST_TRX_TYPE_ID = l_pon_emd_fin_parameters.RA_TRX_TYPE_ID
3136: AND org_id = l_org_id;
3137: EXCEPTION
3138: WHEN No_Data_Found THEN
3139: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_NOT_FOUND_IN_AR');
3140: FND_MESSAGE.SET_TOKEN('INV_TRX_TYPE_ID',To_Char(l_pon_emd_fin_parameters.RA_TRX_TYPE_ID));
3141: FND_MSG_PUB.ADD;
3142: x_return_status := FND_API.G_RET_STS_ERROR;
3143: WHEN OTHERS THEN
3136: AND org_id = l_org_id;
3137: EXCEPTION
3138: WHEN No_Data_Found THEN
3139: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_NOT_FOUND_IN_AR');
3140: FND_MESSAGE.SET_TOKEN('INV_TRX_TYPE_ID',To_Char(l_pon_emd_fin_parameters.RA_TRX_TYPE_ID));
3141: FND_MSG_PUB.ADD;
3142: x_return_status := FND_API.G_RET_STS_ERROR;
3143: WHEN OTHERS THEN
3144: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_NOT_FOUND_IN_AR');
3140: FND_MESSAGE.SET_TOKEN('INV_TRX_TYPE_ID',To_Char(l_pon_emd_fin_parameters.RA_TRX_TYPE_ID));
3141: FND_MSG_PUB.ADD;
3142: x_return_status := FND_API.G_RET_STS_ERROR;
3143: WHEN OTHERS THEN
3144: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_NOT_FOUND_IN_AR');
3145: FND_MESSAGE.SET_TOKEN('INV_TRX_TYPE_ID',To_Char(l_pon_emd_fin_parameters.RA_TRX_TYPE_ID));
3146: FND_MSG_PUB.ADD;
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: END;
3141: FND_MSG_PUB.ADD;
3142: x_return_status := FND_API.G_RET_STS_ERROR;
3143: WHEN OTHERS THEN
3144: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_NOT_FOUND_IN_AR');
3145: FND_MESSAGE.SET_TOKEN('INV_TRX_TYPE_ID',To_Char(l_pon_emd_fin_parameters.RA_TRX_TYPE_ID));
3146: FND_MSG_PUB.ADD;
3147: x_return_status := FND_API.G_RET_STS_ERROR;
3148: END;
3149: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3415: AND vs.org_id = p_org_id;
3416: EXCEPTION
3417: WHEN No_Data_Found THEN
3418: x_return_status := fnd_api.g_ret_sts_error;
3419: FND_MESSAGE.SET_NAME('PON','SUPPLIER_SITE_NOT_FOUND');
3420:
3421: FND_MSG_PUB.ADD;
3422: RETURN;
3423: END;
3696: x_msg_data,
3697: x_response);
3698: END IF;
3699: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3700: FND_MESSAGE.set_name( 'PON', 'BANK_CREATION_FAILED' );
3701: FND_MSG_PUB.ADD;
3702: RETURN;
3703: END IF;
3704:
3717: x_msg_data,
3718: x_response);
3719: END IF;
3720: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3721: FND_MESSAGE.set_name( 'PON', 'BANK_BRANCH_CREATION_FAILED' );
3722: FND_MESSAGE.SET_TOKEN('BANK',p_bank_name);
3723: FND_MSG_PUB.ADD;
3724: RETURN;
3725: END IF;
3718: x_response);
3719: END IF;
3720: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3721: FND_MESSAGE.set_name( 'PON', 'BANK_BRANCH_CREATION_FAILED' );
3722: FND_MESSAGE.SET_TOKEN('BANK',p_bank_name);
3723: FND_MSG_PUB.ADD;
3724: RETURN;
3725: END IF;
3726: IF ((x_return_status =FND_API.G_RET_STS_SUCCESS)
3752: val => 'N');
3753: END IF;
3754:
3755: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3756: FND_MESSAGE.set_name( 'PON', 'BANK_ACCOUNT_CREATION_FAILED' );
3757: FND_MESSAGE.SET_TOKEN('BANK', p_bank_name);
3758: FND_MESSAGE.SET_TOKEN('BRANCH',p_bank_branch_name);
3759: FND_MSG_PUB.ADD;
3760: RETURN;
3753: END IF;
3754:
3755: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3756: FND_MESSAGE.set_name( 'PON', 'BANK_ACCOUNT_CREATION_FAILED' );
3757: FND_MESSAGE.SET_TOKEN('BANK', p_bank_name);
3758: FND_MESSAGE.SET_TOKEN('BRANCH',p_bank_branch_name);
3759: FND_MSG_PUB.ADD;
3760: RETURN;
3761: END IF;
3754:
3755: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
3756: FND_MESSAGE.set_name( 'PON', 'BANK_ACCOUNT_CREATION_FAILED' );
3757: FND_MESSAGE.SET_TOKEN('BANK', p_bank_name);
3758: FND_MESSAGE.SET_TOKEN('BRANCH',p_bank_branch_name);
3759: FND_MSG_PUB.ADD;
3760: RETURN;
3761: END IF;
3762:
4017: END;
4018: IF (Nvl(l_card_exists,'N') = 'Y' AND
4019: Nvl(l_expiry_date,Trunc(SYSDATE)) < Trunc(SYSDATE)) THEN
4020: x_return_status := fnd_api.g_ret_sts_error;
4021: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_EXPIRED' );
4022: FND_MESSAGE.SET_TOKEN('CCNUM',To_Char(p_credit_card_num));
4023: FND_MSG_PUB.ADD;
4024: RETURN;
4025: END IF;
4018: IF (Nvl(l_card_exists,'N') = 'Y' AND
4019: Nvl(l_expiry_date,Trunc(SYSDATE)) < Trunc(SYSDATE)) THEN
4020: x_return_status := fnd_api.g_ret_sts_error;
4021: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_EXPIRED' );
4022: FND_MESSAGE.SET_TOKEN('CCNUM',To_Char(p_credit_card_num));
4023: FND_MSG_PUB.ADD;
4024: RETURN;
4025: END IF;
4026:
4105:
4106: IF (x_instr_id IS NULL) THEN
4107: IF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CCNUMBER) THEN
4108: x_return_status := fnd_api.g_ret_sts_error;
4109: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_NUMBER_NOT_VALID' );
4110: FND_MESSAGE.SET_TOKEN('CCNUM',l_card_number);
4111: FND_MSG_PUB.ADD;
4112: RETURN;
4113: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CCEXPIRY) THEN
4106: IF (x_instr_id IS NULL) THEN
4107: IF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CCNUMBER) THEN
4108: x_return_status := fnd_api.g_ret_sts_error;
4109: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_NUMBER_NOT_VALID' );
4110: FND_MESSAGE.SET_TOKEN('CCNUM',l_card_number);
4111: FND_MSG_PUB.ADD;
4112: RETURN;
4113: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CCEXPIRY) THEN
4114: x_return_status := fnd_api.g_ret_sts_error;
4111: FND_MSG_PUB.ADD;
4112: RETURN;
4113: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CCEXPIRY) THEN
4114: x_return_status := fnd_api.g_ret_sts_error;
4115: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_EXPIRED' );
4116: FND_MESSAGE.SET_TOKEN('CCNUM',l_card_number);
4117: FND_MSG_PUB.ADD;
4118: RETURN;
4119: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CARD_ISSUER) THEN
4112: RETURN;
4113: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CCEXPIRY) THEN
4114: x_return_status := fnd_api.g_ret_sts_error;
4115: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_EXPIRED' );
4116: FND_MESSAGE.SET_TOKEN('CCNUM',l_card_number);
4117: FND_MSG_PUB.ADD;
4118: RETURN;
4119: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CARD_ISSUER) THEN
4120: x_return_status := fnd_api.g_ret_sts_error;
4117: FND_MSG_PUB.ADD;
4118: RETURN;
4119: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CARD_ISSUER) THEN
4120: x_return_status := fnd_api.g_ret_sts_error;
4121: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_ISSUER_NOT_VALID' );
4122: FND_MESSAGE.SET_NAME('CCISSUER',l_issuer);
4123: FND_MSG_PUB.ADD;
4124: RETURN;
4125: END IF;
4118: RETURN;
4119: ELSIF (x_result_code = iby_creditcard_pkg.G_RC_INVALID_CARD_ISSUER) THEN
4120: x_return_status := fnd_api.g_ret_sts_error;
4121: FND_MESSAGE.set_name( 'PON', 'CREDIT_CARD_ISSUER_NOT_VALID' );
4122: FND_MESSAGE.SET_NAME('CCISSUER',l_issuer);
4123: FND_MSG_PUB.ADD;
4124: RETURN;
4125: END IF;
4126: END IF;
4278: WHERE emd_transaction_id = p_parent_emd_transaction_id;
4279:
4280: EXCEPTION
4281: WHEN No_Data_Found THEN
4282: FND_MESSAGE.SET_NAME('PON','DEPOSIT_TRX_NOT_FOUND');
4283: FND_MSG_PUB.ADD;
4284: x_return_status := fnd_api.g_ret_sts_error;
4285: END getTrxInfoFromParentTrx;
4286:
4342: AND arp.amount_applied > 0;
4343: EXCEPTION
4344: WHEN NO_DATA_FOUND THEN
4345: x_return_status := FND_API.G_RET_STS_ERROR;
4346: FND_MESSAGE.SET_NAME('PON','RECEIPT_NOT_CRE_FOR_DEPOSIT');
4347: FND_MESSAGE.SET_TOKEN('DEPOSIT_TRX_NUM',p_parent_trx_number);
4348: FND_MSG_PUB.ADD;
4349: x_receipt_num := NULL;
4350: x_cash_receipt_id := NULL;
4343: EXCEPTION
4344: WHEN NO_DATA_FOUND THEN
4345: x_return_status := FND_API.G_RET_STS_ERROR;
4346: FND_MESSAGE.SET_NAME('PON','RECEIPT_NOT_CRE_FOR_DEPOSIT');
4347: FND_MESSAGE.SET_TOKEN('DEPOSIT_TRX_NUM',p_parent_trx_number);
4348: FND_MSG_PUB.ADD;
4349: x_receipt_num := NULL;
4350: x_cash_receipt_id := NULL;
4351: x_receipt_status := NULL;
4368: AND acr.cash_receipt_id = x_cash_receipt_id;
4369: EXCEPTION
4370: WHEN NO_DATA_FOUND THEN
4371: x_return_status := FND_API.G_RET_STS_ERROR;
4372: FND_MESSAGE.SET_NAME('PON','RECEIPT_NOT_CLEARED');
4373: FND_MESSAGE.SET_TOKEN('DEPOSIT_TRX_NUM',p_parent_trx_number);
4374: FND_MESSAGE.SET_TOKEN('RECEIPT_NUM',x_receipt_num);
4375: FND_MSG_PUB.ADD;
4376: x_receipt_num := NULL;
4369: EXCEPTION
4370: WHEN NO_DATA_FOUND THEN
4371: x_return_status := FND_API.G_RET_STS_ERROR;
4372: FND_MESSAGE.SET_NAME('PON','RECEIPT_NOT_CLEARED');
4373: FND_MESSAGE.SET_TOKEN('DEPOSIT_TRX_NUM',p_parent_trx_number);
4374: FND_MESSAGE.SET_TOKEN('RECEIPT_NUM',x_receipt_num);
4375: FND_MSG_PUB.ADD;
4376: x_receipt_num := NULL;
4377: x_cash_receipt_id := NULL;
4370: WHEN NO_DATA_FOUND THEN
4371: x_return_status := FND_API.G_RET_STS_ERROR;
4372: FND_MESSAGE.SET_NAME('PON','RECEIPT_NOT_CLEARED');
4373: FND_MESSAGE.SET_TOKEN('DEPOSIT_TRX_NUM',p_parent_trx_number);
4374: FND_MESSAGE.SET_TOKEN('RECEIPT_NUM',x_receipt_num);
4375: FND_MSG_PUB.ADD;
4376: x_receipt_num := NULL;
4377: x_cash_receipt_id := NULL;
4378: x_receipt_status := NULL;
4433: FROM PON_AUCTION_HEADERS_ALL
4434: WHERE AUCTION_HEADER_ID = p_emd_transaction_rec.auction_header_id;
4435: EXCEPTION
4436: WHEN no_data_found THEN
4437: FND_MESSAGE.SET_NAME('PON','NEGOTIATION_NOT_FOUND');
4438: FND_MESSAGE.SET_TOKEN('AUCTION',l_document_num);
4439: FND_MSG_PUB.ADD;
4440: x_return_status := FND_API.G_RET_STS_ERROR;
4441: END;
4434: WHERE AUCTION_HEADER_ID = p_emd_transaction_rec.auction_header_id;
4435: EXCEPTION
4436: WHEN no_data_found THEN
4437: FND_MESSAGE.SET_NAME('PON','NEGOTIATION_NOT_FOUND');
4438: FND_MESSAGE.SET_TOKEN('AUCTION',l_document_num);
4439: FND_MSG_PUB.ADD;
4440: x_return_status := FND_API.G_RET_STS_ERROR;
4441: END;
4442:
4442:
4443: IF (l_auction_status <> 'ACTIVE') THEN
4444: IF (p_transaction_type_code NOT IN (G_EMD_FORFEIT,G_EMD_REFUND))
4445: THEN
4446: FND_MESSAGE.SET_NAME('PON','NEGOTIATION_NOT_ACTIVE');
4447: FND_MESSAGE.SET_TOKEN('AUCTION',l_document_num);
4448: FND_MSG_PUB.ADD;
4449: x_return_status := FND_API.G_RET_STS_ERROR;
4450: END IF;
4443: IF (l_auction_status <> 'ACTIVE') THEN
4444: IF (p_transaction_type_code NOT IN (G_EMD_FORFEIT,G_EMD_REFUND))
4445: THEN
4446: FND_MESSAGE.SET_NAME('PON','NEGOTIATION_NOT_ACTIVE');
4447: FND_MESSAGE.SET_TOKEN('AUCTION',l_document_num);
4448: FND_MSG_PUB.ADD;
4449: x_return_status := FND_API.G_RET_STS_ERROR;
4450: END IF;
4451: END IF;
4452:
4453:
4454: IF (p_emd_transaction_rec.transaction_date IS NULL ) THEN
4455: x_return_status := FND_API.G_RET_STS_ERROR;
4456: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_IS_NULL' );
4457: FND_MSG_PUB.ADD;
4458: RETURN;
4459: END IF;
4460: /*
4462: IF (p_transaction_type_code = G_EMD_DEPOSIT) THEN
4463: IF (p_emd_transaction_rec.emd_due_date IS NOT null) THEN
4464: IF NOT (p_emd_transaction_rec.transaction_date <= p_emd_transaction_rec.emd_due_date) THEN
4465: x_return_status := FND_API.G_RET_STS_ERROR;
4466: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_EXC_EMD_DUE_DATE' );
4467: FND_MSG_PUB.ADD;
4468: RETURN;
4469: END IF;
4470: END IF;
4472: */
4473: IF (p_transaction_type_code = G_EMD_DEPOSIT) THEN
4474: IF (p_emd_transaction_rec.emd_amount IS null) THEN
4475: x_return_status := FND_API.G_RET_STS_ERROR;
4476: FND_MESSAGE.set_name( 'PON', 'EMD_AMT_NULL_ON_NEG' );
4477: FND_MESSAGE.SET_TOKEN('AUCTION',l_document_num);
4478: FND_MSG_PUB.ADD;
4479: RETURN;
4480: END IF;
4473: IF (p_transaction_type_code = G_EMD_DEPOSIT) THEN
4474: IF (p_emd_transaction_rec.emd_amount IS null) THEN
4475: x_return_status := FND_API.G_RET_STS_ERROR;
4476: FND_MESSAGE.set_name( 'PON', 'EMD_AMT_NULL_ON_NEG' );
4477: FND_MESSAGE.SET_TOKEN('AUCTION',l_document_num);
4478: FND_MSG_PUB.ADD;
4479: RETURN;
4480: END IF;
4481: END IF;
4485: print_log('transaction_date: '||To_Char(p_emd_transaction_rec.transaction_date));
4486: BEGIN
4487: IF NOT (arp_util.is_gl_date_valid(p_emd_transaction_rec.transaction_date)) THEN
4488: x_return_status := FND_API.G_RET_STS_ERROR;
4489: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_GL_PERIOD_O_F' );
4490: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4491: FND_MSG_PUB.ADD;
4492: RETURN;
4493: END IF;
4486: BEGIN
4487: IF NOT (arp_util.is_gl_date_valid(p_emd_transaction_rec.transaction_date)) THEN
4488: x_return_status := FND_API.G_RET_STS_ERROR;
4489: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_GL_PERIOD_O_F' );
4490: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4491: FND_MSG_PUB.ADD;
4492: RETURN;
4493: END IF;
4494:
4494:
4495: EXCEPTION
4496: WHEN No_Data_Found THEN
4497: x_return_status := FND_API.G_RET_STS_ERROR;
4498: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_GL_PERIOD_O_F' );
4499: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4500: FND_MSG_PUB.ADD;
4501: RETURN;
4502: WHEN OTHERS THEN
4495: EXCEPTION
4496: WHEN No_Data_Found THEN
4497: x_return_status := FND_API.G_RET_STS_ERROR;
4498: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_GL_PERIOD_O_F' );
4499: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4500: FND_MSG_PUB.ADD;
4501: RETURN;
4502: WHEN OTHERS THEN
4503: x_return_status := FND_API.G_RET_STS_ERROR;
4500: FND_MSG_PUB.ADD;
4501: RETURN;
4502: WHEN OTHERS THEN
4503: x_return_status := FND_API.G_RET_STS_ERROR;
4504: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_GL_PERIOD_O_F' );
4505: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4506: FND_MSG_PUB.ADD;
4507: RETURN;
4508: END;
4501: RETURN;
4502: WHEN OTHERS THEN
4503: x_return_status := FND_API.G_RET_STS_ERROR;
4504: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_GL_PERIOD_O_F' );
4505: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4506: FND_MSG_PUB.ADD;
4507: RETURN;
4508: END;
4509: -- Checking AP open period also in the case of refund.
4520: AND NVL(adjustment_period_flag, 'N') = 'N';
4521: EXCEPTION
4522: WHEN No_Data_Found THEN
4523: x_return_status := FND_API.G_RET_STS_ERROR;
4524: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_AP_PERIOD_O_F' );
4525: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4526: FND_MSG_PUB.ADD;
4527: RETURN;
4528: WHEN OTHERS THEN
4521: EXCEPTION
4522: WHEN No_Data_Found THEN
4523: x_return_status := FND_API.G_RET_STS_ERROR;
4524: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_AP_PERIOD_O_F' );
4525: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4526: FND_MSG_PUB.ADD;
4527: RETURN;
4528: WHEN OTHERS THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4526: FND_MSG_PUB.ADD;
4527: RETURN;
4528: WHEN OTHERS THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_AP_PERIOD_O_F' );
4531: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4532: FND_MSG_PUB.ADD;
4533: RETURN;
4534: END;
4527: RETURN;
4528: WHEN OTHERS THEN
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530: FND_MESSAGE.set_name( 'PON', 'TRX_DATE_NOT_IN_AP_PERIOD_O_F' );
4531: FND_MESSAGE.set_token('TRX_DATE',TO_CHAR(p_emd_transaction_rec.transaction_date));
4532: FND_MSG_PUB.ADD;
4533: RETURN;
4534: END;
4535: END IF;
4630: WHERE organization_id = p_org_id;
4631: EXCEPTION
4632: WHEN OTHERS THEN
4633: x_return_status := fnd_api.g_ret_sts_error;
4634: FND_MESSAGE.SET_NAME('PON','ORG_NOT_FOUND_IN_HR');
4635: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(p_org_id));
4636: RETURN;
4637: END;
4638:
4631: EXCEPTION
4632: WHEN OTHERS THEN
4633: x_return_status := fnd_api.g_ret_sts_error;
4634: FND_MESSAGE.SET_NAME('PON','ORG_NOT_FOUND_IN_HR');
4635: FND_MESSAGE.SET_TOKEN('ORG_ID',To_Char(p_org_id));
4636: RETURN;
4637: END;
4638:
4639: IF (Nvl(p_emd_fin_integration,'N') <> 'Y') THEN
4637: END;
4638:
4639: IF (Nvl(p_emd_fin_integration,'N') <> 'Y') THEN
4640: x_return_status := fnd_api.g_ret_sts_error;
4641: FND_MESSAGE.SET_NAME('PON','PON_EMD_FIN_INTG_NOT_ENABLED');
4642: FND_MESSAGE.SET_TOKEN('ORG', l_organization_name);
4643: FND_MSG_PUB.ADD;
4644: RETURN;
4645: END IF;
4638:
4639: IF (Nvl(p_emd_fin_integration,'N') <> 'Y') THEN
4640: x_return_status := fnd_api.g_ret_sts_error;
4641: FND_MESSAGE.SET_NAME('PON','PON_EMD_FIN_INTG_NOT_ENABLED');
4642: FND_MESSAGE.SET_TOKEN('ORG', l_organization_name);
4643: FND_MSG_PUB.ADD;
4644: RETURN;
4645: END IF;
4646:
4645: END IF;
4646:
4647: IF (p_ra_trx_type_id = NULL) THEN
4648: x_return_status := fnd_api.g_ret_sts_error;
4649: FND_MESSAGE.SET_NAME('PON','TRX_TYPE_NOT_IN_DEFINED_SETUP');
4650: FND_MSG_PUB.ADD;
4651: RETURN;
4652: END IF;
4653: print_log('p_transaction_type_code:'||p_transaction_type_code);
4690: AND org_id = p_org_id;
4691: EXCEPTION
4692: WHEN No_Data_Found THEN
4693: x_return_status := fnd_api.g_ret_sts_error;
4694: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_FOUND_IN_AR');
4695: FND_MSG_PUB.ADD;
4696: RETURN;
4697: END;
4698:
4698:
4699: IF NOT((Trunc(SYSDATE) >= l_start_date) AND
4700: (Trunc(SYSDATE) < Nvl(l_end_date,Trunc(SYSDATE + 1)))) THEN
4701: x_return_status := fnd_api.g_ret_sts_error;
4702: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_ACTIVE');
4703: FND_MESSAGE.set_token('TRX_TYPE',l_deposit_trx_name);
4704: FND_MSG_PUB.ADD;
4705: RETURN;
4706: END IF;
4699: IF NOT((Trunc(SYSDATE) >= l_start_date) AND
4700: (Trunc(SYSDATE) < Nvl(l_end_date,Trunc(SYSDATE + 1)))) THEN
4701: x_return_status := fnd_api.g_ret_sts_error;
4702: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_ACTIVE');
4703: FND_MESSAGE.set_token('TRX_TYPE',l_deposit_trx_name);
4704: FND_MSG_PUB.ADD;
4705: RETURN;
4706: END IF;
4707: IF( (Nvl(l_post_to_gl,'N') <> 'Y') OR
4718: l_subsequent_trx_type_id IS NULL OR
4719: l_default_status <> 'OP') THEN
4720:
4721: x_return_status := fnd_api.g_ret_sts_error;
4722: FND_MESSAGE.SET_NAME('PON','TRX_TYPE_INFO_NOT_VALID');
4723: FND_MESSAGE.set_token('TRX_TYPE',l_deposit_trx_name);
4724: FND_MSG_PUB.ADD;
4725: RETURN;
4726: END IF;
4719: l_default_status <> 'OP') THEN
4720:
4721: x_return_status := fnd_api.g_ret_sts_error;
4722: FND_MESSAGE.SET_NAME('PON','TRX_TYPE_INFO_NOT_VALID');
4723: FND_MESSAGE.set_token('TRX_TYPE',l_deposit_trx_name);
4724: FND_MSG_PUB.ADD;
4725: RETURN;
4726: END IF;
4727: ELSIF (p_transaction_type_code = G_EMD_REFUND) THEN
4732: AND org_id = p_org_id;
4733: print_log('l_credit_memo_type_id:'||l_credit_memo_type_id);
4734: IF (l_credit_memo_type_id IS NULL) THEN
4735: x_return_status := fnd_api.g_ret_sts_error;
4736: FND_MESSAGE.SET_NAME('PON','CM_TYPE_NOT_IN_DEP_TRX_TYPE');
4737: FND_MSG_PUB.ADD;
4738: RETURN;
4739: ELSE
4740: SELECT TYPE,
4771: print_log('l_start_date:'||l_start_date||' l_end_date:'||l_end_date);
4772: IF NOT((Trunc(SYSDATE) >= l_start_date) AND
4773: (Trunc(SYSDATE) < Nvl(l_end_date,Trunc(SYSDATE + 1)))) THEN
4774: x_return_status := fnd_api.g_ret_sts_error;
4775: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_ACTIVE');
4776: FND_MESSAGE.set_token('TRX_TYPE',l_cm_trx_name);
4777: FND_MSG_PUB.ADD;
4778: RETURN;
4779: END IF;
4772: IF NOT((Trunc(SYSDATE) >= l_start_date) AND
4773: (Trunc(SYSDATE) < Nvl(l_end_date,Trunc(SYSDATE + 1)))) THEN
4774: x_return_status := fnd_api.g_ret_sts_error;
4775: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_ACTIVE');
4776: FND_MESSAGE.set_token('TRX_TYPE',l_cm_trx_name);
4777: FND_MSG_PUB.ADD;
4778: RETURN;
4779: END IF;
4780:
4790: l_creation_sign <> 'N' OR
4791: l_default_status <> 'OP') THEN
4792:
4793: x_return_status := fnd_api.g_ret_sts_error;
4794: FND_MESSAGE.SET_NAME('PON','CM_TRX_TYPE_INFO_NOT_VALID');
4795: FND_MESSAGE.set_token('TRX_TYPE',l_cm_trx_name);
4796: FND_MSG_PUB.ADD;
4797: RETURN;
4798: END IF;
4791: l_default_status <> 'OP') THEN
4792:
4793: x_return_status := fnd_api.g_ret_sts_error;
4794: FND_MESSAGE.SET_NAME('PON','CM_TRX_TYPE_INFO_NOT_VALID');
4795: FND_MESSAGE.set_token('TRX_TYPE',l_cm_trx_name);
4796: FND_MSG_PUB.ADD;
4797: RETURN;
4798: END IF;
4799: END IF;
4805: AND org_id = p_org_id;
4806:
4807: IF (l_subsequent_trx_type_id IS NULL) THEN
4808: x_return_status := fnd_api.g_ret_sts_error;
4809: FND_MESSAGE.SET_NAME('PON','INV_TYP_NOT_IN_DEP_TRX_TYP');
4810: FND_MSG_PUB.ADD;
4811: RETURN;
4812: ELSE
4813: SELECT TYPE,
4844:
4845: IF NOT((Trunc(SYSDATE) >= l_start_date) AND
4846: (Trunc(SYSDATE) < Nvl(l_end_date,Trunc(SYSDATE + 1)))) THEN
4847: x_return_status := fnd_api.g_ret_sts_error;
4848: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_ACTIVE');
4849: FND_MESSAGE.set_token('TRX_TYPE',l_invoice_trx_name);
4850: FND_MSG_PUB.ADD;
4851: RETURN;
4852: END IF;
4845: IF NOT((Trunc(SYSDATE) >= l_start_date) AND
4846: (Trunc(SYSDATE) < Nvl(l_end_date,Trunc(SYSDATE + 1)))) THEN
4847: x_return_status := fnd_api.g_ret_sts_error;
4848: FND_MESSAGE.SET_NAME('PON','RA_TRX_TYPE_NOT_ACTIVE');
4849: FND_MESSAGE.set_token('TRX_TYPE',l_invoice_trx_name);
4850: FND_MSG_PUB.ADD;
4851: RETURN;
4852: END IF;
4853:
4863: l_creation_sign NOT IN ('P','A') OR
4864: l_default_status <> 'OP') THEN
4865:
4866: x_return_status := fnd_api.g_ret_sts_error;
4867: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_INFO_NOT_VALID');
4868: FND_MESSAGE.set_token('TRX_TYPE',l_invoice_trx_name);
4869: FND_MSG_PUB.ADD;
4870: RETURN;
4871: END IF;
4864: l_default_status <> 'OP') THEN
4865:
4866: x_return_status := fnd_api.g_ret_sts_error;
4867: FND_MESSAGE.SET_NAME('PON','INV_TRX_TYPE_INFO_NOT_VALID');
4868: FND_MESSAGE.set_token('TRX_TYPE',l_invoice_trx_name);
4869: FND_MSG_PUB.ADD;
4870: RETURN;
4871: END IF;
4872: END IF;
4881: END IF;
4882:
4883: IF (l_ra_batch_source_id IS NULL) THEN
4884: x_return_status := fnd_api.g_ret_sts_error;
4885: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOUR_NOT_IN_SETUP');
4886: FND_MSG_PUB.ADD;
4887: RETURN;
4888: ELSE
4889: BEGIN
4906: AND ORG_ID = p_org_id;
4907: EXCEPTION
4908: WHEN No_Data_Found THEN
4909: x_return_status := fnd_api.g_ret_sts_error;
4910: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_DEF');
4911: FND_MSG_PUB.ADD;
4912: RETURN;
4913: END;
4914: print_log('End of Select block');
4922: print_log('l_credit_memo_batch_source_id:'||l_credit_memo_batch_source_id);
4923:
4924: IF (l_batch_source_status <> 'A') THEN
4925: x_return_status := fnd_api.g_ret_sts_error;
4926: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_ACTIVE');
4927: fnd_message.set_token('BATCH_SOURCE',l_batch_source_name);
4928: FND_MSG_PUB.ADD;
4929: RETURN;
4930: END IF;
4923:
4924: IF (l_batch_source_status <> 'A') THEN
4925: x_return_status := fnd_api.g_ret_sts_error;
4926: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_ACTIVE');
4927: fnd_message.set_token('BATCH_SOURCE',l_batch_source_name);
4928: FND_MSG_PUB.ADD;
4929: RETURN;
4930: END IF;
4931:
4937: ( (p_transaction_type_code = G_EMD_FORFEIT) AND
4938: (l_batch_source_type <> 'FOREIGN') ) )
4939: ) THEN
4940: x_return_status := fnd_api.g_ret_sts_error;
4941: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_INFO_NOT_VALID');
4942: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE',l_batch_source_name);
4943: FND_MSG_PUB.ADD;
4944: RETURN;
4945: END IF;
4938: (l_batch_source_type <> 'FOREIGN') ) )
4939: ) THEN
4940: x_return_status := fnd_api.g_ret_sts_error;
4941: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_INFO_NOT_VALID');
4942: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE',l_batch_source_name);
4943: FND_MSG_PUB.ADD;
4944: RETURN;
4945: END IF;
4946: IF (l_credit_memo_batch_source_id IS NOT NULL AND
4963: AND ORG_ID = p_org_id;
4964: EXCEPTION
4965: WHEN No_Data_Found THEN
4966: x_return_status := fnd_api.g_ret_sts_error;
4967: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_DEF');
4968: FND_MSG_PUB.ADD;
4969: RETURN;
4970: END;
4971:
4970: END;
4971:
4972: IF (l_cr_batch_source_status <> 'A') THEN
4973: x_return_status := fnd_api.g_ret_sts_error;
4974: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_ACTIVE');
4975: fnd_message.set_token('BATCH_SOURCE',l_credit_batch_source_name);
4976: FND_MSG_PUB.ADD;
4977: RETURN;
4978: END IF;
4971:
4972: IF (l_cr_batch_source_status <> 'A') THEN
4973: x_return_status := fnd_api.g_ret_sts_error;
4974: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_ACTIVE');
4975: fnd_message.set_token('BATCH_SOURCE',l_credit_batch_source_name);
4976: FND_MSG_PUB.ADD;
4977: RETURN;
4978: END IF;
4979: IF ((Nvl(l_cr_auto_batch_numbering_flag,'N') <> 'Y') OR
4980: (Nvl(l_cr_auto_trx_numbering_flag,'N') <> 'Y') OR
4981: (Nvl(l_cr_allow_dup_trx_num_flag,'N') <> 'N') OR
4982: (l_cr_batch_source_type <> 'INV')) THEN
4983: x_return_status := fnd_api.g_ret_sts_error;
4984: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_INFO_NOT_VALID');
4985: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE',l_credit_batch_source_name);
4986: FND_MSG_PUB.ADD;
4987: RETURN;
4988: END IF;
4981: (Nvl(l_cr_allow_dup_trx_num_flag,'N') <> 'N') OR
4982: (l_cr_batch_source_type <> 'INV')) THEN
4983: x_return_status := fnd_api.g_ret_sts_error;
4984: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_INFO_NOT_VALID');
4985: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE',l_credit_batch_source_name);
4986: FND_MSG_PUB.ADD;
4987: RETURN;
4988: END IF;
4989: END IF;
4994: IF (p_transaction_type_code in (G_EMD_DEPOSIT)) THEN
4995:
4996: IF (p_memo_line_id IS NULL) THEN
4997: x_return_status := fnd_api.g_ret_sts_error;
4998: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_NOT_IN_SETUP');
4999: FND_MSG_PUB.ADD;
5000: RETURN;
5001: ELSE
5002: BEGIN
5015: AND MEMO_LINE_ID = p_memo_line_id;
5016: EXCEPTION
5017: WHEN No_Data_Found THEN
5018: x_return_status := fnd_api.g_ret_sts_error;
5019: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_NOT_DEF_IN_AR');
5020: FND_MSG_PUB.ADD;
5021: RETURN;
5022: END;
5023:
5023:
5024: IF NOT ((Trunc(SYSDATE) >= l_memo_line_start_date) AND
5025: (Trunc(SYSDATE) < Nvl(l_memo_line_end_date,Trunc(SYSDATE+1)))) THEN
5026: x_return_status := fnd_api.g_ret_sts_error;
5027: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_TYPE_NOT_ACTIVE');
5028: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5029: FND_MSG_PUB.ADD;
5030: RETURN;
5031: END IF;
5024: IF NOT ((Trunc(SYSDATE) >= l_memo_line_start_date) AND
5025: (Trunc(SYSDATE) < Nvl(l_memo_line_end_date,Trunc(SYSDATE+1)))) THEN
5026: x_return_status := fnd_api.g_ret_sts_error;
5027: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_TYPE_NOT_ACTIVE');
5028: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5029: FND_MSG_PUB.ADD;
5030: RETURN;
5031: END IF;
5032:
5032:
5033: IF (l_memo_line_type <> 'LINE' OR
5034: l_memo_line_rev_acc IS NULL) THEN
5035: x_return_status := fnd_api.g_ret_sts_error;
5036: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_INFO_NOT_VALID');
5037: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5038: FND_MSG_PUB.ADD;
5039: RETURN;
5040: END IF;
5033: IF (l_memo_line_type <> 'LINE' OR
5034: l_memo_line_rev_acc IS NULL) THEN
5035: x_return_status := fnd_api.g_ret_sts_error;
5036: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_INFO_NOT_VALID');
5037: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5038: FND_MSG_PUB.ADD;
5039: RETURN;
5040: END IF;
5041: END IF;
5043: print_log('Before G_EMD_FORFEIT IF block');
5044: IF (p_transaction_type_code in (G_EMD_FORFEIT)) THEN
5045: IF (p_memo_line_invoice_id IS NULL) THEN
5046: x_return_status := fnd_api.g_ret_sts_error;
5047: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_NOT_IN_SETUP');
5048: FND_MSG_PUB.ADD;
5049: RETURN;
5050: ELSE
5051: BEGIN
5064: AND MEMO_LINE_ID = p_memo_line_invoice_id;
5065: EXCEPTION
5066: WHEN No_Data_Found THEN
5067: x_return_status := fnd_api.g_ret_sts_error;
5068: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_NOT_DEF_IN_AR');
5069: FND_MSG_PUB.ADD;
5070: RETURN;
5071: END;
5072:
5072:
5073: IF NOT ((Trunc(SYSDATE) >= l_memo_line_start_date) AND
5074: (Trunc(SYSDATE) < Nvl(l_memo_line_end_date,Trunc(SYSDATE+1)))) THEN
5075: x_return_status := fnd_api.g_ret_sts_error;
5076: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_TYPE_NOT_ACTIVE');
5077: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5078: FND_MSG_PUB.ADD;
5079: RETURN;
5080: END IF;
5073: IF NOT ((Trunc(SYSDATE) >= l_memo_line_start_date) AND
5074: (Trunc(SYSDATE) < Nvl(l_memo_line_end_date,Trunc(SYSDATE+1)))) THEN
5075: x_return_status := fnd_api.g_ret_sts_error;
5076: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_TYPE_NOT_ACTIVE');
5077: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5078: FND_MSG_PUB.ADD;
5079: RETURN;
5080: END IF;
5081:
5081:
5082: IF (l_memo_line_type <> 'LINE' OR
5083: l_memo_line_rev_acc IS NULL) THEN
5084: x_return_status := fnd_api.g_ret_sts_error;
5085: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_INFO_NOT_VALID');
5086: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5087: FND_MSG_PUB.ADD;
5088: RETURN;
5089: END IF;
5082: IF (l_memo_line_type <> 'LINE' OR
5083: l_memo_line_rev_acc IS NULL) THEN
5084: x_return_status := fnd_api.g_ret_sts_error;
5085: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_INFO_NOT_VALID');
5086: FND_MESSAGE.set_token('MEMO_LINE',l_memo_line_name);
5087: FND_MSG_PUB.ADD;
5088: RETURN;
5089: END IF;
5090: END IF;
5092:
5093: IF (p_transaction_type_code IN (G_EMD_DEPOSIT,G_EMD_FORFEIT)) THEN
5094: IF (p_payment_terms_id IS NULL) THEN
5095: x_return_status := fnd_api.g_ret_sts_error;
5096: FND_MESSAGE.SET_NAME('PON','PAYMENT_TERM_NOT_IN_SETUP');
5097: FND_MSG_PUB.ADD;
5098: RETURN;
5099: ELSE
5100: BEGIN
5117: AND rt.term_id = p_payment_terms_id;
5118: EXCEPTION
5119: WHEN No_Data_Found THEN
5120: x_return_status := fnd_api.g_ret_sts_error;
5121: FND_MESSAGE.SET_NAME('PON','PAYMENT_TERM_NOT_DEF_IN_AR');
5122: FND_MSG_PUB.ADD;
5123: RETURN;
5124: END;
5125: IF NOT ((Trunc(SYSDATE) >= l_term_start_date) AND
5124: END;
5125: IF NOT ((Trunc(SYSDATE) >= l_term_start_date) AND
5126: (Trunc(SYSDATE) < Nvl(l_term_end_Date,Trunc(SYSDATE+1)))) THEN
5127: x_return_status := fnd_api.g_ret_sts_error;
5128: FND_MESSAGE.SET_NAME('PON','PAYMENT_TERM_NOT_ACTIVE');
5129: FND_MESSAGE.set_token('PAYMENT_TERM',l_term_name);
5130: FND_MSG_PUB.ADD;
5131: RETURN;
5132: END IF;
5125: IF NOT ((Trunc(SYSDATE) >= l_term_start_date) AND
5126: (Trunc(SYSDATE) < Nvl(l_term_end_Date,Trunc(SYSDATE+1)))) THEN
5127: x_return_status := fnd_api.g_ret_sts_error;
5128: FND_MESSAGE.SET_NAME('PON','PAYMENT_TERM_NOT_ACTIVE');
5129: FND_MESSAGE.set_token('PAYMENT_TERM',l_term_name);
5130: FND_MSG_PUB.ADD;
5131: RETURN;
5132: END IF;
5133: END IF;
5186:
5187:
5188: IF (p_receipt_method_id IS NULL) THEN
5189: x_return_status := fnd_api.g_ret_sts_error;
5190: FND_MESSAGE.SET_NAME('PON','REC_METH_NOT_DEF_FOR_PAY_TYP');
5191: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',p_payment_type_code);
5192: FND_MSG_PUB.ADD;
5193: RETURN;
5194: ELSE
5187:
5188: IF (p_receipt_method_id IS NULL) THEN
5189: x_return_status := fnd_api.g_ret_sts_error;
5190: FND_MESSAGE.SET_NAME('PON','REC_METH_NOT_DEF_FOR_PAY_TYP');
5191: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',p_payment_type_code);
5192: FND_MSG_PUB.ADD;
5193: RETURN;
5194: ELSE
5195: BEGIN
5209: AND RM.RECEIPT_METHOD_ID = p_receipt_method_id;
5210: EXCEPTION
5211: WHEN No_Data_Found THEN
5212: x_return_status := fnd_api.g_ret_sts_error;
5213: FND_MESSAGE.SET_NAME('PON','RECEIPT_METH_NOT_DEF_IN_AR');
5214: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',p_payment_type_code);
5215: FND_MSG_PUB.ADD;
5216: RETURN;
5217: END;
5210: EXCEPTION
5211: WHEN No_Data_Found THEN
5212: x_return_status := fnd_api.g_ret_sts_error;
5213: FND_MESSAGE.SET_NAME('PON','RECEIPT_METH_NOT_DEF_IN_AR');
5214: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',p_payment_type_code);
5215: FND_MSG_PUB.ADD;
5216: RETURN;
5217: END;
5218:
5218:
5219: IF NOT ((Trunc(SYSDATE) >= l_rm_start_date) AND
5220: (Trunc(SYSDATE) < Nvl(l_rm_end_date,Trunc(SYSDATE+1)))) THEN
5221: x_return_status := fnd_api.g_ret_sts_error;
5222: FND_MESSAGE.SET_NAME('PON','RECEIPT_METHOD_NOT_ACTIVE');
5223: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5224: FND_MSG_PUB.ADD;
5225: RETURN;
5226: END IF;
5219: IF NOT ((Trunc(SYSDATE) >= l_rm_start_date) AND
5220: (Trunc(SYSDATE) < Nvl(l_rm_end_date,Trunc(SYSDATE+1)))) THEN
5221: x_return_status := fnd_api.g_ret_sts_error;
5222: FND_MESSAGE.SET_NAME('PON','RECEIPT_METHOD_NOT_ACTIVE');
5223: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5224: FND_MSG_PUB.ADD;
5225: RETURN;
5226: END IF;
5227:
5227:
5228: IF (p_payment_type_code IN (G_CASH,G_DEMAND_DRAFT,G_CHECK)) THEN
5229: IF (l_receipt_creation_method <> 'MANUAL') THEN
5230: x_return_status := fnd_api.g_ret_sts_error;
5231: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_METH_NOT_VALID');
5232: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5233: FND_MSG_PUB.ADD;
5234: RETURN;
5235: END IF;
5228: IF (p_payment_type_code IN (G_CASH,G_DEMAND_DRAFT,G_CHECK)) THEN
5229: IF (l_receipt_creation_method <> 'MANUAL') THEN
5230: x_return_status := fnd_api.g_ret_sts_error;
5231: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_METH_NOT_VALID');
5232: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5233: FND_MSG_PUB.ADD;
5234: RETURN;
5235: END IF;
5236:
5235: END IF;
5236:
5237: IF (l_payment_channal_code IS NOT NULL) THEN
5238: x_return_status := fnd_api.g_ret_sts_error;
5239: FND_MESSAGE.SET_NAME('PON','PAY_METH_FOR_NOT_VALID');
5240: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5241: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5242: FND_MSG_PUB.ADD;
5243: RETURN;
5236:
5237: IF (l_payment_channal_code IS NOT NULL) THEN
5238: x_return_status := fnd_api.g_ret_sts_error;
5239: FND_MESSAGE.SET_NAME('PON','PAY_METH_FOR_NOT_VALID');
5240: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5241: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5242: FND_MSG_PUB.ADD;
5243: RETURN;
5244: END IF;
5237: IF (l_payment_channal_code IS NOT NULL) THEN
5238: x_return_status := fnd_api.g_ret_sts_error;
5239: FND_MESSAGE.SET_NAME('PON','PAY_METH_FOR_NOT_VALID');
5240: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5241: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5242: FND_MSG_PUB.ADD;
5243: RETURN;
5244: END IF;
5245: ELSIF (p_payment_type_code = 'BANK_EFT_XFER') THEN
5244: END IF;
5245: ELSIF (p_payment_type_code = 'BANK_EFT_XFER') THEN
5246: IF (l_receipt_creation_method <> 'AUTOMATIC') THEN
5247: x_return_status := fnd_api.g_ret_sts_error;
5248: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_METH_NOT_VALID');
5249: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5250: FND_MSG_PUB.ADD;
5251: RETURN;
5252: END IF;
5245: ELSIF (p_payment_type_code = 'BANK_EFT_XFER') THEN
5246: IF (l_receipt_creation_method <> 'AUTOMATIC') THEN
5247: x_return_status := fnd_api.g_ret_sts_error;
5248: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_METH_NOT_VALID');
5249: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5250: FND_MSG_PUB.ADD;
5251: RETURN;
5252: END IF;
5253:
5252: END IF;
5253:
5254: IF (l_payment_channal_code <> G_BANK_ACCT_XFER) THEN
5255: x_return_status := fnd_api.g_ret_sts_error;
5256: FND_MESSAGE.SET_NAME('PON','PAY_METH_NOT_VALID');
5257: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5258: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5259: FND_MSG_PUB.ADD;
5260: RETURN;
5253:
5254: IF (l_payment_channal_code <> G_BANK_ACCT_XFER) THEN
5255: x_return_status := fnd_api.g_ret_sts_error;
5256: FND_MESSAGE.SET_NAME('PON','PAY_METH_NOT_VALID');
5257: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5258: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5259: FND_MSG_PUB.ADD;
5260: RETURN;
5261: END IF;
5254: IF (l_payment_channal_code <> G_BANK_ACCT_XFER) THEN
5255: x_return_status := fnd_api.g_ret_sts_error;
5256: FND_MESSAGE.SET_NAME('PON','PAY_METH_NOT_VALID');
5257: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5258: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5259: FND_MSG_PUB.ADD;
5260: RETURN;
5261: END IF;
5262: ELSIF (p_payment_type_code = G_CREDIT_CARD) THEN
5261: END IF;
5262: ELSIF (p_payment_type_code = G_CREDIT_CARD) THEN
5263: IF (l_receipt_creation_method <> 'AUTOMATIC') THEN
5264: x_return_status := fnd_api.g_ret_sts_error;
5265: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_METH_NOT_VALID');
5266: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5267: FND_MSG_PUB.ADD;
5268: RETURN;
5269: END IF;
5262: ELSIF (p_payment_type_code = G_CREDIT_CARD) THEN
5263: IF (l_receipt_creation_method <> 'AUTOMATIC') THEN
5264: x_return_status := fnd_api.g_ret_sts_error;
5265: FND_MESSAGE.SET_NAME('PON','RECEIPT_CRE_METH_NOT_VALID');
5266: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5267: FND_MSG_PUB.ADD;
5268: RETURN;
5269: END IF;
5270:
5269: END IF;
5270:
5271: IF (l_payment_channal_code <> G_CREDIT_CARD) THEN
5272: x_return_status := fnd_api.g_ret_sts_error;
5273: FND_MESSAGE.SET_NAME('PON','PAY_METH_NOT_VALID');
5274: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5275: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5276: FND_MSG_PUB.ADD;
5277: RETURN;
5270:
5271: IF (l_payment_channal_code <> G_CREDIT_CARD) THEN
5272: x_return_status := fnd_api.g_ret_sts_error;
5273: FND_MESSAGE.SET_NAME('PON','PAY_METH_NOT_VALID');
5274: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5275: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5276: FND_MSG_PUB.ADD;
5277: RETURN;
5278: END IF;
5271: IF (l_payment_channal_code <> G_CREDIT_CARD) THEN
5272: x_return_status := fnd_api.g_ret_sts_error;
5273: FND_MESSAGE.SET_NAME('PON','PAY_METH_NOT_VALID');
5274: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5275: FND_MESSAGE.set_token('RECEIPT_METHOD',l_receipt_method_name);
5276: FND_MSG_PUB.ADD;
5277: RETURN;
5278: END IF;
5279: END IF;
5282: IF (p_transaction_type_code = G_EMD_REFUND) THEN
5283: IF ((p_payment_type_code <> G_CREDIT_CARD) AND
5284: (p_refund_payment_method IS NULL)) THEN
5285: x_return_status := fnd_api.g_ret_sts_error;
5286: FND_MESSAGE.SET_NAME('PON','REF_PAY_METH_NOT_IN_SETUP');
5287: FND_MSG_PUB.ADD;
5288: RETURN;
5289: END IF;
5290: IF (p_refund_payment_method IS NOT NULL) THEN
5295: WHERE PAYMENT_METHOD_CODE = p_refund_payment_method;
5296: EXCEPTION
5297: WHEN No_Data_Found THEN
5298: x_return_status := fnd_api.g_ret_sts_error;
5299: FND_MESSAGE.SET_NAME('PON','REF_PAY_METH_NOT_VALID');
5300: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5301: FND_MESSAGE.SET_TOKEN('PAY_METHOD',l_refund_payment_method_name);
5302: FND_MSG_PUB.ADD;
5303: RETURN;
5296: EXCEPTION
5297: WHEN No_Data_Found THEN
5298: x_return_status := fnd_api.g_ret_sts_error;
5299: FND_MESSAGE.SET_NAME('PON','REF_PAY_METH_NOT_VALID');
5300: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5301: FND_MESSAGE.SET_TOKEN('PAY_METHOD',l_refund_payment_method_name);
5302: FND_MSG_PUB.ADD;
5303: RETURN;
5304: END;
5297: WHEN No_Data_Found THEN
5298: x_return_status := fnd_api.g_ret_sts_error;
5299: FND_MESSAGE.SET_NAME('PON','REF_PAY_METH_NOT_VALID');
5300: FND_MESSAGE.SET_TOKEN('PAYMENT_TYPE',l_payment_type_name);
5301: FND_MESSAGE.SET_TOKEN('PAY_METHOD',l_refund_payment_method_name);
5302: FND_MSG_PUB.ADD;
5303: RETURN;
5304: END;
5305: END IF;
5342:
5343: if (l_return_value) THEN
5344: if l_status <> 'I' then
5345: x_return_status := fnd_api.g_ret_sts_error;
5346: FND_MESSAGE.SET_NAME('PON','AR_NOT_INSTALLED');
5347: FND_MSG_PUB.ADD;
5348: RETURN;
5349: end if;
5350: else
5348: RETURN;
5349: end if;
5350: else
5351: x_return_status := fnd_api.g_ret_sts_error;
5352: FND_MESSAGE.SET_NAME('PON','AR_NOT_INSTALLED');
5353: FND_MSG_PUB.ADD;
5354: RETURN;
5355: end if;
5356: EXCEPTION
5355: end if;
5356: EXCEPTION
5357: WHEN OTHERS THEN
5358: x_return_status := fnd_api.g_ret_sts_error;
5359: FND_MESSAGE.SET_NAME('PON','AR_NOT_INSTALLED');
5360: FND_MSG_PUB.ADD;
5361: RETURN;
5362: END;
5363: -- Validate AP Installation
5371:
5372: if (l_return_value) THEN
5373: if l_status <> 'I' then
5374: x_return_status := fnd_api.g_ret_sts_error;
5375: FND_MESSAGE.SET_NAME('PON','AP_NOT_INSTALLED');
5376: FND_MSG_PUB.ADD;
5377: RETURN;
5378: end if;
5379: else
5377: RETURN;
5378: end if;
5379: else
5380: x_return_status := fnd_api.g_ret_sts_error;
5381: FND_MESSAGE.SET_NAME('PON','AP_NOT_INSTALLED');
5382: FND_MSG_PUB.ADD;
5383: RETURN;
5384: end if;
5385: EXCEPTION
5384: end if;
5385: EXCEPTION
5386: WHEN OTHERS THEN
5387: x_return_status := fnd_api.g_ret_sts_error;
5388: FND_MESSAGE.SET_NAME('PON','AP_NOT_INSTALLED');
5389: FND_MSG_PUB.ADD;
5390: RETURN;
5391: END;
5392:
5401:
5402: if (l_return_value) then
5403: if l_status <> 'I' then
5404: x_return_status := fnd_api.g_ret_sts_error;
5405: FND_MESSAGE.SET_NAME('PON','IBY_NOT_INSTALLED');
5406: FND_MSG_PUB.ADD;
5407: RETURN;
5408: end if;
5409: else
5407: RETURN;
5408: end if;
5409: else
5410: x_return_status := fnd_api.g_ret_sts_error;
5411: FND_MESSAGE.SET_NAME('PON','IBY_NOT_INSTALLED');
5412: FND_MSG_PUB.ADD;
5413: RETURN;
5414: end if;
5415: EXCEPTION
5414: end if;
5415: EXCEPTION
5416: WHEN OTHERS THEN
5417: x_return_status := fnd_api.g_ret_sts_error;
5418: FND_MESSAGE.SET_NAME('PON','IBY_NOT_INSTALLED');
5419: FND_MSG_PUB.ADD;
5420: RETURN;
5421: END;
5422:
5431:
5432: if (l_return_value) then
5433: if l_status <> 'I' then
5434: x_return_status := fnd_api.g_ret_sts_error;
5435: FND_MESSAGE.SET_NAME('PON','GL_NOT_INSTALLED');
5436: FND_MSG_PUB.ADD;
5437: RETURN;
5438: end if;
5439: else
5437: RETURN;
5438: end if;
5439: else
5440: x_return_status := fnd_api.g_ret_sts_error;
5441: FND_MESSAGE.SET_NAME('PON','GL_NOT_INSTALLED');
5442: FND_MSG_PUB.ADD;
5443: RETURN;
5444: end if;
5445: EXCEPTION
5444: end if;
5445: EXCEPTION
5446: WHEN OTHERS THEN
5447: x_return_status := fnd_api.g_ret_sts_error;
5448: FND_MESSAGE.SET_NAME('PON','GL_NOT_INSTALLED');
5449: FND_MSG_PUB.ADD;
5450: RETURN;
5451: END;
5452:
5604: AND Trunc(SYSDATE) BETWEEN start_date AND Nvl(end_date,Trunc(SYSDATE+1));
5605: EXCEPTION
5606: WHEN No_Data_Found THEN
5607: x_return_status := fnd_api.g_ret_sts_success;
5608: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_DEF');
5609: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE_ID',To_Char(p_in_rec.batch_source_id));
5610: FND_MSG_PUB.ADD;
5611: RETURN;
5612: END;
5605: EXCEPTION
5606: WHEN No_Data_Found THEN
5607: x_return_status := fnd_api.g_ret_sts_success;
5608: FND_MESSAGE.SET_NAME('PON','TRX_BATCH_SOURCE_NOT_DEF');
5609: FND_MESSAGE.SET_TOKEN('BATCH_SOURCE_ID',To_Char(p_in_rec.batch_source_id));
5610: FND_MSG_PUB.ADD;
5611: RETURN;
5612: END;
5613:
5621: AND MEMO_LINE_ID = p_in_rec.memo_line_id;
5622: EXCEPTION
5623: WHEN No_Data_Found THEN
5624: x_return_status := fnd_api.g_ret_sts_error;
5625: FND_MESSAGE.SET_NAME('PON','MEMO_LINE_NOT_DEF_IN_AR');
5626: FND_MSG_PUB.ADD;
5627: RETURN;
5628: END;
5629:
5810: END;
5811: COMMIT;
5812: IF l_conc_req_id = 0 THEN
5813: print_log('l_conc_req_id'||l_conc_req_id);
5814: FND_MESSAGE.set_name('PON','AR_AUTO_INVOICE_SUBMIT_FAILED'); /*Concurrent program submission failed!!!!!*/
5815: FND_MSG_PUB.add;
5816: x_return_status := fnd_api.g_ret_sts_error;
5817:
5818: IF (p_in_rec.emd_trx_group_id IS NOT NULL) THEN
5841: print_log('call status is true');
5842: IF dev_request_phase <> 'COMPLETE' OR
5843: dev_request_status IN ('CANCELLED','ERROR','TERMINATED') THEN
5844: print_log('Dev status phase is not Completed');
5845: FND_MESSAGE.set_name('PON','AR_AUTO_INVOICE_JOB_FAILED');
5846: FND_MESSAGE.set_token('REQUEST_ID',l_conc_req_id);
5847: FND_MSG_PUB.add;
5848: x_return_status := fnd_api.g_ret_sts_error;
5849: IF (p_in_rec.emd_trx_group_id IS NOT NULL) THEN
5842: IF dev_request_phase <> 'COMPLETE' OR
5843: dev_request_status IN ('CANCELLED','ERROR','TERMINATED') THEN
5844: print_log('Dev status phase is not Completed');
5845: FND_MESSAGE.set_name('PON','AR_AUTO_INVOICE_JOB_FAILED');
5846: FND_MESSAGE.set_token('REQUEST_ID',l_conc_req_id);
5847: FND_MSG_PUB.add;
5848: x_return_status := fnd_api.g_ret_sts_error;
5849: IF (p_in_rec.emd_trx_group_id IS NOT NULL) THEN
5850: DELETE FROM ra_interface_lines_all
5953: AND INTERFACE_LINE_ATTRIBUTE7 = to_char(p_in_rec.emd_trx_group_id);
5954: COMMIT;
5955: END IF;
5956: x_return_status := fnd_api.g_ret_sts_error;
5957: FND_MESSAGE.set_name('PON','AR_AUTO_INVOICE_JOB_FAILED');
5958: FND_MESSAGE.set_token('REQUEST_ID',l_conc_req_id);
5959: FND_MSG_PUB.ADD;
5960: END IF;
5961: END IF;
5954: COMMIT;
5955: END IF;
5956: x_return_status := fnd_api.g_ret_sts_error;
5957: FND_MESSAGE.set_name('PON','AR_AUTO_INVOICE_JOB_FAILED');
5958: FND_MESSAGE.set_token('REQUEST_ID',l_conc_req_id);
5959: FND_MSG_PUB.ADD;
5960: END IF;
5961: END IF;
5962: print_log('x_return_status: '||x_return_status);
6027:
6028: COMMIT;
6029: IF (l_conc_req_id = 0) THEN
6030: print_log('post_emd_transactions l_conc_req_id'||l_conc_req_id);
6031: fnd_message.set_name ('PON','PON_EMD_CONC_SUBMIT_FAILED');
6032: FND_MSG_PUB.add;
6033: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6034: p_count => x_msg_count,
6035: p_data => x_msg_data);
6137:
6138: COMMIT;
6139: IF (l_conc_req_id = 0) THEN
6140: print_log('post_emd_transactions l_conc_req_id'||l_conc_req_id);
6141: fnd_message.set_name ('PON','PON_EMD_CONC_SUBMIT_FAILED');
6142: FND_MSG_PUB.add;
6143: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6144: p_count => x_msg_count,
6145: p_data => x_msg_data);