[Home] [Help]
133: -- NOTE
134: -- A role will only be resolved to one level. If a role contains has a
135: -- role associated to it, then that's as far as we go.
136: procedure GetRecipients(p_role in varchar2,
137: p_recipient_list in out NOCOPY WF_DIRECTORY.wf_local_roles_tbl_type)
138: is
139:
140: l_display_name wf_roles.display_name%TYPE;
141: l_description wf_roles.description%TYPE;
177:
178: begin
179:
180: -- Get role details.
181: wf_directory.GetRoleInfo(p_role, l_display_name, l_email_address,
182: l_notification_preference, l_language,
183: l_territory);
184:
185: -- If the email address is NULL, then look for the members attached to
202: -- will get a notification.
203: colon := instr(p_role, ':');
204: if colon > 0 then
205: for urrec in urc1(p_role, colon) loop
206: wf_directory.GetRoleInfo(urrec.name, l_display_name,
207: l_email_address,
208: l_notification_preference, l_language,
209: l_territory);
210: i := p_recipient_list.COUNT + 1;
218: p_recipient_list(i).email_address := l_email_address;
219: end loop;
220: else
221: for urrec in urc2(p_role) loop
222: wf_directory.GetRoleInfo(urrec.name, l_display_name,
223: l_email_address,
224: l_notification_preference, l_language,
225: l_territory);
226: i := p_recipient_list.COUNT + 1;
1373: -- Piority for the message
1374: -- A CLOB Containing the XML encoded message.
1375: procedure GetXMLMessage (p_nid in number,
1376: p_protocol in varchar2,
1377: p_recipient_list in WF_DIRECTORY.wf_local_roles_tbl_type,
1378: p_node in varchar2,
1379: p_agent in varchar2,
1380: p_replyto in varchar2,
1381: p_nlang in varchar2,
1808:
1809: l_recipient_role varchar2(320);
1810: l_ntf_pref varchar2(30);
1811: l_language varchar2(30);
1812: l_recipient_list WF_DIRECTORY.wf_local_roles_tbl_type;
1813: l_recipient_lang WF_DIRECTORY.wf_local_roles_tbl_type;
1814: l_wf_schema varchar2(320) := g_wfSchema;
1815:
1816: l_err_name varchar2(30);
1809: l_recipient_role varchar2(320);
1810: l_ntf_pref varchar2(30);
1811: l_language varchar2(30);
1812: l_recipient_list WF_DIRECTORY.wf_local_roles_tbl_type;
1813: l_recipient_lang WF_DIRECTORY.wf_local_roles_tbl_type;
1814: l_wf_schema varchar2(320) := g_wfSchema;
1815:
1816: l_err_name varchar2(30);
1817: l_err_message varchar2(2000);
2901: step := 'Processing role {'||copy_recipient_list(i)||'}';
2902:
2903: -- Get the qualified email address but the other details
2904: -- are not needed.
2905: WF_DIRECTORY.GetRoleInfoMail(role => copy_recipient_list(i),
2906: display_name => display_name,
2907: email_address => email,
2908: notification_preference => pref,
2909: language => dummy,
2935: orig_system_id) loop
2936:
2937: step := 'Getting member role '||r.user_name||
2938: 'details to the document';
2939: WF_DIRECTORY.GetRoleInfoMail(role => r.user_name,
2940: display_name => display_name,
2941: email_address => email,
2942: notification_preference => pref,
2943: language => dummy,
3221: recipient_role := p_recipient_role;
3222:
3223: -- <
3224: -- Obtain recipient's NLS information by using new API
3225: WF_DIRECTORY.GetRoleInfoMail2(recipient_role, display_name, email,
3226: notification_pref,
3227: orig_system,
3228: orig_system_id,
3229: installed,
4261: return;
4262: end if;
4263:
4264: -- <
4265: -- Call OLD API instead of WF_DIRECTORY.GetRoleInfoMail2
4266: -- here I think we are OK as we are not using other parameters.
4267: --
4268: -- Obtain recipient information
4269: WF_DIRECTORY.GetRoleInfoMail(recipient_role, display_name, email,
4265: -- Call OLD API instead of WF_DIRECTORY.GetRoleInfoMail2
4266: -- here I think we are OK as we are not using other parameters.
4267: --
4268: -- Obtain recipient information
4269: WF_DIRECTORY.GetRoleInfoMail(recipient_role, display_name, email,
4270: notification_pref,
4271: language, territory,
4272: orig_system, orig_system_id, installed);
4273:
4407: pos := p_pos;
4408: occurance := 1;
4409:
4410: -- Obtain recipient information
4411: --WF_DIRECTORY.GetRoleInfoMail(recipient_role, display_name, email,
4412: -- notification_pref,
4413: -- language, territory,
4414: -- orig_system, orig_system_id, installed);
4415:
4413: -- language, territory,
4414: -- orig_system, orig_system_id, installed);
4415:
4416: -- Obtain recipient's NLS information too
4417: WF_DIRECTORY.GetRoleInfoMail2(recipient_role, display_name, email,
4418: notification_pref,
4419: orig_system,
4420: orig_system_id,
4421: installed,
4870: pos := length(str);
4871: dbms_lob.write(p_doc, pos, 1, str);
4872:
4873: -- Obtain recipient information
4874: WF_DIRECTORY.GetRoleInfoMail(recipient_role, display_name, email,
4875: notification_pref,
4876: language, territory,
4877: orig_system, orig_system_id, installed);
4878:
5728: FROM wf_notifications
5729: WHERE mail_status is null
5730: AND status = 'OPEN'
5731: AND rownum > 0)
5732: WHERE Wf_Directory.GetRoleNtfPref(recipient) in ('SUMMARY', 'SUMHTML');
5733:
5734: -- returns the roles with notification preference of 'QUERY'
5735: -- and having some open notifications
5736: CURSOR c_get_query_roles is