[Home] [Help]
PACKAGE: APPS.ZX_TPI_PLUGIN_PKG
Source
1 PACKAGE ZX_TPI_PLUGIN_PKG AS
2 /* $Header: zxisrvctypcgpvts.pls 120.1 2005/11/18 18:39:12 svaze ship $ */
3
4
5 g_rtn_status_var VARCHAR2(2000);
6 g_rtn_msgtbl_var VARCHAR2(2000);
7 g_counter INTEGER;
8
9 Type NUMBER_tbl_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
10 Type VARCHAR2_tbl_type IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
11
12 /* ------------------------------------------------------------------------- */
13 /* caching table to store parameter strings */
14 /* ------------------------------------------------------------------------- */
15
16 Type t_srvcparamtbl IS TABLE OF VARCHAR2(255) INDEX BY BINARY_INTEGER;
17 r_srvcparamtbl t_srvcparamtbl;
18
19 /* ------------------------------------------------------------------------- */
20 /* Record structure for apiowner, service types and Apis */
21 /* ------------------------------------------------------------------------- */
22
23 Type r_apiowner is Record
24 (
25 api_owner_id NUMBER_tbl_type ,
26 status_code VARCHAR2_tbl_type
27 );
28
29 Type r_srvctypes is Record
30 (
31 api_owner_id NUMBER_tbl_type,
32 service_type_id NUMBER_tbl_type,
33 service_type_code VARCHAR2_tbl_type,
34 data_transfer_code VARCHAR2_tbl_type
35 );
36
37 Type r_api is Record
38 (
39 api_owner_id Number_tbl_type,
40 service_type_id Number_tbl_type,
41 context_ccid Number_tbl_type,
42 package_name VARCHAR2_tbl_type,
43 procedure_name VARCHAR2_tbl_type,
44 service_type_code VARCHAR2_tbl_type
45 );
46
47 /* ---------------------------------------------------------------------------*/
48 /* Record of tables */
49 /* ---------------------------------------------------------------------------*/
50
51 t_prv r_apiowner;
52 t_srvc r_srvctypes;
53 t_api r_api;
54
55
56 PROCEDURE generate_code(
57 errbuf OUT NOCOPY VARCHAR2,
58 retcode OUT NOCOPY VARCHAR2,
59 p_srvc_category IN VARCHAR2,
60 p_api_owner_id IN NUMBER);
61
62 END ZX_TPI_PLUGIN_PKG;