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.

APPS.FND_OID_UTIL dependencies on DBMS_LDAP

Line 24: function unbind(p_session in out nocopy dbms_ldap.session) return pls_integer

20:
21: -- End of Package Globals
22: --
23: -------------------------------------------------------------------------------
24: function unbind(p_session in out nocopy dbms_ldap.session) return pls_integer
25: is
26: retval pls_integer;
27: begin
28: retval := dbms_ldap.unbind_s(p_session);

Line 28: retval := dbms_ldap.unbind_s(p_session);

24: function unbind(p_session in out nocopy dbms_ldap.session) return pls_integer
25: is
26: retval pls_integer;
27: begin
28: retval := dbms_ldap.unbind_s(p_session);
29: return retval;
30: exception
31: when others then return null;
32: end;

Line 146: l_session dbms_ldap.session;

142: , p_user_name out nocopy varchar2
143: ) return ldap_attr_list is
144:
145: l_module_source varchar2(256);
146: l_session dbms_ldap.session;
147: l_result_message dbms_ldap.message;
148: l_attrs dbms_ldap.string_collection;
149: l_entry_message dbms_ldap.message;
150: l_ber_element dbms_ldap.ber_element;

Line 147: l_result_message dbms_ldap.message;

143: ) return ldap_attr_list is
144:
145: l_module_source varchar2(256);
146: l_session dbms_ldap.session;
147: l_result_message dbms_ldap.message;
148: l_attrs dbms_ldap.string_collection;
149: l_entry_message dbms_ldap.message;
150: l_ber_element dbms_ldap.ber_element;
151: l_values dbms_ldap.string_collection;

Line 148: l_attrs dbms_ldap.string_collection;

144:
145: l_module_source varchar2(256);
146: l_session dbms_ldap.session;
147: l_result_message dbms_ldap.message;
148: l_attrs dbms_ldap.string_collection;
149: l_entry_message dbms_ldap.message;
150: l_ber_element dbms_ldap.ber_element;
151: l_values dbms_ldap.string_collection;
152: l_attribute_name varchar2(256);

Line 149: l_entry_message dbms_ldap.message;

145: l_module_source varchar2(256);
146: l_session dbms_ldap.session;
147: l_result_message dbms_ldap.message;
148: l_attrs dbms_ldap.string_collection;
149: l_entry_message dbms_ldap.message;
150: l_ber_element dbms_ldap.ber_element;
151: l_values dbms_ldap.string_collection;
152: l_attribute_name varchar2(256);
153: l_attribute_value varchar2(4000);

Line 150: l_ber_element dbms_ldap.ber_element;

146: l_session dbms_ldap.session;
147: l_result_message dbms_ldap.message;
148: l_attrs dbms_ldap.string_collection;
149: l_entry_message dbms_ldap.message;
150: l_ber_element dbms_ldap.ber_element;
151: l_values dbms_ldap.string_collection;
152: l_attribute_name varchar2(256);
153: l_attribute_value varchar2(4000);
154: l_attribute_list ldap_attr_list;

Line 151: l_values dbms_ldap.string_collection;

147: l_result_message dbms_ldap.message;
148: l_attrs dbms_ldap.string_collection;
149: l_entry_message dbms_ldap.message;
150: l_ber_element dbms_ldap.ber_element;
151: l_values dbms_ldap.string_collection;
152: l_attribute_name varchar2(256);
153: l_attribute_value varchar2(4000);
154: l_attribute_list ldap_attr_list;
155: l_index number;

