1 Package Body OKC_SALES_CLASS_QA AS
2 /* $Header: OKCRIQAB.pls 120.1 2005/10/04 19:59:31 smallya noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6
7 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
8 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
9 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
10 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_SALES_CLASS_QA';
11 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12 g_okx_system_items_v CONSTANT VARCHAR2(30) := 'OKX_SYSTEM_ITEMS_V';
13 g_okx_customer_products_V CONSTANT VARCHAR2(30) := 'OKX_CUSTOMER_PRODUCTS_V';
14 g_okx_covered_lines_v CONSTANT VARCHAR2(30) := 'OKX_COVERED_LINES_V';
15 g_okx_product_lines_v CONSTANT VARCHAR2(30) := 'OKX_PRODUCT_LINES_V';
16 g_okx_organization_defs_v CONSTANT VARCHAR2(30) := 'OKX_ORGANIZATION_DEFS_V';
17 g_okx_legal_entities_v CONSTANT VARCHAR2(30) := 'OKX_LEGAL_ENTITIES_V';
18 g_okx_parties_v CONSTANT VARCHAR2(30) := 'OKX_PARTIES_V';
19
20 g_sell_intent Varchar2(1) := 'S';
21 g_can_rule varchar2(3) := 'CAN';
22 g_exl_opn_rule varchar2(7) := 'EXL_OPN';
23 kto_opn varchar2(3) := 'KTO';
24
25 /*************************************************************************************************************/
26 /*
27 -- Bug 2272261
28 There are 2 profile options OKS Minimum Service Duration and
29 OKS Minum Service Period to define what is the Minimum period of time for
30 which service Item can be sold.This check was not there in our QA process
31 so If service line on contract had a duration less than the duration
32 specified in OKS then order created from contract was having a wrong
33 duration=Minimum period defined in OKS.
34
35 Following API takes care of it.
36 */
37 Procedure check_service_duration(p_cle_id IN okc_K_lines_b.id%type,
38 p_line_start_date okc_k_lines_b.start_date%type,
39 p_line_number okc_k_lines_b.line_number%type,
40 x_return_status OUT NOCOPY VARCHAR2)
41 is
42 BEGIN
43 NULL;
44 END;
45
46 /*************************************************************************************************************/
47
48 Function is_jtf_source_table( p_object_code jtf_objects_b.object_code%type,
49 p_from_table JTF_OBJECTS_B.from_table%type
50 )
51
52 return boolean is
53 begin
54 return false;
55 end;
56
57 /****************************************************************************************************/
58
59
60 Function get_line_style_source( p_cle_id IN okc_k_lines_b.id%type
61 )
62 return varchar2 is
63 begin
64 return null;
65 end;
66
67 /*****************************************************************************************************************/
68
69 Function get_k_number(p_chr_id okc_k_headers_b.id%type )
70 return varchar2 is
71 begin
72 return 'X';
73 end;
74
75 PROCEDURE validate_kto_integration( p_chr_id IN okc_k_headers_b.ID%TYPE,
76 x_return_status OUT NOCOPY VARCHAR2
77 ) is
78 BEGIN
79 null;
80 END;
81 END OKC_SALES_CLASS_QA;