[Home] [Help]
PACKAGE: APPS.OKL_LEASE_OPPORTUNITY_PVT
Source
1 PACKAGE OKL_LEASE_OPPORTUNITY_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRLOPS.pls 120.4 2005/10/12 19:22:10 rfedane noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_LEASE_OPPORTUNITY_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 lease_opp_rec_type IS okl_lop_pvt.lopv_rec_type;
28 SUBTYPE lease_opp_tbl_type IS okl_lop_pvt.lopv_tbl_type;
29
30 ----------------
31 -- PROGRAM UNITS
32 ----------------
33 PROCEDURE create_lease_opp (p_api_version IN NUMBER,
34 p_init_msg_list IN VARCHAR2,
35 p_transaction_control IN VARCHAR2,
36 p_lease_opp_rec IN lease_opp_rec_type,
37 p_quick_quote_id IN NUMBER,
38 x_lease_opp_rec OUT NOCOPY lease_opp_rec_type,
39 x_return_status OUT NOCOPY VARCHAR2,
40 x_msg_count OUT NOCOPY NUMBER,
41 x_msg_data OUT NOCOPY VARCHAR2);
42
43
44 PROCEDURE update_lease_opp (p_api_version IN NUMBER,
45 p_init_msg_list IN VARCHAR2,
46 p_transaction_control IN VARCHAR2,
47 p_lease_opp_rec IN lease_opp_rec_type,
48 x_lease_opp_rec OUT NOCOPY lease_opp_rec_type,
49 x_return_status OUT NOCOPY VARCHAR2,
50 x_msg_count OUT NOCOPY NUMBER,
51 x_msg_data OUT NOCOPY VARCHAR2);
52
53
54 PROCEDURE cancel_lease_opp (p_api_version IN NUMBER,
55 p_init_msg_list IN VARCHAR2,
56 p_transaction_control IN VARCHAR2,
57 p_lease_opp_id IN 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 defaults_for_lease_opp (p_api_version IN NUMBER,
64 p_init_msg_list IN VARCHAR2,
65 p_transaction_control IN VARCHAR2,
66 p_lease_opp_rec IN lease_opp_rec_type,
67 p_user_id IN VARCHAR2,
68 x_sales_rep_name OUT NOCOPY VARCHAR2,
69 x_lease_opp_rec OUT NOCOPY lease_opp_rec_type,
70 x_dff_name OUT NOCOPY VARCHAR2,
71 x_return_status OUT NOCOPY VARCHAR2,
72 x_msg_count OUT NOCOPY NUMBER,
73 x_msg_data OUT NOCOPY VARCHAR2);
74
75
76 PROCEDURE duplicate_lease_opp (p_api_version IN NUMBER,
77 p_init_msg_list IN VARCHAR2,
78 p_transaction_control IN VARCHAR2,
79 p_source_leaseopp_id IN NUMBER,
80 p_lease_opp_rec IN lease_opp_rec_type,
81 x_lease_opp_rec OUT NOCOPY lease_opp_rec_type,
82 x_return_status OUT NOCOPY VARCHAR2,
83 x_msg_count OUT NOCOPY NUMBER,
84 x_msg_data OUT NOCOPY VARCHAR2);
85
86
87 END OKL_LEASE_OPPORTUNITY_PVT;