[Home] [Help]
201: l_delete_flag VARCHAR2(1);
202: BEGIN
203: --When the action is insert or update
204: -- Check if API is called in debug mode. If yes, enable debug.
205: /*FND_MESSAGE.SET_NAME('AHL','i am in validate'|| p_Delete_flag);
206: FND_MSG_PUB.ADD;
207: */
208: l_delete_flag := nvl(p_delete_flag, 'N');
209:
282: OR
283: (p_document_id IS NOT NULL
284: AND l_source_party_id IS NULL))
285: THEN
286: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_PARTY_ID_NULL');
287: FND_MSG_PUB.ADD;
288: END IF;
289: --This condition checks for doc type code
290: IF ((p_document_id IS NULL AND
292: OR
293: (p_document_id IS NOT NULL
294: AND l_doc_type_code IS NULL))
295: THEN
296: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NULL');
297: FND_MSG_PUB.ADD;
298: END IF;
299: --This condition checks for document number
300: IF ((p_document_id IS NULL AND
302: OR
303: (p_document_id IS NOT NULL
304: AND l_document_no IS NULL))
305: THEN
306: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_NO_NULL');
307: FND_MSG_PUB.ADD;
308: END IF;
309: --This condition checks for Subscriptions available flag
310: IF ((p_document_id IS NULL AND
312: OR
313: (p_document_id IS NOT NULL
314: AND l_subscribe_avail_flag IS NULL))
315: THEN
316: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_AVAIL_FLAG_NULL');
317: FND_MSG_PUB.ADD;
318: END IF;
319: --This condition checks for subscribe to flag
320: IF ((p_document_id IS NULL AND
322: OR
323: (p_document_id IS NOT NULL
324: AND l_subscribe_to_flag IS NULL))
325: THEN
326: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_TO_FLAG_NULL');
327: FND_MSG_PUB.ADD;
328: END IF;
329: --Modified pjha 25-Jun-2002 for restricting Subscription available based on Subscribed To : Begin
330: /*
329: --Modified pjha 25-Jun-2002 for restricting Subscription available based on Subscribed To : Begin
330: /*
331: IF (l_subscribe_to_flag = 'Y' AND l_subscribe_avail_flag = 'N')
332: THEN
333: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_AVAIL_FLAG_NO');
334: FND_MSG_PUB.ADD;
335: END IF;
336: --Modified pjha 25-Jun-2002 for restricting Subscription available based on Subscribed To : End
337:
342: OPEN check_sup_exists(p_document_id);
343: FETCH check_sup_exists INTO l_dummy;
344: IF check_sup_exists%FOUND
345: THEN
346: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_EXISTS');
347: FND_MSG_PUB.ADD;
348: END IF;
349: CLOSE check_sup_exists;
350: END IF;
359: OPEN get_doc_type_code(p_doc_type_code);
360: FETCH get_doc_type_code INTO l_dummy;
361: IF get_doc_type_code%NOTFOUND
362: THEN
363: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
364: FND_MSG_PUB.ADD;
365: END IF;
366: CLOSE get_doc_type_code;
367: END IF;
373: OPEN get_doc_sub_type_code(p_doc_sub_type_code);
374: FETCH get_doc_sub_type_code INTO l_dummy;
375: IF get_doc_sub_type_code%NOTFOUND
376: THEN
377: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_SUBT_COD_NOT_EXISTS');
378: FND_MSG_PUB.ADD;
379: END IF;
380: CLOSE get_doc_sub_type_code;
381: -- Checks for sub_type_Code in ahl_document_subtypes
382: OPEN get_sub_type_exists(p_doc_type_code, p_doc_sub_type_code);
383: FETCH get_sub_type_exists INTO l_dummy;
384: IF get_sub_type_exists%NOTFOUND
385: THEN
386: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_SUBT_COD_NOT_EXISTS');
387: FND_MSG_PUB.ADD;
388: END IF;
389:
390: CLOSE get_sub_type_exists;
396: OPEN get_operator_code_hz(p_operator_code);
397: FETCH get_operator_code_hz INTO l_dummy;
398: IF get_operator_code_hz%NOTFOUND
399: THEN
400: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OPERATOR_CODE_NOT_EXIST');
401: FND_MSG_PUB.ADD;
402: END IF;
403: CLOSE get_operator_code_hz;
404:
409: OPEN get_product_type_code(p_product_type_code);
410: FETCH get_product_type_code INTO l_dummy;
411: IF get_product_type_code%NOTFOUND
412: THEN
413: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PRODTYPE_CODE_NOT_EXIST');
414: FND_MSG_PUB.ADD;
415: END IF;
416: CLOSE get_product_type_code;
417: END IF;
420: THEN
421: OPEN dup_rec(l_source_party_id ,l_document_no);
422: FETCH dup_rec INTO l_dummy;
423: IF dup_rec%FOUND THEN
424: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_DUP_RECORD');
425: FND_MSG_PUB.ADD;
426: END IF;
427: CLOSE dup_rec;
428: END IF;
557: --Check for uniquences
558: OPEN unique_rec(p_x_document_tbl (i).document_no);
559: FETCH unique_rec INTO l_dummy;
560: IF unique_rec%FOUND THEN
561: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_DUP_RECORD');
562: FND_MSG_PUB.ADD;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565: CLOSE unique_rec;
963: -- This condition will take care of lost update data bug when concurrent users are
964: -- updating same record...02/05/02
965: if (l_document_info.object_version_number <>p_x_document_tbl(i).object_version_number)
966: then
967: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
968: FND_MSG_PUB.ADD;
969: RAISE FND_API.G_EXC_ERROR;
970: end if;
971: -- The following conditions compare the new record value with old record
1270: OR
1271: (p_supplier_document_id IS NOT NULL
1272: AND l_supplier_id IS NULL))
1273: THEN
1274: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_ID_NULL');
1275: FND_MSG_PUB.ADD;
1276: END IF;
1277: -- This condition checks for Document id Is Null
1278: IF ((p_supplier_document_id IS NULL AND
1280: OR
1281: (p_supplier_document_id IS NOT NULL
1282: AND l_document_id IS NULL))
1283: THEN
1284: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
1285: FND_MSG_PUB.ADD;
1286: END IF;
1287: -- This condition checks for existence of preference code in fnd lookups
1288: IF p_preference_code IS NOT NULL
1290: OPEN get_preference_code(p_preference_code);
1291: FETCH get_preference_code INTO l_dummy;
1292: IF get_preference_code%NOTFOUND
1293: THEN
1294: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PREF_CODE_NOT_EXIST');
1295: FND_MSG_PUB.ADD;
1296: END IF;
1297: CLOSE get_preference_code;
1298: END IF;
1302: OPEN Check_doc_info(p_document_id);
1303: FETCH Check_doc_info INTO l_dummy;
1304: IF Check_doc_info%NOTFOUND
1305: THEN
1306: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
1307: FND_MSG_PUB.ADD;
1308: END IF;
1309: CLOSE Check_doc_info;
1310: END IF;
1328: OPEN get_supplier_name_po(l_supplier_id);
1329: FETCH get_supplier_name_po INTO l_supplier_name;
1330: CLOSE get_supplier_name_po;
1331: END IF;
1332: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1333: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1334: FND_MSG_PUB.ADD;
1335: END IF;
1336: CLOSE dup_rec;
1329: FETCH get_supplier_name_po INTO l_supplier_name;
1330: CLOSE get_supplier_name_po;
1331: END IF;
1332: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1333: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1334: FND_MSG_PUB.ADD;
1335: END IF;
1336: CLOSE dup_rec;
1337: END IF;
1498: OPEN get_supplier_name_po(p_x_supplier_tbl(i).supplier_id);
1499: FETCH get_supplier_name_po INTO l_supplier_name;
1500: CLOSE get_supplier_name_po;
1501: END IF;
1502: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1503: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1504: FND_MSG_PUB.ADD;
1505:
1506: --AD RAISE FND_API.G_EXC_ERROR;
1499: FETCH get_supplier_name_po INTO l_supplier_name;
1500: CLOSE get_supplier_name_po;
1501: END IF;
1502: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1503: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1504: FND_MSG_PUB.ADD;
1505:
1506: --AD RAISE FND_API.G_EXC_ERROR;
1507: --AD END IF;
1842: -- This condition will take care of lost update data bug when concurrent users are
1843: -- updating same record...02/05/02
1844: IF l_supplier_info.object_version_number <>p_supplier_tbl(i).object_version_number
1845: THEN
1846: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1847: FND_MSG_PUB.ADD;
1848: --AD RAISE FND_API.G_EXC_ERROR;
1849: ELSE --AD
1850: -- The following conditions compare the new record value with old record
2012:
2013: WHEN DUP_VAL_ON_INDEX THEN
2014: ROLLBACK TO modify_supplier;
2015: X_return_status := FND_API.G_RET_STS_ERROR;
2016: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
2017: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2018: FND_MSG_PUB.ADD;
2019: -- Check if API is called in debug mode. If yes, disable debug.
2020: IF G_DEBUG='Y' THEN
2013: WHEN DUP_VAL_ON_INDEX THEN
2014: ROLLBACK TO modify_supplier;
2015: X_return_status := FND_API.G_RET_STS_ERROR;
2016: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
2017: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2018: FND_MSG_PUB.ADD;
2019: -- Check if API is called in debug mode. If yes, disable debug.
2020: IF G_DEBUG='Y' THEN
2021: AHL_DEBUG_PUB.disable_debug;
2171: l_document_id,
2172: l_object_version_number;
2173: IF (get_supplier_rec_info%NOTFOUND)
2174: THEN
2175: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_REC_INVALID');
2176: FND_MSG_PUB.ADD;
2177: END IF;
2178: CLOSE get_supplier_rec_info;
2179: -- Check for version number
2178: CLOSE get_supplier_rec_info;
2179: -- Check for version number
2180: IF (l_object_version_number <> p_supplier_rec.object_version_number)
2181: THEN
2182: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
2183: FND_MSG_PUB.ADD;
2184: END IF;
2185: --Check for Subscriptions Record
2186: IF p_supplier_rec.supplier_document_id IS NOT NULL
2203: OPEN get_supplier_name_po(l_supplier_id);
2204: FETCH get_supplier_name_po INTO l_supplier_name;
2205: CLOSE get_supplier_name_po;
2206: END IF;
2207: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBC_REC_EXISTS');
2208: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2209: FND_MSG_PUB.ADD;
2210: END IF;
2211: CLOSE get_subc_rec;
2204: FETCH get_supplier_name_po INTO l_supplier_name;
2205: CLOSE get_supplier_name_po;
2206: END IF;
2207: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBC_REC_EXISTS');
2208: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2209: FND_MSG_PUB.ADD;
2210: END IF;
2211: CLOSE get_subc_rec;
2212: END IF;
2381: OR
2382: (p_recipient_document_id IS NOT NULL
2383: AND l_recipient_party_id IS NULL))
2384: THEN
2385: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_PTY_ID_NULL');
2386: FND_MSG_PUB.ADD;
2387: END IF;
2388: --This condition checks for Document Id
2389: IF ((p_recipient_document_id IS NULL AND
2391: OR
2392: (p_recipient_document_id IS NOT NULL
2393: AND l_document_id IS NULL))
2394: THEN
2395: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
2396: FND_MSG_PUB.ADD;
2397: END IF;
2398: -- This condition checks for existence of document record in ahl documents table
2399: IF p_document_id IS NOT NULL
2401: OPEN Check_doc_info(p_document_id);
2402: FETCH Check_doc_info INTO l_dummy;
2403: IF Check_doc_info%NOTFOUND
2404: THEN
2405: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
2406: FND_MSG_PUB.ADD;
2407: END IF;
2408: CLOSE Check_doc_info;
2409: END IF;
2414: FETCH dup_rec INTO l_dummy;
2415: IF dup_rec%FOUND THEN
2416: OPEN DUP_REC_NAME(l_recipient_party_id);
2417: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2418: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2419: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2420: FND_MSG_PUB.ADD;
2421: CLOSE DUP_REC_NAME;
2422: END IF;
2415: IF dup_rec%FOUND THEN
2416: OPEN DUP_REC_NAME(l_recipient_party_id);
2417: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2418: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2419: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2420: FND_MSG_PUB.ADD;
2421: CLOSE DUP_REC_NAME;
2422: END IF;
2423: CLOSE dup_rec;
2546: FETCH dup_rec INTO l_dummy;
2547: IF dup_rec%FOUND THEN
2548: OPEN DUP_REC_NAME(p_x_recipient_tbl(i).recipient_party_id);
2549: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2550: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2551: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2552: FND_MSG_PUB.ADD;
2553: CLOSE DUP_REC_NAME;
2554: --ad RAISE FND_API.G_EXC_ERROR;
2547: IF dup_rec%FOUND THEN
2548: OPEN DUP_REC_NAME(p_x_recipient_tbl(i).recipient_party_id);
2549: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2550: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2551: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2552: FND_MSG_PUB.ADD;
2553: CLOSE DUP_REC_NAME;
2554: --ad RAISE FND_API.G_EXC_ERROR;
2555: --ad END IF;
2835: -- updating same record...02/05/02
2836:
2837: if (l_recipient_info.object_version_number <>p_recipient_tbl(i).object_version_number)
2838: then
2839: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2840: FND_MSG_PUB.ADD;
2841: --ad RAISE FND_API.G_EXC_ERROR;
2842: --ad end if;
2843: else --ad
2960:
2961: WHEN DUP_VAL_ON_INDEX THEN
2962: ROLLBACK TO modify_recipient;
2963: X_return_status := FND_API.G_RET_STS_ERROR;
2964: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2965: FND_MSG_PUB.ADD;
2966: -- Check if API is called in debug mode. If yes, disable debug.
2967: IF G_DEBUG='Y' THEN
2968: AHL_DEBUG_PUB.disable_debug;
3066: FETCH get_recipient_rec_info INTO l_rowid,
3067: l_object_version_number;
3068: IF (get_recipient_rec_info%NOTFOUND) THEN
3069: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
3070: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
3071: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
3072: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
3073: FND_MSG_PUB.ADD;
3074: RAISE FND_API.G_EXC_ERROR;
3067: l_object_version_number;
3068: IF (get_recipient_rec_info%NOTFOUND) THEN
3069: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
3070: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
3071: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
3072: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
3073: FND_MSG_PUB.ADD;
3074: RAISE FND_API.G_EXC_ERROR;
3075: --Modified pjha 24-Jul-2002 for bug#2473425: End
3068: IF (get_recipient_rec_info%NOTFOUND) THEN
3069: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
3070: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
3071: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
3072: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
3073: FND_MSG_PUB.ADD;
3074: RAISE FND_API.G_EXC_ERROR;
3075: --Modified pjha 24-Jul-2002 for bug#2473425: End
3076: END IF;
3080: /*
3081: -- Check for version number
3082: IF (l_object_version_number <> p_recipient_rec.object_version_number)
3083: THEN
3084: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
3085: FND_MSG_PUB.ADD;
3086: END IF;
3087: */
3088: