97: relRec REL_CSR%ROWTYPE;
98:
99: CURSOR NID_CSR(p_nid in number) IS
100: select notification_id
101: from wf_notifications
102: where notification_id = p_nid
103: FOR UPDATE of notification_id NOWAIT;
104:
105: nidRec NID_CSR%ROWTYPE;
117: --dbms_output.put_line('For Releases');
118: begin
119: select a.notification_id,poh.wf_item_type,poh.wf_item_key, a.message_name
120: INTO l_nid,l_po_item_type,l_po_item_key, l_message_name
121: from wf_notifications a,po_headers_all poh,
122: wf_item_activity_statuses wa
123: where poh.po_header_id=l_po_header_id
124: and poh.wf_item_key=wa.item_key
125: and poh.wf_item_type=wa.item_type
134: begin
135: --dbms_output.put_line('For Std PO');
136: select a.notification_id,por.wf_item_type,por.wf_item_key
137: INTO l_nid,l_po_item_type,l_po_item_key
138: from wf_notifications a,po_releases_all por,
139: wf_item_activity_statuses wa
140: where por.po_release_id=l_po_release_id
141: and por.wf_item_key=wa.item_key
142: and por.wf_item_type=wa.item_type
272: same as the l_supplier_name. See bug 3900146 for details.
273:
274: */
275: l_progress := '3-1';
276: WF_NOTIFICATION.SetAttrText(nid =>l_nid ,
277: aname => 'RESULT',
278: avalue => l_action);
279:
280: l_progress := '3-2';
277: aname => 'RESULT',
278: avalue => l_action);
279:
280: l_progress := '3-2';
281: WF_NOTIFICATION.Respond(nid =>l_nid ,
282: respond_comment =>null,
283: responder =>l_supp_username
284: --action_source in varchar2 default null
285: );