eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PO_DOCUMENT_CHECKS_PVT dependencies on FND_LOG

Line 48: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/

44: -- Declare private package variables.
45: -----------------------------------------------------------------------------
46:
47: -- Refactored debugging
48: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
49: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
50:
51:
52:

Line 49: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/

45: -----------------------------------------------------------------------------
46:
47: -- Refactored debugging
48: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
49: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)); /* In Bug# 5028960, Modified to Avoid File.sql.46 error*/
50:
51:
52:
53:

Line 442: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: IF ( g_debug_unexp ) THEN
442: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
443: FND_LOG.string( FND_LOG.level_unexpected,
444: G_PKG_NAME||l_api_name|| '.others_exception',
445: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
446: END IF;

Line 443: FND_LOG.string( FND_LOG.level_unexpected,

439: WHEN OTHERS THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: IF ( g_debug_unexp ) THEN
442: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
443: FND_LOG.string( FND_LOG.level_unexpected,
444: G_PKG_NAME||l_api_name|| '.others_exception',
445: 'EXCEPTION: Location is '|| l_progress || ' SQL CODE is '||sqlcode);
446: END IF;
447: END IF;

Line 595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

591:
592: l_progress := '001';
593:
594: IF g_debug_stmt THEN
595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
597: || l_progress,'Populating global temp tables');
598: END IF;
599: END IF;

Line 596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

592: l_progress := '001';
593:
594: IF g_debug_stmt THEN
595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
597: || l_progress,'Populating global temp tables');
598: END IF;
599: END IF;
600:

Line 639: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

635: --tables with these changes
636: IF p_requested_changes IS NOT NULL THEN
637:
638: IF g_debug_stmt THEN
639: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
640: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
641: || l_progress,'update requested, calling updating global tables');
642: END IF;
643: END IF;

Line 640: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

636: IF p_requested_changes IS NOT NULL THEN
637:
638: IF g_debug_stmt THEN
639: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
640: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
641: || l_progress,'update requested, calling updating global tables');
642: END IF;
643: END IF;
644:

Line 658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

654:
655: END IF;
656:
657: IF g_debug_stmt THEN
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
660: || l_progress,'Getting online_report_id');
661: END IF;
662: END IF;

Line 659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

655: END IF;
656:
657: IF g_debug_stmt THEN
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
660: || l_progress,'Getting online_report_id');
661: END IF;
662: END IF;
663:

Line 680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

676: l_login_id := FND_GLOBAL.LOGIN_ID;
677: END IF;
678:
679: IF g_debug_stmt THEN
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
681: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
682: || l_progress,'user_id '|| to_char(l_user_id) || 'Login_id ' || to_char(l_login_id));
683: END IF;
684: END IF;

Line 681: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

677: END IF;
678:
679: IF g_debug_stmt THEN
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
681: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
682: || l_progress,'user_id '|| to_char(l_user_id) || 'Login_id ' || to_char(l_login_id));
683: END IF;
684: END IF;
685:

Line 718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

714: IF p_document_type = 'REQUISITION' THEN
715:
716: l_progress := '006';
717: IF g_debug_stmt THEN
718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
719: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
720: || l_progress,'REQUISITION checks');
721: END IF;
722: END IF;

Line 719: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

715:
716: l_progress := '006';
717: IF g_debug_stmt THEN
718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
719: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
720: || l_progress,'REQUISITION checks');
721: END IF;
722: END IF;
723:

Line 757: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

753: IF p_action_requested = g_action_UNRESERVE THEN
754:
755: l_progress := '008';
756: IF g_debug_stmt THEN
757: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
758: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
759: || l_progress,'RELEASE: Calling UNRESERVE checks');
760: END IF;
761: END IF;

Line 758: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

754:
755: l_progress := '008';
756: IF g_debug_stmt THEN
757: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
758: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
759: || l_progress,'RELEASE: Calling UNRESERVE checks');
760: END IF;
761: END IF;
762:

Line 778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

774: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
775:
776: l_progress := '008';
777: IF g_debug_stmt THEN
778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
779: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
780: || l_progress,'RELEASE: Calling FINAL CLOSE checks');
781: END IF;
782: END IF;

Line 779: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

775:
776: l_progress := '008';
777: IF g_debug_stmt THEN
778: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
779: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
780: || l_progress,'RELEASE: Calling FINAL CLOSE checks');
781: END IF;
782: END IF;
783:

Line 807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

803: ELSE --its 'DOC_SUBMISSION_CHECK'
804:
805: l_progress := '009';
806: IF g_debug_stmt THEN
807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
809: || l_progress,'RELEASE checks');
810: END IF;
811: END IF;

Line 808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

804:
805: l_progress := '009';
806: IF g_debug_stmt THEN
807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
809: || l_progress,'RELEASE checks');
810: END IF;
811: END IF;
812: --check RELEASES

Line 866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

862: IF p_action_requested = g_action_UNRESERVE THEN
863:
864: l_progress := '012';
865: IF g_debug_stmt THEN
866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
868: || l_progress,'PO: Calling UNRESERVE checks ');
869: END IF;
870: END IF;

Line 867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

863:
864: l_progress := '012';
865: IF g_debug_stmt THEN
866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
867: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
868: || l_progress,'PO: Calling UNRESERVE checks ');
869: END IF;
870: END IF;
871:

Line 887: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

883: ELSIF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
884:
885: l_progress := '012';
886: IF g_debug_stmt THEN
887: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
888: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
889: || l_progress,'PO: Calling FINAL CLOSE checks');
890: END IF;
891: END IF;

Line 888: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

884:
885: l_progress := '012';
886: IF g_debug_stmt THEN
887: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
888: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
889: || l_progress,'PO: Calling FINAL CLOSE checks');
890: END IF;
891: END IF;
892:

Line 916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

912: ELSE --its 'DOC_SUBMISSION_CHECK'
913:
914: l_progress := '013';
915: IF g_debug_stmt THEN
916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
917: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
918: || l_progress,'PO checks');
919: END IF;
920: END IF;

Line 917: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

913:
914: l_progress := '013';
915: IF g_debug_stmt THEN
916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
917: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
918: || l_progress,'PO checks');
919: END IF;
920: END IF;
921: --First do all checks at header level

Line 987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

983: IF p_document_subtype = 'PLANNED' THEN
984: --check planned PO
985: l_progress := '017';
986: IF g_debug_stmt THEN
987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
988: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
989: || l_progress,'PO: PLANNED checks');
990: END IF;
991: END IF;

Line 988: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

984: --check planned PO
985: l_progress := '017';
986: IF g_debug_stmt THEN
987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
988: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
989: || l_progress,'PO: PLANNED checks');
990: END IF;
991: END IF;
992: --Call checks common to Planned PO and Blanket PA

Line 1007: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1003: ELSIF p_document_subtype = 'STANDARD' THEN
1004:
1005: l_progress := '018';
1006: IF g_debug_stmt THEN
1007: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1008: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1009: || l_progress,'PO: STANDARD checks');
1010: END IF;
1011: END IF;

Line 1008: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1004:
1005: l_progress := '018';
1006: IF g_debug_stmt THEN
1007: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1008: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1009: || l_progress,'PO: STANDARD checks');
1010: END IF;
1011: END IF;
1012: --Call additional checks for Standard PO

Line 1035: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1031: IF (p_action_requested = g_action_FINAL_CLOSE_CHECK) THEN
1032:
1033: l_progress := '019';
1034: IF g_debug_stmt THEN
1035: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1036: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1037: || l_progress,'PA: Calling FINAL CLOSE checks');
1038: END IF;
1039: END IF;

Line 1036: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1032:
1033: l_progress := '019';
1034: IF g_debug_stmt THEN
1035: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1036: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1037: || l_progress,'PA: Calling FINAL CLOSE checks');
1038: END IF;
1039: END IF;
1040:

Line 1065: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1061: -- It's 'DOC_SUBMISSION_CHECK'
1062: --check PAs
1063: l_progress := '019';
1064: IF g_debug_stmt THEN
1065: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1066: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1067: || l_progress,'PA checks');
1068: END IF;
1069: END IF;

Line 1066: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1062: --check PAs
1063: l_progress := '019';
1064: IF g_debug_stmt THEN
1065: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1066: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1067: || l_progress,'PA checks');
1068: END IF;
1069: END IF;
1070:

Line 1087: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1083: IF p_document_subtype = 'BLANKET' THEN
1084:
1085: l_progress := '020';
1086: IF g_debug_stmt THEN
1087: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1088: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1089: || l_progress,'PA: BLANKET checks');
1090: END IF;
1091: END IF;

Line 1088: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1084:
1085: l_progress := '020';
1086: IF g_debug_stmt THEN
1087: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1088: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1089: || l_progress,'PA: BLANKET checks');
1090: END IF;
1091: END IF;
1092:

Line 1123: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1119: ELSIF p_document_subtype = 'CONTRACT' THEN
1120:
1121: l_progress := '022';
1122: IF g_debug_stmt THEN
1123: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1124: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1125: || l_progress,'PA: CONTRACT checks');
1126: END IF;
1127: END IF;

Line 1124: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1120:
1121: l_progress := '022';
1122: IF g_debug_stmt THEN
1123: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1124: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1125: || l_progress,'PA: CONTRACT checks');
1126: END IF;
1127: END IF;
1128:

Line 1147: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1143: END IF; --document_type lookup
1144:
1145: l_progress := '023';
1146: IF g_debug_stmt THEN
1147: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1148: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1149: || l_progress,'Done with all checks');
1150: END IF;
1151: END IF;

Line 1148: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1144:
1145: l_progress := '023';
1146: IF g_debug_stmt THEN
1147: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1148: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1149: || l_progress,'Done with all checks');
1150: END IF;
1151: END IF;
1152:

Line 1188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1184: END IF; -- document type is PO or PA
1185:
1186: l_progress := '024';
1187: IF g_debug_stmt THEN
1188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1189: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1190: ,g_log_head || '.'||l_api_name||'.'|| l_progress
1191: ,'Done with contracts qa');
1192: END IF;

Line 1189: FND_LOG.string(FND_LOG.LEVEL_STATEMENT

1185:
1186: l_progress := '024';
1187: IF g_debug_stmt THEN
1188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1189: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1190: ,g_log_head || '.'||l_api_name||'.'|| l_progress
1191: ,'Done with contracts qa');
1192: END IF;
1193: END IF;

Line 1240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1236: END IF;
1237:
1238: l_progress := '025';
1239: IF g_debug_stmt THEN
1240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1241: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1242: ,g_log_head || '.'||l_api_name||'.'|| l_progress,
1243: 'Done with vendor site registration check');
1244: END IF;

Line 1241: FND_LOG.string(FND_LOG.LEVEL_STATEMENT

1237:
1238: l_progress := '025';
1239: IF g_debug_stmt THEN
1240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1241: FND_LOG.string(FND_LOG.LEVEL_STATEMENT
1242: ,g_log_head || '.'||l_api_name||'.'|| l_progress,
1243: 'Done with vendor site registration check');
1244: END IF;
1245: END IF;

Line 1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1289:
1290:
1291: l_progress := '026';
1292: IF g_debug_stmt THEN
1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1294: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1295: || l_progress,'Number of messagess reported ' || l_num_messages);
1296: END IF;
1297: END IF;

Line 1294: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1290:
1291: l_progress := '026';
1292: IF g_debug_stmt THEN
1293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1294: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1295: || l_progress,'Number of messagess reported ' || l_num_messages);
1296: END IF;
1297: END IF;
1298:

Line 1393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1389:
1390:
1391: l_progress := '029';
1392: IF g_debug_stmt THEN
1393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1394: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1395: || l_progress,'Returning from PVT package');
1396: END IF;
1397: END IF;

Line 1394: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1390:
1391: l_progress := '029';
1392: IF g_debug_stmt THEN
1393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1394: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1395: || l_progress,'Returning from PVT package');
1396: END IF;
1397: END IF;
1398:

Line 1423: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1419: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
1420: END IF;
1421:
1422: IF (g_debug_unexp) THEN
1423: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1424: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
1425: l_api_name || '.others_exception', 'EXCEPTION: Location is '
1426: || l_progress || ' SQL CODE is '||sqlcode);
1427: END IF;

Line 1424: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

1420: END IF;
1421:
1422: IF (g_debug_unexp) THEN
1423: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1424: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
1425: l_api_name || '.others_exception', 'EXCEPTION: Location is '
1426: || l_progress || ' SQL CODE is '||sqlcode);
1427: END IF;
1428: END IF;

Line 1471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1467:
1468: l_progress := '001';
1469:
1470: IF g_debug_stmt THEN
1471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1472: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1473: g_log_head || '.'||l_api_name||'.' || l_progress,
1474: 'Populating global temp tables');
1475: END IF;

Line 1472: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

1468: l_progress := '001';
1469:
1470: IF g_debug_stmt THEN
1471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1472: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1473: g_log_head || '.'||l_api_name||'.' || l_progress,
1474: 'Populating global temp tables');
1475: END IF;
1476: END IF;

