1987:
1988:
1989: BEGIN
1990:
1991: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Concurrent program ARHCRTHI - Convert relationship type to hierarchical.');
1992: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1988:
1989: BEGIN
1990:
1991: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Concurrent program ARHCRTHI - Convert relationship type to hierarchical.');
1992: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1996: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Include unrelated entities : '||p_incl_unrelated_entities);
1989: BEGIN
1990:
1991: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Concurrent program ARHCRTHI - Convert relationship type to hierarchical.');
1992: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1996: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Include unrelated entities : '||p_incl_unrelated_entities);
1997: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1990:
1991: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Concurrent program ARHCRTHI - Convert relationship type to hierarchical.');
1992: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1996: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Include unrelated entities : '||p_incl_unrelated_entities);
1997: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1998:
1991: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Concurrent program ARHCRTHI - Convert relationship type to hierarchical.');
1992: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1996: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Include unrelated entities : '||p_incl_unrelated_entities);
1997: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1998:
1999: -- get all the relationships for this relationship type
1992: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1996: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Include unrelated entities : '||p_incl_unrelated_entities);
1997: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1998:
1999: -- get all the relationships for this relationship type
2000: OPEN c1;
1993: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Options - ');
1994: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship type : '||p_rel_type);
1995: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent allowed : '||p_multi_parent_allowed);
1996: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Include unrelated entities : '||p_incl_unrelated_entities);
1997: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
1998:
1999: -- get all the relationships for this relationship type
2000: OPEN c1;
2001: FETCH c1 INTO r1;
2048: -- no parent found, proceed
2049: NULL;
2050: WHEN TOO_MANY_ROWS then
2051: -- there is already a parent, so raise error
2052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2053: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent found for the following child :');
2054: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Child ID : '||l_child_id);
2055: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Chiild Type : '||l_child_object_type);
2056: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2049: NULL;
2050: WHEN TOO_MANY_ROWS then
2051: -- there is already a parent, so raise error
2052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2053: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent found for the following child :');
2054: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Child ID : '||l_child_id);
2055: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Chiild Type : '||l_child_object_type);
2056: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2057: l_conc_status := 'E';
2050: WHEN TOO_MANY_ROWS then
2051: -- there is already a parent, so raise error
2052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2053: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent found for the following child :');
2054: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Child ID : '||l_child_id);
2055: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Chiild Type : '||l_child_object_type);
2056: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2057: l_conc_status := 'E';
2058: EXIT;
2051: -- there is already a parent, so raise error
2052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2053: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent found for the following child :');
2054: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Child ID : '||l_child_id);
2055: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Chiild Type : '||l_child_object_type);
2056: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2057: l_conc_status := 'E';
2058: EXIT;
2059: END;
2052: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2053: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Multiple parent found for the following child :');
2054: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Child ID : '||l_child_id);
2055: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Chiild Type : '||l_child_object_type);
2056: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2057: l_conc_status := 'E';
2058: EXIT;
2059: END;
2060: END IF;
2075: l_temp_parent_table_name := r_parent.subject_table_name;
2076: l_temp_parent_object_type := r_parent.subject_type;
2077: END IF;
2078: IF l_temp_parent_id = l_child_id THEN
2079: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2080: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Circularity exists for the following relationship record : ');
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2076: l_temp_parent_object_type := r_parent.subject_type;
2077: END IF;
2078: IF l_temp_parent_id = l_child_id THEN
2079: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2080: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Circularity exists for the following relationship record : ');
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2077: END IF;
2078: IF l_temp_parent_id = l_child_id THEN
2079: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2080: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Circularity exists for the following relationship record : ');
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2085: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship Code : '||r1.relationship_code);
2078: IF l_temp_parent_id = l_child_id THEN
2079: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2080: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Circularity exists for the following relationship record : ');
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2085: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship Code : '||r1.relationship_code);
2086: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2079: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2080: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Circularity exists for the following relationship record : ');
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2085: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship Code : '||r1.relationship_code);
2086: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2087: l_conc_status := 'E';
2080: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Circularity exists for the following relationship record : ');
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2085: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship Code : '||r1.relationship_code);
2086: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2087: l_conc_status := 'E';
2088: CLOSE c_parent;
2081: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject ID : '||r1.subject_id);
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2085: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship Code : '||r1.relationship_code);
2086: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2087: l_conc_status := 'E';
2088: CLOSE c_parent;
2089: EXIT;
2082: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Subject Type : '||r1.subject_type);
2083: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object ID : '||r1.object_id);
2084: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Object Type : '||r1.object_type);
2085: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Relationship Code : '||r1.relationship_code);
2086: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2087: l_conc_status := 'E';
2088: CLOSE c_parent;
2089: EXIT;
2090: END IF;
2152: CLOSE c1;
2153:
2154: IF l_conc_status = 'E' THEN
2155: ROLLBACK;
2156: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2157: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Conversion of relationship type to hierarchical failed. ');
2158: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2159: ELSE
2160: UPDATE HZ_RELATIONSHIP_TYPES
2153:
2154: IF l_conc_status = 'E' THEN
2155: ROLLBACK;
2156: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2157: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Conversion of relationship type to hierarchical failed. ');
2158: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2159: ELSE
2160: UPDATE HZ_RELATIONSHIP_TYPES
2161: SET HIERARCHICAL_FLAG = 'Y',
2154: IF l_conc_status = 'E' THEN
2155: ROLLBACK;
2156: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2157: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Conversion of relationship type to hierarchical failed. ');
2158: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2159: ELSE
2160: UPDATE HZ_RELATIONSHIP_TYPES
2161: SET HIERARCHICAL_FLAG = 'Y',
2162: MULTIPLE_PARENT_ALLOWED = NVL(p_multi_parent_allowed, 'N'),
2162: MULTIPLE_PARENT_ALLOWED = NVL(p_multi_parent_allowed, 'N'),
2163: INCL_UNRELATED_ENTITIES = NVL(p_incl_unrelated_entities, 'N')
2164: WHERE RELATIONSHIP_TYPE = p_rel_type;
2165:
2166: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2167: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Successfully converted relationship type to hierarchical. ');
2168: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2169: COMMIT;
2170: END IF;
2163: INCL_UNRELATED_ENTITIES = NVL(p_incl_unrelated_entities, 'N')
2164: WHERE RELATIONSHIP_TYPE = p_rel_type;
2165:
2166: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2167: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Successfully converted relationship type to hierarchical. ');
2168: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2169: COMMIT;
2170: END IF;
2171:
2164: WHERE RELATIONSHIP_TYPE = p_rel_type;
2165:
2166: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2167: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Successfully converted relationship type to hierarchical. ');
2168: FND_FILE.PUT_LINE (FND_FILE.LOG, ' ');
2169: COMMIT;
2170: END IF;
2171:
2172: END convert_rel_type;