1 PACKAGE wms_ut_pkg AS
2 /* $Header: WMSUTTSS.pls 120.2.12010000.1 2008/07/28 18:37:42 appldev ship $ */
3
4 g_use BOOLEAN;
5 TYPE numtabtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
6 TYPE datetabtype IS TABLE OF DATE INDEX BY BINARY_INTEGER;
7 TYPE chartabtype30 IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
8 TYPE chartabtype3 IS TABLE OF VARCHAR2(3) INDEX BY BINARY_INTEGER;
9 TYPE chartabtype10 IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
10 TYPE chartabtype80 IS TABLE OF VARCHAR2(80) INDEX BY BINARY_INTEGER;
11 TYPE chartabtype150 IS TABLE OF VARCHAR2(150) INDEX BY BINARY_INTEGER;
12 TYPE arrchartabtype150 IS TABLE OF chartabtype150 INDEX BY BINARY_INTEGER;
13 TYPE dblarrchartabtype150 IS TABLE OF arrchartabtype150 INDEX BY BINARY_INTEGER;
14 TYPE charchartabtype30 IS TABLE OF VARCHAR2(30) INDEX BY VARCHAR2(30);
15
16 g_params charchartabtype30;
17
18 TYPE g_ut_rsv_rec is RECORD (
19 serial_number CHARTABTYPE30
20 , primary_quantity NUMTABTYPE
21 , secondary_quantity NUMTABTYPE
22 , lot_number CHARTABTYPE80
23 , subinventory_code CHARTABTYPE10
24 , locator_id NUMTABTYPE
25 , lpn_id NUMTABTYPE);
26
27
28 TYPE g_mmtt_rec_type is RECORD (
29 from_organization_id NUMTABTYPE
30 , serial_number CHARTABTYPE30
31 , transaction_quantity NUMTABTYPE
32 , primary_quantity NUMTABTYPE
33 , secondary_quantity NUMTABTYPE
34 , lot_number CHARTABTYPE80
35 , lot_expiration_date DATETABTYPE
36 , from_subinventory_code CHARTABTYPE10
37 , from_locator_id NUMTABTYPE
38 , rule_id NUMTABTYPE
39 , reservation_id NUMTABTYPE
40 , to_subinventory_code CHARTABTYPE10
41 , to_locator_id NUMTABTYPE
42 , to_organization_id NUMTABTYPE
43 , from_cost_group_id NUMTABTYPE
44 , to_cost_group_id NUMTABTYPE
45 , lpn_id NUMTABTYPE
46 , grade_code CHARTABTYPE150
47 );
48
49 -- Flow Type
50 g_ft_rule_alloc VARCHAR2(3) := 10;
51 g_ft_inbound VARCHAR2(3) := 2;
52
53 -- Flows
54 g_flow_pick_rel VARCHAR2(3) := 'PR';
55 g_flow_sugg_rsv VARCHAR2(3) := 'SR';
56 g_flow_create_sugg VARCHAR2(3) := 'CS';
57
58 -- Actions
59 g_refresh_onhand_picture VARCHAR2(30) := 'REFRESH_ONHAND';
60 g_clear_lpns VARCHAR2(30) := 'CLEAR_LPNS';
61
62 g_lotser_cnt NUMBER := 0;
63
64 TYPE g_datamaskrec is RECORD (
65 dtype VARCHAR2(30),
66 dmask VARCHAR2(150));
67
68 TYPE g_datamasktbl is TABLE of g_datamaskrec INDEX BY BINARY_INTEGER;
69
70 g_data_masks g_datamasktbl;
71
72 TYPE g_flow_rec is RECORD (
73 flowtype VARCHAR2(30),
74 datatype numtabtype);
75
76 TYPE g_flow_tbl is TABLE of g_flow_rec INDEX BY BINARY_INTEGER;
77
78 g_flow_type_datatypes g_flow_tbl;
79
80 g_start_time DATE;
81 g_end_time DATE;
82
83 PROCEDURE indt;
84
85 PROCEDURE initialize;
86
87 PROCEDURE import_test_cases(p_txt chartabtype150,
88 p_overwrite VARCHAR2);
89
90 PROCEDURE import_test_cases (p_file IN VARCHAR2,
91 p_path IN VARCHAR2,
92 p_overwrite IN VARCHAR2);
93
94 FUNCTION get_flow_mask(p_mask IN varchar2, p_flow IN number) RETURN VARCHAR2;
95 FUNCTION get_mask(p_mask IN varchar2) RETURN VARCHAR2;
96 -- Call to create temp table
97 PROCEDURE Create_ut_tables
98 (p_api_version IN NUMBER,
99 p_init_msg_list IN VARCHAR2,
100 p_commit IN VARCHAR2,
101 x_return_status OUT NOCOPY VARCHAR2,
102 x_msg_count OUT NOCOPY NUMBER,
103 x_msg_data OUT NOCOPY VARCHAR2);
104
105 PROCEDURE Create_ut_seq
106 (p_api_version IN NUMBER,
107 p_init_msg_list IN VARCHAR2,
108 p_commit IN VARCHAR2,
109 x_return_status OUT NOCOPY VARCHAR2,
110 x_msg_count OUT NOCOPY NUMBER,
111 x_msg_data OUT NOCOPY VARCHAR2);
112
113 PROCEDURE create_wms_ut123_pkg;
114 PROCEDURE drop_ut_tables;
115 PROCEDURE drop_ut_seq;
116 PROCEDURE drop_ut_pkg;
117
118 PROCEDURE Create_ut_datatypes
119 (p_flow_type_id IN NUMBER,
120 p_testset_id IN NUMBER,
121 p_testset IN VARCHAR2,
122 p_test_id IN NUMBER,
123 p_testname IN VARCHAR2,
124 p_runid IN NUMBER,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2);
128
129 Function get_datatype_id(p_datatype VARCHAR2) Return NUMBER;
130 Function get_value(p_data IN dblarrchartabtype150, p_datatype VARCHAR2) Return VARCHAR2;
131 PROCEDURE gather_and_setup(p_data IN OUT NOCOPY dblarrchartabtype150,
132 p_org_id IN NUMBER,
133 p_user_id IN NUMBER,
134 p_flow_type_id IN NUMBER,
135 p_run_id IN NUMBER,
136 p_test_id IN NUMBER);
137 PROCEDURE execute_ut_test_flow(p_data IN OUT NOCOPY dblarrchartabtype150,
138 p_org_id IN NUMBER,
139 p_user_id IN NUMBER,
140 p_flow_type_id IN NUMBER,
141 p_run_id IN NUMBER,
142 p_test_id IN NUMBER);
143 PROCEDURE write_to_output(p_test_id NUMBER, p_datatype VARCHAR2, p_text VARCHAR2, p_runid VARCHAR2);
144 PROCEDURE write_ut_test_output(p_data IN OUT NOCOPY dblarrchartabtype150,
145 p_org_id IN NUMBER,
146 p_user_id IN NUMBER,
147 p_flow_type_id IN NUMBER,
148 p_testset_id IN NUMBER,
149 p_test_id IN NUMBER,
150 p_run_id IN NUMBER,
151 p_file_name IN VARCHAR2,
152 p_log_dir IN VARCHAR2) ;
153 FUNCTION parse_text(p_text VARCHAR2, p_separation VARCHAR2)
154 Return chartabtype150;
155 Procedure print_debug(p_msg VARCHAR2);
156
157 END wms_ut_pkg;