10: -- The get_***_attr procedures populate the global variables listed
11: -- below. When the get_
12: -- default from the global variables if they have been populated
13:
14: g_Res_rec WIP_Transaction_PUB.Res_Rec_Type;
15: g_RCV_txn WIP_Transaction_PUB.Rcv_Txn_Type;
16: g_WIP_op_res WIP_Transaction_PUB.WIP_Op_Res_Type;
17: g_PO_Dstr WIP_Transaction_PUB.PO_Dist_Type;
18: g_Wip_Entities_rec WIP_Work_Order_PUB.Wip_Entities_Rec_Type :=
11: -- below. When the get_
12: -- default from the global variables if they have been populated
13:
14: g_Res_rec WIP_Transaction_PUB.Res_Rec_Type;
15: g_RCV_txn WIP_Transaction_PUB.Rcv_Txn_Type;
16: g_WIP_op_res WIP_Transaction_PUB.WIP_Op_Res_Type;
17: g_PO_Dstr WIP_Transaction_PUB.PO_Dist_Type;
18: g_Wip_Entities_rec WIP_Work_Order_PUB.Wip_Entities_Rec_Type :=
19: WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
12: -- default from the global variables if they have been populated
13:
14: g_Res_rec WIP_Transaction_PUB.Res_Rec_Type;
15: g_RCV_txn WIP_Transaction_PUB.Rcv_Txn_Type;
16: g_WIP_op_res WIP_Transaction_PUB.WIP_Op_Res_Type;
17: g_PO_Dstr WIP_Transaction_PUB.PO_Dist_Type;
18: g_Wip_Entities_rec WIP_Work_Order_PUB.Wip_Entities_Rec_Type :=
19: WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
20: g_BOM_res WIP_Transaction_PUB.BOM_Resource_Type;
13:
14: g_Res_rec WIP_Transaction_PUB.Res_Rec_Type;
15: g_RCV_txn WIP_Transaction_PUB.Rcv_Txn_Type;
16: g_WIP_op_res WIP_Transaction_PUB.WIP_Op_Res_Type;
17: g_PO_Dstr WIP_Transaction_PUB.PO_Dist_Type;
18: g_Wip_Entities_rec WIP_Work_Order_PUB.Wip_Entities_Rec_Type :=
19: WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
20: g_BOM_res WIP_Transaction_PUB.BOM_Resource_Type;
21:
16: g_WIP_op_res WIP_Transaction_PUB.WIP_Op_Res_Type;
17: g_PO_Dstr WIP_Transaction_PUB.PO_Dist_Type;
18: g_Wip_Entities_rec WIP_Work_Order_PUB.Wip_Entities_Rec_Type :=
19: WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
20: g_BOM_res WIP_Transaction_PUB.BOM_Resource_Type;
21:
22: -- Get functions.
23:
24: /* Private Procedure that will populate all the attributes from RCV_TRANSACTIONS_INTERFACE. Populating each attribute individually will be a performance hit, so call this procedure once */
598: AND rti.interface_transaction_id = g_Res_rec.source_line_id; */
599:
600: l_actual_resource_rate := l_po_unit_price + l_tax_amount ;
601:
602: IF g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_RCV OR
603: g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_VEND OR
604: g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_CORRECT_TO_RCV THEN
605: l_actual_resource_rate := -l_actual_resource_rate;
606: END IF;
599:
600: l_actual_resource_rate := l_po_unit_price + l_tax_amount ;
601:
602: IF g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_RCV OR
603: g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_VEND OR
604: g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_CORRECT_TO_RCV THEN
605: l_actual_resource_rate := -l_actual_resource_rate;
606: END IF;
607: END IF;
600: l_actual_resource_rate := l_po_unit_price + l_tax_amount ;
601:
602: IF g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_RCV OR
603: g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_VEND OR
604: g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_CORRECT_TO_RCV THEN
605: l_actual_resource_rate := -l_actual_resource_rate;
606: END IF;
607: END IF;
608: END IF;
1996: ELSE
1997: RETURN NULL;
1998: END IF;
1999:
2000: IF g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_RCV
2001: OR g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_VEND
2002: OR g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_CORRECT_TO_RCV
2003: THEN
2004: g_Res_rec.transaction_quantity := -1* g_Res_rec.transaction_quantity;
1997: RETURN NULL;
1998: END IF;
1999:
2000: IF g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_RCV
2001: OR g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_VEND
2002: OR g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_CORRECT_TO_RCV
2003: THEN
2004: g_Res_rec.transaction_quantity := -1* g_Res_rec.transaction_quantity;
2005: END IF;
1998: END IF;
1999:
2000: IF g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_RCV
2001: OR g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_RET_TO_VEND
2002: OR g_Res_rec.action = WIP_Transaction_PUB.G_ACT_OSP_CORRECT_TO_RCV
2003: THEN
2004: g_Res_rec.transaction_quantity := -1* g_Res_rec.transaction_quantity;
2005: END IF;
2006:
2217: END Get_Flex_Res;
2218:
2219: -- Procedure Attributes
2220: PROCEDURE Attributes
2221: ( p_Res_rec IN WIP_Transaction_PUB.Res_Rec_Type
2222: , p_iteration IN NUMBER := NULL
2223: , x_Res_rec IN OUT NOCOPY WIP_Transaction_PUB.Res_Rec_Type
2224: )
2225: IS
2219: -- Procedure Attributes
2220: PROCEDURE Attributes
2221: ( p_Res_rec IN WIP_Transaction_PUB.Res_Rec_Type
2222: , p_iteration IN NUMBER := NULL
2223: , x_Res_rec IN OUT NOCOPY WIP_Transaction_PUB.Res_Rec_Type
2224: )
2225: IS
2226: BEGIN
2227:
2242: END IF;
2243:
2244: -- Initialize global variables
2245:
2246: g_Res_rec := WIP_Transaction_PUB.G_MISS_RES_REC;
2247: g_RCV_txn := WIP_Transaction_PUB.G_MISS_RCV_TXN_REC;
2248: g_WIP_op_res := WIP_Transaction_PUB.G_MISS_WIP_OP_RES_REC;
2249: g_PO_Dstr := WIP_Transaction_PUB.G_MISS_PO_DIST_REC;
2250: g_Wip_Entities_rec := WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
2243:
2244: -- Initialize global variables
2245:
2246: g_Res_rec := WIP_Transaction_PUB.G_MISS_RES_REC;
2247: g_RCV_txn := WIP_Transaction_PUB.G_MISS_RCV_TXN_REC;
2248: g_WIP_op_res := WIP_Transaction_PUB.G_MISS_WIP_OP_RES_REC;
2249: g_PO_Dstr := WIP_Transaction_PUB.G_MISS_PO_DIST_REC;
2250: g_Wip_Entities_rec := WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
2251: g_BOM_res := WIP_Transaction_PUB.G_MISS_BOM_RES_REC;
2244: -- Initialize global variables
2245:
2246: g_Res_rec := WIP_Transaction_PUB.G_MISS_RES_REC;
2247: g_RCV_txn := WIP_Transaction_PUB.G_MISS_RCV_TXN_REC;
2248: g_WIP_op_res := WIP_Transaction_PUB.G_MISS_WIP_OP_RES_REC;
2249: g_PO_Dstr := WIP_Transaction_PUB.G_MISS_PO_DIST_REC;
2250: g_Wip_Entities_rec := WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
2251: g_BOM_res := WIP_Transaction_PUB.G_MISS_BOM_RES_REC;
2252:
2245:
2246: g_Res_rec := WIP_Transaction_PUB.G_MISS_RES_REC;
2247: g_RCV_txn := WIP_Transaction_PUB.G_MISS_RCV_TXN_REC;
2248: g_WIP_op_res := WIP_Transaction_PUB.G_MISS_WIP_OP_RES_REC;
2249: g_PO_Dstr := WIP_Transaction_PUB.G_MISS_PO_DIST_REC;
2250: g_Wip_Entities_rec := WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
2251: g_BOM_res := WIP_Transaction_PUB.G_MISS_BOM_RES_REC;
2252:
2253: g_Res_rec := p_Res_rec;
2247: g_RCV_txn := WIP_Transaction_PUB.G_MISS_RCV_TXN_REC;
2248: g_WIP_op_res := WIP_Transaction_PUB.G_MISS_WIP_OP_RES_REC;
2249: g_PO_Dstr := WIP_Transaction_PUB.G_MISS_PO_DIST_REC;
2250: g_Wip_Entities_rec := WIP_Work_Order_PUB.G_MISS_WIP_ENTITIES_REC;
2251: g_BOM_res := WIP_Transaction_PUB.G_MISS_BOM_RES_REC;
2252:
2253: g_Res_rec := p_Res_rec;
2254:
2255: -- Default missing attributes.