PACKAGE BODY: APPS.FLM_FLMRFPKB_XMLP_PKG

Source

1 PACKAGE BODY FLM_FLMRFPKB_XMLP_PKG AS
2 /* $Header: FLMRFPKBB.pls 120.0 2007/12/24 15:32:20 nchinnam noship $ */
3   FUNCTION AFTERREPORT RETURN BOOLEAN IS
4   BEGIN
5     IF (P_RETCODE <> 2) THEN
6       DELETE FROM FLM_KANBAN_PURGE_TEMP
7        WHERE GROUP_ID = P_CONC_REQUEST_ID;
8       COMMIT;
9     END IF;
10     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
11     RETURN (TRUE);
12   END AFTERREPORT;
13 
14 function BeforeReport return boolean is
15   retcode number;
16   group_id number := -1;
17   errbuf varchar2(4000);
18   stmt_no number;
19 begin
20    P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
21 /*  SRW.USER_EXIT('FND SRWINIT');
22   SRW.USER_EXIT('
23   FND FLEXSQL
24   CODE="MSTK"
25   APPL_SHORT_NAME="INV"
26   OUTPUT=":P_ASSY_FLEX"
27   TABLEALIAS="MSI1"
28   MODE="SELECT"
29   DISPLAY="ALL"');
30 
31   SRW.USER_EXIT('
32   FND FLEXSQL
33   CODE="MTLL"
34   APPL_SHORT_NAME="INV"
35   OUTPUT=":P_LOC_FLEX"
36   TABLEALIAS="MIL"
37   MODE="SELECT"
38   DISPLAY="ALL"');*/
39 BEGIN
40    stmt_no := 10;
41    select organization_code into P_ORG_NAME
42    from org_organization_definitions
43    where organization_id = P_ORG_ID;
44 
45    stmt_no := 20;
46    if (P_LINE_ID IS NOT NULL) then
47      select line_code into P_LINE_CODE
48        from wip_lines
49       where line_id = P_LINE_ID
50         and organization_id = P_ORG_ID;
51     end if;
52 
53    stmt_no := 30;
54    if (P_SUPPLIER_ID IS NOT NULL) then
55       select vendor_name
56         into P_SUPPLIER_NAME
57         from po_suppliers_val_v
58        where vendor_id = P_SUPPLIER_ID;
59    end if;
60 
61    stmt_no := 40;
62    if (P_SOURCE_ORG_ID IS NOT NULL) then
63       select organization_code into P_SOURCE_ORG_NAME
64         from org_organization_definitions
65       where organization_id = P_SOURCE_ORG_ID;
66    end if;
67 
68    stmt_no := 50;
69    if (P_SOURCE_TYPE IS NOT NULL) then
70       select meaning into P_SOURCE_TYPE_CODE
71         from mfg_lookups
72        where lookup_type = 'MTL_KANBAN_SOURCE_TYPE'
73          and lookup_code = P_SOURCE_TYPE;
74    end if;
75 
76    stmt_no := 60;
77    select meaning into P_REPORT_OPT
78      from mfg_lookups
79     where lookup_type = 'FLM_RPT_LIN_REPORT_OPT'
80       and lookup_code = P_REPORT_OPTION;
81 
82    stmt_no := 70;
83    select meaning into P_DELETE_CARD_OPT
84      from mfg_lookups
85     where lookup_type = 'FLM_KANBAN_PURGE_CARD'
86       and lookup_code = P_DELETE_CARD;
87 
88    stmt_no := 80;
89    FLM_KANBAN_PURGE.PURGE_KANBAN(errbuf,retcode,p_conc_request_id,p_org_id,
90                             p_item_from,p_item_to,p_subinv_from,p_subinv_to,
91                             p_source_type,p_line_id,p_supplier_id,
92                             p_source_org_id,p_source_subinv,p_delete_card);
93 
94     END;
95     p_retcode := retcode;
96     if (p_retcode <> 0) then
97         MRP_UTIL.MRP_LOG('PL/SQL returned error');
98     end if;
99     return (TRUE);
100 
101     EXCEPTION when no_data_found then
102 	--SRW.MESSAGE(1001, stmt_no);
103 
104 	return FALSE;
105         null;
106 end;
107 END FLM_FLMRFPKB_XMLP_PKG;
108