Line 1492: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1489: END IF;
1490:
1491: IF g_debug_stmt THEN
1492: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1493: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1494: || l_progress,'Getting online_report_id');
1495: END IF;
1496: END IF;

Line 1493: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1489: END IF;
1490:
1491: IF g_debug_stmt THEN
1492: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1493: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1494: || l_progress,'Getting online_report_id');
1495: END IF;
1496: END IF;
1497:

Line 1518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1514: l_login_id := FND_GLOBAL.LOGIN_ID;
1515: END IF;
1516:
1517: IF g_debug_stmt THEN
1518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1519: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1520: g_log_head || l_api_name||'.'|| l_progress,
1521: 'user_id '|| to_char(l_user_id) ||
1522: 'Login_id ' || to_char(l_login_id));

Line 1519: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

1515: END IF;
1516:
1517: IF g_debug_stmt THEN
1518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1519: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1520: g_log_head || l_api_name||'.'|| l_progress,
1521: 'user_id '|| to_char(l_user_id) ||
1522: 'Login_id ' || to_char(l_login_id));
1523: END IF;

Line 1533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1529:
1530: l_progress := '007';
1531:
1532: IF g_debug_stmt THEN
1533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1534: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1535: || l_progress,'Done with all checks');
1536: END IF;
1537: END IF;

Line 1534: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

1530: l_progress := '007';
1531:
1532: IF g_debug_stmt THEN
1533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1534: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
1535: || l_progress,'Done with all checks');
1536: END IF;
1537: END IF;
1538:

Line 1548: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1544:
1545: l_progress := '008';
1546:
1547: IF g_debug_stmt THEN
1548: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1549: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1550: g_log_head || '.'||l_api_name||'.'|| l_progress,
1551: 'Number of errors reported ' || l_num_errors);
1552: END IF;

Line 1549: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

1545: l_progress := '008';
1546:
1547: IF g_debug_stmt THEN
1548: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1549: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1550: g_log_head || '.'||l_api_name||'.'|| l_progress,
1551: 'Number of errors reported ' || l_num_errors);
1552: END IF;
1553: END IF;

Line 1604: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1600:
1601: l_progress := '011';
1602:
1603: IF g_debug_stmt THEN
1604: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1605: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1606: g_log_head || '.'||l_api_name||'.'|| l_progress,
1607: 'Returning from PVT package');
1608: END IF;

Line 1605: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,

1601: l_progress := '011';
1602:
1603: IF g_debug_stmt THEN
1604: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1605: FND_LOG.string( FND_LOG.LEVEL_STATEMENT,
1606: g_log_head || '.'||l_api_name||'.'|| l_progress,
1607: 'Returning from PVT package');
1608: END IF;
1609: END IF;

Line 1632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

1628: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
1629: END IF;
1630:
1631: IF ( g_debug_unexp ) THEN
1632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1633: FND_LOG.string( FND_LOG.level_unexpected,
1634: g_log_head || l_api_name || '.others_exception',
1635: 'EXCEPTION: Location is ' || l_progress || ' SQL CODE is '||sqlcode);
1636: END IF;

Line 1633: FND_LOG.string( FND_LOG.level_unexpected,

1629: END IF;
1630:
1631: IF ( g_debug_unexp ) THEN
1632: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1633: FND_LOG.string( FND_LOG.level_unexpected,
1634: g_log_head || l_api_name || '.others_exception',
1635: 'EXCEPTION: Location is ' || l_progress || ' SQL CODE is '||sqlcode);
1636: END IF;
1637: END IF;

Line 1707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1703: --Removed Update statement to update rate in po_requistion_lines
1704:
1705: l_progress := '001';
1706: IF g_debug_stmt THEN
1707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1708: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1709: || l_progress,'REQ 1: No lines ');
1710: END IF;
1711: END IF;

Line 1708: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

1704:
1705: l_progress := '001';
1706: IF g_debug_stmt THEN
1707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1708: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1709: || l_progress,'REQ 1: No lines ');
1710: END IF;
1711: END IF;
1712:

Line 1753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1749: ------------------------------------------------
1750:
1751: l_progress := '002';
1752: IF g_debug_stmt THEN
1753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1754: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1755: || l_progress,'REQ 2: No distributions');
1756: END IF;
1757: END IF;

Line 1754: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

1750:
1751: l_progress := '002';
1752: IF g_debug_stmt THEN
1753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1754: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1755: || l_progress,'REQ 2: No distributions');
1756: END IF;
1757: END IF;
1758:

Line 1802: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1798: -------------------------------------------------
1799:
1800: l_progress := '003';
1801: IF g_debug_stmt THEN
1802: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1804: || l_progress,'REQ 3: Line qty does not match dist qty');
1805: END IF;
1806: END IF;

Line 1803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

1799:
1800: l_progress := '003';
1801: IF g_debug_stmt THEN
1802: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1803: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1804: || l_progress,'REQ 3: Line qty does not match dist qty');
1805: END IF;
1806: END IF;
1807:

Line 1913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1909: ------------------------------------------------
1910:
1911: l_progress := '004';
1912: IF g_debug_stmt THEN
1913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1915: || l_progress,'REQ 4: More than one dist for INVENTORY src type');
1916: END IF;
1917: END IF;

Line 1914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

1910:
1911: l_progress := '004';
1912: IF g_debug_stmt THEN
1913: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1914: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1915: || l_progress,'REQ 4: More than one dist for INVENTORY src type');
1916: END IF;
1917: END IF;
1918:

Line 1962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

1958: -----------------------------------------------------
1959:
1960: l_progress := '005';
1961: IF g_debug_stmt THEN
1962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1964: || l_progress,'REQ 5: Rate cannot be nULL for foreign currency vendor');
1965: END IF;
1966: END IF;

Line 1963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

1959:
1960: l_progress := '005';
1961: IF g_debug_stmt THEN
1962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
1964: || l_progress,'REQ 5: Rate cannot be nULL for foreign currency vendor');
1965: END IF;
1966: END IF;
1967:

Line 2050: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2046: END IF;
2047:
2048: l_progress := '007';
2049: IF g_debug_stmt THEN
2050: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2051: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
2052: || l_progress,'REQ 7: Requisitions cannot have ATO/CTO model items');
2053: END IF;
2054: END IF;

Line 2051: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'

2047:
2048: l_progress := '007';
2049: IF g_debug_stmt THEN
2050: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2051: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head||l_api_name||'.'
2052: || l_progress,'REQ 7: Requisitions cannot have ATO/CTO model items');
2053: END IF;
2054: END IF;
2055:

Line 2106: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2102: l_tax_status := po_tax_interface_pvt.calculate_tax_yes_no(p_po_header_id => NULL,
2103: p_po_release_id => NULL,
2104: p_req_header_id => p_document_id);
2105: IF g_debug_stmt THEN
2106: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2107: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
2108: || l_progress,'REQ 8: Recalculate tax before approval = ' || l_tax_status);
2109: END IF;
2110: END IF;

Line 2107: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'

2103: p_po_release_id => NULL,
2104: p_req_header_id => p_document_id);
2105: IF g_debug_stmt THEN
2106: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2107: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
2108: || l_progress,'REQ 8: Recalculate tax before approval = ' || l_tax_status);
2109: END IF;
2110: END IF;
2111: l_progress := '009';

Line 2114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2110: END IF;
2111: l_progress := '009';
2112: IF l_tax_status = 'Y' THEN
2113: IF g_debug_stmt THEN
2114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2115: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
2116: l_api_name||'.' || l_progress,
2117: 'REQ 9: Calculate tax as the current one is not correct');
2118: END IF;

Line 2115: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

2111: l_progress := '009';
2112: IF l_tax_status = 'Y' THEN
2113: IF g_debug_stmt THEN
2114: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2115: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
2116: l_api_name||'.' || l_progress,
2117: 'REQ 9: Calculate tax as the current one is not correct');
2118: END IF;
2119: END IF;

Line 2128: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2124:
2125: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2126: l_progress := '011';
2127: IF g_debug_stmt THEN
2128: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2129: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
2130: l_api_name||'.' || l_progress,
2131: 'REQ 10: Calculate tax has errored out');
2132: END IF;

Line 2129: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

2125: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2126: l_progress := '011';
2127: IF g_debug_stmt THEN
2128: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2129: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
2130: l_api_name||'.' || l_progress,
2131: 'REQ 10: Calculate tax has errored out');
2132: END IF;
2133: END IF;

Line 2174: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2170: l_progress := '012';
2171: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2172: l_progress := '013';
2173: IF g_debug_stmt THEN
2174: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2175: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
2176: l_api_name||'.' || l_progress,
2177: 'REQ 11: Calculate tax raised unexpected error');
2178: END IF;

Line 2175: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

2171: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2172: l_progress := '013';
2173: IF g_debug_stmt THEN
2174: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2175: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
2176: l_api_name||'.' || l_progress,
2177: 'REQ 11: Calculate tax raised unexpected error');
2178: END IF;
2179: END IF;

Line 2215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

2211: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
2212: END IF;
2213:
2214: IF (g_debug_unexp) THEN
2215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2216: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
2217: l_api_name || '.others_exception', 'EXCEPTION: Location is '
2218: || l_progress || ' SQL CODE is '||sqlcode);
2219: END IF;

Line 2216: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

2212: END IF;
2213:
2214: IF (g_debug_unexp) THEN
2215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2216: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
2217: l_api_name || '.others_exception', 'EXCEPTION: Location is '
2218: || l_progress || ' SQL CODE is '||sqlcode);
2219: END IF;
2220: END IF;

Line 2301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2297: --Removed update statement to update rate in po_distributions
2298:
2299: l_progress := '001';
2300: IF g_debug_stmt THEN
2301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2303: || l_progress,'REL 1: PA should be approved');
2304: END IF;
2305: END IF;

Line 2302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2298:
2299: l_progress := '001';
2300: IF g_debug_stmt THEN
2301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2303: || l_progress,'REL 1: PA should be approved');
2304: END IF;
2305: END IF;
2306:

Line 2348: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2344: ---------------------------------------------------------
2345:
2346: l_progress := '002';
2347: IF g_debug_stmt THEN
2348: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2349: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2350: || l_progress,'REL 2: Within PA effective dates ');
2351: END IF;
2352: END IF;

Line 2349: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2345:
2346: l_progress := '002';
2347: IF g_debug_stmt THEN
2348: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2349: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2350: || l_progress,'REL 2: Within PA effective dates ');
2351: END IF;
2352: END IF;
2353:

Line 2402: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2398: ----------------------------------------
2399:
2400: l_progress := '003';
2401: IF g_debug_stmt THEN
2402: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2403: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2404: || l_progress,'REL 3: PA should not be ON HOLD');
2405: END IF;
2406: END IF;

Line 2403: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2399:
2400: l_progress := '003';
2401: IF g_debug_stmt THEN
2402: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2403: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2404: || l_progress,'REL 3: PA should not be ON HOLD');
2405: END IF;
2406: END IF;
2407:

Line 2449: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2445: -------------------------------------------------
2446:
2447: l_progress := '004';
2448: IF g_debug_stmt THEN
2449: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2450: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2451: || l_progress,'REL 4: PAs Supplier should not be ON HOLD');
2452: END IF;
2453: END IF;

Line 2450: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2446:
2447: l_progress := '004';
2448: IF g_debug_stmt THEN
2449: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2450: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2451: || l_progress,'REL 4: PAs Supplier should not be ON HOLD');
2452: END IF;
2453: END IF;
2454:

Line 2498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2494: ---------------------------------------------------
2495:
2496: l_progress := '005';
2497: IF g_debug_stmt THEN
2498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2500: || l_progress,'REL 5: Release must have atleast one shipment');
2501: END IF;
2502: END IF;

Line 2499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2495:
2496: l_progress := '005';
2497: IF g_debug_stmt THEN
2498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2500: || l_progress,'REL 5: Release must have atleast one shipment');
2501: END IF;
2502: END IF;
2503:

Line 2553: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2549: --Added a new submission check to validate the
2550: --ship to location at the shipment level.
2551:
2552: IF g_debug_stmt THEN
2553: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2554: || l_progress,'REL : Invalid Ship To Locations');
2555: END IF;
2556:
2557: SELECT POLG.shipment_num,

Line 2619: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2615: -------------------------------------------
2616:
2617: l_progress := '006';
2618: IF g_debug_stmt THEN
2619: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2620: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2621: || l_progress,'REL 6: check Price tolerance exceed on line');
2622: END IF;
2623: END IF;

Line 2620: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2616:
2617: l_progress := '006';
2618: IF g_debug_stmt THEN
2619: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2620: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2621: || l_progress,'REL 6: check Price tolerance exceed on line');
2622: END IF;
2623: END IF;
2624:

Line 2699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2695: ----------------------------------------
2696:
2697: l_progress := '007';
2698: IF g_debug_stmt THEN
2699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2701: || l_progress,'REL 7: Rel shipment qty should match dist qty');
2702: END IF;
2703: END IF;

