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