[Home] [Help]
23: l_result_out VARCHAR2(240); -- PASS/FAIL: result from credit check API
24: l_header_id NUMBER; -- Header Id for the order being processed
25: l_calling_action VARCHAR2(30); -- is the credit check rule Booking/Shipping
26: --
27: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
28: --
29: BEGIN
30: -- start data fix project
31: OE_STANDARD_WF.Set_Msg_Context(actid);
36:
37: if (funcmode = 'RUN') then
38:
39: IF l_debug_level > 0 THEN
40: oe_debug_pub.add( 'OEXCRWFB: CHECK_AVAILABLE_CREDIT: ITEM TYPE='||ITEMTYPE ) ;
41: END IF;
42:
43: l_header_id := GetHeaderID(itemtype, itemkey);
44:
54: END IF;
55: END IF;
56:
57: IF l_debug_level > 0 THEN
58: oe_debug_pub.add( 'OEXCRWFB: AFTER CHECK FOR MANUAL RELEASE' ) ;
59: END IF;
60:
61: /*-------- Deciding which credit check rule to use -------------------------*/
62:
85: resultout := 'COMPLETE:PASS';
86: END IF;
87:
88: IF l_debug_level > 0 THEN
89: oe_debug_pub.add( 'OEXCRWFB CHECK AVAILABLE CREDIT , RESULTOUT:' || RESULTOUT ) ;
90: END IF;
91:
92: ELSE RAISE PROGRAM_ERROR;
93:
160: l_return_status VARCHAR2(30); -- checks the return status of the called procedures
161: l_msg_count NUMBER := 0; -- checks the no. of msgs. from the called procedures
162: l_msg_data VARCHAR2(240); -- stores the msg. data from the called procedures
163: --
164: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
165: --
166: begin
167: -- start data fix project
168: OE_STANDARD_WF.Set_Msg_Context(actid);
172: --
173: if (funcmode = 'RUN') then
174:
175: IF l_debug_level > 0 THEN
176: oe_debug_pub.add( 'IN CHECK FOR HOLDS , OEXCRWFB WITH ITEMTYPE:'||ITEMTYPE ) ;
177: END IF;
178:
179: l_header_id := GetHeaderID(itemtype, itemkey);
180:
203: EXCEPTION
204: WHEN NO_DATA_FOUND THEN
205: l_hold_exists := 'N';
206: IF l_debug_level > 0 THEN
207: oe_debug_pub.add( 'NO DATA FOUND IN CHECK FOR HOLDS' ) ;
208: END IF;
209: END;
210:
211: -- Setting the result for the workflow
281: l_header_id NUMBER;
282: l_hold_source_rec OE_Hold_Sources_Pvt.Hold_Source_REC :=
283: OE_Hold_Sources_Pvt.G_MISS_Hold_Source_REC;
284: --
285: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
286: --
287: begin
288: -- start data fix project
289: OE_STANDARD_WF.Set_Msg_Context(actid);
299:
300: l_header_id := GetHeaderID( itemtype, itemkey);
301:
302: IF l_debug_level > 0 THEN
303: oe_debug_pub.add( 'APPLYING CREDIT HOLD TO HEADER:' || L_HEADER_ID ) ;
304: END IF;
305:
306: /*--------------------------- Applying credit hold ----------------------------------*/
307: l_hold_source_rec.hold_id := 1; -- Credit Failure Hold
331: );
332: */
333:
334: IF l_debug_level > 0 THEN
335: oe_debug_pub.add( 'APPLIED CREDIT HOLD TO HEADER:' || L_HEADER_ID ) ;
336: END IF;
337:
338: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
339: raise PROGRAM_ERROR;
449: -- in (select to_char(P.wf_key_id)
450: -- from oe_line_pending_actions P
451: -- where P.header_id = l_hold_entity_id)));
452: --
453: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
454: --
455: begin
456: -- start data fix project
457: OE_STANDARD_WF.Set_Msg_Context(actid);
464:
465: l_return_status := FND_API.G_RET_STS_SUCCESS;
466:
467: IF l_debug_level > 0 THEN
468: oe_debug_pub.add( 'IN RELEASE HOLDS , OEXCRWFB WITH ITEMTYPE:'||ITEMTYPE ) ;
469: END IF;
470:
471: l_hold_entity_id := GetHeaderID(itemtype, itemkey);
472:
470:
471: l_hold_entity_id := GetHeaderID(itemtype, itemkey);
472:
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add( 'CHECKING HOLDS FOR HEADER ID:' || L_HOLD_ENTITY_ID ) ;
475: END IF;
476:
477: /*-------------------- Checking if the hold still exists -------------------*/
478:
491:
492: IF l_hold_count > 0 THEN
493:
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( 'RELEASING ORDER WITH HEADER ID:' || L_HOLD_ENTITY_ID ) ;
496: END IF;
497:
498: /*-------------------- Releasing credit hold -------------------------------*/
499: l_hold_release_rec.release_reason_code := 'PASS_CREDIT';
532:
533: FOR curr_block_process IN blocked_process LOOP
534:
535: IF l_debug_level > 0 THEN
536: oe_debug_pub.add( 'REL. HOLDS COMPLETE_ACT WITH ITEMTYPE:'||ITEMTYPE||' AND ITEMKEY:'||ITEMKEY ) ;
537: END IF;
538:
539: -- Completing all blocked check for hold processes for this order
540:
656: -- IN (select to_char(P.wf_key_id)
657: -- from oe_line_pending_actions P
658: -- where P.header_id = l_header_id)));
659: --
660: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
661: --
662: begin
663: -- start data fix project
664: OE_STANDARD_WF.Set_Msg_Context(actid);
671:
672: l_header_id := GetHeaderId( itemtype, itemkey);
673:
674: IF l_debug_level > 0 THEN
675: oe_debug_pub.add( 'IN THE WAIT_HOLD_NTF PROCEDURE' ) ;
676: END IF;
677:
678: FOR current_ntf_data IN ntf_process_data LOOP
679:
756: funcmode in varchar2,
757: resultout in out nocopy varchar2)
758: is
759: --
760: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
761: --
762: begin
763: -- start data fix project
764: OE_STANDARD_WF.Set_Msg_Context(actid);
807: -- SELECT header_id
808: -- FROM oe_line_pending_actions
809: -- WHERE wf_key_id = to_number(itemkey);
810: --
811: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
812: --
813: begin
814:
815: -- Retrieving the order header id based on the current workflow(itemtype)
855: AND S.HOLD_ENTITY_CODE = 'O'
856: AND S.HOLD_ENTITY_ID = header_id
857: AND S.RELEASED_FLAG ='Y';
858: --
859: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
860: --
861: begin
862:
863:
928: FROM wf_process_activities pa
929: WHERE pa.activity_name = 'PICK_RELEASE'
930: AND pa.activity_item_type = itemtype);
931: --
932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
933: --
934: begin
935:
936: l_header_id := GetHeaderID(itemtype, itemkey);