PACKAGE BODY: APPS.IGIGGACC_PKG

Source

1 PACKAGE BODY IGIGGACC_PKG as
2 -- $Header: igibudhb.pls 120.2 2005/10/30 05:57:50 appldev ship $
3 PROCEDURE set_profile(X_average_unbalanced   	varchar2,
4 		      X_balanced_budget_flag	varchar2,
5                       X_bud_status_flag         varchar2) IS
6 
7 BEGIN
8 	IGIGGACC_PKG.average_unbalanced := X_average_unbalanced;
9         IGIGGACC_PKG.balanced_budget_flag :=X_balanced_budget_flag;
10         IGIGGACC_PKG.bud_status_flag     := X_bud_status_flag;
11 END set_profile;
12 
13 FUNCTION  get_average_unbalanced return varchar2 is
14 BEGIN
15   RETURN IGIGGACC_PKG.average_unbalanced;
16 END get_average_unbalanced;
17 
18 FUNCTION get_balanced_budget_flag return varchar2 is
19 BEGIN
20   RETURN IGIGGACC_PKG.balanced_budget_flag;
21 END get_balanced_budget_flag;
22 
23 FUNCTION get_bud_status_flag return varchar2 is
24 BEGIN
25   RETURN IGIGGACC_PKG.bud_status_flag;
26 END get_bud_status_flag;
27 end IGIGGACC_PKG;
28