[Home] [Help]
PACKAGE BODY: APPS.OKC_OPPORTUNITY_PUB
Source
1 PACKAGE BODY OKC_OPPORTUNITY_PUB AS
2 /* $Header: OKCPOPPB.pls 120.0 2005/05/26 09:54:21 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 /*****************
6 PROCEDURE CREATE_OPPORTUNITY(p_context IN VARCHAR2,
7 p_contract_id IN NUMBER,
8 p_win_probability IN NUMBER,
9 p_expected_close_days IN NUMBER,
10 x_lead_id OUT NOCOPY NUMBER,
11 x_return_status OUT NOCOPY VARCHAR2) IS
12 *******************/
13 PROCEDURE CREATE_OPPORTUNITY(p_api_version IN NUMBER ,
14 p_commit IN VARCHAR2 ,
15 p_context IN VARCHAR2,
16 p_contract_id IN NUMBER,
17 p_win_probability IN NUMBER,
18 p_expected_close_days IN NUMBER,
19 x_lead_id OUT NOCOPY NUMBER,
20 p_init_msg_list IN VARCHAR2,
21 x_msg_data OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_return_status OUT NOCOPY VARCHAR2) IS
24
25 Begin
26 IF (l_debug = 'Y') THEN
27 okc_debug.Set_Indentation('Create_Opportunity');
28 okc_debug.log('100: Entering okc_opportunity_pub.create_opportunity', 2);
29 END IF;
30 okc_opportunity_pvt.Create_Opportunity(p_api_version,
31 p_context,
32 p_contract_id,
33 p_win_probability,
34 p_expected_close_days,
35 x_lead_id,
36 p_init_msg_list,
37 x_msg_data,
38 x_msg_count,
39 x_return_status);
40
41 IF x_return_status = OKC_API.G_RET_STS_SUCCESS AND p_commit = OKC_API.G_TRUE THEN
42 commit;
43 END IF;
44
45 IF (l_debug = 'Y') THEN
46 okc_debug.log('200: Exiting okc_opportunity_pub.create_opportunity', 2);
47 okc_debug.Reset_Indentation;
48 END IF;
49 End;
50
51 PROCEDURE CREATE_OPPORTUNITY(p_api_version IN NUMBER ,
52 p_commit IN VARCHAR2 ,
53 p_context IN VARCHAR2,
54 p_contract_id IN NUMBER,
55 p_win_probability IN NUMBER,
56 p_expected_close_days IN NUMBER,
57 -------x_lead_id OUT NOCOPY NUMBER,
58 p_init_msg_list IN VARCHAR2,
59 x_msg_data OUT NOCOPY VARCHAR2,
60 x_msg_count OUT NOCOPY NUMBER,
61 x_return_status OUT NOCOPY VARCHAR2) IS
62
63 l_lead_id NUMBER;
64 Begin
65 Create_Opportunity(p_api_version,
66 p_commit,
67 p_context,
68 p_contract_id,
69 p_win_probability,
70 p_expected_close_days,
71 l_lead_id,
72 p_init_msg_list,
73 x_msg_data,
74 x_msg_count,
75 x_return_status);
76 End;
77
78
79 /****************
80 PROCEDURE CREATE_OPP_HEADER(p_context IN VARCHAR2,
81 p_contract_id IN NUMBER,
82 p_win_probability IN NUMBER,
83 p_expected_close_days IN NUMBER,
84 x_lead_id OUT NOCOPY NUMBER,
85 x_return_status OUT NOCOPY VARCHAR2) IS
86 *******************/
87 PROCEDURE CREATE_OPP_HEADER(p_api_version IN NUMBER ,
88 p_context IN VARCHAR2,
89 p_contract_id IN NUMBER,
90 p_win_probability IN NUMBER,
91 p_expected_close_days IN NUMBER,
92 x_lead_id OUT NOCOPY NUMBER,
93 p_init_msg_list IN VARCHAR2,
94 x_msg_data OUT NOCOPY VARCHAR2,
95 x_msg_count OUT NOCOPY NUMBER,
96 x_return_status OUT NOCOPY VARCHAR2) IS
97
98 Begin
99 IF (l_debug = 'Y') THEN
100 okc_debug.Set_Indentation('Create_Opp_Header');
101 okc_debug.log('300: Entering okc_opportunity_pub.create_opp_header', 2);
102 END IF;
103 okc_opportunity_pvt.Create_Opp_Header(p_api_version,
104 p_context,
105 p_contract_id,
106 p_win_probability,
107 p_expected_close_days,
108 x_lead_id,
109 p_init_msg_list,
110 x_msg_data,
111 x_msg_count,
112 x_return_status);
113 IF (l_debug = 'Y') THEN
114 okc_debug.log('400: Exiting okc_opportunity_pub.create_opp_header', 2);
115 okc_debug.Reset_Indentation;
116 END IF;
117 End;
118
119 /****************
120 PROCEDURE CREATE_OPP_LINES(p_context IN VARCHAR2,
121 p_contract_id IN NUMBER,
122 p_lead_id IN NUMBER,
123 x_return_status OUT NOCOPY VARCHAR2) IS
124 ******************/
125 PROCEDURE CREATE_OPP_LINES(p_api_version IN NUMBER ,
126 p_context IN VARCHAR2,
127 p_contract_id IN NUMBER,
128 p_lead_id IN NUMBER,
129 p_init_msg_list IN VARCHAR2,
130 x_msg_data OUT NOCOPY VARCHAR2,
131 x_msg_count OUT NOCOPY NUMBER,
132 x_return_status OUT NOCOPY VARCHAR2) IS
133
134 Begin
135 IF (l_debug = 'Y') THEN
136 okc_debug.Set_Indentation('Create_Opp_Lines');
137 okc_debug.log('500: Entering okc_opportunity_pub.create_opp_lines', 2);
138 END IF;
139 okc_opportunity_pvt.create_opp_lines(p_api_version,
140 p_context,
141 p_contract_id,
142 p_lead_id,
143 p_init_msg_list,
144 x_msg_data,
145 x_msg_count,
146 x_return_status);
147 IF (l_debug = 'Y') THEN
148 okc_debug.log('600: Exiting okc_opportunity_pub.create_opp_lines', 2);
149 okc_debug.Reset_Indentation;
150 END IF;
151 End;
152
153 PROCEDURE IS_OPP_CREATION_ALLOWED(p_context IN VARCHAR2,
154 p_contract_id IN NUMBER,
155 x_return_status OUT NOCOPY VARCHAR2) IS
156 Begin
157 IF (l_debug = 'Y') THEN
158 okc_debug.Set_Indentation('Is_Opp_Creation_Allowed');
159 okc_debug.log('700: Entering okc_opportunity_pub.is_opp_creation_allowed', 2);
160 END IF;
161 okc_opportunity_pvt.is_opp_creation_allowed(p_context,
162 p_contract_id,
163 x_return_status);
164 IF (l_debug = 'Y') THEN
165 okc_debug.log('800: Exiting okc_opportunity_pub.is_opp_creation_allowed', 2);
166 okc_debug.Reset_Indentation;
167 END IF;
168 End;
169
170 PROCEDURE GET_OPP_DEFAULTS(p_context IN VARCHAR2,
171 p_contract_id IN NUMBER,
172 x_win_probability IN OUT NOCOPY NUMBER,
173 x_closing_date_days IN OUT NOCOPY NUMBER,
174 x_return_status OUT NOCOPY VARCHAR2) IS
175 Begin
176 IF (l_debug = 'Y') THEN
177 okc_debug.Set_Indentation('Get_Opp_Defaults');
178 okc_debug.log('900: Entering okc_opportunity_pub.get_opp_defaults', 2);
179 END IF;
180 okc_opportunity_pvt.get_opp_defaults(p_context,
181 p_contract_id,
182 x_win_probability,
183 x_closing_date_days,
184 x_return_status);
185 IF (l_debug = 'Y') THEN
186 okc_debug.log('1000: Exiting okc_opportunity_pub.get_opp_defaults', 2);
187 okc_debug.Reset_Indentation;
188 END IF;
189 End;
190 END OKC_OPPORTUNITY_PUB;