eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OE_HEADER_PAYMENT_UTIL dependencies on OE_MSG_PUB

Line 2031: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2027: EXCEPTION
2028:
2029: WHEN OTHERS THEN
2030:
2031: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2032: THEN
2033: oe_msg_pub.Add_Exc_Msg
2034: ( G_PKG_NAME
2035: , 'Update_Row'

Line 2033: oe_msg_pub.Add_Exc_Msg

2029: WHEN OTHERS THEN
2030:
2031: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2032: THEN
2033: oe_msg_pub.Add_Exc_Msg
2034: ( G_PKG_NAME
2035: , 'Update_Row'
2036: );
2037: END IF;

Line 2210: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2206: EXCEPTION
2207:
2208: WHEN OTHERS THEN
2209: oe_debug_pub.add('Sql error'||sqlerrm);
2210: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2211: THEN
2212: oe_msg_pub.Add_Exc_Msg
2213: ( G_PKG_NAME
2214: , 'Insert_Row'

Line 2212: oe_msg_pub.Add_Exc_Msg

2208: WHEN OTHERS THEN
2209: oe_debug_pub.add('Sql error'||sqlerrm);
2210: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2211: THEN
2212: oe_msg_pub.Add_Exc_Msg
2213: ( G_PKG_NAME
2214: , 'Insert_Row'
2215: );
2216: END IF;

Line 2601: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2597: EXCEPTION
2598:
2599: WHEN OTHERS THEN
2600:
2601: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2602: THEN
2603: oe_msg_pub.Add_Exc_Msg
2604: ( G_PKG_NAME
2605: , 'Delete_Row'

Line 2603: oe_msg_pub.Add_Exc_Msg

2599: WHEN OTHERS THEN
2600:
2601: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2602: THEN
2603: oe_msg_pub.Add_Exc_Msg
2604: ( G_PKG_NAME
2605: , 'Delete_Row'
2606: );
2607: END IF;

Line 2796: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2793:
2794: WHEN OTHERS THEN
2795:
2796: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2797: THEN
2798: oe_msg_pub.Add_Exc_Msg
2799: ( G_PKG_NAME
2800: , 'Query_Row'

Line 2798: oe_msg_pub.Add_Exc_Msg

2794: WHEN OTHERS THEN
2795:
2796: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2797: THEN
2798: oe_msg_pub.Add_Exc_Msg
2799: ( G_PKG_NAME
2800: , 'Query_Row'
2801: );
2802: END IF;

Line 2986: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2983:
2984: WHEN OTHERS THEN
2985:
2986: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2987: THEN
2988: oe_msg_pub.Add_Exc_Msg
2989: ( G_PKG_NAME
2990: , 'Query_Rows'

Line 2988: oe_msg_pub.Add_Exc_Msg

2984: WHEN OTHERS THEN
2985:
2986: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2987: THEN
2988: oe_msg_pub.Add_Exc_Msg
2989: ( G_PKG_NAME
2990: , 'Query_Rows'
2991: );
2992: END IF;

Line 3090: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

3086:
3087: x_return_status := FND_API.G_RET_STS_ERROR;
3088: p_x_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
3089:
3090: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3091: THEN
3092:
3093: -- Release the lock
3094: ROLLBACK TO Lock_Row;

Line 3097: oe_msg_pub.Add;

3093: -- Release the lock
3094: ROLLBACK TO Lock_Row;
3095:
3096: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_CHANGED');
3097: oe_msg_pub.Add;
3098:
3099: END IF;
3100:
3101: END IF;

Line 3110: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

3106:
3107: x_return_status := FND_API.G_RET_STS_ERROR;
3108: p_x_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
3109:
3110: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3111: THEN
3112:
3113: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_DELETED');
3114: oe_msg_pub.Add;

Line 3114: oe_msg_pub.Add;

3110: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3111: THEN
3112:
3113: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_DELETED');
3114: oe_msg_pub.Add;
3115:
3116: END IF;
3117: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3118:

Line 3122: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

3118:
3119: x_return_status := FND_API.G_RET_STS_ERROR;
3120: p_x_Header_Payment_rec.return_status := FND_API.G_RET_STS_ERROR;
3121:
3122: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3123: THEN
3124:
3125: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3126: oe_msg_pub.Add;

Line 3126: oe_msg_pub.Add;

3122: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3123: THEN
3124:
3125: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3126: oe_msg_pub.Add;
3127:
3128: END IF;
3129: WHEN OTHERS THEN
3130:

Line 3134: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

3130:
3131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3132: p_x_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3133:
3134: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3135: THEN
3136: oe_msg_pub.Add_Exc_Msg
3137: ( G_PKG_NAME
3138: , 'Lock_Row'

Line 3136: oe_msg_pub.Add_Exc_Msg

3132: p_x_Header_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3133:
3134: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3135: THEN
3136: oe_msg_pub.Add_Exc_Msg
3137: ( G_PKG_NAME
3138: , 'Lock_Row'
3139: );
3140: END IF;

Line 3175: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

3171: p_payment_number <> FND_API.G_MISS_NUM) AND
3172: (p_header_id IS NOT NULL AND
3173: p_header_id <> FND_API.G_MISS_NUM)
3174: THEN
3175: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3176: THEN
3177: OE_MSG_PUB.Add_Exc_Msg
3178: ( G_PKG_NAME
3179: , 'Lock Rows'

Line 3177: OE_MSG_PUB.Add_Exc_Msg

3173: p_header_id <> FND_API.G_MISS_NUM)
3174: THEN
3175: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3176: THEN
3177: OE_MSG_PUB.Add_Exc_Msg
3178: ( G_PKG_NAME
3179: , 'Lock Rows'
3180: , 'Keys are mutually exclusive: payment_number = '||
3181: p_payment_number || ', header_id = '|| p_header_id );

Line 3249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)

3245: WHEN NO_DATA_FOUND THEN
3246:
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3248:
3249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3250: THEN
3251: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
3252: OE_MSG_PUB.Add;
3253: END IF;

Line 3252: OE_MSG_PUB.Add;

3248:
3249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3250: THEN
3251: fnd_message.set_name('ONT','OE_LOCK_ROW_DELETED');
3252: OE_MSG_PUB.Add;
3253: END IF;
3254:
3255: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3256:

Line 3258: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)

3254:
3255: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3256:
3257: x_return_status := FND_API.G_RET_STS_ERROR;
3258: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3259: THEN
3260: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3261: OE_MSG_PUB.Add;
3262: END IF;

Line 3261: OE_MSG_PUB.Add;

3257: x_return_status := FND_API.G_RET_STS_ERROR;
3258: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
3259: THEN
3260: fnd_message.set_name('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3261: OE_MSG_PUB.Add;
3262: END IF;
3263:
3264: WHEN OTHERS THEN
3265:

Line 3268: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

3264: WHEN OTHERS THEN
3265:
3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267:
3268: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3269: THEN
3270: OE_MSG_PUB.Add_Exc_Msg
3271: ( G_PKG_NAME
3272: , 'Lock_Rows'

Line 3270: OE_MSG_PUB.Add_Exc_Msg

3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267:
3268: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3269: THEN
3270: OE_MSG_PUB.Add_Exc_Msg
3271: ( G_PKG_NAME
3272: , 'Lock_Rows'
3273: );
3274: END IF;

Line 3353: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)

3349: THEN
3350:
3351: IF p_x_Header_Payment_rec.payment_collection_event <> FND_API.G_MISS_CHAR THEN
3352:
3353: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3354: THEN
3355:
3356: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3357: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_collection_event_name');

Line 3358: oe_msg_pub.Add;

3354: THEN
3355:
3356: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3357: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_collection_event_name');
3358: oe_msg_pub.Add;
3359:
3360: END IF;
3361:
3362: ELSE

Line 3382: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)

3378:
3379: IF p_x_Header_Payment_rec.payment_type_code <> FND_API.G_MISS_CHAR THEN
3380:
3381:
3382: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3383: THEN
3384:
3385: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3386: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_type');

Line 3387: oe_msg_pub.Add;

3383: THEN
3384:
3385: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3386: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','payment_type');
3387: oe_msg_pub.Add;
3388:
3389: END IF;
3390:
3391: ELSE

Line 3412: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)

3408:
3409: IF p_x_Header_Payment_rec.receipt_method_id <> FND_API.G_MISS_NUM THEN
3410:
3411:
3412: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3413: THEN
3414:
3415: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3416: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Method');

Line 3417: oe_msg_pub.Add;

3413: THEN
3414:
3415: FND_MESSAGE.SET_NAME('ONT','OE_BOTH_VAL_AND_ID_EXIST');
3416: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt_Method');
3417: oe_msg_pub.Add;
3418:
3419: END IF;
3420:
3421: ELSE

Line 3645: OE_Msg_Pub.Add;

3641:
3642: IF OE_Payment_Trxn_Util.g_CC_Security_Code_Use = 'REQUIRED' AND
3643: p_x_Header_Payment_rec.instrument_security_code IS NULL THEN
3644: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3645: OE_Msg_Pub.Add;
3646: RAISE FND_API.G_EXC_ERROR;
3647: END IF;
3648: END IF;
3649:

Line 3704: OE_MSG_PUB.Count_And_Get

3700: oe_debug_pub.add('New trxn extension id after calling Create_Payment_TRXN:'||p_x_header_payment_rec.trxn_extension_id);
3701: END IF;
3702: Exception
3703: WHEN FND_API.G_EXC_ERROR THEN
3704: OE_MSG_PUB.Count_And_Get
3705: ( p_count => l_msg_count,
3706: p_data => l_msg_data
3707: );
3708: l_return_status := FND_API.G_RET_STS_ERROR;

Line 3712: OE_MSG_PUB.Count_And_Get

3708: l_return_status := FND_API.G_RET_STS_ERROR;
3709: RAISE FND_API.G_EXC_ERROR;
3710:
3711: WHEN OTHERS THEN
3712: OE_MSG_PUB.Count_And_Get
3713: ( p_count => l_msg_count,
3714: p_data => l_msg_data
3715: );
3716: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');

Line 3717: OE_MSG_PUB.ADD;

3713: ( p_count => l_msg_count,
3714: p_data => l_msg_data
3715: );
3716: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3717: OE_MSG_PUB.ADD;
3718: IF l_debug_level > 0 THEN
3719: oe_debug_pub.add( 'OEXUHPMB: ERROR IN ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT'||l_msg_data ) ;
3720: oe_debug_pub.add('Error messsge ksurendr'||l_return_status);
3721: END IF;

Line 3742: OE_Msg_Pub.Add;

3738: END IF;
3739: IF OE_Payment_Trxn_Util.g_CC_Security_Code_Use = 'REQUIRED'
3740: AND p_x_Header_Payment_rec.instrument_security_code IS NULL THEN
3741: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3742: OE_Msg_Pub.Add;
3743: RAISE FND_API.G_EXC_ERROR;
3744: END IF;
3745: END IF;*/
3746:

Line 3810: OE_MSG_PUB.Count_And_Get

3806: oe_debug_pub.add('After call to Update_Payment_TRXN'||l_return_status);
3807: oe_debug_pub.add('Error'||sqlerrm);
3808: END IF;
3809: l_return_status := FND_API.G_RET_STS_ERROR;
3810: OE_MSG_PUB.Count_And_Get
3811: ( p_count => l_msg_count,
3812: p_data => l_msg_data
3813: );
3814: RAISE FND_API.G_EXC_ERROR;

Line 3817: OE_MSG_PUB.Count_And_Get

3813: );
3814: RAISE FND_API.G_EXC_ERROR;
3815:
3816: WHEN OTHERS THEN
3817: OE_MSG_PUB.Count_And_Get
3818: ( p_count => l_msg_count,
3819: p_data => l_msg_data
3820: );
3821: IF l_debug_level > 0 THEN

Line 3851: OE_Msg_Pub.Add;

3847:
3848: IF OE_Payment_Trxn_Util.g_CC_Security_Code_Use = 'REQUIRED' AND
3849: p_x_Header_Payment_rec.instrument_security_code IS NULL THEN
3850: FND_MESSAGE.SET_NAME('ONT','OE_CC_SECURITY_CODE_REQD');
3851: OE_Msg_Pub.Add;
3852: RAISE FND_API.G_EXC_ERROR;
3853: END IF;
3854: END IF;
3855:

Line 3930: OE_MSG_PUB.Count_And_Get

3926: oe_debug_pub.add('New trxn extension id after calling Create_Payment_TRXN:'||p_x_header_payment_rec.trxn_extension_id);
3927:
3928: Exception
3929: WHEN FND_API.G_EXC_ERROR THEN
3930: OE_MSG_PUB.Count_And_Get
3931: ( p_count => l_msg_count,
3932: p_data => l_msg_data
3933: );
3934: l_return_status := FND_API.G_RET_STS_ERROR;

Line 3937: OE_MSG_PUB.ADD;

3933: );
3934: l_return_status := FND_API.G_RET_STS_ERROR;
3935:
3936: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3937: OE_MSG_PUB.ADD;
3938:
3939: RAISE FND_API.G_EXC_ERROR;
3940:
3941: WHEN OTHERS THEN

