[Home] [Help]
40: AND ENABLED_FLAG= 'Y'
41: AND sysdate between nvl(start_date_active,sysdate)
42: AND nvl(end_date_active,sysdate);
43: END IF;
44: x_return_status := FND_API.G_RET_STS_SUCCESS;
45: EXCEPTION
46: WHEN no_data_found THEN
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN too_many_rows THEN
43: END IF;
44: x_return_status := FND_API.G_RET_STS_SUCCESS;
45: EXCEPTION
46: WHEN no_data_found THEN
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN too_many_rows THEN
49: x_return_status := FND_API.G_RET_STS_ERROR;
50: WHEN OTHERS THEN
51: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
45: EXCEPTION
46: WHEN no_data_found THEN
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN too_many_rows THEN
49: x_return_status := FND_API.G_RET_STS_ERROR;
50: WHEN OTHERS THEN
51: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
52: RAISE;
53: END;
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN too_many_rows THEN
49: x_return_status := FND_API.G_RET_STS_ERROR;
50: WHEN OTHERS THEN
51: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
52: RAISE;
53: END;
54:
55:
63:
64: PROCEDURE CREATE_DOCUMENT
65: (
66: p_api_version IN NUMBER := '1.0' ,
67: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
68: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
69: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
64: PROCEDURE CREATE_DOCUMENT
65: (
66: p_api_version IN NUMBER := '1.0' ,
67: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
68: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
69: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
72: -- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
65: (
66: p_api_version IN NUMBER := '1.0' ,
67: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
68: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
69: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
72: -- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
73: -- p_x_doc_rev_copy_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Copy_Tbl,
66: p_api_version IN NUMBER := '1.0' ,
67: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
68: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
69: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
70: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
71: p_x_document_tbl IN OUT NOCOPY Document_Tbl ,
72: -- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
73: -- p_x_doc_rev_copy_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Copy_Tbl,
74: -- p_x_subscription_tbl IN OUT NOCOPY AHL_DI_SUBSCRIPTION_PUB.Subscription_Tbl,
148: -- l_revision_copy_tbl AHL_DI_DOC_REVISION_PVT.revision_copy_tbl;
149: -- l_subscription_tbl AHL_DI_SUBSCRIPTION_PVT.subscription_tbl;
150: l_supplier_tbl AHL_DI_DOC_INDEX_PVT.supplier_tbl;
151: l_recipient_tbl AHL_DI_DOC_INDEX_PVT.recipient_tbl;
152: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
153:
154:
155: BEGIN
156: -- Standard Start of API savepoint
162: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pub.Create Document','+DI+');
163: END IF;
164:
165: -- Standard call to check for call compatibility.
166: IF FND_API.to_boolean(l_init_msg_list)
167: THEN
168: FND_MSG_PUB.initialize;
169: END IF;
170: -- Initialize API return status to success
169: END IF;
170: -- Initialize API return status to success
171: x_return_status := 'S';
172: -- Initialize message list if p_init_msg_list is set to TRUE.
173: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
174: p_api_version,
175: l_api_name,G_PKG_NAME)
176: THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
174: p_api_version,
175: l_api_name,G_PKG_NAME)
176: THEN
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
179: -- Start of API Body
180: IF p_x_document_tbl.COUNT > 0
181: THEN
190: p_x_document_tbl(i).product_type_code := null;
191: END IF;
192: --For Source by Party Id
193: IF (p_x_document_tbl(i).source_party_id IS NULL) OR
194: (p_x_document_tbl(i).source_party_id = FND_API.G_MISS_NUM)
195: THEN
196: -- If Party Name is available
197: IF (p_x_document_tbl(i).source_party_number IS NOT NULL) AND
198: (p_x_document_tbl(i).source_party_number <> FND_API.G_MISS_CHAR)
194: (p_x_document_tbl(i).source_party_id = FND_API.G_MISS_NUM)
195: THEN
196: -- If Party Name is available
197: IF (p_x_document_tbl(i).source_party_number IS NOT NULL) AND
198: (p_x_document_tbl(i).source_party_number <> FND_API.G_MISS_CHAR)
199: THEN
200: OPEN for_party_name(p_x_document_tbl(i).source_party_number);
201: FETCH for_party_name INTO l_source_party_id;
202: IF for_party_name%FOUND
213: FND_MSG_PUB.ADD;
214: END IF;
215: --Check for If ID present
216: ELSIF (p_x_document_tbl(i).source_party_id IS NOT NULL AND
217: p_x_document_tbl(i).source_party_id <> FND_API.G_MISS_NUM)
218: THEN
219: OPEN for_party_id(p_x_document_tbl(i).source_party_id);
220: FETCH for_party_id INTO l_document_tbl(i).source_party_id;
221: IF for_party_id%FOUND
229: END IF;
230:
231: --For Operator Code, Meaning presnts
232: IF p_x_document_tbl(i).operator_name IS NOT NULL AND
233: p_x_document_tbl(i).operator_name <> FND_API.G_MISS_CHAR
234: THEN
235: -- Check if operator name and id match
236: OPEN get_operator_name_hz_id(p_x_document_tbl(i).operator_name, TO_NUMBER(p_x_document_tbl(i).operator_code));
237:
263: END IF;
264:
265: --For Product type Code, Meaning presnts
266: IF p_x_document_tbl(i).product_type_desc IS NOT NULL AND
267: p_x_document_tbl(i).product_type_desc <> FND_API.G_MISS_CHAR
268: THEN
269: Check_lookup_name_Or_Id (
270: --Enhancement #2525604 pbarman : April 2003
271: p_lookup_type => 'ITEM_TYPE',
282: END IF;
283:
284: --ID presntes
285: ELSIF p_x_document_tbl(i).product_type_code IS NOT NULL AND
286: p_x_document_tbl(i).product_type_code <> FND_API.G_MISS_CHAR
287: THEN
288: l_document_tbl(i).product_type_code := p_x_document_tbl(i).product_type_code;
289: --Both missing
290: ELSE
292: END IF;
293:
294: --For Doc Type Code
295: IF p_x_document_tbl(i).doc_type_desc IS NOT NULL AND
296: p_x_document_tbl(i).doc_type_desc <> FND_API.G_MISS_CHAR
297: THEN
298: Check_lookup_name_Or_Id (
299: p_lookup_type => 'AHL_DOC_TYPE',
300: p_lookup_code => null,
310: END IF;
311: END IF;
312: -- Id presents
313: IF p_x_document_tbl(i).doc_type_code IS NOT NULL AND
314: p_x_document_tbl(i).doc_type_code <> FND_API.G_MISS_CHAR
315: THEN
316: l_document_tbl(i).doc_type_code := p_x_document_tbl(i).doc_type_code;
317: ELSE
318: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
320: END IF;
321:
322: --For Doc Sub Type Code, meaning presents
323: IF p_x_document_tbl(i).doc_sub_type_desc IS NOT NULL AND
324: p_x_document_tbl(i).doc_sub_type_desc <> FND_API.G_MISS_CHAR
325: THEN
326:
327: Check_lookup_name_Or_Id (
328: p_lookup_type => 'AHL_DOC_SUB_TYPE_CODE',
339: END IF;
340: END IF;
341: --Id presents
342: IF p_x_document_tbl(i).doc_sub_type_code IS NOT NULL AND
343: p_x_document_tbl(i).doc_sub_type_code <> FND_API.G_MISS_CHAR
344: THEN
345: l_document_tbl(i).doc_sub_type_code := p_x_document_tbl(i).doc_sub_type_code;
346: ELSE
347: l_document_tbl(i).doc_sub_type_code := p_x_document_tbl(i).doc_sub_type_code;
380: l_msg_count := FND_MSG_PUB.count_msg;
381:
382: IF l_msg_count > 0 THEN
383: X_msg_count := l_msg_count;
384: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
385: THEN
386: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSE
382: IF l_msg_count > 0 THEN
383: X_msg_count := l_msg_count;
384: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
385: THEN
386: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSE
389: X_return_status := FND_API.G_RET_STS_ERROR;
390: RAISE FND_API.G_EXC_ERROR;
383: X_msg_count := l_msg_count;
384: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
385: THEN
386: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSE
389: X_return_status := FND_API.G_RET_STS_ERROR;
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
385: THEN
386: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSE
389: X_return_status := FND_API.G_RET_STS_ERROR;
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392: END IF;
393: -- Debug info.
386: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: ELSE
389: X_return_status := FND_API.G_RET_STS_ERROR;
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392: END IF;
393: -- Debug info.
394: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
402: THEN
403: FOR i IN p_x_supplier_tbl.FIRST..p_x_supplier_tbl.LAST
404: LOOP
405: IF (p_x_supplier_tbl(i).supplier_id IS NULL) OR
406: (p_x_supplier_tbl(i).supplier_id = FND_API.G_MISS_NUM) THEN
407: -- If Supplier Name is available
408: IF (p_x_supplier_tbl(i).supplier_number IS NOT NULL) AND
409: (p_x_supplier_tbl(i).supplier_number <> FND_API.G_MISS_CHAR)
410: THEN
405: IF (p_x_supplier_tbl(i).supplier_id IS NULL) OR
406: (p_x_supplier_tbl(i).supplier_id = FND_API.G_MISS_NUM) THEN
407: -- If Supplier Name is available
408: IF (p_x_supplier_tbl(i).supplier_number IS NOT NULL) AND
409: (p_x_supplier_tbl(i).supplier_number <> FND_API.G_MISS_CHAR)
410: THEN
411: IF ahl_di_doc_index_pvt.get_product_install_status('PO') IN ('N','L')
412: THEN
413: OPEN for_party_name(p_x_supplier_tbl(i).supplier_number);
436: CLOSE for_vendor_id;
437: END IF;
438: --Id presents
439: ELSIF (p_x_supplier_tbl(i).supplier_id IS NOT NULL) AND
440: (p_x_supplier_tbl(i).supplier_id <> FND_API.G_MISS_NUM)
441: THEN
442: l_supplier_tbl(i).supplier_id := p_x_supplier_tbl(i).supplier_id;
443: ELSE
444: --Both Supplier Id and Name are missing
448: END IF;
449: END IF;
450: -- For Preference Code, meaning presents
451: IF p_x_supplier_tbl(i).preference_desc IS NOT NULL AND
452: p_x_supplier_tbl(i).preference_desc <> FND_API.G_MISS_CHAR
453: THEN
454:
455: Check_lookup_name_Or_Id (
456: p_lookup_type => 'AHL_SUPPLIER_PREF_TYPE',
467: END IF;
468: END IF;
469: -- Pref Code presents
470: IF p_x_supplier_tbl(i).preference_code IS NOT NULL AND
471: p_x_supplier_tbl(i).preference_code <> FND_API.G_MISS_CHAR
472: THEN
473: l_supplier_tbl(i).preference_code := p_x_supplier_tbl(i).preference_code;
474: ELSE
475: --Both missing
502: l_msg_count := FND_MSG_PUB.count_msg;
503:
504: IF l_msg_count > 0 THEN
505: X_msg_count := l_msg_count;
506: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
507: THEN
508: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSE
504: IF l_msg_count > 0 THEN
505: X_msg_count := l_msg_count;
506: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
507: THEN
508: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSE
511: X_return_status := FND_API.G_RET_STS_ERROR;
512: RAISE FND_API.G_EXC_ERROR;
505: X_msg_count := l_msg_count;
506: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
507: THEN
508: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSE
511: X_return_status := FND_API.G_RET_STS_ERROR;
512: RAISE FND_API.G_EXC_ERROR;
513: END IF;
507: THEN
508: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSE
511: X_return_status := FND_API.G_RET_STS_ERROR;
512: RAISE FND_API.G_EXC_ERROR;
513: END IF;
514: END IF;
515: */
508: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSE
511: X_return_status := FND_API.G_RET_STS_ERROR;
512: RAISE FND_API.G_EXC_ERROR;
513: END IF;
514: END IF;
515: */
516: --}}adharia
528: FOR i IN p_x_recipient_tbl.FIRST..p_x_recipient_tbl.LAST
529: LOOP
530: --For Recipient Id
531: IF (p_x_recipient_tbl(i).recipient_party_id IS NULL) OR
532: (p_x_recipient_tbl(i).recipient_party_id = FND_API.G_MISS_NUM)
533: THEN
534: -- If Recipient Name is available
535: IF (p_x_recipient_tbl(i).recipient_party_number IS NOT NULL) AND
536: (p_x_recipient_tbl(i).recipient_party_number <> FND_API.G_MISS_CHAR)
532: (p_x_recipient_tbl(i).recipient_party_id = FND_API.G_MISS_NUM)
533: THEN
534: -- If Recipient Name is available
535: IF (p_x_recipient_tbl(i).recipient_party_number IS NOT NULL) AND
536: (p_x_recipient_tbl(i).recipient_party_number <> FND_API.G_MISS_CHAR)
537: THEN
538: OPEN for_party_name(p_x_recipient_tbl(i).recipient_party_number);
539: FETCH for_party_name INTO l_recipient_id;
540: IF for_party_name%FOUND
547: END IF;
548: CLOSE for_party_name;
549: --ID presents
550: ELSIF (p_x_recipient_tbl(i).recipient_party_id IS NOT NULL) AND
551: (p_x_recipient_tbl(i).recipient_party_id <> FND_API.G_MISS_NUM)
552: THEN
553: l_recipient_tbl(i).recipient_party_id := p_x_recipient_tbl(i).recipient_party_id;
554: ELSE
555: --Both Recipient Id and Name are missing
584: l_msg_count := FND_MSG_PUB.count_msg;
585:
586: IF l_msg_count > 0 THEN
587: X_msg_count := l_msg_count;
588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
589: THEN
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: ELSE
586: IF l_msg_count > 0 THEN
587: X_msg_count := l_msg_count;
588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
589: THEN
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: ELSE
593: X_return_status := FND_API.G_RET_STS_ERROR;
594: RAISE FND_API.G_EXC_ERROR;
587: X_msg_count := l_msg_count;
588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
589: THEN
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: ELSE
593: X_return_status := FND_API.G_RET_STS_ERROR;
594: RAISE FND_API.G_EXC_ERROR;
595: END IF;
589: THEN
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: ELSE
593: X_return_status := FND_API.G_RET_STS_ERROR;
594: RAISE FND_API.G_EXC_ERROR;
595: END IF;
596: END IF;
597: */
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: ELSE
593: X_return_status := FND_API.G_RET_STS_ERROR;
594: RAISE FND_API.G_EXC_ERROR;
595: END IF;
596: END IF;
597: */
598: --{{adharia
614: p_x_subscription_tbl(i).subscribed_frm_party_id := null;
615: END IF;
616: -- For Requested by party Id
617: IF (p_x_subscription_tbl(i).requested_by_pty_name IS NOT NULL) AND
618: (p_x_subscription_tbl(i).requested_by_pty_name <> FND_API.G_MISS_CHAR)
619: THEN
620: OPEN for_party_name(p_x_subscription_tbl(i).requested_by_pty_name);
621: FETCH for_party_name INTO l_requested_by_party_id;
622: IF for_party_name%FOUND
629: CLOSE for_party_name;
630:
631: -- Party Id is present
632: ELSIF (p_x_subscription_tbl(i).requested_by_party_id IS NOT NULL) AND
633: (p_x_subscription_tbl(i).requested_by_party_id <> FND_API.G_MISS_NUM)
634: THEN
635: OPEN for_party_id(p_x_subscription_tbl(i).requested_by_party_id);
636: FETCH for_party_id INTO l_requested_by_party_id;
637: IF for_party_id%FOUND
649: END IF;
650: --For Subscribed from party id
651: -- If subscribed from Party Name is available
652: IF (p_x_subscription_tbl(i).subscribed_frm_pty_name IS NOT NULL) AND
653: (p_x_subscription_tbl(i).subscribed_frm_pty_name <> FND_API.G_MISS_CHAR)
654: THEN
655: OPEN for_party_name(p_x_subscription_tbl(i).subscribed_frm_pty_name);
656: FETCH for_party_name INTO l_supplier_id;
657: IF for_party_name%FOUND
662: END IF;
663: CLOSE for_party_name;
664: -- If Part id is present
665: ELSIF (p_x_subscription_tbl(i).subscribed_frm_party_id IS NOT NULL AND
666: p_x_subscription_tbl(i).subscribed_frm_party_id <> FND_API.G_MISS_NUM)
667: THEN
668: OPEN for_party_id(p_x_subscription_tbl(i).subscribed_frm_party_id);
669: FETCH for_party_id INTO l_supplier_id;
670: IF for_party_id%FOUND
679: l_subscription_tbl(i).subscribed_frm_party_id := p_x_subscription_tbl(i).subscribed_frm_party_id;
680: END IF;
681: --For Media Type Code
682: IF p_x_subscription_tbl(i).media_type_desc IS NOT NULL AND
683: p_x_subscription_tbl(i).media_type_desc <> FND_API.G_MISS_CHAR
684: THEN
685: --
686: Check_lookup_name_Or_Id (
687: p_lookup_type => 'AHL_MEDIA_TYPE',
698: END IF;
699: END IF;
700: -- If id is present
701: IF p_x_subscription_tbl(i).media_type_code IS NOT NULL AND
702: p_x_subscription_tbl(i).media_type_code <> FND_API.G_MISS_CHAR
703: THEN
704: l_subscription_tbl(i).media_type_code := p_x_subscription_tbl(i).media_type_code;
705: ELSE
706: -- Both are missing
708: END IF;
709:
710: --For Subscription Type Code
711: IF p_x_subscription_tbl(i).subscription_type_desc IS NOT NULL AND
712: p_x_subscription_tbl(i).subscription_type_desc <> FND_API.G_MISS_CHAR
713: THEN
714: Check_lookup_name_Or_Id (
715: p_lookup_type => 'AHL_SUBSCRIPTION_TYPE',
716: p_lookup_code => null,
726: END IF;
727: END IF;
728: -- Code Presents
729: IF p_x_subscription_tbl(i).subscription_type_code IS NOT NULL AND
730: p_x_subscription_tbl(i).subscription_type_code <> FND_API.G_MISS_CHAR
731: THEN
732: l_subscription_tbl(i).subscription_type_code := p_x_subscription_tbl(i).subscription_type_code;
733: ELSE
734: l_subscription_tbl(i).subscription_type_code := p_x_subscription_tbl(i).subscription_type_code;
735: END IF;
736:
737: --For Frequency Code
738: IF p_x_subscription_tbl(i).frequency_desc IS NOT NULL AND
739: p_x_subscription_tbl(i).frequency_desc <> FND_API.G_MISS_CHAR
740: THEN
741:
742: Check_lookup_name_Or_Id (
743: p_lookup_type => 'AHL_FREQUENCY_TYPE',
754: END IF;
755: END IF;
756: -- Frequency Code present
757: IF p_x_subscription_tbl(i).frequency_code IS NOT NULL AND
758: p_x_subscription_tbl(i).frequency_code <> FND_API.G_MISS_CHAR
759: THEN
760: l_subscription_tbl(i).frequency_code := p_x_subscription_tbl(i).frequency_code;
761: -- both missing
762: ELSE
764: END IF;
765:
766: --For Status Code
767: IF p_x_subscription_tbl(i).status_desc IS NOT NULL AND
768: p_x_subscription_tbl(i).status_desc <> FND_API.G_MISS_CHAR
769: THEN
770:
771: Check_lookup_name_Or_Id (
772: p_lookup_type => 'AHL_SUBSCRIBE_STATUS_TYPE',
783: END IF;
784: END IF;
785: -- If Status Code is Avialable
786: IF p_x_subscription_tbl(i).status_code IS NOT NULL AND
787: p_x_subscription_tbl(i).status_code <> FND_API.G_MISS_CHAR
788: THEN
789: l_subscription_tbl(i).status_code := p_x_subscription_tbl(i).status_code;
790: -- If both are missing
791: ELSE
823: l_msg_count := FND_MSG_PUB.count_msg;
824: --
825: IF l_msg_count > 0 THEN
826: X_msg_count := l_msg_count;
827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
828: THEN
829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: ELSE
825: IF l_msg_count > 0 THEN
826: X_msg_count := l_msg_count;
827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
828: THEN
829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: ELSE
832: X_return_status := FND_API.G_RET_STS_ERROR;
833: RAISE FND_API.G_EXC_ERROR;
826: X_msg_count := l_msg_count;
827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
828: THEN
829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: ELSE
832: X_return_status := FND_API.G_RET_STS_ERROR;
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
828: THEN
829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: ELSE
832: X_return_status := FND_API.G_RET_STS_ERROR;
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835: END IF;
836: END LOOP;
829: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
831: ELSE
832: X_return_status := FND_API.G_RET_STS_ERROR;
833: RAISE FND_API.G_EXC_ERROR;
834: END IF;
835: END IF;
836: END LOOP;
837: END IF; */
846: END IF;
847:
848: --For Approved by Party Id, Party Name is present
849: IF (p_x_doc_rev_tbl(i).approved_by_pty_name IS NOT NULL) AND
850: (p_x_doc_rev_tbl(i).approved_by_pty_name <> FND_API.G_MISS_CHAR)
851: THEN
852: OPEN for_party_name(p_x_doc_rev_tbl(i).approved_by_pty_name);
853: FETCH for_party_name INTO l_approved_by_party_id;
854: IF for_party_name%FOUND
860: END IF;
861: CLOSE for_party_name;
862: --If Party Id is present
863: ELSIF (p_x_doc_rev_tbl(i).approved_by_party_id IS NOT NULL) AND
864: (p_x_doc_rev_tbl(i).approved_by_party_id <> FND_API.G_MISS_NUM)
865: THEN
866: OPEN for_party_id(p_x_doc_rev_tbl(i).approved_by_party_id);
867: FETCH for_party_id INTO l_approved_by_party_id;
868: IF for_party_id%FOUND
879: l_revision_tbl(i).approved_by_party_id := p_x_doc_rev_tbl(i).approved_by_party_id;
880: END IF;
881: --For Revision Type Code
882: IF p_x_doc_rev_tbl(i).revision_type_desc IS NOT NULL AND
883: p_x_doc_rev_tbl(i).revision_type_desc <> FND_API.G_MISS_CHAR
884: THEN
885:
886: Check_lookup_name_Or_Id (
887: p_lookup_type => 'AHL_REVISION_TYPE',
898: END IF;
899: END IF;
900: -- If Code is present
901: IF (p_x_doc_rev_tbl(i).revision_type_code IS NOT NULL AND
902: p_x_doc_rev_tbl(i).revision_type_code <> FND_API.G_MISS_CHAR)
903: THEN
904: l_revision_tbl(i).revision_type_code := p_x_doc_rev_tbl(i).revision_type_code;
905: --If both are missing
906: ELSE
907: l_revision_tbl(i).revision_type_code := p_x_doc_rev_tbl(i).revision_type_code;
908: END IF;
909: --For Media Type Code, meaning is present
910: IF p_x_doc_rev_tbl(i).media_type_desc IS NOT NULL AND
911: p_x_doc_rev_tbl(i).media_type_desc <> FND_API.G_MISS_CHAR
912: THEN
913:
914: Check_lookup_name_Or_Id (
915: p_lookup_type => 'AHL_MEDIA_TYPE',
926: END IF;
927: END IF;
928: -- If ID presnt
929: IF p_x_doc_rev_tbl(i).media_type_code IS NOT NULL AND
930: p_x_doc_rev_tbl(i).media_type_code <> FND_API.G_MISS_CHAR
931: THEN
932: l_revision_tbl(i).media_type_code := p_x_doc_rev_tbl(i).media_type_code;
933: --Both are missing
934: ELSE
935: l_revision_tbl(i).media_type_code := p_x_doc_rev_tbl(i).media_type_code;
936: END IF;
937: --For Revision Status Code
938: IF p_x_doc_rev_tbl(i).revision_status_desc IS NOT NULL AND
939: p_x_doc_rev_tbl(i).revision_status_desc <> FND_API.G_MISS_CHAR
940: THEN
941:
942: Check_lookup_name_Or_Id (
943: p_lookup_type => 'AHL_REVISION_STATUS_TYPE',
954: END IF;
955: END IF;
956: -- If Revision status code presents
957: IF p_x_doc_rev_tbl(i).revision_status_code IS NOT NULL AND
958: p_x_doc_rev_tbl(i).revision_status_code <> FND_API.G_MISS_CHAR
959: THEN
960: l_revision_tbl(i).revision_status_code := p_x_doc_rev_tbl(i).revision_status_code;
961: ELSE
962: --Both are missing
1001: l_msg_count := FND_MSG_PUB.count_msg;
1002:
1003: IF l_msg_count > 0 THEN
1004: X_msg_count := l_msg_count;
1005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1006: THEN
1007: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: ELSE
1003: IF l_msg_count > 0 THEN
1004: X_msg_count := l_msg_count;
1005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1006: THEN
1007: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: ELSE
1010: X_return_status := FND_API.G_RET_STS_ERROR;
1011: RAISE FND_API.G_EXC_ERROR;
1004: X_msg_count := l_msg_count;
1005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1006: THEN
1007: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: ELSE
1010: X_return_status := FND_API.G_RET_STS_ERROR;
1011: RAISE FND_API.G_EXC_ERROR;
1012: END IF;
1006: THEN
1007: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: ELSE
1010: X_return_status := FND_API.G_RET_STS_ERROR;
1011: RAISE FND_API.G_EXC_ERROR;
1012: END IF;
1013: END IF;
1014: END LOOP;
1007: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1009: ELSE
1010: X_return_status := FND_API.G_RET_STS_ERROR;
1011: RAISE FND_API.G_EXC_ERROR;
1012: END IF;
1013: END IF;
1014: END LOOP;
1015: END IF; */
1041:
1042:
1043: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.CREATE_DOCUMENT_PRE');
1044:
1045: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1046: RAISE FND_API.G_EXC_ERROR;
1047: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1042:
1043: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.CREATE_DOCUMENT_PRE');
1044:
1045: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1046: RAISE FND_API.G_EXC_ERROR;
1047: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1050: END IF;
1043: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.CREATE_DOCUMENT_PRE');
1044:
1045: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1046: RAISE FND_API.G_EXC_ERROR;
1047: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1050: END IF;
1051:
1044:
1045: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1046: RAISE FND_API.G_EXC_ERROR;
1047: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1049: END IF;
1050: END IF;
1051:
1052: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_INDEX_PUB','CREATE_DOCUMENT','B', 'V' )
1068: l_msg_count := FND_MSG_PUB.count_msg;
1069: */
1070: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.CREATE_DOCUMENT_PRE');
1071:
1072: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1073: RAISE FND_API.G_EXC_ERROR;
1074: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: END IF;
1069: */
1070: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.CREATE_DOCUMENT_PRE');
1071:
1072: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1073: RAISE FND_API.G_EXC_ERROR;
1074: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: END IF;
1077:
1070: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.CREATE_DOCUMENT_PRE');
1071:
1072: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1073: RAISE FND_API.G_EXC_ERROR;
1074: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: END IF;
1077:
1078:
1071:
1072: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1073: RAISE FND_API.G_EXC_ERROR;
1074: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: END IF;
1077:
1078:
1079:
1089: l_msg_count := FND_MSG_PUB.count_msg;
1090:
1091: IF l_msg_count > 0 THEN
1092: X_msg_count := l_msg_count;
1093: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1094: THEN
1095: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: ELSE
1091: IF l_msg_count > 0 THEN
1092: X_msg_count := l_msg_count;
1093: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1094: THEN
1095: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: ELSE
1098: X_return_status := FND_API.G_RET_STS_ERROR;
1099: RAISE FND_API.G_EXC_ERROR;
1092: X_msg_count := l_msg_count;
1093: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1094: THEN
1095: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: ELSE
1098: X_return_status := FND_API.G_RET_STS_ERROR;
1099: RAISE FND_API.G_EXC_ERROR;
1100: END IF;
1094: THEN
1095: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: ELSE
1098: X_return_status := FND_API.G_RET_STS_ERROR;
1099: RAISE FND_API.G_EXC_ERROR;
1100: END IF;
1101: END IF;
1102: --}}adharia
1095: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: ELSE
1098: X_return_status := FND_API.G_RET_STS_ERROR;
1099: RAISE FND_API.G_EXC_ERROR;
1100: END IF;
1101: END IF;
1102: --}}adharia
1103:
1119:
1120:
1121: IF l_msg_count > 0 THEN
1122: X_msg_count := l_msg_count;
1123: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1124: THEN
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSE
1121: IF l_msg_count > 0 THEN
1122: X_msg_count := l_msg_count;
1123: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1124: THEN
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSE
1128: X_return_status := FND_API.G_RET_STS_ERROR;
1129: RAISE FND_API.G_EXC_ERROR;
1122: X_msg_count := l_msg_count;
1123: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1124: THEN
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSE
1128: X_return_status := FND_API.G_RET_STS_ERROR;
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1124: THEN
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSE
1128: X_return_status := FND_API.G_RET_STS_ERROR;
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131: END IF;
1132:
1125: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: ELSE
1128: X_return_status := FND_API.G_RET_STS_ERROR;
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131: END IF;
1132:
1133:
1153: X_RETURN_STATUS => l_return_status ,
1154: X_MSG_COUNT => l_msg_count ,
1155: X_MSG_DATA => l_msg_data );
1156:
1157: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1154: X_MSG_COUNT => l_msg_count ,
1155: X_MSG_DATA => l_msg_data );
1156:
1157: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1162:
1155: X_MSG_DATA => l_msg_data );
1156:
1157: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1162:
1163: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.CREATE_DOCUMENT_POST ');
1156:
1157: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1158: RAISE FND_API.G_EXC_ERROR;
1159: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1161: END IF;
1162:
1163: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.CREATE_DOCUMENT_POST ');
1164:
1179: X_MSG_COUNT => l_msg_count ,
1180: X_MSG_DATA => l_msg_data );
1181:
1182:
1183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1184: RAISE FND_API.G_EXC_ERROR;
1185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187: END IF;
1180: X_MSG_DATA => l_msg_data );
1181:
1182:
1183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1184: RAISE FND_API.G_EXC_ERROR;
1185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187: END IF;
1188:
1181:
1182:
1183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1184: RAISE FND_API.G_EXC_ERROR;
1185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187: END IF;
1188:
1189: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.CREATE_DOCUMENT_POST');
1182:
1183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1184: RAISE FND_API.G_EXC_ERROR;
1185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187: END IF;
1188:
1189: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.CREATE_DOCUMENT_POST');
1190:
1220: p_x_recipient_tbl(i).recipient_document_id := l_recipient_tbl(i).recipient_document_id;
1221: END LOOP;
1222: END IF;
1223: --Standard check for commit
1224: IF FND_API.TO_BOOLEAN(p_commit) THEN
1225: COMMIT;
1226: END IF;
1227: -- Debug info
1228: AHL_DEBUG_PUB.debug( 'End of public api Create Document','+DI+');
1229: -- Check if API is called in debug mode. If yes, disable debug.
1230: AHL_DEBUG_PUB.disable_debug;
1231:
1232: EXCEPTION
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: ROLLBACK TO create_document;
1235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1237: p_count => x_msg_count,
1231:
1232: EXCEPTION
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: ROLLBACK TO create_document;
1235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1237: p_count => x_msg_count,
1238: p_data => x_msg_data);
1239: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1232: EXCEPTION
1233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1234: ROLLBACK TO create_document;
1235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1237: p_count => x_msg_count,
1238: p_data => x_msg_data);
1239: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1240: AHL_DEBUG_PUB.log_app_messages (
1243: END IF;
1244: -- Check if API is called in debug mode. If yes, disable debug.
1245: AHL_DEBUG_PUB.disable_debug;
1246:
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_document;
1249: X_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1245: AHL_DEBUG_PUB.disable_debug;
1246:
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_document;
1249: X_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => X_msg_data);
1253: -- Debug info.
1246:
1247: WHEN FND_API.G_EXC_ERROR THEN
1248: ROLLBACK TO create_document;
1249: X_return_status := FND_API.G_RET_STS_ERROR;
1250: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => X_msg_data);
1253: -- Debug info.
1254: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1260: AHL_DEBUG_PUB.disable_debug;
1261:
1262: WHEN OTHERS THEN
1263: ROLLBACK TO create_document;
1264: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1265: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1266: THEN
1267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PUB',
1268: p_procedure_name => 'CREATE_DOCUMENT',
1267: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_INDEX_PUB',
1268: p_procedure_name => 'CREATE_DOCUMENT',
1269: p_error_text => SUBSTR(SQLERRM,1,240));
1270: END IF;
1271: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1272: p_count => x_msg_count,
1273: p_data => X_msg_data);
1274:
1275: -- Debug info.
1292:
1293: PROCEDURE MODIFY_DOCUMENT
1294: (
1295: p_api_version IN NUMBER := '1.0' ,
1296: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1297: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1298: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: p_x_document_tbl IN OUT NOCOPY document_tbl ,
1293: PROCEDURE MODIFY_DOCUMENT
1294: (
1295: p_api_version IN NUMBER := '1.0' ,
1296: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1297: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1298: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: p_x_document_tbl IN OUT NOCOPY document_tbl ,
1301: -- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
1294: (
1295: p_api_version IN NUMBER := '1.0' ,
1296: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1297: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1298: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: p_x_document_tbl IN OUT NOCOPY document_tbl ,
1301: -- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
1302: -- p_x_doc_rev_copy_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Copy_Tbl,
1295: p_api_version IN NUMBER := '1.0' ,
1296: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1297: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1298: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1300: p_x_document_tbl IN OUT NOCOPY document_tbl ,
1301: -- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
1302: -- p_x_doc_rev_copy_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Copy_Tbl,
1303: -- p_x_subscription_tbl IN OUT NOCOPY AHL_DI_SUBSCRIPTION_PUB.Subscription_Tbl,
1423: -- l_revision_copy_tbl AHL_DI_DOC_REVISION_PVT.revision_copy_tbl;
1424: -- l_subscription_tbl AHL_DI_SUBSCRIPTION_PVT.subscription_tbl;
1425: l_supplier_tbl AHL_DI_DOC_INDEX_PVT.supplier_tbl;
1426: l_recipient_tbl AHL_DI_DOC_INDEX_PVT.recipient_tbl;
1427: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
1428: l_subscription_id NUMBER;
1429: l_supplier_name VARCHAR2(360);
1430: l_prod_install_status VARCHAR2(30);
1431:
1441: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1442: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pub.Modify Document','+DI+');
1443: END IF;
1444: -- Standard call to check for call compatibility.
1445: IF FND_API.to_boolean(l_init_msg_list)
1446: THEN
1447: FND_MSG_PUB.initialize;
1448: END IF;
1449: -- Initialize API return status to success
1448: END IF;
1449: -- Initialize API return status to success
1450: x_return_status := 'S';
1451: -- Initialize message list if p_init_msg_list is set to TRUE.
1452: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1453: p_api_version,
1454: l_api_name,G_PKG_NAME)
1455: THEN
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1452: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1453: p_api_version,
1454: l_api_name,G_PKG_NAME)
1455: THEN
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1457: END IF;
1458: --Start of API Body
1459:
1460: BEGIN
1480: --p_x_document_tbl(i).operator_code := null;
1481: END IF;
1482: --For Source by Party Id
1483: IF (p_x_document_tbl(i).source_party_id IS NULL) OR
1484: (p_x_document_tbl(i).source_party_id = FND_API.G_MISS_NUM)
1485: THEN
1486:
1487: -- If Party Name is available
1488: IF (p_x_document_tbl(i).source_party_number IS NOT NULL) AND
1485: THEN
1486:
1487: -- If Party Name is available
1488: IF (p_x_document_tbl(i).source_party_number IS NOT NULL) AND
1489: (p_x_document_tbl(i).source_party_number <> FND_API.G_MISS_CHAR)
1490: THEN
1491: OPEN for_party_name(p_x_document_tbl(i).source_party_number);
1492: FETCH for_party_name INTO l_source_party_id;
1493: IF for_party_name%FOUND
1505: END IF;
1506:
1507: --Check for If ID present
1508: ELSIF (p_x_document_tbl(i).source_party_id IS NOT NULL AND
1509: p_x_document_tbl(i).source_party_id <> FND_API.G_MISS_NUM)
1510: THEN
1511: OPEN for_party_id(p_x_document_tbl(i).source_party_id);
1512: FETCH for_party_id INTO l_document_tbl(i).source_party_id;
1513: IF for_party_id%FOUND
1523: FND_MSG_PUB.ADD;
1524: END IF;
1525: --For Operator Code, Meaning presnts
1526: IF p_x_document_tbl(i).operator_name IS NOT NULL AND
1527: p_x_document_tbl(i).operator_name <> FND_API.G_MISS_CHAR
1528: THEN
1529: -- Check if operator name and id match
1530: OPEN get_operator_name_hz_id(p_x_document_tbl(i).operator_name, TO_NUMBER(p_x_document_tbl(i).operator_code));
1531:
1557: END IF;
1558:
1559: --For Product type Code, Meaning presnts
1560: IF p_x_document_tbl(i).product_type_desc IS NOT NULL AND
1561: p_x_document_tbl(i).product_type_desc <> FND_API.G_MISS_CHAR
1562: THEN
1563: Check_lookup_name_Or_Id (
1564: --Enhancement #2525604 pbarman : April 2003
1565: p_lookup_type => 'ITEM_TYPE',
1576: END IF;
1577:
1578: --ID presntes
1579: ELSIF p_x_document_tbl(i).product_type_code IS NOT NULL AND
1580: p_x_document_tbl(i).product_type_code <> FND_API.G_MISS_CHAR
1581: THEN
1582: l_document_tbl(i).product_type_code := p_x_document_tbl(i).product_type_code;
1583: --Both missing
1584: ELSE
1586: END IF;
1587:
1588: --For Doc Type Code
1589: IF p_x_document_tbl(i).doc_type_desc IS NOT NULL AND
1590: p_x_document_tbl(i).doc_type_desc <> FND_API.G_MISS_CHAR
1591: THEN
1592: Check_lookup_name_Or_Id (
1593: p_lookup_type => 'AHL_DOC_TYPE',
1594: p_lookup_code => null,
1604: END IF;
1605: END IF;
1606: -- Id presents
1607: IF p_x_document_tbl(i).doc_type_code IS NOT NULL AND
1608: p_x_document_tbl(i).doc_type_code <> FND_API.G_MISS_CHAR
1609: THEN
1610: l_document_tbl(i).doc_type_code := p_x_document_tbl(i).doc_type_code;
1611: ELSE
1612: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TYPE_CODE_NOT_EXIST');
1614: END IF;
1615:
1616: --For Doc Sub Type Code, meaning presents
1617: IF p_x_document_tbl(i).doc_sub_type_desc IS NOT NULL AND
1618: p_x_document_tbl(i).doc_sub_type_desc <> FND_API.G_MISS_CHAR
1619: THEN
1620:
1621: Check_lookup_name_Or_Id (
1622: p_lookup_type => 'AHL_DOC_SUB_TYPE_CODE',
1633: END IF;
1634: END IF;
1635: --Id presents
1636: IF p_x_document_tbl(i).doc_sub_type_code IS NOT NULL AND
1637: p_x_document_tbl(i).doc_sub_type_code <> FND_API.G_MISS_CHAR
1638: THEN
1639: l_document_tbl(i).doc_sub_type_code := p_x_document_tbl(i).doc_sub_type_code;
1640: ELSE
1641: l_document_tbl(i).doc_sub_type_code := p_x_document_tbl(i).doc_sub_type_code;
1695: --Standard check for count messages
1696: l_msg_count := FND_MSG_PUB.count_msg;
1697: IF l_msg_count > 0 THEN
1698: X_msg_count := l_msg_count;
1699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1700: THEN
1701: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: ELSE
1697: IF l_msg_count > 0 THEN
1698: X_msg_count := l_msg_count;
1699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1700: THEN
1701: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: ELSE
1704: X_return_status := FND_API.G_RET_STS_ERROR;
1705: RAISE FND_API.G_EXC_ERROR;
1698: X_msg_count := l_msg_count;
1699: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1700: THEN
1701: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: ELSE
1704: X_return_status := FND_API.G_RET_STS_ERROR;
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1700: THEN
1701: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: ELSE
1704: X_return_status := FND_API.G_RET_STS_ERROR;
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1707: END IF;
1708: -- Debug info.
1701: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: ELSE
1704: X_return_status := FND_API.G_RET_STS_ERROR;
1705: RAISE FND_API.G_EXC_ERROR;
1706: END IF;
1707: END IF;
1708: -- Debug info.
1709: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
1717: THEN
1718: FOR i IN p_x_supplier_tbl.FIRST..p_x_supplier_tbl.LAST
1719: LOOP
1720: IF (p_x_supplier_tbl(i).supplier_id IS NULL) OR
1721: (p_x_supplier_tbl(i).supplier_id = FND_API.G_MISS_NUM) THEN
1722: -- If Supplier Name is available
1723: IF (p_x_supplier_tbl(i).supplier_number IS NOT NULL) AND
1724: (p_x_supplier_tbl(i).supplier_number <> FND_API.G_MISS_CHAR)
1725: THEN
1720: IF (p_x_supplier_tbl(i).supplier_id IS NULL) OR
1721: (p_x_supplier_tbl(i).supplier_id = FND_API.G_MISS_NUM) THEN
1722: -- If Supplier Name is available
1723: IF (p_x_supplier_tbl(i).supplier_number IS NOT NULL) AND
1724: (p_x_supplier_tbl(i).supplier_number <> FND_API.G_MISS_CHAR)
1725: THEN
1726: IF ahl_di_doc_index_pvt.get_product_install_status('PO') IN ('N','L')
1727: THEN
1728: OPEN for_party_name(p_x_supplier_tbl(i).supplier_number);
1751: CLOSE for_vendor_id;
1752: END IF;
1753: --Id presents
1754: ELSIF (p_x_supplier_tbl(i).supplier_id IS NOT NULL) AND
1755: (p_x_supplier_tbl(i).supplier_id <> FND_API.G_MISS_NUM)
1756: THEN
1757: l_supplier_tbl(i).supplier_id := p_x_supplier_tbl(i).supplier_id;
1758: ELSE
1759: IF p_x_supplier_tbl(i).delete_flag <> 'Y' THEN
1767: END IF;
1768: END IF;
1769: -- For Preference Code, meaning presents
1770: IF p_x_supplier_tbl(i).preference_desc IS NOT NULL AND
1771: p_x_supplier_tbl(i).preference_desc <> FND_API.G_MISS_CHAR
1772: THEN
1773:
1774: Check_lookup_name_Or_Id (
1775: p_lookup_type => 'AHL_SUPPLIER_PREF_TYPE',
1786: END IF;
1787: END IF;
1788: -- Pref Code presents
1789: IF p_x_supplier_tbl(i).preference_code IS NOT NULL AND
1790: p_x_supplier_tbl(i).preference_code <> FND_API.G_MISS_CHAR
1791: THEN
1792: l_supplier_tbl(i).preference_code := p_x_supplier_tbl(i).preference_code;
1793: ELSE
1794: --Both missing
1855: l_msg_count := FND_MSG_PUB.count_msg;
1856:
1857: IF l_msg_count > 0 THEN
1858: X_msg_count := l_msg_count;
1859: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1860: THEN
1861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: ELSE
1857: IF l_msg_count > 0 THEN
1858: X_msg_count := l_msg_count;
1859: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1860: THEN
1861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: ELSE
1864: X_return_status := FND_API.G_RET_STS_ERROR;
1865: RAISE FND_API.G_EXC_ERROR;
1858: X_msg_count := l_msg_count;
1859: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1860: THEN
1861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: ELSE
1864: X_return_status := FND_API.G_RET_STS_ERROR;
1865: RAISE FND_API.G_EXC_ERROR;
1866: END IF;
1860: THEN
1861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: ELSE
1864: X_return_status := FND_API.G_RET_STS_ERROR;
1865: RAISE FND_API.G_EXC_ERROR;
1866: END IF;
1867: END IF;
1868: --{{adharia
1861: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1863: ELSE
1864: X_return_status := FND_API.G_RET_STS_ERROR;
1865: RAISE FND_API.G_EXC_ERROR;
1866: END IF;
1867: END IF;
1868: --{{adharia
1869: */
1882: LOOP
1883: --For Recipient Id
1884:
1885: IF (p_x_recipient_tbl(i).recipient_party_id IS NULL) OR
1886: (p_x_recipient_tbl(i).recipient_party_id = FND_API.G_MISS_NUM) THEN
1887: -- If Recipient Name is available
1888: IF (p_x_recipient_tbl(i).recipient_party_number IS NOT NULL) AND
1889: (p_x_recipient_tbl(i).recipient_party_number <> FND_API.G_MISS_CHAR)
1890: THEN
1885: IF (p_x_recipient_tbl(i).recipient_party_id IS NULL) OR
1886: (p_x_recipient_tbl(i).recipient_party_id = FND_API.G_MISS_NUM) THEN
1887: -- If Recipient Name is available
1888: IF (p_x_recipient_tbl(i).recipient_party_number IS NOT NULL) AND
1889: (p_x_recipient_tbl(i).recipient_party_number <> FND_API.G_MISS_CHAR)
1890: THEN
1891:
1892: OPEN for_party_name(p_x_recipient_tbl(i).recipient_party_number);
1893: FETCH for_party_name INTO l_recipient_id;
1901: END IF;
1902: CLOSE for_party_name;
1903: --ID presents
1904: ELSIF (p_x_recipient_tbl(i).recipient_party_id IS NOT NULL) AND
1905: (p_x_recipient_tbl(i).recipient_party_id <> FND_API.G_MISS_NUM)
1906: THEN
1907: l_recipient_tbl(i).recipient_party_id := p_x_recipient_tbl(i).recipient_party_id;
1908: ELSE
1909: --Both Recipient Id and Name are missing
1938: l_msg_count := FND_MSG_PUB.count_msg;
1939:
1940: IF l_msg_count > 0 THEN
1941: X_msg_count := l_msg_count;
1942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1943: THEN
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: ELSE
1940: IF l_msg_count > 0 THEN
1941: X_msg_count := l_msg_count;
1942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1943: THEN
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: ELSE
1947: X_return_status := FND_API.G_RET_STS_ERROR;
1948: RAISE FND_API.G_EXC_ERROR;
1941: X_msg_count := l_msg_count;
1942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1943: THEN
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: ELSE
1947: X_return_status := FND_API.G_RET_STS_ERROR;
1948: RAISE FND_API.G_EXC_ERROR;
1949: END IF;
1943: THEN
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: ELSE
1947: X_return_status := FND_API.G_RET_STS_ERROR;
1948: RAISE FND_API.G_EXC_ERROR;
1949: END IF;
1950: END IF;
1951: --}}adharia
1944: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1946: ELSE
1947: X_return_status := FND_API.G_RET_STS_ERROR;
1948: RAISE FND_API.G_EXC_ERROR;
1949: END IF;
1950: END IF;
1951: --}}adharia
1952: */
1985:
1986: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.MODIFY_DOCUMENT_PRE');
1987:
1988:
1989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1990: RAISE FND_API.G_EXC_ERROR;
1991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: END IF;
1986: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.MODIFY_DOCUMENT_PRE');
1987:
1988:
1989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1990: RAISE FND_API.G_EXC_ERROR;
1991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: END IF;
1994: END IF;
1987:
1988:
1989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1990: RAISE FND_API.G_EXC_ERROR;
1991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: END IF;
1994: END IF;
1995:
1988:
1989: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1990: RAISE FND_API.G_EXC_ERROR;
1991: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993: END IF;
1994: END IF;
1995:
1996: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_INDEX_PUB','MODIFY_DOCUMENT',
2006: X_RETURN_STATUS => l_return_status ,
2007: X_MSG_COUNT => l_msg_count ,
2008: X_MSG_DATA => l_msg_data );
2009:
2010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2011: RAISE FND_API.G_EXC_ERROR;
2012: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2014: END IF;
2007: X_MSG_COUNT => l_msg_count ,
2008: X_MSG_DATA => l_msg_data );
2009:
2010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2011: RAISE FND_API.G_EXC_ERROR;
2012: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2014: END IF;
2015:
2008: X_MSG_DATA => l_msg_data );
2009:
2010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2011: RAISE FND_API.G_EXC_ERROR;
2012: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2014: END IF;
2015:
2016: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.MODIFY_DOCUMENT_PRE');
2009:
2010: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2011: RAISE FND_API.G_EXC_ERROR;
2012: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2013: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2014: END IF;
2015:
2016: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.MODIFY_DOCUMENT_PRE');
2017:
2029: --{{adharia
2030: l_msg_count := FND_MSG_PUB.count_msg;
2031: IF l_msg_count > 0 THEN
2032: X_msg_count := l_msg_count;
2033: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2034: THEN
2035: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: ELSE
2031: IF l_msg_count > 0 THEN
2032: X_msg_count := l_msg_count;
2033: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2034: THEN
2035: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: ELSE
2038: X_return_status := FND_API.G_RET_STS_ERROR;
2039: RAISE FND_API.G_EXC_ERROR;
2032: X_msg_count := l_msg_count;
2033: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2034: THEN
2035: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: ELSE
2038: X_return_status := FND_API.G_RET_STS_ERROR;
2039: RAISE FND_API.G_EXC_ERROR;
2040: END IF;
2034: THEN
2035: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: ELSE
2038: X_return_status := FND_API.G_RET_STS_ERROR;
2039: RAISE FND_API.G_EXC_ERROR;
2040: END IF;
2041: END IF;
2042: --{{adharia
2035: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: ELSE
2038: X_return_status := FND_API.G_RET_STS_ERROR;
2039: RAISE FND_API.G_EXC_ERROR;
2040: END IF;
2041: END IF;
2042: --{{adharia
2043:
2059: l_msg_count := FND_MSG_PUB.count_msg;
2060:
2061: IF l_msg_count > 0 THEN
2062: X_msg_count := l_msg_count;
2063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2064: THEN
2065: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: ELSE
2061: IF l_msg_count > 0 THEN
2062: X_msg_count := l_msg_count;
2063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2064: THEN
2065: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: ELSE
2068: X_return_status := FND_API.G_RET_STS_ERROR;
2069: RAISE FND_API.G_EXC_ERROR;
2062: X_msg_count := l_msg_count;
2063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2064: THEN
2065: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: ELSE
2068: X_return_status := FND_API.G_RET_STS_ERROR;
2069: RAISE FND_API.G_EXC_ERROR;
2070: END IF;
2064: THEN
2065: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: ELSE
2068: X_return_status := FND_API.G_RET_STS_ERROR;
2069: RAISE FND_API.G_EXC_ERROR;
2070: END IF;
2071: END IF;
2072:
2065: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2067: ELSE
2068: X_return_status := FND_API.G_RET_STS_ERROR;
2069: RAISE FND_API.G_EXC_ERROR;
2070: END IF;
2071: END IF;
2072:
2073:
2095: X_RETURN_STATUS => l_return_status ,
2096: X_MSG_COUNT => l_msg_count ,
2097: X_MSG_DATA => l_msg_data );
2098:
2099: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: END IF;
2096: X_MSG_COUNT => l_msg_count ,
2097: X_MSG_DATA => l_msg_data );
2098:
2099: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: END IF;
2104:
2097: X_MSG_DATA => l_msg_data );
2098:
2099: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: END IF;
2104:
2105: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.MODIFY_DOCUMENT_POST');
2098:
2099: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2100: RAISE FND_API.G_EXC_ERROR;
2101: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2103: END IF;
2104:
2105: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_VUHK.MODIFY_DOCUMENT_POST');
2106:
2121: X_MSG_DATA => l_msg_data);
2122:
2123:
2124:
2125: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2126: RAISE FND_API.G_EXC_ERROR;
2127: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2129: END IF;
2122:
2123:
2124:
2125: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2126: RAISE FND_API.G_EXC_ERROR;
2127: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2129: END IF;
2130:
2123:
2124:
2125: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2126: RAISE FND_API.G_EXC_ERROR;
2127: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2129: END IF;
2130:
2131: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.MODIFY_DOCUMENT_POST');
2124:
2125: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2126: RAISE FND_API.G_EXC_ERROR;
2127: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2129: END IF;
2130:
2131: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_INDEX_CUHK.MODIFY_DOCUMENT_POST');
2132:
2139:
2140:
2141:
2142: --Standard check for commit
2143: IF FND_API.TO_BOOLEAN(p_commit) THEN
2144: COMMIT;
2145: END IF;
2146: -- Debug info
2147: AHL_DEBUG_PUB.debug( 'End of public api Modify Document','+DI+');
2148: -- Check if API is called in debug mode. If yes, disable debug.
2149: AHL_DEBUG_PUB.disable_debug;
2150:
2151: EXCEPTION
2152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2153: ROLLBACK TO modify_document;
2154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2156: p_count => x_msg_count,
2150:
2151: EXCEPTION
2152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2153: ROLLBACK TO modify_document;
2154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2156: p_count => x_msg_count,
2157: p_data => x_msg_data);
2158: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
2151: EXCEPTION
2152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2153: ROLLBACK TO modify_document;
2154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2156: p_count => x_msg_count,
2157: p_data => x_msg_data);
2158: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN
2159: AHL_DEBUG_PUB.log_app_messages (
2163:
2164: -- Check if API is called in debug mode. If yes, disable debug.
2165: AHL_DEBUG_PUB.disable_debug;
2166:
2167: WHEN FND_API.G_EXC_ERROR THEN
2168: ROLLBACK TO modify_document;
2169: X_return_status := FND_API.G_RET_STS_ERROR;
2170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2171: p_count => x_msg_count,
2165: AHL_DEBUG_PUB.disable_debug;
2166:
2167: WHEN FND_API.G_EXC_ERROR THEN
2168: ROLLBACK TO modify_document;
2169: X_return_status := FND_API.G_RET_STS_ERROR;
2170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2171: p_count => x_msg_count,
2172: p_data => X_msg_data);
2173:
2166:
2167: WHEN FND_API.G_EXC_ERROR THEN
2168: ROLLBACK TO modify_document;
2169: X_return_status := FND_API.G_RET_STS_ERROR;
2170: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2171: p_count => x_msg_count,
2172: p_data => X_msg_data);
2173:
2174: -- Debug info.
2181: AHL_DEBUG_PUB.disable_debug;
2182:
2183: WHEN OTHERS THEN
2184: ROLLBACK TO modify_document;
2185: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2187: THEN
2188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOCUMENTS_PUB',
2189: p_procedure_name => 'MODIFY_DOCUMENT',
2188: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOCUMENTS_PUB',
2189: p_procedure_name => 'MODIFY_DOCUMENT',
2190: p_error_text => SUBSTR(SQLERRM,1,240));
2191: END IF;
2192: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2193: p_count => x_msg_count,
2194: p_data => X_msg_data);
2195: -- Debug info.
2196: IF AHL_DEBUG_PUB.G_FILE_DEBUG THEN