[Home] [Help]
365:
366: l_api_name CONSTANT VARCHAR2(30) :='getUserType';
367: l_PartyType HZ_PARTIES.PARTY_TYPE%type :='';
368: l_UserType jtf_um_usertypes_b.usertype_key%type :='ALL';
369: l_user_name FND_USER.USER_NAME%type;
370: l_is_pv_partner boolean :=false;
371: l_is_int_primary_user boolean:=false;
372: plsql_block VARCHAR2(500);
373: pv_flag VARCHAR2(1):='N';
379: --
380: -- cursor to retrieve user type from jta tables
381: Cursor c_get_user_type(c_party_id NUMBER) IS
382: select b.usertype_key
383: from jtf_um_usertype_reg a,jtf_um_usertypes_b b, fnd_user c , hz_parties d
384: where a.usertype_id=b.usertype_id and c.user_id = a.user_id
385: and d.party_id = c.customer_id and b.application_id=671
386: and d.party_id = c_party_id;
387:
387:
388: -- Cursor to get the party type , user name from fnd and hz tables
389: Cursor c_get_party_type_user_name(c_party_id NUMBER) IS
390: select d.party_type,c.user_name
391: from fnd_user c , hz_parties d
392: where d.party_id=c.customer_id
393: and d.party_id=c_party_id;
394:
395: BEGIN
1015:
1016:
1017: Cursor C_login_User(c_login_name VARCHAR2) IS
1018: Select USR.CUSTOMER_ID Name
1019: From FND_USER USR
1020: Where USR.EMPLOYEE_ID is null
1021: and user_name = c_login_name;
1022:
1023: Cursor C_Name_form_ResourceId(c_resource_id number)IS
1352: l_partner_pos NUMBER;
1353: --end ab
1354: Cursor C_login_User(c_login_name VARCHAR2) IS
1355: Select USR.CUSTOMER_ID Name
1356: From FND_USER USR
1357: Where USR.EMPLOYEE_ID is null
1358: and user_name = c_login_name;
1359: -- ab
1360: Cursor C_get_approval_id(c_usertype VARCHAR2) IS
1652: l_msgEnabled VARCHAR2(3) :='Y';
1653:
1654: CURSOR c_login_User(c_login_name VARCHAR2) IS
1655: SELECT USR.CUSTOMER_ID Name
1656: FROM FND_USER USR
1657: WHERE USR.EMPLOYEE_ID IS NULL
1658: AND user_name = c_login_name;
1659:
1660: BEGIN
2769: p.person_middle_name,
2770: p.person_last_name
2771: from hz_parties p,
2772: oe_order_headers_all o,
2773: fnd_user f,
2774: hz_relationships r
2775: where o.last_updated_by = f.user_id
2776: and f.customer_id = r.party_id
2777: and r.subject_id = p.party_id
2844: l_contact_last_name := rec_b2c_contact.person_last_name;
2845: EXIT when c_b2b_contact%notfound;
2846: END LOOP;
2847: IF(l_sold_to_contact is null) THEN
2848: --last_updated_by column saves the fnd user_id. Customer_id column in fnd_user table saves the
2849: --party_id of the person who last_updated the order. Hence l_contact_party_id is assigned the value of
2850: --customer_id from fnd_user table.
2851: FOR rec_last_updated_by in c_last_updated_by(p_order_id) LOOP
2852: l_contact_party_id := rec_last_updated_by.customer_id;
2846: END LOOP;
2847: IF(l_sold_to_contact is null) THEN
2848: --last_updated_by column saves the fnd user_id. Customer_id column in fnd_user table saves the
2849: --party_id of the person who last_updated the order. Hence l_contact_party_id is assigned the value of
2850: --customer_id from fnd_user table.
2851: FOR rec_last_updated_by in c_last_updated_by(p_order_id) LOOP
2852: l_contact_party_id := rec_last_updated_by.customer_id;
2853: l_contact_first_name := rec_last_updated_by.person_first_name;
2854: l_contact_mid_name := rec_last_updated_by.person_middle_name;
3995: l_reccharge_flag VARCHAR2(1);
3996:
3997: cursor c_userenv_partyid is
3998: select customer_id
3999: from FND_USER
4000: where user_id = FND_GLOBAL.USER_ID;
4001: rec_userenv_partyid c_userenv_partyid%rowtype;
4002:
4003: BEGIN
4394: IF (p_salesrep_user_id is NOT NULL) THEN
4395: BEGIN
4396: SELECT Employee_ID,user_name
4397: INTO l_employee_id,l_user_name
4398: FROM FND_USER
4399: WHERE USER_ID = p_salesrep_user_id;
4400: EXCEPTION
4401: WHEN OTHERS THEN
4402: IF (IBE_UTIL.G_DEBUGON = l_true) THEN