1 PACKAGE HZ_BES_BO_RAISE_PKG AS
2 /*$Header: ARHBESRS.pls 120.0 2005/08/31 21:54:11 smattegu noship $ */
3
4 -- Purpose: This is the main package that holds the conc program etc., code
5 -- for TCA business events.
6 --
7 -- Global variables
8
9 -- To hold the HZ_EXECUTE_API_CALLOUTS profile value
10 G_PROF_VAL VARCHAR2(30) ;
11
12 -- TO hold the object version numbers of the business objects
13 G_ORG_BO_VER HZ_BUS_OBJ_DEFINITIONS.BO_VERSION_NUMBER%TYPE;
14 G_PER_BO_VER HZ_BUS_OBJ_DEFINITIONS.BO_VERSION_NUMBER%TYPE;
15 G_ORG_CUST_BO_VER HZ_BUS_OBJ_DEFINITIONS.BO_VERSION_NUMBER%TYPE;
16 G_PER_CUST_BO_VER HZ_BUS_OBJ_DEFINITIONS.BO_VERSION_NUMBER%TYPE;
17
18 -- to hold the object lookup codes that must be processed.
19 G_PER_BO_CODE CONSTANT HZ_BUS_OBJ_DEFINITIONS.BUSINESS_OBJECT_CODE%TYPE := 'PERSON';
20 G_ORG_BO_CODE CONSTANT HZ_BUS_OBJ_DEFINITIONS.BUSINESS_OBJECT_CODE%TYPE := 'ORG';
21 G_PER_CUST_BO_CODE CONSTANT HZ_BUS_OBJ_DEFINITIONS.BUSINESS_OBJECT_CODE%TYPE := 'PERSON_CUST';
22 G_ORG_CUST_BO_CODE CONSTANT HZ_BUS_OBJ_DEFINITIONS.BUSINESS_OBJECT_CODE%TYPE := 'ORG_CUST';
23
24
25 -- to hold the enabled BOs
26 G_ORG_BO BOOLEAN;
27 G_PER_BO BOOLEAN;
28 G_ORG_CUST_BO BOOLEAN;
29 G_PER_CUST_BO BOOLEAN;
30
31 -- defining the collections to hold the data from BOT table
32 TYPE DATE_TBLTYPE IS TABLE OF DATE INDEX BY PLS_INTEGER;
33 TYPE NUMBER_TBLTYPE IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
34 TYPE VCHAR2_30_TBLTYPE IS TABLE OF VARCHAR2(30) INDEX BY PLS_INTEGER;
35 TYPE VCHAR2_1_TBLTYPE IS TABLE OF VARCHAR2(1) INDEX BY PLS_INTEGER;
36
37 PROCEDURE bes_main (
38 errbuf OUT NOCOPY VARCHAR2,
39 retcode OUT NOCOPY VARCHAR2);
40
41 END HZ_BES_BO_RAISE_PKG; -- Package spec