1 PACKAGE WSMPLCVA AUTHID CURRENT_USER AS
2 /* $Header: WSMLCVAS.pls 115.13 2002/10/04 21:39:37 abedajna ship $ */
3
4 -- global datatype declarations
5 -- ==============================================================================================
6 -- creating an index by table that'll store the valid org values as the index for easy validation
7 -- ==============================================================================================
8
9 --abb H optional scrap accounting, added ESTIMATED_SCRAP_ACCOUNTING
10 type rec_wsm_param IS record
11 (ORGANIZATION_ID wsm_parameters.ORGANIZATION_ID%type,
12 COPRODUCTS_SUPPLY_DEFAULT wsm_parameters.COPRODUCTS_SUPPLY_DEFAULT%type,
13 DEFAULT_ACCT_CLASS_CODE wsm_parameters.DEFAULT_ACCT_CLASS_CODE%type,
14 OP_SEQ_NUM_INCREMENT wsm_parameters.OP_SEQ_NUM_INCREMENT%type,
15 LAST_OPERATION_SEQ_NUM wsm_parameters.LAST_OPERATION_SEQ_NUM%type,
16 ESTIMATED_SCRAP_ACCOUNTING wsm_parameters.ESTIMATED_SCRAP_ACCOUNTING%type,
17 MAX_ORG_ACC_PERIODS org_acct_periods.ACCT_PERIOD_ID%type,
18 MAX_STK_LOC_CNTRL mtl_parameters.STOCK_LOCATOR_CONTROL_CODE%type,
19 PO_CREATION_TIME wip_parameters.PO_CREATION_TIME%type);
20
21 v_rec_wsm_param rec_wsm_param;
22
23 type t_org IS table of rec_wsm_param index by binary_integer;
24 v_org t_org;
25
26 -- ================================================================================================
27 -- creating an index by table that'll store the valid hash(subinv+org) as index for easy validation
28 -- ================================================================================================
29
30 type t_subinv IS table of wsm_subinventory_extensions.secondary_inventory_name%type
31 index by binary_integer;
32 v_subinv t_subinv;
33
34
35 -- ===============================================================================================
36 -- creating an index by table that'll store the valid item values as the index for easy validation
37 -- ===============================================================================================
38
39 type t_item IS table of wsm_lot_job_interface.primary_item_id%type
40 index by binary_integer;
41 v_item t_item;
42
43 -- ===============================================================================================
44 -- creating an index by table that'll store hash (assembly + component) item values as the index
45 -- ===============================================================================================
46
47 type rec_item IS record(INVENTORY_ITEM_ID wsm_starting_lots_interface.INVENTORY_ITEM_ID%type,
48 PRIMARY_ITEM_ID wsm_lot_job_interface.PRIMARY_ITEM_ID%type);
49
50 type t_mode2_item IS table of rec_item index by binary_integer;
51
52 v_mode2_item t_mode2_item;
53
54 -- ===============================================================================================
55 -- creating an index by table that'll store the valid class codes as the index for easy validation
56 -- ===============================================================================================
57
58 type t_class_code IS table of wsm_lot_job_interface.class_code%type
59 index by binary_integer;
60 v_class_code t_class_code;
61
62 -- ===============================================================================================
63 -- creating an index by table that'll store the valid user id's as the index for easy validation
64 -- ===============================================================================================
65
66 type t_user IS table of wsm_lot_job_interface.last_updated_by%type
67 index by binary_integer;
68 v_user t_user;
69
70
71 -- PROCEDURE DECLARATIONS --
72
73 --**********************************************************************************************
74 PROCEDURE load_org_table;
75 --**********************************************************************************************
76 PROCEDURE load_subinventory;
77 --**********************************************************************************************
78 PROCEDURE load_class_code;
79 --**********************************************************************************************
80
81 END;