[Home] [Help]
PACKAGE BODY: APPS.HZ_EXTRACT_ORIG_SYS_REF_BO_PVT
Source
1 PACKAGE BODY HZ_EXTRACT_ORIG_SYS_REF_BO_PVT AS
2 /*$Header: ARHEOSVB.pls 120.2 2005/09/02 18:43:50 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_orig_sys_ref_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 tca owner table ID.
26 -- p_owner_table_name tca owner table name.
27 --
28 -- OUT:
29 -- x_orig_sys_ref_objs Table of ssm 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_orig_sys_ref_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_orig_sys_ref_objs OUT NOCOPY HZ_ORIG_SYS_REF_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_ORIG_SYS_REF_OBJ(
64 P_ACTION_TYPE,
65 ORIG_SYSTEM_REF_ID,
66 ORIG_SYSTEM,
67 ORIG_SYSTEM_REFERENCE,
68 HZ_EXTRACT_BO_UTIL_PVT.get_parent_object_type(OWNER_TABLE_NAME,OWNER_TABLE_ID),
69 OWNER_TABLE_ID,
70 STATUS,
71 REASON_CODE,
72 OLD_ORIG_SYSTEM_REFERENCE,
73 START_DATE_ACTIVE,
74 END_DATE_ACTIVE,
75 PROGRAM_UPDATE_DATE,
76 CREATED_BY_MODULE,
77 HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(CREATED_BY),
78 CREATION_DATE,
79 LAST_UPDATE_DATE,
80 HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(LAST_UPDATED_BY),
81 ATTRIBUTE_CATEGORY,
82 ATTRIBUTE1,
83 ATTRIBUTE2,
84 ATTRIBUTE3,
85 ATTRIBUTE4,
86 ATTRIBUTE5,
87 ATTRIBUTE6,
88 ATTRIBUTE7,
89 ATTRIBUTE8,
90 ATTRIBUTE9,
91 ATTRIBUTE10,
92 ATTRIBUTE11,
93 ATTRIBUTE12,
94 ATTRIBUTE13,
95 ATTRIBUTE14,
96 ATTRIBUTE15,
97 ATTRIBUTE16,
98 ATTRIBUTE17,
99 ATTRIBUTE18,
100 ATTRIBUTE19,
101 ATTRIBUTE20)
102 FROM HZ_ORIG_SYS_REFERENCES
103 WHERE OWNER_TABLE_ID = P_OWNER_TABLE_ID
104 AND OWNER_TABLE_NAME = P_OWNER_TABLE_NAME;
105 -- AND STATUS = 'A';
106
107 begin
108 -- initialize API return status to success.
109 x_return_status := FND_API.G_RET_STS_SUCCESS;
110
111 -- Initialize message list if p_init_msg_list is set to TRUE
112 IF FND_API.to_Boolean(p_init_msg_list) THEN
113 FND_MSG_PUB.initialize;
114 END IF;
115
116 -- Debug info.
117 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
118 hz_utility_v2pub.debug(p_message=>'get_orig_sys_ref_objs(+)',
119 p_prefix=>l_debug_prefix,
120 p_msg_level=>fnd_log.level_procedure);
121 END IF;
122
123
124 x_orig_sys_ref_objs := HZ_ORIG_SYS_REF_OBJ_TBL();
125
126 open c1;
127 fetch c1 BULK COLLECT into x_orig_sys_ref_objs;
128 close c1;
129
130 -- Debug info.
131 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
132 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
133 p_msg_data=>x_msg_data,
134 p_msg_type=>'WARNING',
135 p_msg_level=>fnd_log.level_exception);
136 END IF;
137
138 -- Debug info.
139 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
140 hz_utility_v2pub.debug(p_message=>'get_orig_sys_ref_objs(-)',
141 p_prefix=>l_debug_prefix,
142 p_msg_level=>fnd_log.level_procedure);
143 END IF;
144
145
146 EXCEPTION
147 WHEN OTHERS THEN
148 x_return_status := fnd_api.g_ret_sts_unexp_error;
149
150 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
151 fnd_message.set_token('ERROR' ,SQLERRM);
152 fnd_msg_pub.add;
153
154 fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
155 p_count => x_msg_count,
156 p_data => x_msg_data);
157
158 -- Debug info.
159 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
160 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
161 p_msg_data=>x_msg_data,
162 p_msg_type=>'SQL ERROR',
163 p_msg_level=>fnd_log.level_error);
164 END IF;
165 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
166 hz_utility_v2pub.debug(p_message=>'validate_ssm_id(-)',
167 p_prefix=>l_debug_prefix,
168 p_msg_level=>fnd_log.level_procedure);
169 END IF;
170
171 end;
172
173
174
175
176 END HZ_EXTRACT_ORIG_SYS_REF_BO_PVT;