Line 2700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2696:
2697: l_progress := '007';
2698: IF g_debug_stmt THEN
2699: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2700: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2701: || l_progress,'REL 7: Rel shipment qty should match dist qty');
2702: END IF;
2703: END IF;
2704:

Line 2801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2797: ---------------------------------------------------------
2798:
2799: l_progress := '008';
2800: IF g_debug_stmt THEN
2801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2803: || l_progress,'REL 8: Rel shipment should have atleast one dist ');
2804: END IF;
2805: END IF;

Line 2802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2798:
2799: l_progress := '008';
2800: IF g_debug_stmt THEN
2801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2802: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2803: || l_progress,'REL 8: Rel shipment should have atleast one dist ');
2804: END IF;
2805: END IF;
2806:

Line 2852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2848: -----------------------------------------------------
2849:
2850: l_progress := '009';
2851: IF g_debug_stmt THEN
2852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2853: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2854: || l_progress,'REL 9: Dist rate cannot be NULL if using foreign currency vendor');
2855: END IF;
2856: END IF;

Line 2853: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2849:
2850: l_progress := '009';
2851: IF g_debug_stmt THEN
2852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2853: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2854: || l_progress,'REL 9: Dist rate cannot be NULL if using foreign currency vendor');
2855: END IF;
2856: END IF;
2857:

Line 2911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2907: -----------------------------------------------
2908:
2909: l_progress := '010';
2910: IF g_debug_stmt THEN
2911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2912: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2913: || l_progress,'REL 10: Amount should be greater than min release amount ');
2914: END IF;
2915: END IF;

Line 2912: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2908:
2909: l_progress := '010';
2910: IF g_debug_stmt THEN
2911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2912: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2913: || l_progress,'REL 10: Amount should be greater than min release amount ');
2914: END IF;
2915: END IF;
2916:

Line 2976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

2972: -- Bug 7188760
2973: -- Added the POH.Amount_Limit is Not Null condition in the following sqls
2974: l_progress := '011';
2975: IF g_debug_stmt THEN
2976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2977: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2978: || l_progress,'REL 11: Not to exceed Amount Limit');
2979: END IF;
2980: END IF;

Line 2977: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

2973: -- Added the POH.Amount_Limit is Not Null condition in the following sqls
2974: l_progress := '011';
2975: IF g_debug_stmt THEN
2976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2977: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
2978: || l_progress,'REL 11: Not to exceed Amount Limit');
2979: END IF;
2980: END IF;
2981:

Line 3076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3072: ------------------------------------------------
3073:
3074: l_progress := '012';
3075: IF g_debug_stmt THEN
3076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3078: || l_progress,
3079: 'REL 12: Amount released check for min release amt');
3080: END IF;

Line 3077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3073:
3074: l_progress := '012';
3075: IF g_debug_stmt THEN
3076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3078: || l_progress,
3079: 'REL 12: Amount released check for min release amt');
3080: END IF;
3081: END IF;

Line 3204: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3200: ----------------------------------------------
3201:
3202: l_progress := '014';
3203: IF g_debug_stmt THEN
3204: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3205: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3206: || l_progress,'Rel 14: UOM Interclass conversions check');
3207: END IF;
3208: END IF;

Line 3205: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3201:
3202: l_progress := '014';
3203: IF g_debug_stmt THEN
3204: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3205: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3206: || l_progress,'Rel 14: UOM Interclass conversions check');
3207: END IF;
3208: END IF;
3209:

Line 3264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3260: --------------------------------------------------
3261:
3262: l_progress := '015';
3263: IF g_debug_stmt THEN
3264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3265: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3266: || l_progress,'REL 15: Item restricted check ');
3267: END IF;
3268: END IF;

Line 3265: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3261:
3262: l_progress := '015';
3263: IF g_debug_stmt THEN
3264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3265: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3266: || l_progress,'REL 15: Item restricted check ');
3267: END IF;
3268: END IF;
3269:

Line 3360: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3356: ---------------------------------------------
3357:
3358: l_progress := '016';
3359: IF g_debug_stmt THEN
3360: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3361: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3362: || l_progress,'REL 16: ASL Debarred check ');
3363: END IF;
3364: END IF;

Line 3361: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3357:
3358: l_progress := '016';
3359: IF g_debug_stmt THEN
3360: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3361: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3362: || l_progress,'REL 16: ASL Debarred check ');
3363: END IF;
3364: END IF;
3365:

Line 3454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3450:
3451: l_progress := '017';
3452:
3453: IF g_debug_stmt THEN
3454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3456: l_api_name||'.' || l_progress,
3457: 'REL 17: ATO/CTO Model items not allowed on Releases');
3458: END IF;

Line 3455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3451: l_progress := '017';
3452:
3453: IF g_debug_stmt THEN
3454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3455: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3456: l_api_name||'.' || l_progress,
3457: 'REL 17: ATO/CTO Model items not allowed on Releases');
3458: END IF;
3459: END IF;

Line 3515: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3511: /* Start Bug #3512688
3512: To check the validity of the item added at the line level*/
3513: l_progress := '018';
3514: IF g_debug_stmt THEN
3515: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3516: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3517: || l_progress,'REL 018: Item has to purchasable');
3518: END IF;
3519: END IF;

Line 3516: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3512: To check the validity of the item added at the line level*/
3513: l_progress := '018';
3514: IF g_debug_stmt THEN
3515: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3516: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3517: || l_progress,'REL 018: Item has to purchasable');
3518: END IF;
3519: END IF;
3520:

Line 3568: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3564: --End Bug #3512688
3565:
3566: l_progress := '019';
3567: IF g_debug_stmt THEN
3568: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3569: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3570: || l_progress,'Rel 19: Cannot approve documents on hold');
3571: END IF;
3572: END IF;

Line 3569: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3565:
3566: l_progress := '019';
3567: IF g_debug_stmt THEN
3568: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3569: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3570: || l_progress,'Rel 19: Cannot approve documents on hold');
3571: END IF;
3572: END IF;
3573: -- Check 19: Release should not be on hold (Bug 3678912)

Line 3765: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3761: p_po_release_id => p_document_id,
3762: p_req_header_id => NULL);
3763: l_progress := '021';
3764: IF g_debug_stmt THEN
3765: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3766: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
3767: || l_progress, 'Rel 21: Recalculate tax before approval = ' || l_tax_status);
3768: END IF;
3769: END IF;

Line 3766: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'

3762: p_req_header_id => NULL);
3763: l_progress := '021';
3764: IF g_debug_stmt THEN
3765: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3766: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.'
3767: || l_progress, 'Rel 21: Recalculate tax before approval = ' || l_tax_status);
3768: END IF;
3769: END IF;
3770:

Line 3773: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3769: END IF;
3770:
3771: IF l_tax_status = 'Y' THEN
3772: IF g_debug_stmt THEN
3773: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3774: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3775: l_api_name||'.' || l_progress,
3776: 'Rel 22: Calculate tax as the current one is not correct');
3777: END IF;

Line 3774: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3770:
3771: IF l_tax_status = 'Y' THEN
3772: IF g_debug_stmt THEN
3773: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3774: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3775: l_api_name||'.' || l_progress,
3776: 'Rel 22: Calculate tax as the current one is not correct');
3777: END IF;
3778: END IF;

Line 3787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3783: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
3784: l_progress := '022';
3785: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3786: IF g_debug_stmt THEN
3787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3789: l_api_name||'.' || l_progress,
3790: 'Rel 23: Calculate tax has errored out');
3791: END IF;

Line 3788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3784: l_progress := '022';
3785: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3786: IF g_debug_stmt THEN
3787: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3788: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3789: l_api_name||'.' || l_progress,
3790: 'Rel 23: Calculate tax has errored out');
3791: END IF;
3792: END IF;

Line 3833: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3829: );
3830: l_progress := '024';
3831: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3832: IF g_debug_stmt THEN
3833: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3834: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3835: l_api_name||'.' || l_progress,
3836: 'Rel 24: Calculate tax raised unexpected error');
3837: END IF;

Line 3834: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

3830: l_progress := '024';
3831: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3832: IF g_debug_stmt THEN
3833: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3834: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
3835: l_api_name||'.' || l_progress,
3836: 'Rel 24: Calculate tax raised unexpected error');
3837: END IF;
3838: END IF;

Line 3861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3857: l_progress := '026';
3858: --
3859:
3860: IF g_debug_stmt THEN
3861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3862: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3863: || l_progress,'Rel 25: LCM enabled release shipment should have invoice match option as receipt');
3864: END IF;
3865: END IF;

Line 3862: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3858: --
3859:
3860: IF g_debug_stmt THEN
3861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3862: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3863: || l_progress,'Rel 25: LCM enabled release shipment should have invoice match option as receipt');
3864: END IF;
3865: END IF;
3866: -- Check 25: Validation for LCM enabled release to check whether its shipment has invoice match option as 'Receipt'

Line 3905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

3901:
3902: -------------------------------------------------------------------------------------
3903: l_progress := '027';
3904: IF g_debug_stmt THEN
3905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3907: || l_progress,'Rel 26: LCM enabled release distribution should have destination type as Inventory');
3908: END IF;
3909: END IF;

Line 3906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

3902: -------------------------------------------------------------------------------------
3903: l_progress := '027';
3904: IF g_debug_stmt THEN
3905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3906: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
3907: || l_progress,'Rel 26: LCM enabled release distribution should have destination type as Inventory');
3908: END IF;
3909: END IF;
3910: -- Check 26: Validation for LCM enabled release to check whether its distribution has destination type as 'Inventory'

Line 3966: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

3962: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3963: END IF;
3964:
3965: IF (g_debug_unexp) THEN
3966: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3967: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
3968: l_api_name || '.others_exception', 'EXCEPTION: Location is '
3969: || l_progress || ' SQL CODE is '||sqlcode);
3970: END IF;

Line 3967: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

3963: END IF;
3964:
3965: IF (g_debug_unexp) THEN
3966: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3967: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
3968: l_api_name || '.others_exception', 'EXCEPTION: Location is '
3969: || l_progress || ' SQL CODE is '||sqlcode);
3970: END IF;
3971: END IF;

Line 4214: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4210:
4211: BEGIN
4212: l_progress := '000';
4213: IF g_debug_stmt THEN
4214: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4215: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4216: || l_progress,'PO REQ: Price, Amount Toleance check');
4217: END IF;
4218: END IF;

Line 4215: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4211: BEGIN
4212: l_progress := '000';
4213: IF g_debug_stmt THEN
4214: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4215: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4216: || l_progress,'PO REQ: Price, Amount Toleance check');
4217: END IF;
4218: END IF;
4219:

Line 4231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4227: FROM po_system_parameters;
4228:
4229: l_progress := '001';
4230: IF g_debug_stmt THEN
4231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4232: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4233: || l_progress,'Is price tol check enforced '||l_enforce_price_tolerance
4234: || ' Is price amount check enforced ' || l_enforce_price_amount);
4235: END IF;

Line 4232: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4228:
4229: l_progress := '001';
4230: IF g_debug_stmt THEN
4231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4232: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4233: || l_progress,'Is price tol check enforced '||l_enforce_price_tolerance
4234: || ' Is price amount check enforced ' || l_enforce_price_amount);
4235: END IF;
4236: END IF;

Line 4358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4354: --Do price tolerance check
4355: IF l_enforce_price_tolerance = 'Y' THEN
4356:
4357: IF g_debug_stmt THEN
4358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4359: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4360: || l_progress,'Doing Price Tolerance check');
4361: END IF;
4362: END IF;

Line 4359: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4355: IF l_enforce_price_tolerance = 'Y' THEN
4356:
4357: IF g_debug_stmt THEN
4358: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4359: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4360: || l_progress,'Doing Price Tolerance check');
4361: END IF;
4362: END IF;
4363: OPEN req_price_tol_cursor(l_line_location_id(shipment_line));

Line 4436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4432: l_req_line_price_pou_base_curr :=
4433: l_req_line_unit_price(req_line) * nvl(l_rate,1);
4434:
4435: IF g_debug_stmt THEN
4436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4438: || l_progress,'POU Func Currency and ROU Func Curr are different'
4439: || ' l_pou_func_curr= '||l_pou_func_curr
4440: || ' l_req_ou_func_curr= ' || l_req_ou_func_curr

Line 4437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4433: l_req_line_unit_price(req_line) * nvl(l_rate,1);
4434:
4435: IF g_debug_stmt THEN
4436: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4437: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4438: || l_progress,'POU Func Currency and ROU Func Curr are different'
4439: || ' l_pou_func_curr= '||l_pou_func_curr
4440: || ' l_req_ou_func_curr= ' || l_req_ou_func_curr
4441: || ' l_req_line_unit_price= ' || l_req_line_unit_price(req_line)

