1 PACKAGE BODY FND_USER_PVT AS
2 -- $Header: AFSVWUSB.pls 120.4 2005/09/01 03:40:04 tmorrow ship $
3
4 c_pkg_name VARCHAR2(30) := 'FND_USER_PVT';
5 c_log_head VARCHAR2(30) := 'fnd.plsql.FND_USER_PVT.';
6 chr_newline VARCHAR2(8) := fnd_global.newline;
7
8 -- ***********************************************
9 -- Desupported procedure Create_User
10 -- ***********************************************
11 PROCEDURE Create_User
12 ( p_api_version_number IN NUMBER,
13 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14 p_simulate IN VARCHAR2 := FND_API.G_FALSE,
15 p_commit IN VARCHAR2 := FND_API.G_FALSE,
16 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17 p_return_status OUT NOCOPY VARCHAR2,
18 p_msg_count OUT NOCOPY NUMBER,
19 p_msg_data OUT NOCOPY VARCHAR2,
20 p_customer_contact_id IN NUMBER := NULL,
21 p_date_format_mask IN VARCHAR2 := NULL,
22 p_email_address IN VARCHAR2 := NULL,
23 p_end_date_active IN DATE := NULL,
24 p_internal_contact_id IN NUMBER := NULL,
25 p_known_as IN VARCHAR2 := NULL,
26 p_language IN VARCHAR2 := 'AMERICAN',
27 p_last_login_date IN DATE := NULL,
28 p_limit_connects IN NUMBER := NULL,
29 p_limit_time IN NUMBER := NULL,
30 p_host_port IN VARCHAR2,
31 p_password IN VARCHAR2,
32 p_supplier_contact_id IN NUMBER := NULL,
33 p_username IN VARCHAR2,
34 p_created_by IN NUMBER,
35 p_creation_date IN DATE,
36 p_last_updated_by IN NUMBER,
37 p_last_update_date IN DATE,
38 p_last_update_login IN NUMBER := NULL,
39 p_user_id OUT NOCOPY NUMBER
40 )
41 IS
42 l_api_name CONSTANT VARCHAR2(30) := 'Create_User';
43 l_api_version_number CONSTANT NUMBER := 1.0;
44
45 BEGIN
46 /* This whole package is desupported, just raise error. */
47
48 fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
49 fnd_message.set_token('ROUTINE',
50 c_pkg_name || '.'|| l_api_name);
51 fnd_message.set_token('REASON',
52 'Invalid API call. API '
53 ||c_pkg_name || '.'|| l_api_name ||
54 ' is desupported and should not be called in R12.'||
55 ' Any product team that calls it '||
56 'must correct their code. ' ||
57 'Oracle employees who encounter this error should log '||
58 'a bug against the product that owns the call to this '||
59 'routine');
60 if (fnd_log.LEVEL_EXCEPTION >=
61 fnd_log.g_current_runtime_level) then
62 fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
63 c_log_head || l_api_name || '.end_unsupported',
64 FALSE);
65 end if;
66 fnd_message.raise_error;
67
68 end Create_User;
69
70
71 -- ***********************************************
72 -- Desupported procedure Update_User
73 -- ***********************************************
74 PROCEDURE Update_User
75 ( p_api_version_number IN NUMBER,
76 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
77 p_simulate IN VARCHAR2 := FND_API.G_FALSE,
78 p_commit IN VARCHAR2 := FND_API.G_FALSE,
79 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
80 p_return_status OUT NOCOPY VARCHAR2,
81 p_msg_count OUT NOCOPY NUMBER,
82 p_msg_data OUT NOCOPY VARCHAR2,
83 p_user_id IN NUMBER,
84 p_customer_contact_id IN NUMBER := FND_API.G_MISS_NUM,
85 p_date_format_mask IN VARCHAR2 := FND_API.G_MISS_CHAR,
86 p_numeric_characters IN VARCHAR2 := FND_API.G_MISS_CHAR,
87 p_territory IN VARCHAR2 := FND_API.G_MISS_CHAR,
88 p_email_address IN VARCHAR2 := FND_API.G_MISS_CHAR,
89 p_end_date_active IN DATE := FND_API.G_MISS_DATE,
90 p_internal_contact_id IN NUMBER := FND_API.G_MISS_NUM,
91 p_known_as IN VARCHAR2 := FND_API.G_MISS_CHAR,
92 p_language IN VARCHAR2 := FND_API.G_MISS_CHAR,
93 p_last_login_date IN DATE := FND_API.G_MISS_DATE,
94 p_limit_connects IN NUMBER := FND_API.G_MISS_NUM,
95 p_limit_time IN NUMBER := FND_API.G_MISS_NUM,
96 p_host_port IN VARCHAR2 := FND_API.G_MISS_CHAR,
97 p_old_password IN VARCHAR2 := FND_API.G_MISS_CHAR,
98 p_new_password IN VARCHAR2 := FND_API.G_MISS_CHAR,
99 p_supplier_contact_id IN NUMBER := FND_API.G_MISS_NUM,
100 p_last_updated_by IN NUMBER,
101 p_last_update_date IN DATE,
102 p_last_update_login IN NUMBER := NULL
103 )
104 IS
105 l_api_name CONSTANT VARCHAR2(30) := 'Update_User';
106 BEGIN
107
108 /* This whole package is desupported, just raise error. */
109
110 fnd_message.set_name('FND', 'GENERIC-INTERNAL ERROR');
111 fnd_message.set_token('ROUTINE',
112 c_pkg_name || '.'|| l_api_name);
113 fnd_message.set_token('REASON',
114 'Invalid API call. API '
115 ||c_pkg_name || '.'|| l_api_name ||
116 ' is desupported and should not be called in R12.'||
117 ' Any product team that calls it '||
118 'must correct their code. ' ||
119 'Oracle employees who encounter this error should log '||
120 'a bug against the product that owns the call to this '||
121 'routine');
122 if (fnd_log.LEVEL_EXCEPTION >=
123 fnd_log.g_current_runtime_level) then
124 fnd_log.message(FND_LOG.LEVEL_EXCEPTION,
125 c_log_head || l_api_name || '.end_unsupported',
126 FALSE);
127 end if;
128 fnd_message.raise_error;
129
130 end Update_User;
131 END FND_USER_PVT;