1 PACKAGE BODY IGS_CO_PRC_SP_MX AS
2 /* $Header: IGSCO04B.pls 115.3 2002/02/12 16:42:08 pkm ship $ */
3 -- Routine to retrieve splrg max value from a PL/SQL TABLE.
4 FUNCTION corp_get_splrg_max(
5 p_letter_repeating_group_cd IN VARCHAR2 )
6 RETURN NUMBER AS
7 v_index BINARY_INTEGER;
8 v_max_value NUMBER(3) := 0;
9 v_splrg_max_vals_rec t_splrg_max_rec;
10 BEGIN
11 -- Process saved values.
12 FOR v_index IN 1..gv_table_index - 1
13 LOOP
14 v_splrg_max_vals_rec := gt_splrg_table(v_index);
15 IF v_splrg_max_vals_rec.letter_repeating_group_cd =
16 p_letter_repeating_group_cd THEN
17 v_max_value := v_splrg_max_vals_rec.max_value;
18 END IF;
19 END LOOP;
20 RETURN(NVL(v_max_value, 0));
21 END corp_get_splrg_max;
22 --
23 -- Routine to save splrg max value in a PL/SQL TABLE.
24 PROCEDURE corp_set_splrg_max(
25 p_letter_repeating_group_cd IN VARCHAR2 ,
26 p_max_value IN NUMBER )
27 AS
28 v_splrg_max_vals_rec t_splrg_max_rec;
29 BEGIN
30 -- Save letter repeating group code and max value
31 v_splrg_max_vals_rec.letter_repeating_group_cd := p_letter_repeating_group_cd;
32 v_splrg_max_vals_rec.max_value := p_max_value;
33 gt_splrg_table(gv_table_index) := v_splrg_max_vals_rec;
34 gv_table_index := gv_table_index +1;
35 END corp_set_splrg_max;
36 --
37 -- Routine to initialise splrg max value from a PL/SQL TABLE.
38 PROCEDURE corp_prc_clear_splrg
39 AS
40 BEGIN
41 -- initialise
42 gt_splrg_table := gt_empty_table;
43 gv_table_index := 1;
44 END corp_prc_clear_splrg;
45 END IGS_CO_PRC_SP_MX;