[Home] [Help]
2005: ;
2006:
2007:
2008: --
2009: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2010: --
2011: BEGIN
2012:
2013:
2016: -----------------------------------------------------------
2017: */
2018: IF p_init_msg_list = FND_API.G_TRUE THEN
2019: IF l_debug_level > 0 THEN
2020: oe_debug_pub.add( 'BEFORE INITIALIZING MESSAGES LIST' ) ;
2021: END IF;
2022: OE_MSG_PUB.Initialize;
2023: END IF;
2024:
2026: Set message context
2027: -----------------------------------------------------------
2028: */
2029: IF l_debug_level > 0 THEN
2030: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT' ) ;
2031: oe_debug_pub.add('trim data = '||l_rtrim_data);
2032: END IF;
2033:
2034: OE_MSG_PUB.set_msg_context(
2027: -----------------------------------------------------------
2028: */
2029: IF l_debug_level > 0 THEN
2030: oe_debug_pub.add( 'BEFORE SETTING MESSAGE CONTEXT' ) ;
2031: oe_debug_pub.add('trim data = '||l_rtrim_data);
2032: END IF;
2033:
2034: OE_MSG_PUB.set_msg_context(
2035: p_entity_code => 'HEADER'
2053: Initialization
2054: -----------------------------------------------------------
2055: */
2056: IF l_debug_level > 0 THEN
2057: oe_debug_pub.add( 'BEFORE INITIALIZATION' ) ;
2058: END IF;
2059: begin
2060: select DECODE(p_validate_only,'Y','T','N','F',p_validate_only)
2061: into l_validate_only
2185: Headers
2186: -----------------------------------------------------------
2187: */
2188: IF l_debug_level > 0 THEN
2189: oe_debug_pub.add( 'BEFORE HEADERS LOOP' ) ;
2190: END IF;
2191:
2192: l_header_count := 0;
2193:
2488: l_header_rec.operation := 'CREATE';
2489: END IF;
2490:
2491: IF l_debug_level > 0 THEN
2492: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2493:
2494: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2495: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2490:
2491: IF l_debug_level > 0 THEN
2492: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2493:
2494: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2495: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2491: IF l_debug_level > 0 THEN
2492: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2493:
2494: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2495: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2499:
2492: oe_debug_pub.add( 'ORDER SOURCE ID: ' || L_ORDER_SOURCE_ID ) ;
2493:
2494: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2495: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2499:
2500: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2493:
2494: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2495: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2499:
2500: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2501: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2494: oe_debug_pub.add( 'ORIG SYS REFERENCE: '|| L_ORIG_SYS_DOCUMENT_REF ) ;
2495: oe_debug_pub.add( 'SOLD_TO_ORG passed in: ' || P_SOLD_TO_ORG ) ;
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2499:
2500: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2501: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2502:
2496: oe_debug_pub.add( 'SOLD_TO_ORG_ID passed in: ' || P_SOLD_TO_ORG_ID ) ;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2499:
2500: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2501: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2502:
2503:
2504: END IF;
2497: oe_debug_pub.add( 'SOLD_TO_ORG: from record' || L_SOLD_TO_ORG ) ;
2498: oe_debug_pub.add( 'SOLD_TO_ORG_ID: from record' || L_SOLD_TO_ORG_ID ) ;
2499:
2500: oe_debug_pub.add( 'CHANGE SEQUENCE: ' || L_CHANGE_SEQUENCE ) ;
2501: oe_debug_pub.add('sarita: booked flag: '|| l_header_rec.booked_flag);
2502:
2503:
2504: END IF;
2505:
2516: IF l_header_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2517: AND nvl(l_header_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
2518: OE_GLOBALS.G_XML_TXN_CODE := l_header_rec.xml_transaction_type_code;
2519: IF l_debug_level > 0 THEN
2520: oe_debug_pub.add( 'SET GLOBAL TXN CODE TO '||OE_GLOBALS.G_XML_TXN_CODE ) ;
2521: END IF;
2522: END IF;
2523:
2524: IF l_header_rec.order_source_id NOT IN (OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID,
2530: END IF;
2531:
2532: if l_sold_to_org_id = FND_API.G_MISS_NUM then
2533: IF l_debug_level > 0 THEN
2534: oe_debug_pub.add( 'header level sold to org id is g_miss_num, so it was not populated' ) ;
2535: END IF;
2536:
2537: if (l_sold_to_org IS NOT NULL) AND
2538: (l_sold_to_org <> FND_API.G_MISS_CHAR) THEN
2537: if (l_sold_to_org IS NOT NULL) AND
2538: (l_sold_to_org <> FND_API.G_MISS_CHAR) THEN
2539:
2540: IF l_debug_level > 0 THEN
2541: oe_debug_pub.add( 'sold to org is populated:' || l_sold_to_org) ;
2542: END IF;
2543:
2544: l_sold_to_org_id_tmp := OE_VALUE_TO_ID.sold_to_org(
2545: p_sold_to_org => l_sold_to_org,
2547:
2548: if (l_sold_to_org_id_tmp <> FND_API.G_MISS_NUM) AND
2549: (l_sold_to_org_id_tmp IS NOT NULL) THEN
2550: IF l_debug_level > 0 THEN
2551: oe_debug_pub.add( 'returned value for sold_to_org_id was ' || l_sold_to_org_id_tmp) ;
2552: END IF;
2553: l_header_rec.sold_to_org_id := l_sold_to_org_id_tmp;
2554: end if;
2555:
2564: -----------------------------------------------------------
2565: */
2566:
2567: IF l_debug_level > 0 THEN
2568: oe_debug_pub.add( 'BEFORE HEADER ADJUSTMENTS LOOP' ) ;
2569: END IF;
2570:
2571: l_header_adj_count := 0;
2572:
2655: --duplicate
2656: p_return_status := FND_API.G_RET_STS_ERROR;
2657: l_validate_only := FND_API.G_TRUE;
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_DISCOUNT_REF FOR THE SAME ORDER' ) ;
2660: END IF;
2661:
2662: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2663: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_discount_ref');
2670: l_header_adj_tbl (l_header_adj_count) := l_header_adj_rec;
2671: l_header_adj_val_tbl (l_header_adj_count) := l_header_adj_val_rec;
2672:
2673: IF l_debug_level > 0 THEN
2674: oe_debug_pub.add( 'HEADER ADJ REF ( '||L_HEADER_ADJ_COUNT||' ) : '|| L_HEADER_ADJ_TBL ( L_HEADER_ADJ_COUNT ) .ORIG_SYS_DISCOUNT_REF ) ;
2675: END IF;
2676:
2677: END LOOP;
2678: CLOSE l_header_adj_cursor;
2682: Header Price Attribs
2683: -----------------------------------------------------------
2684: */
2685: IF l_debug_level > 0 THEN
2686: oe_debug_pub.add( 'BEFORE HEADER ATTRIBS LOOP' ) ;
2687: END IF;
2688:
2689: l_header_att_count := 0;
2690:
2833: -- duplicate
2834: p_return_status := FND_API.G_RET_STS_ERROR;
2835: l_validate_only := FND_API.G_TRUE;
2836: IF l_debug_level > 0 THEN
2837: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_ATTS_REF FOR THE SAME ORDER' ) ;
2838: END IF;
2839: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2840: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_ats_ref');
2841: OE_MSG_PUB.Add;
2852: Header Sales Credits
2853: -----------------------------------------------------------
2854: */
2855: IF l_debug_level > 0 THEN
2856: oe_debug_pub.add( 'BEFORE HEADER SALES CREDITS LOOP' ) ;
2857: END IF;
2858:
2859: l_header_scredit_count := 0;
2860:
2900: --duplicate
2901: p_return_status := FND_API.G_RET_STS_ERROR;
2902: l_validate_only := FND_API.G_TRUE;
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_CREDIT_REF FORTHE SAME ORDER' ) ;
2905: END IF;
2906: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
2907: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_credit_ref');
2908: OE_MSG_PUB.Add;
2913: l_header_scredit_tbl (l_header_scredit_count) := l_header_scredit_rec;
2914: l_header_scredit_val_tbl (l_header_scredit_count) := l_header_scredit_val_rec;
2915:
2916: IF l_debug_level > 0 THEN
2917: oe_debug_pub.add( 'HEADER SALESCREDIT ( '|| L_HEADER_SCREDIT_COUNT||' ) : '|| L_HEADER_SCREDIT_TBL ( L_HEADER_SCREDIT_COUNT ) .ORIG_SYS_CREDIT_REF ) ;
2918: END IF;
2919:
2920: END LOOP;
2921: CLOSE l_header_scredit_cursor;
2924: Multiple Payments: Header PAYMENTs
2925: -----------------------------------------------------------
2926: */
2927: IF l_debug_level > 0 THEN
2928: oe_debug_pub.add( 'BEFORE HEADER PAYMENTS LOOP' ) ;
2929: END IF;
2930:
2931: l_header_payment_count := 0;
2932:
3001: --duplicate
3002:
3003: l_validate_only := FND_API.G_TRUE;
3004: IF l_debug_level > 0 THEN
3005: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_payment_REF FORTHE SAME ORDER' ) ;
3006: END IF;
3007: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3008: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_payment_ref');
3009: OE_MSG_PUB.Add;
3015: l_header_payment_tbl (l_header_payment_count) := l_header_payment_rec;
3016: l_header_payment_val_tbl (l_header_payment_count) := l_header_payment_val_rec;
3017:
3018: IF l_debug_level > 0 THEN
3019: oe_debug_pub.add( 'HEADER PAYMENT ( '|| L_HEADER_PAYMENT_COUNT||' ) : '|| L_HEADER_payment_TBL ( L_HEADER_payment_COUNT ) .ORIG_SYS_payment_REF ) ;
3020: END IF;
3021:
3022:
3023: END LOOP;
3084: l_action_request_rec.entity_code := OE_Globals.G_ENTITY_HEADER;
3085: --l_action_request_rec.entity_id := l_header_rec_new.header_id;
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
3089:
3090: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
3091:
3092: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
3089:
3090: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
3091:
3092: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
3093: END IF;
3094:
3088: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
3089:
3090: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
3091:
3092: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
3093: END IF;
3094:
3095: IF l_action_rec.operation_code = OE_Globals.G_APPLY_HOLD THEN
3096: l_action_request_rec.param1 := l_action_rec.hold_id;
3116: l_action_request_rec.param24 := l_action_rec.attribute14;
3117: l_action_request_rec.param25 := l_action_rec.attribute15;
3118:
3119: IF l_debug_level > 0 THEN
3120: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3121:
3122: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3123:
3124: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3118:
3119: IF l_debug_level > 0 THEN
3120: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3121:
3122: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3123:
3124: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3125:
3126: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3120: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3121:
3122: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3123:
3124: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3125:
3126: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3127: END IF;
3128:
3122: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3123:
3124: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3125:
3126: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3127: END IF;
3128:
3129: ELSIF l_action_rec.operation_code = OE_Globals.G_RELEASE_HOLD THEN
3130: l_action_request_rec.param1 := l_action_rec.hold_id;
3134: l_action_request_rec.param4 := l_action_rec.release_reason_code;
3135: l_action_request_rec.param5 := l_action_rec.comments;
3136:
3137: IF l_debug_level > 0 THEN
3138: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3139:
3140: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3141:
3142: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3136:
3137: IF l_debug_level > 0 THEN
3138: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3139:
3140: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3141:
3142: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3143:
3144: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3138: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
3139:
3140: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3141:
3142: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3143:
3144: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3145:
3146: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3140: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3141:
3142: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3143:
3144: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3145:
3146: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3147: END IF;
3148:
3142: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3143:
3144: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3145:
3146: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3147: END IF;
3148:
3149: --myerrams, introduced the following check for Customer Acceptance.
3150: ELSIF l_action_rec.operation_code = OE_Globals.G_ACCEPT_FULFILLMENT OR l_action_rec.operation_code = OE_Globals.G_REJECT_FULFILLMENT THEN
3167: OE_MSG_PUB.add;
3168: END IF;
3169:
3170: IF l_debug_level > 0 THEN
3171: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3172:
3173: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3174:
3175: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3169:
3170: IF l_debug_level > 0 THEN
3171: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3172:
3173: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3174:
3175: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3176:
3177: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3171: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
3172:
3173: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3174:
3175: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3176:
3177: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3178:
3179: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
3173: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
3174:
3175: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3176:
3177: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3178:
3179: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
3180: END IF;
3181: --myerrams, end
3175: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
3176:
3177: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
3178:
3179: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
3180: END IF;
3181: --myerrams, end
3182: END IF;
3183:
3191: Lines
3192: -----------------------------------------------------------
3193: */
3194: IF l_debug_level > 0 THEN
3195: oe_debug_pub.add( 'BEFORE LINES LOOP' ) ;
3196: END IF;
3197:
3198: l_line_count := 0;
3199:
3645: end if;
3646: ELSE
3647: BEGIN
3648: IF l_debug_level > 0 THEN
3649: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3650: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3651: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3652: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3653: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3646: ELSE
3647: BEGIN
3648: IF l_debug_level > 0 THEN
3649: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3650: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3651: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3652: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3653: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3654: END IF;
3647: BEGIN
3648: IF l_debug_level > 0 THEN
3649: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3650: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3651: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3652: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3653: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3654: END IF;
3655: IF l_line_rec.orig_sys_shipment_ref IS NULL or l_line_rec.orig_sys_shipment_ref = FND_API.G_MISS_CHAR then
3648: IF l_debug_level > 0 THEN
3649: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3650: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3651: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3652: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3653: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3654: END IF;
3655: IF l_line_rec.orig_sys_shipment_ref IS NULL or l_line_rec.orig_sys_shipment_ref = FND_API.G_MISS_CHAR then
3656: IF l_line_rec.calculate_price_flag IS NULL or l_line_rec.calculate_price_flag = FND_API.G_MISS_CHAR then
3649: oe_debug_pub.add( 'OPERATION CODE :'||l_line_rec.operation, 5);
3650: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3651: oe_debug_pub.add( 'UNIT SELLING PRICE'||l_line_rec.unit_selling_price, 5) ;
3652: oe_debug_pub.add( 'UNIT LIST PRICE'||l_line_rec.unit_list_price, 5) ;
3653: oe_debug_pub.add( 'ORIG_SYS_SHIPMENT_REF'||l_line_rec.orig_sys_shipment_ref, 5) ;
3654: END IF;
3655: IF l_line_rec.orig_sys_shipment_ref IS NULL or l_line_rec.orig_sys_shipment_ref = FND_API.G_MISS_CHAR then
3656: IF l_line_rec.calculate_price_flag IS NULL or l_line_rec.calculate_price_flag = FND_API.G_MISS_CHAR then
3657: --populate calculate_price_flag from lines table
3661: WHERE orig_sys_document_ref = l_line_rec.orig_sys_document_ref
3662: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref;
3663:
3664: IF l_debug_level > 0 THEN
3665: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3666: END IF;
3667:
3668: if l_line_rec.calculate_price_flag in ('P', 'N') then
3669:
3676: WHERE orig_sys_document_ref = l_line_rec.orig_sys_document_ref
3677: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref;
3678:
3679: IF l_debug_level > 0 THEN
3680: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3681: END IF;
3682:
3683: end if;
3684:
3695: WHERE orig_sys_document_ref = l_line_rec.orig_sys_document_ref
3696: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref;
3697:
3698: IF l_debug_level > 0 THEN
3699: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3700: END IF;
3701: end if;
3702: --//added to handle the case when user will populate CPF
3703: END IF;
3711: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref
3712: AND orig_sys_shipment_ref = l_line_rec.orig_sys_shipment_ref;
3713:
3714: IF l_debug_level > 0 THEN
3715: oe_debug_pub.add( 'CALCULATE PRICE FLAG'||l_line_rec.calculate_price_flag, 5) ;
3716: END IF;
3717:
3718: if l_line_rec.calculate_price_flag in ('P', 'N') then
3719:
3727: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref
3728: AND orig_sys_shipment_ref = l_line_rec.orig_sys_shipment_ref;
3729:
3730: IF l_debug_level > 0 THEN
3731: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3732: END IF;
3733:
3734: end if;
3735:
3747: AND orig_sys_line_ref = l_line_rec.orig_sys_line_ref
3748: AND orig_sys_shipment_ref = l_line_rec.orig_sys_shipment_ref;
3749:
3750: IF l_debug_level > 0 THEN
3751: oe_debug_pub.add( 'UNIT SELLING PRICE/UNIT LIST PRICE'||l_line_rec.unit_selling_price||'/'||l_line_rec.unit_list_price, 5);
3752: END IF;
3753:
3754: end if;
3755: --//added to handle the case when user will populate CPF
3757: END IF; --end of orig_sys_shipment_ref check
3758: EXCEPTION
3759: WHEN NO_DATA_FOUND THEN
3760: IF l_debug_level > 0 THEN
3761: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG/UNIT SELLING PRICE/UNIT LIST PRICE NOT FOUND', 5) ;
3762: END IF;
3763: WHEN TOO_MANY_ROWS THEN
3764: IF l_debug_level > 0 THEN
3765: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM) ;
3761: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG/UNIT SELLING PRICE/UNIT LIST PRICE NOT FOUND', 5) ;
3762: END IF;
3763: WHEN TOO_MANY_ROWS THEN
3764: IF l_debug_level > 0 THEN
3765: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM) ;
3766: END IF;
3767: WHEN OTHERS THEN
3768: IF l_debug_level > 0 THEN
3769: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3765: oe_debug_pub.add( 'TOO MANY ROWS ERROR: '||SQLERRM) ;
3766: END IF;
3767: WHEN OTHERS THEN
3768: IF l_debug_level > 0 THEN
3769: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
3770: END IF;
3771: END;
3772: END IF;
3773:
3780:
3781:
3782: if l_line_rec.sold_to_org_id = FND_API.G_MISS_NUM then
3783: IF l_debug_level > 0 THEN
3784: 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' ) ;
3785: END IF;
3786: l_line_rec.sold_to_org_id := l_header_rec.sold_to_org_id;
3787: end if;
3788:
3796: --duplicate
3797: p_return_status := FND_API.G_RET_STS_ERROR;
3798: l_validate_only := FND_API.G_TRUE;
3799: IF l_debug_level > 0 THEN
3800: oe_debug_pub.add( 'YOU ARE ENTERING EITHER A DUPLICATE ORIG_SYS_LINE_REF OR ORIG_SYS_SHIPMENT_REF FOR THE SAME ORDER' ) ;
3801: END IF;
3802: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3803: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_line_ref and orig_sys_shipment_ref');
3804: OE_MSG_PUB.Add;
3807: (G_IMPORT_SHIPMENTS = 'NO') THEN
3808: p_return_status := FND_API.G_RET_STS_ERROR;
3809: l_validate_only := FND_API.G_TRUE;
3810: IF l_debug_level > 0 THEN
3811: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_LINE_REF FOR THE SAME ORDER' ) ;
3812: END IF;
3813: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3814: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_line_ref');
3815: OE_MSG_PUB.Add;
3819: IF (l_line_rec.orig_sys_line_ref = l_line_tbl(l_line_count).orig_sys_line_ref) THEN
3820: p_return_status := FND_API.G_RET_STS_ERROR;
3821: l_validate_only := FND_API.G_TRUE;
3822: IF l_debug_level > 0 THEN
3823: oe_debug_pub.add( 'YOU ARE ENTERING A DUPLICATE ORIG_SYS_LINE_REF FOR THESAME ORDER' ) ;
3824: END IF;
3825: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
3826: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_line_ref');
3827: OE_MSG_PUB.Add;
3839: IF l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
3840: AND l_line_rec.xml_transaction_type_code = OE_Acknowledgment_Pub.G_TRANSACTION_CHO THEN
3841: l_line_rec.cso_response_flag := l_header_cso_response_flag;
3842: IF l_debug_level > 0 THEN
3843: oe_debug_pub.add( 'Populated line response flag with :' || l_header_cso_response_flag
3844: || 'for line ref : ' || l_line_rec.orig_sys_line_ref);
3845: END IF;
3846: END IF;
3847: END IF;
3848:
3849: l_line_count := l_line_count + 1;
3850: if l_line_rec.service_reference_order = FND_API.G_MISS_CHAR then
3851: IF l_debug_level > 0 THEN
3852: oe_debug_pub.add( 'L_LINE_REC.SERVICE_REFERENCE_ORDER ' || ASCII ( L_LINE_REC.SERVICE_REFERENCE_ORDER ) ) ;
3853: END IF;
3854: end if;
3855: if l_line_val_rec.sold_to_org = FND_API.G_MISS_CHAR then
3856: IF l_debug_level > 0 THEN
3853: END IF;
3854: end if;
3855: if l_line_val_rec.sold_to_org = FND_API.G_MISS_CHAR then
3856: IF l_debug_level > 0 THEN
3857: oe_debug_pub.add( 'L_LINE_VAL_REC.SOLD_TO_ORG ' || ASCII ( L_LINE_VAL_REC.SOLD_TO_ORG ) ) ;
3858: END IF;
3859: end if;
3860:
3861: --populate l_line_rec.inventory_item_id with ccid if any of the
3881: (l_segment_array(18) IS NOT NULL) OR
3882: (l_segment_array(19) IS NOT NULL) OR
3883: (l_segment_array(20) IS NOT NULL)) THEN
3884: IF l_debug_level > 0 THEN
3885: oe_debug_pub.add( 'INSIDE GET CCID ROUTINE' ) ;
3886: END IF;
3887: FND_FLEX_KEY_API.SET_SESSION_MODE('customer_data');
3888: IF l_debug_level > 0 THEN
3889: oe_debug_pub.add( 'AFTER CALL TO SET SESSION' ) ;
3885: oe_debug_pub.add( 'INSIDE GET CCID ROUTINE' ) ;
3886: END IF;
3887: FND_FLEX_KEY_API.SET_SESSION_MODE('customer_data');
3888: IF l_debug_level > 0 THEN
3889: oe_debug_pub.add( 'AFTER CALL TO SET SESSION' ) ;
3890: END IF;
3891: l_flexfield := FND_FLEX_KEY_API.FIND_FLEXFIELD('INV', 'MSTK');
3892: IF l_debug_level > 0 THEN
3893: oe_debug_pub.add( 'AFTER FIND FLEXFIELD' ) ;
3889: oe_debug_pub.add( 'AFTER CALL TO SET SESSION' ) ;
3890: END IF;
3891: l_flexfield := FND_FLEX_KEY_API.FIND_FLEXFIELD('INV', 'MSTK');
3892: IF l_debug_level > 0 THEN
3893: oe_debug_pub.add( 'AFTER FIND FLEXFIELD' ) ;
3894: END IF;
3895: l_structure.structure_number := 101;
3896: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
3897: IF l_debug_level > 0 THEN
3894: END IF;
3895: l_structure.structure_number := 101;
3896: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
3897: IF l_debug_level > 0 THEN
3898: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
3899:
3900: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3901:
3902: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3896: FND_FLEX_KEY_API.GET_SEGMENTS(l_flexfield, l_structure, TRUE, l_n_segments, l_segments);
3897: IF l_debug_level > 0 THEN
3898: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
3899:
3900: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3901:
3902: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3903:
3904: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
3898: oe_debug_pub.add( 'SEGMENTS ENABLED = '||L_N_SEGMENTS ) ;
3899:
3900: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3901:
3902: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3903:
3904: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
3905: END IF;
3906: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, l_validation_org) THEN
3900: oe_debug_pub.add( 'ORG_ID = '||L_LINE_REC.ORG_ID ) ;
3901:
3902: oe_debug_pub.add( 'VALIDATION_ORG_ID = '||L_VALIDATION_ORG ) ;
3903:
3904: oe_debug_pub.add( 'ARRAY1 = '||L_SEGMENT_ARRAY ( 1 ) ) ;
3905: END IF;
3906: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, l_validation_org) THEN
3907: l_line_rec.inventory_item_id := l_id;
3908: IF l_debug_level > 0 THEN
3905: END IF;
3906: IF FND_FLEX_EXT.GET_COMBINATION_ID('INV', 'MSTK', 101, SYSDATE, l_n_segments, l_segment_array, l_id, l_validation_org) THEN
3907: l_line_rec.inventory_item_id := l_id;
3908: IF l_debug_level > 0 THEN
3909: oe_debug_pub.add( 'GET CCID = '||L_LINE_REC.INVENTORY_ITEM_ID ) ;
3910: END IF;
3911: ELSE
3912: IF l_debug_level > 0 THEN
3913: oe_debug_pub.add( 'ERROR IN GETTING CCID' ) ;
3909: oe_debug_pub.add( 'GET CCID = '||L_LINE_REC.INVENTORY_ITEM_ID ) ;
3910: END IF;
3911: ELSE
3912: IF l_debug_level > 0 THEN
3913: oe_debug_pub.add( 'ERROR IN GETTING CCID' ) ;
3914: END IF;
3915: failure_message := fnd_flex_ext.get_message;
3916: OE_MSG_PUB.Add_TEXT(failure_message);
3917: p_return_status := FND_API.G_RET_STS_ERROR;
3916: OE_MSG_PUB.Add_TEXT(failure_message);
3917: p_return_status := FND_API.G_RET_STS_ERROR;
3918: l_validate_only := FND_API.G_TRUE;
3919: IF l_debug_level > 0 THEN
3920: oe_debug_pub.add('failure message = ' || substr ( failure_message , 1 , 50 ) ) ;
3921: oe_debug_pub.add('failure message = ' || substr ( failure_message , 51 , 50 ) ) ;
3922: oe_debug_pub.add('failure message = ' || substr ( failure_message , 101 , 50 ) ) ;
3923: END IF;
3924: END IF;
3917: p_return_status := FND_API.G_RET_STS_ERROR;
3918: l_validate_only := FND_API.G_TRUE;
3919: IF l_debug_level > 0 THEN
3920: oe_debug_pub.add('failure message = ' || substr ( failure_message , 1 , 50 ) ) ;
3921: oe_debug_pub.add('failure message = ' || substr ( failure_message , 51 , 50 ) ) ;
3922: oe_debug_pub.add('failure message = ' || substr ( failure_message , 101 , 50 ) ) ;
3923: END IF;
3924: END IF;
3925:
3918: l_validate_only := FND_API.G_TRUE;
3919: IF l_debug_level > 0 THEN
3920: oe_debug_pub.add('failure message = ' || substr ( failure_message , 1 , 50 ) ) ;
3921: oe_debug_pub.add('failure message = ' || substr ( failure_message , 51 , 50 ) ) ;
3922: oe_debug_pub.add('failure message = ' || substr ( failure_message , 101 , 50 ) ) ;
3923: END IF;
3924: END IF;
3925:
3926: ELSIF l_line_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
3944: (l_segment_array(18) IS NOT NULL) OR
3945: (l_segment_array(19) IS NOT NULL) OR
3946: (l_segment_array(20) IS NOT NULL)) THEN
3947: IF l_debug_level > 0 THEN
3948: oe_debug_pub.add( 'INSIDE ROUTINE WHERE BOTH ID AND SEG ARE POPULATED' ) ;
3949: END IF;
3950: l_line_rec.inventory_item_id := FND_API.G_MISS_NUM;
3951: FND_MESSAGE.SET_NAME('ONT','OE_OIM_INVALID_ITEM_ID');
3952: FND_MESSAGE.SET_TOKEN('ORDER_NO', l_orig_sys_document_ref);
3954: OE_MSG_PUB.Add;
3955: p_return_status := FND_API.G_RET_STS_ERROR;
3956: l_validate_only := FND_API.G_TRUE;
3957: IF l_debug_level > 0 THEN
3958: oe_debug_pub.add( 'CANNOT IMPORT ORDER AS BOTH INVENTORY_ITEM_ID AND INVENTORY_ITEM_SEGMENTS ARE POPULATED' ) ;
3959:
3960: oe_debug_pub.add( 'ORDER NO: '||L_ORIG_SYS_DOCUMENT_REF ) ;
3961:
3962: oe_debug_pub.add( 'ORDER SOURCE: '||L_ORDER_SOURCE_ID ) ;
3956: l_validate_only := FND_API.G_TRUE;
3957: IF l_debug_level > 0 THEN
3958: oe_debug_pub.add( 'CANNOT IMPORT ORDER AS BOTH INVENTORY_ITEM_ID AND INVENTORY_ITEM_SEGMENTS ARE POPULATED' ) ;
3959:
3960: oe_debug_pub.add( 'ORDER NO: '||L_ORIG_SYS_DOCUMENT_REF ) ;
3961:
3962: oe_debug_pub.add( 'ORDER SOURCE: '||L_ORDER_SOURCE_ID ) ;
3963: END IF;
3964:
3958: oe_debug_pub.add( 'CANNOT IMPORT ORDER AS BOTH INVENTORY_ITEM_ID AND INVENTORY_ITEM_SEGMENTS ARE POPULATED' ) ;
3959:
3960: oe_debug_pub.add( 'ORDER NO: '||L_ORIG_SYS_DOCUMENT_REF ) ;
3961:
3962: oe_debug_pub.add( 'ORDER SOURCE: '||L_ORDER_SOURCE_ID ) ;
3963: END IF;
3964:
3965: END IF;
3966:
3995: l_line_rec.fulfillment_set <> FND_API.G_MISS_CHAR) OR
3996: (l_line_rec.fulfillment_set_id IS NOT NULL AND
3997: l_line_rec.fulfillment_set_id <> FND_API.G_MISS_NUM)) AND
3998: OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
3999: oe_debug_pub.add('Ignoring : '|| l_line_rec.fulfillment_set, 1 ) ;
4000: l_line_rec.fulfillment_set := NULL;
4001: l_line_rec.fulfillment_set_id := NULL;
4002: FND_MESSAGE.Set_Name('ONT','ONT_FULSET_NAME_IGNORED');
4003: OE_MSG_PUB.Add;
4014: --End of the Add customer}
4015:
4016: if l_line_val_tbl(l_line_count).sold_to_org = FND_API.G_MISS_CHAR then
4017: IF l_debug_level > 0 THEN
4018: oe_debug_pub.add( 'L_LINE_TBL.SERVICE_REFERENCE_ORDER ' || ASCII ( L_LINE_TBL ( L_LINE_COUNT ) .SERVICE_REFERENCE_ORDER ) ) ;
4019:
4020: oe_debug_pub.add( 'L_LINE_VAL_TBL.SOLD_TO_ORG ' || ASCII ( L_LINE_VAL_TBL ( L_LINE_COUNT ) .SOLD_TO_ORG ) ) ;
4021: END IF;
4022: end if;
4016: if l_line_val_tbl(l_line_count).sold_to_org = FND_API.G_MISS_CHAR then
4017: IF l_debug_level > 0 THEN
4018: oe_debug_pub.add( 'L_LINE_TBL.SERVICE_REFERENCE_ORDER ' || ASCII ( L_LINE_TBL ( L_LINE_COUNT ) .SERVICE_REFERENCE_ORDER ) ) ;
4019:
4020: oe_debug_pub.add( 'L_LINE_VAL_TBL.SOLD_TO_ORG ' || ASCII ( L_LINE_VAL_TBL ( L_LINE_COUNT ) .SOLD_TO_ORG ) ) ;
4021: END IF;
4022: end if;
4023:
4024: l_orig_sys_line_ref := l_line_rec.orig_sys_line_ref;
4024: l_orig_sys_line_ref := l_line_rec.orig_sys_line_ref;
4025: l_orig_sys_shipment_ref := l_line_rec.orig_sys_shipment_ref;
4026:
4027: IF l_debug_level > 0 THEN
4028: oe_debug_pub.add( 'ORIG SYS LINE REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_LINE_REF ) ;
4029:
4030: oe_debug_pub.add( 'ORIG SYS SHIPMENT REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_SHIPMENT_REF ) ;
4031:
4032: /* -----------------------------------------------------------
4026:
4027: IF l_debug_level > 0 THEN
4028: oe_debug_pub.add( 'ORIG SYS LINE REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_LINE_REF ) ;
4029:
4030: oe_debug_pub.add( 'ORIG SYS SHIPMENT REF ( '||L_LINE_COUNT||' ) : '|| L_LINE_TBL ( L_LINE_COUNT ) .ORIG_SYS_SHIPMENT_REF ) ;
4031:
4032: /* -----------------------------------------------------------
4033: Line Discounts/Price adjustments
4034: -----------------------------------------------------------
4032: /* -----------------------------------------------------------
4033: Line Discounts/Price adjustments
4034: -----------------------------------------------------------
4035: */
4036: oe_debug_pub.add( 'BEFORE LINE ADJUSTMENTS LOOP' ) ;
4037: END IF;
4038:
4039: OPEN l_line_adj_cursor;
4040: LOOP
4122: l_line_adj_tbl (l_line_adj_count) := l_line_adj_rec;
4123: l_line_adj_val_tbl (l_line_adj_count) := l_line_adj_val_rec;
4124:
4125: IF l_debug_level > 0 THEN
4126: oe_debug_pub.add( 'LINE ADJUSTMENT REF ( '||L_LINE_ADJ_COUNT||' ) : '|| L_LINE_ADJ_TBL ( L_LINE_ADJ_COUNT ) .ORIG_SYS_DISCOUNT_REF ) ;
4127: END IF;
4128:
4129: END LOOP;
4130: CLOSE l_line_adj_cursor;
4134: Line Price attribs
4135: -----------------------------------------------------------
4136: */
4137: IF l_debug_level > 0 THEN
4138: oe_debug_pub.add( 'BEFORE LINE ATTRIBS LOOP' ) ;
4139: END IF;
4140:
4141: OPEN l_line_attrib_cursor;
4142: LOOP
4290: (l_line_rec.orig_sys_line_ref = l_line_tbl(l_line_count).orig_sys_line_ref ) THEN
4291: --duplicate
4292: p_return_status := FND_API.G_RET_STS_ERROR;
4293: l_validate_only := FND_API.G_TRUE;
4294: oe_debug_pub.add('You are entering a duplicate orig_sys_att_refat the line level for the same order');
4295: FND_MESSAGE.SET_NAME('ONT','OE_OI_DUPLICATE_REF');
4296: FND_MESSAGE.SET_TOKEN('DUPLICATE_REF','orig_sys_price_att_ref');
4297: OE_MSG_PUB.Add;
4298: END IF;
4299: END IF;
4300: */
4301: l_line_att_count := l_line_att_count+1;
4302: l_line_price_att_tbl (l_line_att_count):=l_line_price_att_rec;
4303: -- oe_debug_pub.add('Line Price ATT ('||l_line_att_count||'):'||l_line_price_att_tbl(l_line_att_count).orig_sys_line_ref);
4304:
4305: END LOOP;
4306: CLOSE l_line_attrib_cursor;
4307:
4309: Line Sales Credits
4310: -----------------------------------------------------------
4311: */
4312: IF l_debug_level > 0 THEN
4313: oe_debug_pub.add( 'BEFORE LINE SALES CREDITS LOOP' ) ;
4314: END IF;
4315:
4316: OPEN l_line_scredit_cursor;
4317: LOOP
4356: l_line_scredit_tbl (l_line_scredit_count) := l_line_scredit_rec;
4357: l_line_scredit_val_tbl (l_line_scredit_count) := l_line_scredit_val_rec;
4358:
4359: IF l_debug_level > 0 THEN
4360: oe_debug_pub.add( 'LINE SALESCREDITS REF ( '||L_LINE_SCREDIT_COUNT||' ) : '|| L_LINE_SCREDIT_TBL ( L_LINE_SCREDIT_COUNT ) .ORIG_SYS_CREDIT_REF ) ;
4361: END IF;
4362:
4363: END LOOP;
4364: CLOSE l_line_scredit_cursor;
4368: Multiple Payments: Line Payments
4369: -----------------------------------------------------------
4370: */
4371: IF l_debug_level > 0 THEN
4372: oe_debug_pub.add( 'BEFORE LINE PAYMENTS LOOP' ) ;
4373: END IF;
4374:
4375: --l_line_payment_count := 0; Commented for the Bug3419970
4376:
4446: l_line_payment_tbl (l_line_payment_count) := l_line_payment_rec;
4447: l_line_payment_val_tbl (l_line_payment_count) := l_line_payment_val_rec;
4448:
4449: IF l_debug_level > 0 THEN
4450: oe_debug_pub.add( 'LINE PAYMENT REF ( '||L_LINE_payment_COUNT||' ) : '|| L_LINE_payment_TBL ( L_LINE_payment_COUNT ) .ORIG_SYS_PAYMENT_REF ) ;
4451: END IF;
4452:
4453: END LOOP;
4454: CLOSE l_line_payment_cursor;
4458: Line Lot Serials
4459: -----------------------------------------------------------
4460: */
4461: IF l_debug_level > 0 THEN
4462: oe_debug_pub.add( 'BEFORE LINE LOT SERIALS LOOP' ) ;
4463: END IF;
4464:
4465: OPEN l_lot_serial_cursor;
4466: LOOP
4503: l_lot_serial_count := l_lot_serial_count + 1;
4504: l_lot_serial_tbl (l_lot_serial_count) := l_lot_serial_rec;
4505:
4506: IF l_debug_level > 0 THEN
4507: oe_debug_pub.add( 'LINE LOT SERIAL REF ( '||L_LOT_SERIAL_COUNT||' ) : '|| L_LOT_SERIAL_TBL ( L_LOT_SERIAL_COUNT ) .ORIG_SYS_LOTSERIAL_REF ) ;
4508: END IF;
4509:
4510: END LOOP;
4511: CLOSE l_lot_serial_cursor;
4515: Line Reservation Details
4516: -----------------------------------------------------------
4517: */
4518: IF l_debug_level > 0 THEN
4519: oe_debug_pub.add( 'BEFORE LINE RESERVATIONS LOOP' ) ;
4520: END IF;
4521:
4522: OPEN l_reservation_cursor;
4523: LOOP
4561: l_reservation_tbl (l_reservation_count) := l_reservation_rec;
4562: l_reservation_val_tbl (l_reservation_count) := l_reservation_val_rec;
4563:
4564: IF l_debug_level > 0 THEN
4565: oe_debug_pub.add( 'LINE RESERVATION REF ( '||L_RESERVATION_COUNT||' ) : '|| L_RESERVATION_TBL ( L_RESERVATION_COUNT ) .ORIG_SYS_RESERVATION_REF ) ;
4566: END IF;
4567:
4568: END LOOP;
4569: CLOSE l_reservation_cursor;
4631: l_action_request_rec.entity_code := OE_Globals.G_ENTITY_LINE;
4632: l_action_request_rec.entity_index := l_line_count;
4633:
4634: IF l_debug_level > 0 THEN
4635: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
4636:
4637: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
4638:
4639: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
4633:
4634: IF l_debug_level > 0 THEN
4635: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
4636:
4637: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
4638:
4639: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
4640: END IF;
4641:
4635: oe_debug_pub.add( 'ACTION CODE: '|| L_ACTION_REQUEST_REC.REQUEST_TYPE , 1 ) ;
4636:
4637: oe_debug_pub.add( 'ENTITY CODE: '|| L_ACTION_REQUEST_REC.ENTITY_CODE , 1 ) ;
4638:
4639: oe_debug_pub.add( 'ENTITY ID : '|| L_ACTION_REQUEST_REC.ENTITY_ID , 1 ) ;
4640: END IF;
4641:
4642: IF l_action_rec.operation_code = OE_Globals.G_APPLY_HOLD THEN
4643: l_action_request_rec.param1 := l_action_rec.hold_id;
4663: l_action_request_rec.param24 := l_action_rec.attribute14;
4664: l_action_request_rec.param25 := l_action_rec.attribute15;
4665:
4666: IF l_debug_level > 0 THEN
4667: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4668:
4669: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4670:
4671: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4665:
4666: IF l_debug_level > 0 THEN
4667: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4668:
4669: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4670:
4671: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4672:
4673: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4667: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4668:
4669: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4670:
4671: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4672:
4673: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4674: END IF;
4675:
4669: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4670:
4671: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4672:
4673: oe_debug_pub.add( 'PARAM4/HOLD_CMNTS: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4674: END IF;
4675:
4676: ELSIF l_action_rec.operation_code = OE_Globals.G_RELEASE_HOLD THEN
4677: l_action_request_rec.param1 := l_action_rec.hold_id;
4681: l_action_request_rec.param4 := l_action_rec.release_reason_code;
4682: l_action_request_rec.param5 := l_action_rec.comments;
4683:
4684: IF l_debug_level > 0 THEN
4685: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4686:
4687: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4688:
4689: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4683:
4684: IF l_debug_level > 0 THEN
4685: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4686:
4687: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4688:
4689: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4690:
4691: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4685: oe_debug_pub.add( 'PARAM1/HOLD_ID: ' || L_ACTION_REQUEST_REC.PARAM1 , 1 ) ;
4686:
4687: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4688:
4689: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4690:
4691: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4692:
4693: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4687: oe_debug_pub.add( 'PARAM2/HOLD_ENT_CD: '|| L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4688:
4689: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4690:
4691: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4692:
4693: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4694: END IF;
4695:
4689: oe_debug_pub.add( 'PARAM3/HOLD_ENT_ID: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4690:
4691: oe_debug_pub.add( 'PARAM4/REL_REASON: ' || L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4692:
4693: oe_debug_pub.add( 'PARAM5/REL_COMMNTS: '|| L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4694: END IF;
4695:
4696: --myerrams, introduced the following check for Customer Acceptance.
4697: ELSIF l_action_rec.operation_code = OE_Globals.G_ACCEPT_FULFILLMENT OR l_action_rec.operation_code = OE_Globals.G_REJECT_FULFILLMENT THEN
4715: FND_MESSAGE.Set_Name('ONT', 'ONT_CUST_ACC_DISABLED');
4716: OE_MSG_PUB.add;
4717: END IF;
4718: IF l_debug_level > 0 THEN
4719: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4720:
4721: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4722:
4723: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4717: END IF;
4718: IF l_debug_level > 0 THEN
4719: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4720:
4721: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4722:
4723: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4724:
4725: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4719: oe_debug_pub.add( 'PARAM2/CUSTOMER_COMMENTS: ' || L_ACTION_REQUEST_REC.PARAM2 , 1 ) ;
4720:
4721: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4722:
4723: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4724:
4725: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4726:
4727: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
4721: oe_debug_pub.add( 'PARAM3/CUSTOMER_SIGNATURE: '|| L_ACTION_REQUEST_REC.PARAM3 , 1 ) ;
4722:
4723: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4724:
4725: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4726:
4727: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
4728: END IF;
4729: --myerrams, end
4723: oe_debug_pub.add( 'PARAM4/REFERENCE_DOCUMENT: '|| L_ACTION_REQUEST_REC.PARAM4 , 1 ) ;
4724:
4725: oe_debug_pub.add( 'PARAM5/IMPLICIT ACCEPTANCE FLAG: ' || L_ACTION_REQUEST_REC.PARAM5 , 1 ) ;
4726:
4727: oe_debug_pub.add( 'DATE_PARAM1/SIGNATURE_DATE: '|| L_ACTION_REQUEST_REC.DATE_PARAM1 , 1 ) ;
4728: END IF;
4729: --myerrams, end
4730: END IF;
4731:
4734:
4735: END LOOP;
4736: CLOSE l_action_request_line_cursor;
4737: IF l_debug_level > 0 THEN
4738: oe_debug_pub.add( 'LINES L_ACTION_REQUEST_COUNT : '||L_ACTION_REQUEST_COUNT ) ;
4739: END IF;
4740:
4741: END LOOP; /* Lines cursor */
4742: CLOSE l_line_cursor;
4745: Action Requests header
4746: -----------------------------------------------------------
4747: */
4748: IF l_debug_level > 0 THEN
4749: oe_debug_pub.add( 'BEFORE ACTION REQUEST HEADER LOOP' ) ;
4750: END IF;
4751:
4752: --l_action_request_count := 0;
4753:
4756: Call Order Import Pre-Process
4757: -----------------------------------------------------------
4758: */
4759: IF l_debug_level > 0 THEN
4760: oe_debug_pub.add( 'BEFORE CALLING ORDERIMPORT PRE-PROCESS' ) ;
4761: END IF;
4762:
4763:
4764: OE_ORDER_IMPORT_SPECIFIC_PVT.Pre_Process(
4803: Set Return Status
4804: -----------------------------------------------------------
4805: */
4806: IF l_debug_level > 0 THEN
4807: oe_debug_pub.add( 'PRE-PROCESS RETURN STATUS: '||L_RETURN_STATUS_OI_PRE ) ;
4808: END IF;
4809:
4810: IF l_return_status_oi_pre IN (FND_API.G_RET_STS_ERROR)
4811: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR,
4818: END IF;
4819:
4820: -- aksingh
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'P_RETURN_STATUS AFTER PRE-PROCESS : '|| P_RETURN_STATUS ) ;
4823:
4824: /* -----------------------------------------------------------
4825: Set control flags for Process_Order
4826: -----------------------------------------------------------
4824: /* -----------------------------------------------------------
4825: Set control flags for Process_Order
4826: -----------------------------------------------------------
4827: */
4828: oe_debug_pub.add( 'BEFORE SETTING UP CONTROL FLAGS' ) ;
4829: END IF;
4830:
4831: l_init_msg_list := FND_API.G_FALSE;
4832:
4837: */
4838: IF l_return_status_oi_pre <> FND_API.G_RET_STS_SUCCESS THEN
4839: -- aksingh
4840: IF l_debug_level > 0 THEN
4841: oe_debug_pub.add( 'PRE-PROCESS FAILED SETTTING L_VALIDATE_ONLY TO TRUE' ) ;
4842: END IF;
4843: l_validate_only := FND_API.G_TRUE;
4844: END IF;
4845:
4849: */
4850: IF l_validate_only = FND_API.G_TRUE THEN
4851: -- aksingh
4852: IF l_debug_level > 0 THEN
4853: oe_debug_pub.add( 'SETTTING L_API_SERVICE_LEVEL TO VALIDATE_ONLY' ) ;
4854: END IF;
4855: l_api_service_level := OE_GLOBALS.G_VALIDATION_ONLY;
4856: -- Following is added to fix the bug# 1267887
4857: -- It will allow the processing of all the line if API is called in
4879: Call Process_Order
4880: -----------------------------------------------------------
4881: */
4882: IF l_debug_level > 0 THEN
4883: oe_debug_pub.add( 'BEFORE CALLING PROCESS_ORDER' ) ;
4884:
4885: oe_debug_pub.add( 'BEFORE L_HEADER.OPERATION ' || L_HEADER_REC.OPERATION ) ;
4886: oe_debug_pub.add('trim data = '||l_rtrim_data);
4887: END IF;
4881: */
4882: IF l_debug_level > 0 THEN
4883: oe_debug_pub.add( 'BEFORE CALLING PROCESS_ORDER' ) ;
4884:
4885: oe_debug_pub.add( 'BEFORE L_HEADER.OPERATION ' || L_HEADER_REC.OPERATION ) ;
4886: oe_debug_pub.add('trim data = '||l_rtrim_data);
4887: END IF;
4888:
4889: If l_action_request_tbl.count > 0 then
4882: IF l_debug_level > 0 THEN
4883: oe_debug_pub.add( 'BEFORE CALLING PROCESS_ORDER' ) ;
4884:
4885: oe_debug_pub.add( 'BEFORE L_HEADER.OPERATION ' || L_HEADER_REC.OPERATION ) ;
4886: oe_debug_pub.add('trim data = '||l_rtrim_data);
4887: END IF;
4888:
4889: If l_action_request_tbl.count > 0 then
4890: oe_debug_pub.add('action table count = '|| l_action_request_tbl.count);
4886: oe_debug_pub.add('trim data = '||l_rtrim_data);
4887: END IF;
4888:
4889: If l_action_request_tbl.count > 0 then
4890: oe_debug_pub.add('action table count = '|| l_action_request_tbl.count);
4891: l_action_request_tbl_old := l_action_request_tbl;
4892: oe_debug_pub.add('action table old count = '|| l_action_request_tbl_old.count);
4893:
4894: End If;
4888:
4889: If l_action_request_tbl.count > 0 then
4890: oe_debug_pub.add('action table count = '|| l_action_request_tbl.count);
4891: l_action_request_tbl_old := l_action_request_tbl;
4892: oe_debug_pub.add('action table old count = '|| l_action_request_tbl_old.count);
4893:
4894: End If;
4895:
4896: OE_GLOBALS.G_FAIL_ORDER_IMPORT := FALSE; /* Bug # 4036765 */
4995: -- Right now call to the process order is commented down
4996: -- will be removed later
4997:
4998: IF l_debug_level > 0 THEN
4999: oe_debug_pub.add( 'PROCESS_ORDER RETURN STATUS BEFORE ACTION : '||L_RETURN_STATUS_PO , 1 ) ;
5000: END IF;
5001:
5002: /* Bug # 4036765 */
5003: IF OE_GLOBALS.G_FAIL_ORDER_IMPORT THEN
5001:
5002: /* Bug # 4036765 */
5003: IF OE_GLOBALS.G_FAIL_ORDER_IMPORT THEN
5004: IF l_debug_level > 0 THEN
5005: oe_debug_pub.add( 'G_FAIL_ORDER_IMPORT WAS SET TO TRUE. SETTING PROCESS_ORDER RETURN STATUS TO FAILURE' , 1 ) ;
5006: END IF;
5007: l_return_status_po := FND_API.G_RET_STS_ERROR;
5008: END IF;
5009:
5009:
5010: IF l_return_status_po IN (FND_API.G_RET_STS_ERROR,
5011: FND_API.G_RET_STS_UNEXP_ERROR) THEN
5012: IF l_debug_level > 0 THEN
5013: oe_debug_pub.add( 'PROCESS ORDER FAILED. NO NEED TO CALL FOR ACTIONS' , 1 ) ;
5014: END IF;
5015: ELSE --{
5016: l_header_rec := OE_Order_Pub.G_MISS_HEADER_REC;
5017: l_header_rec := l_header_rec_new;
5022: If l_action_request_tbl(i).return_status <>
5023: FND_API.G_RET_STS_SUCCESS
5024: Then
5025: IF l_debug_level > 0 THEN
5026: oe_debug_pub.add( 'FAILED TO PERFORM ACTION REQUEST ' || L_ACTION_REQUEST_TBL ( I ) .REQUEST_TYPE , 1 ) ;
5027: END IF;
5028: fnd_file.put_line(FND_FILE.OUTPUT,
5029: 'Failed to perform Action Request ' ||
5030: l_action_request_tbl(i).request_type);
5031: End If;
5032: End Loop;
5033:
5034: IF l_debug_level > 0 THEN
5035: oe_debug_pub.add( 'AFTER CALLING PROCESS_ORDER' , 3 ) ;
5036:
5037: /* -----------------------------------------------------------
5038: Set Return Status
5039: -----------------------------------------------------------
5037: /* -----------------------------------------------------------
5038: Set Return Status
5039: -----------------------------------------------------------
5040: */
5041: oe_debug_pub.add( 'PROCESS_ORDER RETURN STATUS: '||L_RETURN_STATUS_PO , 3 ) ;
5042: END IF;
5043:
5044: IF l_return_status_po IN (FND_API.G_RET_STS_ERROR)
5045: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR,
5053:
5054:
5055: -- aksingh
5056: IF l_debug_level > 0 THEN
5057: oe_debug_pub.add( 'P_RETURN_STATUS '||P_RETURN_STATUS , 3 ) ;
5058: END IF;
5059:
5060: /* -----------------------------------------------------------
5061: Check Process_Order Results
5063: */
5064: IF p_msg_count = 0 THEN
5065: IF l_return_status_po = FND_API.G_RET_STS_ERROR THEN
5066: IF l_debug_level > 0 THEN
5067: oe_debug_pub.add( 'PROCESS ORDER FAILED WITH ERRORS BUT RETURNED NO MESSAGE' ) ;
5068: END IF;
5069: FND_MESSAGE.SET_NAME('ONT','OE_OI_PO_ERROR');
5070: OE_MSG_PUB.Add;
5071: ELSIF l_return_status_po = FND_API.G_RET_STS_UNEXP_ERROR THEN
5069: FND_MESSAGE.SET_NAME('ONT','OE_OI_PO_ERROR');
5070: OE_MSG_PUB.Add;
5071: ELSIF l_return_status_po = FND_API.G_RET_STS_UNEXP_ERROR THEN
5072: IF l_debug_level > 0 THEN
5073: oe_debug_pub.add( 'PROCESS ORDER FAILED WITH UNEXPECTED ERRORS BUT RETURNED NO MESSAGE... ' ) ;
5074: END IF;
5075: FND_MESSAGE.SET_NAME('ONT','OE_OI_PO_UNEXP_ERROR');
5076: OE_MSG_PUB.Add;
5077: END IF;
5080: IF l_header_rec.operation IN ('INSERT', 'CREATE') AND
5081: l_return_status_po = FND_API.G_RET_STS_SUCCESS
5082: THEN
5083: IF l_debug_level > 0 THEN
5084: oe_debug_pub.add( 'HEADER ID GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.HEADER_ID ) ) ;
5085:
5086: oe_debug_pub.add( 'ORDER NUMBER GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.ORDER_NUMBER ) ) ;
5087: END IF;
5088: END IF;
5082: THEN
5083: IF l_debug_level > 0 THEN
5084: oe_debug_pub.add( 'HEADER ID GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.HEADER_ID ) ) ;
5085:
5086: oe_debug_pub.add( 'ORDER NUMBER GENERATED: '|| TO_CHAR ( L_HEADER_REC_NEW.ORDER_NUMBER ) ) ;
5087: END IF;
5088: END IF;
5089:
5090:
5093: -----------------------------------------------------------
5094: */
5095: IF l_return_status_po = FND_API.G_RET_STS_SUCCESS THEN
5096: IF l_debug_level > 0 THEN
5097: oe_debug_pub.add( 'BEFORE CALLING ORDERIMPORT POST-PROCESS' ) ;
5098: END IF;
5099:
5100: OE_ORDER_IMPORT_SPECIFIC_PVT.Post_Process(
5101: p_x_header_rec => l_header_rec_new
5149: Set Return Status
5150: -----------------------------------------------------------
5151: */
5152: IF l_debug_level > 0 THEN
5153: oe_debug_pub.add( 'POST-PROCESS RETURN STATUS: '||L_RETURN_STATUS_OI_PST ) ;
5154: END IF;
5155:
5156: IF l_return_status_oi_pst IN (FND_API.G_RET_STS_ERROR)
5157: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR,
5172: -----------------------------------------------------------
5173: */
5174: -- aksingh
5175: IF l_debug_level > 0 THEN
5176: oe_debug_pub.add('l_validate_only '||l_validate_only ) ;
5177: oe_debug_pub.add('p_return_status '||p_return_status ) ;
5178: END IF;
5179:
5180: -- aksingh IF p_validate_only = FND_API.G_FALSE AND
5173: */
5174: -- aksingh
5175: IF l_debug_level > 0 THEN
5176: oe_debug_pub.add('l_validate_only '||l_validate_only ) ;
5177: oe_debug_pub.add('p_return_status '||p_return_status ) ;
5178: END IF;
5179:
5180: -- aksingh IF p_validate_only = FND_API.G_FALSE AND
5181: IF l_validate_only = FND_API.G_FALSE AND
5186: l_delete_flag := 'N';
5187: END IF;
5188:
5189: IF l_debug_level > 0 THEN
5190: oe_debug_pub.add( 'DELETE FLAG '||L_DELETE_FLAG ) ;
5191: END IF;
5192:
5193: IF l_delete_flag = 'Y' THEN
5194:
5192:
5193: IF l_delete_flag = 'Y' THEN
5194:
5195: IF l_debug_level > 0 THEN
5196: oe_debug_pub.add( 'BEFORE DELETING ORDER FROM INTERFACE TABLES' ) ;
5197: END IF;
5198:
5199: OE_ORDER_IMPORT_UTIL_PVT.Delete_Order (
5200: p_request_id => l_request_id,
5207: );
5208:
5209:
5210: IF l_debug_level > 0 THEN
5211: oe_debug_pub.add( 'BEFORE CALLING DELETE OF CUSTOMER INFO' ) ;
5212: END IF;
5213: OE_INLINE_CUSTOMER_PUB.Delete_Customer_Info(
5214: p_header_customer_rec => l_header_customer_rec,
5215: p_line_customer_tbl => l_line_customer_tbl
5214: p_header_customer_rec => l_header_customer_rec,
5215: p_line_customer_tbl => l_line_customer_tbl
5216: );
5217: IF l_debug_level > 0 THEN
5218: oe_debug_pub.add( 'AFTER CALLING DELETE OF CUSTOMER INFO' ) ;
5219:
5220:
5221: /* -----------------------------------------------------------
5222: Set Return Status
5221: /* -----------------------------------------------------------
5222: Set Return Status
5223: -----------------------------------------------------------
5224: */
5225: oe_debug_pub.add( 'DELETE ORDER RETURN STATUS: '||L_RETURN_STATUS_DEL_ORD ) ;
5226: END IF;
5227:
5228: IF l_return_status_del_ord IN (FND_API.G_RET_STS_ERROR)
5229: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5241: Commit or rollback the transaction
5242: -----------------------------------------------------------
5243: */
5244: IF l_debug_level > 0 THEN
5245: oe_debug_pub.add( 'BEFORE COMMIT OR ROLLBACK' ) ;
5246: END IF;
5247:
5248: IF l_validate_only = FND_API.G_TRUE
5249: OR p_return_status in (FND_API.G_RET_STS_ERROR, -- E:Expected error
5254: l_commit_flag := 'Y';
5255: END IF;
5256:
5257: IF l_debug_level > 0 THEN
5258: oe_debug_pub.add( 'COMMIT FLAG '||L_COMMIT_FLAG ) ;
5259: END IF;
5260:
5261: IF l_commit_flag = 'Y' THEN
5262: COMMIT;
5268: BEGIN
5269: SAVEPOINT VERIFY_PAYMENT;
5270:
5271: if l_debug_level > 5 then
5272: oe_debug_pub.add('Calling Verify Payment from Order Import, after committing data', 5);
5273: end if;
5274: OE_Verify_Payment_PUB.Verify_Payment
5275: ( p_header_id => l_header_rec_new.header_id
5276: , p_calling_action => 'BOOKING'
5282: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5283: END;
5284:
5285: if l_debug_level > 0 then
5286: oe_debug_pub.add('After Verify Payment from Order Import Status : ' || l_return_status, 5);
5287: end if;
5288:
5289: IF l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5290: ROLLBACK TO SAVEPOINT VERIFY_PAYMENT;
5308: THEN
5309: BEGIN
5310: BEGIN
5311: IF l_debug_level > 0 THEN
5312: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER' ) ;
5313: END IF;
5314:
5315: UPDATE oe_headers_interface
5316: SET error_flag = 'Y', xml_message_id = nvl(xml_message_id, l_header_rec.xml_message_id)
5326: = nvl(l_request_id, FND_API.G_MISS_NUM);
5327: EXCEPTION
5328: WHEN OTHERS THEN
5329: IF l_debug_level > 0 THEN
5330: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5331: END IF;
5332: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5333: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5334: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Import_Order');
5339: BEGIN
5340: FOR I in 1..l_header_adj_tbl_new.count
5341: LOOP
5342: IF l_debug_level > 0 THEN
5343: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER PRICE ADJUSTMENTS' ) ;
5344: END IF;
5345: IF l_header_adj_tbl_new(I).return_status IN (
5346: FND_API.G_RET_STS_ERROR,
5347: FND_API.G_RET_STS_UNEXP_ERROR)
5364: FND_API.G_MISS_CHAR);
5365: EXCEPTION
5366: WHEN OTHERS THEN
5367: IF l_debug_level > 0 THEN
5368: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5369: END IF;
5370: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5371: THEN
5372: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5381: BEGIN
5382: FOR I in 1..l_header_price_att_tbl_new.count
5383: LOOP
5384: IF l_debug_level > 0 THEN
5385: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER PRICE ATT' ) ;
5386: END IF;
5387: IF l_header_price_att_tbl_new(I).return_status IN (
5388: FND_API.G_RET_STS_ERROR,
5389: FND_API.G_RET_STS_UNEXP_ERROR)
5403: = nvl(l_request_id, FND_API.G_MISS_NUM);
5404: EXCEPTION
5405: WHEN OTHERS THEN
5406: IF l_debug_level > 0 THEN
5407: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5408: END IF;
5409: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5410: THEN
5411: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5418: BEGIN
5419: FOR I in 1..l_header_scredit_tbl_new.count
5420: LOOP
5421: IF l_debug_level > 0 THEN
5422: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER SALES CREDITS' ) ;
5423: END IF;
5424: IF l_header_scredit_tbl_new(I).return_status IN (
5425: FND_API.G_RET_STS_ERROR,
5426: FND_API.G_RET_STS_UNEXP_ERROR)
5443: FND_API.G_MISS_CHAR);
5444: EXCEPTION
5445: WHEN OTHERS THEN
5446: IF l_debug_level > 0 THEN
5447: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5448: END IF;
5449: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5450: THEN
5451: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5461: BEGIN
5462: FOR I in 1..l_header_payment_tbl_new.count
5463: LOOP
5464: IF l_debug_level > 0 THEN
5465: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR HEADER PAYMENTS' ) ;
5466: END IF;
5467: IF l_header_payment_tbl_new(I).return_status IN (
5468: FND_API.G_RET_STS_ERROR,
5469: FND_API.G_RET_STS_UNEXP_ERROR)
5482: FND_API.G_MISS_CHAR);
5483: EXCEPTION
5484: WHEN OTHERS THEN
5485: IF l_debug_level > 0 THEN
5486: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5487: END IF;
5488: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5489: THEN
5490: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5500: BEGIN
5501: FOR I in 1..l_line_tbl_new.count
5502: LOOP
5503: IF l_debug_level > 0 THEN
5504: oe_debug_pub.add( 'BEFORE UPDATING ERROR FLAG FOR LINES' ) ;
5505: END IF;
5506: IF l_line_tbl_new(I).return_status IN (
5507: FND_API.G_RET_STS_ERROR,
5508: FND_API.G_RET_STS_UNEXP_ERROR)
5526: = nvl(l_line_tbl_new(I).orig_sys_shipment_ref,FND_API.G_MISS_CHAR);
5527: EXCEPTION
5528: WHEN OTHERS THEN
5529: IF l_debug_level > 0 THEN
5530: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5531: END IF;
5532: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5533: THEN
5534: l_return_status_upd_err := FND_API.G_RET_STS_UNEXP_ERROR;
5541: /*
5542: l_tbl_index := oe_msg_pub.g_msg_tbl.FIRST;
5543: LOOP
5544: IF l_debug_level > 0 THEN
5545: oe_debug_pub.add( 'L_TBL_INDEX = '||L_TBL_INDEX ) ;
5546: END IF;
5547: If oe_msg_pub.g_msg_tbl(l_tbl_index).entity_code = 'OI_INL_CUSTSUCC'
5548: Then
5549: IF l_debug_level > 0 THEN
5546: END IF;
5547: If oe_msg_pub.g_msg_tbl(l_tbl_index).entity_code = 'OI_INL_CUSTSUCC'
5548: Then
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add( 'BEFORE DELETING OI_INL_ADDCUST MSG' ) ;
5551: END IF;
5552: --oe_msg_pub.g_msg_tbl(l_tbl_index).message := Null;
5553: --oe_msg_pub.g_msg_tbl(l_tbl_index).message_text := Null;
5554: oe_msg_pub.Delete_Msg(p_msg_index => l_tbl_index);
5562: Set Return Status
5563: -----------------------------------------------------------
5564: */
5565: IF l_debug_level > 0 THEN
5566: oe_debug_pub.add( 'UPDATE ERROR_FLAG RETURN STATUS: '||L_RETURN_STATUS_UPD_ERR ) ;
5567: END IF;
5568:
5569: IF l_return_status_upd_err IN (FND_API.G_RET_STS_ERROR)
5570: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5582: IF l_return_status_upd_err NOT IN (FND_API.G_RET_STS_ERROR,
5583: FND_API.G_RET_STS_UNEXP_ERROR)
5584: THEN
5585: IF l_debug_level > 0 THEN
5586: oe_debug_pub.add( 'COMMITING' ) ;
5587: END IF;
5588: COMMIT; /* commit the error_flag updated */
5589: ELSE
5590: ROLLBACK; /* rollback the error_flag updated */
5601: OE_MSG_PUB.Count_And_Get (p_count => p_msg_count
5602: ,p_data => p_msg_data);
5603:
5604: IF l_debug_level > 0 THEN
5605: oe_debug_pub.add( 'MESSAGES RETURNED: '|| TO_CHAR ( P_MSG_COUNT ) ) ;
5606: END IF;
5607:
5608: IF p_msg_count > 0 THEN
5609:
5607:
5608: IF p_msg_count > 0 THEN
5609:
5610: IF l_debug_level > 0 THEN
5611: oe_debug_pub.add( 'BEFORE UPDATING THE PROCESSING MESSAGES TABLE' ) ;
5612: END IF;
5613: l_tbl_index := oe_msg_pub.g_msg_tbl.FIRST;
5614:
5615: LOOP
5613: l_tbl_index := oe_msg_pub.g_msg_tbl.FIRST;
5614:
5615: LOOP
5616: IF l_debug_level > 0 THEN
5617: oe_debug_pub.add( 'BEFORE CALLING GET' ) ;
5618: END IF;
5619: l_msg_order_source_id := '';
5620: l_msg_orig_sys_document_ref := '';
5621: l_msg_orig_sys_line_ref := '';
5626: l_msg_entity_code := '';
5627: l_msg_entity_ref := '';
5628:
5629: IF l_debug_level > 0 THEN
5630: oe_debug_pub.add( 'BEFORE CALLING GET_MSG_CONTEXT' ) ;
5631: END IF;
5632: oe_msg_pub.get_msg_context (
5633: p_msg_index => l_tbl_index
5634: ,x_entity_code => l_msg_entity_code
5651: ,x_type => l_msg_type
5652: );
5653:
5654: IF l_debug_level > 0 THEN
5655: oe_debug_pub.add( 'AFTER CALLING GET_MSG_CONTEXT' ) ;
5656: END IF;
5657: IF oe_msg_pub.g_msg_tbl(l_tbl_index).message_text IS NULL THEN
5658: IF l_debug_level > 0 THEN
5659: oe_debug_pub.add( 'IN INDEX.MESSAGE_TEXT IS NULL' ) ;
5655: oe_debug_pub.add( 'AFTER CALLING GET_MSG_CONTEXT' ) ;
5656: END IF;
5657: IF oe_msg_pub.g_msg_tbl(l_tbl_index).message_text IS NULL THEN
5658: IF l_debug_level > 0 THEN
5659: oe_debug_pub.add( 'IN INDEX.MESSAGE_TEXT IS NULL' ) ;
5660: END IF;
5661: p_msg_data := oe_msg_pub.get(l_tbl_index, 'F');
5662: END IF;
5663:
5710: END IF;
5711: l_msg_data := 'Msg-'||l_tbl_index||' for '||l_msg_context||': '||p_msg_data;
5712:
5713: IF l_debug_level > 0 THEN
5714: oe_debug_pub.add( L_MSG_DATA ) ;
5715: END IF;
5716: --bug 4195533
5717: IF p_return_status = FND_API.G_RET_STS_SUCCESS
5718: AND l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
5716: --bug 4195533
5717: IF p_return_status = FND_API.G_RET_STS_SUCCESS
5718: AND l_header_rec.header_id <> FND_API.G_MISS_NUM THEN
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add( 'Header id updated in msg stack:' || l_header_rec.header_id ) ;
5721: END IF;
5722: oe_msg_pub.g_msg_tbl(l_tbl_index).header_id := l_header_rec.header_id;
5723: END IF;
5724: --bug 4195533
5732: Delete messages from the database table
5733: -----------------------------------------------------------
5734: */
5735: IF l_debug_level > 0 THEN
5736: oe_debug_pub.add( 'BEFORE DELETING OLD MESSAGES FROM THE DATABASE TABLE' ) ;
5737: END IF;
5738:
5739: /* Commmenting the call to delete message bug 2467558
5740:
5752: Set Return Status
5753: -----------------------------------------------------------
5754: */
5755: IF l_debug_level > 0 THEN
5756: oe_debug_pub.add( 'DELETE MESSAGES RETURN STATUS: '||L_RETURN_STATUS_DEL_MSG ) ;
5757: END IF;
5758:
5759: IF l_return_status_del_msg IN (FND_API.G_RET_STS_ERROR)
5760: AND p_return_status NOT IN (FND_API.G_RET_STS_ERROR)
5770: Save messages in the database table
5771: -----------------------------------------------------------
5772: */
5773: IF l_debug_level > 0 THEN
5774: oe_debug_pub.add( 'BEFORE SAVING MESSAGES IN THE DATABASE TABLE' ) ;
5775: END IF;
5776:
5777: IF p_msg_count > 0 THEN
5778: OE_MSG_PUB.save_messages (l_request_id);
5797: Report final order processing results
5798: -----------------------------------------------------------
5799: */
5800: IF l_debug_level > 0 THEN
5801: oe_debug_pub.add( 'RETURN_STATUS: '||P_RETURN_STATUS ) ;
5802: END IF;
5803:
5804: IF p_return_status = FND_API.G_RET_STS_ERROR THEN
5805: IF l_debug_level > 0 THEN
5802: END IF;
5803:
5804: IF p_return_status = FND_API.G_RET_STS_ERROR THEN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'ORDER FAILED WITH ERROR ( S ) ' ) ;
5807: END IF;
5808: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5809: IF l_debug_level > 0 THEN
5810: oe_debug_pub.add( 'ORDER FAILED WITH UNEXPECTED ERROR ( S ) ' ) ;
5806: oe_debug_pub.add( 'ORDER FAILED WITH ERROR ( S ) ' ) ;
5807: END IF;
5808: ELSIF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5809: IF l_debug_level > 0 THEN
5810: oe_debug_pub.add( 'ORDER FAILED WITH UNEXPECTED ERROR ( S ) ' ) ;
5811: END IF;
5812: ELSE
5813: IF l_debug_level > 0 THEN
5814: oe_debug_pub.add( 'ORDER PROCESSED SUCCESSFULLY' ) ;
5810: oe_debug_pub.add( 'ORDER FAILED WITH UNEXPECTED ERROR ( S ) ' ) ;
5811: END IF;
5812: ELSE
5813: IF l_debug_level > 0 THEN
5814: oe_debug_pub.add( 'ORDER PROCESSED SUCCESSFULLY' ) ;
5815: END IF;
5816: END IF;
5817:
5818:
5822: -- {Start If for raising event for XML Trans
5823: If l_header_rec.order_source_id = Oe_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID Then
5824: OE_GLOBALS.G_XML_TXN_CODE := NULL;
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add( 'SET GLOBAL TXN CODE TO NULL' ) ;
5827: END IF;
5828:
5829: -- Check if Order is Imported
5830: -- Else Ack will have to be sent from the Inf tables.
5834: l_order_imported := 'Y';
5835: End If;
5836: -- raise the appropriate event
5837: IF l_debug_level > 0 THEN
5838: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5839:
5840: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5841: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5842: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5836: -- raise the appropriate event
5837: IF l_debug_level > 0 THEN
5838: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5839:
5840: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5841: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5842: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5843: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5844: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5837: IF l_debug_level > 0 THEN
5838: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5839:
5840: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5841: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5842: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5843: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5844: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5845: END IF;
5838: oe_debug_pub.add( 'BEFORE CALLING RAISE_EVENT_FROM_OEOI' ) ;
5839:
5840: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5841: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5842: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5843: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5844: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5845: END IF;
5846:
5839:
5840: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5841: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5842: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5843: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5844: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5845: END IF;
5846:
5847: IF NOT (nvl(l_header_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR) = OE_Acknowledgment_Pub.G_TRANSACTION_CHO
5840: oe_debug_pub.add( 'REF = '||L_HEADER_REC.ORIG_SYS_DOCUMENT_REF ) ;
5841: oe_debug_pub.add('3A8 ACK SEND PROFILE ' || l_cho_ack_send_pfile);
5842: oe_debug_pub.add('3A7 RESP PROFILE ' || l_cso_response_pfile);
5843: oe_debug_pub.add('3A8 RESP MSG TYPE ' || l_header_cso_response_flag);
5844: oe_debug_pub.add('XML TXN CODE ' || l_header_rec.xml_transaction_type_code);
5845: END IF;
5846:
5847: IF NOT (nvl(l_header_rec.xml_transaction_type_code, FND_API.G_MISS_CHAR) = OE_Acknowledgment_Pub.G_TRANSACTION_CHO
5848: AND nvl(l_header_cso_response_flag, 'N') = 'Y'
5895: /*-----------------------------------------------------------
5896: End of Order Import
5897: -----------------------------------------------------------
5898: */
5899: --oe_debug_pub.add('End of Order Import');
5900:
5901:
5902: EXCEPTION
5903: WHEN OTHERS THEN
5901:
5902: EXCEPTION
5903: WHEN OTHERS THEN
5904: IF l_debug_level > 0 THEN
5905: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
5906: END IF;
5907: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5908: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Import_Order');
5909: END IF;