DBA Data[Home] [Help]

APPS.AS_GAR dependencies on AS_GAR

Line 1: PACKAGE BODY AS_GAR AS

1: PACKAGE BODY AS_GAR AS
2: /* $Header: asxgarpb.pls 120.2 2005/08/22 01:42 subabu noship $ */
3: ---------------------------------------------------------------------------
4: -- Start of Comments
5: ---------------------------------------------------------------------------

Line 2: /* $Header: asxgarpb.pls 120.2 2005/08/22 01:42 subabu noship $ */

1: PACKAGE BODY AS_GAR AS
2: /* $Header: asxgarpb.pls 120.2 2005/08/22 01:42 subabu noship $ */
3: ---------------------------------------------------------------------------
4: -- Start of Comments
5: ---------------------------------------------------------------------------
6: -- PACKAGE NAME: AS_GAR

Line 6: -- PACKAGE NAME: AS_GAR

2: /* $Header: asxgarpb.pls 120.2 2005/08/22 01:42 subabu noship $ */
3: ---------------------------------------------------------------------------
4: -- Start of Comments
5: ---------------------------------------------------------------------------
6: -- PACKAGE NAME: AS_GAR
7: -- ---------------------------------------------------------------------
8: -- NOTES
9: -- -----
10: -- 1: This package contains all the common procedures and functions

Line 36: px_terr_globals IN OUT NOCOPY AS_GAR.TERR_GLOBALS)

32:
33: PROCEDURE Init(
34: p_run_mode IN VARCHAR2,
35: p_worker_id IN VARCHAR2,
36: px_terr_globals IN OUT NOCOPY AS_GAR.TERR_GLOBALS)
37: IS
38: l_ata_request_id_of_failed_gar number := -1;
39: l_temp varchar(300) ;
40:

Line 42: AS_GAR.LOG('*** (GAR) asxgarpb.pls::AS_GAR::Init() ***');

38: l_ata_request_id_of_failed_gar number := -1;
39: l_temp varchar(300) ;
40:
41: BEGIN
42: AS_GAR.LOG('*** (GAR) asxgarpb.pls::AS_GAR::Init() ***');
43:
44: -- Set the Global variables
45:
46: px_terr_globals.run_mode := p_run_mode;

Line 60: AS_GAR.LOG('request_id is 0, get from sequence');

56: -- If request_id = 0, select directly from sequence
57: IF px_terr_globals.request_id = 0 OR px_terr_globals.request_id IS NULL
58: THEN
59: -- Get concurrent sequence
60: AS_GAR.LOG('request_id is 0, get from sequence');
61: SELECT fnd_concurrent_requests_s.nextval into px_terr_globals.request_id from dual;
62: END IF;
63:
64: COMMIT;

Line 68: AS_GAR.LOG('Exception: others in AS_GAR_PUB::Init');

64: COMMIT;
65:
66: EXCEPTION
67: WHEN others THEN
68: AS_GAR.LOG('Exception: others in AS_GAR_PUB::Init');
69: AS_GAR.LOG('SQLCODE ' || to_char(SQLCODE) ||
70: ' SQLERRM ' || SQLERRM);
71: RAISE;
72: END Init;