Line 4489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4485: IF l_price_tolerance_allowed <> -1 AND
4486: l_req_line_unit_price(req_line) <> 0 THEN
4487:
4488: IF g_debug_stmt THEN
4489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4490: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4491: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
4492: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
4493: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate

Line 4490: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4486: l_req_line_unit_price(req_line) <> 0 THEN
4487:
4488: IF g_debug_stmt THEN
4489: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4490: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4491: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
4492: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
4493: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate
4494: || ' l_price_tolerance_allowed= ' || l_price_tolerance_allowed);

Line 4590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4586:
4587: --Do price 'not to exceed' amount check
4588: IF l_enforce_price_amount = 'Y' THEN
4589: IF g_debug_stmt THEN
4590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4591: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4592: || l_progress,'Doing Not to exceed amt check');
4593: END IF;
4594: END IF;

Line 4591: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4587: --Do price 'not to exceed' amount check
4588: IF l_enforce_price_amount = 'Y' THEN
4589: IF g_debug_stmt THEN
4590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4591: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4592: || l_progress,'Doing Not to exceed amt check');
4593: END IF;
4594: END IF;
4595:

Line 4697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4693: IF l_amount_tolerance >= 0 AND
4694: l_req_line_unit_price(req_line) <> 0 THEN
4695:
4696: IF g_debug_stmt THEN
4697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4698: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4699: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
4700: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
4701: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate

Line 4698: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'

4694: l_req_line_unit_price(req_line) <> 0 THEN
4695:
4696: IF g_debug_stmt THEN
4697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4698: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || l_api_name||'.'
4699: || l_progress,'l_ship_price_ext_precn= '||l_ship_price_ext_precn
4700: || ' l_req_line_price_ext_precn= ' || l_req_line_price_ext_precn
4701: || ' l_shipment_to_req_rate= ' || l_shipment_to_req_rate
4702: || ' l_po_req_quantity= ' || l_po_req_quantity(req_line)

Line 4780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

4776: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4777: END IF;
4778:
4779: IF (g_debug_unexp) THEN
4780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
4781: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
4782: l_api_name || '.others_exception', 'EXCEPTION: Location is '
4783: || l_progress || ' SQL CODE is '||sqlcode);
4784: END IF;

Line 4781: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

4777: END IF;
4778:
4779: IF (g_debug_unexp) THEN
4780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
4781: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
4782: l_api_name || '.others_exception', 'EXCEPTION: Location is '
4783: || l_progress || ' SQL CODE is '||sqlcode);
4784: END IF;
4785: END IF;

Line 4842: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4838: l_progress := '000';
4839:
4840: l_progress := '001';
4841: IF g_debug_stmt THEN
4842: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4843: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4844: || l_progress,'PO/PA Header 1: Vendor On Hold ');
4845: END IF;
4846: END IF;

Line 4843: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4839:
4840: l_progress := '001';
4841: IF g_debug_stmt THEN
4842: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4843: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4844: || l_progress,'PO/PA Header 1: Vendor On Hold ');
4845: END IF;
4846: END IF;
4847:

Line 4917: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4913: EXCEPTION
4914: WHEN NO_DATA_FOUND THEN
4915: l_progress := '003';
4916: IF g_debug_stmt THEN
4917: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4919: || l_progress,'PO/PA Header 2:System setup check');
4920: END IF;
4921: END IF;

Line 4918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4914: WHEN NO_DATA_FOUND THEN
4915: l_progress := '003';
4916: IF g_debug_stmt THEN
4917: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4918: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4919: || l_progress,'PO/PA Header 2:System setup check');
4920: END IF;
4921: END IF;
4922: -- Check 2: When no rows are returned, its likely that there

Line 4964: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

4960: -- code and sob_currency_code do not match.
4961:
4962: l_progress := '004';
4963: IF g_debug_stmt THEN
4964: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4965: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4966: || l_progress,'PO/PA Header 3: No Vendor');
4967: END IF;
4968: END IF;

Line 4965: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

4961:
4962: l_progress := '004';
4963: IF g_debug_stmt THEN
4964: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4965: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
4966: || l_progress,'PO/PA Header 3: No Vendor');
4967: END IF;
4968: END IF;
4969:

Line 5004: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5000: END IF; --vendor_id
5001:
5002: l_progress := '005';
5003: IF g_debug_stmt THEN
5004: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5005: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5006: || l_progress,'PO/PA Header 4: No Vendor Site');
5007: END IF;
5008: END IF;

Line 5005: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5001:
5002: l_progress := '005';
5003: IF g_debug_stmt THEN
5004: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5005: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5006: || l_progress,'PO/PA Header 4: No Vendor Site');
5007: END IF;
5008: END IF;
5009:

Line 5044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5040: END IF; --vendor_site_id
5041:
5042: l_progress := '006';
5043: IF g_debug_stmt THEN
5044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5046: || l_progress,'PO/PA Header 5: Ship_to_loc_id check ');
5047: END IF;
5048: END IF;

Line 5045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5041:
5042: l_progress := '006';
5043: IF g_debug_stmt THEN
5044: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5046: || l_progress,'PO/PA Header 5: Ship_to_loc_id check ');
5047: END IF;
5048: END IF;
5049:

Line 5134: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5130: END IF; --ship_to_loc_id
5131:
5132: l_progress := '007';
5133: IF g_debug_stmt THEN
5134: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5136: || l_progress,'PO/PA Header 6: Bill_to_loc check');
5137: END IF;
5138: END IF;

Line 5135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5131:
5132: l_progress := '007';
5133: IF g_debug_stmt THEN
5134: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5135: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5136: || l_progress,'PO/PA Header 6: Bill_to_loc check');
5137: END IF;
5138: END IF;
5139:

Line 5222: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5218: END IF; --bill_to_loc_id
5219:
5220: l_progress := '008';
5221: IF g_debug_stmt THEN
5222: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5223: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5224: || l_progress,'PO/PA Header 7: No currency code');
5225: END IF;
5226: END IF;

Line 5223: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5219:
5220: l_progress := '008';
5221: IF g_debug_stmt THEN
5222: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5223: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5224: || l_progress,'PO/PA Header 7: No currency code');
5225: END IF;
5226: END IF;
5227:

Line 5262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5258: END IF; --currency_code
5259:
5260: l_progress := '009';
5261: IF g_debug_stmt THEN
5262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5263: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5264: || l_progress,'PO/PA Header 8: Rate related checks');
5265: END IF;
5266: END IF;

Line 5263: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5259:
5260: l_progress := '009';
5261: IF g_debug_stmt THEN
5262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5263: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5264: || l_progress,'PO/PA Header 8: Rate related checks');
5265: END IF;
5266: END IF;
5267:

Line 5308: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5304: --
5305:
5306: l_progress := '015';
5307: IF g_debug_stmt THEN
5308: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5309: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5310: || l_progress,'PO/PA Header 9: Currency Rate Type');
5311: END IF;
5312: END IF;

Line 5309: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5305:
5306: l_progress := '015';
5307: IF g_debug_stmt THEN
5308: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5309: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5310: || l_progress,'PO/PA Header 9: Currency Rate Type');
5311: END IF;
5312: END IF;
5313:

Line 5365: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5361: --
5362:
5363: l_progress := '020';
5364: IF g_debug_stmt THEN
5365: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5366: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5367: || l_progress,'PO/PA Header 10: Cannot approve documents on hold');
5368: END IF;
5369: END IF;

Line 5366: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5362:
5363: l_progress := '020';
5364: IF g_debug_stmt THEN
5365: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5366: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5367: || l_progress,'PO/PA Header 10: Cannot approve documents on hold');
5368: END IF;
5369: END IF;
5370: -- Check 10: Purchase Order should not be on hold (Bug 3678912)

Line 5564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

5560: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
5561: END IF;
5562:
5563: IF (g_debug_unexp) THEN
5564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
5565: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
5566: l_api_name || '.others_exception', 'EXCEPTION: Location is '
5567: || l_progress || ' SQL CODE is '||sqlcode);
5568: END IF;

Line 5565: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

5561: END IF;
5562:
5563: IF (g_debug_unexp) THEN
5564: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
5565: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
5566: l_api_name || '.others_exception', 'EXCEPTION: Location is '
5567: || l_progress || ' SQL CODE is '||sqlcode);
5568: END IF;
5569: END IF;

Line 5647: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5643: --Removed Update statement to update rate in po_distributions
5644:
5645: l_progress := '001';
5646: IF g_debug_stmt THEN
5647: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5648: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5649: || l_progress,'PO 1: No lines');
5650: END IF;
5651: END IF;

Line 5648: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5644:
5645: l_progress := '001';
5646: IF g_debug_stmt THEN
5647: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5648: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5649: || l_progress,'PO 1: No lines');
5650: END IF;
5651: END IF;
5652:

Line 5694: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5690: --------------------------------------------------
5691:
5692: l_progress := '002';
5693: IF g_debug_stmt THEN
5694: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5696: || l_progress,'PO 2: No shipment ');
5697: END IF;
5698: END IF;

Line 5695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5691:
5692: l_progress := '002';
5693: IF g_debug_stmt THEN
5694: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5695: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5696: || l_progress,'PO 2: No shipment ');
5697: END IF;
5698: END IF;
5699:

Line 5754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5750: -------------------------------------------------
5751:
5752: l_progress := '003';
5753: IF g_debug_stmt THEN
5754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5756: || l_progress,'PO 3: Atleast One dist ');
5757: END IF;
5758: END IF;

Line 5755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5751:
5752: l_progress := '003';
5753: IF g_debug_stmt THEN
5754: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5756: || l_progress,'PO 3: Atleast One dist ');
5757: END IF;
5758: END IF;
5759:

Line 5814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5810: -----------------------------------------------
5811:
5812: l_progress := '004';
5813: IF g_debug_stmt THEN
5814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5816: || l_progress,'PO 4/5: Qty/Amt rollup checks');
5817: END IF;
5818: END IF;

Line 5815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5811:
5812: l_progress := '004';
5813: IF g_debug_stmt THEN
5814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5815: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5816: || l_progress,'PO 4/5: Qty/Amt rollup checks');
5817: END IF;
5818: END IF;
5819:

Line 5838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5834:
5835: -----------------------------------------------
5836: l_progress := '006';
5837: IF g_debug_stmt THEN
5838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5840: || l_progress,'PO 6: Dist rate NULL' );
5841: END IF;
5842: END IF;

Line 5839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5835: -----------------------------------------------
5836: l_progress := '006';
5837: IF g_debug_stmt THEN
5838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5840: || l_progress,'PO 6: Dist rate NULL' );
5841: END IF;
5842: END IF;
5843:

Line 5901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5897: --------------------------------------------
5898:
5899: l_progress := '007';
5900: IF g_debug_stmt THEN
5901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5902: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5903: || l_progress,'PO 7: Dist rate NOT NULL');
5904: END IF;
5905: END IF;

Line 5902: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5898:
5899: l_progress := '007';
5900: IF g_debug_stmt THEN
5901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5902: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5903: || l_progress,'PO 7: Dist rate NOT NULL');
5904: END IF;
5905: END IF;
5906:

Line 5957: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

5953: ----------------------------------------------------
5954:
5955: l_progress := '008';
5956: IF g_debug_stmt THEN
5957: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5958: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5959: || l_progress,'PO 8: Contract Amount exceed check');
5960: END IF;
5961: END IF;

Line 5958: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

5954:
5955: l_progress := '008';
5956: IF g_debug_stmt THEN
5957: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5958: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
5959: || l_progress,'PO 8: Contract Amount exceed check');
5960: END IF;
5961: END IF;
5962:

Line 6016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6012: -------------------------------------------------------------------------------
6013:
6014: l_progress := '009';
6015: IF g_debug_stmt THEN
6016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6017: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6018: || l_progress,'PO 9: Ref to unapproved contract check ');
6019: END IF;
6020: END IF;

Line 6017: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

6013:
6014: l_progress := '009';
6015: IF g_debug_stmt THEN
6016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6017: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6018: || l_progress,'PO 9: Ref to unapproved contract check ');
6019: END IF;
6020: END IF;
6021:

Line 6076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6072: -------------------------------------------------------------------------------
6073:
6074: l_progress := '010';
6075: IF g_debug_stmt THEN
6076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6078: || l_progress,'PO 10: Ref contract diff vendor');
6079: END IF;
6080: END IF;

Line 6077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

6073:
6074: l_progress := '010';
6075: IF g_debug_stmt THEN
6076: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6078: || l_progress,'PO 10: Ref contract diff vendor');
6079: END IF;
6080: END IF;
6081:

Line 6167: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6163: ---------------------------------------
6164:
6165: l_progress := '012';
6166: IF g_debug_stmt THEN
6167: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6168: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6169: || l_progress,'PO 12: UOM Interclass coversions');
6170: END IF;
6171: END IF;

Line 6168: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

6164:
6165: l_progress := '012';
6166: IF g_debug_stmt THEN
6167: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6168: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6169: || l_progress,'PO 12: UOM Interclass coversions');
6170: END IF;
6171: END IF;
6172:

