6: /*-------------------------------------------------------------------------*/
7: PROCEDURE Add_Parent_Position_Line
8: (
9: p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: --
14: p_return_status OUT NOCOPY VARCHAR2,
7: PROCEDURE Add_Parent_Position_Line
8: (
9: p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: --
14: p_return_status OUT NOCOPY VARCHAR2,
15: p_msg_count OUT NOCOPY NUMBER,
8: (
9: p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: --
14: p_return_status OUT NOCOPY VARCHAR2,
15: p_msg_count OUT NOCOPY NUMBER,
16: p_msg_data OUT NOCOPY VARCHAR2,
29: BEGIN
30: --
31: SAVEPOINT Insert_Row_Pvt ;
32: --
33: IF NOT FND_API.Compatible_API_Call ( l_api_version,
34: p_api_version,
35: l_api_name,
36: G_PKG_NAME )
37: THEN
34: p_api_version,
35: l_api_name,
36: G_PKG_NAME )
37: THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
39: END IF;
40:
41: --
42:
39: END IF;
40:
41: --
42:
43: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
44: FND_MSG_PUB.initialize ;
45: END IF;
46: --
47: p_return_status := FND_API.G_RET_STS_SUCCESS ;
43: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
44: FND_MSG_PUB.initialize ;
45: END IF;
46: --
47: p_return_status := FND_API.G_RET_STS_SUCCESS ;
48:
49: --
50:
51: PSB_WS_OPS_PVT.Add_Worksheet_Position_Line
50:
51: PSB_WS_OPS_PVT.Add_Worksheet_Position_Line
52: (
53: p_api_version => 1.0,
54: p_init_msg_list => FND_API.G_FALSE,
55: p_commit => FND_API.G_FALSE,
56: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
57: --
58: p_return_status => l_return_status,
51: PSB_WS_OPS_PVT.Add_Worksheet_Position_Line
52: (
53: p_api_version => 1.0,
54: p_init_msg_list => FND_API.G_FALSE,
55: p_commit => FND_API.G_FALSE,
56: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
57: --
58: p_return_status => l_return_status,
59: p_msg_count => p_msg_count,
52: (
53: p_api_version => 1.0,
54: p_init_msg_list => FND_API.G_FALSE,
55: p_commit => FND_API.G_FALSE,
56: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
57: --
58: p_return_status => l_return_status,
59: p_msg_count => p_msg_count,
60: p_msg_data => p_msg_data,
62: p_worksheet_id => p_worksheet_id,
63: p_position_line_id => p_position_line_id
64: );
65: --
66: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
67: RAISE FND_API.G_EXC_ERROR ;
68: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
70: END IF;
63: p_position_line_id => p_position_line_id
64: );
65: --
66: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
67: RAISE FND_API.G_EXC_ERROR ;
68: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
70: END IF;
71:
64: );
65: --
66: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
67: RAISE FND_API.G_EXC_ERROR ;
68: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
70: END IF;
71:
72:
65: --
66: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
67: RAISE FND_API.G_EXC_ERROR ;
68: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
70: END IF;
71:
72:
73: --
70: END IF;
71:
72:
73: --
74: IF FND_API.To_Boolean ( p_commit ) THEN
75: COMMIT WORK;
76: END iF;
77: --
78: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
79: p_data => p_msg_data );
80: --
81: EXCEPTION
82: --
83: WHEN FND_API.G_EXC_ERROR THEN
84: --
85: ROLLBACK TO Insert_Row_Pvt ;
86: p_return_status := FND_API.G_RET_STS_ERROR;
87: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
82: --
83: WHEN FND_API.G_EXC_ERROR THEN
84: --
85: ROLLBACK TO Insert_Row_Pvt ;
86: p_return_status := FND_API.G_RET_STS_ERROR;
87: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
88: p_data => p_msg_data );
89: --
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: p_return_status := FND_API.G_RET_STS_ERROR;
87: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
88: p_data => p_msg_data );
89: --
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: --
92: ROLLBACK TO Insert_Row_Pvt ;
93: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
89: --
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: --
92: ROLLBACK TO Insert_Row_Pvt ;
93: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
95: p_data => p_msg_data );
96: --
97: WHEN OTHERS THEN
96: --
97: WHEN OTHERS THEN
98: --
99: ROLLBACK TO Insert_Row_Pvt ;
100: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
101: --
102: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
103: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
104: l_api_name);
113:
114: PROCEDURE Add_Parent_Account_Line
115: (
116: p_api_version IN NUMBER,
117: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
118: p_commit IN VARCHAR2 := FND_API.G_FALSE,
119: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
120: --
121: p_return_status OUT NOCOPY VARCHAR2,
114: PROCEDURE Add_Parent_Account_Line
115: (
116: p_api_version IN NUMBER,
117: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
118: p_commit IN VARCHAR2 := FND_API.G_FALSE,
119: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
120: --
121: p_return_status OUT NOCOPY VARCHAR2,
122: p_msg_count OUT NOCOPY NUMBER,
115: (
116: p_api_version IN NUMBER,
117: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
118: p_commit IN VARCHAR2 := FND_API.G_FALSE,
119: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
120: --
121: p_return_status OUT NOCOPY VARCHAR2,
122: p_msg_count OUT NOCOPY NUMBER,
123: p_msg_data OUT NOCOPY VARCHAR2,
136: BEGIN
137: --
138: SAVEPOINT Insert_Row_Pvt ;
139: --
140: IF NOT FND_API.Compatible_API_Call ( l_api_version,
141: p_api_version,
142: l_api_name,
143: G_PKG_NAME )
144: THEN
141: p_api_version,
142: l_api_name,
143: G_PKG_NAME )
144: THEN
145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
146: END IF;
147:
148: --
149:
146: END IF;
147:
148: --
149:
150: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
151: FND_MSG_PUB.initialize ;
152: END IF;
153: --
154: p_return_status := FND_API.G_RET_STS_SUCCESS ;
150: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
151: FND_MSG_PUB.initialize ;
152: END IF;
153: --
154: p_return_status := FND_API.G_RET_STS_SUCCESS ;
155:
156: --
157:
158: PSB_WS_OPS_PVT.Add_Worksheet_Line
157:
158: PSB_WS_OPS_PVT.Add_Worksheet_Line
159: (
160: p_api_version => 1.0,
161: p_init_msg_list => FND_API.G_FALSE,
162: p_commit => FND_API.G_FALSE,
163: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
164: --
165: p_return_status => l_return_status,
158: PSB_WS_OPS_PVT.Add_Worksheet_Line
159: (
160: p_api_version => 1.0,
161: p_init_msg_list => FND_API.G_FALSE,
162: p_commit => FND_API.G_FALSE,
163: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
164: --
165: p_return_status => l_return_status,
166: p_msg_count => p_msg_count,
159: (
160: p_api_version => 1.0,
161: p_init_msg_list => FND_API.G_FALSE,
162: p_commit => FND_API.G_FALSE,
163: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
164: --
165: p_return_status => l_return_status,
166: p_msg_count => p_msg_count,
167: p_msg_data => p_msg_data,
169: p_worksheet_id => p_worksheet_id,
170: p_position_line_id => p_position_line_id
171: );
172: --
173: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR ;
175: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
177: END IF;
170: p_position_line_id => p_position_line_id
171: );
172: --
173: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR ;
175: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
177: END IF;
178:
171: );
172: --
173: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR ;
175: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
177: END IF;
178:
179:
172: --
173: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR ;
175: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
177: END IF;
178:
179:
180: --
177: END IF;
178:
179:
180: --
181: IF FND_API.To_Boolean ( p_commit ) THEN
182: COMMIT WORK;
183: END iF;
184: --
185: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
186: p_data => p_msg_data );
187: --
188: EXCEPTION
189: --
190: WHEN FND_API.G_EXC_ERROR THEN
191: --
192: ROLLBACK TO Insert_Row_Pvt ;
193: p_return_status := FND_API.G_RET_STS_ERROR;
194: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
189: --
190: WHEN FND_API.G_EXC_ERROR THEN
191: --
192: ROLLBACK TO Insert_Row_Pvt ;
193: p_return_status := FND_API.G_RET_STS_ERROR;
194: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
195: p_data => p_msg_data );
196: --
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
193: p_return_status := FND_API.G_RET_STS_ERROR;
194: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
195: p_data => p_msg_data );
196: --
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: --
199: ROLLBACK TO Insert_Row_Pvt ;
200: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
196: --
197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198: --
199: ROLLBACK TO Insert_Row_Pvt ;
200: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
202: p_data => p_msg_data );
203: --
204: WHEN OTHERS THEN
203: --
204: WHEN OTHERS THEN
205: --
206: ROLLBACK TO Insert_Row_Pvt ;
207: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: --
209: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
210: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
211: l_api_name);
222:
223: PROCEDURE Insert_Row
224: (
225: p_api_version IN NUMBER,
226: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
227: p_commit IN VARCHAR2 := FND_API.G_FALSE,
228: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
229: --
230: p_return_status OUT NOCOPY VARCHAR2,
223: PROCEDURE Insert_Row
224: (
225: p_api_version IN NUMBER,
226: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
227: p_commit IN VARCHAR2 := FND_API.G_FALSE,
228: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
229: --
230: p_return_status OUT NOCOPY VARCHAR2,
231: p_msg_count OUT NOCOPY NUMBER,
224: (
225: p_api_version IN NUMBER,
226: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
227: p_commit IN VARCHAR2 := FND_API.G_FALSE,
228: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
229: --
230: p_return_status OUT NOCOPY VARCHAR2,
231: p_msg_count OUT NOCOPY NUMBER,
232: p_msg_data OUT NOCOPY VARCHAR2,
247: BEGIN
248: --
249: SAVEPOINT Insert_Row_Pvt ;
250: --
251: IF NOT FND_API.Compatible_API_Call ( l_api_version,
252: p_api_version,
253: l_api_name,
254: G_PKG_NAME )
255: THEN
252: p_api_version,
253: l_api_name,
254: G_PKG_NAME )
255: THEN
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
257: END IF;
258:
259: --
260:
257: END IF;
258:
259: --
260:
261: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
262: FND_MSG_PUB.initialize ;
263: END IF;
264: --
265: p_return_status := FND_API.G_RET_STS_SUCCESS ;
261: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
262: FND_MSG_PUB.initialize ;
263: END IF;
264: --
265: p_return_status := FND_API.G_RET_STS_SUCCESS ;
266:
267: --
268:
269: PSB_WS_POS_PVT.Create_Position_Lines
268:
269: PSB_WS_POS_PVT.Create_Position_Lines
270: (
271: p_api_version => 1.0,
272: p_init_msg_list => FND_API.G_FALSE,
273: p_commit => FND_API.G_FALSE,
274: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
275: --
276: p_return_status => l_return_status,
269: PSB_WS_POS_PVT.Create_Position_Lines
270: (
271: p_api_version => 1.0,
272: p_init_msg_list => FND_API.G_FALSE,
273: p_commit => FND_API.G_FALSE,
274: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
275: --
276: p_return_status => l_return_status,
277: p_msg_count => p_msg_count,
270: (
271: p_api_version => 1.0,
272: p_init_msg_list => FND_API.G_FALSE,
273: p_commit => FND_API.G_FALSE,
274: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
275: --
276: p_return_status => l_return_status,
277: p_msg_count => p_msg_count,
278: p_msg_data => p_msg_data,
283: p_budget_group_id => p_budget_group_id
284: );
285: --
286:
287: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
288: RAISE FND_API.G_EXC_ERROR ;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
291: END IF;
284: );
285: --
286:
287: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
288: RAISE FND_API.G_EXC_ERROR ;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
291: END IF;
292:
285: --
286:
287: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
288: RAISE FND_API.G_EXC_ERROR ;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
291: END IF;
292:
293:
286:
287: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
288: RAISE FND_API.G_EXC_ERROR ;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
291: END IF;
292:
293:
294: EXCEPTION
292:
293:
294: EXCEPTION
295: --
296: WHEN FND_API.G_EXC_ERROR THEN
297: --
298: ROLLBACK TO Insert_Row_Pvt ;
299: p_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
295: --
296: WHEN FND_API.G_EXC_ERROR THEN
297: --
298: ROLLBACK TO Insert_Row_Pvt ;
299: p_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
301: p_data => p_msg_data );
302: --
303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
299: p_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
301: p_data => p_msg_data );
302: --
303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
304: --
305: ROLLBACK TO Insert_Row_Pvt ;
306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
307: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
302: --
303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
304: --
305: ROLLBACK TO Insert_Row_Pvt ;
306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
307: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
308: p_data => p_msg_data );
309: --
310: WHEN OTHERS THEN
309: --
310: WHEN OTHERS THEN
311: --
312: ROLLBACK TO Insert_Row_Pvt ;
313: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: --
315: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
316: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
317: l_api_name);