[Home] [Help]
PACKAGE BODY: APPS.HZ_EXTRACT_PARTY_USAGE_BO_PVT
Source
1 PACKAGE BODY HZ_EXTRACT_PARTY_USAGE_BO_PVT AS
2 /*$Header: ARHEPUVB.pls 120.2 2006/10/12 17:17:02 awu noship $ */
3 /*
4 * This package contains the private APIs for ssm information.
5 * @rep:scope private
6 * @rep:product HZ
7 * @rep:displayname customer account site
8 * @rep:category BUSINESS_ENTITY HZ_PARTIES
9 * @rep:lifecycle active
10 * @rep:doccd 115hztig.pdf cGet APIs
11 */
12
13 --------------------------------------
14 --
15 -- PROCEDURE get_party_usage_bo
16 --
17 -- DESCRIPTION
18 -- Get ssm information.
19 --
20 -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
21 --
22 -- ARGUMENTS
23 -- IN:
24 -- p_init_msg_list Initialize message stack if it is set to FND_API.G_TRUE. Default is FND_API.G_FALSE.
25 -- p_owner_table_id party id
26 -- p_owner_table_name hz_parties
27 --
28 -- OUT:
29 -- x_party_usage_objs Table of party usage objects.
30 -- x_return_status Return status after the call. The status can
31 -- be fnd_api.g_ret_sts_success (success),
32 -- fnd_api.g_ret_sts_error (error),
33 -- FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
34 -- x_msg_count Number of messages in message stack.
35 -- x_msg_data Message text if x_msg_count is 1.
36 --
37 -- NOTES
38 --
39 -- MODIFICATION HISTORY
40 --
41 --
42 -- 15-May-2005 AWU Created.
43 --
44
45
46
47 PROCEDURE get_party_usage_bos(
48 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
49 p_owner_table_id IN NUMBER,
50 p_owner_table_name IN VARCHAR2,
51 p_action_type IN VARCHAR2 := NULL,
52 x_party_usage_objs OUT NOCOPY HZ_PARTY_USAGE_OBJ_TBL,
53 x_return_status OUT NOCOPY VARCHAR2,
54 x_msg_count OUT NOCOPY NUMBER,
55 x_msg_data OUT NOCOPY VARCHAR2
56 ) is
57
58 i BINARY_INTEGER := 1;
59 l_debug_prefix VARCHAR2(30) := '';
60
61 cursor c1 is
62 SELECT
63 HZ_PARTY_USAGE_OBJ(
64 PARTY_USG_ASSIGNMENT_ID,
65 P_ACTION_TYPE,
66 NULL, -- COMMON_OBJ_ID
67 HZ_EXTRACT_BO_UTIL_PVT.get_parent_object_type('HZ_PARTIES',PARTY_ID),
68 PARTY_ID,
69 PARTY_USAGE_CODE,
70 EFFECTIVE_START_DATE,
71 EFFECTIVE_END_DATE,
72 COMMENTS,
73 STATUS_FLAG,
74 ATTRIBUTE_CATEGORY,
75 ATTRIBUTE1,
76 ATTRIBUTE2,
77 ATTRIBUTE3,
78 ATTRIBUTE4,
79 ATTRIBUTE5,
80 ATTRIBUTE6,
81 ATTRIBUTE7,
82 ATTRIBUTE8,
83 ATTRIBUTE9,
84 ATTRIBUTE10,
85 ATTRIBUTE11,
86 ATTRIBUTE12,
87 ATTRIBUTE13,
88 ATTRIBUTE14,
89 ATTRIBUTE15,
90 ATTRIBUTE16,
91 ATTRIBUTE17,
92 ATTRIBUTE18,
93 ATTRIBUTE19,
94 ATTRIBUTE20,
95 HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(CREATED_BY),
96 CREATION_DATE,
97 LAST_UPDATE_DATE,
98 HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(LAST_UPDATED_BY))
99 FROM HZ_PARTY_USG_ASSIGNMENTS
100 WHERE PARTY_ID = P_OWNER_TABLE_ID;
101
102
103 begin
104 -- initialize API return status to success.
105 x_return_status := FND_API.G_RET_STS_SUCCESS;
106
107 -- Initialize message list if p_init_msg_list is set to TRUE
108 IF FND_API.to_Boolean(p_init_msg_list) THEN
109 FND_MSG_PUB.initialize;
110 END IF;
111
112 -- Debug info.
113 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
114 hz_utility_v2pub.debug(p_message=>'get_party_usage_objs(+)',
115 p_prefix=>l_debug_prefix,
116 p_msg_level=>fnd_log.level_procedure);
117 END IF;
118
119
120 x_party_usage_objs := HZ_PARTY_USAGE_OBJ_TBL();
121
122 open c1;
123 fetch c1 BULK COLLECT into x_party_usage_objs;
124 close c1;
125
126 -- Debug info.
127 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
128 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
129 p_msg_data=>x_msg_data,
130 p_msg_type=>'WARNING',
131 p_msg_level=>fnd_log.level_exception);
132 END IF;
133
134 -- Debug info.
135 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
136 hz_utility_v2pub.debug(p_message=>'get_party_usage_objs(-)',
137 p_prefix=>l_debug_prefix,
138 p_msg_level=>fnd_log.level_procedure);
139 END IF;
140
141
142 EXCEPTION
143 WHEN OTHERS THEN
144 x_return_status := fnd_api.g_ret_sts_unexp_error;
145
146 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
147 fnd_message.set_token('ERROR' ,SQLERRM);
148 fnd_msg_pub.add;
149
150 fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
151 p_count => x_msg_count,
152 p_data => x_msg_data);
153
154 -- Debug info.
155 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
156 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
157 p_msg_data=>x_msg_data,
158 p_msg_type=>'SQL ERROR',
159 p_msg_level=>fnd_log.level_error);
160 END IF;
161 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
162 hz_utility_v2pub.debug(p_message=>'get_party_usage_objs(-)',
163 p_prefix=>l_debug_prefix,
164 p_msg_level=>fnd_log.level_procedure);
165 END IF;
166
167 end;
168
169
170
171
172 END HZ_EXTRACT_PARTY_USAGE_BO_PVT;