16: x_id OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
17: x_format_type OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
18:
19: IS
20: vset FND_VSET.valueset_r;
21: fmt FND_VSET.valueset_dr;
22: found BOOLEAN;
23: row NUMBER;
24: value FND_VSET.value_dr;
17: x_format_type OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
18:
19: IS
20: vset FND_VSET.valueset_r;
21: fmt FND_VSET.valueset_dr;
22: found BOOLEAN;
23: row NUMBER;
24: value FND_VSET.value_dr;
25:
20: vset FND_VSET.valueset_r;
21: fmt FND_VSET.valueset_dr;
22: found BOOLEAN;
23: row NUMBER;
24: value FND_VSET.value_dr;
25:
26: x_vsid NUMBER;
27: x_validation_type VARCHAR2(1);
28:
29: BEGIN
30: QP_UTIL.Get_Valueset_Id(p_flexfield_name, p_context, p_segment,
31: x_vsid, x_format_type, x_validation_type);
32:
33: FND_VSET.get_valueset(x_vsid, vset, fmt);
34:
35: FND_VSET.get_value_init(vset, TRUE);
36: FND_VSET.get_value(vset, row, found, value);
37:
31: x_vsid, x_format_type, x_validation_type);
32:
33: FND_VSET.get_valueset(x_vsid, vset, fmt);
34:
35: FND_VSET.get_value_init(vset, TRUE);
36: FND_VSET.get_value(vset, row, found, value);
37:
38: WHILE (found) LOOP
39: IF ltrim(rtrim(value.value)) = p_value
32:
33: FND_VSET.get_valueset(x_vsid, vset, fmt);
34:
35: FND_VSET.get_value_init(vset, TRUE);
36: FND_VSET.get_value(vset, row, found, value);
37:
38: WHILE (found) LOOP
39: IF ltrim(rtrim(value.value)) = p_value
40: THEN
49: EXIT;
50:
51: END IF; -- If value.meaning or value.value matches with p_meaning
52:
53: FND_VSET.get_value(vset, row, found, value);
54: END LOOP;
55:
56: FND_VSET.get_value_end(vset);
57:
52:
53: FND_VSET.get_value(vset, row, found, value);
54: END LOOP;
55:
56: FND_VSET.get_value_end(vset);
57:
58: x_value := p_meaning; --If a match is not found in the valueset.
59:
60: EXCEPTION
4944: x_id OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4945: x_format_type OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
4946:
4947: IS
4948: vset FND_VSET.valueset_r;
4949: fmt FND_VSET.valueset_dr;
4950: found BOOLEAN;
4951: row NUMBER;
4952: value FND_VSET.value_dr;
4945: x_format_type OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
4946:
4947: IS
4948: vset FND_VSET.valueset_r;
4949: fmt FND_VSET.valueset_dr;
4950: found BOOLEAN;
4951: row NUMBER;
4952: value FND_VSET.value_dr;
4953:
4948: vset FND_VSET.valueset_r;
4949: fmt FND_VSET.valueset_dr;
4950: found BOOLEAN;
4951: row NUMBER;
4952: value FND_VSET.value_dr;
4953:
4954: x_vsid NUMBER;
4955: x_validation_type VARCHAR2(1);
4956:
4958:
4959: QP_UTIL.Get_Valueset_Id(p_flexfield_name, p_context, p_segment,
4960: x_vsid, x_format_type, x_validation_type);
4961:
4962: FND_VSET.get_valueset(x_vsid, vset, fmt);
4963: FND_VSET.get_value_init(vset, TRUE);
4964: FND_VSET.get_value(vset, row, found, value);
4965:
4966: WHILE (found) LOOP
4959: QP_UTIL.Get_Valueset_Id(p_flexfield_name, p_context, p_segment,
4960: x_vsid, x_format_type, x_validation_type);
4961:
4962: FND_VSET.get_valueset(x_vsid, vset, fmt);
4963: FND_VSET.get_value_init(vset, TRUE);
4964: FND_VSET.get_value(vset, row, found, value);
4965:
4966: WHILE (found) LOOP
4967: IF (fmt.has_meaning AND
4960: x_vsid, x_format_type, x_validation_type);
4961:
4962: FND_VSET.get_valueset(x_vsid, vset, fmt);
4963: FND_VSET.get_value_init(vset, TRUE);
4964: FND_VSET.get_value(vset, row, found, value);
4965:
4966: WHILE (found) LOOP
4967: IF (fmt.has_meaning AND
4968: ltrim(rtrim(value.meaning)) = ltrim(rtrim(p_meaning))
4980: EXIT;
4981:
4982: END IF; -- If value.meaning or value.value matches with p_meaning
4983:
4984: FND_VSET.get_value(vset, row, found, value);
4985: END LOOP;
4986:
4987: FND_VSET.get_value_end(vset);
4988:
4983:
4984: FND_VSET.get_value(vset, row, found, value);
4985: END LOOP;
4986:
4987: FND_VSET.get_value_end(vset);
4988:
4989: x_value := p_meaning; --If a match is not found in the valueset.
4990:
4991: EXCEPTION