64:
65: -- initialize API return status to success.
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67: /* Beginnig of the dynamic package generation*/
68: HZ_GEN_PLSQL.new('HZ_PURGE_GEN', 'PACKAGE BODY');
69: HZ_GEN_PLSQL.add_line('CREATE OR REPLACE PACKAGE BODY HZ_PURGE_GEN AS');
70: HZ_GEN_PLSQL.add_line('PROCEDURE IDENTIFY_CANDIDATES(p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
71: x_return_status OUT NOCOPY VARCHAR2,
72: x_msg_count OUT NOCOPY NUMBER,
65: -- initialize API return status to success.
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67: /* Beginnig of the dynamic package generation*/
68: HZ_GEN_PLSQL.new('HZ_PURGE_GEN', 'PACKAGE BODY');
69: HZ_GEN_PLSQL.add_line('CREATE OR REPLACE PACKAGE BODY HZ_PURGE_GEN AS');
70: HZ_GEN_PLSQL.add_line('PROCEDURE IDENTIFY_CANDIDATES(p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
71: x_return_status OUT NOCOPY VARCHAR2,
72: x_msg_count OUT NOCOPY NUMBER,
73: x_msg_data OUT NOCOPY VARCHAR2,
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67: /* Beginnig of the dynamic package generation*/
68: HZ_GEN_PLSQL.new('HZ_PURGE_GEN', 'PACKAGE BODY');
69: HZ_GEN_PLSQL.add_line('CREATE OR REPLACE PACKAGE BODY HZ_PURGE_GEN AS');
70: HZ_GEN_PLSQL.add_line('PROCEDURE IDENTIFY_CANDIDATES(p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
71: x_return_status OUT NOCOPY VARCHAR2,
72: x_msg_count OUT NOCOPY NUMBER,
73: x_msg_data OUT NOCOPY VARCHAR2,
74: check_flag boolean, con_prg boolean, regid_proc boolean) IS');
71: x_return_status OUT NOCOPY VARCHAR2,
72: x_msg_count OUT NOCOPY NUMBER,
73: x_msg_data OUT NOCOPY VARCHAR2,
74: check_flag boolean, con_prg boolean, regid_proc boolean) IS');
75: HZ_GEN_PLSQL.add_line('appid number;');
76: HZ_GEN_PLSQL.add_line('sql_count number;');
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
72: x_msg_count OUT NOCOPY NUMBER,
73: x_msg_data OUT NOCOPY VARCHAR2,
74: check_flag boolean, con_prg boolean, regid_proc boolean) IS');
75: HZ_GEN_PLSQL.add_line('appid number;');
76: HZ_GEN_PLSQL.add_line('sql_count number;');
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
73: x_msg_data OUT NOCOPY VARCHAR2,
74: check_flag boolean, con_prg boolean, regid_proc boolean) IS');
75: HZ_GEN_PLSQL.add_line('appid number;');
76: HZ_GEN_PLSQL.add_line('sql_count number;');
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
74: check_flag boolean, con_prg boolean, regid_proc boolean) IS');
75: HZ_GEN_PLSQL.add_line('appid number;');
76: HZ_GEN_PLSQL.add_line('sql_count number;');
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
75: HZ_GEN_PLSQL.add_line('appid number;');
76: HZ_GEN_PLSQL.add_line('sql_count number;');
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
76: HZ_GEN_PLSQL.add_line('sql_count number;');
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
77: HZ_GEN_PLSQL.add_line('total_parties number;');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
78: HZ_GEN_PLSQL.add_line('parties_count1 number;');
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
79: HZ_GEN_PLSQL.add_line('parties_count2 number;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
80: HZ_GEN_PLSQL.add_line('single_party number;');
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
88:
81: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
88:
89: -- initialize message list if p_init_msg_list is set to TRUE.
82: HZ_GEN_PLSQL.ADD_LINE('cursor repopulate is');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
88:
89: -- initialize message list if p_init_msg_list is set to TRUE.
90: HZ_GEN_PLSQL.add_line('IF FND_API.to_Boolean(p_init_msg_list) THEN');
83: HZ_GEN_PLSQL.ADD_LINE('select party_id from hz_purge_gt;');
84: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
85: HZ_GEN_PLSQL.add_line('BEGIN');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
88:
89: -- initialize message list if p_init_msg_list is set to TRUE.
90: HZ_GEN_PLSQL.add_line('IF FND_API.to_Boolean(p_init_msg_list) THEN');
91: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.initialize;');
86: HZ_GEN_PLSQL.add_line(fnd_global.local_chr(10));
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
88:
89: -- initialize message list if p_init_msg_list is set to TRUE.
90: HZ_GEN_PLSQL.add_line('IF FND_API.to_Boolean(p_init_msg_list) THEN');
91: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.initialize;');
92: HZ_GEN_PLSQL.add_line('END IF;');
93:
94: -- initialize API return status to success.
87: HZ_GEN_PLSQL.add_line('SAVEPOINT identify_candidates;');
88:
89: -- initialize message list if p_init_msg_list is set to TRUE.
90: HZ_GEN_PLSQL.add_line('IF FND_API.to_Boolean(p_init_msg_list) THEN');
91: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.initialize;');
92: HZ_GEN_PLSQL.add_line('END IF;');
93:
94: -- initialize API return status to success.
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
88:
89: -- initialize message list if p_init_msg_list is set to TRUE.
90: HZ_GEN_PLSQL.add_line('IF FND_API.to_Boolean(p_init_msg_list) THEN');
91: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.initialize;');
92: HZ_GEN_PLSQL.add_line('END IF;');
93:
94: -- initialize API return status to success.
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
96: HZ_GEN_PLSQL.add_line('delete from hz_application_trans_gt; ');
91: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.initialize;');
92: HZ_GEN_PLSQL.add_line('END IF;');
93:
94: -- initialize API return status to success.
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
96: HZ_GEN_PLSQL.add_line('delete from hz_application_trans_gt; ');
97: HZ_GEN_PLSQL.add_line('open repopulate;');
98: HZ_GEN_PLSQL.add_line('fetch repopulate into single_party;');
99: HZ_GEN_PLSQL.add_line('close repopulate;');
92: HZ_GEN_PLSQL.add_line('END IF;');
93:
94: -- initialize API return status to success.
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
96: HZ_GEN_PLSQL.add_line('delete from hz_application_trans_gt; ');
97: HZ_GEN_PLSQL.add_line('open repopulate;');
98: HZ_GEN_PLSQL.add_line('fetch repopulate into single_party;');
99: HZ_GEN_PLSQL.add_line('close repopulate;');
100: populate_fk_datatype;
93:
94: -- initialize API return status to success.
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
96: HZ_GEN_PLSQL.add_line('delete from hz_application_trans_gt; ');
97: HZ_GEN_PLSQL.add_line('open repopulate;');
98: HZ_GEN_PLSQL.add_line('fetch repopulate into single_party;');
99: HZ_GEN_PLSQL.add_line('close repopulate;');
100: populate_fk_datatype;
101: -- open cursor to get each application id
94: -- initialize API return status to success.
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
96: HZ_GEN_PLSQL.add_line('delete from hz_application_trans_gt; ');
97: HZ_GEN_PLSQL.add_line('open repopulate;');
98: HZ_GEN_PLSQL.add_line('fetch repopulate into single_party;');
99: HZ_GEN_PLSQL.add_line('close repopulate;');
100: populate_fk_datatype;
101: -- open cursor to get each application id
102: OPEN app_id;
95: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_SUCCESS;');
96: HZ_GEN_PLSQL.add_line('delete from hz_application_trans_gt; ');
97: HZ_GEN_PLSQL.add_line('open repopulate;');
98: HZ_GEN_PLSQL.add_line('fetch repopulate into single_party;');
99: HZ_GEN_PLSQL.add_line('close repopulate;');
100: populate_fk_datatype;
101: -- open cursor to get each application id
102: OPEN app_id;
103: LOOP
146: end if;
147:
148: if (s1 is not null) then
149: stmt1:= stmt1||fnd_global.local_chr(10)||s1;
150: HZ_GEN_PLSQL.ADD_LINE('--delete and insert records into hz_purge_gt for an application');
151: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
152: stmt3:= 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp where ';
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
147:
148: if (s1 is not null) then
149: stmt1:= stmt1||fnd_global.local_chr(10)||s1;
150: HZ_GEN_PLSQL.ADD_LINE('--delete and insert records into hz_purge_gt for an application');
151: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
152: stmt3:= 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp where ';
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
149: stmt1:= stmt1||fnd_global.local_chr(10)||s1;
150: HZ_GEN_PLSQL.ADD_LINE('--delete and insert records into hz_purge_gt for an application');
151: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
152: stmt3:= 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp where ';
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
150: HZ_GEN_PLSQL.ADD_LINE('--delete and insert records into hz_purge_gt for an application');
151: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
152: stmt3:= 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp where ';
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
158:
151: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
152: stmt3:= 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp where ';
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
158:
159: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
152: stmt3:= 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp where ';
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
158:
159: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
160: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
153: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
154: HZ_GEN_PLSQL.ADD_LINE(stmt3||fnd_global.local_chr(10)||s1||';');
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
158:
159: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
160: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
161: end if;
155: HZ_GEN_PLSQL.ADD_LINE(' else ');
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
158:
159: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
160: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
161: end if;
162: id := 1;
163: s1 := null;
156: HZ_GEN_PLSQL.ADD_LINE(stmt1||';');
157: HZ_GEN_PLSQL.ADD_LINE('end if;');
158:
159: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
160: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
161: end if;
162: id := 1;
163: s1 := null;
164: stmt1 := 'delete from hz_purge_gt temp where ';
182: --dbms_output.put_line('non indexed entity='||e1||',column='||fk1||'parent='||pe1);
183: cnt :=1;
184: delete_template(e1, fk1, pk1, j1, pe1, fk_data_typ1,'FALSE', s2,cnt);
185: if(s2 is not NULL) then
186: HZ_GEN_PLSQL.add_line('--'||e1||';'||fk1);
187: stmt4 := 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp ';
188: stmt5 := ' where not exists(select ''Y'' from hz_application_trans_gt appl where appl.app_id = '||appid||' and appl.party_id=temp.party_id) and ';
189: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
185: if(s2 is not NULL) then
186: HZ_GEN_PLSQL.add_line('--'||e1||';'||fk1);
187: stmt4 := 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp ';
188: stmt5 := ' where not exists(select ''Y'' from hz_application_trans_gt appl where appl.app_id = '||appid||' and appl.party_id=temp.party_id) and ';
189: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
186: HZ_GEN_PLSQL.add_line('--'||e1||';'||fk1);
187: stmt4 := 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp ';
188: stmt5 := ' where not exists(select ''Y'' from hz_application_trans_gt appl where appl.app_id = '||appid||' and appl.party_id=temp.party_id) and ';
189: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
194: HZ_GEN_PLSQL.add_line(stmt2||s2||';');
187: stmt4 := 'insert into hz_application_trans_gt(app_id,party_id) select '||appid||', temp.party_id from hz_purge_gt temp ';
188: stmt5 := ' where not exists(select ''Y'' from hz_application_trans_gt appl where appl.app_id = '||appid||' and appl.party_id=temp.party_id) and ';
189: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
194: HZ_GEN_PLSQL.add_line(stmt2||s2||';');
195: HZ_GEN_PLSQL.ADD_LINE('end if;');
188: stmt5 := ' where not exists(select ''Y'' from hz_application_trans_gt appl where appl.app_id = '||appid||' and appl.party_id=temp.party_id) and ';
189: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
194: HZ_GEN_PLSQL.add_line(stmt2||s2||';');
195: HZ_GEN_PLSQL.ADD_LINE('end if;');
196:
189: HZ_GEN_PLSQL.ADD_LINE('appid:='||appid||';');
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
194: HZ_GEN_PLSQL.add_line(stmt2||s2||';');
195: HZ_GEN_PLSQL.ADD_LINE('end if;');
196:
197: end if;
190: --HZ_GEN_PLSQL.ADD_LINE('HZ_PURGE.post_app_logic(appid,single_party,check_flag);');
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
194: HZ_GEN_PLSQL.add_line(stmt2||s2||';');
195: HZ_GEN_PLSQL.ADD_LINE('end if;');
196:
197: end if;
198: end if;
191: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
192: HZ_GEN_PLSQL.ADD_LINE(stmt4||stmt5||fnd_global.local_chr(10)||s2||';');
193: HZ_GEN_PLSQL.ADD_LINE(' else ');
194: HZ_GEN_PLSQL.add_line(stmt2||s2||';');
195: HZ_GEN_PLSQL.ADD_LINE('end if;');
196:
197: end if;
198: end if;
199: end loop;
200: close x1;
201: end if;
202: END LOOP;
203: CLOSE app_id;
204: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
205: HZ_GEN_PLSQL.ADD_LINE('delete from hz_purge_gt temp where temp.party_id in (select appl.party_id from hz_application_trans_gt appl) ;');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
201: end if;
202: END LOOP;
203: CLOSE app_id;
204: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
205: HZ_GEN_PLSQL.ADD_LINE('delete from hz_purge_gt temp where temp.party_id in (select appl.party_id from hz_application_trans_gt appl) ;');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
202: END LOOP;
203: CLOSE app_id;
204: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
205: HZ_GEN_PLSQL.ADD_LINE('delete from hz_purge_gt temp where temp.party_id in (select appl.party_id from hz_application_trans_gt appl) ;');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
203: CLOSE app_id;
204: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
205: HZ_GEN_PLSQL.ADD_LINE('delete from hz_purge_gt temp where temp.party_id in (select appl.party_id from hz_application_trans_gt appl) ;');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
204: HZ_GEN_PLSQL.ADD_LINE(' if(regid_proc = true) then ');
205: HZ_GEN_PLSQL.ADD_LINE('delete from hz_purge_gt temp where temp.party_id in (select appl.party_id from hz_application_trans_gt appl) ;');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
205: HZ_GEN_PLSQL.ADD_LINE('delete from hz_purge_gt temp where temp.party_id in (select appl.party_id from hz_application_trans_gt appl) ;');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
206: HZ_GEN_PLSQL.ADD_LINE('end if;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
214: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.ADD;');
207: HZ_GEN_PLSQL.ADD_LINE(fnd_global.local_chr(10));
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
214: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.ADD;');
215:
208: HZ_GEN_PLSQL.add_line('EXCEPTION');
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
214: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.ADD;');
215:
216: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.Count_And_Get(
209: HZ_GEN_PLSQL.add_line('WHEN OTHERS THEN');
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
214: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.ADD;');
215:
216: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.Count_And_Get(
217: p_encoded => FND_API.G_FALSE,
210: HZ_GEN_PLSQL.add_line('ROLLBACK to identify_candidates;');
211: HZ_GEN_PLSQL.add_line('x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;');
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
214: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.ADD;');
215:
216: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.Count_And_Get(
217: p_encoded => FND_API.G_FALSE,
218: p_count => x_msg_count,
212: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_NAME( ''AR'', ''HZ_API_OTHERS_EXCEP'' );');
213: HZ_GEN_PLSQL.add_line('FND_MESSAGE.SET_TOKEN( ''ERROR'' ,SQLERRM );');
214: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.ADD;');
215:
216: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.Count_And_Get(
217: p_encoded => FND_API.G_FALSE,
218: p_count => x_msg_count,
219: p_data => x_msg_data );');
220: HZ_GEN_PLSQL.add_line('RAISE FND_API.G_EXC_ERROR;');
216: HZ_GEN_PLSQL.add_line('FND_MSG_PUB.Count_And_Get(
217: p_encoded => FND_API.G_FALSE,
218: p_count => x_msg_count,
219: p_data => x_msg_data );');
220: HZ_GEN_PLSQL.add_line('RAISE FND_API.G_EXC_ERROR;');
221:
222: HZ_GEN_PLSQL.add_line('END IDENTIFY_CANDIDATES;');
223:
224: HZ_GEN_PLSQL.add_line('END HZ_PURGE_GEN;');
218: p_count => x_msg_count,
219: p_data => x_msg_data );');
220: HZ_GEN_PLSQL.add_line('RAISE FND_API.G_EXC_ERROR;');
221:
222: HZ_GEN_PLSQL.add_line('END IDENTIFY_CANDIDATES;');
223:
224: HZ_GEN_PLSQL.add_line('END HZ_PURGE_GEN;');
225: HZ_GEN_PLSQL.compile_code;
226:
220: HZ_GEN_PLSQL.add_line('RAISE FND_API.G_EXC_ERROR;');
221:
222: HZ_GEN_PLSQL.add_line('END IDENTIFY_CANDIDATES;');
223:
224: HZ_GEN_PLSQL.add_line('END HZ_PURGE_GEN;');
225: HZ_GEN_PLSQL.compile_code;
226:
227:
228: -- standard call to get message count and if count is 1, get message info.
221:
222: HZ_GEN_PLSQL.add_line('END IDENTIFY_CANDIDATES;');
223:
224: HZ_GEN_PLSQL.add_line('END HZ_PURGE_GEN;');
225: HZ_GEN_PLSQL.compile_code;
226:
227:
228: -- standard call to get message count and if count is 1, get message info.
229: FND_MSG_PUB.Count_And_Get(