1: PACKAGE BODY PO_WF_DEBUG_PKG as
2: /* $Header: POXWDBGB.pls 120.1 2007/02/15 20:48:21 dedelgad ship $*/
3:
4: /***************************************************************************************
5: *
90: END IF;
91:
92: BEGIN
93:
94: insert into PO_WF_DEBUG
95: (EXECUTION_SEQUENCE,
96: EXECUTION_DATE,
97: ITEMTYPE,
98: ITEMKEY,
105: FORWARD_FROM_ID,
106: FORWARD_FROM_USERNAME,
107: AUTHORIZATION_STATUS,
108: DEBUG_MESSAGE)
109: values(po_wf_debug_s.nextval,
110: sysdate,
111: itemtype,
112: itemkey,
113: l_document_id,
153: FND_PROFILE.get('PO_SET_DEBUG_WORKFLOW_ON', l_option_value);
154:
155: IF (l_option_value = 'Y') THEN
156: BEGIN
157: INSERT INTO po_wf_debug ( execution_sequence
158: , execution_date
159: , debug_message
160: )
161: VALUES ( po_wf_debug_s.NEXTVAL
157: INSERT INTO po_wf_debug ( execution_sequence
158: , execution_date
159: , debug_message
160: )
161: VALUES ( po_wf_debug_s.NEXTVAL
162: , SYSDATE
163: , SUBSTRB(p_log_head || '.' || p_token || ':' || p_message, 1, 1000));
164: EXCEPTION
165: WHEN OTHERS THEN
265: END debug_unexp;
266: --
267:
268:
269: END PO_WF_DEBUG_PKG;