1 PACKAGE GMD_LCF_ENGINE AS
2 /* $Header: GMDLCFPS.pls 120.1 2006/02/09 13:04:39 txdaniel noship $ */
3 TYPE row IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
4
5 TYPE char_row IS TABLE OF VARCHAR2(80) INDEX BY BINARY_INTEGER;
6
7 TYPE matrix IS TABLE OF row INDEX BY BINARY_INTEGER;
8 TYPE char_matrix IS TABLE OF char_row INDEX BY BINARY_INTEGER;
9
10 TYPE solved_rec IS RECORD
11 ( item VARCHAR2(2000),
12 qty NUMBER);
13
14 TYPE solved_tab IS TABLE OF solved_rec INDEX BY BINARY_INTEGER;
15
16 PROCEDURE evaluate (P_spec_id IN NUMBER,
17 P_constraints IN NUMBER,
18 P_variables IN NUMBER,
19 P_matrix IN matrix,
20 p_rhs_matrix IN char_matrix,
21 p_var_row IN char_row,
22 X_solved_tab OUT NOCOPY solved_tab,
23 X_return OUT NOCOPY NUMBER);
24
25
26 PROCEDURE read_table(P_constraints IN NUMBER,
27 P_variables IN NUMBER,
28 P_matrix IN matrix,
29 P_rhs_matrix IN char_matrix,
30 p_var IN char_row,
31 X_matrix OUT NOCOPY matrix,
32 X_basic OUT NOCOPY row,
33 X_reenter OUT NOCOPY row,
34 X_variables OUT NOCOPY NUMBER,
35 X_con OUT NOCOPY char_row,
36 X_var OUT NOCOPY char_row,
37 X_return_status OUT NOCOPY VARCHAR2);
38
39 PROCEDURE solve_lgp (P_constraints IN NUMBER,
40 P_variables IN NUMBER,
41 P_matrix IN matrix,
42 P_reenter IN row,
43 P_basic IN row,
44 X_matrix OUT NOCOPY matrix,
45 X_basic OUT NOCOPY row,
46 X_return OUT NOCOPY NUMBER);
47
48 END GMD_LCF_ENGINE;