[Home] [Help]
PACKAGE BODY: APPS.PN_REC_EXPCL_DTLLN_PKG
Source
1 PACKAGE BODY pn_rec_expcl_dtlln_pkg AS
2 /* $Header: PNRECLNB.pls 120.2 2005/11/30 23:38:27 appldev noship $ */
3
4 -------------------------------------------------------------------------------
5 -- PROCDURE : INSERT_ROW
6 -- INVOKED FROM : insert_row procedure
7 -- PURPOSE : inserts the row
8 -- HISTORY :
9 -- 15-JUL-05 sdmahesh o Replaced base views with their _ALL table.
10 -- 28-NOV-05 pikhar o fetched org_id using cursor
11 -------------------------------------------------------------------------------
12 PROCEDURE insert_row(
13 x_org_id pn_rec_expcl_dtlln.org_id%TYPE,
14 x_expense_class_dtl_id pn_rec_expcl_dtlln.expense_class_dtl_id%TYPE,
15 x_expense_class_line_id IN OUT NOCOPY pn_rec_expcl_dtlln.expense_class_line_id%TYPE,
16 x_location_id pn_rec_expcl_dtlln.location_id%TYPE,
17 x_cust_space_assign_id pn_rec_expcl_dtlln.cust_space_assign_id%TYPE,
18 x_cust_account_id pn_rec_expcl_dtlln.cust_account_id%TYPE,
19 x_lease_id pn_rec_expcl_dtlln.lease_id%TYPE,
20 x_recovery_space_std_code pn_rec_expcl_dtlln.recovery_space_std_code%TYPE,
21 x_recovery_type_code pn_rec_expcl_dtlln.recovery_type_code%TYPE,
22 x_budgeted_amt pn_rec_expcl_dtlln.budgeted_amt%TYPE,
23 x_expense_amt pn_rec_expcl_dtlln.expense_amt%TYPE,
24 x_recoverable_amt pn_rec_expcl_dtlln.recoverable_amt%TYPE,
25 x_computed_recoverable_amt pn_rec_expcl_dtlln.computed_recoverable_amt%TYPE,
26 x_cls_line_share_pct pn_rec_expcl_dtlln.cls_line_share_pct%TYPE,
27 x_cls_line_fee_bf_ct_ovr pn_rec_expcl_dtlln.cls_line_fee_before_contr_ovr%TYPE,
28 x_cls_line_fee_af_ct_ovr pn_rec_expcl_dtlln.cls_line_fee_after_contr_ovr%TYPE,
29 x_use_share_pct_flag pn_rec_expcl_dtlln.use_share_pct_flag%TYPE,
30 x_use_fee_before_contr_flag pn_rec_expcl_dtlln.use_fee_before_contr_flag%TYPE,
31 x_last_update_date pn_rec_expcl_dtlln.last_update_date%TYPE,
32 x_last_updated_by pn_rec_expcl_dtlln.last_updated_by%TYPE,
33 x_creation_date pn_rec_expcl_dtlln.creation_date%TYPE,
34 x_created_by pn_rec_expcl_dtlln.created_by%TYPE,
35 x_last_update_login pn_rec_expcl_dtlln.last_update_login%TYPE
36 )
37 IS
38 l_desc VARCHAR2(100) := 'pn_rec_expcl_dtlln_pkg.insert_row';
39 CURSOR org_cur IS
40 SELECT org_id
41 FROM pn_rec_expcl_dtl_all
42 WHERE expense_class_dtl_id = x_expense_class_dtl_id;
43
44 l_org_id NUMBER;
45
46
47 BEGIN
48
49 pnp_debug_pkg.debug(l_desc ||' (+)');
50
51 IF x_org_id IS NULL THEN
52 FOR rec IN org_cur LOOP
53 l_org_id := rec.org_id;
54 END LOOP;
55 ELSE
56 l_org_id := x_org_id;
57 END IF;
58
59 INSERT INTO pn_rec_expcl_dtlln_all
60 (
61 org_id,
62 expense_class_dtl_id,
63 expense_class_line_id,
64 location_id,
65 cust_space_assign_id,
66 cust_account_id,
67 lease_id,
68 recovery_space_std_code,
69 recovery_type_code,
70 budgeted_amt,
71 expense_amt,
72 recoverable_amt,
73 computed_recoverable_amt,
74 cls_line_share_pct,
75 cls_line_fee_before_contr_ovr,
76 cls_line_fee_after_contr_ovr,
77 use_share_pct_flag,
78 use_fee_before_contr_flag,
79 last_update_date,
80 last_updated_by,
81 creation_date,
82 created_by,
83 last_update_login
84 ) VALUES (
85 l_org_id,
86 x_expense_class_dtl_id,
87 pn_rec_expcl_dtlln_s.nextval,
88 x_location_id,
89 x_cust_space_assign_id,
90 x_cust_account_id,
91 x_lease_id,
92 x_recovery_space_std_code,
93 x_recovery_type_code,
94 x_budgeted_amt,
95 x_expense_amt,
96 x_recoverable_amt,
97 x_computed_recoverable_amt,
98 x_cls_line_share_pct,
99 x_cls_line_fee_bf_ct_ovr,
100 x_cls_line_fee_af_ct_ovr,
101 x_use_share_pct_flag,
102 x_use_fee_before_contr_flag,
103 x_last_update_date,
104 x_last_updated_by,
105 x_creation_date,
106 x_created_by,
107 x_last_update_login
108 ) RETURNING expense_class_line_id INTO x_expense_class_line_id;
109
110 pnp_debug_pkg.debug(l_desc ||' (-)');
111
112 EXCEPTION
113 WHEN OTHERS THEN
114 RAISE_APPLICATION_ERROR(-20001, to_char(sqlcode));
115 app_exception.raise_exception;
116 END insert_row;
117
118 -------------------------------------------------------------------------------
119 -- PROCDURE : UPDATE_ROW
120 -- INVOKED FROM : update_row procedure
121 -- PURPOSE : updates the row
122 -- HISTORY :
123 -- 15-JUL-05 sdmahesh o Replaced base views with their _ALL table.
124 -------------------------------------------------------------------------------
125 PROCEDURE update_row(
126 x_expense_class_line_id pn_rec_expcl_dtlln.expense_class_line_id%TYPE,
127 x_location_id pn_rec_expcl_dtlln.location_id%TYPE,
128 x_cust_space_assign_id pn_rec_expcl_dtlln.cust_space_assign_id%TYPE,
129 x_cust_account_id pn_rec_expcl_dtlln.cust_account_id%TYPE,
130 x_lease_id pn_rec_expcl_dtlln.lease_id%TYPE,
131 x_recovery_space_std_code pn_rec_expcl_dtlln.recovery_space_std_code%TYPE,
132 x_recovery_type_code pn_rec_expcl_dtlln.recovery_type_code%TYPE,
133 x_budgeted_amt pn_rec_expcl_dtlln.budgeted_amt%TYPE,
134 x_expense_amt pn_rec_expcl_dtlln.expense_amt%TYPE,
135 x_recoverable_amt pn_rec_expcl_dtlln.recoverable_amt%TYPE,
136 x_computed_recoverable_amt pn_rec_expcl_dtlln.computed_recoverable_amt%TYPE,
137 x_cls_line_share_pct pn_rec_expcl_dtlln.cls_line_share_pct%TYPE,
138 x_cls_line_fee_bf_ct_ovr pn_rec_expcl_dtlln.cls_line_fee_before_contr_ovr%TYPE,
139 x_cls_line_fee_af_ct_ovr pn_rec_expcl_dtlln.cls_line_fee_after_contr_ovr%TYPE,
140 x_use_share_pct_flag pn_rec_expcl_dtlln.use_share_pct_flag%TYPE,
141 x_use_fee_before_contr_flag pn_rec_expcl_dtlln.use_fee_before_contr_flag%TYPE,
142 x_last_update_date pn_rec_expcl_dtlln.last_update_date%TYPE,
143 x_last_updated_by pn_rec_expcl_dtlln.last_updated_by%TYPE,
144 x_creation_date pn_rec_expcl_dtlln.creation_date%TYPE,
145 x_created_by pn_rec_expcl_dtlln.created_by%TYPE,
146 x_last_update_login pn_rec_expcl_dtlln.last_update_login%TYPE)
147 IS
148 l_desc VARCHAR2(100) := 'pn_rec_expcl_dtlln_pkg.update_row';
149 BEGIN
150
151 pnp_debug_pkg.debug(l_desc ||' (+)');
152
153 UPDATE pn_rec_expcl_dtlln_all
154 SET
155 expense_class_line_id = x_expense_class_line_id,
156 location_id = x_location_id,
157 cust_space_assign_id = x_cust_space_assign_id,
158 cust_account_id = x_cust_account_id,
159 lease_id = x_lease_id,
160 recovery_space_std_code = x_recovery_space_std_code,
161 recovery_type_code = x_recovery_type_code,
162 budgeted_amt = x_budgeted_amt,
163 expense_amt = x_expense_amt,
164 recoverable_amt = x_recoverable_amt,
165 computed_recoverable_amt = x_computed_recoverable_amt,
166 cls_line_share_pct = x_cls_line_share_pct,
167 cls_line_fee_before_contr_ovr = x_cls_line_fee_bf_ct_ovr,
168 cls_line_fee_after_contr_ovr = x_cls_line_fee_af_ct_ovr,
169 use_share_pct_flag = x_use_share_pct_flag,
170 use_fee_before_contr_flag = x_use_fee_before_contr_flag,
171 last_update_date = x_last_update_date,
172 last_updated_by = x_last_updated_by,
173 creation_date = x_creation_date,
174 created_by = x_created_by,
175 last_update_login = x_last_update_login
176 WHERE expense_class_line_id = x_expense_class_line_id;
177
178 pnp_debug_pkg.debug(l_desc ||' (-)');
179
180 EXCEPTION
181 WHEN OTHERS THEN
182 RAISE_APPLICATION_ERROR(-20001, to_char(sqlcode));
183 app_exception.raise_exception;
184 END update_row;
185
186 -------------------------------------------------------------------------------
187 -- PROCDURE : DELETE_ROW
188 -- INVOKED FROM : delete_row procedure
189 -- PURPOSE : deletes the row
190 -- HISTORY :
191 -- 15-JUL-05 sdmahesh o Replaced base views with their _ALL table.
192 -------------------------------------------------------------------------------
193 PROCEDURE delete_row(x_expense_class_line_id pn_rec_expcl_dtlln.expense_class_line_id%TYPE)
194 IS
195 l_desc VARCHAR2(100) := 'pn_rec_expcl_dtlln_pkg.delete_row';
196 BEGIN
197
198 pnp_debug_pkg.debug(l_desc ||' (+)');
199
200 DELETE pn_rec_expcl_dtlln_all /*sdm14jul*/
201 WHERE expense_class_line_id = x_expense_class_line_id;
202
203 pnp_debug_pkg.debug(l_desc ||' (-)');
204
205 EXCEPTION
206 WHEN OTHERS THEN
207 RAISE_APPLICATION_ERROR(-20001, to_char(sqlcode));
208 app_exception.raise_exception;
209 END delete_row;
210
211 END pn_rec_expcl_dtlln_pkg;