6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_TO_Form_Trohdr';
7:
8: -- Global variables holding cached record.
9:
10: g_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
11: g_db_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
7:
8: -- Global variables holding cached record.
9:
10: g_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
11: g_db_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_trohdr
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14:
15: PROCEDURE Write_trohdr
16: ( p_trohdr_rec IN INV_Move_Order_PUB.Trohdr_Rec_Type
17: , p_db_record IN BOOLEAN := FALSE
18: );
19:
20: FUNCTION Get_trohdr
20: FUNCTION Get_trohdr
21: ( p_db_record IN BOOLEAN := FALSE
22: , p_header_id IN NUMBER
23: )
24: RETURN INV_Move_Order_PUB.Trohdr_Rec_Type;
25:
26: PROCEDURE Clear_trohdr;
27:
28: -- Global variable holding performed operations.
26: PROCEDURE Clear_trohdr;
27:
28: -- Global variable holding performed operations.
29:
30: g_opr__tbl INV_Move_Order_PUB.Trohdr_Tbl_Type;
31:
32: -- Procedure : Default_Attributes
33: --
34:
72: , x_transaction_type_id OUT NOCOPY NUMBER
73: , x_ship_to_location_id OUT NOCOPY NUMBER
74: )
75: IS
76: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
77: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
78: l_control_rec INV_GLOBALS.Control_Rec_Type;
79: l_return_status VARCHAR2(1);
80: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
73: , x_ship_to_location_id OUT NOCOPY NUMBER
74: )
75: IS
76: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
77: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
78: l_control_rec INV_GLOBALS.Control_Rec_Type;
79: l_return_status VARCHAR2(1);
80: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
81: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
76: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
77: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
78: l_control_rec INV_GLOBALS.Control_Rec_Type;
79: l_return_status VARCHAR2(1);
80: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
81: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
82: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
83: BEGIN
84:
77: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
78: l_control_rec INV_GLOBALS.Control_Rec_Type;
79: l_return_status VARCHAR2(1);
80: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
81: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
82: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
83: BEGIN
84:
85: INV_GLOBALS.G_CALL_MODE := 'FORM';
78: l_control_rec INV_GLOBALS.Control_Rec_Type;
79: l_return_status VARCHAR2(1);
80: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
81: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
82: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
83: BEGIN
84:
85: INV_GLOBALS.G_CALL_MODE := 'FORM';
86: INV_GLOBALS.G_MAX_LINE_NUM := null;
296: , p_ship_to_location_id IN NUMBER
297: , p_db_flag IN VARCHAR2
298: )
299: IS
300: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
301: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
302: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
297: , p_db_flag IN VARCHAR2
298: )
299: IS
300: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
301: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
302: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
298: )
299: IS
300: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
301: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
302: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
301: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
302: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
308: BEGIN
309:
302: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
308: BEGIN
309:
310: -- Set control flags.
303: l_control_rec INV_GLOBALS.Control_Rec_Type;
304: l_return_status VARCHAR2(1);
305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
308: BEGIN
309:
310: -- Set control flags.
311:
736: , x_last_updated_by OUT NOCOPY NUMBER
737: , x_last_update_login OUT NOCOPY NUMBER
738: )
739: IS
740: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
741: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
742: l_control_rec INV_GLOBALS.Control_Rec_Type;
743: l_return_status VARCHAR2(1);
744: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
737: , x_last_update_login OUT NOCOPY NUMBER
738: )
739: IS
740: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
741: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
742: l_control_rec INV_GLOBALS.Control_Rec_Type;
743: l_return_status VARCHAR2(1);
744: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
745: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
740: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
741: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
742: l_control_rec INV_GLOBALS.Control_Rec_Type;
743: l_return_status VARCHAR2(1);
744: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
745: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
746: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
747: BEGIN
748:
741: l_old_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
742: l_control_rec INV_GLOBALS.Control_Rec_Type;
743: l_return_status VARCHAR2(1);
744: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
745: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
746: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
747: BEGIN
748:
749: -- Set control flags.
742: l_control_rec INV_GLOBALS.Control_Rec_Type;
743: l_return_status VARCHAR2(1);
744: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
745: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
746: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
747: BEGIN
748:
749: -- Set control flags.
750:
918: , x_msg_data OUT NOCOPY VARCHAR2
919: , p_header_id IN NUMBER
920: )
921: IS
922: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
923: l_control_rec INV_GLOBALS.Control_Rec_Type;
924: l_return_status VARCHAR2(1);
925: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
926: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
921: IS
922: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
923: l_control_rec INV_GLOBALS.Control_Rec_Type;
924: l_return_status VARCHAR2(1);
925: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
926: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
927: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
928: BEGIN
929:
922: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
923: l_control_rec INV_GLOBALS.Control_Rec_Type;
924: l_return_status VARCHAR2(1);
925: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
926: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
927: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
928: BEGIN
929:
930: -- Set control flags.
923: l_control_rec INV_GLOBALS.Control_Rec_Type;
924: l_return_status VARCHAR2(1);
925: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
926: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
927: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
928: BEGIN
929:
930: -- Set control flags.
931:
1045: )
1046: IS
1047: l_control_rec INV_GLOBALS.Control_Rec_Type;
1048: l_return_status VARCHAR2(1);
1049: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1050: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1051: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1052: BEGIN
1053:
1046: IS
1047: l_control_rec INV_GLOBALS.Control_Rec_Type;
1048: l_return_status VARCHAR2(1);
1049: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1050: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1051: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1052: BEGIN
1053:
1054: -- Set control flags.
1047: l_control_rec INV_GLOBALS.Control_Rec_Type;
1048: l_return_status VARCHAR2(1);
1049: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1050: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1051: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1052: BEGIN
1053:
1054: -- Set control flags.
1055:
1154: )
1155: IS
1156: l_control_rec INV_GLOBALS.Control_Rec_Type;
1157: l_return_status VARCHAR2(1);
1158: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1159: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1160: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1161: BEGIN
1162:
1155: IS
1156: l_control_rec INV_GLOBALS.Control_Rec_Type;
1157: l_return_status VARCHAR2(1);
1158: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1159: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1160: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1161: BEGIN
1162:
1163: -- Set control flags.
1156: l_control_rec INV_GLOBALS.Control_Rec_Type;
1157: l_return_status VARCHAR2(1);
1158: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1159: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1160: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1161: BEGIN
1162:
1163: -- Set control flags.
1164:
1300: , p_ship_to_location_id IN NUMBER
1301: )
1302: IS
1303: l_return_status VARCHAR2(1);
1304: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1308: BEGIN
1301: )
1302: IS
1303: l_return_status VARCHAR2(1);
1304: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1308: BEGIN
1309:
1302: IS
1303: l_return_status VARCHAR2(1);
1304: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1308: BEGIN
1309:
1310: -- Load trohdr record
1303: l_return_status VARCHAR2(1);
1304: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1305: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1306: l_x_trolin_rec INV_Move_Order_PUB.Trolin_Rec_Type;
1307: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1308: BEGIN
1309:
1310: -- Load trohdr record
1311:
1413:
1414: -- Procedures maintaining trohdr record cache.
1415:
1416: PROCEDURE Write_trohdr
1417: ( p_trohdr_rec IN INV_Move_Order_PUB.Trohdr_Rec_Type
1418: , p_db_record IN BOOLEAN := FALSE
1419: )
1420: IS
1421: BEGIN
1433: FUNCTION Get_trohdr
1434: ( p_db_record IN BOOLEAN := FALSE
1435: , p_header_id IN NUMBER
1436: )
1437: RETURN INV_Move_Order_PUB.Trohdr_Rec_Type
1438: IS
1439: BEGIN
1440:
1441: IF p_header_id <> g_trohdr_rec.header_id
1470: PROCEDURE Clear_Trohdr
1471: IS
1472: BEGIN
1473:
1474: g_trohdr_rec := INV_Move_Order_PUB.G_MISS_TROHDR_REC;
1475: g_db_trohdr_rec := INV_Move_Order_PUB.G_MISS_TROHDR_REC;
1476:
1477: END Clear_Trohdr;
1478:
1471: IS
1472: BEGIN
1473:
1474: g_trohdr_rec := INV_Move_Order_PUB.G_MISS_TROHDR_REC;
1475: g_db_trohdr_rec := INV_Move_Order_PUB.G_MISS_TROHDR_REC;
1476:
1477: END Clear_Trohdr;
1478:
1479: END INV_TO_Form_Trohdr;