[Home] [Help]
PACKAGE: APPS.OKC_OC_INT_KTQ_PVT
Source
1 Package OKC_OC_INT_KTQ_PVT AS
2 -- $Header: OKCRKTQS.pls 120.2 2006/02/28 14:51:40 smallya noship $
3 --
4 -- Copyright (c) 1999 Oracle Corporation, Redwood Shores, CA, USA
5 -- All rights reserved.
6 --
7 --
8 -- Global constants
9 --
10
11 g_rlt_typ_oh CONSTANT VARCHAR2(30) := 'OKX_ORDERHEAD';
12 g_rlt_typ_ol CONSTANT VARCHAR2(30) := 'OKX_ORDERLINE';
13 g_rlt_typ_qh CONSTANT VARCHAR2(30) := 'OKX_QUOTEHEAD';
14 g_rlt_typ_ql CONSTANT VARCHAR2(30) := 'OKX_QUOTELINE';
15 g_rlt_code_ktq CONSTANT VARCHAR2(30) := 'CONTRACTISTERMSFORQUOTE';
16 g_rlt_code_knq CONSTANT VARCHAR2(30) := 'CONTRACTNEGOTIATESQUOTE';
17 g_rlt_cod_qrk CONSTANT VARCHAR2(30) := 'QUOTERENEWSCONTRACT';
18
19 -- other constants
20 g_k_s_class CONSTANT VARCHAR2(30) := 'SERVICE';
21 g_k_kfq_subclass CONSTANT VARCHAR2(30) := 'KFORQUOTE';
22 --
23 -- contract top line styles
24 g_lt_coverprod CONSTANT VARCHAR2(30) := 'COVER_PROD';
25 g_lt_supp CONSTANT VARCHAR2(30) := 'SUPPORT';
26 g_support CONSTANT VARCHAR2(1) := 'S';
27 g_lt_suppline CONSTANT VARCHAR2(30) := 'SUPPORT_LINE';
28 --
29 g_lt_service CONSTANT VARCHAR2(30) := 'SERVICE';
30 g_lt_support CONSTANT VARCHAR2(30) := 'SUPPORT';
31 g_lt_ext_warr CONSTANT VARCHAR2(30) := 'EXT_WARRANTY';
32 --
33 g_rd_billto CONSTANT VARCHAR2(30) := 'BTO';
34 g_rd_shipto CONSTANT VARCHAR2(30) := 'STO';
35 g_rd_shipmtd CONSTANT VARCHAR2(30) := 'SMD';
36 g_rd_convert CONSTANT VARCHAR2(30) := 'CVN';
37 g_rd_custacct CONSTANT VARCHAR2(30) := 'CAN';
38 g_rd_invrule CONSTANT VARCHAR2(30) := 'IRE';
39 g_rd_price CONSTANT VARCHAR2(30) := 'PRE';
40 g_qte_ref_quote CONSTANT VARCHAR2(30) := 'QUOTE';
41 --
42 g_aso_op_code_create CONSTANT VARCHAR2(30) := 'CREATE';
43 g_aso_op_code_update CONSTANT VARCHAR2(30) := 'UPDATE';
44 g_aso_op_code_delete CONSTANT VARCHAR2(30) := 'DELETE';
45
46 --
47 g_okc_model_item CONSTANT VARCHAR2(30) := 'TOP_MODEL_LINE';
48 g_okc_base_item CONSTANT VARCHAR2(30) := 'TOP_BASE_LINE';
49 g_okc_config_item CONSTANT VARCHAR2(30) := 'CONFIG';
50 g_okc_service_item CONSTANT VARCHAR2(30) := 'SRV';
51
52 --
53 g_aso_model_item CONSTANT VARCHAR2(30) := 'MDL';
54 g_aso_config_item CONSTANT VARCHAR2(30) := 'CFG';
55 g_aso_service_item CONSTANT VARCHAR2(30) := 'SRV';
56
57 --
58 -- Global variables
59 --
60
61 g_quote_id OKX_QUOTE_HEADERS_V.ID1%TYPE;
62
63 l_contract_number okc_k_headers_b.contract_number%TYPE;
64 l_contract_number_modifier okc_k_headers_b.contract_number_modifier%TYPE;
65 l_quote_number okx_quote_headers_v.quote_number%TYPE;
66
67
68
69 --------------------------------------------------------------------------------
70 -- Procedure: create_quote_from_k
71 -- Version: 1.0
72 -- Purpose: Create a quote from a contract as the initial stage in
73 -- the renewal process, or just as a new quote by
74 -- "copying" the contract content into the quote.
75 -- Create relationships from renewing contract to quote.
76 -- May also create subject-to relationship from
77 -- quote to master contract if renewing contract is
78 -- subject to a master contract
79 -- Calls ASO_QUOTE_PUB.CREATE_QUOTE to create the quote
80 -- In Parameters: p_contract_id Contract for which to create quote
81 -- p_rel_type Relationship type between K and Q
82 -- headers and lines
83 -- Out Parameters: x_quote_id Id of created quote
84 --
85 PROCEDURE create_quote_from_k( p_api_version IN NUMBER
86 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
87 ,x_return_status OUT NOCOPY VARCHAR2
88 ,x_msg_count OUT NOCOPY NUMBER
89 ,x_msg_data OUT NOCOPY VARCHAR2
90 --
91 ,p_contract_id IN okc_k_headers_b.id%TYPE
92 ,p_rel_type IN okc_k_rel_objs.rty_code%TYPE DEFAULT OKC_API.g_miss_char
93 --
94 ,p_trace_mode IN VARCHAR2 DEFAULT OKC_API.G_FALSE
95 ,x_quote_id OUT NOCOPY okx_quote_headers_v.id1%TYPE
96 );
97
98 --------------------------------------------------------------------------------
99 -- Procedure: update_quote_from_k
100 -- Version: 1.0
101 -- Purpose: update a quote from a contract
102 -- Calls ASO_QUOTE_PUB.UPDATE_QUOTE to create the quote
103 -- In Parameters: p_contract_id Contract for which to update quote
104 -- p_quote_id The id for the quote that is to be renewed
105 --
106 --
107 PROCEDURE update_quote_from_k( p_api_version IN NUMBER
108 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
109 ,p_quote_id IN OKX_QUOTE_HEADERS_V.ID1%TYPE
110 ,p_contract_id IN OKC_K_HEADERS_B.ID%TYPE
111 ,p_trace_mode IN VARCHAR2 DEFAULT OKC_API.G_FALSE
112 ,x_return_status OUT NOCOPY VARCHAR2
113 ,x_msg_count OUT NOCOPY NUMBER
114 ,x_msg_data OUT NOCOPY VARCHAR2
115 );
116
117 END OKC_OC_INT_KTQ_PVT;