10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20:
21: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20:
21: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
22: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20:
21: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
22: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
23: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
33: ---------------------------------------------------
34:
35: PROCEDURE get_system_variables (
36: p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
38: x_return_status OUT NOCOPY VARCHAR2,
39: x_msg_data OUT NOCOPY VARCHAR2,
40: x_msg_count OUT NOCOPY NUMBER,
41: p_doc_type IN VARCHAR2,
39: x_msg_data OUT NOCOPY VARCHAR2,
40: x_msg_count OUT NOCOPY NUMBER,
41: p_doc_type IN VARCHAR2,
42: p_doc_id IN NUMBER,
43: p_only_doc_variables IN VARCHAR2 := FND_API.G_TRUE,
44: x_sys_var_value_tbl OUT NOCOPY var_value_tbl_type
45: )
46: IS
47: l_api_name VARCHAR2(30) := 'get_system_variables';
74: x_sys_var_value_tbl => l_sys_var_value_tbl);
75:
76: --- If any errors happen abort API
77: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
80: RAISE FND_API.G_EXC_ERROR;
81: END IF;
82:
76: --- If any errors happen abort API
77: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
78: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
80: RAISE FND_API.G_EXC_ERROR;
81: END IF;
82:
83: -- Log all Variable values in the Pl/sql table
84:
138:
139:
140: EXCEPTION
141:
142: WHEN FND_API.G_EXC_ERROR THEN
143: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
145: G_MODULE||l_api_name,
146: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
148:
149: x_return_status := G_RET_STS_ERROR ;
150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
151:
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
155: G_MODULE||l_api_name,
156: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
245: ---------------------------------------------------
246:
247: PROCEDURE get_line_system_variables (
248: p_api_version IN NUMBER,
249: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
250: p_doc_type IN VARCHAR2,
251: p_doc_id IN NUMBER,
252: p_org_id IN NUMBER,
253: x_return_status OUT NOCOPY VARCHAR2,
289: --null;
290:
291: --- If any errors happen abort API
292: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
294: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
295: RAISE FND_API.G_EXC_ERROR;
296: END IF;
297: END IF;
291: --- If any errors happen abort API
292: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
294: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
295: RAISE FND_API.G_EXC_ERROR;
296: END IF;
297: END IF;
298:
299: IF (p_doc_type = 'QUOTE')
312:
313: --null;
314: --- If any errors happen abort API
315: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320: END IF;
314: --- If any errors happen abort API
315: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320: END IF;
321:
322: -- Log all Variable values in the Pl/sql table
353:
354: EXCEPTION
355:
356:
357: WHEN FND_API.G_EXC_ERROR THEN
358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
360: G_MODULE||l_api_name,
361: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
363:
364: x_return_status := G_RET_STS_ERROR ;
365: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
366:
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
370: G_MODULE||l_api_name,
371: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
394: ---------------------------------------------------
395:
396: PROCEDURE get_user_defined_variables (
397: p_api_version IN NUMBER,
398: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
399: p_doc_type IN VARCHAR2,
400: p_doc_id IN NUMBER,
401: p_org_id IN NUMBER,
402: p_intent IN VARCHAR2,
513:
514: EXCEPTION
515:
516:
517: WHEN FND_API.G_EXC_ERROR THEN
518: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
520: G_MODULE||l_api_name,
521: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
523:
524: x_return_status := G_RET_STS_ERROR ;
525: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
526:
527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
528: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
529: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
530: G_MODULE||l_api_name,
531: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
554: ---------------------------------------------------
555:
556: PROCEDURE get_constant_values (
557: p_api_version IN NUMBER,
558: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
559: p_intent IN VARCHAR2,
560: x_return_status OUT NOCOPY VARCHAR2,
561: x_msg_data OUT NOCOPY VARCHAR2,
562: x_msg_count OUT NOCOPY NUMBER,
619: END IF;
620:
621: EXCEPTION
622:
623: WHEN FND_API.G_EXC_ERROR THEN
624: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
625: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
626: G_MODULE||l_api_name,
627: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
629:
630: x_return_status := G_RET_STS_ERROR ;
631: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
632:
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
635: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
636: G_MODULE||l_api_name,
637: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
660: ---------------------------------------------------
661:
662: PROCEDURE get_udv_with_procedures (
663: p_api_version IN NUMBER,
664: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
665: p_doc_type IN VARCHAR2,
666: p_doc_id IN NUMBER,
667: p_org_id IN NUMBER,
668: p_intent IN VARCHAR2,
832: END;
833:
834: -- If any errors happen abort API
835: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
834: -- If any errors happen abort API
835: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
837: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR;
839: END IF;
840:
841: END LOOP;
842:
882:
883: EXCEPTION
884:
885:
886: WHEN FND_API.G_EXC_ERROR THEN
887: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
888: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
889: G_MODULE||l_api_name,
890: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
892:
893: x_return_status := G_RET_STS_ERROR ;
894: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
895:
896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
897: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
898: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
899: G_MODULE||l_api_name,
900: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
924: ---------------------------------------------------
925:
926: PROCEDURE get_document_values (
927: p_api_version IN NUMBER,
928: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
929: p_doc_type IN VARCHAR2,
930: p_doc_id IN NUMBER,
931: x_return_status OUT NOCOPY VARCHAR2,
932: x_msg_data OUT NOCOPY VARCHAR2,
981:
982: OPEN csr_get_intent(p_doc_type);
983: FETCH csr_get_intent INTO l_intent;
984: IF (csr_get_intent%NOTFOUND) THEN
985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
986: END IF;
987: CLOSE csr_get_intent;
988: x_intent := l_intent;
989:
989:
990: OPEN csr_get_org_id(p_doc_type, p_doc_id);
991: FETCH csr_get_org_id INTO l_org_id;
992: IF (csr_get_org_id%NOTFOUND) THEN
993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
994: END IF;
995: CLOSE csr_get_org_id;
996: x_org_id := l_org_id;
997:
1008: x_sys_var_value_tbl => l_sys_var_value_tbl);
1009:
1010: --- If any errors happen abort API
1011: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1013: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1014: RAISE FND_API.G_EXC_ERROR;
1015: END IF;
1016:
1010: --- If any errors happen abort API
1011: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1013: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1014: RAISE FND_API.G_EXC_ERROR;
1015: END IF;
1016:
1017: -- start debug log
1018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1053: x_line_variables_count => x_line_variables_count);
1054:
1055: --- If any errors happen abort API
1056: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1058: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1061:
1055: --- If any errors happen abort API
1056: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1058: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1061:
1062: -- start debug log
1063: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1079: x_item_tbl => l_item_tbl);
1080:
1081: --- If any errors happen abort API
1082: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087:
1081: --- If any errors happen abort API
1082: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1084: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087:
1088: -- Add Item/Item Category to header level variables
1089: var_tbl_cnt := l_sys_var_value_tbl.COUNT + 1;
1144: x_udf_var_value_tbl => l_udf_var_value_tbl);
1145:
1146: --- If any errors happen abort API
1147: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1149: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1150: RAISE FND_API.G_EXC_ERROR;
1151: END IF;
1152:
1146: --- If any errors happen abort API
1147: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1149: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1150: RAISE FND_API.G_EXC_ERROR;
1151: END IF;
1152:
1153: -- start debug log
1154: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1171: x_udf_var_value_tbl => l_udf_var_with_proc_value_tbl);
1172:
1173: --- If any errors happen abort API
1174: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1173: --- If any errors happen abort API
1174: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1176: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1177: RAISE FND_API.G_EXC_ERROR;
1178: END IF;
1179:
1180: -- start debug log
1181: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1195: x_constant_tbl => l_constant_tbl);
1196:
1197: --- If any errors happen abort API
1198: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1200: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1201: RAISE FND_API.G_EXC_ERROR;
1202: END IF;
1203:
1197: --- If any errors happen abort API
1198: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1200: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1201: RAISE FND_API.G_EXC_ERROR;
1202: END IF;
1203:
1204: -- start debug log
1205: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1334:
1335: EXCEPTION
1336:
1337:
1338: WHEN FND_API.G_EXC_ERROR THEN
1339: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1340: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1341: G_MODULE||l_api_name,
1342: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1344:
1345: x_return_status := G_RET_STS_ERROR ;
1346: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1347:
1348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1351: G_MODULE||l_api_name,
1352: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);