1 PACKAGE XTR_HEDGE_PROCESS_P AUTHID CURRENT_USER AS
2 /* $Header: xtrhdgps.pls 120.2 2004/06/30 16:22:55 rvallams ship $ */
3
4 e_invalid_criteria_set EXCEPTION;
5 e_batch_been_run EXCEPTION;
6
7 TYPE hedge_items IS TABLE OF xtr_hedge_criteria.criteria_code%TYPE INDEX BY BINARY_INTEGER;
8 TYPE hedge_conditions IS TABLE OF xtr_hedge_criteria.operator%TYPE INDEX BY BINARY_INTEGER;
9 TYPE hedge_values IS TABLE OF xtr_hedge_criteria.from_value%TYPE INDEX BY BINARY_INTEGER;
10
11 TYPE criteria_set_rec_type IS RECORD (
12 criteria_set xtr_hedge_criteria.criteria_set%TYPE,
13 criteria_set_owner xtr_hedge_criteria.criteria_set_owner%TYPE,
14 source xtr_hedge_criteria.from_value%TYPE,
15 currency xtr_hedge_criteria.from_value%TYPE,
16 company_code xtr_hedge_criteria.from_value%TYPE,
17 sob_currency xtr_hedge_criteria.from_value%TYPE,
18 discount xtr_hedge_criteria.from_value%TYPE,
19 factor xtr_hedge_criteria.from_value%TYPE,
20 due_date_from xtr_hedge_criteria.from_value%TYPE, --MUST MAINTAIN INVARIANT DATE TYPE OF RRRR/MM/DD
21 due_date_to xtr_hedge_criteria.to_value%TYPE, --MUST MAINTAIN INVARIANT DATE TYPE OF RRRR/MM/DD
22 ar_unpld xtr_hedge_criteria.from_value%TYPE,
23 ap_unpld xtr_hedge_criteria.from_value%TYPE,
24 condition_count NUMBER,
25 item hedge_items,
26 condition hedge_conditions,
27 value hedge_values
28 );
29
30 PROCEDURE SAVE_CRITERIA_SET(p_crit_set CRITERIA_SET_REC_TYPE);
31
32 PROCEDURE DELETE_CRITERIA_SET(p_crit_set CRITERIA_SET_REC_TYPE);
33
34 PROCEDURE LOAD_CRITERIA_SET(p_crit_set IN OUT NOCOPY CRITERIA_SET_REC_TYPE);
35
36 PROCEDURE CALC_PCT_ALLOC (ERRBUF OUT NOCOPY VARCHAR2,
37 RETCODE OUT NOCOPY VARCHAR2,
38 P_HEDGE_NO IN NUMBER);
39
40
41 PROCEDURE POPULATE_ITEMS(P_HEDGE_NO IN NUMBER);
42
43 FUNCTION GET_WHERE_CLAUSE(P_HEDGE_NO IN NUMBER) RETURN VARCHAR2;
44
45 FUNCTION GET_SOURCE_CODE(P_HEDGE_NO IN NUMBER) RETURN VARCHAR2;
46
47 FUNCTION GET_REQUEST_STATUS(P_REQUEST_ID IN NUMBER) RETURN VARCHAR2;
48
49 PROCEDURE GENERATE_QUERY_FROM_DETAILS(p_crit_set CRITERIA_SET_REC_TYPE,
50 p_query OUT NOCOPY VARCHAR2,
51 p_where OUT NOCOPY VARCHAR2,
52 p_where1 OUT NOCOPY VARCHAR2,
53 p_where2 OUT NOCOPY VARCHAR2);
54
55 PROCEDURE GET_HOAPR_REPORT_PARAMETERS(p_criteria_set_name VARCHAR2,
56 p_criteria_set_owner VARCHAR2,
57 p_source IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
58 p_currency IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
59 p_company_code IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
60 p_sob_currency IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
61 p_discount IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
62 p_factor IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
63 p_due_date_from IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
64 p_due_date_to IN OUT NOCOPY xtr_hedge_criteria.to_value%TYPE,
65 p_ar_unpld IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
66 p_ap_unpld IN OUT NOCOPY xtr_hedge_criteria.from_value%TYPE,
67 p_ar_from OUT NOCOPY VARCHAR2,
68 p_ap_from OUT NOCOPY VARCHAR2,
69 p_ar_where OUT NOCOPY VARCHAR2,
70 p_ap_where OUT NOCOPY VARCHAR2);
71
72
73
74 /*=====================================================================
75 BEGIN: New objects for BUG 3378028 - FAS HEDGE ACCOUNTING PROJECT
76 ======================================================================*/
77
78 PROCEDURE retro_eff_test (errbuf OUT NOCOPY VARCHAR2,
79 retcode OUT NOCOPY VARCHAR2,
80 p_company IN VARCHAR2,
81 p_batch_id IN NUMBER);
82
83 PROCEDURE retro_main_calc(p_company IN VARCHAR2,
84 p_batch_id IN NUMBER);
85
86 PROCEDURE ins_retro_event(p_batch_id IN NUMBER,
87 p_event in VARCHAR2);
88
89 PROCEDURE calc_reclass(p_company IN VARCHAR2,
90 p_batch_id IN NUMBER,
91 p_hedge_no IN NUMBER,
92 p_reclass_id IN NUMBER,
93 p_date IN DATE);
94
95 PROCEDURE authorize(p_company IN VARCHAR2,
96 p_batch_id in NUMBER);
97
98
99 FUNCTION get_gl_ccy(p_amount_type IN VARCHAR2,
100 p_deal_no IN NUMBER,
101 p_company IN VARCHAR2) return VARCHAR2;
102
103 --PROCEDURE log_msg(p_msg IN VARCHAR2);
104
105
106 /*=====================================================================
107 END: New objects for BUG 3378028 - FAS HEDGE ACCOUNTING PROJECT
108 ======================================================================*/
109
110
111
112 END XTR_HEDGE_PROCESS_P;