1 PACKAGE LNS_LOAN_HISTORY_PUB AUTHID CURRENT_USER AS
2 /* $Header: LNS_LNHIS_PUBP_S.pls 120.0 2005/05/31 17:56:34 appldev noship $ */
3 TYPE T_VALUE_REC IS RECORD (
4 column_name VARCHAR2(30),
5 data_type VARCHAR2(106),
6 old_value VARCHAR2(2000),
7 new_value VARCHAR2(2000)
8 );
9
10 TYPE T_VALUE_TBL IS TABLE OF T_VALUE_REC INDEX BY BINARY_INTEGER;
11
12 G_VALUE_LIST T_VALUE_TBL;
13 --G_VALUE_LIST T_VALUE_TBL;
14
15 G_TABLE_NAME VARCHAR2(30);
16 G_PRIMARY_KEY_NAME VARCHAR2(30);
17 G_PRIMARY_KEY_ID NUMBER;
18
19 /*
20 This procedure needs to be called right before update
21 It takes a snapshot of the original record
22 */
23 procedure log_record_pre(p_id NUMBER, p_primary_key_name VARCHAR2, p_table_name VARCHAR2);
24
25 /*
26 This procedure needs to be called right after update
27 It compares the new record with the original values and note
28 the changes in LNS_LOAN_HISTORY
29 */
30 procedure log_record_post(p_id NUMBER, p_primary_key_name VARCHAR2, p_table_name VARCHAR2, p_loan_id NUMBER);
31
32 END LNS_LOAN_HISTORY_PUB;