[Home] [Help]
PACKAGE: APPS.OKS_QP_INT_PVT
Source
1 PACKAGE OKS_QP_INT_PVT AS
2 /* $Header: OKSQPRQS.pls 120.1 2005/10/06 11:17:28 skekkar noship $ */
3
4 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
5 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
6 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
7 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKS_UNEXPECTED_ERROR';
8 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
9 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
10
11 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
12 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKC_API.G_RET_STS_ERROR;
13 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKC_API.G_RET_STS_UNEXP_ERROR;
14 ------------------------------------------------------------------------------------
15
16 -- GLOBAL EXCEPTION
17
18 ---------------------------------------------------------------------------
19
20 G_EXC_ERROR EXCEPTION;
21 G_EXC_UNEXPECTED_ERROR EXCEPTION;
22 G_SKIP_EXCEPTION EXCEPTION;
23 G_EXC_CANT_PRICE EXCEPTION; --3912685
24
25 -- Global constant holding the package name
26
27 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKS_QP_INT_PVT';
28 G_APP_NAME CONSTANT VARCHAR2(3) := 'OKS';
29
30 TYPE Pricing_Status_Rec IS RECORD
31 (service_name Varchar2(800),
32 Coverage_Level_Name Varchar2(240),
33 status_code Varchar2(10),
34 status_text Varchar2(2000));
35
36 TYPE Pricing_Status_Tbl IS TABLE OF Pricing_Status_Rec INDEX BY BINARY_INTEGER;
37
38 TYPE k_details_rec IS RECORD
39 (id NUMBER,
40 object_version_number NUMBER);
41
42 TYPE price_modifiers_rec IS RECORD
43 (discount NUMBER,
44 surcharge NUMBER,
45 total NUMBER
46 );
47
48 TYPE price_modifiers_tbl IS TABLE OF price_modifiers_rec INDEX BY BINARY_INTEGER;
49
50 G_HEADER_PRICING CONSTANT VARCHAR2(3) := 'HP';
51 G_TOP_LINE_PRICING CONSTANT VARCHAR2(3) := 'LP';
52 G_SUB_LINE_PRICING CONSTANT VARCHAR2(3) := 'SP';
53 G_OVERRIDE_PRICING CONSTANT VARCHAR2(3) := 'OA';
54 G_SUBSC_REG_PRICING CONSTANT VARCHAR2(4) := 'SB_P';
55 G_SUBSC_OVR_PRICING CONSTANT VARCHAR2(4) := 'SB_O';
56
57 G_STS_TXT_SUCCESS VARCHAR2(100); -- 'SUCCESS'
58 G_STS_TXT_ERROR VARCHAR2(100); -- 'ERROR'
59 G_MANUAL_ADJ_PRICE VARCHAR2(400); -- 'PRICE DERIVED BY MANUAL ADJUSTMENT'
60 G_BILLED_LINE VARCHAR2(400); -- 'Line is billed and cannot be priced'; --3912685
61
62
63 G_OKS_SUCCESS CONSTANT VARCHAR2(10) := 'OKS_S'; --3912685
64 G_BILLED CONSTANT VARCHAR2(10) := 'OKS_B'; --3912685
65 G_FULLY_BILLED CONSTANT VARCHAR2(10) := 'OKS_FB'; --3912685
66 G_PARTIAL_BILLED CONSTANT VARCHAR2(10) := 'OKS_PB'; --3912685
67
68 G_STS_CODE_SUCCESS CONSTANT VARCHAR2(1) := 'S';
69 G_STS_CODE_ERROR CONSTANT VARCHAR2(1) := 'E';
70 G_HDR_LEVEL CONSTANT VARCHAR2(4) := 'HDR';
71 G_LINE_LEVEL CONSTANT VARCHAR2(4) := 'TL';
72
73 G_OKC_HDR CONSTANT VARCHAR2(4) := 'CHR';
74 G_OKC_LINE CONSTANT VARCHAR2(4) := 'CLE';
75 G_OKS_HDR CONSTANT VARCHAR2(4) := 'KHR';
76 G_OKS_LINE CONSTANT VARCHAR2(4) := 'KLE';
77
78 G_SERVICE CONSTANT NUMBER := 1;
79 G_EXT_WARRANTY CONSTANT NUMBER := 19;
80 G_SUBSCRIPTION CONSTANT NUMBER := 46;
81 G_USAGE CONSTANT NUMBER := 12;
82
83 G_SERVICE_CP CONSTANT NUMBER := 9;
84 G_SERVICE_CI CONSTANT NUMBER := 7;
85
86 G_PRICING_STATUS_TBL Pricing_Status_Tbl;
87 G_INDEX NUMBER;
88
89 PROCEDURE COMPUTE_PRICE
90 (
91 p_api_version IN NUMBER,
92 p_init_msg_list IN VARCHAR2,
93 p_detail_rec IN OKS_QP_PKG.INPUT_DETAILS,
94 x_price_details OUT NOCOPY OKS_QP_PKG.PRICE_DETAILS,
95 x_modifier_details OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
96 x_price_break_details OUT NOCOPY OKS_QP_PKG.G_PRICE_BREAK_TBL_TYPE,
97 x_return_status OUT NOCOPY VARCHAR2,
98 x_msg_count OUT NOCOPY NUMBER,
99 x_msg_data OUT NOCOPY VARCHAR2
100 );
101
102 FUNCTION GET_PRICING_MESSAGES RETURN PRICING_STATUS_TBL;
103
104 PROCEDURE GET_K_DETAILS (
105 p_id IN NUMBER,
106 p_type IN VARCHAR2,
107 x_k_det_rec OUT NOCOPY k_details_rec
108 );
109
110 PROCEDURE GET_MODIFIER_DETAILS (
111 p_api_version IN NUMBER,
112 p_init_msg_list IN VARCHAR2,
113 p_chr_id IN NUMBER,
114 p_cle_id IN VARCHAR2,
115 x_modifiers_tbl OUT NOCOPY price_modifiers_tbl,
116 x_return_status OUT NOCOPY VARCHAR2,
117 x_msg_count OUT NOCOPY NUMBER,
118 x_msg_data OUT NOCOPY VARCHAR2
119 );
120
121 PROCEDURE QUALIFIER_PARTY_MERGE
122 (
123 p_from_fk_id IN NUMBER,
124 p_to_fk_id IN NUMBER,
125 x_return_status OUT NOCOPY VARCHAR2
126 );
127
128 PROCEDURE QUALIFIER_ACCOUNT_MERGE
129 (
130 req_id NUMBER,
131 set_num NUMBER
132 );
133
134 END OKS_QP_INT_PVT;