PACKAGE BODY: APPS.IBU_REG_NOTIF_PKG

Source

1 package body ibu_reg_notif_pkg
2 /* $Header: iburgnob.pls 115.9.1158.2 2002/07/25 00:25:50 jamose noship $ */
3 	as
4 
5 procedure ibu_send_reg_notification(email_address_in in varchar2,
6 							 subject in VARCHAR2,
7 							 user_id in VARCHAR2,
8 							 reg_greeting in VARCHAR2,
9 							 reg_thankyou in VARCHAR2,
10 							 reg_info in VARCHAR2,
11 							 reg_acctinfo in VARCHAR2,
12 							 reg_username in VARCHAR2,
13 							 reg_password in VARCHAR2,
14 							 reg_contractnum in VARCHAR2,
15 							 reg_csinum in VARCHAR2,
16 							 reg_changepwd in VARCHAR2,
17 							 reg_print in VARCHAR2,
18 							 reg_logon in VARCHAR2,
19 							 reg_thanks in VARCHAR2,
20 							 reg_closing in VARCHAR2,
21 							 reg_isupport in VARCHAR2)
22 as
23 	user_name      varchar2(100):=null;
24 	user_display_name   varchar2(100):=null;
25 	language		varchar2(100):='AMERICAN';
26 	territory		varchar2(100):='America';
27 	description	varchar2(100):=NULL;
28 	notification_preference varchar2(100):='MAILTEXT';
29 	email_address	varchar2(100):=NULL;
30 	fax			varchar2(100):=NULL;
31 	status		varchar2(100):='ACTIVE';
32 	expiration_date varchar2(100):=NULL;
33 	role_name		varchar2(100):=NULL;
34 	role_display_name	varchar2(100):=NULL;
35 	role_description 	varchar2(100):=NULL;
36 	wf_id		Number;
37 	msg_type  varchar2(100):='IBU_RG';
38 	msg_name  varchar2(100):='IBU_REG_MESSAGE';
39 
40 	due_date date:=NULL;
41 	callback varchar2(100):=NULL;
42     context varchar2(100):=NULL;
43     send_comment varchar2(100):=NULL;
44     priority  number:=10;
45 
46     now               VARCHAR2(60);
47 
48 duplicate_user_or_role	exception;
49 PRAGMA	EXCEPTION_INIT (duplicate_user_or_role, -20002);
50 
51 begin
52 	/*Create a role for ad hoc user if none exist*/
53      --select to_char(sysdate, 'mm-dd-yyyy hh24:mi:ss') into now from dual;
54      --select to_char(sysdate, 'mmddyyyyhh24miss') into now from dual;
55      --role_name:=user_id || now;
56 	role_name:= 'IBU_' || substr(user_id, 1, 25);
57 	role_display_name:=role_name;
58 	email_address:=email_address_in;
59 
60 	begin
61 		WF_Directory.CreateAdHocRole (role_name, role_display_name, language, territory,  role_description, notification_preference, user_name, email_address, fax, status, expiration_date);
62 	exception
63 		when duplicate_user_or_role then
64 		WF_Directory.SetAdHocRoleAttr (role_name, role_display_name, notification_preference, language, territory, email_address, fax);
65 	end;
66 
67 
68 	wf_id:=WF_Notification.send (role_name, 'IBU_RG', 'IBU_REG_MESSAGE', due_date, callback, context, send_comment, priority);
69 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_SUBJECT', subject);
70 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_GREETING', reg_greeting);
71 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_THANKYOU', reg_thankyou);
72 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_INFO', reg_info);
73 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_ACCTINFO', reg_acctinfo);
74 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_USERNAME', reg_username);
75 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_PASSWORD', reg_password);
76 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_CONTRACTNUM', reg_contractnum);
77 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_CSINUM', reg_csinum);
78 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_CHANGEPWD', reg_changepwd);
79 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_PRINT', reg_print);
80 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_LOGON', reg_logon);
81 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_THANKS', reg_thanks);
82 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_CLOSING', reg_closing);
83 	WF_Notification.SetAttrText (wf_id, 'IBU_REG_ISUPPORT', reg_isupport);
84 
85 	/* commit;  */
86 
87 end ibu_send_reg_notification;
88 
89 
90 
91 end ibu_reg_notif_pkg;