1924: EXCEPTION
1925:
1926: WHEN OTHERS THEN
1927:
1928: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1929: THEN
1930: oe_msg_pub.Add_Exc_Msg
1931: ( G_PKG_NAME
1932: , 'Update_Row'
1926: WHEN OTHERS THEN
1927:
1928: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1929: THEN
1930: oe_msg_pub.Add_Exc_Msg
1931: ( G_PKG_NAME
1932: , 'Update_Row'
1933: );
1934: END IF;
2128: EXCEPTION
2129:
2130: WHEN OTHERS THEN
2131:
2132: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2133: THEN
2134: oe_msg_pub.Add_Exc_Msg
2135: ( G_PKG_NAME
2136: , 'Insert_Row'
2130: WHEN OTHERS THEN
2131:
2132: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2133: THEN
2134: oe_msg_pub.Add_Exc_Msg
2135: ( G_PKG_NAME
2136: , 'Insert_Row'
2137: );
2138: END IF;
2535: EXCEPTION
2536:
2537: WHEN OTHERS THEN
2538:
2539: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2540: THEN
2541: oe_msg_pub.Add_Exc_Msg
2542: ( G_PKG_NAME
2543: , 'Delete_Row'
2537: WHEN OTHERS THEN
2538:
2539: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2540: THEN
2541: oe_msg_pub.Add_Exc_Msg
2542: ( G_PKG_NAME
2543: , 'Delete_Row'
2544: );
2545: END IF;
2736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2737:
2738: WHEN OTHERS THEN
2739:
2740: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2741: THEN
2742: oe_msg_pub.Add_Exc_Msg
2743: ( G_PKG_NAME
2744: , 'Query_Row'
2738: WHEN OTHERS THEN
2739:
2740: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2741: THEN
2742: oe_msg_pub.Add_Exc_Msg
2743: ( G_PKG_NAME
2744: , 'Query_Row'
2745: );
2746: END IF;
2926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2927:
2928: WHEN OTHERS THEN
2929:
2930: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2931: THEN
2932: oe_msg_pub.Add_Exc_Msg
2933: ( G_PKG_NAME
2934: , 'Query_Rows'
2928: WHEN OTHERS THEN
2929:
2930: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2931: THEN
2932: oe_msg_pub.Add_Exc_Msg
2933: ( G_PKG_NAME
2934: , 'Query_Rows'
2935: );
2936: END IF;
3035:
3036: x_return_status := FND_API.G_RET_STS_ERROR;
3037: p_x_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
3038:
3039: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3040: THEN
3041:
3042: -- Release the lock
3043: ROLLBACK TO Lock_Row;
3042: -- Release the lock
3043: ROLLBACK TO Lock_Row;
3044:
3045: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_CHANGED');
3046: oe_msg_pub.Add;
3047:
3048: END IF;
3049:
3050: END IF;
3055:
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: p_x_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
3058:
3059: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3060: THEN
3061:
3062: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_DELETED');
3063: oe_msg_pub.Add;
3059: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3060: THEN
3061:
3062: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_DELETED');
3063: oe_msg_pub.Add;
3064:
3065: END IF;
3066: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3067:
3067:
3068: x_return_status := FND_API.G_RET_STS_ERROR;
3069: p_x_Line_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
3070:
3071: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3072: THEN
3073:
3074: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3075: oe_msg_pub.Add;
3071: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3072: THEN
3073:
3074: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3075: oe_msg_pub.Add;
3076:
3077: END IF;
3078: WHEN OTHERS THEN
3079:
3079:
3080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3081: p_x_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3082:
3083: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3084: THEN
3085: oe_msg_pub.Add_Exc_Msg
3086: ( G_PKG_NAME
3087: , 'Lock_Row'
3081: p_x_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3082:
3083: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3084: THEN
3085: oe_msg_pub.Add_Exc_Msg
3086: ( G_PKG_NAME
3087: , 'Lock_Row'
3088: );
3089: END IF;
3122: p_payment_number <> FND_API.G_MISS_NUM) AND
3123: (p_line_id IS NOT NULL AND
3124: p_line_id <> FND_API.G_MISS_NUM)
3125: THEN
3126: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3127: THEN
3128: OE_MSG_PUB.Add_Exc_Msg
3129: ( G_PKG_NAME
3130: , 'Lock Rows'
3124: p_line_id <> FND_API.G_MISS_NUM)
3125: THEN
3126: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3127: THEN
3128: OE_MSG_PUB.Add_Exc_Msg
3129: ( G_PKG_NAME
3130: , 'Lock Rows'
3131: , 'Keys are mutually exclusive: payment_number = '||
3132: p_payment_number || ', line_id = '|| p_line_id );
3196: WHEN NO_DATA_FOUND THEN
3197:
3198: x_return_status := FND_API.G_RET_STS_ERROR;
3199:
3200: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3201: THEN
3202: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
3203: OE_MSG_PUB.Add;
3204: END IF;
3199:
3200: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3201: THEN
3202: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
3203: OE_MSG_PUB.Add;
3204: END IF;
3205:
3206: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3207:
3205:
3206: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3207:
3208: x_return_status := FND_API.G_RET_STS_ERROR;
3209: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3210: THEN
3211: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3212: OE_MSG_PUB.Add;
3213: END IF;
3208: x_return_status := FND_API.G_RET_STS_ERROR;
3209: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3210: THEN
3211: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3212: OE_MSG_PUB.Add;
3213: END IF;
3214:
3215: WHEN OTHERS THEN
3216:
3215: WHEN OTHERS THEN
3216:
3217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3218:
3219: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3220: THEN
3221: OE_MSG_PUB.Add_Exc_Msg
3222: ( G_PKG_NAME
3223: , 'Lock_Rows'
3217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3218:
3219: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3220: THEN
3221: OE_MSG_PUB.Add_Exc_Msg
3222: ( G_PKG_NAME
3223: , 'Lock_Rows'
3224: );
3225: END IF;
3300: THEN
3301:
3302: IF p_x_Line_Payment_rec.payment_collection_event <> FND_API.G_MISS_CHAR THEN
3303:
3304: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3305: THEN
3306:
3307: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3308: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_collection_event_name');
3305: THEN
3306:
3307: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3308: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_collection_event_name');
3309: oe_msg_pub.Add;
3310:
3311: END IF;
3312:
3313: ELSE
3329:
3330: IF p_x_Line_Payment_rec.payment_type_code <> FND_API.G_MISS_CHAR THEN
3331:
3332:
3333: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3334: THEN
3335:
3336: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3337: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_type');
3334: THEN
3335:
3336: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3337: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_type');
3338: oe_msg_pub.Add;
3339:
3340: END IF;
3341:
3342: ELSE
3359:
3360: IF p_x_Line_Payment_rec.receipt_method_id <> FND_API.G_MISS_NUM THEN
3361:
3362:
3363: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3364: THEN
3365:
3366: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3367: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Method');
3364: THEN
3365:
3366: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3367: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Method');
3368: oe_msg_pub.Add;
3369:
3370: END IF;
3371:
3372: ELSE
3508: IF l_new_commitment_bal IS NOT NULL THEN
3509: FND_MESSAGE.Set_Name('ONT','OE_COM_BALANCE');
3510: FND_MESSAGE.Set_Token('COMMITMENT',l_commitment);
3511: FND_Message.Set_Token('BALANCE',to_char(l_new_commitment_bal, g_fmt_mask));
3512: OE_MSG_PUB.ADD;
3513: END IF;
3514: -- End of Bug #3742103
3515: END IF;
3516: --bug 3560198
3670:
3671: IF OE_Payment_Trxn_Util.g_CC_Security_Code_Use = 'REQUIRED' AND
3672: p_x_line_Payment_rec.instrument_security_code IS NULL THEN
3673: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3674: OE_Msg_Pub.Add;
3675: RAISE FND_API.G_EXC_ERROR;
3676: END IF;
3677: END IF;
3678:
3730: oe_debug_pub.add('New trxn extension id after calling Create_Payment_TRXN:'||l_trxn_extension_id);
3731: END IF;
3732: EXCEPTION
3733: WHEN FND_API.G_EXC_ERROR THEN
3734: OE_MSG_PUB.Count_And_Get
3735: ( p_count => l_msg_count,
3736: p_data => l_msg_data
3737: );
3738: l_return_status := FND_API.G_RET_STS_ERROR;
3738: l_return_status := FND_API.G_RET_STS_ERROR;
3739: RAISE FND_API.G_EXC_ERROR;
3740:
3741: WHEN OTHERS THEN
3742: OE_MSG_PUB.Count_And_Get
3743: ( p_count => l_msg_count,
3744: p_data => l_msg_data
3745: );
3746: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3743: ( p_count => l_msg_count,
3744: p_data => l_msg_data
3745: );
3746: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3747: OE_MSG_PUB.ADD;
3748: IF l_debug_level > 0 THEN
3749: oe_debug_pub.add( 'OEXUHPMB: ERROR IN CREATE PAYMENT trxn...'||sqlerrm) ;
3750: oe_debug_pub.add('Error messsge ksurendr'||l_return_status);
3751: END IF;
3764: END IF;
3765: IF OE_Payment_Trxn_Util.g_CC_Security_Code_Use = 'REQUIRED'
3766: AND p_x_line_Payment_rec.instrument_security_code IS NULL THEN
3767: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3768: OE_Msg_Pub.Add;
3769: RAISE FND_API.G_EXC_ERROR;
3770: END IF;
3771: END IF;*/
3772: IF l_debug_level > 0 THEN
3838: oe_debug_pub.add('After call to Update_Payment_TRXN'||l_return_status);
3839: oe_debug_pub.add('Error'||sqlerrm);
3840: END IF;
3841: l_return_status := FND_API.G_RET_STS_ERROR;
3842: OE_MSG_PUB.Count_And_Get
3843: ( p_count => l_msg_count,
3844: p_data => l_msg_data
3845: );
3846: RAISE FND_API.G_EXC_ERROR;
3871:
3872: IF OE_Payment_Trxn_Util.g_CC_Security_Code_Use = 'REQUIRED' AND
3873: p_x_line_Payment_rec.instrument_security_code IS NULL THEN
3874: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3875: OE_Msg_Pub.Add;
3876: RAISE FND_API.G_EXC_ERROR;
3877: END IF;
3878: END IF;
3879:
3934: oe_debug_pub.add('New trxn extension id after calling Create_Payment_TRXN:'||l_trxn_extension_id);
3935: END IF;
3936: Exception
3937: WHEN FND_API.G_EXC_ERROR THEN
3938: OE_MSG_PUB.Count_And_Get
3939: ( p_count => l_msg_count,
3940: p_data => l_msg_data
3941: );
3942: l_return_status := FND_API.G_RET_STS_ERROR;
3942: l_return_status := FND_API.G_RET_STS_ERROR;
3943: RAISE FND_API.G_EXC_ERROR;
3944:
3945: WHEN OTHERS THEN
3946: OE_MSG_PUB.Count_And_Get
3947: ( p_count => l_msg_count,
3948: p_data => l_msg_data
3949: );
3950: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3947: ( p_count => l_msg_count,
3948: p_data => l_msg_data
3949: );
3950: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3951: OE_MSG_PUB.ADD;
3952: IF l_debug_level > 0 THEN
3953: oe_debug_pub.add( 'OEXUHPMB: ERROR IN CREATE PAYMENT trxn...'||sqlerrm) ;
3954: oe_debug_pub.add('Error messsge ksurendr'||l_return_status);
3955: END IF;
4113: Exception
4114:
4115: WHEN FND_API.G_EXC_ERROR THEN
4116: x_return_status := FND_API.G_RET_STS_ERROR;
4117: OE_MSG_PUB.Count_And_Get
4118: ( p_count => x_msg_count,
4119: p_data => x_msg_data
4120: );
4121:
4120: );
4121:
4122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4124: OE_MSG_PUB.Count_And_Get
4125: ( p_count => x_msg_count,
4126: p_data => x_msg_data
4127: );
4128:
4127: );
4128:
4129: WHEN OTHERS THEN
4130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4131: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4132: THEN
4133: OE_MSG_PUB.Add_Exc_Msg
4134: ( G_PKG_NAME
4135: , 'Delete_Payment_at_Line'
4129: WHEN OTHERS THEN
4130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4131: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4132: THEN
4133: OE_MSG_PUB.Add_Exc_Msg
4134: ( G_PKG_NAME
4135: , 'Delete_Payment_at_Line'
4136: );
4137: END IF;