PACKAGE BODY: APPS.JG_ZZ_REPORT_PKG

Source

1 PACKAGE BODY JG_ZZ_REPORT_PKG as
2 /* $Header: jgzzrepb.pls 115.0 99/07/16 02:36:51 porting s $ */
3 
4 
5 PROCEDURE set_body_print_object (p_object VARCHAR2) is
6 BEGIN
7 
8    /* Possible values are 'TOTAL' or 'DETAIL' */
9 
10    g_last_body_object := p_object;
11 END;
12 
13 FUNCTION  print_page_group_total RETURN boolean is
14 BEGIN
15   if (g_last_body_object = 'TOTAL')
16   then
17     return (FALSE);
18   else
19     return (TRUE);
20   end if;
21 END;
22 
23 FUNCTION last_body_object RETURN varchar2 is
24 BEGIN
25   return(g_last_body_object);
26 END;
27 
28 FUNCTION  first_page RETURN boolean is
29 BEGIN
30    if (g_first_page)
31    then
32       g_first_page := FALSE;
33       return(TRUE);
34    else
35       return(g_first_page);
36    end if;
37 END;
38 
39 
40 END JG_ZZ_REPORT_PKG;