1 PACKAGE PA_REVERSE_COSTED_LAB AUTHID CURRENT_USER AS
2 /* $Header: PAXTREVS.pls 120.9 2011/06/07 09:55:50 byeturi noship $ */
3 /* Main Procedure */
4
5 -- Global variables for the parameters
6 g_org_id NUMBER;
7 g_debug_mode VARCHAR(1);
8 g_request_id NUMBER(15) := NULL;
9 g_program_id NUMBER(15) := NULL;
10 g_prog_appl_id NUMBER(15) := NULL;
11 g_user_id NUMBER;
12 g_login_id NUMBER;
13 g_commit_size NUMBER;
14 g_err_stage VARCHAR2(630);
15 /* TYPE OF MESSAGE */
16 log NUMBER := 1;
17 debug NUMBER := 2;
18
19
20 PROCEDURE parevtxn( errbuf OUT NOCOPY VARCHAR2,
21 retcode OUT NOCOPY VARCHAR2,
22 P_costing_method IN VARCHAR2,
23 P_enable_accrue_flag_yn IN VARCHAR2,
24 P_accrual_flag IN VARCHAR2,
25 P_Enable_cost_set_flag IN VARCHAR2,
26 p_cost_set IN NUMBER,
27 P_Enable_date IN VARCHAR2,
28 P_from_date IN VARCHAR2,
29 P_to_date IN VARCHAR2,
30 P_incur_by_org_id IN VARCHAR2,
31 P_project_id IN VARCHAR2,
32 P_person_id IN VARCHAR2
33
34 );
35
36 FUNCTION is_ei_reversable ( X_expenditure_item_id IN NUMBER ) RETURN VARCHAR2 ;
37 FUNCTION uncosted_eis_exist(P_interface_run_id IN NUMBER , P_incurred_by_person_id IN VARCHAR2) RETURN VARCHAR2;
38 PROCEDURE createreversecdl (X_exp_item_id IN NUMBER,
39 X_backout_id IN NUMBER,
40 X_user IN NUMBER,
41 X_status OUT NOCOPY NUMBER);
42
43 PROCEDURE reverse_costed_trans ( P_costing_method IN VARCHAR2,
44 P_accrual_only_flag IN VARCHAR2,
45 P_cost_set IN NUMBER,
46 P_from_date IN VARCHAR2,
47 P_to_date IN VARCHAR2,
48 P_inc_by_org_id IN VARCHAR2,
49 P_project_id IN VARCHAR2,
50 P_inc_by_person_id IN VARCHAR2,
51 X_status OUT NOCOPY NUMBER);
52
53 PROCEDURE createorigexpitem( X_exp_item_id IN NUMBER
54 ,X_adj_activity IN VARCHAR2
55 , X_module IN VARCHAR2
56 , X_user IN NUMBER
57 , X_login IN NUMBER
58 , X_status OUT NOCOPY NUMBER );
59
60 PROCEDURE mark_processed_costedset( P_interface_run_id IN NUMBER,
61 P_person_id IN NUMBER,
62 X_status OUT NOCOPY NUMBER);
63
64 PROCEDURE write_log ( P_message_type IN NUMBER,
65 P_message IN VARCHAR2);
66 END PA_REVERSE_COSTED_LAB ;