943: select employee_id
944: from fnd_user
945: where user_id = FND_GLOBAL.USER_ID;
946:
947: CURSOR pref_cur(p_employee_id IN ap_web_preferences.employee_id%TYPE) IS
948: select employee_id, show_audit_header_flag
949: from ap_web_preferences
950: where employee_id = p_employee_id
951: FOR UPDATE OF show_audit_header_flag NOWAIT;
945: where user_id = FND_GLOBAL.USER_ID;
946:
947: CURSOR pref_cur(p_employee_id IN ap_web_preferences.employee_id%TYPE) IS
948: select employee_id, show_audit_header_flag
949: from ap_web_preferences
950: where employee_id = p_employee_id
951: FOR UPDATE OF show_audit_header_flag NOWAIT;
952:
953: pref_rec pref_cur%ROWTYPE;
964: OPEN pref_cur(emp_rec.employee_id);
965: FETCH pref_cur INTO pref_rec;
966:
967: IF pref_cur%NOTFOUND THEN
968: INSERT INTO ap_web_preferences(
969: employee_id,
970: show_audit_header_flag,
971: last_update_date,
972: last_updated_by,
983: fnd_global.conc_login_id /* last_update_login */
984: );
985: CLOSE pref_cur;
986: ELSE
987: UPDATE ap_web_preferences
988: SET show_audit_header_flag = NVL(p_show_header,'Y')
989: WHERE CURRENT OF pref_cur;
990: CLOSE pref_cur;
991: END IF;
1021: FUNCTION get_show_audit_header_flag RETURN VARCHAR2 IS
1022:
1023: CURSOR pref_cur IS
1024: select pref.employee_id, NVL(pref.show_audit_header_flag, 'Y') show_header_flag
1025: from ap_web_preferences pref, fnd_user usr
1026: where usr.user_id = FND_GLOBAL.USER_ID
1027: and pref.employee_id = usr.employee_id;
1028:
1029: pref_rec pref_cur%ROWTYPE;