20: l_wf_activity VARCHAR2(30);
21: l_authorized_to_ship_flag VARCHAR2(1);
22: l_line_rec oe_order_pub.line_rec_type;
23: --
24: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
25: --
26: begin
27: --
28: -- RUN mode - normal process execution
60: WHERE line_id = l_line_id; */
61:
62: l_header_id := l_line_rec.header_id;
63: IF l_debug_level > 0 THEN
64: oe_debug_pub.add( 'HEADERID:' || TO_CHAR ( L_HEADER_ID ) ) ;
65: END IF;
66:
67: -- Retrieving internal name and itemtype of the parent process.
68: -- XX Do we need this
85: FROM oe_order_lines
86: WHERE line_id = l_line_id;
87:
88: IF l_debug_level > 0 THEN
89: oe_debug_pub.add( 'AUTHORIZED_TO_SHIP_FLAG:'||L_AUTHORIZED_TO_SHIP_FLAG ) ;
90: END IF;
91: if l_authorized_to_ship_flag = 'Y' then
92: resultout := 'COMPLETE:Y';
93: else
96:
97: EXCEPTION
98: WHEN NO_DATA_FOUND THEN
99: IF l_debug_level > 0 THEN
100: oe_debug_pub.add( 'NO DATA FOUND FOR AUTHORIZED_TO_SHIP_FLAG' ) ;
101: END IF;
102: resultout := 'INCOMPLETE:N';
103: raise program_error;
104: WHEN OTHERS THEN
102: resultout := 'INCOMPLETE:N';
103: raise program_error;
104: WHEN OTHERS THEN
105: IF l_debug_level > 0 THEN
106: oe_debug_pub.add( 'ERROR FOR AUTHORIZED_TO_SHIP_FLAG' ) ;
107: END IF;
108: resultout := 'INCOMPLETE:N';
109: raise program_error;
110: END;