1 PACKAGE OKL_LEASE_QUOTE_SERVICE_PVT AS
2 /* $Header: OKLRQUSS.pls 120.3 2005/10/27 03:30:10 rravikir noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_LEASE_QUOTE_SERVICE_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(30) := OKL_API.G_APP_NAME;
9 G_API_VERSION CONSTANT NUMBER := 1;
10 G_USER_ID CONSTANT NUMBER := FND_GLOBAL.USER_ID;
11 G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.LOGIN_ID;
12 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
14 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
15 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
16 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
17 G_DB_ERROR CONSTANT VARCHAR2(30) := 'OKL_DB_ERROR';
18 G_PKG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PKG_NAME';
19 G_PROG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PROG_NAME';
20 G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'SQLCODE';
21 G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'SQLERRM';
22
23
24 ------------------
25 -- DATA STRUCTURES
26 ------------------
27 subtype lr_tbl_type is okl_lre_pvt.lrev_tbl_type;
28
29 TYPE line_relation_rec_type IS RECORD (
30 id okl_line_relationships_b.id%TYPE
31 ,object_version_number okl_line_relationships_b.object_version_number%TYPE
32 ,source_line_type okl_line_relationships_b.source_line_type%TYPE
33 ,source_line_id okl_line_relationships_b.source_line_id%TYPE
34 ,related_line_type okl_line_relationships_b.related_line_type%TYPE
35 ,related_line_id okl_line_relationships_b.related_line_id%TYPE
36 ,amount okl_line_relationships_b.amount%TYPE
37 ,short_description okl_line_relationships_tl.short_description%TYPE
38 ,description okl_line_relationships_tl.description%TYPE
39 ,comments okl_line_relationships_tl.comments%TYPE
40 ,record_mode VARCHAR2(10));
41
42 TYPE line_relation_tbl_type IS TABLE OF line_relation_rec_type INDEX BY PLS_INTEGER;
43
44 ----------------
45 -- PROGRAM UNITS
46 ----------------
47 PROCEDURE create_service (
48 p_api_version IN NUMBER
49 ,p_init_msg_list IN VARCHAR2
50 ,p_transaction_control IN VARCHAR2
51 ,p_service_rec IN okl_svc_pvt.svcv_rec_type
52 ,p_assoc_asset_tbl IN line_relation_tbl_type
53 ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
54 ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
55 ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
56 ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
57 ,x_service_id OUT NOCOPY NUMBER
58 ,x_return_status OUT NOCOPY VARCHAR2
59 ,x_msg_count OUT NOCOPY NUMBER
60 ,x_msg_data OUT NOCOPY VARCHAR2 );
61
62
63 PROCEDURE update_service_assets (
64 p_api_version IN NUMBER
65 ,p_init_msg_list IN VARCHAR2
66 ,p_transaction_control IN VARCHAR2
67 ,p_quote_id IN NUMBER
68 ,p_service_id IN NUMBER
69 ,x_return_status OUT NOCOPY VARCHAR2
70 ,x_msg_count OUT NOCOPY NUMBER
71 ,x_msg_data OUT NOCOPY VARCHAR2 );
72
73 PROCEDURE update_service (
74 p_api_version IN NUMBER
75 ,p_init_msg_list IN VARCHAR2
76 ,p_transaction_control IN VARCHAR2
77 ,p_service_rec IN okl_svc_pvt.svcv_rec_type
78 ,p_assoc_asset_tbl IN line_relation_tbl_type
79 ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
80 ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
81 ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
82 ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
83 ,x_return_status OUT NOCOPY VARCHAR2
84 ,x_msg_count OUT NOCOPY NUMBER
85 ,x_msg_data OUT NOCOPY VARCHAR2 );
86
87
88 PROCEDURE duplicate_service (
89 p_api_version IN NUMBER
90 ,p_init_msg_list IN VARCHAR2
91 ,p_transaction_control IN VARCHAR2
92 ,p_source_service_id IN NUMBER
93 ,p_service_rec IN okl_svc_pvt.svcv_rec_type
94 ,p_assoc_asset_tbl IN line_relation_tbl_type
95 ,p_payment_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
96 ,p_payment_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
97 ,p_expense_header_rec IN okl_lease_quote_cashflow_pvt.cashflow_header_rec_type
98 ,p_expense_level_tbl IN okl_lease_quote_cashflow_pvt.cashflow_level_tbl_type
99 ,x_service_id OUT NOCOPY NUMBER
100 ,x_return_status OUT NOCOPY VARCHAR2
101 ,x_msg_count OUT NOCOPY NUMBER
102 ,x_msg_data OUT NOCOPY VARCHAR2 );
103
104 PROCEDURE duplicate_service (
105 p_api_version IN NUMBER
106 ,p_init_msg_list IN VARCHAR2
107 ,p_transaction_control IN VARCHAR2
108 ,p_source_service_id IN NUMBER
109 ,p_target_quote_id IN NUMBER
110 ,x_service_id OUT NOCOPY NUMBER
111 ,x_return_status OUT NOCOPY VARCHAR2
112 ,x_msg_count OUT NOCOPY NUMBER
113 ,x_msg_data OUT NOCOPY VARCHAR2 );
114
115
116 PROCEDURE delete_service (
117 p_api_version IN NUMBER
118 ,p_init_msg_list IN VARCHAR2
119 ,p_transaction_control IN VARCHAR2
120 ,p_service_id IN NUMBER
121 ,x_return_status OUT NOCOPY VARCHAR2
122 ,x_msg_count OUT NOCOPY NUMBER
123 ,x_msg_data OUT NOCOPY VARCHAR2 );
124
125 END OKL_LEASE_QUOTE_SERVICE_PVT;