11: -- Pre-reqs : None.
12: -- Parameters :
13: -- IN :p_api_version IN NUMBER Required
14: -- p_init_msg_list IN VARCHAR2 Optional
15: -- Default = FND_API.G_FALSE
16: -- p_inter_event_tbl IN INTER_EVENT_TBL_TYPE Required
17: --
18: -- OUT :x_return_status OUT VARCHAR2
19: -- x_msg_count OUT NUMBER
46: L_MSG_data VARCHAR2(2000);
47:
48: BEGIN
49: -- Standard call to check for call compatibility.
50: IF NOT FND_API.Compatible_API_Call (l_api_version ,
51: p_api_version ,
52: l_api_name ,
53: G_PKG_NAME )
54: THEN
51: p_api_version ,
52: l_api_name ,
53: G_PKG_NAME )
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: IF FND_API.to_Boolean( p_init_msg_list ) THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: IF FND_API.to_Boolean( p_init_msg_list ) THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: -- Initialize API return status to success
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: -- Initialize API return status to success
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66: -- API Body
67: -- API Body
68:
86: NVL(p_inter_event_tbl(i).child_erecord_id,-1) <> -1 THEN
87:
88: edr_event_relationship_pub.CREATE_RELATIONSHIP
89: ( p_api_version => 1.0 ,
90: p_init_msg_list => FND_API.G_FALSE ,
91: p_commit => FND_API.G_FALSE ,
92: p_validation_level => FND_API.G_VALID_LEVEL_NONE ,
93: x_return_status => l_return_status ,
94: x_msg_count => l_msg_count ,
87:
88: edr_event_relationship_pub.CREATE_RELATIONSHIP
89: ( p_api_version => 1.0 ,
90: p_init_msg_list => FND_API.G_FALSE ,
91: p_commit => FND_API.G_FALSE ,
92: p_validation_level => FND_API.G_VALID_LEVEL_NONE ,
93: x_return_status => l_return_status ,
94: x_msg_count => l_msg_count ,
95: x_msg_data => l_msg_data ,
88: edr_event_relationship_pub.CREATE_RELATIONSHIP
89: ( p_api_version => 1.0 ,
90: p_init_msg_list => FND_API.G_FALSE ,
91: p_commit => FND_API.G_FALSE ,
92: p_validation_level => FND_API.G_VALID_LEVEL_NONE ,
93: x_return_status => l_return_status ,
94: x_msg_count => l_msg_count ,
95: x_msg_data => l_msg_data ,
96: p_parent_erecord_id => p_inter_event_tbl(i).parent_erecord_id ,
101: p_child_event_key => p_inter_event_tbl(i).child_event_key ,
102: x_relationship_id => l_relationship_id
103: );
104:
105: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
102: x_relationship_id => l_relationship_id
103: );
104:
105: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110: END IF;
103: );
104:
105: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110: END IF;
111: END IF;
104:
105: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
107: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110: END IF;
111: END IF;
112: i := p_inter_event_tbl.NEXT(i);
121: );
122:
123:
124: EXCEPTION
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: ROLLBACK;
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
128:
129:
123:
124: EXCEPTION
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: ROLLBACK;
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
128:
129:
130: FND_MSG_PUB.Count_And_Get
131: (p_count => x_msg_count ,
143:
144: fnd_message.set_encoded(l_msg_data);
145: APP_EXCEPTION.RAISE_EXCEPTION;
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148: ROLLBACK;
149: x_return_status := FND_API.G_RET_STS_ERROR ;
150:
151: FND_MSG_PUB.Count_And_Get
145: APP_EXCEPTION.RAISE_EXCEPTION;
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148: ROLLBACK;
149: x_return_status := FND_API.G_RET_STS_ERROR ;
150:
151: FND_MSG_PUB.Count_And_Get
152: (p_count => x_msg_count ,
153: p_data => x_msg_data
166: APP_EXCEPTION.RAISE_EXCEPTION;
167:
168: WHEN OTHERS THEN
169: ROLLBACK;
170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
171:
172: IF FND_MSG_PUB.Check_Msg_Level
173: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
174: THEN
219: L_MSG_data VARCHAR2(2000);
220:
221: BEGIN
222: -- Standard call to check for call compatibility.
223: IF NOT FND_API.Compatible_API_Call (l_api_version ,
224: p_api_version ,
225: l_api_name ,
226: G_PKG_NAME )
227: THEN
224: p_api_version ,
225: l_api_name ,
226: G_PKG_NAME )
227: THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230:
231: -- Initialize message list if p_init_msg_list is set to TRUE.
232: IF FND_API.to_Boolean( p_init_msg_list ) THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230:
231: -- Initialize message list if p_init_msg_list is set to TRUE.
232: IF FND_API.to_Boolean( p_init_msg_list ) THEN
233: FND_MSG_PUB.initialize;
234: END IF;
235:
236: -- Initialize API return status to success
233: FND_MSG_PUB.initialize;
234: END IF;
235:
236: -- Initialize API return status to success
237: x_return_status := FND_API.G_RET_STS_SUCCESS;
238:
239: -- API Body
240:
241: i := p_inter_event_tbl.FIRST;
268: P_CHILD_EVENT_KEY => p_inter_event_tbl(i).child_event_key
269: );
270:
271: -- If any errors happen abort API.
272: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
275: RAISE FND_API.G_EXC_ERROR;
276: END IF;
269: );
270:
271: -- If any errors happen abort API.
272: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
275: RAISE FND_API.G_EXC_ERROR;
276: END IF;
277: END IF;
270:
271: -- If any errors happen abort API.
272: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
275: RAISE FND_API.G_EXC_ERROR;
276: END IF;
277: END IF;
278: END IF;
271: -- If any errors happen abort API.
272: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
274: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
275: RAISE FND_API.G_EXC_ERROR;
276: END IF;
277: END IF;
278: END IF;
279:
296: );
297:
298:
299: EXCEPTION
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
302:
303:
304: FND_MSG_PUB.Count_And_Get
297:
298:
299: EXCEPTION
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
302:
303:
304: FND_MSG_PUB.Count_And_Get
305: (p_count => x_msg_count ,
317:
318: fnd_message.set_encoded(l_msg_data);
319: APP_EXCEPTION.RAISE_EXCEPTION;
320:
321: WHEN FND_API.G_EXC_ERROR THEN
322: x_return_status := FND_API.G_RET_STS_ERROR ;
323:
324: FND_MSG_PUB.Count_And_Get
325: (p_count => x_msg_count ,
318: fnd_message.set_encoded(l_msg_data);
319: APP_EXCEPTION.RAISE_EXCEPTION;
320:
321: WHEN FND_API.G_EXC_ERROR THEN
322: x_return_status := FND_API.G_RET_STS_ERROR ;
323:
324: FND_MSG_PUB.Count_And_Get
325: (p_count => x_msg_count ,
326: p_data => x_msg_data
338: fnd_message.set_encoded(l_msg_data);
339: APP_EXCEPTION.RAISE_EXCEPTION;
340:
341: WHEN OTHERS THEN
342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
343:
344: IF FND_MSG_PUB.Check_Msg_Level
345: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
346: THEN
394: where document_id = parent_child_record(i).child_erecord_id;
395: edr_ctx_pkg.unset_secure_attr;
396: edr_event_relationship_pub.CREATE_RELATIONSHIP
397: (p_api_version => 1.0,
398: p_init_msg_list => FND_API.G_FALSE,
399: p_commit => FND_API.G_TRUE,
400: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
401: x_return_status => L_RETURN_STATUS,
402: x_msg_count => L_MSG_COUNT,
395: edr_ctx_pkg.unset_secure_attr;
396: edr_event_relationship_pub.CREATE_RELATIONSHIP
397: (p_api_version => 1.0,
398: p_init_msg_list => FND_API.G_FALSE,
399: p_commit => FND_API.G_TRUE,
400: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
401: x_return_status => L_RETURN_STATUS,
402: x_msg_count => L_MSG_COUNT,
403: x_msg_data => L_MSG_DATA,
396: edr_event_relationship_pub.CREATE_RELATIONSHIP
397: (p_api_version => 1.0,
398: p_init_msg_list => FND_API.G_FALSE,
399: p_commit => FND_API.G_TRUE,
400: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
401: x_return_status => L_RETURN_STATUS,
402: x_msg_count => L_MSG_COUNT,
403: x_msg_data => L_MSG_DATA,
404: p_parent_erecord_id => PARENT_CHILD_RECORD(i).PARENT_ERECORD_ID,
413:
414: --Create a relationship for each record in the parent_child_table type
415: edr_event_relationship_pub.CREATE_RELATIONSHIP
416: (p_api_version => 1.0,
417: p_init_msg_list => FND_API.G_FALSE,
418: p_commit => FND_API.G_TRUE,
419: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
420: x_return_status => L_RETURN_STATUS,
421: x_msg_count => L_MSG_COUNT,
414: --Create a relationship for each record in the parent_child_table type
415: edr_event_relationship_pub.CREATE_RELATIONSHIP
416: (p_api_version => 1.0,
417: p_init_msg_list => FND_API.G_FALSE,
418: p_commit => FND_API.G_TRUE,
419: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
420: x_return_status => L_RETURN_STATUS,
421: x_msg_count => L_MSG_COUNT,
422: x_msg_data => L_MSG_DATA,
415: edr_event_relationship_pub.CREATE_RELATIONSHIP
416: (p_api_version => 1.0,
417: p_init_msg_list => FND_API.G_FALSE,
418: p_commit => FND_API.G_TRUE,
419: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
420: x_return_status => L_RETURN_STATUS,
421: x_msg_count => L_MSG_COUNT,
422: x_msg_data => L_MSG_DATA,
423: p_parent_erecord_id => PARENT_CHILD_RECORD(i).PARENT_ERECORD_ID,