PACKAGE: APPS.ZX_TPI_PLUGIN_PKG

Source

1 PACKAGE ZX_TPI_PLUGIN_PKG AUTHID CURRENT_USER 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;