28: )
29: IS
30: BEGIN
31:
32: x_return_status := FND_API.G_RET_STS_SUCCESS;
33:
34: INSERT INTO
35: CST_MGD_INFL_ADJ_PER_STATUSES(
36: Organization_ID
63:
64: EXCEPTION
65:
66: WHEN OTHERS THEN
67: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
68: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
69: THEN
70: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
71: , 'Create_Period_Final_Status'
78:
79: --========================================================================
80: PROCEDURE Create_Historical_Cost (
81: p_api_version_number IN NUMBER
82: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
83: , x_return_status OUT NOCOPY VARCHAR2
84: , x_msg_count OUT NOCOPY NUMBER
85: , x_msg_data OUT NOCOPY VARCHAR2
86: , p_historical_infl_adj_rec IN Inflation_Adjustment_Rec_Type
92: l_historical_infl_adj_rec Inflation_Adjustment_Rec_Type;
93: BEGIN
94:
95: -- Standard call to check for call compatibility
96: IF NOT FND_API.Compatible_API_Call
97: ( l_api_version_number
98: , p_api_version_number
99: , L_API_NAME
100: , G_PKG_NAME
99: , L_API_NAME
100: , G_PKG_NAME
101: )
102: THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: -- Initialize message stack if required
107: IF FND_API.to_Boolean(p_init_msg_list)
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
104: END IF;
105:
106: -- Initialize message stack if required
107: IF FND_API.to_Boolean(p_init_msg_list)
108: THEN
109: FND_MSG_PUB.initialize;
110: END IF;
111:
108: THEN
109: FND_MSG_PUB.initialize;
110: END IF;
111:
112: x_return_status := FND_API.G_RET_STS_SUCCESS;
113:
114: l_historical_infl_adj_rec := p_historical_infl_adj_rec;
115:
116: -- Clear status table
123: ( p_historical_infl_adj_rec => l_historical_infl_adj_rec
124: , x_return_status => l_return_status
125: );
126:
127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
128: THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
131: THEN
125: );
126:
127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
128: THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
131: THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
126:
127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
128: THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
131: THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
128: THEN
129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
131: THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
135: -- Default missing attributes
136: CST_MGD_INFL_ADJUSTMENT_PVT.Hist_Default
148: , p_acct_period_id => l_historical_infl_adj_rec.acct_period_id
149: , x_return_status => l_return_status
150: );
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
153: THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
156: THEN
150: );
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
153: THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
156: THEN
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
153: THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
156: THEN
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159:
153: THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
156: THEN
157: RAISE FND_API.G_EXC_ERROR;
158: END IF;
159:
160: EXCEPTION
161:
158: END IF;
159:
160: EXCEPTION
161:
162: WHEN FND_API.G_EXC_ERROR THEN
163: x_return_status := FND_API.G_RET_STS_ERROR;
164: DELETE FROM CST_MGD_INFL_ADJUSTED_COSTS
165: WHERE Organization_ID = l_historical_infl_adj_rec.organization_id
166: AND Acct_Period_ID = l_historical_infl_adj_rec.acct_period_id;
159:
160: EXCEPTION
161:
162: WHEN FND_API.G_EXC_ERROR THEN
163: x_return_status := FND_API.G_RET_STS_ERROR;
164: DELETE FROM CST_MGD_INFL_ADJUSTED_COSTS
165: WHERE Organization_ID = l_historical_infl_adj_rec.organization_id
166: AND Acct_Period_ID = l_historical_infl_adj_rec.acct_period_id;
167:
169: FND_MSG_PUB.Count_And_Get
170: ( p_count => x_msg_count
171: , p_data => x_msg_data
172: );
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: DELETE FROM CST_MGD_INFL_ADJUSTED_COSTS
176: WHERE Organization_ID = l_historical_infl_adj_rec.organization_id
177: AND Acct_Period_ID = l_historical_infl_adj_rec.acct_period_id;
170: ( p_count => x_msg_count
171: , p_data => x_msg_data
172: );
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: DELETE FROM CST_MGD_INFL_ADJUSTED_COSTS
176: WHERE Organization_ID = l_historical_infl_adj_rec.organization_id
177: AND Acct_Period_ID = l_historical_infl_adj_rec.acct_period_id;
178:
181: ( p_count => x_msg_count
182: , p_data => x_msg_data
183: );
184: WHEN OTHERS THEN
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: DELETE FROM CST_MGD_INFL_ADJUSTED_COSTS
187: WHERE Organization_ID = l_historical_infl_adj_rec.organization_id
188: AND Acct_Period_ID = l_historical_infl_adj_rec.acct_period_id;
189:
205:
206: --========================================================================
207: -- PROCEDURE : Delete_All_Historical_Costs PUBLIC
208: -- PARAMETERS: p_api_version_number known api version error buffer
209: -- p_init_msg_list FND_API.G_TRUE to reset list
210: -- x_return_status return status
211: -- x_msg_count number of messages in the list
212: -- x_msg_data text of messages
213: -- VERSION : current version 1.0
216: -- process
217: --========================================================================
218: PROCEDURE Delete_All_Historical_Costs (
219: p_api_version_number IN NUMBER
220: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
221: , x_return_status OUT NOCOPY VARCHAR2
222: , x_msg_count OUT NOCOPY NUMBER
223: , x_msg_data OUT NOCOPY VARCHAR2
224: )
228: L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_All_Historical_Costs';
229: BEGIN
230:
231: -- Standard call to check for call compatibility
232: IF NOT FND_API.Compatible_API_Call
233: ( l_api_version_number
234: , p_api_version_number
235: , L_API_NAME
236: , G_PKG_NAME
235: , L_API_NAME
236: , G_PKG_NAME
237: )
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: -- Initialize message stack if required
243: IF FND_API.to_Boolean(p_init_msg_list)
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: -- Initialize message stack if required
243: IF FND_API.to_Boolean(p_init_msg_list)
244: THEN
245: FND_MSG_PUB.initialize;
246: END IF;
247:
252: DELETE FROM CST_MGD_INFL_ADJ_PER_STATUSES;
253:
254: EXCEPTION
255:
256: WHEN FND_API.G_EXC_ERROR THEN
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: -- Get message count and data
259: FND_MSG_PUB.Count_And_Get
260: ( p_count => x_msg_count
253:
254: EXCEPTION
255:
256: WHEN FND_API.G_EXC_ERROR THEN
257: x_return_status := FND_API.G_RET_STS_ERROR;
258: -- Get message count and data
259: FND_MSG_PUB.Count_And_Get
260: ( p_count => x_msg_count
261: , p_data => x_msg_data
259: FND_MSG_PUB.Count_And_Get
260: ( p_count => x_msg_count
261: , p_data => x_msg_data
262: );
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
265: -- Get message count and data
266: FND_MSG_PUB.Count_And_Get
267: ( p_count => x_msg_count
260: ( p_count => x_msg_count
261: , p_data => x_msg_data
262: );
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
265: -- Get message count and data
266: FND_MSG_PUB.Count_And_Get
267: ( p_count => x_msg_count
268: , p_data => x_msg_data
267: ( p_count => x_msg_count
268: , p_data => x_msg_data
269: );
270: WHEN OTHERS THEN
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
272: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
273: THEN
274: FND_MSG_PUB.Add_Exc_Msg
275: ( G_PKG_NAME