[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;
877: -- This condition will take care of lost update data bug when concurrent users are
878: -- updating same record...02/05/02
879: if (l_document_info.object_version_number <>p_x_document_tbl(i).object_version_number)
880: then
881: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
882: FND_MSG_PUB.ADD;
883: RAISE FND_API.G_EXC_ERROR;
884: end if;
885: -- The following conditions compare the new record value with old record
1184: OR
1185: (p_supplier_document_id IS NOT NULL
1186: AND l_supplier_id IS NULL))
1187: THEN
1188: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_ID_NULL');
1189: FND_MSG_PUB.ADD;
1190: END IF;
1191: -- This condition checks for Document id Is Null
1192: IF ((p_supplier_document_id IS NULL AND
1194: OR
1195: (p_supplier_document_id IS NOT NULL
1196: AND l_document_id IS NULL))
1197: THEN
1198: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
1199: FND_MSG_PUB.ADD;
1200: END IF;
1201: -- This condition checks for existence of preference code in fnd lookups
1202: IF p_preference_code IS NOT NULL
1204: OPEN get_preference_code(p_preference_code);
1205: FETCH get_preference_code INTO l_dummy;
1206: IF get_preference_code%NOTFOUND
1207: THEN
1208: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PREF_CODE_NOT_EXIST');
1209: FND_MSG_PUB.ADD;
1210: END IF;
1211: CLOSE get_preference_code;
1212: END IF;
1216: OPEN Check_doc_info(p_document_id);
1217: FETCH Check_doc_info INTO l_dummy;
1218: IF Check_doc_info%NOTFOUND
1219: THEN
1220: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
1221: FND_MSG_PUB.ADD;
1222: END IF;
1223: CLOSE Check_doc_info;
1224: END IF;
1242: OPEN get_supplier_name_po(l_supplier_id);
1243: FETCH get_supplier_name_po INTO l_supplier_name;
1244: CLOSE get_supplier_name_po;
1245: END IF;
1246: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1247: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1248: FND_MSG_PUB.ADD;
1249: END IF;
1250: CLOSE dup_rec;
1243: FETCH get_supplier_name_po INTO l_supplier_name;
1244: CLOSE get_supplier_name_po;
1245: END IF;
1246: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1247: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1248: FND_MSG_PUB.ADD;
1249: END IF;
1250: CLOSE dup_rec;
1251: END IF;
1412: OPEN get_supplier_name_po(p_x_supplier_tbl(i).supplier_id);
1413: FETCH get_supplier_name_po INTO l_supplier_name;
1414: CLOSE get_supplier_name_po;
1415: END IF;
1416: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1417: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1418: FND_MSG_PUB.ADD;
1419:
1420: --AD RAISE FND_API.G_EXC_ERROR;
1413: FETCH get_supplier_name_po INTO l_supplier_name;
1414: CLOSE get_supplier_name_po;
1415: END IF;
1416: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1417: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1418: FND_MSG_PUB.ADD;
1419:
1420: --AD RAISE FND_API.G_EXC_ERROR;
1421: --AD END IF;
1756: -- This condition will take care of lost update data bug when concurrent users are
1757: -- updating same record...02/05/02
1758: IF l_supplier_info.object_version_number <>p_supplier_tbl(i).object_version_number
1759: THEN
1760: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1761: FND_MSG_PUB.ADD;
1762: --AD RAISE FND_API.G_EXC_ERROR;
1763: ELSE --AD
1764: -- The following conditions compare the new record value with old record
1926:
1927: WHEN DUP_VAL_ON_INDEX THEN
1928: ROLLBACK TO modify_supplier;
1929: X_return_status := FND_API.G_RET_STS_ERROR;
1930: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1931: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1932: FND_MSG_PUB.ADD;
1933: -- Check if API is called in debug mode. If yes, disable debug.
1934: IF G_DEBUG='Y' THEN
1927: WHEN DUP_VAL_ON_INDEX THEN
1928: ROLLBACK TO modify_supplier;
1929: X_return_status := FND_API.G_RET_STS_ERROR;
1930: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_DUP_RECORD');
1931: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
1932: FND_MSG_PUB.ADD;
1933: -- Check if API is called in debug mode. If yes, disable debug.
1934: IF G_DEBUG='Y' THEN
1935: AHL_DEBUG_PUB.disable_debug;
2085: l_document_id,
2086: l_object_version_number;
2087: IF (get_supplier_rec_info%NOTFOUND)
2088: THEN
2089: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPLIER_REC_INVALID');
2090: FND_MSG_PUB.ADD;
2091: END IF;
2092: CLOSE get_supplier_rec_info;
2093: -- Check for version number
2092: CLOSE get_supplier_rec_info;
2093: -- Check for version number
2094: IF (l_object_version_number <> p_supplier_rec.object_version_number)
2095: THEN
2096: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
2097: FND_MSG_PUB.ADD;
2098: END IF;
2099: --Check for Subscriptions Record
2100: IF p_supplier_rec.supplier_document_id IS NOT NULL
2117: OPEN get_supplier_name_po(l_supplier_id);
2118: FETCH get_supplier_name_po INTO l_supplier_name;
2119: CLOSE get_supplier_name_po;
2120: END IF;
2121: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBC_REC_EXISTS');
2122: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2123: FND_MSG_PUB.ADD;
2124: END IF;
2125: CLOSE get_subc_rec;
2118: FETCH get_supplier_name_po INTO l_supplier_name;
2119: CLOSE get_supplier_name_po;
2120: END IF;
2121: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBC_REC_EXISTS');
2122: FND_MESSAGE.SET_TOKEN('SUPNAME',l_supplier_name);
2123: FND_MSG_PUB.ADD;
2124: END IF;
2125: CLOSE get_subc_rec;
2126: END IF;
2295: OR
2296: (p_recipient_document_id IS NOT NULL
2297: AND l_recipient_party_id IS NULL))
2298: THEN
2299: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_PTY_ID_NULL');
2300: FND_MSG_PUB.ADD;
2301: END IF;
2302: --This condition checks for Document Id
2303: IF ((p_recipient_document_id IS NULL AND
2305: OR
2306: (p_recipient_document_id IS NOT NULL
2307: AND l_document_id IS NULL))
2308: THEN
2309: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
2310: FND_MSG_PUB.ADD;
2311: END IF;
2312: -- This condition checks for existence of document record in ahl documents table
2313: IF p_document_id IS NOT NULL
2315: OPEN Check_doc_info(p_document_id);
2316: FETCH Check_doc_info INTO l_dummy;
2317: IF Check_doc_info%NOTFOUND
2318: THEN
2319: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
2320: FND_MSG_PUB.ADD;
2321: END IF;
2322: CLOSE Check_doc_info;
2323: END IF;
2328: FETCH dup_rec INTO l_dummy;
2329: IF dup_rec%FOUND THEN
2330: OPEN DUP_REC_NAME(l_recipient_party_id);
2331: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2332: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2333: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2334: FND_MSG_PUB.ADD;
2335: CLOSE DUP_REC_NAME;
2336: END IF;
2329: IF dup_rec%FOUND THEN
2330: OPEN DUP_REC_NAME(l_recipient_party_id);
2331: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2332: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2333: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2334: FND_MSG_PUB.ADD;
2335: CLOSE DUP_REC_NAME;
2336: END IF;
2337: CLOSE dup_rec;
2460: FETCH dup_rec INTO l_dummy;
2461: IF dup_rec%FOUND THEN
2462: OPEN DUP_REC_NAME(p_x_recipient_tbl(i).recipient_party_id);
2463: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2464: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2465: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2466: FND_MSG_PUB.ADD;
2467: CLOSE DUP_REC_NAME;
2468: --ad RAISE FND_API.G_EXC_ERROR;
2461: IF dup_rec%FOUND THEN
2462: OPEN DUP_REC_NAME(p_x_recipient_tbl(i).recipient_party_id);
2463: FETCH DUP_REC_NAME INTO L_DUP_REC_NAME;
2464: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2465: FND_MESSAGE.SET_TOKEN('RECPTID',l_DUP_REC_NAME);
2466: FND_MSG_PUB.ADD;
2467: CLOSE DUP_REC_NAME;
2468: --ad RAISE FND_API.G_EXC_ERROR;
2469: --ad END IF;
2749: -- updating same record...02/05/02
2750:
2751: if (l_recipient_info.object_version_number <>p_recipient_tbl(i).object_version_number)
2752: then
2753: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2754: FND_MSG_PUB.ADD;
2755: --ad RAISE FND_API.G_EXC_ERROR;
2756: --ad end if;
2757: else --ad
2874:
2875: WHEN DUP_VAL_ON_INDEX THEN
2876: ROLLBACK TO modify_recipient;
2877: X_return_status := FND_API.G_RET_STS_ERROR;
2878: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DUP_RECORD');
2879: FND_MSG_PUB.ADD;
2880: -- Check if API is called in debug mode. If yes, disable debug.
2881: IF G_DEBUG='Y' THEN
2882: AHL_DEBUG_PUB.disable_debug;
2980: FETCH get_recipient_rec_info INTO l_rowid,
2981: l_object_version_number;
2982: IF (get_recipient_rec_info%NOTFOUND) THEN
2983: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
2984: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
2985: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
2986: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
2987: FND_MSG_PUB.ADD;
2988: RAISE FND_API.G_EXC_ERROR;
2981: l_object_version_number;
2982: IF (get_recipient_rec_info%NOTFOUND) THEN
2983: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
2984: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
2985: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
2986: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
2987: FND_MSG_PUB.ADD;
2988: RAISE FND_API.G_EXC_ERROR;
2989: --Modified pjha 24-Jul-2002 for bug#2473425: End
2982: IF (get_recipient_rec_info%NOTFOUND) THEN
2983: --Modified pjha 24-Jul-2002 for bug#2473425: Begin
2984: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIP_PTY_ID_INVALID');
2985: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECIPIENT_DELETED');
2986: FND_MESSAGE.SET_TOKEN('RECPNAME',p_recipient_rec.recipient_party_number);
2987: FND_MSG_PUB.ADD;
2988: RAISE FND_API.G_EXC_ERROR;
2989: --Modified pjha 24-Jul-2002 for bug#2473425: End
2990: END IF;
2994: /*
2995: -- Check for version number
2996: IF (l_object_version_number <> p_recipient_rec.object_version_number)
2997: THEN
2998: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
2999: FND_MSG_PUB.ADD;
3000: END IF;
3001: */
3002: