[Home] [Help]
PACKAGE BODY: APPS.PON_CLM_OKC_INTEG_PKG
Source
1 PACKAGE BODY PON_CLM_OKC_INTEG_PKG as
2 /* $Header: PON_CLM_OKC_INTEG_PKG.plb 120.0.12020000.3 2013/03/06 11:35:58 sgulkota noship $ */
3
4 FUNCTION GET_SOL_TOTAL_AMT(p_auction_header_id IN NUMBER) RETURN NUMBER
5 IS
6
7 l_sol_total_amt NUMBER := 0;
8
9 l_api_name VARCHAR2(30) := 'GET_SOL_TOTAL_AMT';
10
11 BEGIN
12 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13 FND_LOG.string(log_level => FND_LOG.level_statement,
14 module => l_api_name,
15 message => 'Entered with parameters p_auction_header_id : ' || p_auction_header_id);
16 END IF;
17
18 SELECT Sum(Nvl(clm_amount, 0))
19 INTO l_sol_total_amt
20 FROM pon_auction_item_prices_all
21 WHERE auction_header_id = p_auction_header_id;
22
23 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24 FND_LOG.string(log_level => FND_LOG.level_statement,
25 module => l_api_name,
26 message => 'l_sol_total_amt : ' || l_sol_total_amt);
27 END IF;
28
29 RETURN l_sol_total_amt;
30
31 EXCEPTION
32 WHEN OTHERS THEN
33 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
34 FND_LOG.string(log_level => FND_LOG.level_statement,
35 module => l_api_name,
36 message => 'Error Occured when fetching data');
37 END IF;
38 RETURN l_sol_total_amt;
39
40 END GET_SOL_TOTAL_AMT;
41
42 PROCEDURE GET_SBCR_DETAILS(p_auction_header_id IN NUMBER,
43 x_contract_id OUT NOCOPY NUMBER,
44 x_contract_status_code OUT NOCOPY VARCHAR2,
45 x_coordination_type OUT NOCOPY VARCHAR2,
46 x_return_status OUT NOCOPY VARCHAR2)
47 IS
48
49 l_document_rec OKC_IMP_RECORD_TYPES.document_rec_type;
50 l_msg_data VARCHAR2(2000);
51 l_msg_count NUMBER;
52 l_contract_type VARCHAR2(150) := 'REP_SBCR';
53 l_contract_version_num NUMBER;
54 l_contract_id NUMBER;
55
56 l_contract_rec OKC_IMP_RECORD_TYPES.contract_rec_type;
57
58 l_api_name VARCHAR2(30) := 'GET_SBCR_DETAILS';
59
60 BEGIN
61
62 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
63 FND_LOG.string(log_level => FND_LOG.level_statement,
64 module => l_api_name,
65 message => 'Entered with parameters p_auction_header_id : ' || p_auction_header_id);
66 END IF;
67
68 l_document_rec.business_document_type := 'SOLICITATION';
69 l_document_rec.business_document_id := p_auction_header_id;
70
71 l_contract_rec.contract_type := l_contract_type;
72
73
74 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
75 FND_LOG.string(log_level => FND_LOG.level_statement,
76 module => l_api_name,
77 message => 'Passing the following parameters to OKC_REP_CONTRACT_IMP_PUB.check_contract_exists ' ||
78 'l_document_rec.business_document_id : ' || p_auction_header_id ||
79 'l_document_rec.business_document_type : SOLICITATION' ||
80 'l_contract_rec.contract_type :' || l_contract_type);
81 END IF;
82
83 OKC_REP_CONTRACT_IMP_PUB.check_contract_exists(p_api_version => 1.0,
84 p_document_rec => l_document_rec,
85 x_contract_rec => l_contract_rec,
86 x_msg_data => l_msg_data,
87 x_msg_count => l_msg_count,
88 x_return_status => x_return_status);
89
90 IF(l_contract_rec.contract_id IS NULL) THEN
91 x_contract_id := 0;
92 ELSE
93 x_contract_id := l_contract_rec.contract_id;
94 END IF;
95
96 x_contract_status_code := l_contract_rec.contract_status_code;
97 x_coordination_type := l_contract_rec.sbcr_coordination_type;
98
99
100 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
101 FND_LOG.string(log_level => FND_LOG.level_statement,
102 module => l_api_name,
103 message => 'Exited OKC_REP_CONTRACT_IMP_PUB.check_contract_exists with return status : ' || x_return_status);
104 END IF;
105
106 EXCEPTION
107 WHEN OTHERS THEN
108 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
109 FND_LOG.string(log_level => FND_LOG.level_statement,
110 module => l_api_name,
111 message => 'Exception when getting SBCR details. Returning with status : ' || x_return_status);
112 END IF;
113
114 END GET_SBCR_DETAILS;
115
116 PROCEDURE DELETE_SBCR(p_auction_header_id IN NUMBER,
117 p_contract_id IN NUMBER,
118 x_return_status OUT NOCOPY VARCHAR2)
119 IS
120
121 l_document_rec OKC_IMP_RECORD_TYPES.document_rec_type;
122 l_msg_data VARCHAR2(2000);
123 l_msg_count NUMBER;
124 l_contract_type VARCHAR2(150) := 'REP_SBCR';
125
126 l_api_name VARCHAR2(30) := 'DELETE_SBCR';
127
128 BEGIN
129
130 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
131 FND_LOG.string(log_level => FND_LOG.level_statement,
132 module => l_api_name,
133 message => 'Entered with parameters p_auction_header_id : ' || p_auction_header_id ||
134 'p_contract_id : ' || p_contract_id);
135 END IF;
136
137 l_document_rec.business_document_type := 'SOLICITATION';
138 l_document_rec.business_document_id := p_auction_header_id;
139
140
141 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
142 FND_LOG.string(log_level => FND_LOG.level_statement,
143 module => l_api_name,
144 message => 'Passing the following parameters to OKC_REP_CONTRACT_IMP_PUB.check_contract_exists ' ||
145 'l_document_rec.business_document_id : ' || p_auction_header_id ||
146 'l_document_rec.business_document_type : SOLICITATION' ||
147 'x_contract_type :' || l_contract_type ||
148 'p_contract_id : ' || p_contract_id);
149 END IF;
150
151 OKC_REP_CONTRACT_IMP_PUB.delete_contract(p_api_version => 1.0,
152 p_document_rec => l_document_rec,
153 p_contract_type => l_contract_type,
154 p_contract_id => p_contract_id,
155 p_commit => fnd_api.g_false,
156 x_msg_data => l_msg_data,
157 x_msg_count => l_msg_count,
158 x_return_status => x_return_status);
159
160
161 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
162 FND_LOG.string(log_level => FND_LOG.level_statement,
163 module => l_api_name,
164 message => 'Exited OKC_REP_CONTRACT_IMP_PUB.delete_contract with return status : ' || x_return_status);
165 END IF;
166
167 EXCEPTION
168 WHEN OTHERS THEN
169 IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
170 FND_LOG.string(log_level => FND_LOG.level_statement,
171 module => l_api_name,
172 message => 'Exception when deleting SBCR for auction_header_id : ' || p_auction_header_id || '. Returning with status : ' || x_return_status);
173 END IF;
174
175 END DELETE_SBCR;
176
177 end PON_CLM_OKC_INTEG_PKG;