eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IES_TCA_BP_PKG

Source


1 PACKAGE BODY IES_TCA_BP_PKG AS
2 /* $Header: iestcbpb.pls 120.2 2005/08/05 14:19:38 appldev noship $ */
3 Procedure create_organization(
4  p_api_version number,
5  p_user_name varchar2,
6  p_org_name varchar2,
7  p_content_source_type varchar2,
8  x_party_id OUT NOCOPY /* file.sql.39 change */ number,
9  x_party_number OUT NOCOPY /* file.sql.39 change */ number,
10  x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
11  x_msg_count OUT NOCOPY /* file.sql.39 change */ number,
12  x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2,
13  x_profile_id OUT NOCOPY /* file.sql.39 change */ number
14 ) IS
15 
16   l_msg_count         NUMBER  := 0;
17   my_message          VARCHAR2(2000);
18   l_msg_data          VARCHAR2(4000) default NULL;
19 begin
20 	x_msg_count := 1;
21 	x_return_status := 'F';
22 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
23 	l_msg_data := FND_MESSAGE.GET;
24 	x_msg_data := l_msg_data;
25 	x_party_id := 0;
26 	x_party_number := 0;
27 	x_profile_id := 0;
28 	return;
29 
30 end CREATE_ORGANIZATION;
31 
32 Procedure create_person(
33  p_api_version number,
34  p_user_name varchar2,
35  p_first_name varchar2,
36  p_middle_name varchar2 DEFAULT FND_API.G_MISS_CHAR,
37  p_last_name varchar2,
38  p_title varchar2 DEFAULT FND_API.G_MISS_CHAR,
39  p_content_source_type varchar2,
40  x_party_id OUT NOCOPY /* file.sql.39 change */ number,
41  x_party_number OUT NOCOPY /* file.sql.39 change */ number,
42  x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
43  x_msg_count OUT NOCOPY /* file.sql.39 change */ number,
44  x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2,
45  x_profile_id OUT NOCOPY /* file.sql.39 change */ number
46 ) IS
47   l_msg_count         NUMBER  := 0;
48   l_msg_data          VARCHAR2(4000) default NULL;
49   l_count			  NUMBER := 0;
50 
51 begin
52 	x_msg_count := 1;
53 	x_return_status := 'F';
54 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
55 	l_msg_data := FND_MESSAGE.GET;
56 	x_msg_data := l_msg_data;
57 	x_party_id := 0;
58 	x_party_number := 0;
59 	x_profile_id := 0;
60 	return;
61 
62 end CREATE_PERSON;
63 
64 Procedure create_location (
65  p_api_version number,
66  p_user_name varchar2,
67  p_address1  varchar2,
68  p_address2  varchar2 DEFAULT FND_API.G_MISS_CHAR,
69  p_address3  varchar2 DEFAULT FND_API.G_MISS_CHAR,
70  p_address4  varchar2 DEFAULT FND_API.G_MISS_CHAR,
71  p_city      varchar2 DEFAULT FND_API.G_MISS_CHAR,
72  p_postal_code      varchar2 DEFAULT FND_API.G_MISS_CHAR,
73  p_province      varchar2 DEFAULT FND_API.G_MISS_CHAR,
74  p_state      varchar2 DEFAULT FND_API.G_MISS_CHAR,
75  p_country   varchar2,
76  x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
77  x_location_id OUT NOCOPY /* file.sql.39 change */ number,
78  x_msg_count  OUT NOCOPY /* file.sql.39 change */ number,
79  x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2
80 ) IS
81 
82 
83 l_msg_count number;
84 l_msg_data varchar2(4000);
85 
86 begin
87 
88  	x_msg_count := 1;
89 	x_return_status := 'F';
90 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
91 	l_msg_data := FND_MESSAGE.GET;
92 	x_msg_data := l_msg_data;
93 	x_location_id := 0;
94 	return;
95 
96 END CREATE_LOCATION;
97 
98 procedure create_party_site(
99 p_api_version number,
100 p_user_name varchar2,
101 p_party_id number,
102 p_location_id number,
103 x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
104 x_msg_count  OUT NOCOPY /* file.sql.39 change */ number,
105 x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2,
106 x_party_site_id OUT NOCOPY /* file.sql.39 change */ number,
107 x_party_site_number OUT NOCOPY /* file.sql.39 change */ number)
108 IS
109 
110 l_msg_count number;
111 l_msg_data varchar2(4000);
112 
113 begin
114 
115  	x_msg_count := 1;
116 	x_return_status := 'F';
117 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
118 	l_msg_data := FND_MESSAGE.GET;
119 	x_msg_data := l_msg_data;
120 	x_party_site_id := 0;
121 	x_party_site_number := 0;
122 	return;
123 
124 END create_party_site;
125 
126 Procedure create_org_contact(
127  p_api_version number,
128  p_user_name varchar2,
129  p_org_party_id number,
130  p_person_party_id number,
131  p_party_relationship_type varchar2,
132  p_content_source_type varchar2,
133  p_party_site_id number,
134  x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
135  x_org_contact_id OUT NOCOPY /* file.sql.39 change */ number,
136  x_party_rel_id OUT NOCOPY /* file.sql.39 change */ number,
137  x_party_id OUT NOCOPY /* file.sql.39 change */ number,
138  x_party_number OUT NOCOPY /* file.sql.39 change */ number,
139  x_msg_count  OUT NOCOPY /* file.sql.39 change */ number,
140  x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2) is
141 
142 l_msg_count number;
143 l_msg_data varchar2(4000);
144 
145 begin
146  	x_msg_count := 1;
147 	x_return_status := 'F';
148 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
149 	l_msg_data := FND_MESSAGE.GET;
150 	x_msg_data := l_msg_data;
151 	x_party_id := 0;
152 	x_party_rel_id := 0;
153 	x_party_number := 0;
154 	x_org_contact_id := 0;
155 	return;
156 end create_org_contact;
157 
158 procedure update_org_contact(
159  p_api_version number,
160  p_user_name varchar2,
161  p_org_contact_id number,
162  p_party_site_id number,
163  x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
164  x_msg_count OUT NOCOPY /* file.sql.39 change */ number,
165  x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2) is
166 
167 l_msg_count number;
168 l_msg_data varchar2(4000);
169 
170 
171 begin
172  	x_msg_count := 1;
173 	x_return_status := 'F';
174 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
175 	l_msg_data := FND_MESSAGE.GET;
176 	x_msg_data := l_msg_data;
177 	return;
178 
179 end update_org_contact;
180 
181 procedure update_party_site(
182  p_api_version number,
183  p_user_name varchar2,
184  p_party_site_id number,
185  x_return_status OUT NOCOPY /* file.sql.39 change */ varchar2,
186  x_msg_count OUT NOCOPY /* file.sql.39 change */ number,
187  x_msg_data OUT NOCOPY /* file.sql.39 change */ varchar2) is
188 
189 
190 l_msg_count number;
191 l_msg_data varchar2(4000);
192 
193 
194 begin
195 	x_msg_count := 1;
196 	x_return_status := 'F';
197 	FND_MESSAGE.SET_NAME('IES', 'IES_TCA_API_OBSOLETE');
198 	l_msg_data := FND_MESSAGE.GET;
199 	x_msg_data := l_msg_data;
200 	return;
201 
202 end update_party_site;
203 
204 END IES_TCA_BP_PKG;