PACKAGE BODY: APPS.PO_POXRQOBO_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRQOBO_XMLP_PKG AS
2 /* $Header: POXRQOBOB.pls 120.2 2008/01/06 07:49:05 dwkrishn noship $ */
3 
4 USER_EXIT_FAILURE EXCEPTION;
5 
6 function BeforeReport return boolean is
7 begin
8 BEGIN
9   /*SRW.USER_EXIT('FND SRWINIT');*/null;
10 
11 QTY_PRECISION:=po_common_xmlp_pkg.get_precision(P_QTY_PRECISION);
12   if (get_p_struct_num() <> TRUE )
13     then /*SRW.MESSAGE('1','P Struct Num Init failed');*/null;
14 
15   end if;
16 
17  null;
18 
19 
20  null;
21 end;
22 DECLARE
23 l_message1      po_lookup_codes.description%TYPE ;
24 l_INDUSTRY      varchar2(100);
25 l_Oracle_schema  varchar2(100);
26 L_boolean_var boolean;
27 begin
28   /*srw.user_exit('FND INSTALLATION OUTPUT_TYPE="STATUS"
29                                  OUTPUT_FIELD="P_OE_STATUS"
30                                          APPS="ONT"') ;*/null;
31 
32 
33 L_boolean_var:=fnd_installation.GET_APP_INFO('PO',P_OE_STATUS,l_INDUSTRY,l_Oracle_schema);
34 
35   if P_OE_STATUS <> 'I' then
36 
37  select description
38  into l_message1
39  from po_lookup_codes
40  where lookup_type = 'SRW MESSAGE'
41  and lookup_code = 'CANNOT RUN PROGRAM' ;
42 
43             /*srw.message(1,l_message1) ;*/null;
44 
45         return FALSE;
46   end if;
47 
48   EXCEPTION WHEN  USER_EXIT_FAILURE /*SRW.USER_EXIT_FAILURE */THEN
49   select description
50  into l_message1
51  from po_lookup_codes
52  where lookup_type = 'SRW MESSAGE'
53  and lookup_code = 'FAILURE TO GET STATUS' ;
54 
55             /*srw.message(1,l_message1) ;*/null;
56 
57             return FALSE ;
58 
59 End;
60 
61 
62   return (TRUE);
63 end;
64 
65 function AfterReport return boolean is
66 begin
67 
68 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
69   return (TRUE);
70 end;
71 
72 function get_p_struct_num return boolean is
73 
74 l_p_struct_num number;
75 
76 begin
77         select structure_id
78         into l_p_struct_num
79         from mtl_default_sets_view
80         where functional_area_id = 2 ;
81 
82         P_STRUCT_NUM := l_p_struct_num ;
83 
84         return(TRUE) ;
85 
86         RETURN NULL; exception
87         when others then return(FALSE) ;
88 end;
89 
90 function C_backorderedFormula return VARCHAR2 is
91 begin
92 
93 if (P_OE_STATUS = 'I') then
94 return('nvl(wdd.requested_quantity,0)') ; end if;
95 RETURN NULL; end;
96 
97 function C_whereFormula return VARCHAR2 is
98 begin
99 
100 if (P_OE_STATUS = 'I') then
101 return('AND     nvl(oel.source_document_line_id, -9)  =  prl.requisition_line_id
102 AND     oeh.orig_sys_document_ref       = prh.segment1
103 AND     oeh.order_source_id    = psp1.order_source_id
104 AND     oeh.header_id                       = oel.header_id
105 AND     oel.line_id = wdd.source_line_id
106 AND     wdd.source_code = ''OE''
107 AND     wdd.released_status = ''B''  ');
108 
109 end if;
110 
111 RETURN 'and 1=1'; end;
112 
113 function C_fromFormula return VARCHAR2 is
114 begin
115 
116 if (P_OE_STATUS = 'I') then
117 return(',       oe_order_lines_all                              oel
118  ,       oe_order_headers_all                             oeh
119  ,       wsh_delivery_details                       wdd') ;
120 end if;
121 
122 RETURN NULL; end;
123 
124 function g_requisitiongroupfilter(backordered in number) return boolean is
125 begin
126 
127 return (backordered > 0);
128   return (TRUE);
129 end;
130 
131 function C_ship_quantityFormula return VARCHAR2 is
132 begin
133 
134 if (P_OE_STATUS = 'I') then
135 return('nvl(oel.shipped_quantity, 0)');
136 else return ('to_number(null)');
137 end if;
138 
139 RETURN NULL; end;
140 
141 --Functions to refer Oracle report placeholders--
142 
143 END PO_POXRQOBO_XMLP_PKG ;
144