7: p_unit_cd IN VARCHAR2 ,
8: p_version_number IN NUMBER ,
9: p_message_name OUT NOCOPY VARCHAR2 )
10: RETURN BOOLEAN AS
11: v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
12: CURSOR c_get_s_unit_status IS
13: SELECT s_unit_status
14: FROM IGS_PS_UNIT_VER,
15: IGS_PS_UNIT_STAT
11: v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
12: CURSOR c_get_s_unit_status IS
13: SELECT s_unit_status
14: FROM IGS_PS_UNIT_VER,
15: IGS_PS_UNIT_STAT
16: WHERE unit_cd = p_unit_cd AND
17: version_number = p_version_number AND
18: IGS_PS_UNIT_VER.unit_status = IGS_PS_UNIT_STAT.unit_status;
19: BEGIN
14: FROM IGS_PS_UNIT_VER,
15: IGS_PS_UNIT_STAT
16: WHERE unit_cd = p_unit_cd AND
17: version_number = p_version_number AND
18: IGS_PS_UNIT_VER.unit_status = IGS_PS_UNIT_STAT.unit_status;
19: BEGIN
20: -- validate whether or not inserts and updates can be made
21: -- to IGS_PS_UNIT version detail record.
22: p_message_name := NULL;