117: ItemKey => l_item_key,
118: Process => 'NOTIFY_REQUESTER_SUP_CHN');
119:
120: l_progress := '002';
121: wf_directory.GetUserName ( p_orig_system => 'PER',
122: p_orig_system_id => p_requestor_id,
123: p_name => l_requestor_username,
124: p_display_name => l_requestor_disp_name);
125:
211: ItemKey => l_item_key,
212: Process => 'NOTIFY_PLANNER_SUP_CHN');
213:
214: l_progress := '002';
215: wf_directory.GetUserName ( p_orig_system => 'PER',
216: p_orig_system_id => p_planner_id,
217: p_name => l_planner_username,
218: p_display_name => l_planner_disp_name);
219:
6055: l_role_display_name varchar2(100):=null;
6056: l_expiration_date DATE;
6057: l_vendor_id NUMBER;
6058: x_resultout varchar2(100):=null;
6059: l_users WF_DIRECTORY.UserTable;
6060: l_user_name varchar2(100);
6061: t_document_type po_document_types_all.document_type_code%TYPE := null;
6062: u1 pls_integer := 0;
6063: --Bug 6722239 - End
6462: else
6463: l_expiration_date:=null;
6464: end if;
6465:
6466: WF_DIRECTORY.CreateAdHocRole2(l_role_name,
6467: l_role_display_name,
6468: null,
6469: null,
6470: null,
6485: END LOOP;
6486: CLOSE getChangeRespBy;
6487:
6488: IF(l_responded_by_id = l_buyer_agent_id) THEN
6489: wf_directory.GetUserName ( p_orig_system => 'PER',
6490: p_orig_system_id => l_buyer_agent_id,
6491: p_name => l_buyer_username,
6492: p_display_name => l_buyer_disp_name);
6493: ELSE
6490: p_orig_system_id => l_buyer_agent_id,
6491: p_name => l_buyer_username,
6492: p_display_name => l_buyer_disp_name);
6493: ELSE
6494: wf_directory.GetUserName ( p_orig_system => 'PER',
6495: p_orig_system_id => l_responded_by_id,
6496: p_name => l_buyer_username,
6497: p_display_name => l_buyer_disp_name);
6498: END IF;
6937: CLOSE getChangeRespBy;
6938:
6939: IF(l_responded_by_id = l_buyer_agent_id) THEN
6940:
6941: wf_directory.GetUserName ( p_orig_system => 'PER',
6942: p_orig_system_id => l_buyer_agent_id,
6943: p_name => l_buyer_username,
6944: p_display_name => l_buyer_disp_name);
6945: ELSE
6942: p_orig_system_id => l_buyer_agent_id,
6943: p_name => l_buyer_username,
6944: p_display_name => l_buyer_disp_name);
6945: ELSE
6946: wf_directory.GetUserName ( p_orig_system => 'PER',
6947: p_orig_system_id => l_responded_by_id,
6948: p_name => l_buyer_username,
6949: p_display_name => l_buyer_disp_name);
6950: END IF;
7783:
7784: l_progress := '003';
7785:
7786: -- Get Buyer UserName:
7787: wf_directory.GetUserName ( p_orig_system => 'PER',
7788: p_orig_system_id => l_buyer_agent_id,
7789: p_name => l_buyer_username,
7790: p_display_name => l_buyer_disp_name);
7791:
8007: l_start pls_integer;
8008: l_end pls_integer;
8009: begin
8010: /* This part of the code is copied from the procedure
8011: wf_directory.GetInfoFromMail. So, watch for fixes by wf in this part
8012: of the code.
8013: */
8014:
8015: -- strip off the unwanted info from email. Emails from the mailer