Line 3942: OE_MSG_PUB.Count_And_Get

3938:
3939: RAISE FND_API.G_EXC_ERROR;
3940:
3941: WHEN OTHERS THEN
3942: OE_MSG_PUB.Count_And_Get
3943: ( p_count => l_msg_count,
3944: p_data => l_msg_data
3945: );
3946: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');

Line 3947: OE_MSG_PUB.ADD;

3943: ( p_count => l_msg_count,
3944: p_data => l_msg_data
3945: );
3946: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3947: OE_MSG_PUB.ADD;
3948: IF l_debug_level > 0 THEN
3949: oe_debug_pub.add( 'OEXUHPMB: ERROR IN ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT'||l_msg_data ) ;
3950: oe_debug_pub.add('Error messsge ksurendr'||l_return_status);
3951: END IF;

Line 4110: OE_MSG_PUB.Count_And_Get

4106: Exception
4107:
4108: WHEN FND_API.G_EXC_ERROR THEN
4109: x_return_status := FND_API.G_RET_STS_ERROR;
4110: OE_MSG_PUB.Count_And_Get
4111: ( p_count => x_msg_count,
4112: p_data => x_msg_data
4113: );
4114:

Line 4117: OE_MSG_PUB.Count_And_Get

4113: );
4114:
4115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4117: OE_MSG_PUB.Count_And_Get
4118: ( p_count => x_msg_count,
4119: p_data => x_msg_data
4120: );
4121:

Line 4124: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

4120: );
4121:
4122: WHEN OTHERS THEN
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4124: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4125: THEN
4126: OE_MSG_PUB.Add_Exc_Msg
4127: ( G_PKG_NAME
4128: , 'Delete_Payment_at_Header'

Line 4126: OE_MSG_PUB.Add_Exc_Msg

4122: WHEN OTHERS THEN
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4124: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4125: THEN
4126: OE_MSG_PUB.Add_Exc_Msg
4127: ( G_PKG_NAME
4128: , 'Delete_Payment_at_Header'
4129: );
4130: END IF;