[Home] [Help]
PACKAGE BODY: APPS.IGI_IAC_REVALUATIONS_PKG
Source
1 PACKAGE BODY igi_iac_revaluations_pkg AS
2 -- $Header: igiiarxb.pls 120.6.12010000.2 2008/08/04 13:02:54 sasukuma ship $
3
4 --===========================FND_LOG.START=====================================
5
6 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
7 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
9 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
10 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
11 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12 g_path VARCHAR2(100) := 'IGI.PLSQL.igiiarxb.igi_iac_revaluations_pkg.';
13
14 --===========================FND_LOG.END=====================================
15
16 PROCEDURE insert_row (
17 X_rowid IN OUT NOCOPY VARCHAR2,
18 X_revaluation_id IN OUT NOCOPY NUMBER,
19 X_book_type_code IN VARCHAR2,
20 X_revaluation_date IN DATE,
21 X_revaluation_period IN VARCHAR2,
22 X_status IN VARCHAR2,
23 X_reval_request_id IN NUMBER,
24 X_create_request_id IN NUMBER,
25 X_calling_program IN VARCHAR2,
26 X_mode IN VARCHAR2,
27 X_event_id IN NUMBER -- for R12 SLA upgrade
28
29 ) AS
30
31 CURSOR c IS
32 SELECT rowid
33 FROM igi_iac_revaluations
34 WHERE revaluation_id = X_revaluation_id;
35
36 CURSOR c1 IS
37 SELECT igi_iac_revaluations_s.NEXTVAL
38 FROM sys.dual;
39
40 X_last_update_date DATE;
41 X_last_updated_by NUMBER;
42 X_last_update_login NUMBER;
43 X_creation_date DATE;
44 X_created_by NUMBER;
45 l_path_name VARCHAR2(150) := g_path||'insert_row';
46
47 BEGIN
48
49 IF (x_mode = 'R') THEN
50 x_last_update_date := SYSDATE;
51 x_creation_date := SYSDATE;
52 x_created_by := fnd_global.user_id;
53
54 IF (x_created_by IS NULL) THEN
55 x_created_by := -1;
56 END IF;
57
58 x_last_updated_by := fnd_global.user_id;
59 IF (x_last_updated_by IS NULL) THEN
60 x_last_updated_by := -1;
61 END IF;
62
63 x_last_update_login := fnd_global.login_id;
64 IF (x_last_update_login IS NULL) THEN
65 x_last_update_login := -1;
66 END IF;
67 ELSE
68 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
69 igi_iac_debug_pkg.debug_other_msg(p_level => g_error_level,
70 p_full_path => l_path_name,
71 p_remove_from_stack => FALSE);
72 app_exception.raise_exception;
73 END IF;
74
75 IF X_revaluation_id is null THEN
76 OPEN c1;
77 FETCH c1 INTO X_revaluation_id;
78 CLOSE c1;
79 END IF;
80
81 INSERT INTO igi_iac_revaluations
82 (revaluation_id,
83 book_type_code,
84 revaluation_date,
85 revaluation_period,
86 status,
87 reval_request_id,
88 create_request_id,
89 calling_program,
90 last_update_date,
91 created_by,
92 last_update_login,
93 last_updated_by,
94 creation_date,
95 event_id) -- for R12 SLA upgrade
96 VALUES
97 (X_revaluation_id,
98 X_book_type_code,
99 X_revaluation_date,
100 X_revaluation_period,
101 X_status,
102 X_reval_request_id,
103 X_create_request_id,
104 X_calling_program,
105 X_last_update_date,
106 X_created_by,
107 X_last_update_login,
108 X_last_updated_by,
109 X_creation_date,
110 X_event_id); -- for R12 SLA upgrade
111
112 OPEN c;
113 FETCH c INTO X_rowid;
114 IF (c%NOTFOUND) THEN
115 CLOSE c;
116 RAISE NO_DATA_FOUND;
117 END IF;
118 CLOSE c;
119
120 END insert_row;
121
122 PROCEDURE delete_row (
123 x_revaluation_id IN NUMBER
124 ) AS
125 BEGIN
126
127 DELETE FROM igi_iac_revaluations
128 WHERE revaluation_id = x_revaluation_id;
129
130 IF (SQL%NOTFOUND) THEN
131 RAISE NO_DATA_FOUND;
132 END IF;
133
134 END delete_row;
135
136 END igi_iac_revaluations_pkg;