Line 6225: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6221: --------------------------------------------------
6222:
6223: l_progress := '013';
6224: IF g_debug_stmt THEN
6225: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6226: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6227: || l_progress,'PO 13: Item restricyed');
6228: END IF;
6229: END IF;

Line 6226: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

6222:
6223: l_progress := '013';
6224: IF g_debug_stmt THEN
6225: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6226: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6227: || l_progress,'PO 13: Item restricyed');
6228: END IF;
6229: END IF;
6230:

Line 6370: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6366: -------------------------------------------------------------------------------
6367:
6368: l_progress := '014';
6369: IF g_debug_stmt THEN
6370: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6371: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6372: || l_progress,'PO 14: ASL Debarred');
6373: END IF;
6374: END IF;

Line 6371: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

6367:
6368: l_progress := '014';
6369: IF g_debug_stmt THEN
6370: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6371: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6372: || l_progress,'PO 14: ASL Debarred');
6373: END IF;
6374: END IF;
6375:

Line 6462: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6458:
6459: l_progress := '015';
6460:
6461: IF g_debug_stmt THEN
6462: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6463: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6464: l_api_name||'.' || l_progress,
6465: 'PO 15: Contract ref on hold');
6466: END IF;

Line 6463: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6459: l_progress := '015';
6460:
6461: IF g_debug_stmt THEN
6462: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6463: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6464: l_api_name||'.' || l_progress,
6465: 'PO 15: Contract ref on hold');
6466: END IF;
6467: END IF;

Line 6518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6514: /* Commented the validation of checking for the contract start date.
6515: l_progress := '016';
6516:
6517: IF g_debug_stmt THEN
6518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6519: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6520: l_api_name||'.' || l_progress,
6521: 'PO 16: Contract ref effective dates');
6522: END IF;

Line 6519: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6515: l_progress := '016';
6516:
6517: IF g_debug_stmt THEN
6518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6519: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6520: l_api_name||'.' || l_progress,
6521: 'PO 16: Contract ref effective dates');
6522: END IF;
6523: END IF;

Line 6575: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6571: -----------------------------------------------------------------------------
6572: l_progress := '017';
6573:
6574: IF g_debug_stmt THEN
6575: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6576: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6577: l_api_name||'.' || l_progress,
6578: 'PO 17: ATO/CTO Model items not allowed on POs');
6579: END IF;

Line 6576: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6572: l_progress := '017';
6573:
6574: IF g_debug_stmt THEN
6575: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6576: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6577: l_api_name||'.' || l_progress,
6578: 'PO 17: ATO/CTO Model items not allowed on POs');
6579: END IF;
6580: END IF;

Line 6635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6631: /*Start Bug #3512688 */
6632: /* Check 18 : To check the validity of the item at line level for newly added line */
6633: l_progress := '018';
6634: IF g_debug_stmt THEN
6635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6636: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6637: l_api_name||'.' || l_progress,
6638: 'PO 18: Non Purchasable Item is not allowed');
6639: END IF;

Line 6636: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6632: /* Check 18 : To check the validity of the item at line level for newly added line */
6633: l_progress := '018';
6634: IF g_debug_stmt THEN
6635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6636: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6637: l_api_name||'.' || l_progress,
6638: 'PO 18: Non Purchasable Item is not allowed');
6639: END IF;
6640: END IF;

Line 6683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6679:
6680: -----------------------5601 /* Check 19 : To check the validity of the item at shipment level for newly added line */
6681: l_progress := '019';
6682: IF g_debug_stmt THEN
6683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6685: l_api_name||'.' || l_progress,
6686: 'PO 19: Non Purchasable Item is not allowed'); END IF;
6687: END IF;

Line 6684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6680: -----------------------5601 /* Check 19 : To check the validity of the item at shipment level for newly added line */
6681: l_progress := '019';
6682: IF g_debug_stmt THEN
6683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6685: l_api_name||'.' || l_progress,
6686: 'PO 19: Non Purchasable Item is not allowed'); END IF;
6687: END IF;
6688: l_textline := FND_MESSAGE.GET_STRING('PO', 'PO_ALL_NO_ITEM');

Line 6739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6735:
6736: l_progress := '020';
6737:
6738: IF g_debug_stmt THEN
6739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6740: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6741: l_api_name||'.' || l_progress,
6742: 'PO 20: Either Promised/Need by date required for planned items');
6743: END IF;

Line 6740: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6736: l_progress := '020';
6737:
6738: IF g_debug_stmt THEN
6739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6740: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6741: l_api_name||'.' || l_progress,
6742: 'PO 20: Either Promised/Need by date required for planned items');
6743: END IF;
6744: END IF;

Line 6808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

6804: --Added a new submission check to validate the
6805: --ship to location at the shipment level.
6806:
6807: IF g_debug_stmt THEN
6808: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
6809: || l_progress,'PO : Invalid Ship To Locations');
6810: END IF;
6811:
6812: SELECT pol.line_num,

Line 6886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6882: p_po_release_id => NULL,
6883: p_req_header_id => NULL);
6884: l_progress := '022';
6885: IF g_debug_stmt THEN
6886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.' ||
6888: l_progress, 'PO 21: Recalculate tax before approval = ' || l_tax_status);
6889: END IF;
6890: END IF;

Line 6887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.' ||

6883: p_req_header_id => NULL);
6884: l_progress := '022';
6885: IF g_debug_stmt THEN
6886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||l_api_name||'.' ||
6888: l_progress, 'PO 21: Recalculate tax before approval = ' || l_tax_status);
6889: END IF;
6890: END IF;
6891:

Line 6894: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6890: END IF;
6891:
6892: IF l_tax_status = 'Y' THEN
6893: IF g_debug_stmt THEN
6894: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6895: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
6896: l_api_name||'.' || l_progress,
6897: 'PO 22: Calculate tax as the current one is not correct');
6898: END IF;

Line 6895: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||

6891:
6892: IF l_tax_status = 'Y' THEN
6893: IF g_debug_stmt THEN
6894: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6895: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
6896: l_api_name||'.' || l_progress,
6897: 'PO 22: Calculate tax as the current one is not correct');
6898: END IF;
6899: END IF;

Line 6908: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6904: p_calling_program => g_action_DOC_SUBMISSION_CHECK);
6905:
6906: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6907: IF g_debug_stmt THEN
6908: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6909: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
6910: l_api_name||'.' || l_progress,
6911: 'PO 23: Calculate tax has errored out');
6912: END IF;

Line 6909: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||

6905:
6906: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6907: IF g_debug_stmt THEN
6908: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6909: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
6910: l_api_name||'.' || l_progress,
6911: 'PO 23: Calculate tax has errored out');
6912: END IF;
6913: END IF;

Line 6951: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6947: );
6948: l_progress := '024';
6949: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6950: IF g_debug_stmt THEN
6951: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6952: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
6953: l_api_name||'.' || l_progress,
6954: 'PO 24: Calculate tax raised unexpected error');
6955: END IF;

Line 6952: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||

6948: l_progress := '024';
6949: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6950: IF g_debug_stmt THEN
6951: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6952: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head ||
6953: l_api_name||'.' || l_progress,
6954: 'PO 24: Calculate tax raised unexpected error');
6955: END IF;
6956: END IF;

Line 6980: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

6976:
6977: l_progress := '026';
6978:
6979: IF g_debug_stmt THEN
6980: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6982: l_api_name||'.' || l_progress,
6983: 'PO 25: A VMI relationship exists for this item');
6984: END IF;

Line 6981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

6977: l_progress := '026';
6978:
6979: IF g_debug_stmt THEN
6980: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
6981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
6982: l_api_name||'.' || l_progress,
6983: 'PO 25: A VMI relationship exists for this item');
6984: END IF;
6985: END IF;

Line 7070: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7066: -------------------------------------------------------------------------
7067:
7068: l_progress := '027';
7069: IF g_debug_stmt THEN
7070: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7071: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7072: l_api_name||'.' || l_progress,
7073: 'PO 23: Validate OKE Contract Details');
7074: END IF;

Line 7071: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

7067:
7068: l_progress := '027';
7069: IF g_debug_stmt THEN
7070: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7071: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7072: l_api_name||'.' || l_progress,
7073: 'PO 23: Validate OKE Contract Details');
7074: END IF;
7075: END IF;

Line 7220: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7216:
7217: ----------------------------------------------------------------------------
7218: l_progress := '028';
7219: IF g_debug_stmt THEN
7220: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7222: l_api_name||'.' || l_progress,'PO 24: Validate the LCM enabled PO to check whether its invoice match option is set as Receipt');
7223: END IF;
7224: END IF;

Line 7221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

7217: ----------------------------------------------------------------------------
7218: l_progress := '028';
7219: IF g_debug_stmt THEN
7220: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7221: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7222: l_api_name||'.' || l_progress,'PO 24: Validate the LCM enabled PO to check whether its invoice match option is set as Receipt');
7223: END IF;
7224: END IF;
7225: -- Check 24: Validate the LCM enabled PO to check whether its invoice match option is set as 'Receipt'.

Line 7267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7263: -----------------------------------------------------------------------------------
7264:
7265: l_progress := '029';
7266: IF g_debug_stmt THEN
7267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7269: l_api_name||'.' || l_progress,'PO 25: Validate the LCM enabled PO to check whether its destination type is set as Inventory');
7270:
7271: END IF;

Line 7268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

7264:
7265: l_progress := '029';
7266: IF g_debug_stmt THEN
7267: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7268: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7269: l_api_name||'.' || l_progress,'PO 25: Validate the LCM enabled PO to check whether its destination type is set as Inventory');
7270:
7271: END IF;
7272:

Line 7334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

7330: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7331: END IF;
7332:
7333: IF (g_debug_unexp) THEN
7334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7335: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7336: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7337: || l_progress || ' SQL CODE is '||sqlcode);
7338: END IF;

Line 7335: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

7331: END IF;
7332:
7333: IF (g_debug_unexp) THEN
7334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7335: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7336: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7337: || l_progress || ' SQL CODE is '||sqlcode);
7338: END IF;
7339: END IF;

Line 7377: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7373: l_progress := '000';
7374:
7375: l_progress := '001';
7376: IF g_debug_stmt THEN
7377: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7378: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7379: || l_progress,
7380: 'PA/PO BLANKET/PLANNED 1: Amount agreed greater than Amount limit');
7381: END IF;

Line 7378: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7374:
7375: l_progress := '001';
7376: IF g_debug_stmt THEN
7377: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7378: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7379: || l_progress,
7380: 'PA/PO BLANKET/PLANNED 1: Amount agreed greater than Amount limit');
7381: END IF;
7382: END IF;

Line 7426: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7422: ------------------------------------------
7423:
7424: l_progress := '002';
7425: IF g_debug_stmt THEN
7426: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7427: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7428: || l_progress,
7429: 'PA/PO BLANKET/PLANNED 2: Min Rel Amount greater than Amount limit');
7430: END IF;

Line 7427: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7423:
7424: l_progress := '002';
7425: IF g_debug_stmt THEN
7426: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7427: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7428: || l_progress,
7429: 'PA/PO BLANKET/PLANNED 2: Min Rel Amount greater than Amount limit');
7430: END IF;
7431: END IF;

Line 7475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7471: ------------------------------------------
7472:
7473: l_progress := '003';
7474: IF g_debug_stmt THEN
7475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7477: || l_progress,
7478: 'PA/PO BLANKET/PLANNED 3: Amount released greater than Amount limit');
7479: END IF;

Line 7476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7472:
7473: l_progress := '003';
7474: IF g_debug_stmt THEN
7475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7477: || l_progress,
7478: 'PA/PO BLANKET/PLANNED 3: Amount released greater than Amount limit');
7479: END IF;
7480: END IF;

Line 7569: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7565:
7566:
7567: l_progress := '004';
7568: IF g_debug_stmt THEN
7569: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7570: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7571: || l_progress,
7572: 'PA/PO BLANKET/PLANNED 4: Price Limit less than Line Price');
7573: END IF;

Line 7570: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7566:
7567: l_progress := '004';
7568: IF g_debug_stmt THEN
7569: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7570: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7571: || l_progress,
7572: 'PA/PO BLANKET/PLANNED 4: Price Limit less than Line Price');
7573: END IF;
7574: END IF;

Line 7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

7640: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7641: END IF;
7642:
7643: IF (g_debug_unexp) THEN
7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7645: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7646: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7647: || l_progress || ' SQL CODE is '||sqlcode);
7648: END IF;

Line 7645: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

7641: END IF;
7642:
7643: IF (g_debug_unexp) THEN
7644: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7645: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7646: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7647: || l_progress || ' SQL CODE is '||sqlcode);
7648: END IF;
7649: END IF;

Line 7688: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7684: l_progress := '000';
7685:
7686: l_progress := '001';
7687: IF g_debug_stmt THEN
7688: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7689: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7690: || l_progress,'PA BLANKET 1: No lines');
7691: END IF;
7692: END IF;

