[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:
91: resultout := 'COMPLETE:PASS';
92: END IF;
93:
94: IF l_debug_level > 0 THEN
95: oe_debug_pub.add( 'OEXCRWFB CHECK AVAILABLE CREDIT , RESULTOUT:' || RESULTOUT ) ;
96: END IF;
97:
98: ELSE RAISE PROGRAM_ERROR;
99:
166: l_return_status VARCHAR2(30); -- checks the return status of the called procedures
167: l_msg_count NUMBER := 0; -- checks the no. of msgs. from the called procedures
168: l_msg_data VARCHAR2(240); -- stores the msg. data from the called procedures
169: --
170: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
171: --
172: begin
173: -- start data fix project
174: OE_STANDARD_WF.Set_Msg_Context(actid);
178: --
179: if (funcmode = 'RUN') then
180:
181: IF l_debug_level > 0 THEN
182: oe_debug_pub.add( 'IN CHECK FOR HOLDS , OEXCRWFB WITH ITEMTYPE:'||ITEMTYPE ) ;
183: END IF;
184:
185: l_header_id := GetHeaderID(itemtype, itemkey);
186:
209: EXCEPTION
210: WHEN NO_DATA_FOUND THEN
211: l_hold_exists := 'N';
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( 'NO DATA FOUND IN CHECK FOR HOLDS' ) ;
214: END IF;
215: END;
216:
217: -- Setting the result for the workflow
287: l_header_id NUMBER;
288: l_hold_source_rec OE_Hold_Sources_Pvt.Hold_Source_REC :=
289: OE_Hold_Sources_Pvt.G_MISS_Hold_Source_REC;
290: --
291: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
292: --
293: begin
294: -- start data fix project
295: OE_STANDARD_WF.Set_Msg_Context(actid);
305:
306: l_header_id := GetHeaderID( itemtype, itemkey);
307:
308: IF l_debug_level > 0 THEN
309: oe_debug_pub.add( 'APPLYING CREDIT HOLD TO HEADER:' || L_HEADER_ID ) ;
310: END IF;
311:
312: /*--------------------------- Applying credit hold ----------------------------------*/
313: l_hold_source_rec.hold_id := 1; -- Credit Failure Hold
337: );
338: */
339:
340: IF l_debug_level > 0 THEN
341: oe_debug_pub.add( 'APPLIED CREDIT HOLD TO HEADER:' || L_HEADER_ID ) ;
342: END IF;
343:
344: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
345: raise PROGRAM_ERROR;
455: -- in (select to_char(P.wf_key_id)
456: -- from oe_line_pending_actions P
457: -- where P.header_id = l_hold_entity_id)));
458: --
459: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
460: --
461: begin
462: -- start data fix project
463: OE_STANDARD_WF.Set_Msg_Context(actid);
470:
471: l_return_status := FND_API.G_RET_STS_SUCCESS;
472:
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add( 'IN RELEASE HOLDS , OEXCRWFB WITH ITEMTYPE:'||ITEMTYPE ) ;
475: END IF;
476:
477: l_hold_entity_id := GetHeaderID(itemtype, itemkey);
478:
476:
477: l_hold_entity_id := GetHeaderID(itemtype, itemkey);
478:
479: IF l_debug_level > 0 THEN
480: oe_debug_pub.add( 'CHECKING HOLDS FOR HEADER ID:' || L_HOLD_ENTITY_ID ) ;
481: END IF;
482:
483: /*-------------------- Checking if the hold still exists -------------------*/
484:
497:
498: IF l_hold_count > 0 THEN
499:
500: IF l_debug_level > 0 THEN
501: oe_debug_pub.add( 'RELEASING ORDER WITH HEADER ID:' || L_HOLD_ENTITY_ID ) ;
502: END IF;
503:
504: /*-------------------- Releasing credit hold -------------------------------*/
505: l_hold_release_rec.release_reason_code := 'PASS_CREDIT';
538:
539: FOR curr_block_process IN blocked_process LOOP
540:
541: IF l_debug_level > 0 THEN
542: oe_debug_pub.add( 'REL. HOLDS COMPLETE_ACT WITH ITEMTYPE:'||ITEMTYPE||' AND ITEMKEY:'||ITEMKEY ) ;
543: END IF;
544:
545: -- Completing all blocked check for hold processes for this order
546:
662: -- IN (select to_char(P.wf_key_id)
663: -- from oe_line_pending_actions P
664: -- where P.header_id = l_header_id)));
665: --
666: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
667: --
668: begin
669: -- start data fix project
670: OE_STANDARD_WF.Set_Msg_Context(actid);
677:
678: l_header_id := GetHeaderId( itemtype, itemkey);
679:
680: IF l_debug_level > 0 THEN
681: oe_debug_pub.add( 'IN THE WAIT_HOLD_NTF PROCEDURE' ) ;
682: END IF;
683:
684: FOR current_ntf_data IN ntf_process_data LOOP
685:
762: funcmode in varchar2,
763: resultout in out nocopy varchar2)
764: is
765: --
766: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
767: --
768: begin
769: -- start data fix project
770: OE_STANDARD_WF.Set_Msg_Context(actid);
813: -- SELECT header_id
814: -- FROM oe_line_pending_actions
815: -- WHERE wf_key_id = to_number(itemkey);
816: --
817: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
818: --
819: begin
820:
821: -- Retrieving the order header id based on the current workflow(itemtype)
879: AND S.RELEASED_FLAG ='Y';*/
880: --commented for BUG#9728597
881:
882: --
883: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
884: --
885: begin
886:
887:
891: --IF (released_hold%found) THEN --commented for BUG#9728597
892: FETCH released_hold INTO l_hold_release_id;
893: --added for BUG#9728597 Start
894: IF (released_hold%notfound) THEN
895: oe_debug_pub.add('No Released record for Margin Holds');
896: --added for BUG#9728597 End
897: END IF;
898: CLOSE released_hold;
899:
956: FROM wf_process_activities pa
957: WHERE pa.activity_name = 'PICK_RELEASE'
958: AND pa.activity_item_type = itemtype);
959: --
960: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
961: --
962: begin
963:
964: l_header_id := GetHeaderID(itemtype, itemkey);