1 PACKAGE igf_db_pays_prg_t_pkg AUTHID CURRENT_USER AS
2 /* $Header: IGFDI08S.pls 115.1 2002/11/28 14:14:56 nsidana noship $ */
3
4 PROCEDURE insert_row (
5 x_rowid IN OUT NOCOPY VARCHAR2,
6 x_dbpays_id IN OUT NOCOPY NUMBER,
7 x_base_id IN NUMBER,
8 x_program_cd IN VARCHAR2,
9 x_prg_ver_num IN NUMBER,
10 x_unit_cd IN VARCHAR2,
11 x_unit_ver_num IN NUMBER,
12 x_mode IN VARCHAR2 DEFAULT 'R'
13 );
14
15 PROCEDURE lock_row (
16 x_rowid IN VARCHAR2,
17 x_dbpays_id IN NUMBER,
18 x_base_id IN NUMBER,
19 x_program_cd IN VARCHAR2,
20 x_prg_ver_num IN NUMBER,
21 x_unit_cd IN VARCHAR2,
22 x_unit_ver_num IN NUMBER
23 );
24
25 PROCEDURE update_row (
26 x_rowid IN VARCHAR2,
27 x_dbpays_id IN NUMBER,
28 x_base_id IN NUMBER,
29 x_program_cd IN VARCHAR2,
30 x_prg_ver_num IN NUMBER,
31 x_unit_cd IN VARCHAR2,
32 x_unit_ver_num IN NUMBER,
33 x_mode IN VARCHAR2 DEFAULT 'R'
34 );
35
36 PROCEDURE add_row (
37 x_rowid IN OUT NOCOPY VARCHAR2,
38 x_dbpays_id IN OUT NOCOPY NUMBER,
39 x_base_id IN NUMBER,
40 x_program_cd IN VARCHAR2,
41 x_prg_ver_num IN NUMBER,
42 x_unit_cd IN VARCHAR2,
43 x_unit_ver_num IN NUMBER,
44 x_mode IN VARCHAR2 DEFAULT 'R'
45 );
46
47 PROCEDURE delete_row (
48 x_rowid IN VARCHAR2
49 );
50
51 FUNCTION get_pk_for_validation (
52 x_dbpays_id IN NUMBER
53 ) RETURN BOOLEAN;
54
55 PROCEDURE before_dml (
56 p_action IN VARCHAR2,
57 x_rowid IN VARCHAR2 DEFAULT NULL,
58 x_dbpays_id IN NUMBER DEFAULT NULL,
59 x_base_id IN NUMBER DEFAULT NULL,
60 x_program_cd IN VARCHAR2 DEFAULT NULL,
61 x_prg_ver_num IN NUMBER DEFAULT NULL,
62 x_unit_cd IN VARCHAR2 DEFAULT NULL,
63 x_unit_ver_num IN NUMBER DEFAULT NULL,
64 x_creation_date IN DATE DEFAULT NULL,
65 x_created_by IN NUMBER DEFAULT NULL,
66 x_last_update_date IN DATE DEFAULT NULL,
67 x_last_updated_by IN NUMBER DEFAULT NULL,
68 x_last_update_login IN NUMBER DEFAULT NULL
69 );
70
71 END igf_db_pays_prg_t_pkg;