PACKAGE BODY: APPS.CSTPPCHK

Source

1 PACKAGE BODY CSTPPCHK AS
2 /* $Header: CSTPCHKB.pls 115.6 2002/11/09 00:27:26 awwang ship $*/
3 
4 /*---------------------------------------------------------------------------*
5 |  FUNCTION							             |
6 |  actual_cost_hook							     |
7 |									     |
8 |  RETURN VALUES   							     |
9 |  integer             1       Hook has been used.			     |
10 |                      -1      Continue cost processing for this transaction |
11 |                              as usual.				     |
12 |									     |
13 *----------------------------------------------------------------------------*/
14 function actual_cost_hook(
15   i_pac_period_id       IN      NUMBER,
16   i_cost_group_id       IN      NUMBER,
17   i_cost_type_id        IN      NUMBER,
18   i_cost_method         IN      NUMBER,
19   i_txn_id              IN      NUMBER,
20   i_cost_layer_id       IN      NUMBER,
21   i_qty_layer_id        IN      NUMBER,
22   i_pac_rates_id        IN      NUMBER,
23   I_USER_ID             IN      NUMBER,
24   I_LOGIN_ID            IN      NUMBER,
25   I_REQ_ID              IN      NUMBER,
26   I_PRG_APPL_ID         IN      NUMBER,
27   I_PRG_ID              IN      NUMBER,
28   O_Err_Num             OUT NOCOPY     NUMBER,
29   O_Err_Code            OUT NOCOPY     VARCHAR2,
30   O_Err_Msg             OUT NOCOPY     VARCHAR2
31 )
32 return integer IS
33 BEGIN
34   o_err_num := 0;
35   o_err_code := '';
36   o_err_msg := '';
37 
38   return -1;
39 
40 EXCEPTION
41 
42   when others then
43     o_err_num := SQLCODE;
44     o_err_msg := 'CSTPPCHK.ACTUAL_COST_HOOK:' || substrb(SQLERRM,1,150);
45     return -1;
46 
47 END actual_cost_hook;
48 
49 /*---------------------------------------------------------------------------*
50 |  FUNCTION							             |
51 |  beginning_balance_hook						     |
52 |									     |
53 |  RETURN VALUES   							     |
54 |  integer             1       Hook has been used.			     |
55 |                      -1       Continue cost processing for this transaction |
56 |                              as usual.				     |
57 |									     |
58 *----------------------------------------------------------------------------*/
59 function beginning_balance_hook(
60   i_pac_period_id               IN      NUMBER,
61   i_prior_pac_period_id         IN      NUMBER,
62   i_legal_entity                IN      NUMBER,
63   i_cost_type_id                IN      NUMBER,
64   i_cost_group_id               IN      NUMBER,
65   i_cost_method                 IN      NUMBER,
66   i_user_id                     IN      NUMBER,
67   i_login_id                    IN      NUMBER,
68   i_request_id                  IN      NUMBER,
69   i_prog_id                     IN      NUMBER,
70   i_prog_app_id                 IN      NUMBER,
71   o_err_num                     OUT NOCOPY     NUMBER,
72   o_err_code                    OUT NOCOPY     VARCHAR2,
73   o_err_msg                     OUT NOCOPY     VARCHAR2
74 )
75 return integer IS
76 BEGIN
77   o_err_num := 0;
78   o_err_code := '';
79   o_err_msg := '';
80 
81   return -1;
82 
83 EXCEPTION
84 
85   when others then
86     o_err_num := SQLCODE;
87     o_err_msg := 'CSTPPCHK.BEGINNING_BALANCE_HOOK:' || substrb(SQLERRM,1,150);
88     o_err_num := SQLCODE;
89     return -1;
90 
91 END beginning_balance_hook;
92 
93 
94 END CSTPPCHK;