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;
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,
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: