5863:
5864: END Get_Dual_Uom;
5865:
5866: -- Added Set_Header_Def_Hdlr_rec for bug 4668200
5867: -- This procedure will set the ONT_Header_Def_Hdlr.g_record with the information in header record.
5868: -- An attribute on line can be defaulted based on a PL/SQL API
5869: -- The API can also refer to ONT_Header_Def_Hdlr.g_record
5870: PROCEDURE Set_Header_Def_Hdlr_Rec (p_header_id IN NUMBER)
5871: IS
5865:
5866: -- Added Set_Header_Def_Hdlr_rec for bug 4668200
5867: -- This procedure will set the ONT_Header_Def_Hdlr.g_record with the information in header record.
5868: -- An attribute on line can be defaulted based on a PL/SQL API
5869: -- The API can also refer to ONT_Header_Def_Hdlr.g_record
5870: PROCEDURE Set_Header_Def_Hdlr_Rec (p_header_id IN NUMBER)
5871: IS
5872: l_header_rec OE_Order_PUB.Header_Rec_Type ;
5873: l_rowtype_header_rec OE_AK_ORDER_HEADERS_V%ROWTYPE;
5877: if l_debug_level >0 then
5878: oe_debug_pub.add(' Entering in OE_Default_Test.Set_Header_Def_Hdlr_Rec with Header Id: '|| p_header_id);
5879: end if ;
5880:
5881: IF ( ONT_Header_Def_Hdlr.g_record.header_id IS NULL OR
5882: ONT_Header_Def_Hdlr.g_record.header_id <> p_header_id)
5883: THEN
5884: if OE_ORDER_CACHE.g_header_rec.header_id = p_header_id then
5885: l_header_rec := OE_ORDER_CACHE.g_header_rec ;
5878: oe_debug_pub.add(' Entering in OE_Default_Test.Set_Header_Def_Hdlr_Rec with Header Id: '|| p_header_id);
5879: end if ;
5880:
5881: IF ( ONT_Header_Def_Hdlr.g_record.header_id IS NULL OR
5882: ONT_Header_Def_Hdlr.g_record.header_id <> p_header_id)
5883: THEN
5884: if OE_ORDER_CACHE.g_header_rec.header_id = p_header_id then
5885: l_header_rec := OE_ORDER_CACHE.g_header_rec ;
5886: else
5892: OE_Header_UTIL.API_Rec_To_Rowtype_Rec
5893: ( p_header_rec => l_header_rec
5894: ,x_rowtype_rec => l_rowtype_header_rec);
5895:
5896: ONT_Header_Def_Hdlr.g_record := l_rowtype_header_rec ;
5897:
5898: if l_debug_level >0 then
5899: oe_debug_pub.add('ONT_Header_Def_Hdlr.g_record.Header_id: '||ONT_Header_Def_Hdlr.g_record.Header_id);
5900: end if ;
5895:
5896: ONT_Header_Def_Hdlr.g_record := l_rowtype_header_rec ;
5897:
5898: if l_debug_level >0 then
5899: oe_debug_pub.add('ONT_Header_Def_Hdlr.g_record.Header_id: '||ONT_Header_Def_Hdlr.g_record.Header_id);
5900: end if ;
5901:
5902: END IF ;
5903: