[Home] [Help]
PACKAGE: APPS.AS_GAR
Source
1 PACKAGE AS_GAR AUTHID CURRENT_USER as
2 /* $Header: asxgarps.pls 120.0 2005/08/05 01:15 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
11 -- called from within the individual entity packages.
12 ---------------------------------------------------------------------------
13 /*-------------------------------------------------------------------------*
14 | PUBLIC CONSTANTS
15 *-------------------------------------------------------------------------*/
16
17 /*-------------------------------------------------------------------------*
18 | PUBLIC DATATYPES
19 *-------------------------------------------------------------------------*/
20 TYPE TERR_GLOBALS IS RECORD (
21 user_id NUMBER,
22 last_update_login NUMBER,
23 prog_appl_id NUMBER,
24 prog_id NUMBER,
25 request_id NUMBER,
26 run_mode VARCHAR2(7),
27 worker_id NUMBER,
28 bulk_size NUMBER,
29 cursor_limit NUMBER,
30 oppor_territories_exist VARCHAR2(1),
31 lead_territories_exist VARCHAR2(1));
32
33 /*-------------------------------------------------------------------------*
34 | PUBLIC VARIABLES
35 *-------------------------------------------------------------------------*/
36
37 G_TAP_FLAG VARCHAR2(1) := 'N';
38 G_NEW_MODE VARCHAR2(3) := 'NEW';
39 G_TOTAL_MODE VARCHAR2(5) := 'TOTAL';
40 G_DEBUG_FLAG VARCHAR2(1) := 'N';
41 /*-------------------------------------------------------------------------*
42 | DEBUG MESSAGES
43 *--------------------------------------------------------------------------*/
44 G_CALL_TO VARCHAR2(10) := 'CALL TO:: ';
45 G_PROCESS VARCHAR2(12) := 'PROCEDURE:: ';
46 G_START VARCHAR2(5) := 'START';
47 G_END VARCHAR2(3) := 'END';
48 G_GENERAL_EXCEPTION VARCHAR2(25) := 'GENERAL EXCEPTION OCCURED';
49 G_RETURN_STATUS VARCHAR2(17) := 'RETURN STATUS :- ';
50 G_SQLCODE VARCHAR2(11) := 'SQLCODE :- ';
51 G_SQLERRM VARCHAR2(11) := 'SQLERRM :- ';
52 G_N_ROWS_PROCESSED VARCHAR2(20) := '# ROWS PROCESSED :- ';
53 G_INS_WINNERS VARCHAR2(21) := 'INSERT INTO WINNERS::';
54 G_UPD_ACCESSES VARCHAR2(17) := 'UPDATE ACCESSES::';
55 G_DEADLOCK VARCHAR2(31) := 'DEADLOCK DETECTED::ATTEMPTS :- ';
56 G_BULK_INS VARCHAR2(13) := 'BULK INSERT::';
57 G_BULK_UPD VARCHAR2(13) := 'BULK UPDATE::';
58 G_BULK_DEL VARCHAR2(13) := 'BULK DELETE::';
59 G_IND_INS VARCHAR2(19) := 'INDIVIDUAL INSERT::';
60 G_IND_UPD VARCHAR2(19) := 'INDIVIDUAL UPDATE::';
61 G_IND_DEL VARCHAR2(19) := 'INDIVIDUAL DELETE::';
62
63 G_CW VARCHAR2(23) := 'GET_WINNERS_PARALLEL:: ';
64 G_CEX_GROUPS VARCHAR2(17) := 'EXPLODE GROUPS:: ';
65 G_CEX_TEAMS VARCHAR2(16) := 'EXPLODE TEAMS:: ';
66 G_STLEAD VARCHAR2(19) := 'SET TEAM LEADER:: ';
67 G_INSACC VARCHAR2(30) := 'INSERT INTO ENTITY ACCESSES:: ';
68 G_INSTERRACC VARCHAR2(33) := 'INSERT INTO TERRITORY ACCESSES:: ';
69 G_CPPR VARCHAR2(26) := 'PROCESS_PARTNER_RECORDS:: ';
70 G_CC VARCHAR2(18) := 'PERFORM_CLEANUP:: ';
71 G_CO VARCHAR2(19) := 'OWNER_ASSIGNMENT:: ';
72 G_CBE_EXISTS VARCHAR2(25) := 'EVENT SUBSCRIPTION EXISTS';
73 G_CBE_RAISE VARCHAR2(10) := 'RAISING BE';
74 G_SETAREASIZE VARCHAR2(20) := 'Set Area Size';
75 /*-------------------------------------------------------------------------*
76 | PUBLIC ROUTINES
77 *-------------------------------------------------------------------------*/
78 PROCEDURE Init(
79 p_run_mode IN VARCHAR2,
80 p_worker_id IN VARCHAR2,
81 px_terr_globals IN OUT NOCOPY AS_GAR.TERR_GLOBALS);
82 FUNCTION Exist_Subscription(p_event_name IN VARCHAR2) return VARCHAR2;
83 PROCEDURE Raise_BE(p_terr_globals IN OUT NOCOPY AS_GAR.TERR_GLOBALS);
84 PROCEDURE LOG_Exception(
85 msg IN VARCHAR2, errbuf IN VARCHAR2, retcode IN VARCHAR2);
86 PROCEDURE SETTRACE;
87 PROCEDURE LOG(msg in VARCHAR2);
88 PROCEDURE Set_Area_Sizes;
89 END AS_GAR;