[Home] [Help]
110: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
112: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
113: IF (g_fnd_debug='Y') THEN
114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
115: FND_LOG.string(log_level => FND_LOG.level_unexpected
116: ,module => g_module_prefix ||l_api_name
117: ,message => SQLERRM);
118: END IF;
111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
112: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
113: IF (g_fnd_debug='Y') THEN
114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
115: FND_LOG.string(log_level => FND_LOG.level_unexpected
116: ,module => g_module_prefix ||l_api_name
117: ,message => SQLERRM);
118: END IF;
119: END IF;
279: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
281: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
282: IF (g_fnd_debug='Y') THEN
283: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
284: FND_LOG.string(log_level => FND_LOG.level_unexpected
285: ,module => g_module_prefix ||l_api_name
286: ,message => SQLERRM);
287: END IF;
280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
281: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
282: IF (g_fnd_debug='Y') THEN
283: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
284: FND_LOG.string(log_level => FND_LOG.level_unexpected
285: ,module => g_module_prefix ||l_api_name
286: ,message => SQLERRM);
287: END IF;
288: END IF;
415: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
417: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
418: IF (g_fnd_debug='Y') THEN
419: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
420: FND_LOG.string(log_level => FND_LOG.level_unexpected
421: ,module => g_module_prefix ||l_api_name
422: ,message => SQLERRM);
423: END IF;
416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
417: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
418: IF (g_fnd_debug='Y') THEN
419: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
420: FND_LOG.string(log_level => FND_LOG.level_unexpected
421: ,module => g_module_prefix ||l_api_name
422: ,message => SQLERRM);
423: END IF;
424: END IF;
564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
567: IF (g_fnd_debug='Y') THEN
568: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
569: FND_LOG.string(log_level => FND_LOG.level_unexpected
570: ,module => g_module_prefix ||l_api_name
571: ,message => SQLERRM);
572: END IF;
565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
567: IF (g_fnd_debug='Y') THEN
568: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
569: FND_LOG.string(log_level => FND_LOG.level_unexpected
570: ,module => g_module_prefix ||l_api_name
571: ,message => SQLERRM);
572: END IF;
573: END IF;
676: l_po_status_rec PO_STATUS_REC_TYPE;
677:
678: BEGIN
679: If g_fnd_debug = 'Y' then
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
681: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
682: MODULE =>g_module_prefix||l_api_name,
683: MESSAGE =>'10: Start' ||l_api_name);
684: END IF;
677:
678: BEGIN
679: If g_fnd_debug = 'Y' then
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
681: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
682: MODULE =>g_module_prefix||l_api_name,
683: MESSAGE =>'10: Start' ||l_api_name);
684: END IF;
685: End if;
703: x_return_status := FND_API.G_RET_STS_SUCCESS;
704: X_update_allowed := 'Y';
705:
706: If g_fnd_debug = 'Y' then
707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
708: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
709: MODULE =>g_module_prefix||l_api_name,
710: MESSAGE =>'50: Do basic validations');
711: END IF;
704: X_update_allowed := 'Y';
705:
706: If g_fnd_debug = 'Y' then
707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
708: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
709: MODULE =>g_module_prefix||l_api_name,
710: MESSAGE =>'50: Do basic validations');
711: END IF;
712: End if;
745: RAISE FND_API.G_EXC_ERROR;
746:
747: END IF;-- p_callout _string
748: If g_fnd_debug = 'Y' then
749: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
750: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
751: MODULE =>g_module_prefix||l_api_name,
752: MESSAGE =>'100: callout status '||l_callout_status);
753: END IF;
746:
747: END IF;-- p_callout _string
748: If g_fnd_debug = 'Y' then
749: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
750: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
751: MODULE =>g_module_prefix||l_api_name,
752: MESSAGE =>'100: callout status '||l_callout_status);
753: END IF;
754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
750: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
751: MODULE =>g_module_prefix||l_api_name,
752: MESSAGE =>'100: callout status '||l_callout_status);
753: END IF;
754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
755: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
756: MODULE =>g_module_prefix||l_api_name,
757: MESSAGE =>'110:callout revision '||l_callout_revision);
758: END IF;
751: MODULE =>g_module_prefix||l_api_name,
752: MESSAGE =>'100: callout status '||l_callout_status);
753: END IF;
754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
755: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
756: MODULE =>g_module_prefix||l_api_name,
757: MESSAGE =>'110:callout revision '||l_callout_revision);
758: END IF;
759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
755: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
756: MODULE =>g_module_prefix||l_api_name,
757: MESSAGE =>'110:callout revision '||l_callout_revision);
758: END IF;
759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
760: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
761: MODULE =>g_module_prefix||l_api_name,
762: MESSAGE =>'120:callout employee '||l_emp_id);
763: END IF;
756: MODULE =>g_module_prefix||l_api_name,
757: MESSAGE =>'110:callout revision '||l_callout_revision);
758: END IF;
759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
760: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
761: MODULE =>g_module_prefix||l_api_name,
762: MESSAGE =>'120:callout employee '||l_emp_id);
763: END IF;
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
760: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
761: MODULE =>g_module_prefix||l_api_name,
762: MESSAGE =>'120:callout employee '||l_emp_id);
763: END IF;
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
765: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
766: MODULE =>g_module_prefix||l_api_name,
767: MESSAGE =>'140:Header id '||p_header_id);
768: END IF;
761: MODULE =>g_module_prefix||l_api_name,
762: MESSAGE =>'120:callout employee '||l_emp_id);
763: END IF;
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
765: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
766: MODULE =>g_module_prefix||l_api_name,
767: MESSAGE =>'140:Header id '||p_header_id);
768: END IF;
769: END IF;
803:
804: END;
805:
806: IF g_fnd_debug = 'Y' then
807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
808: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
809: MODULE =>g_module_prefix||l_api_name,
810: MESSAGE =>'200:current status '||l_po_status);
811: END IF;
804: END;
805:
806: IF g_fnd_debug = 'Y' then
807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
808: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
809: MODULE =>g_module_prefix||l_api_name,
810: MESSAGE =>'200:current status '||l_po_status);
811: END IF;
812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
808: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
809: MODULE =>g_module_prefix||l_api_name,
810: MESSAGE =>'200:current status '||l_po_status);
811: END IF;
812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
813: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
814: MODULE =>g_module_prefix||l_api_name,
815: MESSAGE =>'220:current revision '||l_po_revision);
816: END IF;
809: MODULE =>g_module_prefix||l_api_name,
810: MESSAGE =>'200:current status '||l_po_status);
811: END IF;
812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
813: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
814: MODULE =>g_module_prefix||l_api_name,
815: MESSAGE =>'220:current revision '||l_po_revision);
816: END IF;
817:
828: RAISE FND_API.G_EXC_ERROR;
829: End if;--emp id is null
830: --Check if current user is the current approver for the PO
831: IF g_fnd_debug = 'Y' then
832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
834: MODULE =>g_module_prefix||l_api_name,
835: MESSAGE =>'250:doc type '||l_doc_type_code);
836: END IF;
829: End if;--emp id is null
830: --Check if current user is the current approver for the PO
831: IF g_fnd_debug = 'Y' then
832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
834: MODULE =>g_module_prefix||l_api_name,
835: MESSAGE =>'250:doc type '||l_doc_type_code);
836: END IF;
837: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
833: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
834: MODULE =>g_module_prefix||l_api_name,
835: MESSAGE =>'250:doc type '||l_doc_type_code);
836: END IF;
837: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
838: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
839: MODULE =>g_module_prefix||l_api_name,
840: MESSAGE =>'255:before Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK. l_emp_id '||l_emp_id);
841: END IF;
834: MODULE =>g_module_prefix||l_api_name,
835: MESSAGE =>'250:doc type '||l_doc_type_code);
836: END IF;
837: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
838: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
839: MODULE =>g_module_prefix||l_api_name,
840: MESSAGE =>'255:before Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK. l_emp_id '||l_emp_id);
841: END IF;
842: END IF;
846: x_logged_emp_id => l_emp_id,
847: x_modify_action => l_modify_action
848: );
849: IF g_fnd_debug = 'Y' then
850: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
851: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
852: MODULE =>g_module_prefix||l_api_name,
853: MESSAGE =>'260:After Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK. modify action ');
854: END IF;
847: x_modify_action => l_modify_action
848: );
849: IF g_fnd_debug = 'Y' then
850: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
851: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
852: MODULE =>g_module_prefix||l_api_name,
853: MESSAGE =>'260:After Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK. modify action ');
854: END IF;
855: END IF;
855: END IF;
856: --This API suppresses the exception. So if something fails, we won't be able to catch it.
857: IF l_modify_action then
858: IF g_fnd_debug = 'Y' then
859: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
860: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
861: MODULE =>g_module_prefix||l_api_name,
862: MESSAGE =>'270:modify action true ');
863: END IF;
856: --This API suppresses the exception. So if something fails, we won't be able to catch it.
857: IF l_modify_action then
858: IF g_fnd_debug = 'Y' then
859: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
860: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
861: MODULE =>g_module_prefix||l_api_name,
862: MESSAGE =>'270:modify action true ');
863: END IF;
864: END IF;
865:
866: ELSE
867: x_update_allowed := 'N';
868: IF g_fnd_debug = 'Y' then
869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
870: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
871: MODULE =>g_module_prefix||l_api_name,
872: MESSAGE =>'290:modify action false ');
873: END IF;
866: ELSE
867: x_update_allowed := 'N';
868: IF g_fnd_debug = 'Y' then
869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
870: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
871: MODULE =>g_module_prefix||l_api_name,
872: MESSAGE =>'290:modify action false ');
873: END IF;
874: END IF;
876:
877: END IF;
878: END IF; -- po status INPROCESS
879: IF g_fnd_debug = 'Y' then
880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
881: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
882: MODULE =>g_module_prefix||l_api_name,
883: MESSAGE =>'292:before status check po id -update allowed '||p_header_id||x_update_allowed);
884: END IF;
877: END IF;
878: END IF; -- po status INPROCESS
879: IF g_fnd_debug = 'Y' then
880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
881: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
882: MODULE =>g_module_prefix||l_api_name,
883: MESSAGE =>'292:before status check po id -update allowed '||p_header_id||x_update_allowed);
884: END IF;
885: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
881: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
882: MODULE =>g_module_prefix||l_api_name,
883: MESSAGE =>'292:before status check po id -update allowed '||p_header_id||x_update_allowed);
884: END IF;
885: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
886: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
887: MODULE =>g_module_prefix||l_api_name,
888: MESSAGE =>'295:before status check lock '||p_lock_flag);
889: END IF;
882: MODULE =>g_module_prefix||l_api_name,
883: MESSAGE =>'292:before status check po id -update allowed '||p_header_id||x_update_allowed);
884: END IF;
885: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
886: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
887: MODULE =>g_module_prefix||l_api_name,
888: MESSAGE =>'295:before status check lock '||p_lock_flag);
889: END IF;
890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
886: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
887: MODULE =>g_module_prefix||l_api_name,
888: MESSAGE =>'295:before status check lock '||p_lock_flag);
889: END IF;
890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
891: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
892: MODULE =>g_module_prefix||l_api_name,
893: MESSAGE =>'297:before status check doc type '||l_document_type);
894: END IF;
887: MODULE =>g_module_prefix||l_api_name,
888: MESSAGE =>'295:before status check lock '||p_lock_flag);
889: END IF;
890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
891: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
892: MODULE =>g_module_prefix||l_api_name,
893: MESSAGE =>'297:before status check doc type '||l_document_type);
894: END IF;
895: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
891: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
892: MODULE =>g_module_prefix||l_api_name,
893: MESSAGE =>'297:before status check doc type '||l_document_type);
894: END IF;
895: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
896: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
897: MODULE =>g_module_prefix||l_api_name,
898: MESSAGE =>'299:Before Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK');
899: END IF;
892: MODULE =>g_module_prefix||l_api_name,
893: MESSAGE =>'297:before status check doc type '||l_document_type);
894: END IF;
895: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
896: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
897: MODULE =>g_module_prefix||l_api_name,
898: MESSAGE =>'299:Before Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK');
899: END IF;
900: END IF;
908: x_po_status_rec => l_po_status_rec,
909: x_return_status => x_return_status
910: );
911: IF g_fnd_debug = 'Y' then
912: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
913: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
914: MODULE =>g_module_prefix||l_api_name,
915: MESSAGE =>'295:After Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK. Return status '||x_return_status);
916: END IF;
909: x_return_status => x_return_status
910: );
911: IF g_fnd_debug = 'Y' then
912: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
913: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
914: MODULE =>g_module_prefix||l_api_name,
915: MESSAGE =>'295:After Call to PO_DOCUMENT_CHECKS_GRP.PO_STATUS_CHECK. Return status '||x_return_status);
916: END IF;
917: END IF;
940: ELSE -- status and revision same
941: RAISE l_Status_Changed;
942: END IF; -- if po_status and revision same
943: IF g_fnd_debug = 'Y' then
944: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
945: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
946: MODULE =>g_module_prefix||l_api_name,
947: MESSAGE =>'400:End '||l_api_name);
948: END IF;
941: RAISE l_Status_Changed;
942: END IF; -- if po_status and revision same
943: IF g_fnd_debug = 'Y' then
944: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
945: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
946: MODULE =>g_module_prefix||l_api_name,
947: MESSAGE =>'400:End '||l_api_name);
948: END IF;
949: END IF;
956: FND_MSG_PUB.Count_And_Get
957: (p_count => x_msg_count,
958: p_data => x_msg_data );
959: IF g_fnd_debug = 'Y' then
960: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
961: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
962: MODULE =>g_module_prefix||l_api_name,
963: MESSAGE =>'500:Exception l_status_changed ');
964: END IF;
957: (p_count => x_msg_count,
958: p_data => x_msg_data );
959: IF g_fnd_debug = 'Y' then
960: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
961: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
962: MODULE =>g_module_prefix||l_api_name,
963: MESSAGE =>'500:Exception l_status_changed ');
964: END IF;
965: END IF;
973: FND_MSG_PUB.Count_And_Get
974: (p_count => x_msg_count,
975: p_data => x_msg_data );
976: IF g_fnd_debug = 'Y' then
977: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
978: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
979: MODULE =>g_module_prefix||l_api_name,
980: MESSAGE =>'550:Exception l_donot_update ');
981: END IF;
974: (p_count => x_msg_count,
975: p_data => x_msg_data );
976: IF g_fnd_debug = 'Y' then
977: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
978: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
979: MODULE =>g_module_prefix||l_api_name,
980: MESSAGE =>'550:Exception l_donot_update ');
981: END IF;
982: END IF;
987: FND_MSG_PUB.Count_And_Get
988: (p_count => x_msg_count,
989: p_data => x_msg_data );
990: IF g_fnd_debug = 'Y' then
991: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
992: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
993: MODULE =>g_module_prefix||l_api_name,
994: MESSAGE =>'600:Exception Expected error ');
995: END IF;
988: (p_count => x_msg_count,
989: p_data => x_msg_data );
990: IF g_fnd_debug = 'Y' then
991: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
992: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
993: MODULE =>g_module_prefix||l_api_name,
994: MESSAGE =>'600:Exception Expected error ');
995: END IF;
996: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
993: MODULE =>g_module_prefix||l_api_name,
994: MESSAGE =>'600:Exception Expected error ');
995: END IF;
996: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
997: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
998: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
999: MODULE =>g_module_prefix||l_api_name,
1000: MESSAGE =>'600:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1001: END IF;
994: MESSAGE =>'600:Exception Expected error ');
995: END IF;
996: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
997: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
998: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
999: MODULE =>g_module_prefix||l_api_name,
1000: MESSAGE =>'600:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1001: END IF;
1002: END LOOP;
1008: FND_MSG_PUB.Count_And_Get
1009: (p_count => x_msg_count,
1010: p_data => x_msg_data );
1011: IF g_fnd_debug = 'Y' then
1012: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1013: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1014: MODULE =>g_module_prefix||l_api_name,
1015: MESSAGE =>'610:Exception UnExpected error ');
1016: END IF;
1009: (p_count => x_msg_count,
1010: p_data => x_msg_data );
1011: IF g_fnd_debug = 'Y' then
1012: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1013: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1014: MODULE =>g_module_prefix||l_api_name,
1015: MESSAGE =>'610:Exception UnExpected error ');
1016: END IF;
1017: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1014: MODULE =>g_module_prefix||l_api_name,
1015: MESSAGE =>'610:Exception UnExpected error ');
1016: END IF;
1017: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1018: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1019: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1020: MODULE =>g_module_prefix||l_api_name,
1021: MESSAGE =>'610:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1022: END IF;
1015: MESSAGE =>'610:Exception UnExpected error ');
1016: END IF;
1017: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1018: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1019: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1020: MODULE =>g_module_prefix||l_api_name,
1021: MESSAGE =>'610:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1022: END IF;
1023: END LOOP;
1038: FND_MSG_PUB.Count_And_Get
1039: (p_count => x_msg_count,
1040: p_data => x_msg_data );
1041: IF g_fnd_debug = 'Y' then
1042: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1043: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1044: MODULE =>g_module_prefix||l_api_name,
1045: MESSAGE =>'650:Exception UnExpected error '||sqlcode||':'||sqlerrm);
1046: END IF;
1039: (p_count => x_msg_count,
1040: p_data => x_msg_data );
1041: IF g_fnd_debug = 'Y' then
1042: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1043: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1044: MODULE =>g_module_prefix||l_api_name,
1045: MESSAGE =>'650:Exception UnExpected error '||sqlcode||':'||sqlerrm);
1046: END IF;
1047: End if;
1153: l_start NUMBER;
1154: l_end NUMBER;
1155: BEGIN
1156: IF g_fnd_debug = 'Y' then
1157: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1158: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1159: MODULE =>g_module_prefix||l_api_name,
1160: MESSAGE =>'10: Start' ||l_api_name);
1161: END IF;
1154: l_end NUMBER;
1155: BEGIN
1156: IF g_fnd_debug = 'Y' then
1157: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1158: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1159: MODULE =>g_module_prefix||l_api_name,
1160: MESSAGE =>'10: Start' ||l_api_name);
1161: END IF;
1162: End if;
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181: x_update_allowed := 'N';
1182:
1183: IF g_fnd_debug = 'Y' then
1184: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1185: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1186: MODULE =>g_module_prefix||l_api_name,
1187: MESSAGE =>'50: x_update_allowed' ||x_update_allowed);
1188: END IF;
1181: x_update_allowed := 'N';
1182:
1183: IF g_fnd_debug = 'Y' then
1184: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1185: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1186: MODULE =>g_module_prefix||l_api_name,
1187: MESSAGE =>'50: x_update_allowed' ||x_update_allowed);
1188: END IF;
1189: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1185: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1186: MODULE =>g_module_prefix||l_api_name,
1187: MESSAGE =>'50: x_update_allowed' ||x_update_allowed);
1188: END IF;
1189: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1190: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1191: MODULE =>g_module_prefix||l_api_name,
1192: MESSAGE =>'70: p_template_changed' ||p_template_changed);
1193: END IF;
1186: MODULE =>g_module_prefix||l_api_name,
1187: MESSAGE =>'50: x_update_allowed' ||x_update_allowed);
1188: END IF;
1189: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1190: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1191: MODULE =>g_module_prefix||l_api_name,
1192: MESSAGE =>'70: p_template_changed' ||p_template_changed);
1193: END IF;
1194: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1190: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1191: MODULE =>g_module_prefix||l_api_name,
1192: MESSAGE =>'70: p_template_changed' ||p_template_changed);
1193: END IF;
1194: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1195: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1196: MODULE =>g_module_prefix||l_api_name,
1197: MESSAGE =>'100: p_callout_string' ||p_callout_string);
1198: END IF;
1191: MODULE =>g_module_prefix||l_api_name,
1192: MESSAGE =>'70: p_template_changed' ||p_template_changed);
1193: END IF;
1194: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1195: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1196: MODULE =>g_module_prefix||l_api_name,
1197: MESSAGE =>'100: p_callout_string' ||p_callout_string);
1198: END IF;
1199: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1195: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1196: MODULE =>g_module_prefix||l_api_name,
1197: MESSAGE =>'100: p_callout_string' ||p_callout_string);
1198: END IF;
1199: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1200: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1201: MODULE =>g_module_prefix||l_api_name,
1202: MESSAGE =>'120: p_header_id' ||p_header_id);
1203: END IF;
1196: MODULE =>g_module_prefix||l_api_name,
1197: MESSAGE =>'100: p_callout_string' ||p_callout_string);
1198: END IF;
1199: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1200: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1201: MODULE =>g_module_prefix||l_api_name,
1202: MESSAGE =>'120: p_header_id' ||p_header_id);
1203: END IF;
1204:
1224: RAISE FND_API.G_EXC_ERROR;
1225:
1226: END IF;-- p_callout _string
1227: IF g_fnd_debug = 'Y' then
1228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1229: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1230: MODULE =>g_module_prefix||l_api_name,
1231: MESSAGE =>'150: po status should be Incomplete/rejected-'||l_callout_status);
1232: END IF;
1225:
1226: END IF;-- p_callout _string
1227: IF g_fnd_debug = 'Y' then
1228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1229: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1230: MODULE =>g_module_prefix||l_api_name,
1231: MESSAGE =>'150: po status should be Incomplete/rejected-'||l_callout_status);
1232: END IF;
1233: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1229: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1230: MODULE =>g_module_prefix||l_api_name,
1231: MESSAGE =>'150: po status should be Incomplete/rejected-'||l_callout_status);
1232: END IF;
1233: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1234: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1235: MODULE =>g_module_prefix||l_api_name,
1236: MESSAGE =>'155: po revision should be 0-'||l_callout_revision);
1237: END IF;
1230: MODULE =>g_module_prefix||l_api_name,
1231: MESSAGE =>'150: po status should be Incomplete/rejected-'||l_callout_status);
1232: END IF;
1233: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1234: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1235: MODULE =>g_module_prefix||l_api_name,
1236: MESSAGE =>'155: po revision should be 0-'||l_callout_revision);
1237: END IF;
1238: End if;
1281: x_msg_count => x_msg_count);
1282: ---Return status handling.
1283: --If any errors happen abort API.
1284: IF g_fnd_debug = 'Y' then
1285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1286: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1287: MODULE =>g_module_prefix||l_api_name,
1288: MESSAGE =>'200:update allowed after calling is_po_update_allowed'||x_update_allowed);
1289: END IF;
1282: ---Return status handling.
1283: --If any errors happen abort API.
1284: IF g_fnd_debug = 'Y' then
1285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1286: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1287: MODULE =>g_module_prefix||l_api_name,
1288: MESSAGE =>'200:update allowed after calling is_po_update_allowed'||x_update_allowed);
1289: END IF;
1290: End if;
1301: If (p_template_changed = 'Y') then -- set flag to Y if template is added
1302: L_date := Sysdate;
1303: L_conterms_exist_flag := 'Y';
1304: IF g_fnd_debug = 'Y' then
1305: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1306: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1307: MODULE =>g_module_prefix||l_api_name,
1308: MESSAGE =>'250:Procurement Contract. id'||p_header_id);
1309: END IF;
1302: L_date := Sysdate;
1303: L_conterms_exist_flag := 'Y';
1304: IF g_fnd_debug = 'Y' then
1305: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1306: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1307: MODULE =>g_module_prefix||l_api_name,
1308: MESSAGE =>'250:Procurement Contract. id'||p_header_id);
1309: END IF;
1310: End if;
1311: ELSE -- if template is being deleted set dates to null, flag to N;
1312: L_date := null;
1313: L_conterms_exist_flag := 'N';
1314: IF g_fnd_debug = 'Y' then
1315: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1316: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1317: MODULE =>g_module_prefix||l_api_name,
1318: MESSAGE =>'270:No More Procurement Contract. id'||p_header_id);
1319: END IF;
1312: L_date := null;
1313: L_conterms_exist_flag := 'N';
1314: IF g_fnd_debug = 'Y' then
1315: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1316: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1317: MODULE =>g_module_prefix||l_api_name,
1318: MESSAGE =>'270:No More Procurement Contract. id'||p_header_id);
1319: END IF;
1320: End if;
1332: Last_update_login = FND_GLOBAL.LOGIN_ID
1333: WHERE po_header_id= p_header_id;
1334:
1335: IF g_fnd_debug = 'Y' then
1336: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1337: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1338: MODULE =>g_module_prefix||l_api_name,
1339: MESSAGE =>'300:Po headers all updated for header id'||p_header_id);
1340: END IF;
1333: WHERE po_header_id= p_header_id;
1334:
1335: IF g_fnd_debug = 'Y' then
1336: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1337: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1338: MODULE =>g_module_prefix||l_api_name,
1339: MESSAGE =>'300:Po headers all updated for header id'||p_header_id);
1340: END IF;
1341: End if;
1353:
1354: -- Commit the transaction if p_commit set true
1355: IF FND_API.TO_BOOLEAN(p_commit) then
1356: IF g_fnd_debug = 'Y' then
1357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1358: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1359: MODULE =>g_module_prefix||l_api_name,
1360: MESSAGE =>'390: Commit set to true');
1361: END IF;
1354: -- Commit the transaction if p_commit set true
1355: IF FND_API.TO_BOOLEAN(p_commit) then
1356: IF g_fnd_debug = 'Y' then
1357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1358: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1359: MODULE =>g_module_prefix||l_api_name,
1360: MESSAGE =>'390: Commit set to true');
1361: END IF;
1362: End if;
1362: End if;
1363: COMMIT;
1364: END IF;
1365: IF g_fnd_debug = 'Y' then
1366: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1367: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1368: MODULE =>g_module_prefix||l_api_name,
1369: MESSAGE =>'400: End' ||l_api_name);
1370: END IF;
1363: COMMIT;
1364: END IF;
1365: IF g_fnd_debug = 'Y' then
1366: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1367: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1368: MODULE =>g_module_prefix||l_api_name,
1369: MESSAGE =>'400: End' ||l_api_name);
1370: END IF;
1371: End if;
1379: FND_MSG_PUB.Count_And_Get
1380: (p_count => x_msg_count,
1381: p_data => x_msg_data );
1382: IF g_fnd_debug = 'Y' then
1383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1384: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1385: MODULE =>g_module_prefix||l_api_name,
1386: MESSAGE =>'450:Exception l_update_not_allowed ');
1387: END IF;
1380: (p_count => x_msg_count,
1381: p_data => x_msg_data );
1382: IF g_fnd_debug = 'Y' then
1383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1384: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1385: MODULE =>g_module_prefix||l_api_name,
1386: MESSAGE =>'450:Exception l_update_not_allowed ');
1387: END IF;
1388: END IF;
1392: FND_MSG_PUB.Count_And_Get
1393: (p_count => x_msg_count,
1394: p_data => x_msg_data );
1395: IF g_fnd_debug = 'Y' then
1396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1397: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1398: MODULE =>g_module_prefix||l_api_name,
1399: MESSAGE =>'470: expected error ');
1400: END IF;
1393: (p_count => x_msg_count,
1394: p_data => x_msg_data );
1395: IF g_fnd_debug = 'Y' then
1396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1397: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1398: MODULE =>g_module_prefix||l_api_name,
1399: MESSAGE =>'470: expected error ');
1400: END IF;
1401: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1398: MODULE =>g_module_prefix||l_api_name,
1399: MESSAGE =>'470: expected error ');
1400: END IF;
1401: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1402: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1403: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1404: MODULE =>g_module_prefix||l_api_name,
1405: MESSAGE =>'470:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1406: END IF;
1399: MESSAGE =>'470: expected error ');
1400: END IF;
1401: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1402: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1403: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1404: MODULE =>g_module_prefix||l_api_name,
1405: MESSAGE =>'470:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1406: END IF;
1407: END LOOP;
1412: FND_MSG_PUB.Count_And_Get
1413: (p_count => x_msg_count,
1414: p_data => x_msg_data );
1415: IF g_fnd_debug = 'Y' then
1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1417: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1418: MODULE =>g_module_prefix||l_api_name,
1419: MESSAGE =>'480:Exception UnExpected error ');
1420: END IF;
1413: (p_count => x_msg_count,
1414: p_data => x_msg_data );
1415: IF g_fnd_debug = 'Y' then
1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1417: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1418: MODULE =>g_module_prefix||l_api_name,
1419: MESSAGE =>'480:Exception UnExpected error ');
1420: END IF;
1421: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1418: MODULE =>g_module_prefix||l_api_name,
1419: MESSAGE =>'480:Exception UnExpected error ');
1420: END IF;
1421: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1422: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1423: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1424: MODULE =>g_module_prefix||l_api_name,
1425: MESSAGE =>'480:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1426: END IF;
1419: MESSAGE =>'480:Exception UnExpected error ');
1420: END IF;
1421: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1422: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1423: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1424: MODULE =>g_module_prefix||l_api_name,
1425: MESSAGE =>'480:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1426: END IF;
1427: END LOOP;
1441: FND_MSG_PUB.Count_And_Get
1442: (p_count => x_msg_count,
1443: p_data => x_msg_data );
1444: IF g_fnd_debug = 'Y' then
1445: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1446: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1447: MODULE =>g_module_prefix||l_api_name,
1448: MESSAGE =>'500:Exception UnExpected error '||sqlcode||':'||sqlerrm);
1449: END IF;
1442: (p_count => x_msg_count,
1443: p_data => x_msg_data );
1444: IF g_fnd_debug = 'Y' then
1445: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1446: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1447: MODULE =>g_module_prefix||l_api_name,
1448: MESSAGE =>'500:Exception UnExpected error '||sqlcode||':'||sqlerrm);
1449: END IF;
1450: END IF;
1517: l_spo_amt NUMBER;
1518: l_archived_spo_amt NUMBER;
1519: BEGIN
1520: IF g_fnd_debug = 'Y' then
1521: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1522: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1523: MODULE =>g_module_prefix||l_api_name,
1524: MESSAGE =>'10: Start API' ||l_api_name);
1525: END IF;
1518: l_archived_spo_amt NUMBER;
1519: BEGIN
1520: IF g_fnd_debug = 'Y' then
1521: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1522: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1523: MODULE =>g_module_prefix||l_api_name,
1524: MESSAGE =>'10: Start API' ||l_api_name);
1525: END IF;
1526: END IF;
1626: AND poh.po_header_id = poha.po_header_id
1627: AND poha.latest_external_flag = 'Y';
1628:
1629: IF g_fnd_debug = 'Y' then
1630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1631: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1632: MODULE =>g_module_prefix||l_api_name,
1633: MESSAGE =>'120: selected columns with changed values');
1634: END IF;
1627: AND poha.latest_external_flag = 'Y';
1628:
1629: IF g_fnd_debug = 'Y' then
1630: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1631: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1632: MODULE =>g_module_prefix||l_api_name,
1633: MESSAGE =>'120: selected columns with changed values');
1634: END IF;
1635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1631: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1632: MODULE =>g_module_prefix||l_api_name,
1633: MESSAGE =>'120: selected columns with changed values');
1634: END IF;
1635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1636: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1637: MODULE =>g_module_prefix||l_api_name,
1638: MESSAGE =>'130: document type '||l_type_lookup_code);
1639: END IF;
1632: MODULE =>g_module_prefix||l_api_name,
1633: MESSAGE =>'120: selected columns with changed values');
1634: END IF;
1635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1636: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1637: MODULE =>g_module_prefix||l_api_name,
1638: MESSAGE =>'130: document type '||l_type_lookup_code);
1639: END IF;
1640:
1660: END IF; -- l_spo_amt <> l_archived_spo_amt
1661:
1662:
1663: IF g_fnd_debug = 'Y' then
1664: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1665: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1666: MODULE =>g_module_prefix||l_api_name,
1667: MESSAGE =>'150: Got header amount differnce');
1668: END IF;
1661:
1662:
1663: IF g_fnd_debug = 'Y' then
1664: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1665: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1666: MODULE =>g_module_prefix||l_api_name,
1667: MESSAGE =>'150: Got header amount differnce');
1668: END IF;
1669: END IF;
1668: END IF;
1669: END IF;
1670: END IF;-- type_lookup_code='STANDARD'
1671: IF g_fnd_debug = 'Y' then
1672: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1673: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1674: MODULE =>g_module_prefix||l_api_name,
1675: MESSAGE =>'160: First p_sys_var'||p_sys_var_tbl.FIRST);
1676: END IF;
1669: END IF;
1670: END IF;-- type_lookup_code='STANDARD'
1671: IF g_fnd_debug = 'Y' then
1672: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1673: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1674: MODULE =>g_module_prefix||l_api_name,
1675: MESSAGE =>'160: First p_sys_var'||p_sys_var_tbl.FIRST);
1676: END IF;
1677: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1673: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1674: MODULE =>g_module_prefix||l_api_name,
1675: MESSAGE =>'160: First p_sys_var'||p_sys_var_tbl.FIRST);
1676: END IF;
1677: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1678: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1679: MODULE =>g_module_prefix||l_api_name,
1680: MESSAGE =>'165: Last p_sys_var'||p_sys_var_tbl.LAST);
1681: END IF;
1674: MODULE =>g_module_prefix||l_api_name,
1675: MESSAGE =>'160: First p_sys_var'||p_sys_var_tbl.FIRST);
1676: END IF;
1677: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1678: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1679: MODULE =>g_module_prefix||l_api_name,
1680: MESSAGE =>'165: Last p_sys_var'||p_sys_var_tbl.LAST);
1681: END IF;
1682: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1678: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1679: MODULE =>g_module_prefix||l_api_name,
1680: MESSAGE =>'165: Last p_sys_var'||p_sys_var_tbl.LAST);
1681: END IF;
1682: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1683: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1684: MODULE =>g_module_prefix||l_api_name,
1685: MESSAGE =>'170: first l_po_var'||p_sys_var_tbl.FIRST);
1686: END IF;
1679: MODULE =>g_module_prefix||l_api_name,
1680: MESSAGE =>'165: Last p_sys_var'||p_sys_var_tbl.LAST);
1681: END IF;
1682: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1683: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1684: MODULE =>g_module_prefix||l_api_name,
1685: MESSAGE =>'170: first l_po_var'||p_sys_var_tbl.FIRST);
1686: END IF;
1687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1683: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1684: MODULE =>g_module_prefix||l_api_name,
1685: MESSAGE =>'170: first l_po_var'||p_sys_var_tbl.FIRST);
1686: END IF;
1687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1688: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1689: MODULE =>g_module_prefix||l_api_name,
1690: MESSAGE =>'175: last l_po_var'||p_sys_var_tbl.LAST);
1691: END IF;
1684: MODULE =>g_module_prefix||l_api_name,
1685: MESSAGE =>'170: first l_po_var'||p_sys_var_tbl.FIRST);
1686: END IF;
1687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1688: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1689: MODULE =>g_module_prefix||l_api_name,
1690: MESSAGE =>'175: last l_po_var'||p_sys_var_tbl.LAST);
1691: END IF;
1692: END IF;
1694: l_sys_var_index := p_sys_var_tbl.FIRST;
1695: While l_sys_var_index <= p_sys_var_tbl.last
1696: LOOP
1697: IF g_fnd_debug = 'Y' then
1698: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1699: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1700: MODULE =>g_module_prefix||l_api_name,
1701: MESSAGE =>'180: current p_sys_var index'||l_sys_var_index);
1702: END IF;
1695: While l_sys_var_index <= p_sys_var_tbl.last
1696: LOOP
1697: IF g_fnd_debug = 'Y' then
1698: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1699: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1700: MODULE =>g_module_prefix||l_api_name,
1701: MESSAGE =>'180: current p_sys_var index'||l_sys_var_index);
1702: END IF;
1703: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1699: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1700: MODULE =>g_module_prefix||l_api_name,
1701: MESSAGE =>'180: current p_sys_var index'||l_sys_var_index);
1702: END IF;
1703: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1704: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1705: MODULE =>g_module_prefix||l_api_name,
1706: MESSAGE =>'185: current p_sys_var value'||p_sys_var_tbl(l_sys_var_index));
1707: END IF;
1700: MODULE =>g_module_prefix||l_api_name,
1701: MESSAGE =>'180: current p_sys_var index'||l_sys_var_index);
1702: END IF;
1703: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1704: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1705: MODULE =>g_module_prefix||l_api_name,
1706: MESSAGE =>'185: current p_sys_var value'||p_sys_var_tbl(l_sys_var_index));
1707: END IF;
1708: END IF;
1710: l_po_attribute_index := l_po_attrib_tbl.FIRST;
1711: While l_po_attribute_index <= l_po_attrib_tbl.LAST
1712: LOOP
1713: IF g_fnd_debug = 'Y' then
1714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1715: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1716: MODULE =>g_module_prefix||l_api_name,
1717: MESSAGE =>'190: current l_po_var index'||l_po_attribute_index);
1718: END IF;
1711: While l_po_attribute_index <= l_po_attrib_tbl.LAST
1712: LOOP
1713: IF g_fnd_debug = 'Y' then
1714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1715: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1716: MODULE =>g_module_prefix||l_api_name,
1717: MESSAGE =>'190: current l_po_var index'||l_po_attribute_index);
1718: END IF;
1719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1715: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1716: MODULE =>g_module_prefix||l_api_name,
1717: MESSAGE =>'190: current l_po_var index'||l_po_attribute_index);
1718: END IF;
1719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1720: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1721: MODULE =>g_module_prefix||l_api_name,
1722: MESSAGE =>'200: current l_po_var value'||l_po_attrib_tbl(l_po_attribute_index));
1723: END IF;
1716: MODULE =>g_module_prefix||l_api_name,
1717: MESSAGE =>'190: current l_po_var index'||l_po_attribute_index);
1718: END IF;
1719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1720: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1721: MODULE =>g_module_prefix||l_api_name,
1722: MESSAGE =>'200: current l_po_var value'||l_po_attrib_tbl(l_po_attribute_index));
1723: END IF;
1724:
1724:
1725: END IF;
1726: IF l_po_attrib_tbl(l_po_attribute_index)= 'N' then
1727: IF g_fnd_debug = 'Y' then
1728: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1729: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1730: MODULE =>g_module_prefix||l_api_name,
1731: MESSAGE =>'210: Delete l_po_var'||l_po_attrib_tbl(l_po_attribute_index));
1732: END IF;
1725: END IF;
1726: IF l_po_attrib_tbl(l_po_attribute_index)= 'N' then
1727: IF g_fnd_debug = 'Y' then
1728: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1729: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1730: MODULE =>g_module_prefix||l_api_name,
1731: MESSAGE =>'210: Delete l_po_var'||l_po_attrib_tbl(l_po_attribute_index));
1732: END IF;
1733: END IF;
1732: END IF;
1733: END IF;
1734: l_po_attrib_tbl.DELETE(l_po_attribute_index);
1735: IF g_fnd_debug = 'Y' then
1736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1737: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1738: MODULE =>g_module_prefix||l_api_name,
1739: MESSAGE =>'215: Deleted');
1740: END IF;
1733: END IF;
1734: l_po_attrib_tbl.DELETE(l_po_attribute_index);
1735: IF g_fnd_debug = 'Y' then
1736: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1737: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1738: MODULE =>g_module_prefix||l_api_name,
1739: MESSAGE =>'215: Deleted');
1740: END IF;
1741: END IF;
1747: l_po_attribute_index := l_po_attrib_tbl.next(l_po_attribute_index);
1748: END LOOP;-- l_po_attribute_index inner loop
1749: If NOT l_found then
1750: IF g_fnd_debug = 'Y' then
1751: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1752: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1753: MODULE =>g_module_prefix||l_api_name,
1754: MESSAGE =>'220: Delete p_sys_var'||p_sys_var_tbl(l_sys_var_index));
1755: END IF;
1748: END LOOP;-- l_po_attribute_index inner loop
1749: If NOT l_found then
1750: IF g_fnd_debug = 'Y' then
1751: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1752: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1753: MODULE =>g_module_prefix||l_api_name,
1754: MESSAGE =>'220: Delete p_sys_var'||p_sys_var_tbl(l_sys_var_index));
1755: END IF;
1756: END IF;
1755: END IF;
1756: END IF;
1757: p_sys_var_tbl.delete(l_sys_var_index);
1758: IF g_fnd_debug = 'Y' then
1759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1760: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1761: MODULE =>g_module_prefix||l_api_name,
1762: MESSAGE =>'225: Deleted');
1763: END IF;
1756: END IF;
1757: p_sys_var_tbl.delete(l_sys_var_index);
1758: IF g_fnd_debug = 'Y' then
1759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1760: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1761: MODULE =>g_module_prefix||l_api_name,
1762: MESSAGE =>'225: Deleted');
1763: END IF;
1764: END IF;
1766: l_sys_var_index := p_sys_var_tbl.next(l_sys_var_index);
1767:
1768: END LOOP;-- l_sys_var_index outer loop
1769: IF g_fnd_debug = 'Y' then
1770: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1771: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1772: MODULE =>g_module_prefix||l_api_name,
1773: MESSAGE =>'230: Filtering ended. element in p_sys_var'||p_sys_var_tbl.count);
1774: END IF;
1767:
1768: END LOOP;-- l_sys_var_index outer loop
1769: IF g_fnd_debug = 'Y' then
1770: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1771: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1772: MODULE =>g_module_prefix||l_api_name,
1773: MESSAGE =>'230: Filtering ended. element in p_sys_var'||p_sys_var_tbl.count);
1774: END IF;
1775:
1775:
1776: l_sys_var_index := p_sys_var_tbl.FIRST;
1777: While l_sys_var_index <= p_sys_var_tbl.last
1778: LOOP
1779: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1780: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1781: MODULE =>g_module_prefix||l_api_name,
1782: MESSAGE =>'240: current index' ||l_sys_var_index);
1783: END IF;
1776: l_sys_var_index := p_sys_var_tbl.FIRST;
1777: While l_sys_var_index <= p_sys_var_tbl.last
1778: LOOP
1779: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1780: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1781: MODULE =>g_module_prefix||l_api_name,
1782: MESSAGE =>'240: current index' ||l_sys_var_index);
1783: END IF;
1784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1780: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1781: MODULE =>g_module_prefix||l_api_name,
1782: MESSAGE =>'240: current index' ||l_sys_var_index);
1783: END IF;
1784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1785: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1786: MODULE =>g_module_prefix||l_api_name,
1787: MESSAGE =>'250: column being sent'||p_sys_var_tbl(l_sys_var_index));
1788: END IF;
1781: MODULE =>g_module_prefix||l_api_name,
1782: MESSAGE =>'240: current index' ||l_sys_var_index);
1783: END IF;
1784: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1785: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1786: MODULE =>g_module_prefix||l_api_name,
1787: MESSAGE =>'250: column being sent'||p_sys_var_tbl(l_sys_var_index));
1788: END IF;
1789:
1788: END IF;
1789:
1790: l_sys_var_index := p_sys_var_tbl.next(l_sys_var_index);
1791: END LOOP;
1792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1793: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1794: MODULE =>g_module_prefix||l_api_name,
1795: MESSAGE =>'500: End API ' ||l_api_name);
1796: END IF;
1789:
1790: l_sys_var_index := p_sys_var_tbl.next(l_sys_var_index);
1791: END LOOP;
1792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1793: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1794: MODULE =>g_module_prefix||l_api_name,
1795: MESSAGE =>'500: End API ' ||l_api_name);
1796: END IF;
1797: END IF; -- if fnd debug
1802: FND_MSG_PUB.Count_And_Get
1803: (p_count => x_msg_count,
1804: p_data => x_msg_data );
1805: IF g_fnd_debug = 'Y' then
1806: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1807: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1808: MODULE =>g_module_prefix||l_api_name,
1809: MESSAGE =>'600:Exception Expected error ');
1810: END IF;
1803: (p_count => x_msg_count,
1804: p_data => x_msg_data );
1805: IF g_fnd_debug = 'Y' then
1806: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1807: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1808: MODULE =>g_module_prefix||l_api_name,
1809: MESSAGE =>'600:Exception Expected error ');
1810: END IF;
1811: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1808: MODULE =>g_module_prefix||l_api_name,
1809: MESSAGE =>'600:Exception Expected error ');
1810: END IF;
1811: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1813: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1814: MODULE =>g_module_prefix||l_api_name,
1815: MESSAGE =>'600:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1816: END IF;
1809: MESSAGE =>'600:Exception Expected error ');
1810: END IF;
1811: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1812: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1813: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1814: MODULE =>g_module_prefix||l_api_name,
1815: MESSAGE =>'600:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1816: END IF;
1817: END LOOP;
1822: FND_MSG_PUB.Count_And_Get
1823: (p_count => x_msg_count,
1824: p_data => x_msg_data );
1825: IF g_fnd_debug = 'Y' then
1826: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1827: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1828: MODULE =>g_module_prefix||l_api_name,
1829: MESSAGE =>'610:Exception UnExpected error ');
1830: END IF;
1823: (p_count => x_msg_count,
1824: p_data => x_msg_data );
1825: IF g_fnd_debug = 'Y' then
1826: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1827: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1828: MODULE =>g_module_prefix||l_api_name,
1829: MESSAGE =>'610:Exception UnExpected error ');
1830: END IF;
1831: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1828: MODULE =>g_module_prefix||l_api_name,
1829: MESSAGE =>'610:Exception UnExpected error ');
1830: END IF;
1831: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1833: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1834: MODULE =>g_module_prefix||l_api_name,
1835: MESSAGE =>'610:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1836: END IF;
1829: MESSAGE =>'610:Exception UnExpected error ');
1830: END IF;
1831: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1832: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1833: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1834: MODULE =>g_module_prefix||l_api_name,
1835: MESSAGE =>'610:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1836: END IF;
1837: END LOOP;
1850: FND_MSG_PUB.Count_And_Get
1851: (p_count => x_msg_count,
1852: p_data => x_msg_data );
1853: IF g_fnd_debug = 'Y' then
1854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1855: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1856: MODULE =>g_module_prefix||l_api_name,
1857: MESSAGE =>'700:Exception UnExpected error '||sqlcode||':'||sqlerrm);
1858: END IF;
1851: (p_count => x_msg_count,
1852: p_data => x_msg_data );
1853: IF g_fnd_debug = 'Y' then
1854: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1855: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1856: MODULE =>g_module_prefix||l_api_name,
1857: MESSAGE =>'700:Exception UnExpected error '||sqlcode||':'||sqlerrm);
1858: END IF;
1859: END IF;
1951: --its actual value is returned and not dummy
1952: l_dummy_value VARCHAR2(10) := 'NOT_NULL';
1953: BEGIN
1954: IF g_fnd_debug = 'Y' then
1955: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1956: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1957: MODULE =>g_module_prefix||l_api_name,
1958: MESSAGE =>'10: Start API' ||l_api_name);
1959: END IF;
1952: l_dummy_value VARCHAR2(10) := 'NOT_NULL';
1953: BEGIN
1954: IF g_fnd_debug = 'Y' then
1955: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1956: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1957: MODULE =>g_module_prefix||l_api_name,
1958: MESSAGE =>'10: Start API' ||l_api_name);
1959: END IF;
1960: END IF;
2348: END IF;
2349: --Bug#3809298.End of bug.
2350:
2351: IF g_fnd_debug = 'Y' then
2352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2353: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2354: MODULE =>g_module_prefix||l_api_name,
2355: MESSAGE =>'50: First p_sys_var'||p_sys_var_value_tbl.FIRST);
2356: END IF;
2349: --Bug#3809298.End of bug.
2350:
2351: IF g_fnd_debug = 'Y' then
2352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2353: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2354: MODULE =>g_module_prefix||l_api_name,
2355: MESSAGE =>'50: First p_sys_var'||p_sys_var_value_tbl.FIRST);
2356: END IF;
2357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2353: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2354: MODULE =>g_module_prefix||l_api_name,
2355: MESSAGE =>'50: First p_sys_var'||p_sys_var_value_tbl.FIRST);
2356: END IF;
2357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2358: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2359: MODULE =>g_module_prefix||l_api_name,
2360: MESSAGE =>'60: Last p_sys_var'||p_sys_var_value_tbl.LAST);
2361: END IF;
2354: MODULE =>g_module_prefix||l_api_name,
2355: MESSAGE =>'50: First p_sys_var'||p_sys_var_value_tbl.FIRST);
2356: END IF;
2357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2358: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2359: MODULE =>g_module_prefix||l_api_name,
2360: MESSAGE =>'60: Last p_sys_var'||p_sys_var_value_tbl.LAST);
2361: END IF;
2362: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2358: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2359: MODULE =>g_module_prefix||l_api_name,
2360: MESSAGE =>'60: Last p_sys_var'||p_sys_var_value_tbl.LAST);
2361: END IF;
2362: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2363: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2364: MODULE =>g_module_prefix||l_api_name,
2365: MESSAGE =>'70: first l_po_var'||p_sys_var_value_tbl.FIRST);
2366: END IF;
2359: MODULE =>g_module_prefix||l_api_name,
2360: MESSAGE =>'60: Last p_sys_var'||p_sys_var_value_tbl.LAST);
2361: END IF;
2362: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2363: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2364: MODULE =>g_module_prefix||l_api_name,
2365: MESSAGE =>'70: first l_po_var'||p_sys_var_value_tbl.FIRST);
2366: END IF;
2367: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2363: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2364: MODULE =>g_module_prefix||l_api_name,
2365: MESSAGE =>'70: first l_po_var'||p_sys_var_value_tbl.FIRST);
2366: END IF;
2367: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2368: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2369: MODULE =>g_module_prefix||l_api_name,
2370: MESSAGE =>'80: last l_po_var'||p_sys_var_value_tbl.LAST);
2371: END IF;
2364: MODULE =>g_module_prefix||l_api_name,
2365: MESSAGE =>'70: first l_po_var'||p_sys_var_value_tbl.FIRST);
2366: END IF;
2367: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2368: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2369: MODULE =>g_module_prefix||l_api_name,
2370: MESSAGE =>'80: last l_po_var'||p_sys_var_value_tbl.LAST);
2371: END IF;
2372: END IF;
2374: l_sys_var_index := p_sys_var_value_tbl.FIRST;
2375: While l_sys_var_index <= p_sys_var_value_tbl.last
2376: LOOP
2377: IF g_fnd_debug = 'Y' then
2378: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2379: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2380: MODULE =>g_module_prefix||l_api_name,
2381: MESSAGE =>'100: current p_sys_var index'||l_sys_var_index);
2382: END IF;
2375: While l_sys_var_index <= p_sys_var_value_tbl.last
2376: LOOP
2377: IF g_fnd_debug = 'Y' then
2378: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2379: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2380: MODULE =>g_module_prefix||l_api_name,
2381: MESSAGE =>'100: current p_sys_var index'||l_sys_var_index);
2382: END IF;
2383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2379: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2380: MODULE =>g_module_prefix||l_api_name,
2381: MESSAGE =>'100: current p_sys_var index'||l_sys_var_index);
2382: END IF;
2383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2384: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2385: MODULE =>g_module_prefix||l_api_name,
2386: MESSAGE =>'110: current p_sys_var value code'
2387: ||p_sys_var_value_tbl(l_sys_var_index).variable_code);
2380: MODULE =>g_module_prefix||l_api_name,
2381: MESSAGE =>'100: current p_sys_var index'||l_sys_var_index);
2382: END IF;
2383: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2384: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2385: MODULE =>g_module_prefix||l_api_name,
2386: MESSAGE =>'110: current p_sys_var value code'
2387: ||p_sys_var_value_tbl(l_sys_var_index).variable_code);
2388: END IF;
2391: l_po_attribute_index := l_po_attrib_tbl.FIRST;
2392: While l_po_attribute_index <= l_po_attrib_tbl.LAST
2393: LOOP
2394: IF g_fnd_debug = 'Y' then
2395: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2396: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2397: MODULE =>g_module_prefix||l_api_name,
2398: MESSAGE =>'160: current l_po_var index'||l_po_attribute_index);
2399: END IF;
2392: While l_po_attribute_index <= l_po_attrib_tbl.LAST
2393: LOOP
2394: IF g_fnd_debug = 'Y' then
2395: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2396: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2397: MODULE =>g_module_prefix||l_api_name,
2398: MESSAGE =>'160: current l_po_var index'||l_po_attribute_index);
2399: END IF;
2400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2396: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2397: MODULE =>g_module_prefix||l_api_name,
2398: MESSAGE =>'160: current l_po_var index'||l_po_attribute_index);
2399: END IF;
2400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2401: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2402: MODULE =>g_module_prefix||l_api_name,
2403: MESSAGE =>'165: next l_po_var value'||l_po_attrib_tbl.next(l_po_attribute_index));
2404: END IF;
2397: MODULE =>g_module_prefix||l_api_name,
2398: MESSAGE =>'160: current l_po_var index'||l_po_attribute_index);
2399: END IF;
2400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2401: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2402: MODULE =>g_module_prefix||l_api_name,
2403: MESSAGE =>'165: next l_po_var value'||l_po_attrib_tbl.next(l_po_attribute_index));
2404: END IF;
2405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2401: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2402: MODULE =>g_module_prefix||l_api_name,
2403: MESSAGE =>'165: next l_po_var value'||l_po_attrib_tbl.next(l_po_attribute_index));
2404: END IF;
2405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2406: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2407: MODULE =>g_module_prefix||l_api_name,
2408: MESSAGE =>'165: current l_po_var value'||l_po_attrib_tbl(l_po_attribute_index).variable_code);
2409: END IF;
2402: MODULE =>g_module_prefix||l_api_name,
2403: MESSAGE =>'165: next l_po_var value'||l_po_attrib_tbl.next(l_po_attribute_index));
2404: END IF;
2405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2406: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2407: MODULE =>g_module_prefix||l_api_name,
2408: MESSAGE =>'165: current l_po_var value'||l_po_attrib_tbl(l_po_attribute_index).variable_code);
2409: END IF;
2410: END IF;
2411:
2412: If l_po_attrib_tbl(l_po_attribute_index).variable_code =
2413: p_sys_var_value_tbl(l_sys_var_index).variable_code then
2414: IF g_fnd_debug = 'Y' then
2415: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2416: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2417: MODULE =>g_module_prefix||l_api_name,
2418: MESSAGE =>'180: value found for'||l_po_attrib_tbl(l_po_attribute_index).variable_code);
2419: END IF;
2412: If l_po_attrib_tbl(l_po_attribute_index).variable_code =
2413: p_sys_var_value_tbl(l_sys_var_index).variable_code then
2414: IF g_fnd_debug = 'Y' then
2415: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2416: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2417: MODULE =>g_module_prefix||l_api_name,
2418: MESSAGE =>'180: value found for'||l_po_attrib_tbl(l_po_attribute_index).variable_code);
2419: END IF;
2420: END IF;
2427: END LOOP;-- l_po_attribute_index inner loop
2428: If NOT l_found then
2429:
2430: IF g_fnd_debug = 'Y' then
2431: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2432: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2433: MODULE =>g_module_prefix||l_api_name,
2434: MESSAGE =>'190: Po does not have the variable code'||
2435: p_sys_var_value_tbl(l_sys_var_index).variable_code);
2428: If NOT l_found then
2429:
2430: IF g_fnd_debug = 'Y' then
2431: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2432: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2433: MODULE =>g_module_prefix||l_api_name,
2434: MESSAGE =>'190: Po does not have the variable code'||
2435: p_sys_var_value_tbl(l_sys_var_index).variable_code);
2436: END IF;
2442: l_sys_var_index := p_sys_var_value_tbl.next(l_sys_var_index);
2443:
2444: END LOOP;-- l_sys_var_index outer loop
2445: IF g_fnd_debug = 'Y' then
2446: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2447: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2448: MODULE =>g_module_prefix||l_api_name,
2449: MESSAGE =>'220: Filtering ended. element in p_sys_var_value'||p_sys_var_value_tbl.count);
2450: END IF;
2443:
2444: END LOOP;-- l_sys_var_index outer loop
2445: IF g_fnd_debug = 'Y' then
2446: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2447: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2448: MODULE =>g_module_prefix||l_api_name,
2449: MESSAGE =>'220: Filtering ended. element in p_sys_var_value'||p_sys_var_value_tbl.count);
2450: END IF;
2451:
2451:
2452: l_sys_var_index := p_sys_var_Value_tbl.FIRST;
2453: While l_sys_var_index <= p_sys_var_value_tbl.last
2454: LOOP
2455: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2456: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2457: MODULE =>g_module_prefix||l_api_name,
2458: MESSAGE =>'240: current index' ||l_sys_var_index);
2459: END IF;
2452: l_sys_var_index := p_sys_var_Value_tbl.FIRST;
2453: While l_sys_var_index <= p_sys_var_value_tbl.last
2454: LOOP
2455: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2456: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2457: MODULE =>g_module_prefix||l_api_name,
2458: MESSAGE =>'240: current index' ||l_sys_var_index);
2459: END IF;
2460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2456: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2457: MODULE =>g_module_prefix||l_api_name,
2458: MESSAGE =>'240: current index' ||l_sys_var_index);
2459: END IF;
2460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2461: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2462: MODULE =>g_module_prefix||l_api_name,
2463: MESSAGE =>'250: column being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_code);
2464: END IF;
2457: MODULE =>g_module_prefix||l_api_name,
2458: MESSAGE =>'240: current index' ||l_sys_var_index);
2459: END IF;
2460: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2461: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2462: MODULE =>g_module_prefix||l_api_name,
2463: MESSAGE =>'250: column being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_code);
2464: END IF;
2465: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2461: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2462: MODULE =>g_module_prefix||l_api_name,
2463: MESSAGE =>'250: column being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_code);
2464: END IF;
2465: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2466: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2467: MODULE =>g_module_prefix||l_api_name,
2468: MESSAGE =>'270: value being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_value_id);
2469: END IF;
2462: MODULE =>g_module_prefix||l_api_name,
2463: MESSAGE =>'250: column being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_code);
2464: END IF;
2465: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2466: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2467: MODULE =>g_module_prefix||l_api_name,
2468: MESSAGE =>'270: value being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_value_id);
2469: END IF;
2470: l_sys_var_index := p_sys_var_value_tbl.next(l_sys_var_index);
2468: MESSAGE =>'270: value being sent'||p_sys_var_value_tbl(l_sys_var_index).variable_value_id);
2469: END IF;
2470: l_sys_var_index := p_sys_var_value_tbl.next(l_sys_var_index);
2471: end loop;
2472: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2473: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2474: MODULE =>g_module_prefix||l_api_name,
2475: MESSAGE =>'300: End API ' ||l_api_name);
2476: END IF;
2469: END IF;
2470: l_sys_var_index := p_sys_var_value_tbl.next(l_sys_var_index);
2471: end loop;
2472: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2473: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
2474: MODULE =>g_module_prefix||l_api_name,
2475: MESSAGE =>'300: End API ' ||l_api_name);
2476: END IF;
2477: END IF;-- if fnd debug
2482: FND_MSG_PUB.Count_And_Get
2483: (p_count => x_msg_count,
2484: p_data => x_msg_data );
2485: IF g_fnd_debug = 'Y' then
2486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2487: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2488: MODULE =>g_module_prefix||l_api_name,
2489: MESSAGE =>'400:Exception Expected error ');
2490: END IF;
2483: (p_count => x_msg_count,
2484: p_data => x_msg_data );
2485: IF g_fnd_debug = 'Y' then
2486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2487: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2488: MODULE =>g_module_prefix||l_api_name,
2489: MESSAGE =>'400:Exception Expected error ');
2490: END IF;
2491: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
2488: MODULE =>g_module_prefix||l_api_name,
2489: MESSAGE =>'400:Exception Expected error ');
2490: END IF;
2491: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
2492: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2493: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2494: MODULE =>g_module_prefix||l_api_name,
2495: MESSAGE =>'610:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
2496: END IF;
2489: MESSAGE =>'400:Exception Expected error ');
2490: END IF;
2491: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
2492: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2493: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2494: MODULE =>g_module_prefix||l_api_name,
2495: MESSAGE =>'610:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
2496: END IF;
2497: END LOOP;
2501: FND_MSG_PUB.Count_And_Get
2502: (p_count => x_msg_count,
2503: p_data => x_msg_data );
2504: IF g_fnd_debug = 'Y' then
2505: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2506: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2507: MODULE =>g_module_prefix||l_api_name,
2508: MESSAGE =>'410:Exception Expected error ');
2509: END IF;
2502: (p_count => x_msg_count,
2503: p_data => x_msg_data );
2504: IF g_fnd_debug = 'Y' then
2505: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2506: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2507: MODULE =>g_module_prefix||l_api_name,
2508: MESSAGE =>'410:Exception Expected error ');
2509: END IF;
2510: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
2507: MODULE =>g_module_prefix||l_api_name,
2508: MESSAGE =>'410:Exception Expected error ');
2509: END IF;
2510: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
2511: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2512: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2513: MODULE =>g_module_prefix||l_api_name,
2514: MESSAGE =>'410:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
2515: END IF;
2508: MESSAGE =>'410:Exception Expected error ');
2509: END IF;
2510: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
2511: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2512: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2513: MODULE =>g_module_prefix||l_api_name,
2514: MESSAGE =>'410:errors '||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
2515: END IF;
2516: END LOOP;
2529: FND_MSG_PUB.Count_And_Get
2530: (p_count => x_msg_count,
2531: p_data => x_msg_data );
2532: IF g_fnd_debug = 'Y' then
2533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2534: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2535: MODULE =>g_module_prefix||l_api_name,
2536: MESSAGE =>'500:Exception UnExpected error '||sqlcode||':'||sqlerrm);
2537: END IF;
2530: (p_count => x_msg_count,
2531: p_data => x_msg_data );
2532: IF g_fnd_debug = 'Y' then
2533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2534: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
2535: MODULE =>g_module_prefix||l_api_name,
2536: MESSAGE =>'500:Exception UnExpected error '||sqlcode||':'||sqlerrm);
2537: END IF;
2538: END IF;
2668: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2670: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2671: IF (g_fnd_debug='Y') THEN
2672: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2673: FND_LOG.string(log_level => FND_LOG.level_unexpected
2674: ,module => g_module_prefix ||l_api_name
2675: ,message => SQLERRM);
2676: END IF;
2669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2670: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2671: IF (g_fnd_debug='Y') THEN
2672: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2673: FND_LOG.string(log_level => FND_LOG.level_unexpected
2674: ,module => g_module_prefix ||l_api_name
2675: ,message => SQLERRM);
2676: END IF;
2677: END IF;
2756: g_auto_apply_template = 'N' THEN
2757:
2758: l_progress := 30;
2759: IF g_debug_stmt THEN
2760: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2761: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2762: || l_progress,'Auto Apply Template is off or contracts in not enabled');
2763: END IF;
2764: END IF;
2757:
2758: l_progress := 30;
2759: IF g_debug_stmt THEN
2760: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2761: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2762: || l_progress,'Auto Apply Template is off or contracts in not enabled');
2763: END IF;
2764: END IF;
2765:
2767: END IF;
2768:
2769: l_progress := 35;
2770: IF g_debug_stmt THEN
2771: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2772: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2773: || l_progress,'Derive parameters for OKC calls');
2774: END IF;
2775: END IF;
2768:
2769: l_progress := 35;
2770: IF g_debug_stmt THEN
2771: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2772: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2773: || l_progress,'Derive parameters for OKC calls');
2774: END IF;
2775: END IF;
2776:
2810: nvl(l_conterms_flag,'N') = 'Y' THEN
2811:
2812: l_progress := 40;
2813: IF g_debug_stmt THEN
2814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2816: || l_progress,'not the compatible doc type');
2817: END IF;
2818: END IF;
2811:
2812: l_progress := 40;
2813: IF g_debug_stmt THEN
2814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2816: || l_progress,'not the compatible doc type');
2817: END IF;
2818: END IF;
2819:
2832: IF p_template_id is null THEN
2833:
2834: l_progress := 50;
2835: IF g_debug_stmt THEN
2836: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2837: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2838: || l_progress,'Call OKC API to get default template');
2839: END IF;
2840: END IF;
2833:
2834: l_progress := 50;
2835: IF g_debug_stmt THEN
2836: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2837: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2838: || l_progress,'Call OKC API to get default template');
2839: END IF;
2840: END IF;
2841:
2852: x_template_name => l_template_name,
2853: x_template_description => l_template_desc);
2854:
2855: IF g_debug_stmt THEN
2856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2858: || l_progress,'Return status from get default template:'||x_return_status );
2859: END IF;
2860: END IF;
2853: x_template_description => l_template_desc);
2854:
2855: IF g_debug_stmt THEN
2856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2858: || l_progress,'Return status from get default template:'||x_return_status );
2859: END IF;
2860: END IF;
2861:
2865:
2866: ELSE
2867: l_progress := 60;
2868: IF g_debug_stmt THEN
2869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2870: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2871: || l_progress,'Default template passed in from the client side');
2872: END IF;
2873: END IF;
2866: ELSE
2867: l_progress := 60;
2868: IF g_debug_stmt THEN
2869: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2870: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2871: || l_progress,'Default template passed in from the client side');
2872: END IF;
2873: END IF;
2874:
2878: IF l_template_id is not null THEN
2879:
2880: l_progress := 70;
2881: IF g_debug_stmt THEN
2882: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2884: || l_progress,'Call the OKC API to apply terms');
2885: END IF;
2886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2879:
2880: l_progress := 70;
2881: IF g_debug_stmt THEN
2882: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2884: || l_progress,'Call the OKC API to apply terms');
2885: END IF;
2886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2882: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2884: || l_progress,'Call the OKC API to apply terms');
2885: END IF;
2886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2888: || l_progress ,'Template: ' || l_template_id);
2889: END IF;
2890: END IF;
2883: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2884: || l_progress,'Call the OKC API to apply terms');
2885: END IF;
2886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2888: || l_progress ,'Template: ' || l_template_id);
2889: END IF;
2890: END IF;
2891:
2912: p_validation_string => l_status ||','||l_revision||','|| null
2913: );
2914:
2915: IF g_debug_stmt THEN
2916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2917: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2918: || l_progress,'Return status from copy terms:'||x_return_status );
2919: END IF;
2920: END IF;
2913: );
2914:
2915: IF g_debug_stmt THEN
2916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2917: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2918: || l_progress,'Return status from copy terms:'||x_return_status );
2919: END IF;
2920: END IF;
2921: ELSE
2939: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2941: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2942: IF (g_fnd_debug='Y') THEN
2943: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2944: FND_LOG.string(log_level => FND_LOG.level_unexpected
2945: ,module => g_module_prefix ||l_api_name
2946: ,message => SQLERRM);
2947: END IF;
2940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2941: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2942: IF (g_fnd_debug='Y') THEN
2943: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2944: FND_LOG.string(log_level => FND_LOG.level_unexpected
2945: ,module => g_module_prefix ||l_api_name
2946: ,message => SQLERRM);
2947: END IF;
2948: END IF;
3020: l_progress := 30;
3021:
3022: IF g_debug_stmt
3023: THEN
3024: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3025: fnd_log.STRING (fnd_log.level_statement,
3026: g_log_head || '.' || l_api_name || '.' || l_progress,
3027: 'Auto Apply Template is off or contracts in not enabled'
3028: );
3021:
3022: IF g_debug_stmt
3023: THEN
3024: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3025: fnd_log.STRING (fnd_log.level_statement,
3026: g_log_head || '.' || l_api_name || '.' || l_progress,
3027: 'Auto Apply Template is off or contracts in not enabled'
3028: );
3029: END IF;
3039: l_progress := 40;
3040:
3041: IF g_debug_stmt
3042: THEN
3043: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3044: fnd_log.STRING (fnd_log.level_statement,
3045: g_log_head || '.' || l_api_name || '.' || l_progress,
3046: 'not the compatible doc type'
3047: );
3040:
3041: IF g_debug_stmt
3042: THEN
3043: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3044: fnd_log.STRING (fnd_log.level_statement,
3045: g_log_head || '.' || l_api_name || '.' || l_progress,
3046: 'not the compatible doc type'
3047: );
3048: END IF;
3060: l_progress := 50;
3061:
3062: IF g_debug_stmt
3063: THEN
3064: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3065: fnd_log.STRING (fnd_log.level_statement,
3066: g_log_head || '.' || l_api_name || '.' || l_progress,
3067: 'Call OKC API to get default template'
3068: );
3061:
3062: IF g_debug_stmt
3063: THEN
3064: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3065: fnd_log.STRING (fnd_log.level_statement,
3066: g_log_head || '.' || l_api_name || '.' || l_progress,
3067: 'Call OKC API to get default template'
3068: );
3069: END IF;
3084: );
3085:
3086: IF g_debug_stmt
3087: THEN
3088: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3089: fnd_log.STRING (fnd_log.level_statement,
3090: g_log_head || '.' || l_api_name || '.' || l_progress,
3091: 'Return status from get default template:'
3092: || x_return_status
3085:
3086: IF g_debug_stmt
3087: THEN
3088: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3089: fnd_log.STRING (fnd_log.level_statement,
3090: g_log_head || '.' || l_api_name || '.' || l_progress,
3091: 'Return status from get default template:'
3092: || x_return_status
3093: );
3142: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3143:
3144: IF (g_fnd_debug = 'Y')
3145: THEN
3146: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3147: fnd_log.STRING (log_level => fnd_log.level_unexpected,
3148: module => g_module_prefix || l_api_name,
3149: MESSAGE => SQLERRM
3150: );
3143:
3144: IF (g_fnd_debug = 'Y')
3145: THEN
3146: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3147: fnd_log.STRING (log_level => fnd_log.level_unexpected,
3148: module => g_module_prefix || l_api_name,
3149: MESSAGE => SQLERRM
3150: );
3151: END IF;
3215: THEN
3216: l_progress := 20;
3217: IF g_debug_stmt
3218: THEN
3219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3220: fnd_log.STRING (fnd_log.level_statement,
3221: g_log_head || '.' || l_api_name || '.' || l_progress,
3222: 'not the compatible doc type'
3223: );
3216: l_progress := 20;
3217: IF g_debug_stmt
3218: THEN
3219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3220: fnd_log.STRING (fnd_log.level_statement,
3221: g_log_head || '.' || l_api_name || '.' || l_progress,
3222: 'not the compatible doc type'
3223: );
3224: END IF;
3234: l_progress := 10;
3235:
3236: IF g_debug_stmt
3237: THEN
3238: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3239: fnd_log.STRING (fnd_log.level_statement,
3240: g_log_head || '.' || l_api_name || '.' || l_progress,
3241: 'Call OKC API to get contract details'
3242: );
3235:
3236: IF g_debug_stmt
3237: THEN
3238: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3239: fnd_log.STRING (fnd_log.level_statement,
3240: g_log_head || '.' || l_api_name || '.' || l_progress,
3241: 'Call OKC API to get contract details'
3242: );
3243: END IF;
3260: l_progress := 20;
3261:
3262: IF g_debug_stmt
3263: THEN
3264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3265: fnd_log.STRING (fnd_log.level_statement,
3266: g_log_head || '.' || l_api_name || '.' || l_progress,
3267: 'Return status from get contract details:'
3268: || x_return_status
3261:
3262: IF g_debug_stmt
3263: THEN
3264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3265: fnd_log.STRING (fnd_log.level_statement,
3266: g_log_head || '.' || l_api_name || '.' || l_progress,
3267: 'Return status from get contract details:'
3268: || x_return_status
3269: );
3308: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3309:
3310: IF (g_fnd_debug = 'Y')
3311: THEN
3312: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3313: fnd_log.STRING (log_level => fnd_log.level_unexpected,
3314: module => g_module_prefix || l_api_name,
3315: MESSAGE => SQLERRM
3316: );
3309:
3310: IF (g_fnd_debug = 'Y')
3311: THEN
3312: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3313: fnd_log.STRING (log_level => fnd_log.level_unexpected,
3314: module => g_module_prefix || l_api_name,
3315: MESSAGE => SQLERRM
3316: );
3317: END IF;