Line 182: l_retval := dbms_ldap.search_s(

178: -- 8580552
179: p_user_name := fnd_ldap_user.get_username_from_guid(p_userguid);
180: -- l_orclcommonnicknameattr := upper(fnd_ldap_util.get_orclcommonnicknameattr(p_user_name));
181: -- Query up the user's attributes from OID using user's GUID
182: l_retval := dbms_ldap.search_s(
183: ld => l_session
184: , base => ' '
185: , scope => dbms_ldap.scope_subtree
186: , filter => 'orclguid=' || p_userguid

Line 185: , scope => dbms_ldap.scope_subtree

181: -- Query up the user's attributes from OID using user's GUID
182: l_retval := dbms_ldap.search_s(
183: ld => l_session
184: , base => ' '
185: , scope => dbms_ldap.scope_subtree
186: , filter => 'orclguid=' || p_userguid
187: , attrs => l_attrs
188: , attronly => 0
189: , res => l_result_message);

Line 193: l_entry_message := dbms_ldap.first_entry(

189: , res => l_result_message);
190:
191: -- walk the results and convert to an ldap_attr_list
192: l_attribute_list := ldap_attr_list();
193: l_entry_message := dbms_ldap.first_entry(
194: ld => l_session
195: , msg => l_result_message);
196:
197: if (l_entry_message is not null)

Line 199: l_attribute_name := dbms_ldap.first_attribute(

195: , msg => l_result_message);
196:
197: if (l_entry_message is not null)
198: then
199: l_attribute_name := dbms_ldap.first_attribute(
200: ld => l_session
201: , ldapentry => l_entry_message
202: , ber_elem => l_ber_element);
203:

Line 206: l_values := dbms_ldap.get_values(

202: , ber_elem => l_ber_element);
203:
204: while (l_attribute_name is not null)
205: loop
206: l_values := dbms_ldap.get_values(
207: ld => l_session
208: , ldapentry => l_entry_message
209: , attr => l_attribute_name);
210:

Line 229: l_attribute_name := dbms_ldap.next_attribute(

225: , attr_type => 0
226: , attr_mod_op => 2);
227: l_index := l_index+1;
228:
229: l_attribute_name := dbms_ldap.next_attribute(
230: ld => l_session
231: , ldapentry => l_entry_message
232: , ber_elem => l_ber_element);
233:

Line 1743: my_session dbms_ldap.session;

1739:
1740: l_module_source varchar2(256);
1741: my_ident varchar2(256);
1742: retval pls_integer;
1743: my_session dbms_ldap.session;
1744: my_results dbms_ldap.message;
1745: my_attrs dbms_ldap.string_collection;
1746: my_entry dbms_ldap.message;
1747: my_vals dbms_ldap.string_collection;

Line 1744: my_results dbms_ldap.message;

1740: l_module_source varchar2(256);
1741: my_ident varchar2(256);
1742: retval pls_integer;
1743: my_session dbms_ldap.session;
1744: my_results dbms_ldap.message;
1745: my_attrs dbms_ldap.string_collection;
1746: my_entry dbms_ldap.message;
1747: my_vals dbms_ldap.string_collection;
1748:

Line 1745: my_attrs dbms_ldap.string_collection;

1741: my_ident varchar2(256);
1742: retval pls_integer;
1743: my_session dbms_ldap.session;
1744: my_results dbms_ldap.message;
1745: my_attrs dbms_ldap.string_collection;
1746: my_entry dbms_ldap.message;
1747: my_vals dbms_ldap.string_collection;
1748:
1749: begin

Line 1746: my_entry dbms_ldap.message;

1742: retval pls_integer;
1743: my_session dbms_ldap.session;
1744: my_results dbms_ldap.message;
1745: my_attrs dbms_ldap.string_collection;
1746: my_entry dbms_ldap.message;
1747: my_vals dbms_ldap.string_collection;
1748:
1749: begin
1750: l_module_source := G_MODULE_SOURCE || 'get_key: ';

Line 1747: my_vals dbms_ldap.string_collection;

1743: my_session dbms_ldap.session;
1744: my_results dbms_ldap.message;
1745: my_attrs dbms_ldap.string_collection;
1746: my_entry dbms_ldap.message;
1747: my_vals dbms_ldap.string_collection;
1748:
1749: begin
1750: l_module_source := G_MODULE_SOURCE || 'get_key: ';
1751: retval := -1;

Line 1775: retval := dbms_ldap.search_s(my_session,

1771: internet directory". Instead of 8 byte key , we should then shoot for
1772: 32 byte key.
1773: *************/
1774:
1775: retval := dbms_ldap.search_s(my_session,
1776: my_ident,
1777: DBMS_LDAP.SCOPE_BASE,
1778: 'objectclass=*',
1779: my_attrs,

Line 1777: DBMS_LDAP.SCOPE_BASE,

1773: *************/
1774:
1775: retval := dbms_ldap.search_s(my_session,
1776: my_ident,
1777: DBMS_LDAP.SCOPE_BASE,
1778: 'objectclass=*',
1779: my_attrs,
1780: 0, -- retrieve both types AND values
1781: my_results);

Line 1783: my_entry := dbms_ldap.first_entry(my_session, my_results);

1779: my_attrs,
1780: 0, -- retrieve both types AND values
1781: my_results);
1782:
1783: my_entry := dbms_ldap.first_entry(my_session, my_results);
1784: if (my_entry IS NOT NULL)
1785: then
1786: my_vals := dbms_ldap.get_values(my_session, my_entry, 'orclguid');
1787:

Line 1786: my_vals := dbms_ldap.get_values(my_session, my_entry, 'orclguid');

1782:
1783: my_entry := dbms_ldap.first_entry(my_session, my_results);
1784: if (my_entry IS NOT NULL)
1785: then
1786: my_vals := dbms_ldap.get_values(my_session, my_entry, 'orclguid');
1787:
1788: if (my_vals.COUNT > 0)
1789: then
1790: key_guid := substr(my_vals(my_vals.FIRST),1,8);

Line 1831: return dbms_ldap.session is

1827: end get_key;
1828: --
1829: -------------------------------------------------------------------------------
1830: function get_oid_session
1831: return dbms_ldap.session is
1832:
1833: l_module_source varchar2(256);
1834: l_retval pls_integer;
1835: l_host varchar2(256);

Line 1842: l_session dbms_ldap.session;

1838: l_pwd varchar2(256);
1839: l_ldap_auth varchar2(256);
1840: l_db_wlt_url varchar2(256);
1841: l_db_wlt_pwd varchar2(256);
1842: l_session dbms_ldap.session;
1843:
1844: begin
1845: l_module_source := G_MODULE_SOURCE || 'get_oid_session: ';
1846: -- change it to FAILURE if open_ssl fails, else let the simple_bind_s

Line 1848: l_retval := dbms_ldap.SUCCESS;

1844: begin
1845: l_module_source := G_MODULE_SOURCE || 'get_oid_session: ';
1846: -- change it to FAILURE if open_ssl fails, else let the simple_bind_s
1847: -- go through
1848: l_retval := dbms_ldap.SUCCESS;
1849:
1850: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1851: then
1852: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin');

Line 1855: dbms_ldap.use_exception := TRUE;

1851: then
1852: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin');
1853: end if;
1854:
1855: dbms_ldap.use_exception := TRUE;
1856:
1857: l_host := fnd_preference.get(fnd_ldap_util.G_INTERNAL, fnd_ldap_util.G_LDAP_SYNCH, fnd_ldap_util.G_HOST);
1858: l_port := fnd_preference.get(fnd_ldap_util.G_INTERNAL, fnd_ldap_util.G_LDAP_SYNCH, fnd_ldap_util.G_PORT);
1859: l_user := fnd_preference.get(fnd_ldap_util.G_INTERNAL, fnd_ldap_util.G_LDAP_SYNCH, fnd_ldap_util.G_USERNAME);

Line 1868: l_session := DBMS_LDAP.init(l_host, l_port);

1864:
1865: --Fix bug 4233320, raise both exception and alert when preferences are missing
1866: validate_OID_preferences (l_host, l_port, l_user, l_pwd);
1867:
1868: l_session := DBMS_LDAP.init(l_host, l_port);
1869:
1870: -- Elan, 04/27/2004, Not disclosing the password - gets saved to the database
1871: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1872: then

Line 1882: l_retval := dbms_ldap.open_ssl

1878: end if;
1879:
1880: if ( l_ldap_auth > 0 )
1881: then
1882: l_retval := dbms_ldap.open_ssl
1883: (l_session, 'file:'||l_db_wlt_url, l_db_wlt_pwd, l_ldap_auth);
1884: end if;
1885:
1886: if (l_retval = dbms_ldap.SUCCESS) then

Line 1886: if (l_retval = dbms_ldap.SUCCESS) then

1882: l_retval := dbms_ldap.open_ssl
1883: (l_session, 'file:'||l_db_wlt_url, l_db_wlt_pwd, l_ldap_auth);
1884: end if;
1885:
1886: if (l_retval = dbms_ldap.SUCCESS) then
1887: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);
1888: else
1889: fnd_message.set_name ('FND', 'FND_SSO_SSL_ERROR');
1890: raise_application_error(-20002, 'FND_SSO_SSL_ERROR');

Line 1887: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);

1883: (l_session, 'file:'||l_db_wlt_url, l_db_wlt_pwd, l_ldap_auth);
1884: end if;
1885:
1886: if (l_retval = dbms_ldap.SUCCESS) then
1887: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);
1888: else
1889: fnd_message.set_name ('FND', 'FND_SSO_SSL_ERROR');
1890: raise_application_error(-20002, 'FND_SSO_SSL_ERROR');
1891: end if;

