[Home] [Help]
PACKAGE BODY: APPS.CCT_IH_PUB
Source
1 PACKAGE BODY CCT_IH_PUB AS
2 /* $Header: cctpihb.pls 115.1 2003/02/19 02:29:40 svinamda noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CCT_IH_PUB';
5
6
7 PROCEDURE OPEN_MEDIA_ITEM
8 ( p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2,
10 p_commit IN VARCHAR2,
11 p_app_id IN NUMBER,
12 p_user_id IN NUMBER,
13 p_direction IN VARCHAR2,
14 p_start_date_time IN DATE,
15 p_source_item_create_date_time IN DATE,
16 p_media_item_type IN VARCHAR2,
17 p_server_group_id IN NUMBER,
18 x_return_status OUT NOCOPY VARCHAR2,
19 x_msg_count OUT NOCOPY NUMBER,
20 x_msg_data OUT NOCOPY VARCHAR2,
21 x_media_id OUT NOCOPY NUMBER
22
23 )
24 IS
25 l_api_name CONSTANT VARCHAR2(30) := 'OPEN_MEDIA_ITEM';
26 l_api_version CONSTANT NUMBER := 1.0;
27 x_err_num NUMBER;
28 x_err_msg VARCHAR2(256);
29
30 BEGIN
31 -- Standard Start of API savepoint
32 SAVEPOINT OPEN_MEDIA_ITEM_PUB;
33 -- Standard call to check for call compatibility.
34 IF NOT FND_API.Compatible_API_Call ( l_api_version ,
35 p_api_version ,
36 l_api_name ,
37 G_PKG_NAME )
38 THEN
39 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40 END IF;
41 -- Initialize message list if p_init_msg_list is set to TRUE.
42 IF FND_API.To_Boolean( p_init_msg_list ) THEN
43 FND_MSG_PUB.initialize;
44 END IF;
45
46 -- Initialize API return status to success
47 x_return_status := FND_API.G_RET_STS_SUCCESS;
48 x_msg_count := 0;
49 -- API body
50 JTF_IH_PUB_W.OPEN_MEDIAITEM
51 (p_api_version=> p_api_version,
52 p_init_msg_list=> p_init_msg_list,
53 p_commit=>p_commit,
54 p_resp_appl_id=>1,
55 p_resp_id=>1,
56 p_user_id=> p_user_id,
57 p_login_id=> null ,
58 p10_a2=> p_direction,
59 p10_a6=> p_start_date_time,
60 p10_a8=> p_source_item_create_date_time,
61 p10_a10=> p_media_item_type,
62 p10_a14=> p_server_group_id,
63 x_return_status=> x_return_status ,
64 x_msg_count=> x_msg_count,
65 x_msg_data=> x_msg_data,
66 x_media_id=> x_media_id );
67
68 -- End of API body.
69 -- Standard check of p_commit.
70 IF FND_API.To_Boolean( p_commit ) THEN
71 COMMIT WORK;
72 END IF;
73
74 EXCEPTION
75
76 WHEN FND_API.G_EXC_ERROR THEN
77 ROLLBACK TO OPEN_MEDIA_ITEM_PUB;
78 x_return_status := FND_API.G_RET_STS_ERROR ;
79 x_msg_count := 1;
80 x_err_num := SQLCODE;
81 x_err_msg := SUBSTR(SQLERRM, 1, 100);
82 x_msg_data := 'CCT_IH_PUB: CCT_ERROR '
83 || ' ErrorCode = ' || x_err_num
84 || ' ErrorMsg = ' || x_err_msg;
85 --dbms_output.put_line(x_msg_data);
86 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87 ROLLBACK TO OPEN_MEDIA_ITEM_PUB;
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
89 x_msg_count := 1;
90 x_err_num := SQLCODE;
91 x_err_msg := SUBSTR(SQLERRM, 1, 100);
92 x_msg_data := 'CCT_IH_PUB: CCT_ERROR '
93 || ' ErrorCode = ' || x_err_num
94 || ' ErrorMsg = ' || x_err_msg;
95 --dbms_output.put_line(x_msg_data);
96 WHEN OTHERS THEN
97 ROLLBACK TO OPEN_MEDIA_ITEM_PUB;
98 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
99 x_msg_count := 1;
100 x_err_num := SQLCODE;
101 x_err_msg := SUBSTR(SQLERRM, 1, 100);
102 x_msg_data := 'CCT_IH_PUB: CCT_ERROR '
103 || ' ErrorCode = ' || x_err_num
104 || ' ErrorMsg = ' || x_err_msg;
105 --dbms_output.put_line(x_msg_data);
106 END OPEN_MEDIA_ITEM;
107
108 END CCT_IH_PUB;