[Home] [Help]
1993: ;
1994:
1995:
1996: --
1997: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1998: --
1999: BEGIN
2000:
2001:
2004: -----------------------------------------------------------
2005: */
2006: IF p_init_msg_list = FND_API.G_TRUE THEN
2007: IF l_debug_level > 0 THEN
2008: oe_debug_pub.add( 'BEFORE INITIALIZING MESSAGES LIST' ) ;
2009: END IF;
2010: OE_MSG_PUB.Initialize;
2011: END IF;
2012:
2014: Set message context
2015: -----------------------------------------------------------
2016: */
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT' ) ;
2019: oe_debug_pub.add('trim data = '||l_rtrim_data);
2020: END IF;
2021:
2022: OE_MSG_PUB.set_msg_context(
2015: -----------------------------------------------------------
2016: */
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT' ) ;
2019: oe_debug_pub.add('trim data = '||l_rtrim_data);
2020: END IF;
2021:
2022: OE_MSG_PUB.set_msg_context(
2023: p_entity_code => 'HEADER'
2041: Initialization
2042: -----------------------------------------------------------
2043: */
2044: IF l_debug_level > 0 THEN
2045: oe_debug_pub.add( 'BEFORE INITIALIZATION' ) ;
2046: END IF;
2047: begin
2048: select DECODE(p_validate_only,'Y','T','N','F',p_validate_only)
2049: into l_validate_only
2173: Headers
2174: -----------------------------------------------------------
2175: */
2176: IF l_debug_level > 0 THEN
2177: oe_debug_pub.add( 'BEFORE HEADERS LOOP' ) ;
2178: END IF;
2179:
2180: l_header_count := 0;
2181:
2476: l_header_rec.operation := 'CREATE';
2477: END IF;
2478:
2479: IF l_debug_level > 0 THEN
2480: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2481:
2482: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2483: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2478:
2479: IF l_debug_level > 0 THEN
2480: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2481:
2482: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2483: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2479: IF l_debug_level > 0 THEN
2480: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2481:
2482: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2483: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2487:
2480: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2481:
2482: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2483: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2487:
2488: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2481:
2482: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2483: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2487:
2488: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2489: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2482: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2483: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2487:
2488: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2489: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2490:
2484: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2487:
2488: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2489: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2490:
2491:
2492: END IF;
2485: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2486: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2487:
2488: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2489: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2490:
2491:
2492: END IF;
2493:
2504: IF l_header_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2505: AND nvl(l_header_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
2506: OE_GLOBALS.G_XML_TXN_CODE := l_header_rec.xml_transaction_type_code;
2507: IF l_debug_level > 0 THEN
2508: oe_debug_pub.add( 'SET GLOBAL TXN CODE TO '||OE_GLOBALS.G_XML_TXN_CODE ) ;
2509: END IF;
2510: END IF;
2511:
2512: IF l_header_rec.order_source_id NOT IN (OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID,
2518: END IF;
2519:
2520: if l_sold_to_org_id = FND_API.G_MISS_NUM then
2521: IF l_debug_level > 0 THEN
2522: oe_debug_pub.add( 'header level sold to org id is g_miss_num, so it was not populated' ) ;
2523: END IF;
2524:
2525: if (l_sold_to_org IS NOT NULL) AND
2526: (l_sold_to_org <> FND_API.G_MISS_CHAR) THEN
2525: if (l_sold_to_org IS NOT NULL) AND
2526: (l_sold_to_org <> FND_API.G_MISS_CHAR) THEN
2527:
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add( 'sold to org is populated:' || l_sold_to_org) ;
2530: END IF;
2531:
2532: l_sold_to_org_id_tmp := OE_VALUE_TO_ID.sold_to_org(
2533: p_sold_to_org => l_sold_to_org,
2535:
2536: if (l_sold_to_org_id_tmp <> FND_API.G_MISS_NUM) AND
2537: (l_sold_to_org_id_tmp IS NOT NULL) THEN
2538: IF l_debug_level > 0 THEN
2539: oe_debug_pub.add( 'returned value for sold_to_org_id was ' || l_sold_to_org_id_tmp) ;
2540: END IF;
2541: l_header_rec.sold_to_org_id := l_sold_to_org_id_tmp;
2542: end if;
2543:
2552: -----------------------------------------------------------
2553: */
2554:
2555: IF l_debug_level > 0 THEN
2556: oe_debug_pub.add( 'BEFORE HEADER ADJUSTMENTS LOOP' ) ;
2557: END IF;
2558:
2559: l_header_adj_count := 0;
2560:
2643: --duplicate
2644: p_return_status := FND_API.G_RET_STS_ERROR;
2645: l_validate_only := FND_API.G_TRUE;
2646: IF l_debug_level > 0 THEN
2647: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_DISCOUNT_REF FOR THE SAME ORDER' ) ;
2648: END IF;
2649:
2650: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2651: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_discount_ref');
2658: l_header_adj_tbl (l_header_adj_count) := l_header_adj_rec;
2659: l_header_adj_val_tbl (l_header_adj_count) := l_header_adj_val_rec;
2660:
2661: IF l_debug_level > 0 THEN
2662: oe_debug_pub.add( 'HEADER ADJ REF ( '||L_HEADER_ADJ_COUNT||' ) : '|| L_HEADER_ADJ_TBL ( L_HEADER_ADJ_COUNT ) .ORIG_SYS_DISCOUNT_REF ) ;
2663: END IF;
2664:
2665: END LOOP;
2666: CLOSE l_header_adj_cursor;
2670: Header Price Attribs
2671: -----------------------------------------------------------
2672: */
2673: IF l_debug_level > 0 THEN
2674: oe_debug_pub.add( 'BEFORE HEADER ATTRIBS LOOP' ) ;
2675: END IF;
2676:
2677: l_header_att_count := 0;
2678:
2821: -- duplicate
2822: p_return_status := FND_API.G_RET_STS_ERROR;
2823: l_validate_only := FND_API.G_TRUE;
2824: IF l_debug_level > 0 THEN
2825: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_ATTS_REF FOR THE SAME ORDER' ) ;
2826: END IF;
2827: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2828: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_ats_ref');
2829: OE_MSG_PUB.Add;
2840: Header Sales Credits
2841: -----------------------------------------------------------
2842: */
2843: IF l_debug_level > 0 THEN
2844: oe_debug_pub.add( 'BEFORE HEADER SALES CREDITS LOOP' ) ;
2845: END IF;
2846:
2847: l_header_scredit_count := 0;
2848:
2888: --duplicate
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: l_validate_only := FND_API.G_TRUE;
2891: IF l_debug_level > 0 THEN
2892: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_CREDIT_REF FORTHE SAME ORDER' ) ;
2893: END IF;
2894: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2895: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_credit_ref');
2896: OE_MSG_PUB.Add;
2901: l_header_scredit_tbl (l_header_scredit_count) := l_header_scredit_rec;
2902: l_header_scredit_val_tbl (l_header_scredit_count) := l_header_scredit_val_rec;
2903:
2904: IF l_debug_level > 0 THEN
2905: oe_debug_pub.add( 'HEADER SALESCREDIT ( '|| L_HEADER_SCREDIT_COUNT||' ) : '|| L_HEADER_SCREDIT_TBL ( L_HEADER_SCREDIT_COUNT ) .ORIG_SYS_CREDIT_REF ) ;
2906: END IF;
2907:
2908: END LOOP;
2909: CLOSE l_header_scredit_cursor;
2912: Multiple Payments: Header PAYMENTs
2913: -----------------------------------------------------------
2914: */
2915: IF l_debug_level > 0 THEN
2916: oe_debug_pub.add( 'BEFORE HEADER PAYMENTS LOOP' ) ;
2917: END IF;
2918:
2919: l_header_payment_count := 0;
2920:
2988: --duplicate
2989:
2990: l_validate_only := FND_API.G_TRUE;
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_payment_REF FORTHE SAME ORDER' ) ;
2993: END IF;
2994: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2995: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_payment_ref');
2996: OE_MSG_PUB.Add;
3002: l_header_payment_tbl (l_header_payment_count) := l_header_payment_rec;
3003: l_header_payment_val_tbl (l_header_payment_count) := l_header_payment_val_rec;
3004:
3005: IF l_debug_level > 0 THEN
3006: oe_debug_pub.add( 'HEADER PAYMENT ( '|| L_HEADER_PAYMENT_COUNT||' ) : '|| L_HEADER_payment_TBL ( L_HEADER_payment_COUNT ) .ORIG_SYS_payment_REF ) ;
3007: END IF;
3008:
3009:
3010: END LOOP;
3071: l_action_request_rec.entity_code := OE_Globals.G_ENTITY_HEADER;
3072: --l_action_request_rec.entity_id := l_header_rec_new.header_id;
3073:
3074: IF l_debug_level > 0 THEN
3075: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
3076:
3077: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
3078:
3079: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
3073:
3074: IF l_debug_level > 0 THEN
3075: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
3076:
3077: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
3078:
3079: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
3080: END IF;
3081:
3075: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
3076:
3077: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
3078:
3079: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
3080: END IF;
3081:
3082: IF l_action_rec.operation_code = OE_Globals.G_APPLY_HOLD THEN
3083: l_action_request_rec.param1 := l_action_rec.hold_id;
3103: l_action_request_rec.param24 := l_action_rec.attribute14;
3104: l_action_request_rec.param25 := l_action_rec.attribute15;
3105:
3106: IF l_debug_level > 0 THEN
3107: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3108:
3109: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3110:
3111: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3105:
3106: IF l_debug_level > 0 THEN
3107: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3108:
3109: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3110:
3111: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3112:
3113: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3107: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3108:
3109: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3110:
3111: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3112:
3113: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3114: END IF;
3115:
3109: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3110:
3111: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3112:
3113: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3114: END IF;
3115:
3116: ELSIF l_action_rec.operation_code = OE_Globals.G_RELEASE_HOLD THEN
3117: l_action_request_rec.param1 := l_action_rec.hold_id;
3121: l_action_request_rec.param4 := l_action_rec.release_reason_code;
3122: l_action_request_rec.param5 := l_action_rec.comments;
3123:
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3126:
3127: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3128:
3129: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3123:
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3126:
3127: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3128:
3129: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3130:
3131: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3125: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3126:
3127: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3128:
3129: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3130:
3131: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3132:
3133: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3127: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3128:
3129: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3130:
3131: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3132:
3133: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3134: END IF;
3135:
3129: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3130:
3131: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3132:
3133: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3134: END IF;
3135:
3136: --myerrams, introduced the following check for Customer Acceptance.
3137: ELSIF l_action_rec.operation_code = OE_Globals.G_ACCEPT_FULFILLMENT OR l_action_rec.operation_code = OE_Globals.G_REJECT_FULFILLMENT THEN
3154: OE_MSG_PUB.add;
3155: END IF;
3156:
3157: IF l_debug_level > 0 THEN
3158: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3159:
3160: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3161:
3162: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3156:
3157: IF l_debug_level > 0 THEN
3158: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3159:
3160: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3161:
3162: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3163:
3164: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3158: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3159:
3160: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3161:
3162: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3163:
3164: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3165:
3166: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
3160: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3161:
3162: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3163:
3164: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3165:
3166: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
3167: END IF;
3168: --myerrams, end
3162: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3163:
3164: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3165:
3166: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
3167: END IF;
3168: --myerrams, end
3169: END IF;
3170:
3178: Lines
3179: -----------------------------------------------------------
3180: */
3181: IF l_debug_level > 0 THEN
3182: oe_debug_pub.add( 'BEFORE LINES LOOP' ) ;
3183: END IF;
3184:
3185: l_line_count := 0;
3186:
3615: end if;
3616: ELSE
3617: BEGIN
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3620: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3621: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3622: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3623: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3616: ELSE
3617: BEGIN
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3620: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3621: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3622: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3623: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3624: END IF;
3617: BEGIN
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3620: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3621: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3622: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3623: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3624: END IF;
3625: IF l_line_rec.orig_sys_shipment_ref IS NULL or l_line_rec.orig_sys_shipment_ref = FND_API.G_MISS_CHAR then
3618: IF l_debug_level > 0 THEN
3619: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3620: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3621: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3622: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3623: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3624: END IF;
3625: IF l_line_rec.orig_sys_shipment_ref IS NULL or l_line_rec.orig_sys_shipment_ref = FND_API.G_MISS_CHAR then
3626: IF l_line_rec.calculate_price_flag IS NULL or l_line_rec.calculate_price_flag = FND_API.G_MISS_CHAR then
3619: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3620: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3621: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3622: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3623: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3624: END IF;
3625: IF l_line_rec.orig_sys_shipment_ref IS NULL or l_line_rec.orig_sys_shipment_ref = FND_API.G_MISS_CHAR then
3626: IF l_line_rec.calculate_price_flag IS NULL or l_line_rec.calculate_price_flag = FND_API.G_MISS_CHAR then
3627: --populate calculate_price_flag from lines table
3631: WHERE orig_sys_document_ref = l_line_rec.orig_sys_document_ref
3632: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref;
3633:
3634: IF l_debug_level > 0 THEN
3635: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3636: END IF;
3637:
3638: if l_line_rec.calculate_price_flag in ('P', 'N') then
3639:
3646: WHERE orig_sys_document_ref = l_line_rec.orig_sys_document_ref
3647: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref;
3648:
3649: IF l_debug_level > 0 THEN
3650: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3651: END IF;
3652:
3653: end if;
3654:
3665: WHERE orig_sys_document_ref = l_line_rec.orig_sys_document_ref
3666: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref;
3667:
3668: IF l_debug_level > 0 THEN
3669: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3670: END IF;
3671: end if;
3672: --//added to handle the case when user will populate CPF
3673: END IF;
3681: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref
3682: AND orig_sys_shipment_ref = l_line_rec.orig_sys_shipment_ref;
3683:
3684: IF l_debug_level > 0 THEN
3685: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3686: END IF;
3687:
3688: if l_line_rec.calculate_price_flag in ('P', 'N') then
3689:
3697: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref
3698: AND orig_sys_shipment_ref = l_line_rec.orig_sys_shipment_ref;
3699:
3700: IF l_debug_level > 0 THEN
3701: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3702: END IF;
3703:
3704: end if;
3705:
3717: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref
3718: AND orig_sys_shipment_ref = l_line_rec.orig_sys_shipment_ref;
3719:
3720: IF l_debug_level > 0 THEN
3721: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3722: END IF;
3723:
3724: end if;
3725: --//added to handle the case when user will populate CPF
3727: END IF; --end of orig_sys_shipment_ref check
3728: EXCEPTION
3729: WHEN NO_DATA_FOUND THEN
3730: IF l_debug_level > 0 THEN
3731: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG/UNIT SELLING PRICE/UNIT LIST PRICE NOT FOUND', 5) ;
3732: END IF;
3733: WHEN TOO_MANY_ROWS THEN
3734: IF l_debug_level > 0 THEN
3735: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM) ;
3731: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG/UNIT SELLING PRICE/UNIT LIST PRICE NOT FOUND', 5) ;
3732: END IF;
3733: WHEN TOO_MANY_ROWS THEN
3734: IF l_debug_level > 0 THEN
3735: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM) ;
3736: END IF;
3737: WHEN OTHERS THEN
3738: IF l_debug_level > 0 THEN
3739: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3735: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM) ;
3736: END IF;
3737: WHEN OTHERS THEN
3738: IF l_debug_level > 0 THEN
3739: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3740: END IF;
3741: END;
3742: END IF;
3743:
3750:
3751:
3752: if l_line_rec.sold_to_org_id = FND_API.G_MISS_NUM then
3753: IF l_debug_level > 0 THEN
3754: oe_debug_pub.add( 'line level sold to org id is g_miss_num, so it was not populated. defaulting to header level sold to org id' ) ;
3755: END IF;
3756: l_line_rec.sold_to_org_id := l_header_rec.sold_to_org_id;
3757: end if;
3758:
3766: --duplicate
3767: p_return_status := FND_API.G_RET_STS_ERROR;
3768: l_validate_only := FND_API.G_TRUE;
3769: IF l_debug_level > 0 THEN
3770: oe_debug_pub.add( 'YOU ARE ENTERING EITHER A DUPLICATE ORIG_SYS_LINE_REF OR ORIG_SYS_SHIPMENT_REF FOR THE SAME ORDER' ) ;
3771: END IF;
3772: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3773: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_line_ref and orig_sys_shipment_ref');
3774: OE_MSG_PUB.Add;
3777: (G_IMPORT_SHIPMENTS = 'NO') THEN
3778: p_return_status := FND_API.G_RET_STS_ERROR;
3779: l_validate_only := FND_API.G_TRUE;
3780: IF l_debug_level > 0 THEN
3781: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_LINE_REF FOR THE SAME ORDER' ) ;
3782: END IF;
3783: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3784: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_line_ref');
3785: OE_MSG_PUB.Add;
3789: IF (l_line_rec.orig_sys_line_ref = l_line_tbl(l_line_count).orig_sys_line_ref) THEN
3790: p_return_status := FND_API.G_RET_STS_ERROR;
3791: l_validate_only := FND_API.G_TRUE;
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_LINE_REF FOR THESAME ORDER' ) ;
3794: END IF;
3795: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3796: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_line_ref');
3797: OE_MSG_PUB.Add;
3809: IF l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
3810: AND l_line_rec.xml_transaction_type_code = OE_Acknowledgment_Pub.G_TRANSACTION_CHO THEN
3811: l_line_rec.cso_response_flag := l_header_cso_response_flag;
3812: IF l_debug_level > 0 THEN
3813: oe_debug_pub.add( 'Populated line response flag with :' || l_header_cso_response_flag
3814: || 'for line ref : ' || l_line_rec.orig_sys_line_ref);
3815: END IF;
3816: END IF;
3817: END IF;
3818:
3819: l_line_count := l_line_count + 1;
3820: if l_line_rec.service_reference_order = FND_API.G_MISS_CHAR then
3821: IF l_debug_level > 0 THEN
3822: oe_debug_pub.add( 'L_LINE_REC.SERVICE_REFERENCE_ORDER ' || ASCII ( L_LINE_REC.SERVICE_REFERENCE_ORDER ) ) ;
3823: END IF;
3824: end if;
3825: if l_line_val_rec.sold_to_org = FND_API.G_MISS_CHAR then
3826: IF l_debug_level > 0 THEN
3823: END IF;
3824: end if;
3825: if l_line_val_rec.sold_to_org = FND_API.G_MISS_CHAR then
3826: IF l_debug_level > 0 THEN
3827: oe_debug_pub.add( 'L_LINE_VAL_REC.SOLD_TO_ORG ' || ASCII ( L_LINE_VAL_REC.SOLD_TO_ORG ) ) ;
3828: END IF;
3829: end if;
3830:
3831: --populate l_line_rec.inventory_item_id with ccid if any of the
3851: (l_segment_array(18) IS NOT NULL) OR
3852: (l_segment_array(19) IS NOT NULL) OR
3853: (l_segment_array(20) IS NOT NULL)) THEN
3854: IF l_debug_level > 0 THEN
3855: oe_debug_pub.add( 'INSIDE GET CCID ROUTINE' ) ;
3856: END IF;
3857: FND_FLEX_KEY_API.SET_SESSION_MODE('customer_data');
3858: IF l_debug_level > 0 THEN
3859: oe_debug_pub.add( 'AFTER CALL TO SET SESSION' ) ;
3855: oe_debug_pub.add( 'INSIDE GET CCID ROUTINE' ) ;
3856: END IF;
3857: FND_FLEX_KEY_API.SET_SESSION_MODE('customer_data');
3858: IF l_debug_level > 0 THEN
3859: oe_debug_pub.add( 'AFTER CALL TO SET SESSION' ) ;
3860: END IF;
3861: l_flexfield := FND_FLEX_KEY_API.FIND_FLEXFIELD('INV', 'MSTK');
3862: IF l_debug_level > 0 THEN
3863: oe_debug_pub.add( 'AFTER FIND FLEXFIELD' ) ;
3859: oe_debug_pub.add( 'AFTER CALL TO SET SESSION' ) ;
3860: END IF;
3861: l_flexfield := FND_FLEX_KEY_API.FIND_FLEXFIELD('INV', 'MSTK');
3862: IF l_debug_level > 0 THEN
3863: oe_debug_pub.add( 'AFTER FIND FLEXFIELD' ) ;
3864: END IF;
3865: l_structure.structure_number := 101;
3866: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
3867: IF l_debug_level > 0 THEN
3864: END IF;
3865: l_structure.structure_number := 101;
3866: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
3867: IF l_debug_level > 0 THEN
3868: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
3869:
3870: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3871:
3872: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3866: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
3867: IF l_debug_level > 0 THEN
3868: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
3869:
3870: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3871:
3872: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3873:
3874: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
3868: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
3869:
3870: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3871:
3872: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3873:
3874: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
3875: END IF;
3876: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, l_validation_org) THEN
3870: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3871:
3872: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3873:
3874: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
3875: END IF;
3876: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, l_validation_org) THEN
3877: l_line_rec.inventory_item_id := l_id;
3878: IF l_debug_level > 0 THEN
3875: END IF;
3876: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, l_validation_org) THEN
3877: l_line_rec.inventory_item_id := l_id;
3878: IF l_debug_level > 0 THEN
3879: oe_debug_pub.add( 'GET CCID = '||L_LINE_REC.INVENTORY_ITEM_ID ) ;
3880: END IF;
3881: ELSE
3882: IF l_debug_level > 0 THEN
3883: oe_debug_pub.add( 'ERROR IN GETTING CCID' ) ;
3879: oe_debug_pub.add( 'GET CCID = '||L_LINE_REC.INVENTORY_ITEM_ID ) ;
3880: END IF;
3881: ELSE
3882: IF l_debug_level > 0 THEN
3883: oe_debug_pub.add( 'ERROR IN GETTING CCID' ) ;
3884: END IF;
3885: failure_message := fnd_flex_ext.get_message;
3886: OE_MSG_PUB.Add_TEXT(failure_message);
3887: p_return_status := FND_API.G_RET_STS_ERROR;
3886: OE_MSG_PUB.Add_TEXT(failure_message);
3887: p_return_status := FND_API.G_RET_STS_ERROR;
3888: l_validate_only := FND_API.G_TRUE;
3889: IF l_debug_level > 0 THEN
3890: oe_debug_pub.add('failure message = ' || substr ( failure_message , 1 , 50 ) ) ;
3891: oe_debug_pub.add('failure message = ' || substr ( failure_message , 51 , 50 ) ) ;
3892: oe_debug_pub.add('failure message = ' || substr ( failure_message , 101 , 50 ) ) ;
3893: END IF;
3894: END IF;
3887: p_return_status := FND_API.G_RET_STS_ERROR;
3888: l_validate_only := FND_API.G_TRUE;
3889: IF l_debug_level > 0 THEN
3890: oe_debug_pub.add('failure message = ' || substr ( failure_message , 1 , 50 ) ) ;
3891: oe_debug_pub.add('failure message = ' || substr ( failure_message , 51 , 50 ) ) ;
3892: oe_debug_pub.add('failure message = ' || substr ( failure_message , 101 , 50 ) ) ;
3893: END IF;
3894: END IF;
3895:
3888: l_validate_only := FND_API.G_TRUE;
3889: IF l_debug_level > 0 THEN
3890: oe_debug_pub.add('failure message = ' || substr ( failure_message , 1 , 50 ) ) ;
3891: oe_debug_pub.add('failure message = ' || substr ( failure_message , 51 , 50 ) ) ;
3892: oe_debug_pub.add('failure message = ' || substr ( failure_message , 101 , 50 ) ) ;
3893: END IF;
3894: END IF;
3895:
3896: ELSIF l_line_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
3914: (l_segment_array(18) IS NOT NULL) OR
3915: (l_segment_array(19) IS NOT NULL) OR
3916: (l_segment_array(20) IS NOT NULL)) THEN
3917: IF l_debug_level > 0 THEN
3918: oe_debug_pub.add( 'INSIDE ROUTINE WHERE BOTH ID AND SEG ARE POPULATED' ) ;
3919: END IF;
3920: l_line_rec.inventory_item_id := FND_API.G_MISS_NUM;
3921: FND_MESSAGE.SET_NAME('ONT','OE_OIM_INVALID_ITEM_ID');
3922: FND_MESSAGE.SET_TOKEN('ORDER_NO', l_orig_sys_document_ref);
3924: OE_MSG_PUB.Add;
3925: p_return_status := FND_API.G_RET_STS_ERROR;
3926: l_validate_only := FND_API.G_TRUE;
3927: IF l_debug_level > 0 THEN
3928: oe_debug_pub.add( 'CANNOT IMPORT ORDER AS BOTH INVENTORY_ITEM_ID AND INVENTORY_ITEM_SEGMENTS ARE POPULATED' ) ;
3929:
3930: oe_debug_pub.add( 'ORDER NO: '||L_ORIG_SYS_DOCUMENT_REF ) ;
3931:
3932: oe_debug_pub.add( 'ORDER SOURCE: '||L_ORDER_SOURCE_ID ) ;
3926: l_validate_only := FND_API.G_TRUE;
3927: IF l_debug_level > 0 THEN
3928: oe_debug_pub.add( 'CANNOT IMPORT ORDER AS BOTH INVENTORY_ITEM_ID AND INVENTORY_ITEM_SEGMENTS ARE POPULATED' ) ;
3929:
3930: oe_debug_pub.add( 'ORDER NO: '||L_ORIG_SYS_DOCUMENT_REF ) ;
3931:
3932: oe_debug_pub.add( 'ORDER SOURCE: '||L_ORDER_SOURCE_ID ) ;
3933: END IF;
3934:
3928: oe_debug_pub.add( 'CANNOT IMPORT ORDER AS BOTH INVENTORY_ITEM_ID AND INVENTORY_ITEM_SEGMENTS ARE POPULATED' ) ;
3929:
3930: oe_debug_pub.add( 'ORDER NO: '||L_ORIG_SYS_DOCUMENT_REF ) ;
3931:
3932: oe_debug_pub.add( 'ORDER SOURCE: '||L_ORDER_SOURCE_ID ) ;
3933: END IF;
3934:
3935: END IF;
3936:
3965: l_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR) OR
3966: (l_line_rec.fulfillment_set_id IS NOT NULL AND
3967: l_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM)) AND
3968: OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3969: oe_debug_pub.add('Ignoring : '|| l_line_rec.fulfillment_set, 1 ) ;
3970: l_line_rec.fulfillment_set := NULL;
3971: l_line_rec.fulfillment_set_id := NULL;
3972: FND_MESSAGE.Set_Name('ONT','ONT_FULSET_NAME_IGNORED');
3973: OE_MSG_PUB.Add;
3984: --End of the Add customer}
3985:
3986: if l_line_val_tbl(l_line_count).sold_to_org = FND_API.G_MISS_CHAR then
3987: IF l_debug_level > 0 THEN
3988: oe_debug_pub.add( 'L_LINE_TBL.SERVICE_REFERENCE_ORDER ' || ASCII ( L_LINE_TBL ( L_LINE_COUNT ) .SERVICE_REFERENCE_ORDER ) ) ;
3989:
3990: oe_debug_pub.add( 'L_LINE_VAL_TBL.SOLD_TO_ORG ' || ASCII ( L_LINE_VAL_TBL ( L_LINE_COUNT ) .SOLD_TO_ORG ) ) ;
3991: END IF;
3992: end if;
3986: if l_line_val_tbl(l_line_count).sold_to_org = FND_API.G_MISS_CHAR then
3987: IF l_debug_level > 0 THEN
3988: oe_debug_pub.add( 'L_LINE_TBL.SERVICE_REFERENCE_ORDER ' || ASCII ( L_LINE_TBL ( L_LINE_COUNT ) .SERVICE_REFERENCE_ORDER ) ) ;
3989:
3990: oe_debug_pub.add( 'L_LINE_VAL_TBL.SOLD_TO_ORG ' || ASCII ( L_LINE_VAL_TBL ( L_LINE_COUNT ) .SOLD_TO_ORG ) ) ;
3991: END IF;
3992: end if;
3993:
3994: l_orig_sys_line_ref := l_line_rec.orig_sys_line_ref;
3994: l_orig_sys_line_ref := l_line_rec.orig_sys_line_ref;
3995: l_orig_sys_shipment_ref := l_line_rec.orig_sys_shipment_ref;
3996:
3997: IF l_debug_level > 0 THEN
3998: oe_debug_pub.add( 'ORIG SYS LINE REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_LINE_REF ) ;
3999:
4000: oe_debug_pub.add( 'ORIG SYS SHIPMENT REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_SHIPMENT_REF ) ;
4001:
4002: /* -----------------------------------------------------------
3996:
3997: IF l_debug_level > 0 THEN
3998: oe_debug_pub.add( 'ORIG SYS LINE REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_LINE_REF ) ;
3999:
4000: oe_debug_pub.add( 'ORIG SYS SHIPMENT REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_SHIPMENT_REF ) ;
4001:
4002: /* -----------------------------------------------------------
4003: Line Discounts/Price adjustments
4004: -----------------------------------------------------------
4002: /* -----------------------------------------------------------
4003: Line Discounts/Price adjustments
4004: -----------------------------------------------------------
4005: */
4006: oe_debug_pub.add( 'BEFORE LINE ADJUSTMENTS LOOP' ) ;
4007: END IF;
4008:
4009: OPEN l_line_adj_cursor;
4010: LOOP
4092: l_line_adj_tbl (l_line_adj_count) := l_line_adj_rec;
4093: l_line_adj_val_tbl (l_line_adj_count) := l_line_adj_val_rec;
4094:
4095: IF l_debug_level > 0 THEN
4096: oe_debug_pub.add( 'LINE ADJUSTMENT REF ( '||L_LINE_ADJ_COUNT||' ) : '|| L_LINE_ADJ_TBL ( L_LINE_ADJ_COUNT ) .ORIG_SYS_DISCOUNT_REF ) ;
4097: END IF;
4098:
4099: END LOOP;
4100: CLOSE l_line_adj_cursor;
4104: Line Price attribs
4105: -----------------------------------------------------------
4106: */
4107: IF l_debug_level > 0 THEN
4108: oe_debug_pub.add( 'BEFORE LINE ATTRIBS LOOP' ) ;
4109: END IF;
4110:
4111: OPEN l_line_attrib_cursor;
4112: LOOP
4260: (l_line_rec.orig_sys_line_ref = l_line_tbl(l_line_count).orig_sys_line_ref ) THEN
4261: --duplicate
4262: p_return_status := FND_API.G_RET_STS_ERROR;
4263: l_validate_only := FND_API.G_TRUE;
4264: oe_debug_pub.add('You are entering a duplicate orig_sys_att_refat the line level for the same order');
4265: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
4266: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_price_att_ref');
4267: OE_MSG_PUB.Add;
4268: END IF;
4269: END IF;
4270: */
4271: l_line_att_count := l_line_att_count+1;
4272: l_line_price_att_tbl (l_line_att_count):=l_line_price_att_rec;
4273: -- oe_debug_pub.add('Line Price ATT ('||l_line_att_count||'):'||l_line_price_att_tbl(l_line_att_count).orig_sys_line_ref);
4274:
4275: END LOOP;
4276: CLOSE l_line_attrib_cursor;
4277:
4279: Line Sales Credits
4280: -----------------------------------------------------------
4281: */
4282: IF l_debug_level > 0 THEN
4283: oe_debug_pub.add( 'BEFORE LINE SALES CREDITS LOOP' ) ;
4284: END IF;
4285:
4286: OPEN l_line_scredit_cursor;
4287: LOOP
4326: l_line_scredit_tbl (l_line_scredit_count) := l_line_scredit_rec;
4327: l_line_scredit_val_tbl (l_line_scredit_count) := l_line_scredit_val_rec;
4328:
4329: IF l_debug_level > 0 THEN
4330: oe_debug_pub.add( 'LINE SALESCREDITS REF ( '||L_LINE_SCREDIT_COUNT||' ) : '|| L_LINE_SCREDIT_TBL ( L_LINE_SCREDIT_COUNT ) .ORIG_SYS_CREDIT_REF ) ;
4331: END IF;
4332:
4333: END LOOP;
4334: CLOSE l_line_scredit_cursor;
4338: Multiple Payments: Line Payments
4339: -----------------------------------------------------------
4340: */
4341: IF l_debug_level > 0 THEN
4342: oe_debug_pub.add( 'BEFORE LINE PAYMENTS LOOP' ) ;
4343: END IF;
4344:
4345: --l_line_payment_count := 0; Commented for the Bug3419970
4346:
4415: l_line_payment_tbl (l_line_payment_count) := l_line_payment_rec;
4416: l_line_payment_val_tbl (l_line_payment_count) := l_line_payment_val_rec;
4417:
4418: IF l_debug_level > 0 THEN
4419: oe_debug_pub.add( 'LINE PAYMENT REF ( '||L_LINE_payment_COUNT||' ) : '|| L_LINE_payment_TBL ( L_LINE_payment_COUNT ) .ORIG_SYS_PAYMENT_REF ) ;
4420: END IF;
4421:
4422: END LOOP;
4423: CLOSE l_line_payment_cursor;
4427: Line Lot Serials
4428: -----------------------------------------------------------
4429: */
4430: IF l_debug_level > 0 THEN
4431: oe_debug_pub.add( 'BEFORE LINE LOT SERIALS LOOP' ) ;
4432: END IF;
4433:
4434: OPEN l_lot_serial_cursor;
4435: LOOP
4472: l_lot_serial_count := l_lot_serial_count + 1;
4473: l_lot_serial_tbl (l_lot_serial_count) := l_lot_serial_rec;
4474:
4475: IF l_debug_level > 0 THEN
4476: oe_debug_pub.add( 'LINE LOT SERIAL REF ( '||L_LOT_SERIAL_COUNT||' ) : '|| L_LOT_SERIAL_TBL ( L_LOT_SERIAL_COUNT ) .ORIG_SYS_LOTSERIAL_REF ) ;
4477: END IF;
4478:
4479: END LOOP;
4480: CLOSE l_lot_serial_cursor;
4484: Line Reservation Details
4485: -----------------------------------------------------------
4486: */
4487: IF l_debug_level > 0 THEN
4488: oe_debug_pub.add( 'BEFORE LINE RESERVATIONS LOOP' ) ;
4489: END IF;
4490:
4491: OPEN l_reservation_cursor;
4492: LOOP
4530: l_reservation_tbl (l_reservation_count) := l_reservation_rec;
4531: l_reservation_val_tbl (l_reservation_count) := l_reservation_val_rec;
4532:
4533: IF l_debug_level > 0 THEN
4534: oe_debug_pub.add( 'LINE RESERVATION REF ( '||L_RESERVATION_COUNT||' ) : '|| L_RESERVATION_TBL ( L_RESERVATION_COUNT ) .ORIG_SYS_RESERVATION_REF ) ;
4535: END IF;
4536:
4537: END LOOP;
4538: CLOSE l_reservation_cursor;
4600: l_action_request_rec.entity_code := OE_Globals.G_ENTITY_LINE;
4601: l_action_request_rec.entity_index := l_line_count;
4602:
4603: IF l_debug_level > 0 THEN
4604: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
4605:
4606: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
4607:
4608: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
4602:
4603: IF l_debug_level > 0 THEN
4604: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
4605:
4606: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
4607:
4608: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
4609: END IF;
4610:
4604: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
4605:
4606: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
4607:
4608: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
4609: END IF;
4610:
4611: IF l_action_rec.operation_code = OE_Globals.G_APPLY_HOLD THEN
4612: l_action_request_rec.param1 := l_action_rec.hold_id;
4632: l_action_request_rec.param24 := l_action_rec.attribute14;
4633: l_action_request_rec.param25 := l_action_rec.attribute15;
4634:
4635: IF l_debug_level > 0 THEN
4636: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4637:
4638: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4639:
4640: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4634:
4635: IF l_debug_level > 0 THEN
4636: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4637:
4638: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4639:
4640: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4641:
4642: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4636: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4637:
4638: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4639:
4640: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4641:
4642: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4643: END IF;
4644:
4638: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4639:
4640: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4641:
4642: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4643: END IF;
4644:
4645: ELSIF l_action_rec.operation_code = OE_Globals.G_RELEASE_HOLD THEN
4646: l_action_request_rec.param1 := l_action_rec.hold_id;
4650: l_action_request_rec.param4 := l_action_rec.release_reason_code;
4651: l_action_request_rec.param5 := l_action_rec.comments;
4652:
4653: IF l_debug_level > 0 THEN
4654: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4655:
4656: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4657:
4658: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4652:
4653: IF l_debug_level > 0 THEN
4654: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4655:
4656: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4657:
4658: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4659:
4660: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4654: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4655:
4656: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4657:
4658: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4659:
4660: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4661:
4662: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4656: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4657:
4658: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4659:
4660: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4661:
4662: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4663: END IF;
4664:
4658: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4659:
4660: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4661:
4662: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4663: END IF;
4664:
4665: --myerrams, introduced the following check for Customer Acceptance.
4666: ELSIF l_action_rec.operation_code = OE_Globals.G_ACCEPT_FULFILLMENT OR l_action_rec.operation_code = OE_Globals.G_REJECT_FULFILLMENT THEN
4684: FND_MESSAGE.Set_Name('ONT', 'ONT_CUST_ACC_DISABLED');
4685: OE_MSG_PUB.add;
4686: END IF;
4687: IF l_debug_level > 0 THEN
4688: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4689:
4690: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4691:
4692: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4686: END IF;
4687: IF l_debug_level > 0 THEN
4688: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4689:
4690: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4691:
4692: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4693:
4694: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4688: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4689:
4690: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4691:
4692: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4693:
4694: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4695:
4696: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
4690: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4691:
4692: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4693:
4694: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4695:
4696: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
4697: END IF;
4698: --myerrams, end
4692: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4693:
4694: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4695:
4696: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
4697: END IF;
4698: --myerrams, end
4699: END IF;
4700:
4703:
4704: END LOOP;
4705: CLOSE l_action_request_line_cursor;
4706: IF l_debug_level > 0 THEN
4707: oe_debug_pub.add( 'LINES L_ACTION_REQUEST_COUNT : '||L_ACTION_REQUEST_COUNT ) ;
4708: END IF;
4709:
4710: END LOOP; /* Lines cursor */
4711: CLOSE l_line_cursor;
4714: Action Requests header
4715: -----------------------------------------------------------
4716: */
4717: IF l_debug_level > 0 THEN
4718: oe_debug_pub.add( 'BEFORE ACTION REQUEST HEADER LOOP' ) ;
4719: END IF;
4720:
4721: --l_action_request_count := 0;
4722:
4725: Call Order Import Pre-Process
4726: -----------------------------------------------------------
4727: */
4728: IF l_debug_level > 0 THEN
4729: oe_debug_pub.add( 'BEFORE CALLING ORDERIMPORT PRE-PROCESS' ) ;
4730: END IF;
4731:
4732:
4733: OE_ORDER_IMPORT_SPECIFIC_PVT.Pre_Process(
4772: Set Return Status
4773: -----------------------------------------------------------
4774: */
4775: IF l_debug_level > 0 THEN
4776: oe_debug_pub.add( 'PRE-PROCESS RETURN STATUS: '||L_RETURN_STATUS_OI_PRE ) ;
4777: END IF;
4778:
4779: IF l_return_status_oi_pre IN (FND_API.G_RET_STS_ERROR)
4780: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR,
4787: END IF;
4788:
4789: -- aksingh
4790: IF l_debug_level > 0 THEN
4791: oe_debug_pub.add( 'P_RETURN_STATUS AFTER PRE-PROCESS : '|| P_RETURN_STATUS ) ;
4792:
4793: /* -----------------------------------------------------------
4794: Set control flags for Process_Order
4795: -----------------------------------------------------------
4793: /* -----------------------------------------------------------
4794: Set control flags for Process_Order
4795: -----------------------------------------------------------
4796: */
4797: oe_debug_pub.add( 'BEFORE SETTING UP CONTROL FLAGS' ) ;
4798: END IF;
4799:
4800: l_init_msg_list := FND_API.G_FALSE;
4801:
4806: */
4807: IF l_return_status_oi_pre <> FND_API.G_RET_STS_SUCCESS THEN
4808: -- aksingh
4809: IF l_debug_level > 0 THEN
4810: oe_debug_pub.add( 'PRE-PROCESS FAILED SETTTING L_VALIDATE_ONLY TO TRUE' ) ;
4811: END IF;
4812: l_validate_only := FND_API.G_TRUE;
4813: END IF;
4814:
4818: */
4819: IF l_validate_only = FND_API.G_TRUE THEN
4820: -- aksingh
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'SETTTING L_API_SERVICE_LEVEL TO VALIDATE_ONLY' ) ;
4823: END IF;
4824: l_api_service_level := OE_GLOBALS.G_VALIDATION_ONLY;
4825: -- Following is added to fix the bug# 1267887
4826: -- It will allow the processing of all the line if API is called in
4848: Call Process_Order
4849: -----------------------------------------------------------
4850: */
4851: IF l_debug_level > 0 THEN
4852: oe_debug_pub.add( 'BEFORE CALLING PROCESS_ORDER' ) ;
4853:
4854: oe_debug_pub.add( 'BEFORE L_HEADER.OPERATION ' || L_HEADER_REC.OPERATION ) ;
4855: oe_debug_pub.add('trim data = '||l_rtrim_data);
4856: END IF;
4850: */
4851: IF l_debug_level > 0 THEN
4852: oe_debug_pub.add( 'BEFORE CALLING PROCESS_ORDER' ) ;
4853:
4854: oe_debug_pub.add( 'BEFORE L_HEADER.OPERATION ' || L_HEADER_REC.OPERATION ) ;
4855: oe_debug_pub.add('trim data = '||l_rtrim_data);
4856: END IF;
4857:
4858: If l_action_request_tbl.count > 0 then
4851: IF l_debug_level > 0 THEN
4852: oe_debug_pub.add( 'BEFORE CALLING PROCESS_ORDER' ) ;
4853:
4854: oe_debug_pub.add( 'BEFORE L_HEADER.OPERATION ' || L_HEADER_REC.OPERATION ) ;
4855: oe_debug_pub.add('trim data = '||l_rtrim_data);
4856: END IF;
4857:
4858: If l_action_request_tbl.count > 0 then
4859: oe_debug_pub.add('action table count = '|| l_action_request_tbl.count);
4855: oe_debug_pub.add('trim data = '||l_rtrim_data);
4856: END IF;
4857:
4858: If l_action_request_tbl.count > 0 then
4859: oe_debug_pub.add('action table count = '|| l_action_request_tbl.count);
4860: l_action_request_tbl_old := l_action_request_tbl;
4861: oe_debug_pub.add('action table old count = '|| l_action_request_tbl_old.count);
4862:
4863: End If;
4857:
4858: If l_action_request_tbl.count > 0 then
4859: oe_debug_pub.add('action table count = '|| l_action_request_tbl.count);
4860: l_action_request_tbl_old := l_action_request_tbl;
4861: oe_debug_pub.add('action table old count = '|| l_action_request_tbl_old.count);
4862:
4863: End If;
4864:
4865: OE_GLOBALS.G_FAIL_ORDER_IMPORT := FALSE; /* Bug # 4036765 */
4964: -- Right now call to the process order is commented down
4965: -- will be removed later
4966:
4967: IF l_debug_level > 0 THEN
4968: oe_debug_pub.add( 'PROCESS_ORDER RETURN STATUS BEFORE ACTION : '||L_RETURN_STATUS_PO , 1 ) ;
4969: END IF;
4970:
4971: /* Bug # 4036765 */
4972: IF OE_GLOBALS.G_FAIL_ORDER_IMPORT THEN
4970:
4971: /* Bug # 4036765 */
4972: IF OE_GLOBALS.G_FAIL_ORDER_IMPORT THEN
4973: IF l_debug_level > 0 THEN
4974: oe_debug_pub.add( 'G_FAIL_ORDER_IMPORT WAS SET TO TRUE. SETTING PROCESS_ORDER RETURN STATUS TO FAILURE' , 1 ) ;
4975: END IF;
4976: l_return_status_po := FND_API.G_RET_STS_ERROR;
4977: END IF;
4978:
4978:
4979: IF l_return_status_po IN (FND_API.G_RET_STS_ERROR,
4980: FND_API.G_RET_STS_UNEXP_ERROR) THEN
4981: IF l_debug_level > 0 THEN
4982: oe_debug_pub.add( 'PROCESS ORDER FAILED. NO NEED TO CALL FOR ACTIONS' , 1 ) ;
4983: END IF;
4984: ELSE --{
4985: l_header_rec := OE_Order_Pub.G_MISS_HEADER_REC;
4986: l_header_rec := l_header_rec_new;
4991: If l_action_request_tbl(i).return_status <>
4992: FND_API.G_RET_STS_SUCCESS
4993: Then
4994: IF l_debug_level > 0 THEN
4995: oe_debug_pub.add( 'FAILED TO PERFORM ACTION REQUEST ' || L_ACTION_REQUEST_TBL ( I ) .REQUEST_TYPE , 1 ) ;
4996: END IF;
4997: fnd_file.put_line(FND_FILE.OUTPUT,
4998: 'Failed to perform Action Request ' ||
4999: l_action_request_tbl(i).request_type);
5000: End If;
5001: End Loop;
5002:
5003: IF l_debug_level > 0 THEN
5004: oe_debug_pub.add( 'AFTER CALLING PROCESS_ORDER' , 3 ) ;
5005:
5006: /* -----------------------------------------------------------
5007: Set Return Status
5008: -----------------------------------------------------------
5006: /* -----------------------------------------------------------
5007: Set Return Status
5008: -----------------------------------------------------------
5009: */
5010: oe_debug_pub.add( 'PROCESS_ORDER RETURN STATUS: '||L_RETURN_STATUS_PO , 3 ) ;
5011: END IF;
5012:
5013: IF l_return_status_po IN (FND_API.G_RET_STS_ERROR)
5014: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR,
5022:
5023:
5024: -- aksingh
5025: IF l_debug_level > 0 THEN
5026: oe_debug_pub.add( 'P_RETURN_STATUS '||P_RETURN_STATUS , 3 ) ;
5027: END IF;
5028:
5029: /* -----------------------------------------------------------
5030: Check Process_Order Results
5032: */
5033: IF p_msg_count = 0 THEN
5034: IF l_return_status_po = FND_API.G_RET_STS_ERROR THEN
5035: IF l_debug_level > 0 THEN
5036: oe_debug_pub.add( 'PROCESS ORDER FAILED WITH ERRORS BUT RETURNED NO MESSAGE' ) ;
5037: END IF;
5038: FND_MESSAGE.SET_NAME('ONT','OE_OI_PO_ERROR');
5039: OE_MSG_PUB.Add;
5040: ELSIF l_return_status_po = FND_API.G_RET_STS_UNEXP_ERROR THEN
5038: FND_MESSAGE.SET_NAME('ONT','OE_OI_PO_ERROR');
5039: OE_MSG_PUB.Add;
5040: ELSIF l_return_status_po = FND_API.G_RET_STS_UNEXP_ERROR THEN
5041: IF l_debug_level > 0 THEN
5042: oe_debug_pub.add( 'PROCESS ORDER FAILED WITH UNEXPECTED ERRORS BUT RETURNED NO MESSAGE... ' ) ;
5043: END IF;
5044: FND_MESSAGE.SET_NAME('ONT','OE_OI_PO_UNEXP_ERROR');
5045: OE_MSG_PUB.Add;
5046: END IF;
5049: IF l_header_rec.operation IN ('INSERT', 'CREATE') AND
5050: l_return_status_po = FND_API.G_RET_STS_SUCCESS
5051: THEN
5052: IF l_debug_level > 0 THEN
5053: oe_debug_pub.add( 'HEADER ID GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.HEADER_ID ) ) ;
5054:
5055: oe_debug_pub.add( 'ORDER NUMBER GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.ORDER_NUMBER ) ) ;
5056: END IF;
5057: END IF;
5051: THEN
5052: IF l_debug_level > 0 THEN
5053: oe_debug_pub.add( 'HEADER ID GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.HEADER_ID ) ) ;
5054:
5055: oe_debug_pub.add( 'ORDER NUMBER GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.ORDER_NUMBER ) ) ;
5056: END IF;
5057: END IF;
5058:
5059:
5062: -----------------------------------------------------------
5063: */
5064: IF l_return_status_po = FND_API.G_RET_STS_SUCCESS THEN
5065: IF l_debug_level > 0 THEN
5066: oe_debug_pub.add( 'BEFORE CALLING ORDERIMPORT POST-PROCESS' ) ;
5067: END IF;
5068:
5069: OE_ORDER_IMPORT_SPECIFIC_PVT.Post_Process(
5070: p_x_header_rec => l_header_rec_new
5118: Set Return Status
5119: -----------------------------------------------------------
5120: */
5121: IF l_debug_level > 0 THEN
5122: oe_debug_pub.add( 'POST-PROCESS RETURN STATUS: '||L_RETURN_STATUS_OI_PST ) ;
5123: END IF;
5124:
5125: IF l_return_status_oi_pst IN (FND_API.G_RET_STS_ERROR)
5126: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR,
5141: -----------------------------------------------------------
5142: */
5143: -- aksingh
5144: IF l_debug_level > 0 THEN
5145: oe_debug_pub.add('l_validate_only '||l_validate_only ) ;
5146: oe_debug_pub.add('p_return_status '||p_return_status ) ;
5147: END IF;
5148:
5149: -- aksingh IF p_validate_only = FND_API.G_FALSE AND
5142: */
5143: -- aksingh
5144: IF l_debug_level > 0 THEN
5145: oe_debug_pub.add('l_validate_only '||l_validate_only ) ;
5146: oe_debug_pub.add('p_return_status '||p_return_status ) ;
5147: END IF;
5148:
5149: -- aksingh IF p_validate_only = FND_API.G_FALSE AND
5150: IF l_validate_only = FND_API.G_FALSE AND
5155: l_delete_flag := 'N';
5156: END IF;
5157:
5158: IF l_debug_level > 0 THEN
5159: oe_debug_pub.add( 'DELETE FLAG '||L_DELETE_FLAG ) ;
5160: END IF;
5161:
5162: IF l_delete_flag = 'Y' THEN
5163:
5161:
5162: IF l_delete_flag = 'Y' THEN
5163:
5164: IF l_debug_level > 0 THEN
5165: oe_debug_pub.add( 'BEFORE DELETING ORDER FROM INTERFACE TABLES' ) ;
5166: END IF;
5167:
5168: OE_ORDER_IMPORT_UTIL_PVT.Delete_Order (
5169: p_request_id => l_request_id,
5176: );
5177:
5178:
5179: IF l_debug_level > 0 THEN
5180: oe_debug_pub.add( 'BEFORE CALLING DELETE OF CUSTOMER INFO' ) ;
5181: END IF;
5182: OE_INLINE_CUSTOMER_PUB.Delete_Customer_Info(
5183: p_header_customer_rec => l_header_customer_rec,
5184: p_line_customer_tbl => l_line_customer_tbl
5183: p_header_customer_rec => l_header_customer_rec,
5184: p_line_customer_tbl => l_line_customer_tbl
5185: );
5186: IF l_debug_level > 0 THEN
5187: oe_debug_pub.add( 'AFTER CALLING DELETE OF CUSTOMER INFO' ) ;
5188:
5189:
5190: /* -----------------------------------------------------------
5191: Set Return Status
5190: /* -----------------------------------------------------------
5191: Set Return Status
5192: -----------------------------------------------------------
5193: */
5194: oe_debug_pub.add( 'DELETE ORDER RETURN STATUS: '||L_RETURN_STATUS_DEL_ORD ) ;
5195: END IF;
5196:
5197: IF l_return_status_del_ord IN (FND_API.G_RET_STS_ERROR)
5198: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5210: Commit or rollback the transaction
5211: -----------------------------------------------------------
5212: */
5213: IF l_debug_level > 0 THEN
5214: oe_debug_pub.add( 'BEFORE COMMIT OR ROLLBACK' ) ;
5215: END IF;
5216:
5217: IF l_validate_only = FND_API.G_TRUE
5218: OR p_return_status in (FND_API.G_RET_STS_ERROR, -- E:Expected error
5223: l_commit_flag := 'Y';
5224: END IF;
5225:
5226: IF l_debug_level > 0 THEN
5227: oe_debug_pub.add( 'COMMIT FLAG '||L_COMMIT_FLAG ) ;
5228: END IF;
5229:
5230: IF l_commit_flag = 'Y' THEN
5231: COMMIT;
5237: BEGIN
5238: SAVEPOINT VERIFY_PAYMENT;
5239:
5240: if l_debug_level > 5 then
5241: oe_debug_pub.add('Calling Verify Payment from Order Import, after committing data', 5);
5242: end if;
5243: OE_Verify_Payment_PUB.Verify_Payment
5244: ( p_header_id => l_header_rec_new.header_id
5245: , p_calling_action => 'BOOKING'
5251: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5252: END;
5253:
5254: if l_debug_level > 0 then
5255: oe_debug_pub.add('After Verify Payment from Order Import Status : ' || l_return_status, 5);
5256: end if;
5257:
5258: IF l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5259: ROLLBACK TO SAVEPOINT VERIFY_PAYMENT;
5277: THEN
5278: BEGIN
5279: BEGIN
5280: IF l_debug_level > 0 THEN
5281: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER' ) ;
5282: END IF;
5283:
5284: UPDATE oe_headers_interface
5285: SET error_flag = 'Y', xml_message_id = nvl(xml_message_id, l_header_rec.xml_message_id)
5295: = nvl(l_request_id, FND_API.G_MISS_NUM);
5296: EXCEPTION
5297: WHEN OTHERS THEN
5298: IF l_debug_level > 0 THEN
5299: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5300: END IF;
5301: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5302: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5303: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Import_Order');
5308: BEGIN
5309: FOR I in 1..l_header_adj_tbl_new.count
5310: LOOP
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER PRICE ADJUSTMENTS' ) ;
5313: END IF;
5314: IF l_header_adj_tbl_new(I).return_status IN (
5315: FND_API.G_RET_STS_ERROR,
5316: FND_API.G_RET_STS_UNEXP_ERROR)
5333: FND_API.G_MISS_CHAR);
5334: EXCEPTION
5335: WHEN OTHERS THEN
5336: IF l_debug_level > 0 THEN
5337: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5338: END IF;
5339: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5340: THEN
5341: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5350: BEGIN
5351: FOR I in 1..l_header_price_att_tbl_new.count
5352: LOOP
5353: IF l_debug_level > 0 THEN
5354: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER PRICE ATT' ) ;
5355: END IF;
5356: IF l_header_price_att_tbl_new(I).return_status IN (
5357: FND_API.G_RET_STS_ERROR,
5358: FND_API.G_RET_STS_UNEXP_ERROR)
5372: = nvl(l_request_id, FND_API.G_MISS_NUM);
5373: EXCEPTION
5374: WHEN OTHERS THEN
5375: IF l_debug_level > 0 THEN
5376: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5377: END IF;
5378: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5379: THEN
5380: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5387: BEGIN
5388: FOR I in 1..l_header_scredit_tbl_new.count
5389: LOOP
5390: IF l_debug_level > 0 THEN
5391: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER SALES CREDITS' ) ;
5392: END IF;
5393: IF l_header_scredit_tbl_new(I).return_status IN (
5394: FND_API.G_RET_STS_ERROR,
5395: FND_API.G_RET_STS_UNEXP_ERROR)
5412: FND_API.G_MISS_CHAR);
5413: EXCEPTION
5414: WHEN OTHERS THEN
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5417: END IF;
5418: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5419: THEN
5420: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5430: BEGIN
5431: FOR I in 1..l_header_payment_tbl_new.count
5432: LOOP
5433: IF l_debug_level > 0 THEN
5434: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER PAYMENTS' ) ;
5435: END IF;
5436: IF l_header_payment_tbl_new(I).return_status IN (
5437: FND_API.G_RET_STS_ERROR,
5438: FND_API.G_RET_STS_UNEXP_ERROR)
5451: FND_API.G_MISS_CHAR);
5452: EXCEPTION
5453: WHEN OTHERS THEN
5454: IF l_debug_level > 0 THEN
5455: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5456: END IF;
5457: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5458: THEN
5459: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5469: BEGIN
5470: FOR I in 1..l_line_tbl_new.count
5471: LOOP
5472: IF l_debug_level > 0 THEN
5473: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR LINES' ) ;
5474: END IF;
5475: IF l_line_tbl_new(I).return_status IN (
5476: FND_API.G_RET_STS_ERROR,
5477: FND_API.G_RET_STS_UNEXP_ERROR)
5495: = nvl(l_line_tbl_new(I).orig_sys_shipment_ref,FND_API.G_MISS_CHAR);
5496: EXCEPTION
5497: WHEN OTHERS THEN
5498: IF l_debug_level > 0 THEN
5499: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5500: END IF;
5501: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5502: THEN
5503: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5510: /*
5511: l_tbl_index := oe_msg_pub.g_msg_tbl.FIRST;
5512: LOOP
5513: IF l_debug_level > 0 THEN
5514: oe_debug_pub.add( 'L_TBL_INDEX = '||L_TBL_INDEX ) ;
5515: END IF;
5516: If oe_msg_pub.g_msg_tbl(l_tbl_index).entity_code = 'OI_INL_CUSTSUCC'
5517: Then
5518: IF l_debug_level > 0 THEN
5515: END IF;
5516: If oe_msg_pub.g_msg_tbl(l_tbl_index).entity_code = 'OI_INL_CUSTSUCC'
5517: Then
5518: IF l_debug_level > 0 THEN
5519: oe_debug_pub.add( 'BEFORE DELETING OI_INL_ADDCUST MSG' ) ;
5520: END IF;
5521: --oe_msg_pub.g_msg_tbl(l_tbl_index).message := Null;
5522: --oe_msg_pub.g_msg_tbl(l_tbl_index).message_text := Null;
5523: oe_msg_pub.Delete_Msg(p_msg_index => l_tbl_index);
5531: Set Return Status
5532: -----------------------------------------------------------
5533: */
5534: IF l_debug_level > 0 THEN
5535: oe_debug_pub.add( 'UPDATE ERROR_FLAG RETURN STATUS: '||L_RETURN_STATUS_UPD_ERR ) ;
5536: END IF;
5537:
5538: IF l_return_status_upd_err IN (FND_API.G_RET_STS_ERROR)
5539: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5551: IF l_return_status_upd_err NOT IN (FND_API.G_RET_STS_ERROR,
5552: FND_API.G_RET_STS_UNEXP_ERROR)
5553: THEN
5554: IF l_debug_level > 0 THEN
5555: oe_debug_pub.add( 'COMMITING' ) ;
5556: END IF;
5557: COMMIT; /* commit the error_flag updated */
5558: ELSE
5559: ROLLBACK; /* rollback the error_flag updated */
5570: OE_MSG_PUB.Count_And_Get (p_count => p_msg_count
5571: ,p_data => p_msg_data);
5572:
5573: IF l_debug_level > 0 THEN
5574: oe_debug_pub.add( 'MESSAGES RETURNED: '|| TO_CHAR ( P_MSG_COUNT ) ) ;
5575: END IF;
5576:
5577: IF p_msg_count > 0 THEN
5578:
5576:
5577: IF p_msg_count > 0 THEN
5578:
5579: IF l_debug_level > 0 THEN
5580: oe_debug_pub.add( 'BEFORE UPDATING THE PROCESSING MESSAGES TABLE' ) ;
5581: END IF;
5582: l_tbl_index := oe_msg_pub.g_msg_tbl.FIRST;
5583:
5584: LOOP
5582: l_tbl_index := oe_msg_pub.g_msg_tbl.FIRST;
5583:
5584: LOOP
5585: IF l_debug_level > 0 THEN
5586: oe_debug_pub.add( 'BEFORE CALLING GET' ) ;
5587: END IF;
5588: l_msg_order_source_id := '';
5589: l_msg_orig_sys_document_ref := '';
5590: l_msg_orig_sys_line_ref := '';
5595: l_msg_entity_code := '';
5596: l_msg_entity_ref := '';
5597:
5598: IF l_debug_level > 0 THEN
5599: oe_debug_pub.add( 'BEFORE CALLING GET_MSG_CONTEXT' ) ;
5600: END IF;
5601: oe_msg_pub.get_msg_context (
5602: p_msg_index => l_tbl_index
5603: ,x_entity_code => l_msg_entity_code
5620: ,x_type => l_msg_type
5621: );
5622:
5623: IF l_debug_level > 0 THEN
5624: oe_debug_pub.add( 'AFTER CALLING GET_MSG_CONTEXT' ) ;
5625: END IF;
5626: IF oe_msg_pub.g_msg_tbl(l_tbl_index).message_text IS NULL THEN
5627: IF l_debug_level > 0 THEN
5628: oe_debug_pub.add( 'IN INDEX.MESSAGE_TEXT IS NULL' ) ;
5624: oe_debug_pub.add( 'AFTER CALLING GET_MSG_CONTEXT' ) ;
5625: END IF;
5626: IF oe_msg_pub.g_msg_tbl(l_tbl_index).message_text IS NULL THEN
5627: IF l_debug_level > 0 THEN
5628: oe_debug_pub.add( 'IN INDEX.MESSAGE_TEXT IS NULL' ) ;
5629: END IF;
5630: p_msg_data := oe_msg_pub.get(l_tbl_index, 'F');
5631: END IF;
5632:
5679: END IF;
5680: l_msg_data := 'Msg-'||l_tbl_index||' for '||l_msg_context||': '||p_msg_data;
5681:
5682: IF l_debug_level > 0 THEN
5683: oe_debug_pub.add( L_MSG_DATA ) ;
5684: END IF;
5685: --bug 4195533
5686: IF p_return_status = FND_API.G_RET_STS_SUCCESS
5687: AND l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
5685: --bug 4195533
5686: IF p_return_status = FND_API.G_RET_STS_SUCCESS
5687: AND l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
5688: IF l_debug_level > 0 THEN
5689: oe_debug_pub.add( 'Header id updated in msg stack:' || l_header_rec.header_id ) ;
5690: END IF;
5691: oe_msg_pub.g_msg_tbl(l_tbl_index).header_id := l_header_rec.header_id;
5692: END IF;
5693: --bug 4195533
5701: Delete messages from the database table
5702: -----------------------------------------------------------
5703: */
5704: IF l_debug_level > 0 THEN
5705: oe_debug_pub.add( 'BEFORE DELETING OLD MESSAGES FROM THE DATABASE TABLE' ) ;
5706: END IF;
5707:
5708: /* Commmenting the call to delete message bug 2467558
5709:
5721: Set Return Status
5722: -----------------------------------------------------------
5723: */
5724: IF l_debug_level > 0 THEN
5725: oe_debug_pub.add( 'DELETE MESSAGES RETURN STATUS: '||L_RETURN_STATUS_DEL_MSG ) ;
5726: END IF;
5727:
5728: IF l_return_status_del_msg IN (FND_API.G_RET_STS_ERROR)
5729: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5739: Save messages in the database table
5740: -----------------------------------------------------------
5741: */
5742: IF l_debug_level > 0 THEN
5743: oe_debug_pub.add( 'BEFORE SAVING MESSAGES IN THE DATABASE TABLE' ) ;
5744: END IF;
5745:
5746: IF p_msg_count > 0 THEN
5747: OE_MSG_PUB.save_messages (l_request_id);
5766: Report final order processing results
5767: -----------------------------------------------------------
5768: */
5769: IF l_debug_level > 0 THEN
5770: oe_debug_pub.add( 'RETURN_STATUS: '||P_RETURN_STATUS ) ;
5771: END IF;
5772:
5773: IF p_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5771: END IF;
5772:
5773: IF p_return_status = FND_API.G_RET_STS_ERROR THEN
5774: IF l_debug_level > 0 THEN
5775: oe_debug_pub.add( 'ORDER FAILED WITH ERROR ( S ) ' ) ;
5776: END IF;
5777: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5778: IF l_debug_level > 0 THEN
5779: oe_debug_pub.add( 'ORDER FAILED WITH UNEXPECTED ERROR ( S ) ' ) ;
5775: oe_debug_pub.add( 'ORDER FAILED WITH ERROR ( S ) ' ) ;
5776: END IF;
5777: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5778: IF l_debug_level > 0 THEN
5779: oe_debug_pub.add( 'ORDER FAILED WITH UNEXPECTED ERROR ( S ) ' ) ;
5780: END IF;
5781: ELSE
5782: IF l_debug_level > 0 THEN
5783: oe_debug_pub.add( 'ORDER PROCESSED SUCCESSFULLY' ) ;
5779: oe_debug_pub.add( 'ORDER FAILED WITH UNEXPECTED ERROR ( S ) ' ) ;
5780: END IF;
5781: ELSE
5782: IF l_debug_level > 0 THEN
5783: oe_debug_pub.add( 'ORDER PROCESSED SUCCESSFULLY' ) ;
5784: END IF;
5785: END IF;
5786:
5787:
5791: -- {Start If for raising event for XML Trans
5792: If l_header_rec.order_source_id = Oe_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID Then
5793: OE_GLOBALS.G_XML_TXN_CODE := NULL;
5794: IF l_debug_level > 0 THEN
5795: oe_debug_pub.add( 'SET GLOBAL TXN CODE TO NULL' ) ;
5796: END IF;
5797:
5798: -- Check if Order is Imported
5799: -- Else Ack will have to be sent from the Inf tables.
5803: l_order_imported := 'Y';
5804: End If;
5805: -- raise the appropriate event
5806: IF l_debug_level > 0 THEN
5807: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5808:
5809: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5810: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5811: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5805: -- raise the appropriate event
5806: IF l_debug_level > 0 THEN
5807: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5808:
5809: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5810: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5811: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5812: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5813: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5806: IF l_debug_level > 0 THEN
5807: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5808:
5809: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5810: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5811: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5812: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5813: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5814: END IF;
5807: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5808:
5809: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5810: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5811: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5812: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5813: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5814: END IF;
5815:
5808:
5809: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5810: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5811: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5812: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5813: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5814: END IF;
5815:
5816: IF NOT (nvl(l_header_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR) = OE_Acknowledgment_Pub.G_TRANSACTION_CHO
5809: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5810: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5811: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5812: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5813: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5814: END IF;
5815:
5816: IF NOT (nvl(l_header_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR) = OE_Acknowledgment_Pub.G_TRANSACTION_CHO
5817: AND nvl(l_header_cso_response_flag, 'N') = 'Y'
5864: /*-----------------------------------------------------------
5865: End of Order Import
5866: -----------------------------------------------------------
5867: */
5868: --oe_debug_pub.add('End of Order Import');
5869:
5870:
5871: EXCEPTION
5872: WHEN OTHERS THEN
5870:
5871: EXCEPTION
5872: WHEN OTHERS THEN
5873: IF l_debug_level > 0 THEN
5874: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5875: END IF;
5876: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5877: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Import_Order');
5878: END IF;