Line 1901: when dbms_ldap.invalid_session then

1897:
1898: return l_session;
1899:
1900: exception
1901: when dbms_ldap.invalid_session then
1902: fnd_message.set_name ('FND', 'FND_SSO_INV_SESSION');
1903: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1904: then
1905: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 1908: when dbms_ldap.invalid_ssl_wallet_loc then

1904: then
1905: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
1906: end if;
1907: raise;
1908: when dbms_ldap.invalid_ssl_wallet_loc then
1909: fnd_message.set_name ('FND', 'FND_SSO_WALLET_LOC');
1910: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1911: then
1912: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 1915: when dbms_ldap.invalid_ssl_wallet_passwd then

1911: then
1912: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
1913: end if;
1914: raise;
1915: when dbms_ldap.invalid_ssl_wallet_passwd then
1916: fnd_message.set_name ('FND', 'FND_SSO_WALLET_PWD');
1917: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1918: then
1919: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 1922: when dbms_ldap.invalid_ssl_auth_mode then

1918: then
1919: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
1920: end if;
1921: raise;
1922: when dbms_ldap.invalid_ssl_auth_mode then
1923: fnd_message.set_name ('FND', 'FND_SSO_INV_AUTH_MODE');
1924: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1925: then
1926: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 1983: l_message dbms_ldap.message := null;