Line 7689: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

7685:
7686: l_progress := '001';
7687: IF g_debug_stmt THEN
7688: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7689: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
7690: || l_progress,'PA BLANKET 1: No lines');
7691: END IF;
7692: END IF;
7693:

Line 7780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7776: /* Start bug #3512688*/
7777: /* Check 05 : To check the validity of the item at line level for newly added line */
7778: l_progress := '04';
7779: IF g_debug_stmt THEN
7780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7781: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7782: l_api_name||'.' || l_progress,
7783: 'PO 04: Non Purchasable Item is not allowed');
7784: END IF;

Line 7781: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

7777: /* Check 05 : To check the validity of the item at line level for newly added line */
7778: l_progress := '04';
7779: IF g_debug_stmt THEN
7780: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7781: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7782: l_api_name||'.' || l_progress,
7783: 'PO 04: Non Purchasable Item is not allowed');
7784: END IF;
7785: END IF;

Line 7835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7831: of the header and before the expiration date of the line.*/
7832:
7833: l_progress := '06';
7834: IF g_debug_stmt THEN
7835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7837: l_api_name||'.' || l_progress,
7838: 'BPA 06: Checking price breaks effective date range');
7839: END IF;

Line 7836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

7832:
7833: l_progress := '06';
7834: IF g_debug_stmt THEN
7835: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7836: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7837: l_api_name||'.' || l_progress,
7838: 'BPA 06: Checking price breaks effective date range');
7839: END IF;
7840: END IF;

Line 7924: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

7920: of the header.*/
7921:
7922: l_progress := '07';
7923: IF g_debug_stmt THEN
7924: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7925: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7926: l_api_name||'.' || l_progress,
7927: 'BPA 07: Checking the lines expiration date');
7928: END IF;

Line 7925: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

7921:
7922: l_progress := '07';
7923: IF g_debug_stmt THEN
7924: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
7925: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
7926: l_api_name||'.' || l_progress,
7927: 'BPA 07: Checking the lines expiration date');
7928: END IF;
7929: END IF;

Line 7982: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

7978: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
7979: END IF;
7980:
7981: IF (g_debug_unexp) THEN
7982: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7983: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7984: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7985: || l_progress || ' SQL CODE is '||sqlcode);
7986: END IF;

Line 7983: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

7979: END IF;
7980:
7981: IF (g_debug_unexp) THEN
7982: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
7983: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
7984: l_api_name || '.others_exception', 'EXCEPTION: Location is '
7985: || l_progress || ' SQL CODE is '||sqlcode);
7986: END IF;
7987: END IF;

Line 8062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8058:
8059: IF l_is_ga_referenced = 'Y' THEN
8060: l_progress := '001';
8061: IF g_debug_stmt THEN
8062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8063: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8064: || l_progress,'PO STD: GA is referenced. Call GA checks');
8065: END IF;
8066: END IF;

Line 8063: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8059: IF l_is_ga_referenced = 'Y' THEN
8060: l_progress := '001';
8061: IF g_debug_stmt THEN
8062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8063: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8064: || l_progress,'PO STD: GA is referenced. Call GA checks');
8065: END IF;
8066: END IF;
8067:

Line 8142: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

8138: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8139: END IF;
8140:
8141: IF (g_debug_unexp) THEN
8142: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8143: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
8144: l_api_name || '.others_exception', 'EXCEPTION: Location is '
8145: || l_progress || ' SQL CODE is '||sqlcode);
8146: END IF;

Line 8143: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

8139: END IF;
8140:
8141: IF (g_debug_unexp) THEN
8142: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8143: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
8144: l_api_name || '.others_exception', 'EXCEPTION: Location is '
8145: || l_progress || ' SQL CODE is '||sqlcode);
8146: END IF;
8147: END IF;

Line 8221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8217: BEGIN
8218:
8219: l_progress := '000';
8220: IF g_debug_stmt THEN
8221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8222: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8223: || l_progress,
8224: 'PO STD CONSIGNED 1: Doc Ref and Consigned ship cannot coexist');
8225: END IF;

Line 8222: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8218:
8219: l_progress := '000';
8220: IF g_debug_stmt THEN
8221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8222: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8223: || l_progress,
8224: 'PO STD CONSIGNED 1: Doc Ref and Consigned ship cannot coexist');
8225: END IF;
8226: END IF;

Line 8286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8282: --------------------------------------
8283:
8284: l_progress := '002';
8285: IF g_debug_stmt THEN
8286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8288: || l_progress,
8289: 'PO STD CONSIGNED 2: Consigned status on shipments and ASL must match');
8290: END IF;

Line 8287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8283:
8284: l_progress := '002';
8285: IF g_debug_stmt THEN
8286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8288: || l_progress,
8289: 'PO STD CONSIGNED 2: Consigned status on shipments and ASL must match');
8290: END IF;
8291: END IF;

Line 8471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

8467: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
8468: END IF;
8469:
8470: IF (g_debug_unexp) THEN
8471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8472: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
8473: l_api_name || '.others_exception', 'EXCEPTION: Location is '
8474: || l_progress || ' SQL CODE is '||sqlcode);
8475: END IF;

Line 8472: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

8468: END IF;
8469:
8470: IF (g_debug_unexp) THEN
8471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
8472: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
8473: l_api_name || '.others_exception', 'EXCEPTION: Location is '
8474: || l_progress || ' SQL CODE is '||sqlcode);
8475: END IF;
8476: END IF;

Line 8529: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8525: l_progress := '000';
8526:
8527: l_progress := '001';
8528: IF g_debug_stmt THEN
8529: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8530: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8531: || l_progress,'PO STD GA 1: GA enabled in current OU');
8532: END IF;
8533: END IF;

Line 8530: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8526:
8527: l_progress := '001';
8528: IF g_debug_stmt THEN
8529: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8530: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8531: || l_progress,'PO STD GA 1: GA enabled in current OU');
8532: END IF;
8533: END IF;
8534:

Line 8595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8591:
8592: -----------------------------
8593: l_progress := '002';
8594: IF g_debug_stmt THEN
8595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8597: || l_progress,'PO STD GA 2: Ref GA approved');
8598: END IF;
8599: END IF;

Line 8596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8592: -----------------------------
8593: l_progress := '002';
8594: IF g_debug_stmt THEN
8595: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8596: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8597: || l_progress,'PO STD GA 2: Ref GA approved');
8598: END IF;
8599: END IF;
8600:

Line 8656: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8652: --------------------------------------
8653:
8654: l_progress := '003';
8655: IF g_debug_stmt THEN
8656: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8657: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8658: || l_progress,'PO STD GA 3: Ref GA ON HOLD');
8659: END IF;
8660: END IF;

Line 8657: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8653:
8654: l_progress := '003';
8655: IF g_debug_stmt THEN
8656: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8657: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8658: || l_progress,'PO STD GA 3: Ref GA ON HOLD');
8659: END IF;
8660: END IF;
8661:

Line 8716: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8712: -- Re-numbered checks 4-10 accordingly.
8713:
8714: l_progress := '004';
8715: IF g_debug_stmt THEN
8716: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8717: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8718: || l_progress,'PO STD GA 4: Vendor match check');
8719: END IF;
8720: END IF;

Line 8717: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8713:
8714: l_progress := '004';
8715: IF g_debug_stmt THEN
8716: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8717: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8718: || l_progress,'PO STD GA 4: Vendor match check');
8719: END IF;
8720: END IF;
8721:

Line 8767: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8763: -------------------------------------
8764:
8765: l_progress := '005';
8766: IF g_debug_stmt THEN
8767: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8768: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8769: || l_progress,'PO STD GA 5: Vendor Site match check');
8770: END IF;
8771: END IF;

Line 8768: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8764:
8765: l_progress := '005';
8766: IF g_debug_stmt THEN
8767: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8768: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8769: || l_progress,'PO STD GA 5: Vendor Site match check');
8770: END IF;
8771: END IF;
8772:

Line 8834: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8830: ---------------------------------------
8831:
8832: l_progress := '006';
8833: IF g_debug_stmt THEN
8834: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8835: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8836: || l_progress,'PO STD GA 6: Creation date check on header');
8837: END IF;
8838: END IF;

Line 8835: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8831:
8832: l_progress := '006';
8833: IF g_debug_stmt THEN
8834: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8835: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8836: || l_progress,'PO STD GA 6: Creation date check on header');
8837: END IF;
8838: END IF;
8839:

Line 8890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8886:
8887: ------------------------------------
8888: l_progress := '007';
8889: IF g_debug_stmt THEN
8890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8891: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8892: || l_progress,'PO STD GA 7: Need-by-date and Creation date check');
8893: END IF;
8894: END IF;

Line 8891: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8887: ------------------------------------
8888: l_progress := '007';
8889: IF g_debug_stmt THEN
8890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8891: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8892: || l_progress,'PO STD GA 7: Need-by-date and Creation date check');
8893: END IF;
8894: END IF;
8895:

Line 8944: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

8940:
8941: ---------------------------------
8942: l_progress := '008';
8943: IF g_debug_stmt THEN
8944: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8945: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8946: || l_progress,'PO STD GA 8: Currency code mismatch');
8947: END IF;
8948: END IF;

Line 8945: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

8941: ---------------------------------
8942: l_progress := '008';
8943: IF g_debug_stmt THEN
8944: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
8945: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
8946: || l_progress,'PO STD GA 8: Currency code mismatch');
8947: END IF;
8948: END IF;
8949:

Line 9016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9012:
9013: l_progress := '009';
9014:
9015: IF g_debug_stmt THEN
9016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9017: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9018: || l_progress,'PO STD GA 9: Amt limit check for GA header');
9019: END IF;
9020: END IF;

Line 9017: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9013: l_progress := '009';
9014:
9015: IF g_debug_stmt THEN
9016: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9017: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9018: || l_progress,'PO STD GA 9: Amt limit check for GA header');
9019: END IF;
9020: END IF;
9021:

Line 9168: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9164: IF (NOT l_currency_mismatch) THEN
9165:
9166: l_progress := '010';
9167: IF g_debug_stmt THEN
9168: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9169: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9170: || l_progress,'PO STD GA 10: Price Tolerance check');
9171: END IF;
9172: END IF;

Line 9169: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9165:
9166: l_progress := '010';
9167: IF g_debug_stmt THEN
9168: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9169: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9170: || l_progress,'PO STD GA 10: Price Tolerance check');
9171: END IF;
9172: END IF;
9173:

Line 9259: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9255: IF (NOT l_currency_mismatch) THEN
9256:
9257: l_progress := '011';
9258: IF g_debug_stmt THEN
9259: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9260: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9261: || l_progress,'PO STD GA 11: Min Release Amount at line level check');
9262: END IF;
9263: END IF;

Line 9260: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9256:
9257: l_progress := '011';
9258: IF g_debug_stmt THEN
9259: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9260: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9261: || l_progress,'PO STD GA 11: Min Release Amount at line level check');
9262: END IF;
9263: END IF;
9264:

Line 9356: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

9352: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9353: END IF;
9354:
9355: IF (g_debug_unexp) THEN
9356: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9357: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
9358: l_api_name || '.others_exception', 'EXCEPTION: Location is '
9359: || l_progress || ' SQL CODE is '||sqlcode);
9360: END IF;

Line 9357: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

9353: END IF;
9354:
9355: IF (g_debug_unexp) THEN
9356: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9357: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
9358: l_api_name || '.others_exception', 'EXCEPTION: Location is '
9359: || l_progress || ' SQL CODE is '||sqlcode);
9360: END IF;
9361: END IF;

Line 9411: l_module FND_LOG_MESSAGES.module%TYPE;

9407: l_rowcount NUMBER := 0;
9408: l_po_amount NumTab;
9409: l_prev_rel_amount NumTab;
9410: l_amount_limit NumTab;
9411: l_module FND_LOG_MESSAGES.module%TYPE;
9412: BEGIN
9413:
9414: l_progress := '010';
9415: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;

Line 9418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9414: l_progress := '010';
9415: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
9416:
9417: IF g_debug_stmt THEN
9418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9419: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9420: 'PO STD GC 1: GC enabled for purchasing in current OU');
9421: END IF;
9422: END IF;

Line 9419: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

9415: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
9416:
9417: IF g_debug_stmt THEN
9418: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9419: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9420: 'PO STD GC 1: GC enabled for purchasing in current OU');
9421: END IF;
9422: END IF;
9423:

Line 9488: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9484: l_progress := '020';
9485: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
9486:
9487: IF g_debug_stmt THEN
9488: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9489: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9490: 'PO STD GC 2: supplier site en for pur in current OU');
9491: END IF;
9492: END IF;

Line 9489: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

9485: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
9486:
9487: IF g_debug_stmt THEN
9488: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9489: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9490: 'PO STD GC 2: supplier site en for pur in current OU');
9491: END IF;
9492: END IF;
9493:

