69: l_task_id number;
70:
71: BEGIN
72: l_api_name := 'Deliver';
73: l_debug_runtime := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
74: l_debug_exception := FND_LOG.LEVEL_EXCEPTION;
75: l_debug_procedure := FND_LOG.LEVEL_PROCEDURE;
76: l_debug_statment := FND_LOG.LEVEL_STATEMENT;
77:
70:
71: BEGIN
72: l_api_name := 'Deliver';
73: l_debug_runtime := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
74: l_debug_exception := FND_LOG.LEVEL_EXCEPTION;
75: l_debug_procedure := FND_LOG.LEVEL_PROCEDURE;
76: l_debug_statment := FND_LOG.LEVEL_STATEMENT;
77:
78: l_qualified_api_name := G_PKG_NAME||'.'||l_api_name;
71: BEGIN
72: l_api_name := 'Deliver';
73: l_debug_runtime := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
74: l_debug_exception := FND_LOG.LEVEL_EXCEPTION;
75: l_debug_procedure := FND_LOG.LEVEL_PROCEDURE;
76: l_debug_statment := FND_LOG.LEVEL_STATEMENT;
77:
78: l_qualified_api_name := G_PKG_NAME||'.'||l_api_name;
79: if(l_debug_procedure >= l_debug_runtime) then
72: l_api_name := 'Deliver';
73: l_debug_runtime := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
74: l_debug_exception := FND_LOG.LEVEL_EXCEPTION;
75: l_debug_procedure := FND_LOG.LEVEL_PROCEDURE;
76: l_debug_statment := FND_LOG.LEVEL_STATEMENT;
77:
78: l_qualified_api_name := G_PKG_NAME||'.'||l_api_name;
79: if(l_debug_procedure >= l_debug_runtime) then
80: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'Entered '||G_PKG_NAME||'.'||l_api_name);
76: l_debug_statment := FND_LOG.LEVEL_STATEMENT;
77:
78: l_qualified_api_name := G_PKG_NAME||'.'||l_api_name;
79: if(l_debug_procedure >= l_debug_runtime) then
80: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'Entered '||G_PKG_NAME||'.'||l_api_name);
81: end if;
82:
83: If(funcmode = 'RUN') Then
84: l_sms_users := wf_engine.GetItemAttrText( itemtype =>itemtype,
89: itemkey =>itemkey,
90: aname =>'EMAIL_USERS');
91:
92: if(l_debug_procedure >= l_debug_runtime) then
93: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'l_sms_users '||l_sms_users);
94: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'l_email_users '||l_email_users);
95: end if;
96:
97: BEGIN
90: aname =>'EMAIL_USERS');
91:
92: if(l_debug_procedure >= l_debug_runtime) then
93: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'l_sms_users '||l_sms_users);
94: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'l_email_users '||l_email_users);
95: end if;
96:
97: BEGIN
98: l_sms_adhocrole := 'ASPSMS_' || itemkey;
97: BEGIN
98: l_sms_adhocrole := 'ASPSMS_' || itemkey;
99: l_email_adhocrole := 'ASPEMAIL_' || itemkey;
100: if(l_debug_procedure >= l_debug_runtime) then
101: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'Before wf_directory.CreateAdHocRole ');
102: end if;
103:
104: wf_directory.CreateAdHocRole(role_name => l_sms_adhocrole,
105: role_display_name => l_sms_adhocrole,
110: role_display_name => l_email_adhocrole,
111: expiration_date => sysdate+5,
112: role_users => l_email_users);
113: if(l_debug_procedure >= l_debug_runtime) then
114: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'After wf_directory.CreateAdHocRole ');
115: end if;
116:
117: EXCEPTION
118: WHEN OTHERS THEN
119: wf_core.context(G_PKG_NAME, l_api_name, itemtype, itemkey, to_char(actid), funcmode);
120: l_debug_msg := l_qualified_api_name||':OTHERS:CreateAdHocRole'||to_char(SQLCODE)||':'||substr(SQLERRM,1,500);
121: wf_core.token('ORA_ERROR',l_debug_msg);
122: if(l_debug_exception >= l_debug_runtime) then
123: fnd_log.string(l_debug_exception, G_MODULE||l_api_name, l_debug_msg);
124: end if;
125: wf_core.raise('WF_ORA');
126: END;
127:
133: --*/
134: /*
135: --Set all the attributes for the "Message Delivery Process"
136: if(l_debug_procedure >= l_debug_runtime) then
137: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'Before wf_engine.CreateProcess ALERT_DELIVERY');
138: end if;
139: wf_engine.CreateProcess( itemtype => 'ASPALERT', itemkey => itemkey, process => 'ALERT_DELIVERY');
140:
141:
171: wf_engine.SetItemAttrText(itemtype, itemkey, 'DELIVERY_CHANNEL', 'CHANNEL_EMAIL');
172:
173:
174: if(l_debug_procedure >= l_debug_runtime) then
175: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'Before wf_engine.StartProcess ALERT_DELIVERY');
176: end if;
177: wf_engine.StartProcess(itemtype => 'ASPALERT', itemkey => itemkey);
178: if(l_debug_procedure >= l_debug_runtime) then
179: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'After wf_engine.StartProcess ALERT_DELIVERY');
175: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'Before wf_engine.StartProcess ALERT_DELIVERY');
176: end if;
177: wf_engine.StartProcess(itemtype => 'ASPALERT', itemkey => itemkey);
178: if(l_debug_procedure >= l_debug_runtime) then
179: fnd_log.string(l_debug_procedure, G_MODULE||l_api_name, 'After wf_engine.StartProcess ALERT_DELIVERY');
180: end if;
181: */
182:
183:
198: wf_core.context(G_PKG_NAME, l_api_name, itemtype, itemkey, to_char(actid), funcmode);
199: l_debug_msg := l_qualified_api_name||':NO_DATA_FOUND:'||to_char(SQLCODE)||':'||substr(SQLERRM,1,500);
200: wf_core.token('ORA_ERROR',l_debug_msg);
201: if(l_debug_exception >= l_debug_runtime) then
202: fnd_log.string(l_debug_exception, G_MODULE||l_api_name, l_debug_msg);
203: end if;
204: wf_core.raise('WF_ORA');
205:
206: When others Then
207: wf_core.context(G_PKG_NAME, l_api_name, itemtype, itemkey, to_char(actid), funcmode);
208: l_debug_msg := l_qualified_api_name||':OTHERS:'||to_char(SQLCODE)||':'||substr(SQLERRM,1,500);
209: wf_core.token('ORA_ERROR',l_debug_msg);
210: if(l_debug_exception >= l_debug_runtime) then
211: fnd_log.string(l_debug_exception, G_MODULE||l_api_name, l_debug_msg);
212: end if;
213: wf_core.raise('WF_ORA');
214:
215: END Deliver;