[Home] [Help]
86: END disable_debug;
87: */
88:
89:
90: /* Validate desc flexfield HZ_RELATIONSHIPS. Used only when updating
91: parties. If invalid, set l_flex_val_errors(i) to 1. Else do nothing. */
92: PROCEDURE validate_desc_flexfield(
93: p_validation_date IN DATE
94: ) IS
122: FND_FLEX_DESCVAL.set_column_value('ATTRIBUTE20', l_attr20(i));
123:
124: IF (NOT FND_FLEX_DESCVAL.validate_desccols(
125: 'AR',
126: 'HZ_RELATIONSHIPS',
127: 'V',
128: p_validation_date)) THEN
129: l_flex_val_errors(i) := 1;
130: END IF;
133:
134: END validate_desc_flexfield;
135:
136:
137: /* Validate desc flexfield HZ_RELATIONSHIPS. Used only when inserting
138: new parties because need to have a function to be called in MTI.
139: Returns Y if flexfield is valid. Returns null if invalid. */
140: FUNCTION validate_desc_flexfield_f(
141: p_attr_category IN VARCHAR2,
187: FND_FLEX_DESCVAL.set_column_value('ATTRIBUTE20', p_attr20);
188:
189: IF (FND_FLEX_DESCVAL.validate_desccols(
190: 'AR',
191: 'HZ_RELATIONSHIPS',
192: 'V',
193: p_validation_date)) THEN
194: return 'Y';
195: ELSE
216: FOR i IN 1..l_relationship_id.count LOOP
217: l_dss_security_errors(i) :=
218: hz_dss_util_pub.test_instance(
219: p_operation_code => 'UPDATE',
220: p_db_object_name => 'HZ_RELATIONSHIPS',
221: p_instance_pk1_value => l_relationship_id(i),
222: p_instance_pk2_value => 'F',
223: p_user_name => fnd_global.user_name,
224: x_return_status => dss_return_status,
335: nvl2(l_subject_id(j), 'Y', null), --HZ_IMP_REL_SUBJ_OBJ_ERROR,SUB_OR_OBJ,SUBJECT
336: nvl2(l_object_id(j), 'Y', null), --HZ_IMP_REL_SUBJ_OBJ_ERROR,SUB_OR_OBJ,OBJECT
337: decode(l_subject_id(j), null, 'Y',
338: decode(l_object_id(j), null, 'Y', nvl2(l_relationship_type(j), 'Y', null))), --HZ_IMP_REL_TYPE_ERROR
339: decode(l_flex_val_errors(j), 1, null, 'Y'), --AR_RAPI_DESC_FLEX_INVALID,DFF_NAME,HZ_RELATIONSHIPS
340: decode(l_dss_security_errors(j), FND_API.G_TRUE,'Y',null), --HZ_DSS_SECURITY_FAIL,USER_NAME,FND_GLOBAL.user_name,OPER_NAME,UPDATE,OBJECT_NAME,HZ_RELATIONSHIPS
341: 'Y',
342: nvl2(l_action_mismatch_errors(j), 'Y', null), --HZ_IMP_ACTION_MISMATCH
343: l_exception_exists(j)
336: nvl2(l_object_id(j), 'Y', null), --HZ_IMP_REL_SUBJ_OBJ_ERROR,SUB_OR_OBJ,OBJECT
337: decode(l_subject_id(j), null, 'Y',
338: decode(l_object_id(j), null, 'Y', nvl2(l_relationship_type(j), 'Y', null))), --HZ_IMP_REL_TYPE_ERROR
339: decode(l_flex_val_errors(j), 1, null, 'Y'), --AR_RAPI_DESC_FLEX_INVALID,DFF_NAME,HZ_RELATIONSHIPS
340: decode(l_dss_security_errors(j), FND_API.G_TRUE,'Y',null), --HZ_DSS_SECURITY_FAIL,USER_NAME,FND_GLOBAL.user_name,OPER_NAME,UPDATE,OBJECT_NAME,HZ_RELATIONSHIPS
341: 'Y',
342: nvl2(l_action_mismatch_errors(j), 'Y', null), --HZ_IMP_ACTION_MISMATCH
343: l_exception_exists(j)
344: from dual
507: ''A'',
508: 1,
509: ''N'',
510: :application_id)
511: into hz_relationships ( /* insert forward relationship */
512: actual_content_source,
513: application_id,
514: content_source_type,
515: created_by,
611: relationship_type,
612: 1, -- OBJECT_VERSION_NUMBER,
613: created_by_module,
614: direction_code)
615: into hz_relationships ( /* insert backward relationship */
616: actual_content_source,
617: application_id,
618: content_source_type,
619: created_by,
811: :request_id,
812: hz_party_usg_assignments_s.nextval,
813: decode(sp_type,''PERSON'',sub_id,obj_id),
814: ''ORG_CONTACT'',
815: ''HZ_RELATIONSHIPS'',
816: relationship_id,
817: start_date,
818: end_date,
819: ''A'',
864: :request_id,
865: hz_party_usg_assignments_s.nextval,
866: sub_id,
867: ''RELATED_PERSON'',
868: ''HZ_RELATIONSHIPS'',
869: relationship_id,
870: start_date,
871: end_date,
872: ''A'',
904: :request_id,
905: hz_party_usg_assignments_s.nextval+1,
906: obj_id,
907: ''RELATED_PERSON'',
908: ''HZ_RELATIONSHIPS'',
909: relationship_id,
910: start_date,
911: end_date,
912: ''A'',
1089: and irs.sub_orig_system_reference between :p_from_osr and :p_to_osr';
1090:
1091: l_insert_sql2 varchar2(4000) :=
1092: ' and tc.a = (select count(*)
1093: from hz_relationships r1
1094: where r1.subject_id = irs.sub_id
1095: and r1.subject_table_name = ''HZ_PARTIES''
1096: and r1.object_id = irs.obj_id
1097: and r1.relationship_type = ri.relationship_type
1264:
1265: IF P_DML_RECORD.OS = 'DNB' THEN
1266: /* End date old DNB parents */
1267:
1268: UPDATE /*+ index(r, hz_relationships_u1) */ hz_relationships r
1269: SET end_date = decode(TRUNC(start_date), TRUNC(p_dml_record.sysdate),
1270: TRUNC(p_dml_record.sysdate),
1271: TRUNC(p_dml_record.sysdate-1)),
1272: status = 'I',
1375: decode(nvl(ri.insert_update_flag, rs.action_flag), rs.action_flag, ''Y'', null) action_mismatch_error,
1376: 0 flex_val_errors,
1377: ''T'' dss_security_error
1378: FROM HZ_IMP_RELSHIPS_INT ri, HZ_IMP_RELSHIPS_SG rs,
1379: HZ_RELATIONSHIPS r
1380: WHERE
1381: ri.rowid = rs.int_row_id
1382: AND rs.relationship_id = r.relationship_id
1383: AND r.directional_flag = ''F''
1479: validate_DSS_security;
1480: END IF;
1481:
1482: /*************************************************/
1483: /*** Update HZ_RELATIONSHIPS (Both directions) ***/
1484: /*************************************************/
1485:
1486:
1487: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1491: END IF;
1492:
1493: /*
1494: Reason for disallowing update to start_date and end_date:
1495: Let's say in TCA in hz_relationships, there are 2 records
1496:
1497: Subj ID Obj ID Rel Type Rel Code Start Date End Date
1498: 1 2 abc xyz 01/01/01 01/20/01
1499: 1 2 abc xyz 02/01/01 02/20/01
1515: */
1516:
1517: BEGIN
1518: ForAll j in 1..l_relationship_id.count SAVE EXCEPTIONS
1519: update hz_relationships set
1520: /* Not allow update to start_date, end_date */
1521: LAST_UPDATED_BY = P_DML_RECORD.USER_ID,
1522: LAST_UPDATE_DATE = trunc(P_DML_RECORD.SYSDATE),
1523: LAST_UPDATE_LOGIN = P_DML_RECORD.LAST_UPDATE_LOGIN,