79: arp_standard.debug(' p_schedule_id : '|| p_schedule_id);
80: IF P_TYPE IS NOT NULL THEN
81: IF validate_lookup('AR_INTEREST_PENALTY_TYPE' ,P_TYPE) = FALSE THEN
82: arp_standard.debug(P_TYPE||' should be a code in the lookup type AR_INTEREST_PENALTY_TYPE');
83: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
84: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_TYPE' );
85: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_INTEREST_PENALTY_TYPE' );
86: FND_MSG_PUB.ADD;
87: x_return_status := FND_API.G_RET_STS_ERROR;
80: IF P_TYPE IS NOT NULL THEN
81: IF validate_lookup('AR_INTEREST_PENALTY_TYPE' ,P_TYPE) = FALSE THEN
82: arp_standard.debug(P_TYPE||' should be a code in the lookup type AR_INTEREST_PENALTY_TYPE');
83: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
84: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_TYPE' );
85: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_INTEREST_PENALTY_TYPE' );
86: FND_MSG_PUB.ADD;
87: x_return_status := FND_API.G_RET_STS_ERROR;
88: ELSE
81: IF validate_lookup('AR_INTEREST_PENALTY_TYPE' ,P_TYPE) = FALSE THEN
82: arp_standard.debug(P_TYPE||' should be a code in the lookup type AR_INTEREST_PENALTY_TYPE');
83: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
84: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_TYPE' );
85: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_INTEREST_PENALTY_TYPE' );
86: FND_MSG_PUB.ADD;
87: x_return_status := FND_API.G_RET_STS_ERROR;
88: ELSE
89: IF P_TYPE = 'FIXED_AMOUNT' THEN
88: ELSE
89: IF P_TYPE = 'FIXED_AMOUNT' THEN
90: IF P_AMOUNT IS NULL THEN
91: arp_standard.debug(p_int_pen||'_FIXED_AMOUNT is mandatory for '||p_int_pen||'_TYPE ='||P_TYPE);
92: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
93: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_FIXED_AMOUNT' );
94: FND_MSG_PUB.ADD;
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: END IF;
89: IF P_TYPE = 'FIXED_AMOUNT' THEN
90: IF P_AMOUNT IS NULL THEN
91: arp_standard.debug(p_int_pen||'_FIXED_AMOUNT is mandatory for '||p_int_pen||'_TYPE ='||P_TYPE);
92: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
93: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_FIXED_AMOUNT' );
94: FND_MSG_PUB.ADD;
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: END IF;
97: ELSIF P_TYPE = 'FIXED_RATE' THEN
96: END IF;
97: ELSIF P_TYPE = 'FIXED_RATE' THEN
98: IF P_RATE IS NULL THEN
99: arp_standard.debug(p_int_pen||'_RATE is mandatory for '||p_int_pen||'_TYPE ='||P_TYPE);
100: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
101: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_RATE' );
102: FND_MSG_PUB.ADD;
103: x_return_status := FND_API.G_RET_STS_ERROR;
104: END IF;
97: ELSIF P_TYPE = 'FIXED_RATE' THEN
98: IF P_RATE IS NULL THEN
99: arp_standard.debug(p_int_pen||'_RATE is mandatory for '||p_int_pen||'_TYPE ='||P_TYPE);
100: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
101: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_RATE' );
102: FND_MSG_PUB.ADD;
103: x_return_status := FND_API.G_RET_STS_ERROR;
104: END IF;
105: ELSIF P_TYPE = 'CHARGES_SCHEDULE' THEN
104: END IF;
105: ELSIF P_TYPE = 'CHARGES_SCHEDULE' THEN
106: IF P_SCHEDULE_ID IS NULL THEN
107: arp_standard.debug(p_int_pen||'_SCHEDULE_ID is mandatory for '||p_int_pen||'_TYPE ='||P_TYPE);
108: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
109: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_RATE' );
110: FND_MSG_PUB.ADD;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: END IF;
105: ELSIF P_TYPE = 'CHARGES_SCHEDULE' THEN
106: IF P_SCHEDULE_ID IS NULL THEN
107: arp_standard.debug(p_int_pen||'_SCHEDULE_ID is mandatory for '||p_int_pen||'_TYPE ='||P_TYPE);
108: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
109: FND_MESSAGE.SET_TOKEN( 'COLUMN', p_int_pen||'_RATE' );
110: FND_MSG_PUB.ADD;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: END IF;
113: END IF;
133: arp_standard.debug(' p_percent : '||p_percent);
134: IF p_type IS NOT NULL THEN
135: IF validate_lookup('AR_AMOUNT_PERCENT',p_type) = FALSE THEN
136: arp_standard.debug(p_type||' should be a code in the lookup type AR_AMOUNT_PERCENT');
137: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
138: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE' );
139: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_AMOUNT_PERCENT' );
140: FND_MSG_PUB.ADD;
141: x_return_status := FND_API.G_RET_STS_ERROR;
134: IF p_type IS NOT NULL THEN
135: IF validate_lookup('AR_AMOUNT_PERCENT',p_type) = FALSE THEN
136: arp_standard.debug(p_type||' should be a code in the lookup type AR_AMOUNT_PERCENT');
137: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
138: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE' );
139: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_AMOUNT_PERCENT' );
140: FND_MSG_PUB.ADD;
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: END IF;
135: IF validate_lookup('AR_AMOUNT_PERCENT',p_type) = FALSE THEN
136: arp_standard.debug(p_type||' should be a code in the lookup type AR_AMOUNT_PERCENT');
137: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
138: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE' );
139: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_AMOUNT_PERCENT' );
140: FND_MSG_PUB.ADD;
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: END IF;
143: IF P_TYPE = 'AMOUNT' THEN
143: IF P_TYPE = 'AMOUNT' THEN
144: IF P_AMOUNT IS NULL THEN
145: arp_standard.debug('MIN_FC_'|| p_inv_bal ||'_AMOUNT is Mandatory for this MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE '||
146: P_TYPE);
147: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
148: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_AMOUNT' );
149: FND_MSG_PUB.ADD;
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: END IF;
144: IF P_AMOUNT IS NULL THEN
145: arp_standard.debug('MIN_FC_'|| p_inv_bal ||'_AMOUNT is Mandatory for this MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE '||
146: P_TYPE);
147: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
148: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_AMOUNT' );
149: FND_MSG_PUB.ADD;
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: END IF;
152: ELSIF P_TYPE = 'PERCENT' THEN
152: ELSIF P_TYPE = 'PERCENT' THEN
153: IF P_PERCENT IS NULL THEN
154: arp_standard.debug('MIN_FC_'|| p_inv_bal ||'_PERCENT is Mandatory for this MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE '||
155: P_TYPE);
156: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
157: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_'|| p_inv_bal ||'_PERCENT' );
158: FND_MSG_PUB.ADD;
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: END IF;
153: IF P_PERCENT IS NULL THEN
154: arp_standard.debug('MIN_FC_'|| p_inv_bal ||'_PERCENT is Mandatory for this MIN_FC_'|| p_inv_bal ||'_OVERDUE_TYPE '||
155: P_TYPE);
156: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
157: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_'|| p_inv_bal ||'_PERCENT' );
158: FND_MSG_PUB.ADD;
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: END IF;
161: END IF;
180: OPEN c;
181: FETCH c INTO l;
182: IF c%NOTFOUND THEN
183: arp_standard.debug(' The value p_exchange_rate_type :'||p_exchange_rate_type||' is invalid');
184: FND_MESSAGE.SET_NAME( 'AR', 'AR_EXC_TYPE_WRONG_VALUE' );
185: FND_MSG_PUB.ADD;
186: x_return_status := FND_API.G_RET_STS_ERROR;
187: END IF;
188: CLOSE c;
228: arp_standard.debug('validate_prof_class_amt +');
229:
230: IF p_currency_code IS NULL THEN
231: arp_standard.debug('Currency_code is Mandatory');
232: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
233: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'CURRENCY_CODE' );
234: FND_MSG_PUB.ADD;
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: END IF;
229:
230: IF p_currency_code IS NULL THEN
231: arp_standard.debug('Currency_code is Mandatory');
232: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
233: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'CURRENCY_CODE' );
234: FND_MSG_PUB.ADD;
235: x_return_status := FND_API.G_RET_STS_ERROR;
236: END IF;
237:
238: OPEN curr;
239: FETCH curr INTO l_code;
240: IF curr%NOTFOUND THEN
241: arp_standard.debug(p_currency_code||' should be a in fnd_currencies');
242: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
243: FND_MESSAGE.SET_TOKEN('FK', 'hz_cust_prof_class_amts');
244: FND_MESSAGE.SET_TOKEN('COLUMN', 'CURRENCY_CODE');
245: FND_MESSAGE.SET_TOKEN('TABLE', 'fnd_currencies');
246: FND_MSG_PUB.ADD;
239: FETCH curr INTO l_code;
240: IF curr%NOTFOUND THEN
241: arp_standard.debug(p_currency_code||' should be a in fnd_currencies');
242: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
243: FND_MESSAGE.SET_TOKEN('FK', 'hz_cust_prof_class_amts');
244: FND_MESSAGE.SET_TOKEN('COLUMN', 'CURRENCY_CODE');
245: FND_MESSAGE.SET_TOKEN('TABLE', 'fnd_currencies');
246: FND_MSG_PUB.ADD;
247: x_return_status := FND_API.G_RET_STS_ERROR;
240: IF curr%NOTFOUND THEN
241: arp_standard.debug(p_currency_code||' should be a in fnd_currencies');
242: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
243: FND_MESSAGE.SET_TOKEN('FK', 'hz_cust_prof_class_amts');
244: FND_MESSAGE.SET_TOKEN('COLUMN', 'CURRENCY_CODE');
245: FND_MESSAGE.SET_TOKEN('TABLE', 'fnd_currencies');
246: FND_MSG_PUB.ADD;
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: END IF;
241: arp_standard.debug(p_currency_code||' should be a in fnd_currencies');
242: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
243: FND_MESSAGE.SET_TOKEN('FK', 'hz_cust_prof_class_amts');
244: FND_MESSAGE.SET_TOKEN('COLUMN', 'CURRENCY_CODE');
245: FND_MESSAGE.SET_TOKEN('TABLE', 'fnd_currencies');
246: FND_MSG_PUB.ADD;
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: END IF;
249: CLOSE curr;
251:
252: IF P_MIN_FC_INVOICE_OVERDUE_TYPE IS NOT NULL THEN
253: IF validate_lookup('AR_AMOUNT_PERCENT',P_MIN_FC_INVOICE_OVERDUE_TYPE) = FALSE THEN
254: arp_standard.debug(P_MIN_FC_INVOICE_OVERDUE_TYPE||' should be a code in the lookup type AR_AMOUNT_PERCENT');
255: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
256: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_OVERDUE_TYPE' );
257: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_AMOUNT_PERCENT' );
258: FND_MSG_PUB.ADD;
259: x_return_status := FND_API.G_RET_STS_ERROR;
252: IF P_MIN_FC_INVOICE_OVERDUE_TYPE IS NOT NULL THEN
253: IF validate_lookup('AR_AMOUNT_PERCENT',P_MIN_FC_INVOICE_OVERDUE_TYPE) = FALSE THEN
254: arp_standard.debug(P_MIN_FC_INVOICE_OVERDUE_TYPE||' should be a code in the lookup type AR_AMOUNT_PERCENT');
255: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
256: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_OVERDUE_TYPE' );
257: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_AMOUNT_PERCENT' );
258: FND_MSG_PUB.ADD;
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: END IF;
253: IF validate_lookup('AR_AMOUNT_PERCENT',P_MIN_FC_INVOICE_OVERDUE_TYPE) = FALSE THEN
254: arp_standard.debug(P_MIN_FC_INVOICE_OVERDUE_TYPE||' should be a code in the lookup type AR_AMOUNT_PERCENT');
255: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_LOOKUP' );
256: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_OVERDUE_TYPE' );
257: FND_MESSAGE.SET_TOKEN( 'LOOKUP_TYPE', 'AR_AMOUNT_PERCENT' );
258: FND_MSG_PUB.ADD;
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: END IF;
261: IF P_MIN_FC_INVOICE_OVERDUE_TYPE = 'AMOUNT' THEN
261: IF P_MIN_FC_INVOICE_OVERDUE_TYPE = 'AMOUNT' THEN
262: IF P_MIN_FC_INVOICE_AMOUNT IS NULL THEN
263: arp_standard.debug('MIN_FC_INVOICE_AMOUNT is Mandatory for this MIN_FC_INVOICE_OVERDUE_TYPE '||
264: P_MIN_FC_INVOICE_OVERDUE_TYPE);
265: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
266: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_AMOUNT' );
267: FND_MSG_PUB.ADD;
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: END IF;
262: IF P_MIN_FC_INVOICE_AMOUNT IS NULL THEN
263: arp_standard.debug('MIN_FC_INVOICE_AMOUNT is Mandatory for this MIN_FC_INVOICE_OVERDUE_TYPE '||
264: P_MIN_FC_INVOICE_OVERDUE_TYPE);
265: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
266: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_AMOUNT' );
267: FND_MSG_PUB.ADD;
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: END IF;
270: ELSIF P_MIN_FC_INVOICE_OVERDUE_TYPE = 'PERCENT' THEN
270: ELSIF P_MIN_FC_INVOICE_OVERDUE_TYPE = 'PERCENT' THEN
271: IF P_MIN_FC_INVOICE_PERCENT IS NULL THEN
272: arp_standard.debug('MIN_FC_INVOICE_PERCENT is Mandatory for this MIN_FC_INVOICE_OVERDUE_TYPE '||
273: P_MIN_FC_INVOICE_OVERDUE_TYPE);
274: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
275: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_PERCENT' );
276: FND_MSG_PUB.ADD;
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: END IF;
271: IF P_MIN_FC_INVOICE_PERCENT IS NULL THEN
272: arp_standard.debug('MIN_FC_INVOICE_PERCENT is Mandatory for this MIN_FC_INVOICE_OVERDUE_TYPE '||
273: P_MIN_FC_INVOICE_OVERDUE_TYPE);
274: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
275: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'MIN_FC_INVOICE_PERCENT' );
276: FND_MSG_PUB.ADD;
277: x_return_status := FND_API.G_RET_STS_ERROR;
278: END IF;
279: END IF;
650: arp_standard.debug('EXCEPTION IN ar_cust_prof_class_amt_pkg.insert_row:'||x_msg_data);
651:
652: WHEN OTHERS THEN
653: x_return_status := fnd_api.g_ret_sts_unexp_error;
654: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
655: fnd_message.set_token('ERROR' ,SQLERRM);
656: fnd_msg_pub.add;
657: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
658: p_count => x_msg_count,
651:
652: WHEN OTHERS THEN
653: x_return_status := fnd_api.g_ret_sts_unexp_error;
654: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
655: fnd_message.set_token('ERROR' ,SQLERRM);
656: fnd_msg_pub.add;
657: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
658: p_count => x_msg_count,
659: p_data => x_msg_data);
943: AND elementequal(l_info_rec.LAST_UPDATE_DATE , p_info_rec.LAST_UPDATE_DATE) )
944: THEN
945: RETURN;
946: ELSE
947: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
948: fnd_message.set_token('TABLE', 'hz_cust_prof_class_amts');
949: fnd_msg_pub.add;
950: RAISE fnd_api.g_exc_error;
951: END IF;
944: THEN
945: RETURN;
946: ELSE
947: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
948: fnd_message.set_token('TABLE', 'hz_cust_prof_class_amts');
949: fnd_msg_pub.add;
950: RAISE fnd_api.g_exc_error;
951: END IF;
952:
961: arp_standard.debug('EXCEPTION ar_cust_prof_class_amt_pkg.lock_row:'||x_msg_data);
962:
963: WHEN OTHERS THEN
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
966: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
967: FND_MSG_PUB.ADD;
968: FND_MSG_PUB.Count_And_Get(
969: p_encoded => FND_API.G_FALSE,
962:
963: WHEN OTHERS THEN
964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
966: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
967: FND_MSG_PUB.ADD;
968: FND_MSG_PUB.Count_And_Get(
969: p_encoded => FND_API.G_FALSE,
970: p_count => x_msg_count,
1202: arp_standard.debug('EXCEPTION ar_cust_prof_class_amt_pkg.update_row:'||x_msg_data);
1203:
1204: WHEN OTHERS THEN
1205: x_return_status := fnd_api.g_ret_sts_unexp_error;
1206: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1207: fnd_message.set_token('ERROR' ,SQLERRM);
1208: fnd_msg_pub.add;
1209: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1210: p_count => x_msg_count,
1203:
1204: WHEN OTHERS THEN
1205: x_return_status := fnd_api.g_ret_sts_unexp_error;
1206: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
1207: fnd_message.set_token('ERROR' ,SQLERRM);
1208: fnd_msg_pub.add;
1209: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
1210: p_count => x_msg_count,
1211: p_data => x_msg_data);
1601: OPEN C;
1602: FETCH C INTO Amountinfo;
1603: if (C%NOTFOUND) then
1604: CLOSE C;
1605: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1606: APP_EXCEPTION.Raise_Exception;
1607: end if;
1608: CLOSE C;
1609: