2508: --Added for bug 4937633 source type for Internal orders will be Internal
2509: IF p_x_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
2510:
2511: IF p_x_line_tbl(I).source_document_type_id = 10
2512: OR oe_order_cache.g_header_rec.source_document_type_id = 10 THEN
2513: p_x_line_tbl(I).source_type_code := OE_GLOBALS.G_SOURCE_INTERNAL;
2514: END IF;
2515: END IF;
2516: --Added for bug 4937633 end
5555: OE_ORDER_WF_UTIL.START_ALL_FLOWS;
5556: END IF;
5557:
5558: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL < '110508'
5559: AND oe_order_cache.g_header_rec.booked_flag = 'Y' THEN
5560: -- If notify, then call service and acknowledgments notify APIs
5561:
5562: IF p_notify THEN
5563: IF l_debug_level > 0 THEN
5674:
5675: ELSE /*post pack H*/
5676: IF l_debug_level > 0 THEN
5677: oe_debug_pub.add( 'JPN: GLOBAL RECURSION WITHOUT EXCEPTION: ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5678: oe_debug_pub.add( 'JPN: GLOBAL CACHE BOOKED FLAG' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5679: oe_debug_pub.add( 'JPN: GLOBAL PICTURE HEADER BOOKED FLAG' || OE_ORDER_UTIL.G_HEADER_REC.BOOKED_FLAG ) ;
5680: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE TABLE= '|| OE_ORDER_UTIL.G_LINE_TBL.COUNT ) ;
5681: oe_debug_pub.add( 'JPN: COUNT OF OLD LINE TABLE= '|| OE_ORDER_UTIL.G_OLD_LINE_TBL.COUNT ) ;
5682: oe_debug_pub.add( 'JPN: COUNT OF NEW LINE ADJ TABLE= '|| OE_ORDER_UTIL.G_LINE_ADJ_TBL.COUNT ) ;
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add('Just before calling Load_Order_Header');
5827: END IF;
5828:
5829: Oe_Order_Cache.Load_Order_Header(l_header_id);
5830: END IF;
5831:
5832: IF l_debug_level > 0 THEN
5833: oe_debug_pub.add('Out of Load_Order_Header in PRN');
5834: END IF;
5835: /* end of bug 2781468*/
5836:
5837: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5838: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y') THEN
5839:
5840: IF l_debug_level > 0 THEN
5841: oe_debug_pub.add( 'POST PACK H. CALLING NOTIFY_OC API' , 1 ) ;
5842: END IF;
5881:
5882: IF l_debug_level > 0 THEN
5883: oe_debug_pub.add( 'PROCESSING ACKS' , 1 ) ;
5884: oe_debug_pub.add( 'PACKS ' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION , 1 ) ;
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5889: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' AND p_process_ack) THEN
5885: oe_debug_pub.add( 'PACKS' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG , 1 ) ;
5886: END IF;
5887:
5888: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
5889: OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' AND p_process_ack) THEN
5890:
5891: IF l_debug_level > 0 THEN
5892: oe_debug_pub.add( 'POST PACK H.CALLING ACKS API' , 1 ) ;
5893: END IF;
5901:
5902: -- { Start of If order_source_id = 20
5903: -- The below condition will only executed for the the XML Xactions
5904: IF l_debug_level > 0 THEN
5905: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
5906: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
5907: END IF;
5908:
5909: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
5902: -- { Start of If order_source_id = 20
5903: -- The below condition will only executed for the the XML Xactions
5904: IF l_debug_level > 0 THEN
5905: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
5906: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
5907: END IF;
5908:
5909: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
5910: (OE_GENESIS_UTIL.source_aia_enabled(OE_ORDER_CACHE.g_header_rec.order_source_id)) THEN -- GENESIS
5905: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.ORDER_SOURCE_ID , 1 ) ;
5906: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
5907: END IF;
5908:
5909: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
5910: (OE_GENESIS_UTIL.source_aia_enabled(OE_ORDER_CACHE.g_header_rec.order_source_id)) THEN -- GENESIS
5911:
5912:
5913: OE_Acknowledgment_Pub.Process_SSO
5906: oe_debug_pub.add( 'PACKS ' || OE_ORDER_CACHE.G_HEADER_REC.SOLD_TO_ORG_ID , 1 ) ;
5907: END IF;
5908:
5909: If OE_ORDER_CACHE.g_header_rec.order_source_id in (20) OR
5910: (OE_GENESIS_UTIL.source_aia_enabled(OE_ORDER_CACHE.g_header_rec.order_source_id)) THEN -- GENESIS
5911:
5912:
5913: OE_Acknowledgment_Pub.Process_SSO
5914: (p_api_version_number => 1
5912:
5913: OE_Acknowledgment_Pub.Process_SSO
5914: (p_api_version_number => 1
5915: ,p_init_msg_list => FND_API.G_FALSE
5916: ,p_header_rec => OE_ORDER_CACHE.g_header_rec
5917: ,p_line_tbl => OE_ORDER_UTIL.g_line_tbl
5918: ,p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec
5919: ,p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl
5920:
5922: );
5923:
5924: -- The below condition to leave the existing flow to work as it is
5925: Elsif Oe_Code_Control.Code_Release_Level >= '110510' And
5926: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) And
5927: l_edi_ack_pfile = 'YES' Then
5928: OE_Acknowledgment_Pvt.Process_Acknowledgment
5929: (p_header_rec => OE_ORDER_UTIL.g_header_rec,
5930: p_line_tbl => OE_ORDER_UTIL.g_line_tbl,
5931: p_old_header_rec => OE_ORDER_UTIL.g_old_header_rec,
5932: p_old_line_tbl => OE_ORDER_UTIL.g_old_line_tbl,
5933: x_return_status => l_return_status);
5934: Elsif l_edi_ack_pfile = 'NO' And
5935: OE_ORDER_CACHE.g_header_rec.order_source_id in (0,2,6) Then
5936: OE_Acknowledgment_Pvt.Process_Acknowledgment
5937: (p_api_version_number => 1
5938: ,p_init_msg_list => FND_API.G_FALSE
5939: ,p_header_rec => OE_ORDER_UTIL.g_header_rec
5972:
5973: -- DBI project changes start
5974: IF l_debug_level > 0 THEN
5975: oe_debug_pub.add( 'CALLING OE_DBI_UTIL' , 1 ) ;
5976: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
5977: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5980:
5978: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
5979: END IF;
5980:
5981: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
5982: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
5983: OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N'
5984: -- AND p_header_rec.header_id IS NOT NULL AND
5985: --p_header_rec.header_id <> FND_API.G_MISS_NUM
5986: THEN
5999:
6000: /* Now clear the global pl/sql tables */
6001: /* Also clear for >= 11i10 for versioning */
6002: IF (OE_ORDER_UTIL.G_Recursion_Without_Exception = 'N' AND
6003: (OE_ORDER_CACHE.g_header_rec.booked_flag = 'Y' OR
6004: OE_CODE_CONTROL.Code_Release_Level >= '110510' )) THEN
6005: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6006: END IF;
6007:
7872: oe_debug_pub.add( 'CS BEFORE CALLING NOTIFY_OC API' , 1 ) ;
7873: END IF;
7874: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
7875: p_control_rec.write_to_db = TRUE
7876: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
7877: THEN
7878: IF l_debug_level > 0 THEN
7879: oe_debug_pub.add( 'CS CALLING NOTIFY_OC API' , 1 ) ;
7880: END IF;
10119: END IF;
10120:
10121: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
10122: p_control_rec.write_to_db = TRUE
10123: AND oe_order_cache.g_header_rec.booked_flag = 'Y'
10124: THEN
10125: IF l_debug_level > 0 THEN
10126: oe_debug_pub.add( 'CS CALLING NOTIFY_OC API' , 1 ) ;
10127: END IF;