719: PROCEDURE Set_Profile(p_profile_option IN vARCHAR2,
720: p_profile_value IN VARCHAR2) IS
721: BEGIN
722:
723: FND_PROFILE.PUT(p_profile_option, p_profile_value);
724:
725: END Set_Profile;
726:
727: --------------------------------------------------------------------
746: l_wnd_context fnd_responsibility_vl.responsibility_name%TYPE;
747:
748: BEGIN
749:
750: fnd_profile.get('RESP_ID',l_resp_id);
751: fnd_profile.get('RESP_APPL_ID',l_application_id);
752:
753:
754: SELECT responsibility_name
747:
748: BEGIN
749:
750: fnd_profile.get('RESP_ID',l_resp_id);
751: fnd_profile.get('RESP_APPL_ID',l_application_id);
752:
753:
754: SELECT responsibility_name
755: INTO l_wnd_context
835: */
836: ELSE
837:
838: --Bug 1696006 replace this line
839: -- FND_PROFILE.GET ('ORG_ID', l_id);
840: --with the following lines
841: l_id := substrb(userenv('CLIENT_INFO'),1,10);
842: if substrb(l_id,1,1) = ' ' then
843: l_id := NULL;
3242: PROCEDURE Delete_AP_Profiles
3243: (P_Profile_Option_Name IN VARCHAR2)
3244: IS
3245: BEGIN
3246: FND_PROFILE_OPTIONS_PKG.Delete_Row(P_Profile_Option_Name);
3247: EXCEPTION
3248: WHEN NO_DATA_FOUND THEN
3249: NULL;
3250: WHEN OTHERS THEN