Line 69: AS_GAR.LOG('SQLCODE ' || to_char(SQLCODE) ||

65:
66: EXCEPTION
67: WHEN others THEN
68: AS_GAR.LOG('Exception: others in AS_GAR_PUB::Init');
69: AS_GAR.LOG('SQLCODE ' || to_char(SQLCODE) ||
70: ' SQLERRM ' || SQLERRM);
71: RAISE;
72: END Init;
73:

Line 116: PROCEDURE Raise_BE(p_terr_globals IN OUT NOCOPY AS_GAR.TERR_GLOBALS) IS

112: /************* End Exist Subscription *********************************/
113:
114: /************* Start Raise_BE *******************************************/
115:
116: PROCEDURE Raise_BE(p_terr_globals IN OUT NOCOPY AS_GAR.TERR_GLOBALS) IS
117:
118: l_mode VARCHAR2(7);
119: l_request_id NUMBER;
120: l_ata_request_id NUMBER;

Line 161: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.Start...');

157: begin
158:
159: SELECT AS_BUSINESS_EVENT_S.nextval INTO l_event_id FROM dual;
160:
161: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.Start...');
162: AS_GAR.LOG(' --- l_event_id = '||l_event_id);
163: AS_GAR.LOG(' --- l_mode = '||l_mode);
164: AS_GAR.LOG(' --- l_request_id = '||l_request_id);
165: AS_GAR.LOG(' --- l_worker_id = '||l_worker_id);

Line 162: AS_GAR.LOG(' --- l_event_id = '||l_event_id);

158:
159: SELECT AS_BUSINESS_EVENT_S.nextval INTO l_event_id FROM dual;
160:
161: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.Start...');
162: AS_GAR.LOG(' --- l_event_id = '||l_event_id);
163: AS_GAR.LOG(' --- l_mode = '||l_mode);
164: AS_GAR.LOG(' --- l_request_id = '||l_request_id);
165: AS_GAR.LOG(' --- l_worker_id = '||l_worker_id);
166:

Line 163: AS_GAR.LOG(' --- l_mode = '||l_mode);

159: SELECT AS_BUSINESS_EVENT_S.nextval INTO l_event_id FROM dual;
160:
161: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.Start...');
162: AS_GAR.LOG(' --- l_event_id = '||l_event_id);
163: AS_GAR.LOG(' --- l_mode = '||l_mode);
164: AS_GAR.LOG(' --- l_request_id = '||l_request_id);
165: AS_GAR.LOG(' --- l_worker_id = '||l_worker_id);
166:
167:

Line 164: AS_GAR.LOG(' --- l_request_id = '||l_request_id);

160:
161: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.Start...');
162: AS_GAR.LOG(' --- l_event_id = '||l_event_id);
163: AS_GAR.LOG(' --- l_mode = '||l_mode);
164: AS_GAR.LOG(' --- l_request_id = '||l_request_id);
165: AS_GAR.LOG(' --- l_worker_id = '||l_worker_id);
166:
167:
168: wf_event.raise (

Line 165: AS_GAR.LOG(' --- l_worker_id = '||l_worker_id);

161: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.Start...');
162: AS_GAR.LOG(' --- l_event_id = '||l_event_id);
163: AS_GAR.LOG(' --- l_mode = '||l_mode);
164: AS_GAR.LOG(' --- l_request_id = '||l_request_id);
165: AS_GAR.LOG(' --- l_worker_id = '||l_worker_id);
166:
167:
168: wf_event.raise (
169: p_event_name => G_BUSINESS_EVENT,

Line 180: AS_GAR.LOG(' --- x_errbuf = '||x_errbuf||' , x_retcode = '||x_retcode);

176:
177: x_errbuf := SQLERRM;
178: x_retcode := SQLCODE;
179:
180: AS_GAR.LOG(' --- x_errbuf = '||x_errbuf||' , x_retcode = '||x_retcode);
181:
182: end;
183:
184: l_param_list.DELETE;

Line 185: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.End...');

181:
182: end;
183:
184: l_param_list.DELETE;
185: AS_GAR.LOG(' --- CALL WF_EVENT.RAISE.End...');
186:
187:
188: END Raise_BE;
189:

Line 203: IF AS_GAR.G_DEBUG_FLAG = 'Y' THEN

199: END;
200:
201: PROCEDURE LOG (msg IN VARCHAR2) IS
202: BEGIN
203: IF AS_GAR.G_DEBUG_FLAG = 'Y' THEN
204: -- dbms_output.put_line('msg '|| msg);
205: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
206: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'SALES_TAP', msg );
207: END IF;

Line 233: AS_GAR.LOG( AS_GAR.G_SETAREASIZE || AS_GAR.G_PROCESS ||' Sort Area Size' || s);

229: IF sort_size is not NULL and sort_size > 0 THEN
230: st := 'ALTER SESSION SET SORT_AREA_SIZE = ' || sort_size;
231: EXECUTE IMMEDIATE st;
232: select value into s from V$PARAMETER where name = 'sort_area_size';
233: AS_GAR.LOG( AS_GAR.G_SETAREASIZE || AS_GAR.G_PROCESS ||' Sort Area Size' || s);
234: END IF;
235:
236: hash_size := fnd_profile.value('AS_HASH_AREA_SIZE_FOR_TAP');
237: IF hash_size is not NULL and hash_size > 0 THEN

Line 241: AS_GAR.LOG( AS_GAR.G_SETAREASIZE || AS_GAR.G_PROCESS ||' Hash Area size' || s);

237: IF hash_size is not NULL and hash_size > 0 THEN
238: st := 'ALTER SESSION SET HASH_AREA_SIZE = ' || hash_size;
239: EXECUTE IMMEDIATE st;
240: select value into s from V$PARAMETER where name = 'hash_area_size';
241: AS_GAR.LOG( AS_GAR.G_SETAREASIZE || AS_GAR.G_PROCESS ||' Hash Area size' || s);
242: END IF;
243: END Set_Area_Sizes;
244: END AS_GAR;

Line 244: END AS_GAR;

240: select value into s from V$PARAMETER where name = 'hash_area_size';
241: AS_GAR.LOG( AS_GAR.G_SETAREASIZE || AS_GAR.G_PROCESS ||' Hash Area size' || s);
242: END IF;
243: END Set_Area_Sizes;
244: END AS_GAR;