1979: return varchar2 is
1980:
1981: l_module_source varchar2(256);
1982: result pls_integer;
1983: l_message dbms_ldap.message := null;
1984: l_entry dbms_ldap.message := null;
1985: l_attrs dbms_ldap.string_collection;
1986: subsNode varchar2(1000);
1987: l_nickname_attr varchar2(256);

Line 1984: l_entry dbms_ldap.message := null;

1980:
1981: l_module_source varchar2(256);
1982: result pls_integer;
1983: l_message dbms_ldap.message := null;
1984: l_entry dbms_ldap.message := null;
1985: l_attrs dbms_ldap.string_collection;
1986: subsNode varchar2(1000);
1987: l_nickname_attr varchar2(256);
1988: l_nickname_value varchar2(2000);

Line 1985: l_attrs dbms_ldap.string_collection;

1981: l_module_source varchar2(256);
1982: result pls_integer;
1983: l_message dbms_ldap.message := null;
1984: l_entry dbms_ldap.message := null;
1985: l_attrs dbms_ldap.string_collection;
1986: subsNode varchar2(1000);
1987: l_nickname_attr varchar2(256);
1988: l_nickname_value varchar2(2000);
1989: ldapSession dbms_ldap.session;

Line 1989: ldapSession dbms_ldap.session;

1985: l_attrs dbms_ldap.string_collection;
1986: subsNode varchar2(1000);
1987: l_nickname_attr varchar2(256);
1988: l_nickname_value varchar2(2000);
1989: ldapSession dbms_ldap.session;
1990:
1991: begin
1992: l_module_source := G_MODULE_SOURCE || 'get_oid_nickname: ';
1993: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)