Line 9560: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9556: l_progress := '030';
9557: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
9558:
9559: IF g_debug_stmt THEN
9560: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9561: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9562: 'PO STD GC 3: currency check against referenced GC');
9563: END IF;
9564: END IF;

Line 9561: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

9557: l_module := g_log_head || '.' || l_api_name || '.' || l_progress;
9558:
9559: IF g_debug_stmt THEN
9560: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9561: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9562: 'PO STD GC 3: currency check against referenced GC');
9563: END IF;
9564: END IF;
9565:

Line 9677: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9673: END LOOP;
9674: END LOOP;
9675:
9676: IF g_debug_stmt THEN
9677: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9678: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9679: 'PO STD GC 3: Amount Released Check');
9680: END IF;
9681: END IF;

Line 9678: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,

9674: END LOOP;
9675:
9676: IF g_debug_stmt THEN
9677: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9678: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
9679: 'PO STD GC 3: Amount Released Check');
9680: END IF;
9681: END IF;
9682:

Line 9747: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

9743: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9744: END IF;
9745:
9746: IF (g_debug_unexp) THEN
9747: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9748: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
9749: l_api_name || '.others_exception', 'EXCEPTION: Location is '
9750: || l_progress || ' SQL CODE is '||sqlcode);
9751: END IF;

Line 9748: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

9744: END IF;
9745:
9746: IF (g_debug_unexp) THEN
9747: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9748: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
9749: l_api_name || '.others_exception', 'EXCEPTION: Location is '
9750: || l_progress || ' SQL CODE is '||sqlcode);
9751: END IF;
9752: END IF;

Line 9794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9790: l_progress := '000';
9791:
9792: l_progress := '001';
9793: IF g_debug_stmt THEN
9794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9795: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9796: || l_progress,'PA CONTRACT 1: Released Amount exceeds Amount Limit');
9797: END IF;
9798: END IF;

Line 9795: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9791:
9792: l_progress := '001';
9793: IF g_debug_stmt THEN
9794: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9795: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9796: || l_progress,'PA CONTRACT 1: Released Amount exceeds Amount Limit');
9797: END IF;
9798: END IF;
9799:

Line 9886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

9882: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
9883: END IF;
9884:
9885: IF (g_debug_unexp) THEN
9886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9887: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
9888: l_api_name || '.others_exception', 'EXCEPTION: Location is '
9889: || l_progress || ' SQL CODE is '||sqlcode);
9890: END IF;

Line 9887: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

9883: END IF;
9884:
9885: IF (g_debug_unexp) THEN
9886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
9887: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
9888: l_api_name || '.others_exception', 'EXCEPTION: Location is '
9889: || l_progress || ' SQL CODE is '||sqlcode);
9890: END IF;
9891: END IF;

Line 9937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9933: BEGIN
9934:
9935: l_progress := '000';
9936: IF g_debug_stmt THEN
9937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9939: || l_progress,'CBC 1: Check CBC');
9940: END IF;
9941: END IF;

Line 9938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9934:
9935: l_progress := '000';
9936: IF g_debug_stmt THEN
9937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9938: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9939: || l_progress,'CBC 1: Check CBC');
9940: END IF;
9941: END IF;
9942:

Line 9958: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9954: END IF;
9955:
9956: l_progress := '001';
9957: IF g_debug_stmt THEN
9958: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9959: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9960: || l_progress,'Is CBC enabled '|| l_cbc_enabled);
9961: END IF;
9962: END IF;

Line 9959: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9955:
9956: l_progress := '001';
9957: IF g_debug_stmt THEN
9958: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9959: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9960: || l_progress,'Is CBC enabled '|| l_cbc_enabled);
9961: END IF;
9962: END IF;
9963:

Line 9980: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

9976: p_document_sub_type => p_document_subtype);
9977:
9978: l_progress := '002';
9979: IF g_debug_stmt THEN
9980: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9982: || l_progress,'CBC call returned '|| l_return_status);
9983: END IF;
9984: END IF;

Line 9981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

9977:
9978: l_progress := '002';
9979: IF g_debug_stmt THEN
9980: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
9981: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
9982: || l_progress,'CBC call returned '|| l_return_status);
9983: END IF;
9984: END IF;
9985:

Line 10049: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

10045: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10046: END IF;
10047:
10048: IF (g_debug_unexp) THEN
10049: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10050: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10051: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10052: || l_progress || ' SQL CODE is '||sqlcode);
10053: END IF;

Line 10050: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

10046: END IF;
10047:
10048: IF (g_debug_unexp) THEN
10049: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10050: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10051: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10052: || l_progress || ' SQL CODE is '||sqlcode);
10053: END IF;
10054: END IF;

Line 10162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10158: IF p_doc_type = 'REQUISITION' THEN
10159:
10160: l_progress := '001';
10161: IF g_debug_stmt THEN
10162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10163: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10164: || l_progress,'Populating from REQS');
10165: END IF;
10166: END IF;

Line 10163: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10159:
10160: l_progress := '001';
10161: IF g_debug_stmt THEN
10162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10163: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10164: || l_progress,'Populating from REQS');
10165: END IF;
10166: END IF;
10167:

Line 10186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10182:
10183: ELSIF p_doc_type in ('PO', 'PA') THEN
10184: l_progress := '004';
10185: IF g_debug_stmt THEN
10186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10187: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10188: || l_progress,'Populating from PO tables for PO/PA');
10189: END IF;
10190: END IF;

Line 10187: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10183: ELSIF p_doc_type in ('PO', 'PA') THEN
10184: l_progress := '004';
10185: IF g_debug_stmt THEN
10186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10187: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10188: || l_progress,'Populating from PO tables for PO/PA');
10189: END IF;
10190: END IF;
10191:

Line 10219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10215:
10216: ELSIF p_doc_type = 'RELEASE' THEN
10217: l_progress := '008';
10218: IF g_debug_stmt THEN
10219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10220: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10221: || l_progress,'Populating RELEASES');
10222: END IF;
10223: END IF;

Line 10220: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10216: ELSIF p_doc_type = 'RELEASE' THEN
10217: l_progress := '008';
10218: IF g_debug_stmt THEN
10219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10220: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10221: || l_progress,'Populating RELEASES');
10222: END IF;
10223: END IF;
10224:

Line 10301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

10297: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10298: END IF;
10299:
10300: IF (g_debug_unexp) THEN
10301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10302: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10303: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10304: || l_progress || ' SQL CODE is '||sqlcode);
10305: END IF;

Line 10302: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

10298: END IF;
10299:
10300: IF (g_debug_unexp) THEN
10301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10302: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10303: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10304: || l_progress || ' SQL CODE is '||sqlcode);
10305: END IF;
10306: END IF;

Line 10354: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10350:
10351: IF p_requested_changes.line_changes IS NOT NULL THEN
10352: l_progress := '001';
10353: IF g_debug_stmt THEN
10354: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10355: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10356: || l_progress,'Making Line Chnages');
10357: END IF;
10358: END IF;

Line 10355: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10351: IF p_requested_changes.line_changes IS NOT NULL THEN
10352: l_progress := '001';
10353: IF g_debug_stmt THEN
10354: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10355: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10356: || l_progress,'Making Line Chnages');
10357: END IF;
10358: END IF;
10359: -- SQL What: Updating the changeable quantities with either passed

Line 10403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10399:
10400: IF p_requested_changes.shipment_changes IS NOT NULL THEN
10401: l_progress := '003';
10402: IF g_debug_stmt THEN
10403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10405: || l_progress,'Making Shipment chanbges');
10406: END IF;
10407: END IF;

Line 10404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10400: IF p_requested_changes.shipment_changes IS NOT NULL THEN
10401: l_progress := '003';
10402: IF g_debug_stmt THEN
10403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10405: || l_progress,'Making Shipment chanbges');
10406: END IF;
10407: END IF;
10408: -- SQL What: Updating the changeable quantities with either passed

Line 10776: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10772:
10773: IF p_requested_changes.distribution_changes IS NOT NULL THEN
10774: l_progress := '005';
10775: IF g_debug_stmt THEN
10776: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10777: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10778: || l_progress,'Making Distribution changes');
10779: END IF;
10780: END IF;

Line 10777: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10773: IF p_requested_changes.distribution_changes IS NOT NULL THEN
10774: l_progress := '005';
10775: IF g_debug_stmt THEN
10776: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10777: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10778: || l_progress,'Making Distribution changes');
10779: END IF;
10780: END IF;
10781: -- SQL What: Updating the changeable quantities with either passed

Line 10814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

10810: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
10811: END IF;
10812:
10813: IF (g_debug_unexp) THEN
10814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10815: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10816: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10817: || l_progress || ' SQL CODE is '||sqlcode);
10818: END IF;

Line 10815: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

10811: END IF;
10812:
10813: IF (g_debug_unexp) THEN
10814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
10815: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
10816: l_api_name || '.others_exception', 'EXCEPTION: Location is '
10817: || l_progress || ' SQL CODE is '||sqlcode);
10818: END IF;
10819: END IF;

Line 10845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

10841: BEGIN
10842:
10843: l_progress := '000';
10844: IF g_debug_stmt THEN
10845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10847: || l_progress,'Populate HEADERS');
10848: END IF;
10849: END IF;

Line 10846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

10842:
10843: l_progress := '000';
10844: IF g_debug_stmt THEN
10845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
10846: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
10847: || l_progress,'Populate HEADERS');
10848: END IF;
10849: END IF;
10850:

Line 11131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11127: SELECT po_header_id, segment1 into t_po_header_id, t_segment1
11128: from po_headers_gt where po_header_id = p_document_id;
11129:
11130: IF g_debug_stmt THEN
11131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11132: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11133: || l_progress,'HEADER ' || to_char(t_po_header_id) ||
11134: 'PO NUM ' || t_segment1);
11135: END IF;

Line 11132: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11128: from po_headers_gt where po_header_id = p_document_id;
11129:
11130: IF g_debug_stmt THEN
11131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11132: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11133: || l_progress,'HEADER ' || to_char(t_po_header_id) ||
11134: 'PO NUM ' || t_segment1);
11135: END IF;
11136: END IF;

Line 11155: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11151: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11152: END IF;
11153:
11154: IF (g_debug_unexp) THEN
11155: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11156: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11157: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11158: || l_progress || ' SQL CODE is '||sqlcode);
11159: END IF;

Line 11156: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11152: END IF;
11153:
11154: IF (g_debug_unexp) THEN
11155: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11156: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11157: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11158: || l_progress || ' SQL CODE is '||sqlcode);
11159: END IF;
11160: END IF;

Line 11213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11209:
11210: l_progress := '000';
11211:
11212: IF g_debug_stmt THEN
11213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11215: || l_progress,'Popluate LINES');
11216: END IF;
11217: END IF;

Line 11214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11210: l_progress := '000';
11211:
11212: IF g_debug_stmt THEN
11213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11215: || l_progress,'Popluate LINES');
11216: END IF;
11217: END IF;
11218:

Line 11507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11503: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11504: END IF;
11505:
11506: IF (g_debug_unexp) THEN
11507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11508: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11509: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11510: || l_progress || ' SQL CODE is '||sqlcode);
11511: END IF;

Line 11508: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11504: END IF;
11505:
11506: IF (g_debug_unexp) THEN
11507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11508: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11509: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11510: || l_progress || ' SQL CODE is '||sqlcode);
11511: END IF;
11512: END IF;

Line 11536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11532:
11533: BEGIN
11534: l_progress := '000';
11535: IF g_debug_stmt THEN
11536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11538: || l_progress,'Populate PO Releases');
11539: END IF;
11540: END IF;

Line 11537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11533: BEGIN
11534: l_progress := '000';
11535: IF g_debug_stmt THEN
11536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11537: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11538: || l_progress,'Populate PO Releases');
11539: END IF;
11540: END IF;
11541:

Line 11735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11731: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11732: END IF;
11733:
11734: IF (g_debug_unexp) THEN
11735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11736: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11737: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11738: || l_progress || ' SQL CODE is '||sqlcode);
11739: END IF;

Line 11736: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11732: END IF;
11733:
11734: IF (g_debug_unexp) THEN
11735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11736: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11737: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11738: || l_progress || ' SQL CODE is '||sqlcode);
11739: END IF;
11740: END IF;

Line 11764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11760: BEGIN
11761:
11762: l_progress := '000';
11763: IF g_debug_stmt THEN
11764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11766: || l_progress,'Populate Req Headers');
11767: END IF;
11768: END IF;

Line 11765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11761:
11762: l_progress := '000';
11763: IF g_debug_stmt THEN
11764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11765: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11766: || l_progress,'Populate Req Headers');
11767: END IF;
11768: END IF;
11769:

Line 11911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

11907: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
11908: END IF;
11909:
11910: IF (g_debug_unexp) THEN
11911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11912: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11913: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11914: || l_progress || ' SQL CODE is '||sqlcode);
11915: END IF;

Line 11912: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

