4228: ,p_segment_name IN VARCHAR2
4229: ,p_attr_value IN VARCHAR2
4230: ) RETURN VARCHAR2 IS
4231:
4232: Vset FND_VSET.valueset_r;
4233: Fmt FND_VSET.valueset_dr;
4234:
4235: Found BOOLEAN;
4236: Row NUMBER;
4229: ,p_attr_value IN VARCHAR2
4230: ) RETURN VARCHAR2 IS
4231:
4232: Vset FND_VSET.valueset_r;
4233: Fmt FND_VSET.valueset_dr;
4234:
4235: Found BOOLEAN;
4236: Row NUMBER;
4237: Value FND_VSET.value_dr;
4233: Fmt FND_VSET.valueset_dr;
4234:
4235: Found BOOLEAN;
4236: Row NUMBER;
4237: Value FND_VSET.value_dr;
4238:
4239:
4240:
4241: x_Format_Type Varchar2(1);
4257: --fnd_message.show;
4258:
4259: IF x_Validation_Type In('F' ,'I') AND x_Vsid IS NOT NULL THEN
4260: IF x_Validation_Type = 'I' THEN --Added for 2332139
4261: FND_VSET.get_valueset(x_Vsid,Vset,Fmt);
4262: FND_VSET.get_value_init(Vset,TRUE);
4263: FND_VSET.get_value(Vset,Row,Found,Value);
4264:
4265: IF Fmt.Has_Id Then --id is defined.Hence compare for id
4258:
4259: IF x_Validation_Type In('F' ,'I') AND x_Vsid IS NOT NULL THEN
4260: IF x_Validation_Type = 'I' THEN --Added for 2332139
4261: FND_VSET.get_valueset(x_Vsid,Vset,Fmt);
4262: FND_VSET.get_value_init(Vset,TRUE);
4263: FND_VSET.get_value(Vset,Row,Found,Value);
4264:
4265: IF Fmt.Has_Id Then --id is defined.Hence compare for id
4266:
4259: IF x_Validation_Type In('F' ,'I') AND x_Vsid IS NOT NULL THEN
4260: IF x_Validation_Type = 'I' THEN --Added for 2332139
4261: FND_VSET.get_valueset(x_Vsid,Vset,Fmt);
4262: FND_VSET.get_value_init(Vset,TRUE);
4263: FND_VSET.get_value(Vset,Row,Found,Value);
4264:
4265: IF Fmt.Has_Id Then --id is defined.Hence compare for id
4266:
4267: While(Found) Loop
4274:
4275: x_attr_value_code := Value.Value;
4276: RETURN x_attr_value_code;
4277: End If;
4278: FND_VSET.get_value(Vset,Row,Found,Value);
4279:
4280: End Loop;
4281:
4282: Else
4291:
4292: x_attr_value_code := p_attr_value;
4293: RETURN x_attr_value_code;
4294: End If;
4295: FND_VSET.get_value(Vset,Row,Found,Value);
4296:
4297: End Loop;
4298:
4299: End If; -- end of Fmt.Has_Id
4297: End Loop;
4298:
4299: End If; -- end of Fmt.Has_Id
4300:
4301: FND_VSET.get_value_end(Vset);
4302:
4303: /* Added for 2332139 */
4304:
4305: ELSIF x_Validation_Type='F' THEN
4302:
4303: /* Added for 2332139 */
4304:
4305: ELSIF x_Validation_Type='F' THEN
4306: FND_VSET.get_valueset(x_Vsid,Vset,Fmt);
4307:
4308: IF (QP_UTIL.value_exists_in_table(Vset.table_info,
4309: p_attr_value,l_id,l_value)) THEN
4310: