1 PACKAGE pqh_generic_purge AUTHID CURRENT_USER AS
2 /* $Header: pqgenpur.pkh 115.3 2002/12/06 18:06:34 rpasapul noship $ */
3 --Main procedure that calls the rest
4
5 PROCEDURE pqh_gen_purge
6 (errbuf OUT NOCOPY varchar2,
7 retcode OUT NOCOPY number,
8 p_alias IN pqh_table_route.table_alias%TYPE,
9 paramname1 IN pqh_attributes.column_name%TYPE DEFAULT NULL,
10 paramvalue1 IN VARCHAR2 DEFAULT NULL,
11 paramname2 IN pqh_attributes.column_name%TYPE DEFAULT NULL,
12 paramvalue2 IN VARCHAR2 DEFAULT NULL,
13 paramname3 IN pqh_attributes.column_name%TYPE DEFAULT NULL,
14 paramvalue3 IN VARCHAR2 DEFAULT NULL,
15 paramname4 IN pqh_attributes.column_name%TYPE DEFAULT NULL,
16 paramvalue4 IN VARCHAR2 DEFAULT NULL,
17 paramname5 IN pqh_attributes.column_name%TYPE DEFAULT NULL,
18 paramvalue5 IN VARCHAR2 DEFAULT NULL,
19 p_effective_date IN DATE DEFAULT SYSDATE);
20
21 --To Populate the Pl/SQL table to be used in procedure 'replace_where_params'
22
23 PROCEDURE populate_pltable
24 (l_master_tab_route_id IN pqh_table_route.table_ROUTE_ID%TYPE,
25 paramname1 IN pqh_attributes.column_name%TYPE,
26 paramvalue1 IN VARCHAR2,
27 paramname2 IN pqh_attributes.column_name%TYPE,
28 paramvalue2 IN VARCHAR2,
29 paramname3 IN pqh_attributes.column_name%TYPE,
30 paramvalue3 IN VARCHAR2,
31 paramname4 IN pqh_attributes.column_name%TYPE,
32 paramvalue4 IN VARCHAR2,
33 paramname5 IN pqh_attributes.column_name%TYPE,
34 paramvalue5 IN VARCHAR2);
35
36 -- To identify child table records for the parent txn
37
38
39 PROCEDURE del_child_records
40 (p_alias_name IN pqh_table_route.table_alias%TYPE,
41 p_parent_pk_value IN NUMBER);
42
43 -- To handle the final purge of records
44
45 PROCEDURE call_delete_api
46 (p_tab_route_id IN pqh_table_route.table_route_id%TYPE,
47 p_pk_value IN NUMBER,
48 p_from_clause_txn IN pqh_table_route.from_clause%TYPE,
49 p_pk_col_name IN pqh_attributes.column_name%TYPE);
50 --
51 -- To enter data into conc log file
52
53 PROCEDURE enter_conc_log(p_pk_value IN NUMBER,
54 tab_rou_id IN NUMBER,
55 p_from_clause_txn IN pqh_table_route.from_clause%TYPE,
56 p_pk_col_name IN pqh_attributes.column_name%TYPE);
57
58 FUNCTION get_col_type
59 (p_column_name IN pqh_attributes.column_name%TYPE,
60 l_master_table_route_id IN pqh_table_route.table_route_id%TYPE)
61 RETURN VARCHAR2;
62
63 END pqh_generic_purge;