16: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
17: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
18: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
19:
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22:
23: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
24: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
17: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
18: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
19:
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22:
23: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
24: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
25: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
19:
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22:
23: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
24: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
25: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26:
27: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22:
23: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
24: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
25: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26:
27: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
28: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22:
23: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
24: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
25: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26:
27: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
28: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
29: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
1493: '110: Error Message : ' ||l_error_message);
1494: END IF;
1495: -- Raise Error Exception
1496: x_return_status := G_RET_STS_ERROR ;
1497: RAISE FND_API.G_EXC_ERROR;
1498: END; -- Valueset Type F and SQL
1499:
1500: BEGIN
1501: -- get the sequence numbers for the options
1538: '110: Error Message : ' ||l_error_message);
1539: END IF;
1540: -- Raise Error Exception
1541: x_return_status := G_RET_STS_ERROR ;
1542: RAISE FND_API.G_EXC_ERROR;
1543: END; -- ValueSet Type F and Sequence
1544:
1545: ELSIF l_valueset_type = 'I' THEN
1546: -- validation type is Independent
1571: '110: Error Message : ' ||l_error_message);
1572: END IF;
1573: -- Raise Error Exception
1574: x_return_status := G_RET_STS_ERROR ;
1575: RAISE FND_API.G_EXC_ERROR;
1576: END IF; -- Valueset has no values
1577:
1578: ELSE
1579: -- Invalid Valueset type
1599: '110: Error Message : ' ||l_error_message);
1600: END IF;
1601: -- Raise Error Exception
1602: x_return_status := G_RET_STS_ERROR ;
1603: RAISE FND_API.G_EXC_ERROR;
1604:
1605: END IF; -- Valueset Type
1606:
1607:
1905: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1906: END IF;
1907:
1908: EXCEPTION
1909: WHEN FND_API.G_EXC_ERROR THEN
1910: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1912: G_MODULE||l_api_name,
1913: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1915:
1916: x_return_status := G_RET_STS_ERROR ;
1917: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1918:
1919: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1920: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1921: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1922: G_MODULE||l_api_name,
1923: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2489: '100: p_template_id '||p_template_id);
2490: END IF;
2491:
2492: -- Standard call to check for call compatibility.
2493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2495: END IF;
2496:
2497: -- Initialize message list if p_init_msg_list is set to TRUE.
2490: END IF;
2491:
2492: -- Standard call to check for call compatibility.
2493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2495: END IF;
2496:
2497: -- Initialize message list if p_init_msg_list is set to TRUE.
2498: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2495: END IF;
2496:
2497: -- Initialize message list if p_init_msg_list is set to TRUE.
2498: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2499: FND_MSG_PUB.initialize;
2500: END IF;
2501:
2502: -- Initialize API return status to success
2499: FND_MSG_PUB.initialize;
2500: END IF;
2501:
2502: -- Initialize API return status to success
2503: x_return_status := FND_API.G_RET_STS_SUCCESS;
2504:
2505: -- Get Template Details
2506: OPEN csr_template_dtls;
2507: FETCH csr_template_dtls INTO l_template_name,
2517: G_MODULE||l_api_name,
2518: '110: Invalid Template Id: '||p_template_id);
2519: END IF;
2520: FND_MESSAGE.set_name('OKC','OKC_XPRT_INVALID_TEMPLATE');
2521: RAISE FND_API.G_EXC_ERROR;
2522: END IF;
2523:
2524: CLOSE csr_template_dtls;
2525:
2564: END IF;
2565:
2566: --- If any errors happen abort API
2567: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: END IF;
2572:
2566: --- If any errors happen abort API
2567: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2569: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2570: RAISE FND_API.G_EXC_ERROR;
2571: END IF;
2572:
2573: -- build folder name
2574: l_folder_name := G_TEMPLATE_FOLDER_OSR||l_org_id||':'||l_intent;
2608: END IF;
2609:
2610: --- If any errors happen abort API
2611: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616:
2610: --- If any errors happen abort API
2611: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616:
2617: END IF; -- folder does not exists
2618: CLOSE csr_template_folder;
2688: END IF;
2689:
2690: --- If any errors happen abort API
2691: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2693: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2694: RAISE FND_API.G_EXC_ERROR;
2695: END IF;
2696:
2690: --- If any errors happen abort API
2691: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2693: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2694: RAISE FND_API.G_EXC_ERROR;
2695: END IF;
2696:
2697: create_template_component
2698: (
2713: END IF;
2714:
2715: --- If any errors happen abort API
2716: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2718: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2719: RAISE FND_API.G_EXC_ERROR;
2720: END IF;
2721:
2715: --- If any errors happen abort API
2716: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2718: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2719: RAISE FND_API.G_EXC_ERROR;
2720: END IF;
2721:
2722: -- Create the Clause Model reference Node
2723: create_clause_model_ref
2738: END IF;
2739:
2740: --- If any errors happen abort API
2741: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2743: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746:
2740: --- If any errors happen abort API
2741: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2742: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2743: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746:
2747: -- Questions on templates are created as features
2748: -- For getting questions, we pass the original template_id and the derived template id
2768: END IF;
2769:
2770: --- If any errors happen abort API
2771: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2774: RAISE FND_API.G_EXC_ERROR;
2775: END IF;
2776:
2770: --- If any errors happen abort API
2771: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2774: RAISE FND_API.G_EXC_ERROR;
2775: END IF;
2776:
2777: -- Call the CZ Generic Import to push data to CZ
2778: OKC_XPRT_CZ_INT_PVT.import_generic
2813: END IF;
2814:
2815: --- If any errors happen abort API
2816: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2815: --- If any errors happen abort API
2816: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2818: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2822: -- initialize l_template_model_id
2823: l_template_model_id := NULL;
2840: WHERE template_id = p_template_id;
2841:
2842:
2843:
2844: IF FND_API.To_Boolean( p_commit ) THEN
2845: COMMIT WORK;
2846: END IF;
2847:
2848: -- Standard call to get message count and if count is 1, get message info.
2855: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2856: END IF;
2857:
2858: EXCEPTION
2859: WHEN FND_API.G_EXC_ERROR THEN
2860: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2862: G_MODULE||l_api_name,
2863: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2865:
2866: x_return_status := G_RET_STS_ERROR ;
2867: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2868:
2869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2870: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2871: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2872: G_MODULE||l_api_name,
2873: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2972: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2973: END IF;
2974:
2975: -- Initialize API return status to success
2976: x_return_status := FND_API.G_RET_STS_SUCCESS;
2977:
2978: -- Check if any rules in current request are Org Wide Rules
2979: OPEN csr_org_rule_exists;
2980: FETCH csr_org_rule_exists INTO l_org_rules_yn;
3016: ) ;
3017:
3018: --- If any errors happen abort API
3019: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3022: RAISE FND_API.G_EXC_ERROR;
3023: END IF;
3024:
3018: --- If any errors happen abort API
3019: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3021: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3022: RAISE FND_API.G_EXC_ERROR;
3023: END IF;
3024:
3025: END LOOP; -- local
3026: CLOSE csr_local_rules_templates;
3044: ) ;
3045:
3046: --- If any errors happen abort API
3047: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3049: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3050: RAISE FND_API.G_EXC_ERROR;
3051: END IF;
3052:
3046: --- If any errors happen abort API
3047: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3049: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3050: RAISE FND_API.G_EXC_ERROR;
3051: END IF;
3052:
3053: END LOOP; -- Org Rules Templates
3054: CLOSE csr_org_rules_templates;
3065: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3066: END IF;
3067:
3068: EXCEPTION
3069: WHEN FND_API.G_EXC_ERROR THEN
3070: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3071: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3072: G_MODULE||l_api_name,
3073: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3075:
3076: x_return_status := G_RET_STS_ERROR ;
3077: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3078:
3079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3081: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3082: G_MODULE||l_api_name,
3083: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3161: '100: p_template_id '||p_template_id);
3162: END IF;
3163:
3164: -- Initialize API return status to success
3165: x_return_status := FND_API.G_RET_STS_SUCCESS;
3166:
3167: -- Get all the templates to be rebuilt
3168: OPEN csr_templates;
3169: LOOP
3182: ) ;
3183:
3184: --- If any errors happen abort API
3185: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3188: RAISE FND_API.G_EXC_ERROR;
3189: END IF;
3190:
3184: --- If any errors happen abort API
3185: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3188: RAISE FND_API.G_EXC_ERROR;
3189: END IF;
3190:
3191: END LOOP;
3192: CLOSE csr_templates;
3202: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3203: END IF;
3204:
3205: EXCEPTION
3206: WHEN FND_API.G_EXC_ERROR THEN
3207: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3208: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3209: G_MODULE||l_api_name,
3210: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3212:
3213: x_return_status := G_RET_STS_ERROR ;
3214: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3215:
3216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3219: G_MODULE||l_api_name,
3220: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);