Line 2108: fnd_user.user_guid%type,ldapSession in dbms_ldap.session) return BOOLEAN

2104: end set_ldap_message_attr;
2105: --
2106: -------------------------------------------------------------------------------
2107: function is_guid_already_subscribed(p_orclguid in
2108: fnd_user.user_guid%type,ldapSession in dbms_ldap.session) return BOOLEAN
2109: is
2110: l_module_source varchar(256);
2111: l_attrs dbms_ldap.string_collection;
2112: subsNode varchar2(1000);

Line 2111: l_attrs dbms_ldap.string_collection;

2107: function is_guid_already_subscribed(p_orclguid in
2108: fnd_user.user_guid%type,ldapSession in dbms_ldap.session) return BOOLEAN
2109: is
2110: l_module_source varchar(256);
2111: l_attrs dbms_ldap.string_collection;
2112: subsNode varchar2(1000);
2113: l_message1 dbms_ldap.message := null;
2114: l_message2 dbms_ldap.message := null;
2115: usersDN varchar2(1000);

Line 2113: l_message1 dbms_ldap.message := null;

2109: is
2110: l_module_source varchar(256);
2111: l_attrs dbms_ldap.string_collection;
2112: subsNode varchar2(1000);
2113: l_message1 dbms_ldap.message := null;
2114: l_message2 dbms_ldap.message := null;
2115: usersDN varchar2(1000);
2116: l_result pls_integer;
2117:

Line 2114: l_message2 dbms_ldap.message := null;

2110: l_module_source varchar(256);
2111: l_attrs dbms_ldap.string_collection;
2112: subsNode varchar2(1000);
2113: l_message1 dbms_ldap.message := null;
2114: l_message2 dbms_ldap.message := null;
2115: usersDN varchar2(1000);
2116: l_result pls_integer;
2117:
2118: l_result1 BOOLEAN := FALSE;

Line 2127: l_result := dbms_ldap.search_s(ld => ldapSession, base => subsNode,

2123:
2124: subsNode := 'cn=ACCOUNTS,cn=subscription_data,cn=subscriptions,' || fnd_ldap_util.get_orclappname;
2125:
2126: --Search the ldap with orclOwnerGUID attribute filter
2127: l_result := dbms_ldap.search_s(ld => ldapSession, base => subsNode,
2128: scope => dbms_ldap.SCOPE_SUBTREE, filter =>
2129: 'orclOwnerGUID=' || p_orclguid, attrs => l_attrs, attronly => 0,
2130: res => l_message1);
2131:

Line 2128: scope => dbms_ldap.SCOPE_SUBTREE, filter =>

2124: subsNode := 'cn=ACCOUNTS,cn=subscription_data,cn=subscriptions,' || fnd_ldap_util.get_orclappname;
2125:
2126: --Search the ldap with orclOwnerGUID attribute filter
2127: l_result := dbms_ldap.search_s(ld => ldapSession, base => subsNode,
2128: scope => dbms_ldap.SCOPE_SUBTREE, filter =>
2129: 'orclOwnerGUID=' || p_orclguid, attrs => l_attrs, attronly => 0,
2130: res => l_message1);
2131:
2132: IF DBMS_LDAP.count_entries(ld => ldapSession, msg => l_message1) > 0 THEN

Line 2132: IF DBMS_LDAP.count_entries(ld => ldapSession, msg => l_message1) > 0 THEN

2128: scope => dbms_ldap.SCOPE_SUBTREE, filter =>
2129: 'orclOwnerGUID=' || p_orclguid, attrs => l_attrs, attronly => 0,
2130: res => l_message1);
2131:
2132: IF DBMS_LDAP.count_entries(ld => ldapSession, msg => l_message1) > 0 THEN
2133: l_result1 := TRUE;
2134: if(fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
2135: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'orclOwnerGUID present');
2136: end if;

