5: -- GLOBAL CONSTANTS
6: ------------------------------------------------------------------------------
7:
8:
9: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
11:
12: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
6: ------------------------------------------------------------------------------
7:
8:
9: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
11:
12: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
14: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
8:
9: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
11:
12: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
14: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
15:
16: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKC_XPRT_QUOTE_INT_PVT';
9: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
11:
12: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
14: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
15:
16: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKC_XPRT_QUOTE_INT_PVT';
17: G_APP_NAME CONSTANT VARCHAR2(30) := OKC_API.G_APP_NAME;
10: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
11:
12: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
14: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
15:
16: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKC_XPRT_QUOTE_INT_PVT';
17: G_APP_NAME CONSTANT VARCHAR2(30) := OKC_API.G_APP_NAME;
18: G_STMT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
217:
218:
219: BEGIN
220:
221: x_return_status := FND_API.G_RET_STS_SUCCESS;
222:
223: l_package_procedure := G_PKG_NAME || '.' || l_api_name;
224:
225: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
233:
234: --
235: -- Standard call to check for call compatibility.
236: --
237: IF NOT FND_API.Compatible_API_Call (l_api_version,
238: p_api_version,
239: l_api_name,
240: G_PKG_NAME) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237: IF NOT FND_API.Compatible_API_Call (l_api_version,
238: p_api_version,
239: l_api_name,
240: G_PKG_NAME) THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: --
245: -- Initialize message list if p_init_msg_list is set to TRUE.
243:
244: --
245: -- Initialize message list if p_init_msg_list is set to TRUE.
246: --
247: IF FND_API.to_Boolean( p_init_msg_list ) THEN
248: FND_MSG_PUB.initialize;
249: END IF;
250:
251:
538: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'420: End of '||l_package_procedure||' for header level variables, x_return_status ' || x_return_status);
539: END IF;
540: EXCEPTION
541:
542: WHEN FND_API.G_EXC_ERROR THEN
543:
544: IF c_get_quote_header_variables%ISOPEN THEN
545: CLOSE c_get_quote_header_variables;
546: END IF;
556: IF c_get_expert_yes_no%ISOPEN THEN
557: CLOSE c_get_expert_yes_no;
558: END IF;
559:
560: x_return_status := FND_API.G_RET_STS_ERROR ;
561:
562: FND_MSG_PUB.Count_And_Get(
563: p_count => x_msg_count,
564: p_data => x_msg_data );
563: p_count => x_msg_count,
564: p_data => x_msg_data );
565:
566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
567: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'430: '||l_package_procedure||' In the FND_API.G_RET_STS_ERROR section');
568: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'440: x_return_status = '||x_return_status);
569: END IF;
570:
571: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
567: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'430: '||l_package_procedure||' In the FND_API.G_RET_STS_ERROR section');
568: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'440: x_return_status = '||x_return_status);
569: END IF;
570:
571: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
572:
573: IF c_get_quote_header_variables%ISOPEN THEN
574: CLOSE c_get_quote_header_variables;
575: END IF;
585: IF c_get_expert_yes_no%ISOPEN THEN
586: CLOSE c_get_expert_yes_no;
587: END IF;
588:
589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
590: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'450: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
592: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'460: x_return_status = '||x_return_status);
593: END IF;
587: END IF;
588:
589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
590: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'450: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
592: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'460: x_return_status = '||x_return_status);
593: END IF;
594:
595: FND_MSG_PUB.Count_And_Get(
613: IF c_get_expert_yes_no%ISOPEN THEN
614: CLOSE c_get_expert_yes_no;
615: END IF;
616:
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'470: '||l_package_procedure||' In the FND_API.G_RET_STS_UNEXP_ERROR section');
620: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'480: x_return_status = '||x_return_status);
621: END IF;
615: END IF;
616:
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'470: '||l_package_procedure||' In the FND_API.G_RET_STS_UNEXP_ERROR section');
620: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'480: x_return_status = '||x_return_status);
621: END IF;
622:
623: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
655: BEGIN
656:
657: l_package_procedure := G_PKG_NAME || '.' || l_api_name;
658:
659: x_return_status := FND_API.G_RET_STS_SUCCESS;
660:
661: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
662: l_debug := true;
663: END IF;
672:
673: --
674: -- Standard call to check for call compatibility.
675: --
676: IF NOT FND_API.Compatible_API_Call (l_api_version,
677: p_api_version,
678: l_api_name,
679: G_PKG_NAME)
680: THEN
677: p_api_version,
678: l_api_name,
679: G_PKG_NAME)
680: THEN
681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682: END IF;
683:
684: --
685: -- Initialize message list if p_init_msg_list is set to TRUE.
683:
684: --
685: -- Initialize message list if p_init_msg_list is set to TRUE.
686: --
687: IF FND_API.to_Boolean( p_init_msg_list ) THEN
688: FND_MSG_PUB.initialize;
689: END IF;
690:
691: l_index := p_variables_tbl.FIRST;
759: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130:End of '||l_package_procedure||' for header level variables, x_return_status ' || x_return_status);
760: END IF;
761: EXCEPTION
762:
763: WHEN FND_API.G_EXC_ERROR THEN
764:
765: x_return_status := FND_API.G_RET_STS_ERROR ;
766: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
767: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
761: EXCEPTION
762:
763: WHEN FND_API.G_EXC_ERROR THEN
764:
765: x_return_status := FND_API.G_RET_STS_ERROR ;
766: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
767: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
768: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'140: x_return_status = '||x_return_status);
769: END IF;
763: WHEN FND_API.G_EXC_ERROR THEN
764:
765: x_return_status := FND_API.G_RET_STS_ERROR ;
766: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
767: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
768: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'140: x_return_status = '||x_return_status);
769: END IF;
770:
771: FND_MSG_PUB.Count_And_Get(
771: FND_MSG_PUB.Count_And_Get(
772: p_count => x_msg_count,
773: p_data => x_msg_data );
774:
775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
776:
777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
778: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
779: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'150: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
773: p_data => x_msg_data );
774:
775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
776:
777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
778: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
779: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'150: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
780: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'160: x_return_status = '||x_return_status);
781: END IF;
775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
776:
777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
778: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
779: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'150: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
780: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'160: x_return_status = '||x_return_status);
781: END IF;
782:
783: FND_MSG_PUB.Count_And_Get(
785: p_data => x_msg_data );
786:
787: WHEN OTHERS THEN
788:
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
790: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
791: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'170: '||l_package_procedure||' In the OTHERS section');
792: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'180: x_return_status = '||x_return_status);
793: END IF;
807: -- This procedure will be called from contract expert to get
808: -- line level system variables
809: PROCEDURE Get_Line_Variable_Values (
810: p_api_version IN NUMBER,
811: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
812: p_doc_id IN NUMBER,
813: x_return_status OUT NOCOPY VARCHAR2,
814: x_msg_count OUT NOCOPY NUMBER,
815: x_msg_data OUT NOCOPY VARCHAR2,
903: BEGIN
904:
905: l_package_procedure := G_PKG_NAME || '.' || l_api_name;
906:
907: x_return_status := FND_API.G_RET_STS_SUCCESS;
908:
909: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
910: l_debug := true;
911: END IF;
919:
920: --
921: -- Standard call to check for call compatibility.
922: --
923: IF NOT FND_API.Compatible_API_Call (l_api_version,
924: p_api_version,
925: l_api_name,
926: G_PKG_NAME)
927: THEN
924: p_api_version,
925: l_api_name,
926: G_PKG_NAME)
927: THEN
928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
929: END IF;
930:
931: --
932: -- Initialize message list if p_init_msg_list is set to TRUE.
930:
931: --
932: -- Initialize message list if p_init_msg_list is set to TRUE.
933: --
934: IF FND_API.to_Boolean( p_init_msg_list ) THEN
935: FND_MSG_PUB.initialize;
936: END IF;
937:
938: OPEN c_get_quote_org_id;
1025: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130:End of '||l_package_procedure||' for line level variables, x_return_status ' || x_return_status);
1026: END IF;
1027: EXCEPTION
1028:
1029: WHEN FND_API.G_EXC_ERROR THEN
1030:
1031: IF c_get_quote_line_variables%ISOPEN THEN
1032: CLOSE c_get_quote_line_variables;
1033: END IF;
1032: CLOSE c_get_quote_line_variables;
1033: END IF;
1034:
1035:
1036: x_return_status := FND_API.G_RET_STS_ERROR ;
1037: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
1039: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'140: x_return_status = '||x_return_status);
1040: END IF;
1034:
1035:
1036: x_return_status := FND_API.G_RET_STS_ERROR ;
1037: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1038: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'130: '||l_package_procedure||' In the FND_API.G_EXC_ERROR section');
1039: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'140: x_return_status = '||x_return_status);
1040: END IF;
1041:
1042: FND_MSG_PUB.Count_And_Get(
1042: FND_MSG_PUB.Count_And_Get(
1043: p_count => x_msg_count,
1044: p_data => x_msg_data );
1045:
1046: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1047: IF c_get_quote_line_variables%ISOPEN THEN
1048: CLOSE c_get_quote_line_variables;
1049: END IF;
1050:
1048: CLOSE c_get_quote_line_variables;
1049: END IF;
1050:
1051:
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'150: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
1055: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'160: x_return_status = '||x_return_status);
1056: END IF;
1050:
1051:
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'150: '||l_package_procedure||' In the FND_API.G_EXC_UNEXPECTED_ERROR section');
1055: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'160: x_return_status = '||x_return_status);
1056: END IF;
1057:
1058: FND_MSG_PUB.Count_And_Get(
1063: IF c_get_quote_line_variables%ISOPEN THEN
1064: CLOSE c_get_quote_line_variables;
1065: END IF;
1066:
1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1068: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1069: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'170: '||l_package_procedure||' In the OTHERS section');
1070: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,l_module,'180: x_return_status = '||x_return_status);
1071: END IF;