1: PACKAGE BODY M4R_7B5_OSFM_PKG AS
2: /* $Header: M4R7B5OB.pls 120.6 2006/09/19 12:34:27 bsaratna noship $ */
3:
4: g_debug_level NUMBER;
5: g_exception_tracking_msg VARCHAR2(200);
4: g_debug_level NUMBER;
5: g_exception_tracking_msg VARCHAR2(200);
6:
7: -- Package
8: -- M4R_7B5_OSFM_PKG
9: --
10: -- Purpose
11: -- This package is called from the 7B5 OSFM WF 'M4R 7B5 OSFM Outbound'.
12: --
49:
50: BEGIN
51:
52: IF (g_debug_level <= 2) THEN
53: cln_debug_pub.Add('ENTERING M4R_7B5_OSFM_PKG.SET_WF_ATTRIBUTES procedure with the following parameters:', 2);
54: cln_debug_pub.Add('itemtype:' || p_itemtype, 2);
55: cln_debug_pub.Add('itemkey:' || p_itemkey, 2);
56: cln_debug_pub.Add('actid:' || p_actid, 2);
57: cln_debug_pub.Add('funcmode:' || p_funcmode, 2);
191:
192: END IF; -- If doc type is Release, PO or Standard
193:
194: IF (g_debug_level <= 2) THEN
195: cln_debug_pub.Add('Exiting the M4R_7B5_OSFM_PKG.SET_WF_ATTRIBUTES procedure', 2);
196: END IF;
197:
198: EXCEPTION
199: WHEN OTHERS THEN
298:
299: BEGIN
300:
301: IF (g_debug_level <= 2) THEN
302: cln_debug_pub.Add('ENTERING M4R_7B5_OSFM_PKG.PROCESS_WO procedure with the following parameters:', 2);
303: cln_debug_pub.Add('itemtype:' || p_itemtype, 2);
304: cln_debug_pub.Add('itemkey:' || p_itemkey, 2);
305: cln_debug_pub.Add('actid:' || p_actid, 2);
306: cln_debug_pub.Add('funcmode:' || p_funcmode, 2);
817:
818: x_resultout := wf_engine.eng_completed;
819:
820: IF (g_debug_level <= 2) THEN
821: cln_debug_pub.Add('Exiting the M4R_7B5_OSFM_PKG.PROCESS_WO procedure', 2);
822: END IF;
823:
824: EXCEPTION
825: WHEN OTHERS THEN
872:
873: BEGIN
874:
875: IF (g_debug_level <= 2) THEN
876: cln_debug_pub.Add('Entering M4R_7B5_OSFM_PKG.compare_headers', 2);
877: END IF;
878:
879: IF p_revision_num <= 0
880: THEN
978:
979: BEGIN
980: g_debug_level := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
981:
982: END M4R_7B5_OSFM_PKG;