[Home] [Help]
355:
356: l_api_name CONSTANT VARCHAR2(30) :='getUserType';
357: l_PartyType HZ_PARTIES.PARTY_TYPE%type :='';
358: l_UserType jtf_um_usertypes_b.usertype_key%type :='ALL';
359: l_user_name FND_USER.USER_NAME%type;
360: l_is_pv_partner boolean :=false;
361: l_is_int_primary_user boolean:=false;
362: plsql_block VARCHAR2(500);
363: pv_flag VARCHAR2(1):='N';
369: --
370: -- cursor to retrieve user type from jta tables
371: Cursor c_get_user_type(c_party_id NUMBER) IS
372: select b.usertype_key
373: from jtf_um_usertype_reg a,jtf_um_usertypes_b b, fnd_user c , hz_parties d
374: where a.usertype_id=b.usertype_id and c.user_id = a.user_id
375: and d.party_id = c.customer_id and b.application_id=671
376: and d.party_id = c_party_id;
377:
377:
378: -- Cursor to get the party type , user name from fnd and hz tables
379: Cursor c_get_party_type_user_name(c_party_id NUMBER) IS
380: select d.party_type,c.user_name
381: from fnd_user c , hz_parties d
382: where d.party_id=c.customer_id
383: and d.party_id=c_party_id;
384:
385: BEGIN
1005:
1006:
1007: Cursor C_login_User(c_login_name VARCHAR2) IS
1008: Select USR.CUSTOMER_ID Name
1009: From FND_USER USR
1010: Where USR.EMPLOYEE_ID is null
1011: and user_name = c_login_name;
1012:
1013: Cursor C_Name_form_ResourceId(c_resource_id number)IS
1342: l_partner_pos NUMBER;
1343: --end ab
1344: Cursor C_login_User(c_login_name VARCHAR2) IS
1345: Select USR.CUSTOMER_ID Name
1346: From FND_USER USR
1347: Where USR.EMPLOYEE_ID is null
1348: and user_name = c_login_name;
1349: -- ab
1350: Cursor C_get_approval_id(c_usertype VARCHAR2) IS
1642: l_msgEnabled VARCHAR2(3) :='Y';
1643:
1644: CURSOR c_login_User(c_login_name VARCHAR2) IS
1645: SELECT USR.CUSTOMER_ID Name
1646: FROM FND_USER USR
1647: WHERE USR.EMPLOYEE_ID IS NULL
1648: AND user_name = c_login_name;
1649:
1650: BEGIN
2679: p.person_middle_name,
2680: p.person_last_name
2681: from hz_parties p,
2682: oe_order_headers_all o,
2683: fnd_user f,
2684: hz_relationships r
2685: where o.last_updated_by = f.user_id
2686: and f.customer_id = r.party_id
2687: and r.subject_id = p.party_id
2754: l_contact_last_name := rec_b2c_contact.person_last_name;
2755: EXIT when c_b2b_contact%notfound;
2756: END LOOP;
2757: IF(l_sold_to_contact is null) THEN
2758: --last_updated_by column saves the fnd user_id. Customer_id column in fnd_user table saves the
2759: --party_id of the person who last_updated the order. Hence l_contact_party_id is assigned the value of
2760: --customer_id from fnd_user table.
2761: FOR rec_last_updated_by in c_last_updated_by(p_order_id) LOOP
2762: l_contact_party_id := rec_last_updated_by.customer_id;
2756: END LOOP;
2757: IF(l_sold_to_contact is null) THEN
2758: --last_updated_by column saves the fnd user_id. Customer_id column in fnd_user table saves the
2759: --party_id of the person who last_updated the order. Hence l_contact_party_id is assigned the value of
2760: --customer_id from fnd_user table.
2761: FOR rec_last_updated_by in c_last_updated_by(p_order_id) LOOP
2762: l_contact_party_id := rec_last_updated_by.customer_id;
2763: l_contact_first_name := rec_last_updated_by.person_first_name;
2764: l_contact_mid_name := rec_last_updated_by.person_middle_name;
3900: l_reccharge_flag VARCHAR2(1);
3901:
3902: cursor c_userenv_partyid is
3903: select customer_id
3904: from FND_USER
3905: where user_id = FND_GLOBAL.USER_ID;
3906: rec_userenv_partyid c_userenv_partyid%rowtype;
3907:
3908: BEGIN
4299: IF (p_salesrep_user_id is NOT NULL) THEN
4300: BEGIN
4301: SELECT Employee_ID,user_name
4302: INTO l_employee_id,l_user_name
4303: FROM FND_USER
4304: WHERE USER_ID = p_salesrep_user_id;
4305: EXCEPTION
4306: WHEN OTHERS THEN
4307: IF (IBE_UTIL.G_DEBUGON = l_true) THEN