11908: END IF;
11909:
11910: IF (g_debug_unexp) THEN
11911: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
11912: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
11913: l_api_name || '.others_exception', 'EXCEPTION: Location is '
11914: || l_progress || ' SQL CODE is '||sqlcode);
11915: END IF;
11916: END IF;

Line 11939: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

11935: BEGIN
11936:
11937: l_progress := '000';
11938: IF g_debug_stmt THEN
11939: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11940: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11941: || l_progress,'Populate Req Lines');
11942: END IF;
11943: END IF;

Line 11940: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

11936:
11937: l_progress := '000';
11938: IF g_debug_stmt THEN
11939: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
11940: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
11941: || l_progress,'Populate Req Lines');
11942: END IF;
11943: END IF;
11944:

Line 12244: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

12240: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12241: END IF;
12242:
12243: IF (g_debug_unexp) THEN
12244: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12245: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
12246: l_api_name || '.others_exception', 'EXCEPTION: Location is '
12247: || l_progress || ' SQL CODE is '||sqlcode);
12248: END IF;

Line 12245: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

12241: END IF;
12242:
12243: IF (g_debug_unexp) THEN
12244: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12245: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
12246: l_api_name || '.others_exception', 'EXCEPTION: Location is '
12247: || l_progress || ' SQL CODE is '||sqlcode);
12248: END IF;
12249: END IF;

Line 12274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12270: BEGIN
12271:
12272: l_progress := '000';
12273: IF g_debug_stmt THEN
12274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12276: || l_progress,'Populate Req Distributions');
12277: END IF;
12278: END IF;

Line 12275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12271:
12272: l_progress := '000';
12273: IF g_debug_stmt THEN
12274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12276: || l_progress,'Populate Req Distributions');
12277: END IF;
12278: END IF;
12279:

Line 12480: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12476: END IF;
12477:
12478: l_progress := '010';
12479: IF g_debug_stmt THEN
12480: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12481: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12482: || l_progress, 'deciding security level');
12483: END IF;
12484: END IF;

Line 12481: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12477:
12478: l_progress := '010';
12479: IF g_debug_stmt THEN
12480: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12481: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12482: || l_progress, 'deciding security level');
12483: END IF;
12484: END IF;
12485:

Line 12522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12518:
12519:
12520: l_progress := '060';
12521: IF g_debug_stmt THEN
12522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12523: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12524: || l_progress, 'deciding WHERE clause');
12525: END IF;
12526: END IF;

Line 12523: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12519:
12520: l_progress := '060';
12521: IF g_debug_stmt THEN
12522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12523: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12524: || l_progress, 'deciding WHERE clause');
12525: END IF;
12526: END IF;
12527:

Line 12596: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12592: x_msg_data := NULL;
12593:
12594: l_progress := '100';
12595: IF g_debug_stmt THEN
12596: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12597: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12598: || l_progress,'Returning from PVT package: ' ||
12599: x_where_clause);
12600: END IF;

Line 12597: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

12593:
12594: l_progress := '100';
12595: IF g_debug_stmt THEN
12596: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12597: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
12598: || l_progress,'Returning from PVT package: ' ||
12599: x_where_clause);
12600: END IF;
12601: END IF;

Line 12620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

12616: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
12617: END IF;
12618:
12619: IF (g_debug_unexp) THEN
12620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12621: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
12622: l_api_name || '.others_exception', 'EXCEPTION: Location is '
12623: || l_progress || ' SQL CODE is '||sqlcode);
12624: END IF;

Line 12621: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||

12617: END IF;
12618:
12619: IF (g_debug_unexp) THEN
12620: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
12621: FND_LOG.string(FND_LOG.level_unexpected, g_log_head ||
12622: l_api_name || '.others_exception', 'EXCEPTION: Location is '
12623: || l_progress || ' SQL CODE is '||sqlcode);
12624: END IF;
12625: END IF;

Line 12710: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12706: --
12707: BEGIN
12708:
12709: IF g_debug_stmt THEN
12710: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
12712: || l_progress, 'Entering Procedure '||l_api_name);
12713: END IF;
12714: END IF;

Line 12711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

12707: BEGIN
12708:
12709: IF g_debug_stmt THEN
12710: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
12712: || l_progress, 'Entering Procedure '||l_api_name);
12713: END IF;
12714: END IF;
12715:

Line 12935: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

12931:
12932: BEGIN
12933:
12934: IF g_debug_stmt THEN
12935: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12936: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
12937: || l_progress, 'Entering Procedure '||l_api_name);
12938: END IF;
12939: END IF;

Line 12936: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

12932: BEGIN
12933:
12934: IF g_debug_stmt THEN
12935: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
12936: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
12937: || l_progress, 'Entering Procedure '||l_api_name);
12938: END IF;
12939: END IF;
12940:

Line 13108: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13104:
13105: BEGIN
13106:
13107: IF g_debug_stmt THEN
13108: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13109: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
13110: || l_progress, 'Entering Procedure '||l_api_name);
13111: END IF;
13112: END IF;

Line 13109: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

13105: BEGIN
13106:
13107: IF g_debug_stmt THEN
13108: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13109: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
13110: || l_progress, 'Entering Procedure '||l_api_name);
13111: END IF;
13112: END IF;
13113:

Line 13271: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13267:
13268: BEGIN
13269:
13270: IF g_debug_stmt THEN
13271: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13272: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
13273: || l_progress, 'Entering Procedure '||l_api_name);
13274: END IF;
13275: END IF;

Line 13272: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

13268: BEGIN
13269:
13270: IF g_debug_stmt THEN
13271: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13272: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
13273: || l_progress, 'Entering Procedure '||l_api_name);
13274: END IF;
13275: END IF;
13276:

Line 13479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

13475:
13476: BEGIN
13477:
13478: IF g_debug_stmt THEN
13479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13480: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
13481: || l_progress, 'Entering Procedure '||l_api_name);
13482: END IF;
13483: END IF;

Line 13480: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'

13476: BEGIN
13477:
13478: IF g_debug_stmt THEN
13479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
13480: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_log_head || '.'||l_api_name||'.'
13481: || l_progress, 'Entering Procedure '||l_api_name);
13482: END IF;
13483: END IF;
13484:

Line 15193: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15189: l_progress := '000';
15190: x_return_status := FND_API.G_RET_STS_SUCCESS;
15191:
15192: IF g_debug_stmt THEN
15193: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15194: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15195: || l_progress, ' Before retrieving vendor/vendor site info');
15196: END IF;
15197: END IF;

Line 15194: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15190: x_return_status := FND_API.G_RET_STS_SUCCESS;
15191:
15192: IF g_debug_stmt THEN
15193: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15194: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15195: || l_progress, ' Before retrieving vendor/vendor site info');
15196: END IF;
15197: END IF;
15198:

Line 15213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15209: END;
15210:
15211: l_progress := '010';
15212: IF g_debug_stmt THEN
15213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15215: || l_progress, ' After retrieving vendor/vendor site info');
15216: END IF;
15217: END IF;

Line 15214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15210:
15211: l_progress := '010';
15212: IF g_debug_stmt THEN
15213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15215: || l_progress, ' After retrieving vendor/vendor site info');
15216: END IF;
15217: END IF;
15218:

Line 15226: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15222: -- Central Contractor Registration(CCR) status of the vendor site
15223:
15224: l_progress := '020';
15225: IF g_debug_stmt THEN
15226: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15227: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15228: || l_progress, ' Before validating vendor site registration');
15229: END IF;
15230: END IF;

Line 15227: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

15223:
15224: l_progress := '020';
15225: IF g_debug_stmt THEN
15226: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15227: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
15228: || l_progress, ' Before validating vendor site registration');
15229: END IF;
15230: END IF;
15231:

Line 15240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15236: IF NOT l_valid_registration THEN
15237:
15238: l_progress := '030';
15239: IF g_debug_stmt THEN
15240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15241: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
15242: l_api_name||'.' || l_progress,
15243: ' Vendor site registration is not valid');
15244: END IF;

Line 15241: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

15237:
15238: l_progress := '030';
15239: IF g_debug_stmt THEN
15240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15241: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
15242: l_api_name||'.' || l_progress,
15243: ' Vendor site registration is not valid');
15244: END IF;
15245: END IF;

Line 15276: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

15272: p_sequence := p_sequence+1;
15273: ELSE -- l_valid_registration is TRUE
15274: l_progress := '040';
15275: IF g_debug_stmt THEN
15276: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
15278: l_api_name||'.' || l_progress,
15279: ' Vendor site registration is valid');
15280: END IF;

Line 15277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||

15273: ELSE -- l_valid_registration is TRUE
15274: l_progress := '040';
15275: IF g_debug_stmt THEN
15276: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
15277: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||
15278: l_api_name||'.' || l_progress,
15279: ' Vendor site registration is valid');
15280: END IF;
15281: END IF;

Line 15291: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

15287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15288: WHEN OTHERS THEN
15289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15290: IF (g_debug_unexp) THEN
15291: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15292: FND_LOG.string(FND_LOG.level_unexpected,
15293: G_PKG_NAME||l_api_name|| '.others_exception',
15294: 'EXCEPTION: Location is '|| l_progress ||' SQL CODE is '||sqlcode);
15295: END IF;

Line 15292: FND_LOG.string(FND_LOG.level_unexpected,

15288: WHEN OTHERS THEN
15289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15290: IF (g_debug_unexp) THEN
15291: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
15292: FND_LOG.string(FND_LOG.level_unexpected,
15293: G_PKG_NAME||l_api_name|| '.others_exception',
15294: 'EXCEPTION: Location is '|| l_progress ||' SQL CODE is '||sqlcode);
15295: END IF;
15296: END IF;

Line 16811: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16807: BEGIN
16808: l_progress := '001';
16809:
16810: IF g_debug_stmt THEN
16811: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16812: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16813: || l_progress,'Start PO Qty/Amt Rollup Checks');
16814: END IF;
16815: END IF;

Line 16812: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

16808: l_progress := '001';
16809:
16810: IF g_debug_stmt THEN
16811: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16812: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16813: || l_progress,'Start PO Qty/Amt Rollup Checks');
16814: END IF;
16815: END IF;
16816:

Line 16831: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16827: -- Check 1a: Quantities/Amounts between Purchase Order Line and Shipments
16828: -- must match (existing logic)
16829:
16830: IF g_debug_stmt THEN
16831: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16832: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16833: || l_progress,'PO Shipment Qty/Amt Rollup');
16834: END IF;
16835: END IF;

Line 16832: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

16828: -- must match (existing logic)
16829:
16830: IF g_debug_stmt THEN
16831: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16832: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16833: || l_progress,'PO Shipment Qty/Amt Rollup');
16834: END IF;
16835: END IF;
16836:

Line 16947: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

16943:
16944: l_progress := '020';
16945:
16946: IF g_debug_stmt THEN
16947: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16949: || l_progress,'PO Pay Item Qty/Amt Rollup');
16950: END IF;
16951: END IF;

Line 16948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

16944: l_progress := '020';
16945:
16946: IF g_debug_stmt THEN
16947: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
16948: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
16949: || l_progress,'PO Pay Item Qty/Amt Rollup');
16950: END IF;
16951: END IF;
16952:

Line 17112: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

17108: -----------------------------------------------
17109:
17110: l_progress := '030';
17111: IF g_debug_stmt THEN
17112: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
17113: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
17114: || l_progress,'PO Dist qty/amt rollup check');
17115: END IF;
17116: END IF;

Line 17113: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

17109:
17110: l_progress := '030';
17111: IF g_debug_stmt THEN
17112: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
17113: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
17114: || l_progress,'PO Dist qty/amt rollup check');
17115: END IF;
17116: END IF;
17117:

Line 17216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN

17212: x_sequence := x_sequence + l_line_num.COUNT;
17213: -----------------------------------------------
17214:
17215: IF g_debug_stmt THEN
17216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
17217: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
17218: || l_progress,'End PO Qty/Amt Rollup Checks');
17219: END IF;
17220: END IF;

Line 17217: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'

17213: -----------------------------------------------
17214:
17215: IF g_debug_stmt THEN
17216: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
17217: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,g_log_head || '.'||l_api_name||'.'
17218: || l_progress,'End PO Qty/Amt Rollup Checks');
17219: END IF;
17220: END IF;
17221:

Line 17865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN

17861: WHEN others THEN
17862: x_return_status := fnd_api.g_ret_sts_unexp_error;
17863:
17864: IF (g_debug_unexp) THEN
17865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
17866: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '
17867: || l_progress || ' SQL CODE is '||sqlcode);
17868: END IF;
17869: END IF;

Line 17866: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '

17862: x_return_status := fnd_api.g_ret_sts_unexp_error;
17863:
17864: IF (g_debug_unexp) THEN
17865: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
17866: FND_LOG.string(FND_LOG.level_unexpected, l_log_head || '.others_exception', 'EXCEPTION: Location is '
17867: || l_progress || ' SQL CODE is '||sqlcode);
17868: END IF;
17869: END IF;
17870: