66: *-------------------------------------------------------------------------*/
67: PROCEDURE Cleanup_Duplicate_Resources(
68: x_errbuf OUT NOCOPY VARCHAR2,
69: x_retcode OUT NOCOPY VARCHAR2,
70: p_terr_globals IN IEX_TERR_WINNERS_PUB.TERR_GLOBALS)
71: IS
72:
73: BEGIN
74: NULL;
73: BEGIN
74: NULL;
75: EXCEPTION
76: WHEN others THEN
77: IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in IEX_TERR_ASSIGNMENT_CLEANUP::Cleanup_Duplicate_Resources');
78: IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
79: ' SQLERRM: ' || SQLERRM);
80: x_errbuf := SQLERRM;
81: x_retcode := SQLCODE;
74: NULL;
75: EXCEPTION
76: WHEN others THEN
77: IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in IEX_TERR_ASSIGNMENT_CLEANUP::Cleanup_Duplicate_Resources');
78: IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
79: ' SQLERRM: ' || SQLERRM);
80: x_errbuf := SQLERRM;
81: x_retcode := SQLCODE;
82: RAISE;
98: *-------------------------------------------------------------------------*/
99: PROCEDURE Cleanup_Terrritory_Accesses(
100: x_errbuf OUT NOCOPY VARCHAR2,
101: x_retcode OUT NOCOPY VARCHAR2,
102: p_terr_globals IN IEX_TERR_WINNERS_PUB.TERR_GLOBALS)
103: IS
104: BEGIN
105: NULL;
106: END Cleanup_Terrritory_Accesses;
123:
124: PROCEDURE Perform_Account_Cleanup(
125: x_errbuf OUT NOCOPY VARCHAR2,
126: x_retcode OUT NOCOPY VARCHAR2,
127: p_terr_globals IN IEX_TERR_WINNERS_PUB.TERR_GLOBALS)
128: IS
129:
130: TYPE customer_id_list is TABLE of NUMBER INDEX BY BINARY_INTEGER;
131: l_customer_id customer_id_list;
154: FROM JTF_TAE_1001_ACCOUNT_TRANS
155: WHERE worker_id=c_worker_id;
156:
157: BEGIN
158: IEX_TERR_WINNERS_PUB.Print_Debug('*** iexttacb.pls::IEX_TERR_ASSIGNMENT_CLEANUP::Perform_Account_Cleanup() ***');
159:
160: /** Commented because we are not writing anything into as_access_all_all **/
161:
162: EXCEPTION
160: /** Commented because we are not writing anything into as_access_all_all **/
161:
162: EXCEPTION
163: WHEN others THEN
164: IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in IEX_TERR_ASSIGNMENT_CLEANUP::Perform_Account_Cleanup');
165: IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
166: ' SQLERRM: ' || SQLERRM);
167: x_errbuf := SQLERRM;
168: x_retcode := SQLCODE;
161:
162: EXCEPTION
163: WHEN others THEN
164: IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in IEX_TERR_ASSIGNMENT_CLEANUP::Perform_Account_Cleanup');
165: IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
166: ' SQLERRM: ' || SQLERRM);
167: x_errbuf := SQLERRM;
168: x_retcode := SQLCODE;
169: RAISE;
187:
188: PROCEDURE Perform_Chgd_Accts_Cleanup(
189: x_errbuf OUT NOCOPY VARCHAR2,
190: x_retcode OUT NOCOPY VARCHAR2,
191: p_terr_globals IN IEX_TERR_WINNERS_PUB.TERR_GLOBALS)
192: IS
193: TYPE customer_id_list is TABLE of NUMBER INDEX BY BINARY_INTEGER;
194: TYPE last_update_date_list is TABLE of DATE INDEX BY BINARY_INTEGER;
195: TYPE last_updated_by_list is TABLE of NUMBER INDEX BY BINARY_INTEGER;
230:
231: l_schema_return := FND_INSTALLATION.get_app_info('IEX', l_status, l_industry, l_oracle_schema);
232:
233:
234: IEX_TERR_WINNERS_PUB.g_debug_flag:=p_terr_globals.debug_flag;
235:
236: /** Commented because we are not writing anything into as_access_all_all **/
237:
238: EXCEPTION
236: /** Commented because we are not writing anything into as_access_all_all **/
237:
238: EXCEPTION
239: WHEN others THEN
240: IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in IEX_TERR_ASSIGNMENT_CLEANUP::Perform_Chgd_Accts_Cleanup');
241: IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
242: ' SQLERRM: ' || SQLERRM);
243: x_errbuf := SQLERRM;
244: x_retcode := SQLCODE;
237:
238: EXCEPTION
239: WHEN others THEN
240: IEX_TERR_WINNERS_PUB.Print_Debug('Exception: others in IEX_TERR_ASSIGNMENT_CLEANUP::Perform_Chgd_Accts_Cleanup');
241: IEX_TERR_WINNERS_PUB.Print_Debug('SQLCODE: ' || to_char(SQLCODE) ||
242: ' SQLERRM: ' || SQLERRM);
243: x_errbuf := SQLERRM;
244: x_retcode := SQLCODE;
245: --RAISE;