Line 2145: l_result := dbms_ldap.search_s(ld => ldapSession, base => subsNode,

2141: END IF;
2142:
2143: --Search the ldap with uniquemember filter
2144: usersDN := fnd_ldap_util.get_dn_for_guid(p_orclguid => p_orclguid);
2145: l_result := dbms_ldap.search_s(ld => ldapSession, base => subsNode,
2146: scope => dbms_ldap.SCOPE_SUBTREE, filter =>
2147: 'uniquemember=' || usersDN, attrs => l_attrs,attronly => 0,
2148: res => l_message2);
2149:

Line 2146: scope => dbms_ldap.SCOPE_SUBTREE, filter =>

2142:
2143: --Search the ldap with uniquemember filter
2144: usersDN := fnd_ldap_util.get_dn_for_guid(p_orclguid => p_orclguid);
2145: l_result := dbms_ldap.search_s(ld => ldapSession, base => subsNode,
2146: scope => dbms_ldap.SCOPE_SUBTREE, filter =>
2147: 'uniquemember=' || usersDN, attrs => l_attrs,attronly => 0,
2148: res => l_message2);
2149:
2150: IF DBMS_LDAP.count_entries(ld => ldapSession, msg => l_message2) > 0 THEN

Line 2150: IF DBMS_LDAP.count_entries(ld => ldapSession, msg => l_message2) > 0 THEN

2146: scope => dbms_ldap.SCOPE_SUBTREE, filter =>
2147: 'uniquemember=' || usersDN, attrs => l_attrs,attronly => 0,
2148: res => l_message2);
2149:
2150: IF DBMS_LDAP.count_entries(ld => ldapSession, msg => l_message2) > 0 THEN
2151: l_result2 := TRUE;
2152: if(fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
2153: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'uniquemember present');
2154: end if;

Line 2196: ldapSession dbms_ldap.session;

2192: subsNode varchar2(1000);
2193: l_registration pls_integer;
2194: result pls_integer;
2195: retval pls_integer;
2196: ldapSession dbms_ldap.session;
2197: modArray dbms_ldap.mod_array;
2198: modmultivalues dbms_ldap.string_collection;
2199: guid_subscribed BOOLEAN;
2200: err varchar2(1000);

Line 2197: modArray dbms_ldap.mod_array;

2193: l_registration pls_integer;
2194: result pls_integer;
2195: retval pls_integer;
2196: ldapSession dbms_ldap.session;
2197: modArray dbms_ldap.mod_array;
2198: modmultivalues dbms_ldap.string_collection;
2199: guid_subscribed BOOLEAN;
2200: err varchar2(1000);
2201:

Line 2198: modmultivalues dbms_ldap.string_collection;

2194: result pls_integer;
2195: retval pls_integer;
2196: ldapSession dbms_ldap.session;
2197: modArray dbms_ldap.mod_array;
2198: modmultivalues dbms_ldap.string_collection;
2199: guid_subscribed BOOLEAN;
2200: err varchar2(1000);
2201:
2202: begin

Line 2242: modArray := dbms_ldap.create_mod_array(num => 1);

2238: return;
2239: else
2240: subsNode := 'cn=ACCOUNTS,cn=subscription_data,cn=subscriptions,' || fnd_ldap_util.get_orclappname;
2241:
2242: modArray := dbms_ldap.create_mod_array(num => 1);
2243:
2244: modmultivalues(0) := 'orclServiceSubscriptionDetail';
2245: dbms_ldap.populate_mod_array(modptr => modArray, mod_op => dbms_ldap.mod_add,
2246: mod_type => 'objectclass', modval => modmultivalues);

Line 2245: dbms_ldap.populate_mod_array(modptr => modArray, mod_op => dbms_ldap.mod_add,

2241:
2242: modArray := dbms_ldap.create_mod_array(num => 1);
2243:
2244: modmultivalues(0) := 'orclServiceSubscriptionDetail';
2245: dbms_ldap.populate_mod_array(modptr => modArray, mod_op => dbms_ldap.mod_add,
2246: mod_type => 'objectclass', modval => modmultivalues);
2247: subsNode := 'orclOwnerGUID=' || p_orclguid || ',' || subsNode;
2248: retval := dbms_ldap.add_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);
2249: end if;

