[Home] [Help]
51: l_rule VARCHAR2(1);
52: l_status VARCHAR2(10);
53: l_dup_var BOOLEAN;
54: l_error_code IGS_AD_EMP_INT.Error_Code%TYPE;
55: l_sequence_number IGS_PE_PERSON_ALIAS.SEQUENCE_NUMBER%TYPE;
56: l_processed_records NUMBER(5) := 0;
57: l_prog_label VARCHAR2(4000);
58: l_label VARCHAR2(4000);
59: l_debug_str VARCHAR2(4000);
133: AS
134:
135: -- Code added by Nshee as part of import process testing after verifying from DLDv1.8 on 27-FEB-01
136: CURSOR c_person_alias_seq_number_s IS
137: SELECT IGS_PE_PERSON_ALIAS_SEQ_NUM_S.NEXTVAL FROM dual;
138: l_person_alias_seq_number IGS_PE_PERSON_ALIAS.SEQUENCE_NUMBER%TYPE;
139: --End of code addition by nshee
140:
141: l_var VARCHAR2(1);
134:
135: -- Code added by Nshee as part of import process testing after verifying from DLDv1.8 on 27-FEB-01
136: CURSOR c_person_alias_seq_number_s IS
137: SELECT IGS_PE_PERSON_ALIAS_SEQ_NUM_S.NEXTVAL FROM dual;
138: l_person_alias_seq_number IGS_PE_PERSON_ALIAS.SEQUENCE_NUMBER%TYPE;
139: --End of code addition by nshee
140:
141: l_var VARCHAR2(1);
142: l_rowid VARCHAR2(25);
167: END IF;
168: --End of code addition by nshee
169: IF l_error_code IS NULL THEN
170:
171: Igs_Pe_Person_Alias_Pkg.INSERT_ROW (
172: X_ROWID => l_rowid,
173: X_PERSON_ID => PERSON_ALIAS_REC.PERSON_ID,
174: X_ALIAS_TYPE => PERSON_ALIAS_REC.ALIAS_TYPE,
175: -- X_SEQUENCE_NUMBER => NULL,--PERSON_ALIAS_REC.SEQUENCE_NUMBER,--commented by nshee
220: -- END OF LOCAL PROCEDURE
221:
222: BEGIN
223: -- For every record check whether a corresponding row already exists
224: -- in the table IGS_PE_PERSON_ALIAS
225: -- Update of person alias is removed because there is no primary key based on which the record
226: -- present can be obtained because duplicate records can be created in form.
227: l_enable_log := igs_ad_imp_001.g_enable_log;
228: l_prog_label := 'igs.plsql.igs_ad_imp_006.prc_pe_alias';