Line 2248: retval := dbms_ldap.add_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);

2244: modmultivalues(0) := 'orclServiceSubscriptionDetail';
2245: dbms_ldap.populate_mod_array(modptr => modArray, mod_op => dbms_ldap.mod_add,
2246: mod_type => 'objectclass', modval => modmultivalues);
2247: subsNode := 'orclOwnerGUID=' || p_orclguid || ',' || subsNode;
2248: retval := dbms_ldap.add_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);
2249: end if;
2250:
2251: if (retval = dbms_ldap.SUCCESS)
2252: then

Line 2251: if (retval = dbms_ldap.SUCCESS)

2247: subsNode := 'orclOwnerGUID=' || p_orclguid || ',' || subsNode;
2248: retval := dbms_ldap.add_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);
2249: end if;
2250:
2251: if (retval = dbms_ldap.SUCCESS)
2252: then
2253: usersDN := fnd_ldap_util.get_dn_for_guid(p_orclguid => p_orclguid);
2254: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2255: then

Line 2259: modArray := dbms_ldap.create_mod_array(num => 1);

2255: then
2256: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
2257: ,'Adding unique member :: '||usersDN);
2258: end if;
2259: modArray := dbms_ldap.create_mod_array(num => 1);
2260: modmultivalues(0) := usersDN;
2261: dbms_ldap.populate_mod_array(modptr => modArray,
2262: mod_op => dbms_ldap.mod_add,
2263: mod_type => 'uniquemember',

Line 2261: dbms_ldap.populate_mod_array(modptr => modArray,

2257: ,'Adding unique member :: '||usersDN);
2258: end if;
2259: modArray := dbms_ldap.create_mod_array(num => 1);
2260: modmultivalues(0) := usersDN;
2261: dbms_ldap.populate_mod_array(modptr => modArray,
2262: mod_op => dbms_ldap.mod_add,
2263: mod_type => 'uniquemember',
2264: modval => modmultivalues);
2265: subsNode := 'cn=ACCOUNTS,cn=subscription_data,cn=subscriptions,' || fnd_ldap_util.get_orclappname;

Line 2262: mod_op => dbms_ldap.mod_add,

2258: end if;
2259: modArray := dbms_ldap.create_mod_array(num => 1);
2260: modmultivalues(0) := usersDN;
2261: dbms_ldap.populate_mod_array(modptr => modArray,
2262: mod_op => dbms_ldap.mod_add,
2263: mod_type => 'uniquemember',
2264: modval => modmultivalues);
2265: subsNode := 'cn=ACCOUNTS,cn=subscription_data,cn=subscriptions,' || fnd_ldap_util.get_orclappname;
2266: retval := dbms_ldap.modify_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);

Line 2266: retval := dbms_ldap.modify_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);

2262: mod_op => dbms_ldap.mod_add,
2263: mod_type => 'uniquemember',
2264: modval => modmultivalues);
2265: subsNode := 'cn=ACCOUNTS,cn=subscription_data,cn=subscriptions,' || fnd_ldap_util.get_orclappname;
2266: retval := dbms_ldap.modify_s(ld => ldapSession, entrydn => subsNode, modptr => modArray);
2267: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2268: then
2269: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
2270: ,'Completed modify');

Line 2273: if (retval = dbms_ldap.SUCCESS)

2269: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source
2270: ,'Completed modify');
2271: end if;
2272:
2273: if (retval = dbms_ldap.SUCCESS)
2274: then
2275: retval := fnd_ldap_util.G_SUCCESS;
2276: else
2277: retval := fnd_ldap_util.G_FAILURE;

Line 2283: dbms_ldap.free_mod_array(modptr => modArray);

2279: else
2280: retval := fnd_ldap_util.G_FAILURE;
2281: end if;
2282:
2283: dbms_ldap.free_mod_array(modptr => modArray);
2284: result := fnd_ldap_util.unbind(ldapSession);
2285:
2286: else
2287: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)