发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation
来源：互联网 发布：新开的淘宝店 编辑：程序博客网 时间：2024/06/08 13:36
发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation这个问题困扰了项目组不少时间，最终在my oracle support 中找到了对应
发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation
这个问题困扰了项目组不少时间，最终在my oracle support 中找到了对应的方案。重新整理如下：重要的内容摘录如下：应用场景
Oracle 订单管理 -12.0.0 及后续版本本文档的信息适用任何平台。
表单：WSHFSTRX.FMB - 发运事务处理表单
表单：OEXOEMOE.FMB - 录入订单
症状：
登记订单的同时，WSH_DELIVERY_DETAILS表中创建状态为“等待发放”的配送详细信息。然而，OMI 标记为"X"。配送详细信息可以被成功挑库发放和发运确认。
当“连接行程停靠站”运行时，它成功完成但是没有连接配送详细信息到销售订单，因此订单行并不会显示为“已发运”。它的状态仍然为“已挑库”（等待发运）。
OMI= Order Management Interface.
表wsh_delivery_details中，OMI的列是oe_interfaced_flag。
登记订单以后，系统在wsh_delivery_details中创建一个配送详细信息，并且oe_interfaced_flag=N。一旦发运完成，系统连接配送详细信息到订单管理，并且oe_interfaced_flag更改为"Y"。
当oe_interfaced_flag=X时，系统不能连接配送详细信息到订单管理。
代表这个OMI标记的方式有
OMI=XOMI flagOM flagoe_interfaced_flag查验任何打开的订单是否有oe_interfaced_flag=X的发运详细信息，可以运行：
select wdd.source_header_number "Order Number", wdd.source_line_id,wdd.delivery_detail_id, wdd.released_status, wdd.oe_interfaced_flag,wdd.creation_date, ol.flow_status_code,ol.open_flagFROM wsh_delivery_details wdd,oe_order_lines_all olWHERE wdd.source_line_id = ol.line_idand wdd.source_code = 'OE'and wdd.container_flag = 'N'and wdd.oe_interfaced_flag = 'X'and ol.open_flag = 'Y';
步骤
责任：订单管理超级用户创建并登记订单挑库发放发运确认订单管理行显示"已挑库"，而不是"已发运"在HTMomse12.sql中输出flow code = Awaiting Shipping（等待发运）。原因
当配置文件选项"WMS:部署模式"被设置为"已分配模式"时，配送详细细节被创建时oe_interfaced_flag=X，并且登记订单的时候不是N。这个配置文件选项是R12新增的。配置文件选项"WMS:部署模式"有三个值可供选择：
"集成模式""已分配模式""LSP模式"三种模式的设置情形：
集成模式：当WMS系统与ERP或者EBS集成时使用这个设置；已分配模式：当想要有一个断开的仓库业务----可以7天24小时起作用，而与ERP状态无关----时，选择这个设置。你可以再一个分布式仓库管理系统实例上拥有仓库或者每个仓库有一个分开的DWMS实例。这些DWMS实例将和host（ERP）系统沟通事务处理。LSP模式：由物流服务提供商（提供物流服务却不拥有物料）选定此设置。LSP是一个单独的解决方案，作为LSP提供商，你需要定义客户并为物料接收、储存和发运向客户收费（开票）。LSP将需要与不同的客户系统沟通并支持"多租户"。如果配置文件选项被设置为"已分配模式"或者"LSP模式"，登记一个订单时，系统在wsh_delivery_details中创建配送详细信息，并且oe_interfaced_flag = X。
下面Bug中开发重审了这个问题：
Bug 12866774 - 发运确认后，订单行仍然是“已挑库”（等待发运）状态
解决方案
1、修改配置文件选项"WMS:部署模式"为"集成模式"。（系统管理员责任，导航到配置文件->系统）2、退出应用，重新登录。
3、创建新的订单行，然后确认wsh_delivery_details上的oe_interfaced_flag不是"X"。你可以使用前面的查询语句。
由于配置文件选项"WMS:部署模式"职能在地点层设置，这意味着单一的EBS实例只能有"启用已分配模式WMS的组织"或者"启用WMS的组织"，但不能同时选择。
PS：HTMomse12.sql文件内容
/* HTMomse not release dependant *//* # $Header: HTMomse.sql 1.0 20160229 Support $#+======================================================================================+#| Copyright (c) 2002 Oracle Corporation Redwood Shores, California, USA |#| Oracle Support Services. All rights reserved |#+======================================================================================+#========================================================================================# PURPOSE:This script will collect information related to a sales order #transaction and it's Workflow processes. This script should be #run whenever there are problems related to a sales order #transaction, including processes like Pick Release, Shipping, #Invoice interface.## FILE NAME:HTMomse.sql# FILE VERSION:1.0# PRODUCT: Oracle Order Management# PRODUCT VERSIONS: 11i and 12# PLATFORM: Generic# PARAMETERS:Order_Number, Header_Id (opt), Line_Id (opt)#========================================================================================# USAGE: sqlplus apps/apps @HTMomse.sql## This script requires a header_id to be passed in as a parameter ONLY if there are # multiple header_id's for the order requested. If there is only one header_id returned # after inputting the order number, simply hit enter and this header_id will be assumed. ## Entering a line_id is only required when you wish to have output for one order line. # Otherwise, hit enter without entering a line_id and all lines will be output in the # script.## The script writes to an output file named HTMomse_.html on DB Server# under 'utl_file_dir', this file may be viewed in any HTML browser.# *//* Verify the instance is Release to set the environment later */variable apps_version varchar2(100);set serveroutput onBEGINSELECT max(release_name)INTO :apps_versionFROM fnd_product_groups;dbms_output.put_line('Applications Version '||:apps_version);END;/WHENEVER SQLERROR CONTINUE;set term off;/*#=========================================================================================# CHANGE HISTORY: This script is based on HTMomse12 version 12.0.4.160122From HTMomse11i:31-MAR-00 Created rnmercer 12-DEC-00 Major modifications to the look of the report including rnmercerabreviated column names for flags, etc. A legend crossreferencing the abreviations is included in the output.Got rid of the need to input the org_id. It is set viaderived data from the header_id. 05-DEC-01 Changed format of output filename as part of the iTarautomated scripting initiative. rodavid02-APR-04 Modified to create HTML output file and included basic14-APR-04 verifications to help the Analysis rijamesFor HTMomse12:09-JAN-08 Created as copy of HTMomse11i 7.5.1 rijames11-JAN-08 Modified set environment using rodavid script rijames..22-JAN-16 Add validation for options case and size-1 capital char rijames Ver. 12.0.4.16012208-FEB-16 Allow Header information (WF, Price, Holds) to print rijameswhen 'Header Only' is enabled (no lines on Order). 08-FEB-16 Add Internal Activity Status on Work Flow outputs. rijames23-FEB-16 Add field Batch_id on DELIVERY DETAILS. rijames23-FEB-16 Add field Reservable on ORDER LINES. rijames26-FEB-16 Add queries for Back to Back Orders on PO Requisitions rijamesFor HTMomse01-MAR-16 Modify existing HTMomse12 to execute on Rel.11i also rijamesNew fields for Rel.12 marked as comments on SQL's08-MAR-16 Add rownum = 1 on OE_LINES WF status to manage ORA-1422 rijames Ver. 1.0.16030916-MAR-16 Add OTM Installed, Enabled on Organizations query. rijames16-MAR-16 Remove duplicate column Source_Line_Set_Id from WDD rijames17-MAR-16 Add additional exeptions on OE Headers and OE Lines rijames17-MAR-16 Add Mtl_Transactions_Enabled_Flag on WDD results rijames Ver. 1.0.16031721-MAR-16 Modify SQLs on Receivables tables to include missing trx rijames Ver. 1.0.16032124-MAR-16 Add Order Source on OE_Headers rijames 24-MAR-16 Add Service Details on OE_Lines rijames Ver. 1.0.16032425-MAR-16 Correct WMS default to 'N' rijames Ver. 1.0.160325##========================================================================================References----------The latest version of the script can be obtained from My Oracle SupportNote 133464.1 - HTMOMSE Sales Order Diagnostic Script */variable v_order_num varchar2(100);variable v_error number;variable v_line_tot number;variable v_line_cnt number;variable sales_ord_id number;variable v_op_unit number;variable v_head_cnt number;variable v_header_id number;variable v_head_only varchar2(1);variable r_line_t varchar2(100);variable r_res_q number;variable r_wdd number;variable r_flag varchar2(100);variable r_pro_na varchar2(100);variable r_act_na varchar2(100);variable r_result varchar2(100);variable r_act_s varchar2(100);variable r_error number;variable is_opm varchar2(2);variable all_or_top10 varchar2(100);set arraysize 4;set pagesize 58; set term on;set linesize 145;set underline =; set verify off; set serveroutput on size 1000000;set feedback off;-- OE_ORDER_HEADERS column HEADER_ID format 99999999;column ORGANIZATION_NAME format A30;column TYPE_ID format 99999999;column TYPE_NAME format A15;column ORD_DATE_TYPE format a15;column ORD_NUM format 999999999;column VERS format 9999;column ORD_TYPE_ID format 999999999; column FLOW_CODE format a22;column CUST_NAME format A20;column CUST_ID format 999999999; column SHIP_TO_ID format 999999999;column SHIP_TO format A12;column SOLD_TO_ID format 999999999;column PO_NUMBER format A09;column DATE_ORD format A15;column PL_ID format 99999;column PRICE_LIST_NAME format A15;column PL_NAME format A15;column SHIP_PART format A09; column ORGANIZATION format 9999999;column WH_ID format 99999;column DEMAND_CLASS format A12;column OP format A05;column CN format A05;column BK format A05;column DRP_SHP format A07; column CYCLE_ID format 99999999;column ORD_SRC_ID format 99999999;column TRANS_TYPE format A12;column CATEGORY format A08;column SP format A05;column CAT format A06;-- WF_NOTIFICATIONScolumn TO_USER format a22;column ORIG_RECIP format a10;column RECIP_ROLE format a10;column MAIL_STAT format a9;column MESSAGE_NAME format a25;column SUBJECT format a45;-- OE_TRANSACTION_TYPES_ALLcolumn ORDER_TYPE_NAME format A25;column TYPE_NAME format A15;column CONSTANTOE format A15;column SHIP_PRIORITY format A13;column SYS_REQD format A08;-- OE_ORDER_LINES_ALLcolumn LINE_ID format 99999999;column LINE format A08;column LINE_NUM format A08;column LINE_CTG format A09;column CONFIG_HDR_ID format B99999999; column SSCHED format B9999;column PRT_LINE_ID format B99999999;column ATO_LINE_ID format B99999999;column LNK_LINE_ID format B99999999;column SHP_LINE_ID format B99999999;column SRC_LINE_ID format B99999999;column SRV_LINE_ID format B99999999;column ITEM_ID format 99999999;column ITEM format A17;column ORD_Q format 999999.99;column ORG_Q format 999999.99;column REQ_Q format 999999.99;column PRICE format $999999999.99;column SHP_Q format 999999.99;column Q_INC format 999999.99;column SHN_Q format 999999.99;column SHP_Q format 999999.99;column FUL_Q format 999999.99column RES_Q format 999999.99;column INC_Q format 999999.99;column CAN_Q format 999999.99;column LN_SET_TY format A11;column SH_SET_TY format A11;column AR_SET_TY format A11;column REQUEST_D format A15;column SCHEDUL_D format A15;column SOURCE_TYPE format A11;column DEM_CLASS format A10;column LINE_DETAIL_ID format 9999999999; --column OPEN_FL format A07;--column CANC_FL format A07;--column BOOKED format A07;column SH format A05;column VD format A05;column FF format A05;column SUBINV format A10;column SSC format A05;column SI format A05;column II format A05;column INVC_INT_STAT format A14;column SHIPPABLE format A08;column TRANSACTABLE format A08;column RESERVABLE format A08;column RELEASED format A08;column FOR_REVENUE format A08;column DELIVERY format 9999999999;column SET_TYPE format A15;column SET_NAME format A10;column STATUS format A06;column SCH_SHP_DT format A10;column SCH_ARV_DT format A10;column CARRIER format A15;column SHIP_METHOD format A15;column wf_act_code format a11;column wf_result format a9;column hist_comments format a45;column hist_type format a12;-- column PRICE format $9999999999.99;-- WORKFLOW TABLEScolumn ITEM_KEY format A08;column FLOW_PROCESS format A22;column RESULT_CODE format A15;column RESULT format A15;column ASSIGNED_USER format A10;column ERROR_NAME format A19;column PROCESS_NAME format A25;column ACTIVITY_NAME format A25;column ERROR_ACTIVITY_NAME format A31;column ACT_STATUS format A10;column HEAD_ID format A08;column LIN_ID format A08; column NOTIF_ID format 99999999; column ERROR_NAME format A14;column ERR_RETRY_ROLE format A14;column ERR_RETRY_USER format A14;column BEGIN_DATE format A18;column END_DATE format A18;column ORD_TYPE_NAME format A20;column CONSTANTOE format A12;column DEMAND_ID format 9999999999;column PARDEM_ID format 9999999999;column DS_HEADER_ID format 99999999;column DS_LINE format A08;column RSV_QTY format 9999999.99;column SAT_QTY format 9999999.99;column PND_QTY format 9999999.99;column REQUIRD_D format A15;column TY format 99999;column UP format 99999.99;column MRP format 99999.99;column ATP format 99999.99;column PICKING_HEADER_ID format 9999999999;column PICK_SLIP format 9999999999;column BATCH_ID format 99999999;column STATUS_CODE format A11;column BATCH_NAME format A30;column PICKING_LINE_ID format 9999999999;column CONFIRMED format A09;column RA_INTERFACE format A12;column IN_INTERFACE format A15;column PICK_LN_DTL_ID format 9999999999;column SUBINVENTORY format A12;column REV format A05;column LOT_NUMBER format A15;column SERIAL_NUMBER format A20;column LOCATION_ID format 9999999999;column ORG format A05;column ATO format A05;column OPT format A05;column CFG format A05;column SHIP_MC format A07;column SHIP_SET format 99999999;column ITEM_TYPE format A09;column LINE_TYPE format A09;column ENTER format A10;column CANCEL_ORD format A10;column CANCEL_LIN format A10;column CTG format A05;column INCL format A05;column CONF format A05;column WIP_RSV format 9999999;column WIP_COM format 9999999;column COMP_CODE format A10;column SRC_TYP format 9999999;column DEM_TYP format 9999999;column WIP_ID format B99999999;column JOB_NAME format A15;column JOB_STAT format A12;column UOM format A5;column REL_FL format A06;column SHIP_FL format A07;column FOR_REV format A07;column AUTOSCH format A06;column DEP_NAME format a10;column ORG_ID format 99999;column WSH_ID format 9999999;column SOURCE_CD format a12;column STAT_CODE format A11;column CLOSED_DT format A09;column FREIGHT format A09;column PLN_DEP_DT format A10;column ACT_DEP_DT format A10;column PLN_DEP_ID format 9999999999;column ACT_DEP_ID format 9999999999;column LOAD_ORD_FLG format A12;column DEL_SEL format A07;column DEP_SEL format A07;column REL_STAT format A08;column LIN_STAT format A08;column WIP_ENT_ID format 9999999999;column CONFIRM_D format A09;column INVC_STAT format A10;column INVC_INTF format A10;column SHIP_STAT format A10;column SHIP_INTF format A10;column LOT format A10;column REV format A05;column SERIAL_NUM format A10;column LOC_ID format 99999999;column RESV_FL format A07;column TRAN_FL format A07;column SCHED_STAT format A10;column INVOICE_TRIGGER format A15;column SOURCING_STATUS format A15;column INVOICING_STATUS format A16; column CANCELLED_FLAG format A14;column OPEN_FLAG format A09;column CONSOLIDATION_STATUS_CODE format A25;column CONSOLIDATION_PREF_FLAG format A23; column PURCHASE_ORDER_NUM format A18;column DEL_ID format 9999999;column DEL_NAME format A10;-- PO_REQUISITION_INTERFACE_ALLcolumn AUTH_STATUS format A11; column DEST_TYPE format A10; column SRC_CODE format A11; column SRC_TYPE_CODE format A13; -- PO_REQUISITION_HEADERS_ALLcolumn REQ_NUMBER format A10;column SUMMARY format A07;column XFR_OE_FLAG format A11;column REQ_TYPE format A11;column ENABLED format A07;column ITEM_DESC format A40;column CANC format A05; column ENC_FL format A06; column RFQ format A05;column SRC_TYPE format a09;column SRC_ORG format 9999999;-- PO_HEADERScolumn PO_NUM format A06;-- MTL_SUPPLY column SUP_TYPE format a08;-- MTL_RESERVATIONScolumn SHIP_READY format A12;column SS_TYPE_ID format A11;-- WSH_TRIPScolumn TRIP_ID format 9999999;column TRIP_NAME format A10;column PLND format A05;column VEH_NUM format A10;column CARR_ID format 9999999;column DET_Q format 99999;column DS_TYPE format 9999999;column ROUTE_ID format 99999999;column VEH_ORG_ID format 9999999999;-- WSH_TRIP_STOPScolumn STOP_ID format 99999999;column SEQ_NUM format 9999999;column STOP_LOC_ID format 99999999999;column PLN_DEP_DATE format A15;column PLN_ARV_DATE format A15;column ACT_DEP_DATE format A15;column ACT_ARV_DATE format A15;column PEND_INTERF format A11;-- WSH_DELIVERY_LEGScolumn LEG_ID format 9999999;column LOAD_TENDER_STAT format A15;-- WSH_NEW_DELIVERIES DELcolumn DEL_NAME format A12;column BOOKING_NUM format A12;column WAYBILL format A12;column ACCEPTED format A15;column PICKUP_DT format A15;column DROPOFF_DT format A15;-- WSH_DELIVERY_ASSIGNMENTS ASGcolumn ACTIVE format A06;-- WSH_DELIVERY_DETAILScolumn REL_STATUS format A17;column STA format 99999;column STB format 99999;column HOLD_CODE format A09;column SMC format A05;column SUB format A09;column CUR_SUB format A09;column ORG_SUB format A09;column REV format A05;column LOT format A05;column SERIAL format A10;column LOC_ID format 99999999;column SHIP_METH format A10;column OMI format A05;column INI format A05;column MVT_STATUS format A10;column INV_INT format A07;column CONT_NAME format A15;column CONT_TYPE format A10;column UNIT_NUM format A08; column CONTAINER format A09;column REQ_DATE format A15;column MVT_STAT format A08;column DEL_DET_ID format 9999999999;column RELEASE_STAT format A15;column REQ_Q format 999999.99;column DLV_Q format 999999.99;column SRQ_Q format 999999.99;column BO_Q format 999999.99;--column CAN_QTY format 9999999;column SHIP_TO_ID format 999999999;column LINE_REQ_QTY format 999999999999;column TYPE format A05;column MO_LINE_ID format 9999999999;column DELIV_ID format 999999999;column SH_FROM_ID format 999999999;column SH_TO_ID format 99999999;--WSH_PICK_SLIP_Vcolumn LINE_STAT format A11;column FROM_SUB format A09;column TO_SUB format A09;column DETL_DATE format A15;column LINE_STATUS format A11;--MTL_TXN_REQUEST_LINES_Vcolumn REQ_NUM format A10;column MV_LINE_STAT format A14;column MO_NUMBER format A09;column MOVE_TYPE_NAME format A14;column TRNS_SRC_TYPE format A13;column TRNS_TYPE_NAME format A30;column TRNS_ACTION format A15;column LOT_NUM format A10;--MTL_MATERIAL_TRANSACTIONS_TEMPcolumn ERROR_EXPL format A10;-- RA_CUSTOMER_TRX -- RA_CUSTOMER_TRX_LINEScolumn ORD_LINE_NUM format 999999999999;column TRX_NUMBER format A10;column CONTEXT format A12;column Order_Num_1 format A11;column Order_Type_2 format A12;column Delivery_3 format A10;column WayBill_4 format A09;column Line_ID_6 format A09;column Pick_Line_Id_7 format A14;column Bill_Lading_8 format A13;column Warehouse_10 format A12;column SOURCE format A30;column TAX_FL format A06; column QTY_ORD format 9999999.99;column QTY format 9999999.99;column ORD_LINE_NUM format A12;column HEAD_CAT format A8;column CURR format A4;column TAX_EX_FL format A09;column TERR_SEG1 format A09;column TERR_SEG2 format A09;column TERR_SEG3 format A09;column MESSAGE_TEXT format A145;column INVALID_VALUE format A30;column STATUS format a8;column ERR_TYPE_KEY format a14;column ASGND_USER format a10;column ERR_PROCESS_NAME format a18;column ERR_ACTIVITY_NAME format a22;column hold_name format a22;column hold_type format a12;column WF_ACTIVITY format a15;column ENTITY format a8;column ENTITY2 format a8;column HOLD_UNTIL format a18;column RELEASE_REASON format a14;column H_REL format a5;column S_REL format a5;column AF format A5;column LIST_TYPE_CODE format a14;column UA format A5;column UF format A5;column AP format A5;column ARITH_OP format a8;column TAX_CODE format a12;column INF format A5;column EF format A5;column CHG_TY_CD format a9;column AC format A5;column PI format A5;column CD format A5;column LIST_LN_NO format a10;column LK format 99999;column PP format 99999;column MOD_LVL format a7;column PERC format 9999;column STATUS format a6;column msg_Source format a14; column error format a30;column ITEM_DESC format a25;column PRICE format $999999999.99column REQ_NUM_IK format A9;column ACCEPT_REQD format A10;column CLS_STAT format A08;column CONF_ORD format A08;column CURR_CODE format A05;column ENABLED format A07;column FROZEN format A06;column SUMM format A05;column TYPE format A10;column ITEM_KEY format A09;column SHIP_TO format 9999999;column PO_LINE format 9999;column FIRM format A05;column ITEM_DESC format A40;column PO_NUM_IK format A9;column ERROR_N format A7;column SRC_DOC format a9;column SHP_LINE_STATUS format a15;column RCV_Q format 99999;column TRANS_TYPE format A10;column INSPECT_STAT format A13;column INTF_SRC format A11;column SRC_DOC_CODE format A12;column QTY format 9999;column PROC_MODE format a10;column DEST_TYPE format a9;column INSP_STAT format a13;column INSP_SRC format a8;column PROC_STAT format a9;column RCPT_SRC format a8;column TRNS_STAT format a9;column TRNS_TYPE format a9;column error_wie format a100;column status format a9;column firm format 9999;column WIP_SUP_TYPE format a13;column JOB_NAME format a8;column TRANS_TYPE format a19;column SRC_CODE format a8;column PHS format 99999;column STAT_TY format 9999999;column STAT format 9999;column LOAD format 9999;column status format a9;column firm format 9999;column WIP_SUP_TYPE format a13;column JOB_NAME format a8;column TRANS_TYPE format a19;column SRC_CODE format a8;column PHS format 99999;column STAT_TY format 9999999;column STAT format 9999;column LOAD format 9999;column STOP_DESCRIPTION format A58;column GRS_WT format 999999;column FL_PER format 999.99;column VOL format 9999;column VOL_UOM format a07;column CF format A05;column WT_UOM format a06;column FOB_CODE format a11;column FRT_TERMS format a9;column LCK format 99999;column PROCESS format 9999999;column ERROR_CODE format A30;column ERROR_EXPL format A60;column FRT_NAME format a30;column FRT_TYPE format a15;column FRT_LEVEL format a15;column QTY format 9999;column PRM_Q format 99999; column DLV_Q format 99999; column DTL_Q format 99999; column LCK format A05;column PROCESS format A07;column ERROR_CODE format A11;column ERROR_EXPL format A30;column TRANS_TYPE format A11;column QTY format 9999;column LINE_NUM format 99999999;column BATCH_SOURCE format a20;column SO_LIN format a06;column AR_ID format 99999;column IR_ID format 99999;column WH_ID_10 format a08;column PA_ID_11 format a08;column C_RATE format 999999;column TR format 9999;column EF format A05;column INTF_LINE_ID format 99999999999;column CRD_Q format 99999;column PRICE format $9999999.99;column PO_NUMBER format A09;column COMP_FL format a07;column EXTD_AMT format $999,999.99;column REV_AMT format $999,999.99;column TF format A05;column SOURCE format A11;column INV_Q format 99999;column SHIP_VIA format A12;Set heading on-- WHENEVER SQLERROR EXIT FAILURE ROLLBACK;prompt accept order_number_selected prompt 'Please enter Sales Order number: ' prompt begin:v_error := 0;:v_order_num := '&order_number_selected';select count(*) into :v_head_cntfrom oe_order_headers_allwhere order_number = :v_order_num;if :v_head_cnt = 0 thenRAISE no_data_found;end if;if :v_head_cnt = 1 thenselect header_id into :v_header_idfrom oe_order_headers_allwhere order_number = :v_order_num;end if;exceptionwhen no_data_found thendbms_output.put_line('ERROR - Invalid order number entered');dbms_output.put_line('ACTION - Script execution must be aborted');dbms_output.put_line('ACTION - Please hit CTL-C to exit');:v_error := 1;raise;when others thendbms_output.put_line('ERROR - Unable to retrieve order due to error: '||SQLERRM);dbms_output.put_line('ACTION - Script execution must be aborted');dbms_output.put_line('ACTION - Please hit CTL-C to exit');:v_error := 1;raise;end;/-- spool &out_file;/* Display list of header_ids matching the order number entered */selectORD.HEADER_ID HEADER_ID,TYP.NAME ORDER_TYPE_NAME,ORD.ORDER_CATEGORY_CODE CATEGORY,ORD.ORG_ID ORG_ID,(select namefrom hr_operating_unitswhere organization_id = nvl(ORD.ORG_ID,-99)) ORGANIZATION_NAMEfromOE_ORDER_HEADERS_ALL ORD,OE_TRANSACTION_TYPES_TL TYP,FND_LANGUAGES FLAwhereORD.ORDER_NUMBER = :v_order_numand TYP.LANGUAGE = FLA.LANGUAGE_CODE and FLA.INSTALLED_FLAG = 'B'and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_IDand :v_error = 0;prompt accept header_id_selected prompt 'Please enter HEADER_ID from list above (optional): 'prompt /* Set client info context based on the org_id from sales order */beginselect org_idinto :v_op_unitfrom oe_order_headers_all ordwhere ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id);if substr(:apps_version,1,2) = '11' then -- Release 11ifnd_client_info.set_org_context(to_char(:v_op_unit));else -- Release 12mo_global.set_policy_context(p_access_mode => 'S', p_org_id => :v_op_unit); -- by rodavidend if;exceptionwhen no_data_found thendbms_output.put_line('ERROR - Invalid order number entered');dbms_output.put_line('ACTION - Script execution must be aborted');dbms_output.put_line('ACTION - Please hit CTL-C to exit');:v_error := 1;raise;when others thendbms_output.put_line('ERROR - Unable to retrieve order due to error: '||SQLERRM);dbms_output.put_line('ACTION - Script execution must be aborted');dbms_output.put_line('ACTION - Please hit CTL-C to exit');:v_error := 1;raise;end;/beginselect count(*) into :v_line_totfrom oe_order_lines_allwhere header_id = nvl('&header_id_selected',:v_header_id);if :v_line_tot = 0 thendbms_output.put_line('WARNING - Order selected does not have any lines');dbms_output.put_line('WARNING - Please hit CTL-C to abort');dbms_output.put_line('WARNING - If you chose to continue only Header information will be printed,');dbms_output.put_line('WARNING - all additional entries will be ignored.');:v_head_only := 'Y';else:v_head_only := 'N';dbms_output.put_line(' ');dbms_output.put_line('Total number of Top lines on this Order '||to_char(:V_line_tot));end if;end;/promptaccept print_lines_summary prompt 'Do you want the Lines Summary to be printed? (Default Y): '/* Display all line_ids associated with this order number */select substr(LIN.LINE_ID,1,15) LINE_ID,substr(to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)),1,10) LINE_NUM,ITM.SEGMENT1 ITEM,substr(LIN.LINE_CATEGORY_CODE,1,10) lin_cat,nvl(LIN.ORDERED_QUANTITY,0) Order_QTY,LIN.ORDER_QUANTITY_UOM uom,substr(LIN.FLOW_STATUS_CODE,1,20) Line_status,nvl(LIN.SHIPPED_QUANTITY,0) shipped,nvl(LIN.FULFILLED_QUANTITY,0) fulfilled, nvl(LIN.INVOICED_QUANTITY,0) invoiced,nvl(LIN.CANCELLED_QUANTITY,0) cancelled fromOE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM where LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+)and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+)and LIN.OPTION_NUMBER IS NULLand LIN.ITEM_TYPE_CODE <> 'INCLUDED'and substr(UPPER(nvl('&print_lines_summary','Y')),1,1) = 'Y'order byNVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),NVL(LIN.SERVICE_REFERENCE_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;/* Display any header or line sets associated with this order */PROMPTPROMPT OE_SETS (SET)select ST1.SET_ID SET_ID, ST1.SET_NAME SET_NAME, ST1.SET_TYPE SET_TYPE, ST1.HEADER_ID HEADER_ID,ST1.INVENTORY_ITEM_ID ITEM_ID, ST1.ORDERED_QUANTITY_UOM UOM, ST1.LINE_TYPE_ID LINE_TYPE_ID,nvl(LST.SYSTEM_REQUIRED_FLAG,'N') SYS_REQD,ST1.SET_STATUS STATUS, to_char(ST1.SCHEDULE_SHIP_DATE,'DD-MON-RR_HH24:MI:SS') SCH_SHP_DT, to_char(ST1.SCHEDULE_ARRIVAL_DATE,'DD-MON-RR_HH24:MI:SS') SCH_ARV_DT,ST1.SHIP_FROM_ORG_ID SHIP_FROM, ST1.SHIP_TO_ORG_ID SHIP_TO_ID,ST1.SHIPMENT_PRIORITY_CODE SHIP_PRIORITY, ST1.FREIGHT_CARRIER_CODE CARRIER,ST1.SHIPPING_METHOD_CODE SHIP_METHOD,ST1.SHIP_TOLERANCE_ABOVE STA, ST1.SHIP_TOLERANCE_BELOW STBfrom OE_SETS ST1,OE_LINE_SETS LSTwhere ST1.SET_ID = LST.SET_ID(+)and ST1.HEADER_ID = nvl('&header_id_selected',:v_header_id)and substr(UPPER(nvl('&print_lines_summary','Y')),1,1) = 'Y';promptaccept line_id_selected prompt 'Please enter LINE_ID from list above(leave blank for all lines): 'beginif :v_line_tot > 0 then -- check for line_idbeginselect count(*) into :v_line_cntfrom oe_order_lines_allwhere header_id = nvl('&header_id_selected',:v_header_id)and nvl('&line_id_selected',0) in (0,line_id);if :v_line_cnt = 0 thenRAISE no_data_found;end if;exceptionwhen no_data_found thendbms_output.put_line('ERROR - Invalid line_id entered');dbms_output.put_line('ACTION - Please hit CTL-C to exit');dbms_output.put_line('.');:v_error := 1;raise;when others thendbms_output.put_line('ERROR - Unable to retrieve order line due to error: '||SQLERRM);dbms_output.put_line('ACTION - Please hit CTL-C to exit');dbms_output.put_line('.');:v_error := 1;raise;end;end if;end;/WHENEVER SQLERROR CONTINUE;promptaccept do_analysis prompt 'Do you want validation performed on this order (Default=Y): 'promptpromptaccept prt_wf prompt 'Do you want WorkFlow information printed? (Default=Y): 'accept prt_price prompt 'Do you want Pricing information printed? (Default=Y): 'accept prt_po prompt 'Do you want Purchasing information printed? (Default=Y): 'accept prt_rec prompt 'Do you want Receiving information printed? (Default=Y): 'accept prt_wip prompt 'Do you want Work In Progress information printed? (Default=Y): 'accept prt_inv prompt 'Do you want Inventory information printed? (Default=Y): 'accept prt_ar prompt 'Do you want Receivables information printed? (Default=Y): 'promptprompt Listing of tables for WMS could be extense, *** Note Default is No ***accept prt_wms prompt 'Do you want WMS information printed? (Default=N): 'promptprompt Listing of tables MTL_UNIT_TRANSACTIONS (MUT), WSH_SERIAL_NUMBERS (WSN)prompt and MTL_SERIAL_NUMBERS could be extense.accept det_cnt prompt 'Do you want complete listing (Y-All records N-only the first 10 records)? (Default=Y): 'promptset heading offdef version_code='1.0.160325'def c1='_'def pref='HTMomse'def suff='.html'def out_file='&pref&c1&order_number_selected&suff'-- Printout the filename and locationcolumn DUMMY new_value out_dir noprintcolumn DUMMY2 new_value host_nam noprintselect substr(value,1,instr(value||',',',')-1) DUMMYfrom v$parameter where name = 'utl_file_dir';select substr(machine,1,20) DUMMY2from v$session where upper(program) like '%SMON%';Prompt Output file created on Database Server: "&host_nam"Prompt Complete path and filename: "&out_dir/&out_file"set define '!'-- Tablesdef std=''def et=-- headersdef sh=' 'def dh=' 'def dhr=' 'def eh=''-- def sh=''-- def dh=''-- def eh=''-- linesdef sld=''def d=''def el=''-- def sld=''-- def d=''-- def el=''-- otrosdef f=-- eoldef b= -- bolddef eb= -- end bolddef sp=' ' -- spaceset null ' 'set define '&'-- Start of printoutDECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 is -- to print fieldsbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;function n2(v varchar2,v2 varchar2) return varchar2 is -- to print parametersbeginif v is null thenreturn v2;elsereturn v;end if;end n2;begin-- Creation of output file-- SQL fails when parameter is loo long -- select substr(value,1,instr(value||',',',')-1) into dirname-- from v$parameter where name = 'utl_file_dir';select substr(value,1,decode(instr(value,','),0,length(value),instr(value,',')-1)) into dirnamefrom v$parameter where name = 'utl_file_dir';-- handle := UTL_FILE.FOPEN(dirname,dirname||'/&out_file','W',32000);handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','W',32000);/* HTML header information */UTL_FILE.PUT_LINE(handle,'');UTL_FILE.PUT_LINE(handle,'');UTL_FILE.PUT_LINE(handle,'');UTL_FILE.PUT_LINE(handle,'');UTL_FILE.PUT_LINE(handle,'');UTL_FILE.PUT_LINE(handle,' ');-- DataBase name, creation date-- User and time script executionUTL_FILE.PUT_LINE(handle,'&std &sh DATABASE IDENTIFICATION &dh SCRIPT EXECUTION (Ver. &version_code) &eh');select '&sld &b DB Name: &eb '||name||' - &b Release: &eb '||substr(release_name,1,10)||' &d'||'&b Script run at Date/Time: &eb'||to_char(sysdate,'DD-MON-RR_HH24:MI:SS')||'&el'||'&sld &b Creation Date: &eb'||to_char(created,'DD-MON-RR_HH24:MI:SS')||'&d'into textfrom V$DATABASE, fnd_product_groups;UTL_FILE.PUT_LINE(handle,text);select '&b USER is: '||username into text from user_users;UTL_FILE.PUT_LINE(handle,text);UTL_FILE.PUT_LINE(handle,'&eb &el &et &f &f');UTL_FILE.PUT_LINE(handle,'&std &sh The test will be run with the following parameters &dh Sections being printed: &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld &b Order Number = &eb &order_number_selected &d WorkFlow = '||n2('&prt_wf','Y')||' &d Pricing = '||n2('&prt_price','Y')||' &el');UTL_FILE.PUT_LINE(handle,'&sld &b Header Id = &eb '||n2('&header_id_selected',:v_header_id||' *')||' &d Purchasing = '||n2('&prt_po','Y')||' &d Receiving = '||n2('&prt_rec','Y')||' &el');if :v_head_only = 'Y' thenUTL_FILE.PUT_LINE(handle,'&sld &b Line Id = &eb '||n2('','Header Only')||' &d Work in Progress = '||n2('&prt_wip','Y')||' &d Inventory = '||n2('&prt_inv','Y')||' &el');elseUTL_FILE.PUT_LINE(handle,'&sld &b Line Id = &eb '||n2('&line_id_selected','All Lines')||' &d Work in Progress = '||n2('&prt_wip','Y')||' &d Inventory = '||n2('&prt_inv','Y')||' &el');end if;UTL_FILE.PUT_LINE(handle,'&sld &b Validation = &eb '||n2('&do_analysis','Y')||' &d Receivables = '||n2('&prt_ar','Y')||' &d Serial Num. Details = '||n2('&det_cnt','Y')||' &el');UTL_FILE.PUT_LINE(handle,'&sld &sp &d WMS info = '||n2('&prt_wms','N')||' &d Summary = '||n2('&print_lines_summary','Y')||' &el');UTL_FILE.PUT_LINE(handle,'&et &f &f');-- Index for Major tables direct accessUTL_FILE.PUT_LINE(handle,'&std &sh INDEX FOR MAJOR TABLES DIRECT ACCESS &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld OE_SETS (SET) &d WSH_TRIPS (TRP) &el');UTL_FILE.PUT_LINE(handle,'&sld OE_ORDER_HEADERS (ORD) &d WSH_TRIP_STOPS (STP) &el');UTL_FILE.PUT_LINE(handle,'&sld OE_ORDER_LINES (LIN) &d WSH_NEW_DELIVERIES (DEL) &el');UTL_FILE.PUT_LINE(handle,'&sld MTL_RESERVATIONS (RES) &d WSH_DELIVERY_DETAILS (DET) &el');UTL_FILE.PUT_LINE(handle,'&sld MTL_TRANSACTIONS_INTERFACE (MTI) &d');UTL_FILE.PUT_LINE(handle,'WMS_RULES &el');UTL_FILE.PUT_LINE(handle,'&sld MTL_MATERIAL_TRANSACTIONS_TEMP (TMP) - UNPICKED LINES &d');UTL_FILE.PUT_LINE(handle,'RA_INTERFACE_LINES (RAI) &el');UTL_FILE.PUT_LINE(handle,'&sld MTL_MATERIAL_TRANSACTIONS (TRN) - PICKED LINES &d');UTL_FILE.PUT_LINE(handle,'RA_CUSTOMER_TRX (RAH) - INVOICE HEADERS &el');UTL_FILE.PUT_LINE(handle,'&sld MTL_TXN_REQUEST_LINES_V (MOV) &d ');UTL_FILE.PUT_LINE(handle,'RA_CUSTOMER_TRX_LINES (RAL) &el');UTL_FILE.PUT_LINE(handle,'&et &f &f');-- Parameters, initial listings from screenUTL_FILE.PUT_LINE(handle,'&std &sh HEADER_ID &dh ORDER_TYPE_NAME &dh CATEGORY &dh ORG_ID &dh ORGANIZATION_NAME &el');Declarecursor l_orders isselectORD.HEADER_ID Hea_I,TYP.NAME OT_NAME,ORD.ORDER_CATEGORY_CODE CAT_co,ORD.ORG_ID ORG_IfromOE_ORDER_HEADERS_ALL ORD,OE_TRANSACTION_TYPES_TL TYP,FND_LANGUAGES FLAwhereORD.ORDER_NUMBER = :v_order_numand TYP.LANGUAGE = FLA.LANGUAGE_CODE and FLA.INSTALLED_FLAG = 'B'and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_IDand :v_error = 0;or_name varchar2(100);beginfor lo in l_orders loop-- Organization Nameselect nameinto or_namefrom hr_operating_unitswhere organization_id = nvl(lo.ORG_I,-99);-- Print line to Output fileutl_file.put_line(handle,'&sld'||n(lo.hea_i)||'&d'||n(lo.ot_name)||'&d');utl_file.put_line(handle,n(lo.Cat_co)||'&d'||n(lo.org_i)||'&d'||n(or_name)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et ');if substr(UPPER(nvl('&print_lines_summary','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f &b LINE_IDs ASSOCIATED WITH THIS ORDER NUMBER &f');UTL_FILE.PUT_LINE(handle,'&std &sh LINE NUMBER &dh LINE_ID &dh ITEM &dh ORDER QTY &dh UOM &dh LINE STATUS &dh SHIP QTY &dh ');UTL_FILE.PUT_LINE(handle,'FULFILL QTY &dh INVOICE QTY &dh CANCEL QTY &dh OPEN &dh SHIP &dh CANC &dh SI &dh SHIP FROM &dh ');UTL_FILE.PUT_LINE(handle,'LINE TYPE &dh LINE CATEG &dh INVOICED &dh ARRIVAL SET_ID &dh SHIP SET_ID &dh LINE SET_ID &eh');Declarecursor l_lines_ord isselect to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE_NUM,LIN.LINE_ID LINE_ID,ITM.SEGMENT1 ITEM,nvl(LIN.ORDERED_QUANTITY,0) ORD_QTY,LIN.ORDER_QUANTITY_UOM Orduom,substr(LIN.FLOW_STATUS_CODE,1,22) Line_st,nvl(LIN.SHIPPED_QUANTITY,0) shpq,nvl(LIN.FULFILLED_QUANTITY,0) fulq, nvl(LIN.INVOICED_QUANTITY,0) invq, nvl(LIN.CANCELLED_QUANTITY,0) canq, nvl(LIN.OPEN_FLAG,'N') openf,nvl(LIN.SHIPPABLE_FLAG,'N') shipf,nvl(LIN.CANCELLED_FLAG,'N') canf,nvl(LIN.SHIPPING_INTERFACED_FLAG,'N') SI,LIN.SHIP_FROM_ORG_ID shipfrom,LIN.LINE_TYPE_ID LINE_TYPE_ID,LIN.LINE_CATEGORY_CODE lin_cat,nvl(LIN.INVOICE_INTERFACE_STATUS_CODE,'N') INV_INT_STAT,LIN.ARRIVAL_SET_ID ARRIV_SET_ID,LIN.SHIP_SET_ID SHIP_SET_ID,LIN.LINE_SET_ID LINE_SET_IDfromOE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM where LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+)and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+)and LIN.OPTION_NUMBER IS NULLand LIN.ITEM_TYPE_CODE <> 'INCLUDED'order byNVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),NVL(LIN.SERVICE_REFERENCE_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor ll in l_lines_ordlooputl_file.put_line(handle,'&sld'||n(ll.LINE_NUM)||'&d'||n(ll.LINE_ID)||'&d'||n(ll.ITEM)||'&d');utl_file.put_line(handle,n(ll.ORD_QTY)||'&d'||n(ll.Orduom)||'&d');utl_file.put_line(handle,n(ll.Line_st)||'&d'||n(ll.shpq)||'&d');utl_file.put_line(handle,n(ll.fulq)||'&d'||n(ll.invq)||'&d');utl_file.put_line(handle,n(ll.canq)||'&d'||n(ll.openf)||'&d');utl_file.put_line(handle,n(ll.shipf)||'&d'||n(ll.canf)||'&d');utl_file.put_line(handle,n(ll.SI)||'&d'||n(ll.shipfrom)||'&d');utl_file.put_line(handle,n(ll.LINE_TYPE_ID)||'&d'||n(ll.LIN_CAT)||'&d');utl_file.put_line(handle,n(ll.INV_INT_STAT)||'&d'||n(ll.ARRIV_SET_ID)||'&d');utl_file.put_line(handle,n(ll.SHIP_SET_ID)||'&d'||n(ll.LINE_SET_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');/* Display any header or line sets associated with this order */UTL_FILE.PUT_LINE(handle,'&f &f OE_SETS (SET) &f');UTL_FILE.PUT_LINE(handle,'&std &sh SET_ID &dh SET_NAME &dh SET_TYPE &dh HEADER_ID &dh LINE_ID &dh ITEM_ID &dh UOM &dh LINE_TYPE_ID &dh SYS_REQD &dh ');UTL_FILE.PUT_LINE(handle,'STATUS &dh SCH_SHP_DT &dh SCH_ARV_DT &dh SHIP_FROM &dh SHIP_TO_ID &dh SHIP_PRIORITY &dh CARRIER &dh ');UTL_FILE.PUT_LINE(handle,'SHIP_METHOD &dh STA &dh STB &eh');Declarecursor l_oe_sets isselect ST1.SET_ID SET_ID,ST1.SET_NAME SET_NAME,ST1.SET_TYPE SET_TYPE,ST1.HEADER_ID HEADER_ID,LST.LINE_ID LINE_ID,ST1.INVENTORY_ITEM_ID ITEM_ID,ST1.ORDERED_QUANTITY_UOM UOM,ST1.LINE_TYPE_ID LINE_TYPE_ID,nvl(LST.SYSTEM_REQUIRED_FLAG,'N') SYS_REQD,ST1.SET_STATUS STATUS,to_char(ST1.SCHEDULE_SHIP_DATE,'DD-MON-RR_HH24:MI:SS') SCH_SHP_DT,to_char(ST1.SCHEDULE_ARRIVAL_DATE,'DD-MON-RR_HH24:MI:SS') SCH_ARV_DT,ST1.SHIP_FROM_ORG_ID SHIP_FROM,ST1.SHIP_TO_ORG_ID SHIP_TO_ID,ST1.SHIPMENT_PRIORITY_CODE SHIP_PRIORITY,ST1.FREIGHT_CARRIER_CODE CARRIER,ST1.SHIPPING_METHOD_CODE SHIP_METHOD,ST1.SHIP_TOLERANCE_ABOVE STA,ST1.SHIP_TOLERANCE_BELOW STBfrom OE_SETS ST1,OE_LINE_SETS LSTwhere ST1.SET_ID = LST.SET_ID(+)and ST1.HEADER_ID = nvl('&header_id_selected',:v_header_id); beginfor ll in l_oe_setslooputl_file.put_line(handle,'&sld'||n(ll.SET_ID)||'&d'||n(ll.SET_NAME)||'&d');utl_file.put_line(handle,n(ll.SET_TYPE)||'&d'||n(ll.HEADER_ID)||'&d');utl_file.put_line(handle,n(ll.LINE_ID)||'&d'||n(ll.ITEM_ID)||'&d');utl_file.put_line(handle,n(ll.UOM)||'&d'||n(ll.LINE_TYPE_ID)||'&d');utl_file.put_line(handle,n(ll.SYS_REQD)||'&d'||n(ll.STATUS)||'&d');utl_file.put_line(handle,n(ll.SCH_SHP_DT)||'&d'||n(ll.SCH_ARV_DT)||'&d');utl_file.put_line(handle,n(ll.SHIP_FROM)||'&d'||n(ll.SHIP_TO_ID)||'&d');utl_file.put_line(handle,n(ll.SHIP_PRIORITY)||'&d'||n(ll.CARRIER)||'&d');utl_file.put_line(handle,n(ll.SHIP_METHOD)||'&d'||n(ll.STA)||'&d');utl_file.put_line(handle,n(ll.STB)||'&el');end loop;end;end if;UTL_FILE.PUT_LINE(handle,'&et ');UTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin-- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedUTL_FILE.PUT_LINE(handle,'&f &f OE_ORDER_HEADERS (ORD) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh HEADER_ID &dh ORD_NUM &dh TYPE_ID &dh TYPE_NAME &dh FLOW_PROCESS &dh FLOW_CODE &dh BK &dh OP &dh CN &dh SP &dh ');UTL_FILE.PUT_LINE(handle,'CUST_ID &dh CUST_NAME &dh CURR_CODE &dh SHIP_ID &dh SHIP_TO &dh BILL_ID &dh ORD_DATE &dh WH_ID &dh ORG &dh ');UTL_FILE.PUT_LINE(handle,'ORD_SOURCE &dh CAT &dh PL_ID &dh PL_NAME &dh PO_NUMBER &dh STA &dh STB &dh OPERATING_UNIT &dh ORIG_SYS_DOC_REF &eh');declarecursor header1 isselect distinct ORD.HEADER_ID head_id,ORD.ORDER_NUMBER ord_no,ORD.ORDER_TYPE_ID ord_t,TYP.NAME ord_tna,ORD.SOLD_TO_ORG_ID cus_id,substr(CUS.CUSTOMER_NAME,1,20) cus_na,ORD.SHIP_TO_ORG_ID ship_t,substr(SHP.NAME,1,12) ship_tn,ORD.INVOICE_TO_ORG_ID bill_t,to_char(ORD.ORDERED_DATE,'DD-MON-RR_HH24:MI:SS') ord_d,nvl(ORD.BOOKED_FLAG,'N') book_g,nvl(ORD.OPEN_FLAG,'N') open_f,nvl(ORD.CANCELLED_FLAG,'N') can_f,nvl(ORD.PARTIAL_SHIPMENTS_ALLOWED,'Y') spa,ORD.SHIP_FROM_ORG_ID or_id,PAR.ORGANIZATION_CODE or_co,ORD.FLOW_STATUS_CODE fl_co,ORD.ORDER_CATEGORY_CODE cat_co,ORD.PRICE_LIST_ID pr_id,PRC.NAME pr_na,ORD.CUST_PO_NUMBER po_no,ORD.SHIP_TOLERANCE_ABOVE shta,ORD.SHIP_TOLERANCE_BELOW shtb,HR.NAME oper_unit,ORD.ORIG_SYS_DOCUMENT_REF orig_sys_ref,ORD.TRANSACTIONAL_CURR_CODE curr_code,OS.NAME Ord_Src fromOE_ORDER_HEADERS ORD,MTL_PARAMETERS PAR,OE_TRANSACTION_TYPES_V TYP,AR_CUSTOMERS CUS,OE_SHIP_TO_ORGS_V SHP,QP_LIST_HEADERS_V PRC,HR_OPERATING_UNITS HR,OE_ORDER_SOURCES OSwhereORD.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ORD.SHIP_FROM_ORG_ID = PAR.ORGANIZATION_ID(+)and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_ID(+)and ORD.SHIP_TO_ORG_ID = SHP.SITE_USE_ID(+)and ORD.SOLD_TO_ORG_ID = CUS.CUSTOMER_ID(+)and ORD.PRICE_LIST_ID = PRC.LIST_HEADER_ID(+)and ORD.ORG_ID = HR.ORGANIZATION_ID(+)and ORD.ORDER_SOURCE_ID = OS.ORDER_SOURCE_ID(+);r_ord_t varchar2(100);r_open_l number;r_canc_l number;r_canopen_l number;type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;begindbms_output.enable(1000000);:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..99loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(10).descrip := ' 10. Order_Header has associated lines with OPEN and CANCELLED flags set to Y.';msg(15).descrip := ' 15. Order_Header status is BOOKED but "Book" activity has not been completed.';msg(20).descrip := ' 20. Order_Header status is CLOSED but "Close" activity has not been completed.';msg(21).descrip := ' 21. Order_Header status is CLOSED but exist open lines associated to this header.';msg(22).descrip := ' 22. All associated lines has been closed but Order_Header is not ready to CLOSE.';msg(50).descrip := ' 50. No WorkFlow Process associated to this line.';msg(51).descrip := ' 51. Incorrect WorkFlow Process associated to this Order Header.';msg(52).descrip := ' 52. Incorrect WorkFlow Activity associated to this Order Header.';msg(53).descrip := ' 53. Incorrect WorkFlow Activity Result for this Order Header.';msg(54).descrip := ' 54. Incorrect WorkFlow Activity Status for this Order Header.';msg(99).descrip := ' 99. An Error occurred on query: ';-- end if;for h in header1 loop:r_flag := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then---- Gather general information--begin-- get Order_Header Flow nameselect WFA1.DISPLAY_NAMEinto r_ord_tFROM WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1where WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = to_Char(h.head_id)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID(+)and WFP.PROCESS_NAME = 'ROOT'and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select nvl(max(VERSION),-1)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME);-- Select current activityselect WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME, WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),LKP.MEANINGinto :r_pro_na, :r_act_na, :r_result, :r_act_sfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = To_Char(h.head_id)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand rownum = 1 -- to manage ORA-1422and WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand Execution_time = (Select Max(execution_time) from WF_ITEM_ACTIVITY_STATUSESwhere ITEM_TYPE = 'OEOH'and item_key = To_Char(h.head_id));exceptionwhen no_data_found then:r_flag := :r_flag || '50 ';msg(50).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'WF current activity ';end;-- Check if order has open lines and count also cancelled linesbeginselect sum(decode(open_flag,'Y',1,0)),sum(decode(cancelled_flag,'Y',1,0)),sum(decode(cancelled_flag,'Y',decode(open_flag,'Y',1,0),0))into r_open_l, r_canc_l, r_canopen_lfrom oe_order_lines_allwhere header_id = h.head_idgroup by header_id;exceptionwhen no_data_found thenr_open_l := 0;r_canc_l := 0;r_canopen_l := 0;end;----- Basic Verifications---- Open lines have cancelled flag showing as openif r_canopen_l > 0 then:r_flag := :r_flag || '10 ';msg(10).flag := '1';end if;-- All lines closed but Order Header status is not CLOSED and WF is NOT waiting to close.if r_open_l = 0 -- no open linesand h.fl_co <> 'CLOSED' thenif :r_pro_na = 'Close - Order' -- check current statusand :r_act_s = 'Deferred' thennull; -- OK just waiting for month endelse:r_flag := :r_flag || '22 ';msg(22).flag := '1';end if;end if; ----- Verifications for Order Header on ENTERED status---If h.fl_co = 'ENTERED' then-- verify current WF statusif :r_pro_na <> 'Book - Order, Manual' then:r_flag := :r_flag || '51 ';msg(51).flag := '1';elsif :r_act_na <> 'Book - Eligible' then:r_flag := :r_flag || '52 ';msg(52).flag := '1';elsif :r_result is not null then:r_flag := :r_flag || '53 ';msg(53).flag := '1';elsif :r_act_s <> 'Notified' then:r_flag := :r_flag || '54 ';msg(54).flag := '1';end if;end if; -- ENTERED----- Verifications for Order Header on BOOKED status---If h.fl_co = 'BOOKED' then-- Check is Book activity has been completedbeginselect WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),LKP.MEANINGinto :r_pro_na, :r_act_na, :r_result, :r_act_sfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = to_char(h.head_id)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFA1.DISPLAY_NAME = 'Book';exceptionwhen no_data_found then:r_flag := :r_flag || '15 ';msg(15).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'check BOOK activity ';end;if :r_act_na = 'Book' thenif :r_result = 'Complete' and :r_act_s = 'Complete' thennull; -- status is OKelse:r_flag := :r_flag || '15 ';msg(15).flag := '1';end if;end if;end if; -- BOOKED----- Verifications for Order Header on CLOSED status---If h.fl_co = 'CLOSED' then-- verify current WF statusif :r_pro_na <> r_ord_t then:r_flag := :r_flag || '51 ';msg(51).flag := '1';elsif :r_act_na <> 'End' then:r_flag := :r_flag || '52 ';msg(52).flag := '1';elsif :r_result <> 'Null' then:r_flag := :r_flag || '53 ';msg(53).flag := '1';elsif :r_act_s <> 'Complete' then:r_flag := :r_flag || '54 ';msg(54).flag := '1';end if;-- Get status for CLOSE activitybeginselect WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),LKP.MEANINGinto :r_pro_na, :r_act_na, :r_result, :r_act_sfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = To_Char(h.head_id)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFA1.DISPLAY_NAME = 'Close';exceptionwhen no_data_found then:r_flag := :r_flag || '20 ';msg(20).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'Check CLOSE activity ';end;-- verify CLOSE activity completedif :r_act_na = 'Close' thenif :r_result = 'Complete' and :r_act_s = 'Complete' thennull; -- status is OKelse:r_flag := :r_flag || '20 ';msg(20).flag := '1';end if;end if;-- check for open linesif r_open_l > 0 then :r_flag := :r_flag || '21 ';msg(21).flag := '1';end if;end if; -- CLOSEDend if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,n(h.head_id)||'&d'||n(h.ord_no)||'&d');utl_file.put_line(handle,n(h.ord_t)||'&d'||n(h.ord_tna)||'&d');utl_file.put_line(handle,n(r_ord_t)||'&d'||n(h.fl_co)||'&d');utl_file.put_line(handle,n(h.book_g)||'&d'||n(h.open_f)||'&d');utl_file.put_line(handle,n(h.can_f)||'&d'||n(h.spa)||'&d');utl_file.put_line(handle,n(h.cus_id)||'&d'||n(h.cus_na)||'&d');utl_file.put_line(handle,n(h.curr_code)||'&d');utl_file.put_line(handle,n(h.ship_t)||'&d'||n(h.ship_tn)||'&d');utl_file.put_line(handle,n(h.bill_t)||'&d'||n(h.ord_d)||'&d');utl_file.put_line(handle,n(h.or_id)||'&d'||n(h.or_co)||'&d');utl_file.put_line(handle,n(h.ord_src)||'&d');utl_file.put_line(handle,n(h.cat_co)||'&d'||n(h.pr_id)||'&d');utl_file.put_line(handle,n(h.pr_na)||'&d'||n(h.po_no)||'&d');utl_file.put_line(handle,n(h.shta)||'&d'||n(h.shtb)||'&d');utl_file.put_line(handle,n(h.oper_unit)||'&d'||n(h.orig_sys_ref)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..99loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin-- If :v_head_only = 'N' then -- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedif substr(UPPER(nvl('&prt_wf','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW ORDER STATUS &f');UTL_FILE.PUT_LINE(handle,'&std');UTL_FILE.PUT_LINE(handle,'&sh PROCESS_NAME &dh ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh NOTIF_ID &dh INT_PROCESS_NAME &dh ');UTL_FILE.PUT_LINE(handle,'INT_ACTIVITY_NAME &dh INT_RESULT_CODE &dh INT_ACTIVITY_STATUS &dh BEGIN_DATE &dh END_DATE &dh ERROR_NAME &eh');Declarecursor l_wf_order isselect WFA.DISPLAY_NAME Process,WFA1.DISPLAY_NAME Activity,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) Result,LKP.MEANING Act_status,WFS.NOTIFICATION_ID Notif,WFP.PROCESS_NAME I_process,WFP.ACTIVITY_NAME I_activity,WFS.ACTIVITY_STATUS I_status,WFS.ACTIVITY_RESULT_CODE I_Act_Res_code,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') Begin_d,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') End_d,WFS.ERROR_NAME error_namefrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = nvl('&header_id_selected',to_char(:v_header_id))and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor ll in l_wf_orderlooputl_file.put_line(handle,'&sld'||n(ll.Process)||'&d'||n(ll.Activity)||'&d');utl_file.put_line(handle,n(ll.Result)||'&d'||n(ll.Act_status)||'&d');utl_file.put_line(handle,n(ll.Notif)||'&d'||n(ll.I_process)||'&d');utl_file.put_line(handle,n(ll.I_activity)||'&d'||n(ll.I_Act_Res_code)||'&d');utl_file.put_line(handle,n(ll.I_status)||'&d'||n(ll.Begin_d)||'&d');utl_file.put_line(handle,n(ll.End_d)||'&d'||n(ll.Error_name)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW ORDER NOTIFICATION INFORMATION (WFN)&f');UTL_FILE.PUT_LINE(handle,'&std &sh NOTIF_ID &dh TO_USER &dh ORIG_RECIP &dh RECIP_ROLE &dh MAIL_STAT &dh MESSAGE_NAME &dh STATUS &dh SUBJECT &eh');Declarecursor l_wf_ord_noti isselect WFN.NOTIFICATION_ID NOTIF_ID,WFN.TO_USER TO_USER,WFN.ORIGINAL_RECIPIENT ORIG_RECIP,WFN.RECIPIENT_ROLE RECIP_ROLE,WFN.MAIL_STATUS MAIL_STAT,WFN.MESSAGE_NAME MESSAGE_NAME,WFN.STATUS STATUS,WFN.SUBJECT SUBJECTfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_NOTIFICATIONS WFNwhere WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = nvl('&header_id_selected',to_char(:v_header_id))and WFS.NOTIFICATION_ID is not nulland WFN.NOTIFICATION_ID = WFS.NOTIFICATION_IDorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor ll in l_wf_ord_notilooputl_file.put_line(handle,'&sld'||n(ll.NOTIF_ID)||'&d'||n(ll.TO_USER)||'&d');utl_file.put_line(handle,n(ll.ORIG_RECIP)||'&d'||n(ll.RECIP_ROLE)||'&d');utl_file.put_line(handle,n(ll.MAIL_STAT)||'&d'||n(ll.MESSAGE_NAME)||'&d');utl_file.put_line(handle,n(ll.STATUS)||'&d'||n(ll.SUBJECT)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');/*UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW ORDER SKIP INFORMATION (WFSKIP)&f');UTL_FILE.PUT_LINE(handle,'&std &sh NOTIF_ID &dh TO_USER &dh ORIG_RECIP &dh RECIP_ROLE &dh MAIL_STAT &dh MESSAGE_NAME &dh STATUS &dh SUBJECT &eh');Declarer_exist number;beginselect count(*)into r_existfrom all_tableswhere table_name = 'ONT_WF_SKIP_LOG';if r_exist = 0 thenutl_file.put_line(handle,'&et Table ONT_WF_SKIP_LOG is not present on this instance: &f');end if;end;Declarecursor l_wf_ord_skip isselect WFS.HEADER_ID HEADER_ID,WFA.DISPLAY_NAME DISPLAY_NAME,to_char(WFS.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CRE_DATE,WFS.USER_ID USER_ID,WFS.RESPONSIBILITY_ID RESPONSIBILITY_ID,WFS.APPLICATION_ID APPLICATION_IDfrom ONT_WF_SKIP_LOG WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFAwhere WFS.LINE_ID is nulland WFS.HEADER_ID = nvl('&header_id_selected',to_char(:v_header_id))and WFS.ACTIVITY_ID = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONorder by WFS.HEADER_ID, WFS.CREATION_DATE;beginfor ll in l_wf_ord_skiplooputl_file.put_line(handle,'&sld'||n(ll.HEADER_ID)||'&d'||n(ll.DISPLAY_NAME)||'&d');utl_file.put_line(handle,n(ll.CRE_DATE)||'&d'||n(ll.USER_ID)||'&d');utl_file.put_line(handle,n(ll.RESPONSIBILITY_ID)||'&d'||n(ll.APPLICATION_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et'); */UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW ORDER LEVEL ERRORS &f');UTL_FILE.PUT_LINE(handle,'&std &sh PROCESS_NAME &dh ERROR_ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh ERROR_NAME &dh ERROR_MESSAGE &dh ERROR_STACK &eh');Declarecursor l_wf_ord_err isselect WFA.DISPLAY_NAME Process,WFA1.DISPLAY_NAME Activity,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) result,LKP.MEANING status,WFS.ERROR_NAME err_name,WFS.ERROR_MESSAGE err_mess,WFS.ERROR_STACK err_stackfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOH'and WFS.item_key = nvl('&header_id_selected',to_char(:v_header_id))and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFS.ACTIVITY_STATUS = 'ERROR'order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor ll in l_wf_ord_errlooputl_file.put_line(handle,'&sld'||n(ll.Process)||'&d'||n(ll.Activity)||'&d');utl_file.put_line(handle,n(ll.result)||'&d'||n(ll.status)||'&d');utl_file.put_line(handle,n(ll.err_name)||'&d'||n(ll.err_mess)||'&d');utl_file.put_line(handle,n(ll.err_stack)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');-- break on ERR_TYPE_KEY skip 2;UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW ACTIVITY STATUS FOR ORDER ERROR PROCESS &f');UTL_FILE.PUT_LINE(handle,'&std &sh ERR_TYPE_KEY &dh ERR_PROCESS_NAME &dh ERR_ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh NOTIF_ID &dh ');UTL_FILE.PUT_LINE(handle,'ASGND_USER &dh BEGIN_DATE &dh END_DATE &eh');Declarecursor l_wf_ord_erp isselect WFS.ITEM_TYPE || '-' || WFS.ITEM_KEY ERR_TYPE_KEY, WFA.DISPLAY_NAME ERR_PROCESS_NAME,WFA1.DISPLAY_NAME ERR_ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.NOTIFICATION_ID NOTIF_ID,WFS.ASSIGNED_USER ASGND_USER,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') BEGIN_DATE,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') END_DATEfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKP,WF_ITEMS WFIwhere WFS.ITEM_TYPE = WFI.ITEM_TYPEand WFS.item_key = WFI.ITEM_KEYand WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFI.PARENT_ITEM_TYPE = 'OEOH'and WFI.PARENT_ITEM_KEY = nvl('&header_id_selected',to_char(:v_header_id))and WFI.ITEM_TYPE in (select WFAE.ERROR_ITEM_TYPEfrom WF_ITEM_ACTIVITY_STATUSES WFSE,WF_PROCESS_ACTIVITIES WFPE,WF_ACTIVITIES_VL WFAE,WF_ACTIVITIES_VL WFA1Ewhere WFSE.ITEM_TYPE = 'OEOH'and WFSE.ITEM_KEY = nvl('&header_id_selected',to_char(:v_header_id))and WFSE.PROCESS_ACTIVITY = WFPE.INSTANCE_IDand WFPE.PROCESS_ITEM_TYPE = WFAE.ITEM_TYPEand WFPE.PROCESS_NAME = WFAE.NAMEand WFPE.PROCESS_VERSION = WFAE.VERSIONand WFPE.ACTIVITY_ITEM_TYPE = WFA1E.ITEM_TYPEand WFPE.ACTIVITY_NAME = WFA1E.NAMEand WFA1E.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2Ewhere WF2E.ITEM_TYPE = WFPE.ACTIVITY_ITEM_TYPEand WF2E.NAME = WFPE.ACTIVITY_NAME)and WFSE.ACTIVITY_STATUS = 'ERROR')order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor ll in l_wf_ord_erplooputl_file.put_line(handle,'&sld'||n(ll.ERR_TYPE_KEY)||'&d'||n(ll.ERR_PROCESS_NAME)||'&d');utl_file.put_line(handle,n(ll.ERR_ACTIVITY_NAME)||'&d'||n(ll.RESULT)||'&d');utl_file.put_line(handle,n(ll.ACT_STATUS)||'&d'||n(ll.NOTIF_ID)||'&d');utl_file.put_line(handle,n(ll.ASGND_USER)||'&d'||n(ll.BEGIN_DATE)||'&d');utl_file.put_line(handle,n(ll.END_DATE)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_wf-- end if; -- v_head_onlyUTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin-- If :v_head_only = 'N' then -- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedUTL_FILE.PUT_LINE(handle,'&f &f GENERIC HOLDS (ORDER AND/OR LINES) &f');UTL_FILE.PUT_LINE(handle,'&std &sh HOLD_ID &dh HOLD_NAME &dh HOLD_TYPE &dh WF_ITEM &dh WF_ACTIVITY &dh ORD_HOLD_ID &dh HLD_SRC_ID &dh HLD_REL_ID &dh ');UTL_FILE.PUT_LINE(handle,'HEADER_ID &dh H_REL &dh S_REL &dh RELEASE_REASON &dh ENTITY &dh ENTITY_ID &dh ENTITY2 &dh ENTITY_ID2 &dh HOLD_UNTIL &eh');Declarecursor l_ord_hld isSELECT HDF.HOLD_ID ,HDF.NAME ,HDF.TYPE_CODE ,HDF.ITEM_TYPE ,HDF.ACTIVITY_NAME ,HLD.ORDER_HOLD_ID ,HLD.HOLD_SOURCE_ID ,HLD.HOLD_RELEASE_ID ,HLD.HEADER_ID ,HLD.RELEASED_FLAG Rel_Flag1,HSR.RELEASED_FLAG Rel_Flag2,HRL.RELEASE_REASON_CODE Rel_code,decode(HSR.HOLD_ENTITY_CODE,'B','Bill To','C','Customer','I','Item','O','Order','S','Ship To','W','Warehouse',HSR.HOLD_ENTITY_CODE) entity,HSR.HOLD_ENTITY_ID entity_id,decode(HSR.HOLD_ENTITY_CODE2,'B','Bill To','C','Customer','I','Item','O','Order','S','Ship To','W','Warehouse',HSR.HOLD_ENTITY_CODE2) entity2,HSR.HOLD_ENTITY_ID2 entity_id2,to_char(HSR.HOLD_UNTIL_DATE,'DD-MON-RR_HH24:MI:SS') Hold_untilfrom OE_ORDER_HOLDS_ALL HLD,OE_HOLD_SOURCES_ALL HSR,OE_HOLD_DEFINITIONS HDF,OE_HOLD_RELEASES HRLwhere HLD.HEADER_ID = nvl('&header_id_selected',:v_header_id)and HLD.HOLD_SOURCE_ID = HSR.HOLD_SOURCE_IDand HSR.HOLD_ID = HDF.HOLD_IDand HLD.HOLD_RELEASE_ID = HRL.HOLD_RELEASE_ID(+)and HLD.LINE_ID IS NULL;beginfor ll in l_ord_hldlooputl_file.put_line(handle,'&sld'||n(ll.HOLD_ID)||'&d'||n(ll.NAME)||'&d');utl_file.put_line(handle,n(ll.TYPE_CODE)||'&d'||n(ll.ITEM_TYPE)||'&d');utl_file.put_line(handle,n(ll.ACTIVITY_NAME)||'&d'||n(ll.ORDER_HOLD_ID)||'&d');utl_file.put_line(handle,n(ll.HOLD_SOURCE_ID)||'&d'||n(ll.HOLD_RELEASE_ID)||'&d');utl_file.put_line(handle,n(ll.HEADER_ID)||'&d'||n(ll.Rel_Flag1)||'&d');utl_file.put_line(handle,n(ll.Rel_Flag2)||'&d'||n(ll.Rel_code)||'&d');utl_file.put_line(handle,n(ll.entity)||'&d'||n(ll.entity_id)||'&d');utl_file.put_line(handle,n(ll.entity2)||'&d'||n(ll.entity_id2)||'&d');utl_file.put_line(handle,n(ll.Hold_until)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');-- This section is commented out because it runs slowly without an index -- CREATE INDEX OE_PROCESSING_MSGS_777-- ON ONT.OE_PROCESSING_MSGS-- (header_id, line_id);-- column ACTIVITY format a15;-- column msg_Source format a14; -- column DESCRIPTION format a30;-- PROMPTUTL_FILE.PUT_LINE(handle,'&f &f HEADER PROCESSING MESSAGES &f');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh HEADER_ID &dh MSG_SOURCE &dh ACTIVITY &dh REQUEST_ID &dh DESCRIPTION &dh MESSAGE_TEXT &eh');declarecursor h_proc isselect distinctMSG.header_id HEADER_ID,decode(MSG.MESSAGE_SOURCE_CODE,'U','U=On-Line(UI)','C','C=Conc Process','W','W=Workflow',MSG.MESSAGE_SOURCE_CODE) MSG_SOURCE,MSG.PROCESS_ACTIVITY PROCESS_ACTIVITY, MSG.request_id REQUEST_ID,MST.message_text MESSAGE_TEXTfrom oe_processing_msgs_vl MSG,oe_processing_msgs_tl MST,fnd_languages FLAwhere MSG.header_id = nvl('&header_id_selected',:v_header_id)and msg.transaction_id = mst.transaction_idand MST.LANGUAGE = FLA.LANGUAGE_CODE and FLA.INSTALLED_FLAG = 'B' and decode(MSG.LINE_ID,9.99E+125,NULL,MSG.LINE_ID) is NULL;r_activity varchar2(100);r_descrip varchar2(100);type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..10loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. Cannot find Activity name associated to HEADER PROCESSING MESSAGES.';msg(2).descrip := ' 2. Cannot find Request Description.';-- end if;for hp in h_proc loop:r_flag := '';:r_error := 0;r_activity := '';r_descrip := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then-- Get Activity namebeginselect WFA1.DISPLAY_NAMEinto r_activityfrom WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA1 where WFP.INSTANCE_ID = hp.PROCESS_ACTIVITYand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME);exceptionwhen no_data_found then:r_flag := :r_flag || '1 ';msg(1).flag := '1';end;-- Get Request descriptionbeginselect DESCRIPTION into r_descripFROM FND_CONCURRENT_REQUESTS FCRwhere FCR.REQUEST_ID = hp.REQUEST_ID;exceptionwhen no_data_found then:r_flag := :r_flag || '2 ';msg(2).flag := '1';end;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,n(hp.HEADER_ID)||'&d'||n(hp.MSG_SOURCE)||'&d');utl_file.put_line(handle,n(r_activity)||'&d'||n(hp.REQUEST_ID)||'&d');utl_file.put_line(handle,n(r_descrip)||'&d'||n(hp.MESSAGE_TEXT)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..10loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et');-- end if; -- v_head_onlyUTL_FILE.FCLOSE(handle);end;/-- DROP INDEX OE_PROCESSING_MSGS_777DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin-- If :v_head_only = 'N' then -- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedif substr(UPPER(nvl('&prt_price','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f HEADER PRICE ADJUSTMENTS (ADJ) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh APPLIED &dh PRC_ADJ_ID &dh LST_HD_ID &dh LST_LN_ID &dh LIST_LN_NO &dh MOD_LVL &dh ');UTL_FILE.PUT_LINE(handle,'LIST_TYPE_CODE &dh CHG_TY_CD &dh ARITH_OP &dh OP_PER_QTY &dh ADJ_AMT_PQ &dh OPERAND &dh ');UTL_FILE.PUT_LINE(handle,'ADJ_AMT &dh CD &dh AF &dh PI &dh AC &dh IF &dh EF &dh UA &dh UF &dh AP &dh LK &dh ');UTL_FILE.PUT_LINE(handle,'PERC &dh COST_ID &dh TAX_CODE &dh PP &eh');declarecursor h_prc_adj isselectADJ.PRICE_ADJUSTMENT_ID PRC_ADJ_ID,nvl(ADJ.APPLIED_FLAG,'N') APPLIED_FLAG,ADJ.LIST_HEADER_ID LST_HD_ID,ADJ.LIST_LINE_ID LST_LN_ID,ADJ.LIST_LINE_NO LIST_LN_NO, ADJ.MODIFIER_LEVEL_CODE MOD_LVL, ADJ.LIST_LINE_TYPE_CODE LIST_TYPE_CODE,ADJ.CHARGE_TYPE_CODE CHG_TY_CD, ADJ.ARITHMETIC_OPERATOR ARITH_OP, ADJ.OPERAND_PER_PQTY OP_PER_QTY, ADJ.ADJUSTED_AMOUNT_PER_PQTY ADJ_AMT_PQ,ADJ.OPERAND OPERAND, ADJ.ADJUSTED_AMOUNT ADJ_AMT, ADJ.CREDIT_OR_CHARGE_FLAG CD, ADJ.AUTOMATIC_FLAG AF, ADJ.PRINT_ON_INVOICE_FLAG PI, ADJ.ACCRUAL_FLAG AC, ADJ.INVOICED_FLAG INF, ADJ.ESTIMATED_FLAG EF, ADJ.UPDATE_ALLOWED UA, ADJ.UPDATED_FLAG UF, ADJ.APPLIED_FLAG AP, ADJ.LOCK_CONTROL LK, ADJ.PERCENT PERC, ADJ.COST_ID COST_ID, ADJ.TAX_CODE TAX_CODE, ADJ.PRICING_PHASE_ID PPfrom OE_PRICE_ADJUSTMENTS ADJwhere ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ADJ.LINE_ID IS NULL-- and ADJ.APPLIED_FLAG = 'Y'order by ADJ.APPLIED_FLAG,LIST_TYPE_CODE;beginfor hh in h_prc_adjlooputl_file.put_line(handle,'&sld'||n(hh.APPLIED_FLAG)||'&d'||n(hh.PRC_ADJ_ID)||'&d'||n(hh.LST_HD_ID)||'&d');utl_file.put_line(handle,n(hh.LST_LN_ID)||'&d'||n(hh.LIST_LN_NO)||'&d'||n(hh.MOD_LVL)||'&d');utl_file.put_line(handle,n(hh.LIST_TYPE_CODE)||'&d'||n(hh.CHG_TY_CD)||'&d'||n(hh.ARITH_OP)||'&d');utl_file.put_line(handle,n(hh.OP_PER_QTY)||'&d'||n(hh.ADJ_AMT_PQ)||'&d'||n(hh.OPERAND)||'&d');utl_file.put_line(handle,n(hh.ADJ_AMT)||'&d'||n(hh.CD)||'&d'||n(hh.AF)||'&d');utl_file.put_line(handle,n(hh.PI)||'&d'||n(hh.AC)||'&d'||n(hh.INF)||'&d');utl_file.put_line(handle,n(hh.EF)||'&d'||n(hh.UA)||'&d'||n(hh.UF)||'&d');utl_file.put_line(handle,n(hh.AP)||'&d'||n(hh.LK)||'&d'||n(hh.PERC)||'&d');utl_file.put_line(handle,n(hh.COST_ID)||'&d'||n(hh.TAX_CODE)||'&d'||n(hh.PP)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_priceUTL_FILE.PUT_LINE(handle,'&f &f MTL_SALES_ORDERS (MSO) &f');UTL_FILE.PUT_LINE(handle,'&std &sh DS_HEADER_ID &dh HEADER_ID &dh ORDER_NUMBER &dh ORDER_TYPE_NAME &dh CONSTANTOE &eh');declarecursor mtl_sal isselectMSO.SALES_ORDER_ID ,ORD.HEADER_ID ,ORD.ORDER_NUMBER ,TYP.NAME ,MSO.SEGMENT3fromMTL_SALES_ORDERS MSO,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_VL TYPwhereORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_IDand TO_CHAR(ORD.ORDER_NUMBER) = MSO.SEGMENT1and TYP.NAME(+) = MSO.SEGMENT2-- klrand MSO.SEGMENT1 = '&order_number_selected'and ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id) order byORD.HEADER_ID;beginfor ms in mtl_sallooputl_file.put_line(handle,'&sld'||n(ms.SALES_ORDER_ID)||'&d'||n(ms.HEADER_ID)||'&d');utl_file.put_line(handle,n(ms.ORDER_NUMBER)||'&d'||n(ms.NAME)||'&d');utl_file.put_line(handle,n(ms.SEGMENT3)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');beginselect distinct(MSO.SALES_ORDER_ID) into :sales_ord_id from MTL_SALES_ORDERS MSO,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_TL TYP,FND_LANGUAGES FLAwhere ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_IDand TYP.LANGUAGE = FLA.LANGUAGE_CODE and FLA.INSTALLED_FLAG = 'B' -- klrand MSO.SEGMENT1 = '&order_number_selected'and TYP.NAME = MSO.SEGMENT2;end;-- end if; -- v_head_onlyUTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);c_lines number;function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;beginc_lines := 0;If :v_head_only = 'N' then -- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedUTL_FILE.PUT_LINE(handle,'&f &f OE_ORDER_LINES (LIN) Column Definitions &f');-- Titles will be printed later, titles repeat every 50 linesdeclarecursor line1 is select to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) line_n,LIN.LINE_ID Line_i,LIN.INVENTORY_ITEM_ID Item_i,lpad(' ',length(LIN.SORT_ORDER)/4,rpad('.',80,'....!'))||ITM.SEGMENT1 Item_na,substr(LIN.FLOW_STATUS_CODE,1,22) Line_st,nvl(LIN.ORDERED_QUANTITY,0) Ordq,LIN.ORDER_QUANTITY_UOM Orduom,nvl(LIN.ORDERED_QUANTITY2,0) Ordq2,LIN.ORDERED_QUANTITY_UOM2 Orduom2,LIN.UNIT_SELLING_PRICE sell,LIN.UNIT_LIST_PRICE lisl,nvl(LIN.SHIPPED_QUANTITY,0) shpq,nvl(LIN.SHIPPED_QUANTITY2,0) shpq2,nvl(LIN.SHIPPING_QUANTITY,0) SHN_Q,nvl(LIN.SHIPPING_QUANTITY2,0) SHN_Q2,nvl(LIN.SHIPPING_QUANTITY_UOM2,0) SHN_QUOM2,nvl(FULFILLED_QUANTITY,0) fulq, nvl(FULFILLED_QUANTITY2,0) fulq2,nvl(LIN.CANCELLED_QUANTITY,0) canq, nvl(LIN.CANCELLED_QUANTITY2,0) canq2, nvl(LIN.INVOICED_QUANTITY,0) invq, substr(LIN.SCHEDULE_STATUS_CODE,1,5) schc,nvl(LIN.OPEN_FLAG,'N') openf,nvl(LIN.BOOKED_FLAG,'N') bookf,nvl(LIN.SHIPPABLE_FLAG,'N') shipf,nvl(LIN.CANCELLED_FLAG,'N') canf,nvl(LIN.VISIBLE_DEMAND_FLAG,'N') vdem,nvl(LIN.FULFILLED_FLAG, 'N') fulf,nvl(LIN.SHIPPING_INTERFACED_FLAG,'N') SI,decode(nvl(LIN.ATO_LINE_ID,0),0,'N','Y') ato_i,nvl(LIN.SHIP_MODEL_COMPLETE_FLAG,'N') smcf,LIN.SHIP_FROM_ORG_ID shipfrom,-- PAR.ORGANIZATION_CODE org_i,to_char(LIN.REQUEST_DATE,'DD-MON-RR_HH24:MI:SS') reqd,to_char(LIN.SCHEDULE_SHIP_DATE,'DD-MON-RR_HH24:MI:SS') schd,-- TYP.NAME lin_ty,LIN.LINE_TYPE_ID LINE_TYPE_ID,LIN.LINE_CATEGORY_CODE lin_cat,LIN.ITEM_TYPE_CODE itm_tc,LIN.ORDERED_ITEM_ID ord_it,LIN.ORDERED_ITEM ord_it_name,LIN.SOURCE_TYPE_CODE Src_tc,LIN.PRICE_LIST_ID prlst,LIN.DEMAND_CLASS_CODE demc,nvl(LIN.OPTION_FLAG,'N') CFG,LIN.TOP_MODEL_LINE_ID PRT_LN_ID,LIN.ATO_LINE_ID ATO_LN_ID,LIN.LINK_TO_LINE_ID LNK_LN_ID,LIN.SPLIT_BY SPL_BY,LIN.SPLIT_FROM_LINE_ID SPL_LN_ID,LIN.CONFIG_HEADER_ID CFG_HD_ID, nvl(LIN.INVOICE_INTERFACE_STATUS_CODE,'N') INVC_INT_STAT,LIN.SHIP_TOLERANCE_ABOVE STA,LIN.SHIP_TOLERANCE_BELOW STB, LIN.SHIP_SET_ID SH_SET_ID,ST2.SET_TYPE SH_SET_TY,LIN.LINE_SET_ID LN_SET_ID,ST3.SET_TYPE LN_SET_TY,LIN.ARRIVAL_SET_ID AR_SET_ID,ST1.SET_TYPE AR_SET_TY,LIN.CALCULATE_PRICE_FLAG CAL_PR,to_char(LIN.ACTUAL_SHIPMENT_DATE,'DD-MON-RR_HH24:MI:SS') act_shp,to_char(LIN.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') cre_date,LIN.ordered_quantity2 ord_qty2,LIN.ordered_quantity_uom2 ord_uom2,to_char(LIN.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') upd_date,ITM.TRACKING_QUANTITY_IND trck_qty_ind,ITM.PRIMARY_UOM_CODE PRM_UOM,ITM.DUAL_UOM_CONTROL DUAL_UOM,ITM.SECONDARY_DEFAULT_IND SEC_DEF_IND,ITM.SECONDARY_UOM_CODE SEC_UOM,-- ITM.CHILD_LOT_FLAG CHLD_LOT,-- ITM.PARENT_CHILD_GENERATION_FLAG PAR_CHLD,-- ITM.LOT_DIVISIBLE_FLAG LOT_DIV,-- ITM.GRADE_CONTROL_FLAG GRAD_CTRL,Decode(ITM.ONT_PRICING_QTY_SOURCE,'P','Primary', 'Secondary') ONT_PR_QTY,ITM.dual_uom_deviation_high DUAL_UOM_DEV_H,ITM.dual_uom_deviation_low DUAL_UOM_DEV_L,ITM.lot_control_code lot_ctl,ITM.location_control_code loct_ctl,ITM.lot_status_enabled status_ctl,Decode(ITM.RESERVABLE_TYPE,1,'Reserv',2,'Non-Res','Val: '||to_char(ITM.RESERVABLE_TYPE)) RES_TYPE,LIN.source_document_id src_doc_id,LIN.source_document_line_id src_doc_lin_id,LIN.order_source_id ord_src_id,LIN.ORIG_SYS_DOCUMENT_REF o_sys_doc_r,LIN.ORIG_SYS_LINE_REF o_sys_lin_r,LIN.SERVICE_START_DATE srv_str_dt,LIN.SERVICE_DURATION srv_dur,LIN.SERVICE_PERIOD srv_perfromOE_ORDER_LINES LIN,-- OE_TRANSACTION_TYPES TYP,MTL_SYSTEM_ITEMS ITM,-- MTL_PARAMETERS PAR,OE_SETS ST1,OE_SETS ST2,OE_SETS ST3whereLIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)-- and LIN.LINE_TYPE_ID = TYP.TRANSACTION_TYPE_ID-- and LIN.SHIP_FROM_ORG_ID = PAR.ORGANIZATION_ID(+)and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+)and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+)-- and LIN.OPTION_NUMBER IS NULL-- and LIN.ITEM_TYPE_CODE <> 'INCLUDED'and LIN.ARRIVAL_SET_ID = ST1.SET_ID(+)and LIN.SHIP_SET_ID = ST2.SET_ID(+)and LIN.LINE_SET_ID = ST3.SET_ID(+)order bynvl(LIN.line_number,0), nvl(LIN.shipment_number,0), nvl(LIN.option_number,0),nvl(LIN.component_number,0), nvl(LIN.service_number,0);-- NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),-- NVL(LIN.SORT_ORDER, '0000'),-- NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),-- NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),-- NVL(LIN.SERVICE_REFERENCE_LINE_ID, LIN.LINE_ID),-- LIN.LINE_ID; cursor setl(lin number) is select os.set_id, os.set_typefrom oe_sets os, oe_line_sets olswhere os.set_id = ols.set_idand line_id = lin;r_del_det varchar2(100);r_pro_nab varchar2(100);r_act_nab varchar2(100);r_resultb varchar2(100);r_act_sb varchar2(100);r_sets varchar2(100);r_omint varchar2(100);r_invint varchar2(100);org_i varchar2(100);lin_ty varchar2(100);type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;c_lines number;begin:r_error := 0;c_lines := 51;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..99loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. Ordered Quantity is less than Shipped Quantity.';msg(2).descrip := ' 2. Ordered Quantity is less than Fulfilled Quantity.';msg(3).descrip := ' 3. Ordered Quantity is less than Invoiced Quantity.';msg(4).descrip := ' 4. Interface to WSH set to "N" but exist Delivery Details associated to this Order_line.';msg(5).descrip := ' 5. Associated Delivery Details has NOT been interface but Shipped, Fulfilled or Invoiced QTY are updated.';msg(10).descrip := ' 10. Order_Line shows as OPEN but CANCELLED flag is set to Y.';msg(11).descrip := ' 11. Order_Line status ENTERED but Shipped Qty is greater than zero.';msg(12).descrip := ' 12. Order_Line status ENTERED but Fulfilled Qty is greater than zero.';msg(15).descrip := ' 15. Order_Line status BOOKED but "Book" activity has not been completed.';msg(16).descrip := ' 16. Order_Line status BOOKED but Shipped Qty is greater than zero.';msg(17).descrip := ' 17. Order_Line status BOOKED but Fulfilled Qty is greater than zero.';msg(20).descrip := ' 20. Order_Line status AWAITING SHIPPING but Item is set to Non-Shippable.';msg(21).descrip := ' 21. Order_Line status AWAITING SHIPPING but Shipped Qty is greater than zero.';msg(22).descrip := ' 22. Order_Line status AWAITING SHIPPING but Fulfilled Qty is greater than zero.';msg(23).descrip := ' 23. No Delivery Details associated to this Order_line, Interface to WSH is set to "Y".';msg(24).descrip := ' 24. Associated Delivery Details have invalid RELEASED status.';msg(25).descrip := ' 25. Associated Delivery Details have invalid INTERFACE status (Not Shipped but Interfaced to OM or INV).';msg(40).descrip := ' 40. Line status is CLOSED but associated Delivery Details still not interface to OM.';msg(41).descrip := ' 41. Line status is CLOSED but associated Delivery Details still not interface to INVentory.';msg(45).descrip := ' 45. Line status is CANCELLED but associated Delivery Details has been interfaced to OM.';msg(46).descrip := ' 46. Line status is CANCELLED but associated Delivery Details has been interfaced to INVentory.';msg(50).descrip := ' 50. No WorkFlow Process associated to this line.';msg(51).descrip := ' 51. Incorrect WorkFlow Process associated to this line.';msg(52).descrip := ' 52. Incorrect WorkFlow Activity associated to this line.';msg(53).descrip := ' 53. Incorrect WorkFlow Activity Result for this line.';msg(54).descrip := ' 54. Incorrect WorkFlow Activity Status for this line.';msg(55).descrip := ' 55. Order Line status is BOOKED, WorkFlow Activities shows additional activities for this line.';msg(60).descrip := ' 60. Organization_id is Null for this line.';msg(61).descrip := ' 61. Transaction Type is Not Valid for this line.';msg(99).descrip := ' 99. An Error occurred on query: ';-- end if;for i in line1 loop:r_flag := '';r_del_det := '';r_sets := '';-- get Order_line WF namebegin:r_line_t := '';select WFA.DISPLAY_NAMEinto :r_line_tFROM WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFAWHERE WFS.ITEM_TYPE = 'OEOL'-- klrand WFS.ITEM_KEY = to_char(I.LINE_I)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_NAME = 'ROOT'and WFP.ACTIVITY_ITEM_TYPE = WFA.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA.NAMEand nvl(WFA.VERSION,-1) = (select nvl(max(VERSION),-1)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME);exceptionwhen no_data_found then:r_flag := :r_flag || '50 ';msg(50).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'Get WF name ';end;-- get organization codebeginselect ORGANIZATION_CODEinto org_ifrom MTL_PARAMETERS where i.shipfrom = ORGANIZATION_ID(+);exceptionwhen no_data_found thenorg_i := 'Invalid Org_id: '||to_char(i.shipfrom);:r_flag := :r_flag || '60 ';msg(60).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'Get Org code ';end;-- get Transaction Type namebeginselect NAMEinto lin_tyfrom OE_TRANSACTION_TYPESwhere i.LINE_TYPE_ID = TRANSACTION_TYPE_ID;exceptionwhen no_data_found thenlin_ty := 'Invalid Id: '||to_char(i.LINE_TYPE_ID);:r_flag := :r_flag || '61 ';msg(61).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'Transaction Type ';end;-- Check if exist associated Delivery Detail id regardles of line status and SI flag.beginselect Delivery_detail_idinto r_del_detfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE'and rownum = 1;exceptionwhen no_data_found thennull; -- conditions will be evaluated laterwhen others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'associated WDD ';end;-- Get associated setsfor sl in setl(i.line_i)loopr_sets := r_sets || to_char(sl.set_id)||'-'||sl.set_type || ' ';end loop;-- Reservationsselect sum(nvl(RESERVATION_QUANTITY,0)) into :r_res_qfrom MTL_RESERVATIONS RESwhere RES.DEMAND_SOURCE_HEADER_ID = :sales_ord_idand RES.DEMAND_SOURCE_TYPE_ID in (2,8,9,21,22)and RES.DEMAND_SOURCE_LINE_ID = i.LINE_I;if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then-- current WF statusbegin:r_pro_na := '';:r_act_na := '';:r_result := '';:r_act_s := '';select WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),LKP.MEANINGinto :r_pro_na, :r_act_na, :r_result, :r_act_sfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOL'and WFS.item_key = To_Char(i.line_i)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand rownum = 1 -- to manage ORA-1422and WFA1.VERSION = (select max(VERSION) from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand Execution_time = (Select Max(execution_time) from WF_ITEM_ACTIVITY_STATUSESwhere item_type = 'OEOL' and Item_key = To_Char(i.line_i));exceptionwhen no_data_found thenif msg(50).flag = '1' then null; -- problem already discoveredelse:r_flag := :r_flag || '50 ';msg(50).flag := '1';end if;when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'WF current status ';end;----- Basic Verification---- Ordered Qty less than Shipped (with Tolerance)If i.Ordq*(100+nvl(i.sta,0))/100 < i.shpq then :r_flag := :r_flag || '1 ';msg(1).flag := '1';end if;-- Ordered Qty less than Fulfilled (with Tolerance)If i.Ordq*(100+nvl(i.sta,0))/100 < i.fulq then:r_flag := :r_flag || '2 ';msg(2).flag := '1';end if;-- Ordered Qty less than Invoiced (with Tolerance)If i.Ordq*(100+nvl(i.sta,0))/100 < i.invq then:r_flag := :r_flag || '3 ';msg(3).flag := '1';end if;If i.si = 'N' then -- Non interfaced to WSHselect count(*) -- count total wdd for this lineinto :r_wddfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE';If :r_wdd > 0 then:r_flag := :r_flag || '4 ';msg(4).flag := '1';end if;end if;-- If line is Shippable-- Check if shipped, fulfilled or invoiced quantities has been updated and associated Del.Details still not Interfaced to OMif i.shipf = 'Y' then -- Shippable lineif i.shpq > 0or i.fulq > 0 or i.invq > 0 thenselect count(*) -- count if any associated Delivery Detail has been OM interfacedinto r_omintfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE'and OE_INTERFACED_FLAG = 'Y';if r_omint = 0 then:r_flag := :r_flag || '5 ';msg(5).flag := '1';end if;end if;end if;-- line open but Cancelled flag is Yif i.openf = 'Y' and i.canf = 'Y' then:r_flag := :r_flag || '10 ';msg(10).flag := '1';end if;----- Verifications for Order_Lines on ENTERED status---If i.line_st = 'ENTERED' thenif i.shpq > 0 then -- Quantity Shipped:r_flag := :r_flag || '11 ';msg(11).flag := '1';end if;if i.fulq > 0 then -- Quantity Fulfilled:r_flag := :r_flag || '12 ';msg(12).flag := '1';end if;-- verify current WF statusif :r_pro_na <> 'Enter - Line' then:r_flag := :r_flag || '51 ';msg(51).flag := '1';elsif :r_act_na <> 'Wait for Booking' then:r_flag := :r_flag || '52 ';msg(52).flag := '1';elsif :r_result is not null then:r_flag := :r_flag || '53 ';msg(53).flag := '1';elsif :r_act_s <> 'Notified' then:r_flag := :r_flag || '54 ';msg(54).flag := '1';end if;end if; -- ENTERED----- Verifications for Order_Lines on BOOKED status---If i.line_st = 'BOOKED' then-- Check is Book activity has been completedbeginselect WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),LKP.MEANINGinto r_pro_nab, r_act_nab, r_resultb, r_act_sbfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOL'and WFS.item_key = To_Char(i.line_i)and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION) from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFA1.DISPLAY_NAME = 'Wait for Booking';exceptionwhen no_data_found then:r_flag := :r_flag || '15 ';msg(15).flag := '1';when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'Check BOOK activity ';end;if r_act_nab = 'Wait for Booking' thenif r_resultb = 'Null' and r_act_sb = 'Complete' thennull; -- status is OKelse:r_flag := :r_flag || '15 ';msg(15).flag := '1';end if;end if;if i.shpq > 0 then -- Quantity Shipped:r_flag := :r_flag || '16 ';msg(16).flag := '1';end if;if i.fulq > 0 then -- Quantity Fulfilled:r_flag := :r_flag || '17 ';msg(17).flag := '1';end if;-- Check if there are other activities after Booking.if :r_act_na = 'Wait for Booking' thennull; -- OK last activity is Bookingelse:r_flag := :r_flag || '55 ';msg(55).flag := '1';end if;end if; -- BOOKED----- Verifications for Order_Lines on AWAITING SHIPPING status---If i.line_st = 'AWAITING_SHIPPING' thenif i.shipf = 'N' then -- No shippable line:r_flag := :r_flag || '20 ';msg(20).flag := '1';end if;if i.shpq > 0 then -- Quantity Shipped:r_flag := :r_flag || '21 ';msg(21).flag := '1';end if;if i.fulq > 0 then -- Quantity Fulfilled:r_flag := :r_flag || '22 ';msg(22).flag := '1';end if;select count(*) -- count total wdd for this lineinto :r_wddfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE';If :r_wdd = 0 and i.si = 'Y' then:r_flag := :r_flag || '23 ';msg(23).flag := '1';elseselect count(*) -- Invalid Release flag statusinto :r_wddfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE'and RELEASED_STATUS not in ('Y','R','S','B','P','C','N','D','X');If :r_wdd > 0 then:r_flag := :r_flag || '24 ';msg(24).flag := '1';end if;select count(*) -- count Released status 'R' but OM or INV interfacedinto :r_wddfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE'and RELEASED_STATUS <> 'C'and (nvl(INV_INTERFACED_FLAG,'N') not in ( 'N','X')or nvl(OE_INTERFACED_FLAG,'N') <> 'N');If :r_wdd > 0 then:r_flag := :r_flag || '25 ';msg(25).flag := '1';end if;end if; -- no wdd-- verify current WF statusif :r_pro_na <> 'Ship - Line, Manual' then:r_flag := :r_flag || '51 ';msg(51).flag := '1';elsif :r_act_na <> 'Ship' then:r_flag := :r_flag || '52 ';msg(52).flag := '1';elsif :r_result is not null then:r_flag := :r_flag || '53 ';msg(53).flag := '1';elsif :r_act_s <> 'Notified' then:r_flag := :r_flag || '54 ';msg(54).flag := '1';end if;end if; -- AWAITING SHIPPING----- Verifications for Order_Lines on SHIPPED status---If i.line_st = 'SHIPPED' thennull; -- nothing yet-- :r_flag := :r_flag || '';-- msg(30).flag := '1';end if; -- SHIPPED----- Verifications for Order_Lines on FULFILLED status---If i.line_st = 'FULFILLED' thennull; -- nothing yet-- :r_flag := :r_flag || '';-- msg(40).flag := '1';end if; -- FULFILLED----- Verifications for Order_Lines on INVOICED status---If i.line_st = 'INVOICED' thennull; -- nothing yet-- :r_flag := :r_flag || '';-- msg(40).flag := '1';end if; -- INVOICED----- Verifications for Order_Lines on CLOSED status---If i.line_st = 'CLOSED' then-- If line is Shippable check if associated Del.Details still not Interfaced to OM or INVif i.shipf = 'Y' then-- count if any associated Delivery Detail has NOT been OM or INV interfaced beginselect sum(decode(nvl(OE_INTERFACED_FLAG,'N'),'N',1,0)), sum(decode(nvl(INV_INTERFACED_FLAG,'N'),'N',1,0))into r_omint, r_invintfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand SOURCE_CODE = 'OE'and released_status <> 'D'group by SOURCE_LINE_ID;exceptionwhen no_data_found thenr_omint := 0;r_invint := 0; when others then:r_flag := :r_flag || '99 ';msg(99).flag := '1';msg(99).descrip := msg(99).descrip || 'count associated WDD ';end;if r_omint > 0 then:r_flag := :r_flag || '40 ';msg(40).flag := '1';end if;if r_invint > 0 then:r_flag := :r_flag || '41 ';msg(41).flag := '1';end if;end if;end if; -- CLOSED----- Verifications for Order_Lines on CANCELLED status---If i.line_st = 'CANCELLED' then-- If line is Shippable check if associated Del.Details open Pending Interfaced to OM or INVif i.shipf = 'Y' then-- count if any associated Delivery Detail has been interfaced to OM or INVbeginselect sum(decode(nvl(OE_INTERFACED_FLAG,'N'),'Y',1,0)), sum(decode(nvl(INV_INTERFACED_FLAG,'N'),'Y',1,0))into r_omint, r_invintfrom WSH_Delivery_Detailswhere SOURCE_LINE_ID = I.LINE_Iand source_code = 'OE'and RELEASED_STATUS <> 'D'group by SOURCE_LINE_ID;exceptionwhen no_data_found thenr_omint := 0;r_invint := 0; end; if r_omint > 0 then:r_flag := :r_flag || '45 ';msg(45).flag := '1';end if;if r_invint > 0 then:r_flag := :r_flag || '46 ';msg(46).flag := '1';end if;end if;end if; -- CANCELLEDend if; -- do_analysisif c_lines >= 50 thenif c_lines = 51 thenUTL_FILE.PUT_LINE(handle,'&std ');end if;c_lines := 1;UTL_FILE.PUT_LINE(handle,'&sh WARNING &dh LINE &dh LINE_ID &dh DELIVERY DETAIL &dh ITEM ID &dh ITEM &dh ');UTL_FILE.PUT_LINE(handle,'FLOW PROCESS &dh FLOW CODE &dh OP &dh BK &dh SH &dh CN &dh VD &dh SI &dh FF &dh ATO &dh ');UTL_FILE.PUT_LINE(handle,'SMC &dh ORDER QTY &dh UOM &dh SELL PRICE &dh LIST PRICE &dh ');UTL_FILE.PUT_LINE(handle,'CALC PRICE &dh RESERV QTY &dh SHIPNG QTY &dh SHIPPD QTY &dh FULFIL QTY &dh CANCEL QTY &dh ');UTL_FILE.PUT_LINE(handle,'INVOIC QTY &dh SCHD ST_CD &dh WH_ID &dh ORG &dh CREATE DATE &dh ');UTL_FILE.PUT_LINE(handle,'REQUEST DATE &dh SCHED DATE &dh ACTUAL SHIP_DATE &dh LINE TYPE &dh LINE CATEG &dh ');UTL_FILE.PUT_LINE(handle,'ITEM TYPE &dh ORDERED ITEM_ID &dh ORDERED ITEM &dh SOURCE TYPE &dh ');UTL_FILE.PUT_LINE(handle,'PRICE LIST_ID &dh DEMAND CLASS &dh CFG &dh PRT LN_ID &dh ATO LN_ID &dh LINK LN_ID &dh ');UTL_FILE.PUT_LINE(handle,'SPLIT BY &dh SPLIT LN_ID &dh CONFIG HD_ID &dh INVOIC INT_STAT &dh STA &dh STB &dh SHIP SET_ID &dh ');UTL_FILE.PUT_LINE(handle,'SHIP SET_TY &dh LINE SET_ID &dh LINE SET_TY &dh ARRIV SET_ID &dh ARRIV SET_TY &dh OTHER SETS &dh ');UTL_FILE.PUT_LINE(handle,'DISCRETE ORDER_QTY &dh DISCR UOM &dh DISCRETE SHPNG_QTY &dh DISCRETE SHPNG_UOM &dh ');UTL_FILE.PUT_LINE(handle,'DISCRETE SHIPPD_QTY &dh DISCRETE FULFLL_QTY &dh DISCRETE CANCEL_QTY &dh ');UTL_FILE.PUT_LINE(handle,'LAST UPD_DATE &dh');UTL_FILE.PUT_LINE(handle,'TRACK QTY_IND &dh PRIMARY UOM_COD &dh DUAL_UOM CONTROL &dh SECONDARY DEFAULT_IND &dh ');UTL_FILE.PUT_LINE(handle,'SECONDARY UOM_COD &dh ');UTL_FILE.PUT_LINE(handle,'ONT_PRICING QTY_SOURCE &dh DUAL_UOM DEV_HGH &dh DUAL_UOM DEV_LOW &dh ');UTL_FILE.PUT_LINE(handle,'LOT CONTROL &dh LOCATION CTRL_CODE &dh STATUS CONTROL &dh RESERVABLE &dh ');UTL_FILE.PUT_LINE(handle,'SERVICE START_DATE &dh SERVICE DURATION &dh SERVICE PERIOD &dh ');UTL_FILE.PUT_LINE(handle,'SOURCE DOC_ID &dh SOURCE DOC_LIN_ID &dh ORDER SRC_ID &dh ORIG_SYS DOC_REF &dh ORIG_SYS LINE_REF &eh');elsec_lines := c_lines + 1;end if;-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d'||n(i.line_n)||'&d');utl_file.put_line(handle,''||n(i.Line_i)||''||'&d'||''||n(r_del_det)||'');utl_file.put_line(handle,'&d'||n(i.Item_i)||'&d'||n(i.Item_na)||'&d');utl_file.put_line(handle,''||n(:r_line_t)||''||'&d');utl_file.put_line(handle,n(i.Line_st)||'&d'||n(i.openf)||'&d');utl_file.put_line(handle,n(i.bookf)||'&d'||n(i.shipf)||'&d');utl_file.put_line(handle,n(i.canf)||'&d'||n(i.vdem)||'&d');utl_file.put_line(handle,n(i.si)||'&d'||n(i.fulf)||'&d');utl_file.put_line(handle,n(i.ato_i)||'&d'||n(i.smcf)||'&d');utl_file.put_line(handle,n(i.Ordq)||'&d'||n(i.Orduom)||'&d');utl_file.put_line(handle,n(i.sell)||'&d');utl_file.put_line(handle,n(i.lisl)||'&d'||n(i.cal_pr)||'&d');utl_file.put_line(handle,n(:r_res_q)||'&d'||n(i.shn_q)||'&d');utl_file.put_line(handle,n(i.shpq)||'&d'||n(i.fulq)||'&d');utl_file.put_line(handle,n(i.canq)||'&d');utl_file.put_line(handle,n(i.invq)||'&d'||n(i.schc)||'&d');utl_file.put_line(handle,n(i.shipfrom)||'&d'||n(org_i)||'&d');utl_file.put_line(handle,n(i.cre_date)||'&d');utl_file.put_line(handle,n(i.reqd)||'&d'||n(i.schd)||'&d');utl_file.put_line(handle,n(i.act_shp)||'&d');utl_file.put_line(handle,n(lin_ty)||'&d'||n(i.lin_cat)||'&d');utl_file.put_line(handle,n(i.itm_tc)||'&d'||n(i.ord_it)||'&d');utl_file.put_line(handle,n(i.ord_it_name)||'&d'||n(i.Src_tc)||'&d');utl_file.put_line(handle,n(i.prlst)||'&d'||n(i.demc)||'&d');utl_file.put_line(handle,n(i.CFG)||'&d');utl_file.put_line(handle,n(i.PRT_LN_ID)||'&d'||n(i.ATO_LN_ID)||'&d');utl_file.put_line(handle,n(i.LNK_LN_ID)||'&d'||n(i.SPL_BY)||'&d');utl_file.put_line(handle,n(i.SPL_LN_ID)||'&d');utl_file.put_line(handle,n(i.CFG_HD_ID)||'&d'||n(i.INVC_INT_STAT)||'&d');utl_file.put_line(handle,n(i.STA)||'&d');utl_file.put_line(handle,n(i.STB)||'&d'||n(i.SH_SET_ID)||'&d');utl_file.put_line(handle,n(i.SH_SET_TY)||'&d'||n(i.LN_SET_ID)||'&d');utl_file.put_line(handle,n(i.LN_SET_TY)||'&d'||n(i.AR_SET_ID)||'&d');utl_file.put_line(handle,n(i.AR_SET_TY)||'&d'||n(r_sets)||'&d');utl_file.put_line(handle,n(i.Ordq2)||'&d'||n(i.Orduom2)||'&d');utl_file.put_line(handle,n(i.shn_q2)||'&d'||n(i.shn_quom2)||'&d');utl_file.put_line(handle,n(i.shpq2)||'&d'||n(i.fulq2)||'&d');utl_file.put_line(handle,n(i.canq2)||'&d');utl_file.put_line(handle,n(i.upd_date)||'&d');utl_file.put_line(handle,n(i.trck_qty_ind)||'&d'||n(i.PRM_UOM)||'&d');utl_file.put_line(handle,n(i.DUAL_UOM)||'&d'||n(i.SEC_DEF_IND)||'&d');utl_file.put_line(handle,n(i.SEC_UOM)||'&d'); --||n(i.CHLD_LOT)||'&d');-- utl_file.put_line(handle,n(i.PAR_CHLD)||'&d'||n(i.LOT_DIV)||'&d');-- utl_file.put_line(handle,n(i.GRAD_CTRL)||'&d'||n(i.ONT_PR_QTY)||'&d');utl_file.put_line(handle,n(i.ONT_PR_QTY)||'&d');utl_file.put_line(handle,n(i.DUAL_UOM_DEV_H)||'&d'||n(i.DUAL_UOM_DEV_L)||'&d');utl_file.put_line(handle,n(i.LOT_CTL)||'&d'||n(i.LOCT_CTL)||'&d');utl_file.put_line(handle,n(i.STATUS_CTL)||'&d');utl_file.put_line(handle,n(i.RES_TYPE)||'&d');utl_file.put_line(handle,n(i.srv_str_dt)||'&d'||n(i.srv_dur)||'&d');utl_file.put_line(handle,n(i.srv_per)||'&d');utl_file.put_line(handle,''||n(i.src_doc_id)||''||'&d');utl_file.put_line(handle,''||n(i.src_doc_lin_id)||''||'&d');utl_file.put_line(handle,n(i.ord_src_id)||'&d');utl_file.put_line(handle,n(i.o_sys_doc_r)||'&d'||n(i.o_sys_lin_r)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..99loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- v_head_onlyUTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;beginIf :v_head_only = 'N' then -- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedUTL_FILE.PUT_LINE(handle,'&f &f OE_ORDER_LINES_HISTORY (HIL) &f');UTL_FILE.PUT_LINE(handle,'&std &sh LINE_ID &dh LINE &dh ORD_Q &dh LCN_Q &dh SHN_Q &dh SHP_Q &dh FUL_Q &dh CAN_Q &dh INC_Q &dh UOM &dh SSC &dh OP &dh');UTL_FILE.PUT_LINE(handle,'BK &dh SH &dh CN &dh VD &dh SI &dh FF &dh WF_ACT_CODE &dh WF_RESULT &dh HIST_TYPE &dh HIST_CREAT_DATE &dh FLOW_CODE &dh');UTL_FILE.PUT_LINE(handle,'PRICE &dh REASON_CODE &dh HIST_COMMENTS &eh');Declarecursor l_lin_his isselectHIL.LINE_ID Line_id,to_char(HIL.line_number) || decode(HIL.shipment_number, null, null, '.' || to_char(HIL.shipment_number))|| decode(HIL.option_number, null, null, '.' || to_char(HIL.option_number)) ||decode(HIL.component_number, null, null, decode(HIL.option_number, null, '.',null)||'.'||to_char(HIL.component_number))||decode(HIL.service_number,null,null,decode(HIL.component_number, null, '.' , null) ||decode(HIL.option_number, null, '.', null ) ||'.'|| to_char(HIL.service_number)) line_no,nvl(HIL.ORDERED_QUANTITY,0) Ord_q,nvl(HIL.LATEST_CANCELLED_QUANTITY,0) lCan_q, nvl(HIL.SHIPPING_QUANTITY,0) SHI_q, nvl(HIL.SHIPPED_QUANTITY,0) SHP_q, nvl(HIL.FULFILLED_QUANTITY,0) Ful_q, nvl(HIL.CANCELLED_QUANTITY,0) Can_q, nvl(HIL.INVOICED_QUANTITY,0) INV_q, HIL.ORDER_QUANTITY_UOM Ord_q_uom,substr(HIL.SCHEDULE_STATUS_CODE,1,5) Sch_code,nvl(HIL.OPEN_FLAG,'N') OP_f,nvl(HIL.BOOKED_FLAG,'N') BK_f,nvl(HIL.SHIPPABLE_FLAG,'N') SH_f,nvl(HIL.CANCELLED_FLAG,'N') CN_f,nvl(HIL.VISIBLE_DEMAND_FLAG,'N') VD_f,nvl(HIL.SHIPPING_INTERFACED_FLAG,'N') SI_f,nvl(HIL.FULFILLED_FLAG,'N') FL_f,HIL.WF_ACTIVITY_CODE Act_code,HIL.WF_RESULT_CODE Res_code,HIL.HIST_TYPE_CODE Typ_code,to_char(HIL.HIST_CREATION_DATE, 'DD-MON-RR_HH24:MI:SS') Hist_cre_date,HIL.FLOW_STATUS_CODE Sta_code,HIL.UNIT_SELLING_PRICE Sell_p, HIL.REASON_CODE Reason,HIL.HIST_COMMENTS commentsfromOE_ORDER_LINES_HISTORY HILwhereHIL.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,HIL.LINE_ID,HIL.TOP_MODEL_LINE_ID,HIL.ATO_LINE_ID,HIL.LINK_TO_LINE_ID,HIL.SERVICE_REFERENCE_LINE_ID)order byNVL(HIL.ATO_LINE_ID, HIL.LINE_ID),NVL(HIL.SORT_ORDER, '0000'),NVL(HIL.LINK_TO_LINE_ID, HIL.LINE_ID),NVL(HIL.SOURCE_DOCUMENT_LINE_ID, HIL.LINE_ID),NVL(HIL.SERVICE_REFERENCE_LINE_ID, HIL.LINE_ID),HIL.LINE_ID;beginfor ll in l_lin_hislooputl_file.put_line(handle,'&sld'||n(ll.Line_id)||'&d'||n(ll.line_no)||'&d');utl_file.put_line(handle,n(ll.Ord_q)||'&d'||n(ll.lcan_q)||'&d');utl_file.put_line(handle,n(ll.SHI_q)||'&d'||n(ll.SHP_q)||'&d');utl_file.put_line(handle,n(ll.Ful_q)||'&d'||n(ll.CAN_q)||'&d');utl_file.put_line(handle,n(ll.INV_q)||'&d'||n(ll.ord_q_uom)||'&d');utl_file.put_line(handle,n(ll.Sch_code)||'&d'||n(ll.OP_f)||'&d');utl_file.put_line(handle,n(ll.BK_f)||'&d'||n(ll.SH_f)||'&d');utl_file.put_line(handle,n(ll.CN_f)||'&d'||n(ll.VD_f)||'&d');utl_file.put_line(handle,n(ll.SI_f)||'&d'||n(ll.FL_f)||'&d');utl_file.put_line(handle,n(ll.Act_code)||'&d'||n(ll.Res_code)||'&d');utl_file.put_line(handle,n(ll.Typ_code)||'&d'||n(ll.Hist_cre_date)||'&d');utl_file.put_line(handle,n(ll.Sta_code)||'&d'||n(ll.Sell_p)||'&d');utl_file.put_line(handle,n(ll.Reason)||'&d'||n(ll.comments)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');if substr(UPPER(nvl('&prt_wf','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW LINE STATUS &f');-- break on WFS.ITEM_KEY skip 2;declare cursor WF_LINE isselect WFS.ITEM_KEY ITEM_KEY,WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT_CODE,LKP.MEANING MEANING,WFS.NOTIFICATION_ID NOTIFICATION_ID,WFP.PROCESS_NAME INT_Process_name,WFP.ACTIVITY_NAME INT_Activity_name,WFS.ACTIVITY_RESULT_CODE INT_Act_Res_code,WFS.ACTIVITY_STATUS INT_Act_Stat,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') B_Date,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') E_Date,WFS.ERROR_NAME Err_name,WFS.BEGIN_DATE BEGIN_DATE2,WFS.EXECUTION_TIME EXECUTION_TIME2from WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOL'and WFS.item_key in (select to_char(line_id) from OE_ORDER_LINES LINwhere LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSUNION ALLselect WFS.ITEM_KEY ITEM_KEY,WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT_CODE,LKP.MEANING MEANING,WFS.NOTIFICATION_ID NOTIFICATION_ID,WFP.PROCESS_NAME INT_Process_name,WFP.ACTIVITY_NAME INT_Activity_name,WFS.ACTIVITY_RESULT_CODE INT_Act_Res_code,WFS.ACTIVITY_STATUS INT_Act_Stat,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') B_Date,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') E_Date,WFS.ERROR_NAME Err_name,WFS.BEGIN_DATE BEGIN_DATE2,WFS.EXECUTION_TIME EXECUTION_TIME2from WF_ITEM_ACTIVITY_STATUSES_H WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhereWFS.ITEM_TYPE = 'OEOL'and WFS.item_key in(select to_char(line_id) from OE_ORDER_LINES LINwhere LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID))and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION =(select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSorder by ITEM_KEY,BEGIN_DATE2,EXECUTION_TIME2;-- order by 1, 14, 15;type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;current_key number;line_no varchar2(10);procedure prt_head(it_key varchar2) isbeginutl_file.put_line(handle,'&std &sh WARNING &dh');utl_file.put_line(handle,'LIN_NUM &dh LIN_ID &dh PROCESS_NAME &dh ACTIVITY_NAME &dh');utl_file.put_line(handle,'RESULT &dh ACT_STATUS &dh NOTIF_ID &dh INT_PROCESS_NAME &dh');utl_file.put_line(handle,'INT_ACTIVITY_NAME &dh INT_RESULT_CODE &dh INT_ACTIVITY_STATUS &dh');utl_file.put_line(handle,'BEGIN_DATE &dh END_DATE &dh ERROR_NAME &eh');end;begincurrent_key := '';:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..60loopmsg(i).flag := '0';msg(i).descrip := '';end loop;-- end if; -- do_analysis-- cycle for table informationfor wf in wf_LINE loop:r_flag := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull; -- nothing yetend if; -- do_analysis-- Print line to Output fileif wf.item_key <> nvl(current_key,0) then -- check if item key changed to place a divisionif current_key is not null then -- first pass don't need to close tableutl_file.put_line(handle,'&et &f');end if;prt_head(wf.ITEM_KEY);current_key := wf.item_key;select to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) into line_nofrom OE_ORDER_LINES LINwhere LIN.Line_id = current_key;end if; utl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d'||n(line_no)||'&d');utl_file.put_line(handle,n(wf.ITEM_KEY)||'&d');utl_file.put_line(handle,n(wf.Process_name)||'&d'||n(wf.activity_name)||'&d');utl_file.put_line(handle,n(wf.Result_code)||'&d'||n(wf.Meaning)||'&d');utl_file.put_line(handle,n(wf.Notification_id)||'&d'||n(wf.INT_Process_name)||'&d');utl_file.put_line(handle,n(wf.INT_activity_name)||'&d'||n(wf.INT_Act_Res_code)||'&d');utl_file.put_line(handle,n(wf.INT_Act_Stat)||'&d'||n(wf.B_date)||'&d');utl_file.put_line(handle,n(wf.E_date)||'&d'||n(wf.Err_name)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;if current_key is null then -- Print Titles when no rows were selected.prt_head(' ');end if;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..60loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et');/*UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW LINE SKIP INFORMATION (WFSKIPL)&f');UTL_FILE.PUT_LINE(handle,'&std &sh LINE_ID &dh HEADER_ID &dh DISPLAY_NAME &dh CREATION_DATE &dh USER_ID &dh RESPONSIBILITY_ID &dh APPLICATION_ID &eh');declarer_exist number;beginselect count(*)into r_existfrom all_tableswhere table_name = 'ONT_WF_SKIP_LOG';if r_exist = 0 thenutl_file.put_line(handle,'&et Table ONT_WF_SKIP_LOG is not present on this instance: &f');end if;end;select '&sld', WFS.LINE_ID,WFS.HEADER_ID,WFA.DISPLAY_NAME,to_char(WFS.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') cre_date,WFS.USER_ID,WFS.RESPONSIBILITY_ID,WFS.APPLICATION_ID,'&el'from ONT_WF_SKIP_LOG WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFAwhere WFS.HEADER_ID = nvl('&header_id_selected',to_char(:v_header_id))and WFS.ACTIVITY_ID = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand NVL('&line_id_selected',0) in (0,WFS.LINE_ID)order by WFS.HEADER_ID, WFS.LINE_ID,WFS.CREATION_DATE;UTL_FILE.PUT_LINE(handle,'&et'); */UTL_FILE.PUT_LINE(handle,'&f &f &b WORKFLOW LINE STATUS ERRORS &f');-- break on LIN_ID skip 2;UTL_FILE.PUT_LINE(handle,'&std &sh LIN_ID &dh PROCESS_NAME &dh ERROR_ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh ERR_RETRY_ROLE &dh ERR_RETRY_USER &dh ');UTL_FILE.PUT_LINE(handle,'ERROR_NAME &dh ERROR_MESSAGE &dh ERROR_STACK &eh');Declarecursor l_wf_err isselect WFS.ITEM_KEY LIN_ID, WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ERROR_ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.ERROR_NAME ERROR_NAME,WFS.ERROR_MESSAGE ERROR_MESSAGE,WFS.ERROR_STACK ERROR_STACKfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_ITEMS WFI,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'OEOL'and WFS.item_key in (select to_char(line_id) from OE_ORDER_LINES LINwhere LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFS.ERROR_NAME is not NULLand WFI.PARENT_ITEM_TYPE='OEOL' and WFI.PARENT_ITEM_KEY in (select to_char(line_id) from OE_ORDER_LINES LINwhere LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor ll in l_wf_errlooputl_file.put_line(handle,'&sld'||n(ll.LIN_ID)||'&d'||n(ll.PROCESS_NAME)||'&d');utl_file.put_line(handle,n(ll.ERROR_ACTIVITY_NAME)||'&d'||n(ll.RESULT)||'&d');utl_file.put_line(handle,n(ll.ACT_STATUS)||'&d'||n(ll.ERROR_NAME)||'&d');utl_file.put_line(handle,n(ll.ERROR_MESSAGE)||'&d'||n(ll.ERROR_STACK)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');-- break on ERR_TYPE_KEY skip 2;UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW ACTIVITY STATUS FOR LINE ERROR PROCESS &f');UTL_FILE.PUT_LINE(handle,'&std &sh ERR_TYPE_KEY &dh ERR_PROCESS_NAME &dh ERR_ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh NOTIF_ID &dh ');UTL_FILE.PUT_LINE(handle,'ASGND_USER &dh BEGIN_DATE &dh END_DATE &eh');Declarecursor l_wf_proc_err isselect WFS.ITEM_TYPE || '-' || WFS.ITEM_KEY ERR_TYPE_KEY, WFA.DISPLAY_NAME ERR_PROCESS_NAME,WFA1.DISPLAY_NAME ERR_ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.NOTIFICATION_ID NOTIF_ID,WFS.ASSIGNED_USER ASGND_USER,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') BEGIN_DATE,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') END_DATEfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKP,WF_ITEMS WFIwhere WFS.ITEM_TYPE = WFI.ITEM_TYPEand WFS.item_key = WFI.ITEM_KEYand WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFI.PARENT_ITEM_TYPE = 'OEOL'and WFI.PARENT_ITEM_KEY in (select to_char(line_id) from OE_ORDER_LINES LINwhere LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFI.ITEM_TYPE in (select WFAE.ERROR_ITEM_TYPEfrom WF_ITEM_ACTIVITY_STATUSES WFSE,WF_PROCESS_ACTIVITIES WFPE,WF_ACTIVITIES_VL WFAE,WF_ACTIVITIES_VL WFA1Ewhere WFSE.ITEM_TYPE = 'OEOL'and WFSE.ITEM_KEY in (select to_char(line_id) from OE_ORDER_LINES LINwhere LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFSE.PROCESS_ACTIVITY = WFPE.INSTANCE_IDand WFPE.PROCESS_ITEM_TYPE = WFAE.ITEM_TYPEand WFPE.PROCESS_NAME = WFAE.NAMEand WFPE.PROCESS_VERSION = WFAE.VERSIONand WFPE.ACTIVITY_ITEM_TYPE = WFA1E.ITEM_TYPEand WFPE.ACTIVITY_NAME = WFA1E.NAMEand WFA1E.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2Ewhere WF2E.ITEM_TYPE = WFPE.ACTIVITY_ITEM_TYPEand WF2E.NAME = WFPE.ACTIVITY_NAME)and WFSE.ACTIVITY_STATUS = 'ERROR')order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor ll in l_wf_proc_errlooputl_file.put_line(handle,'&sld'||n(ll.ERR_TYPE_KEY)||'&d'||n(ll.ERR_PROCESS_NAME)||'&d');utl_file.put_line(handle,n(ll.ERR_ACTIVITY_NAME)||'&d'||n(ll.RESULT)||'&d');utl_file.put_line(handle,n(ll.ACT_STATUS)||'&d'||n(ll.NOTIF_ID)||'&d');utl_file.put_line(handle,n(ll.ASGND_USER)||'&d'||n(ll.BEGIN_DATE)||'&d');utl_file.put_line(handle,n(ll.END_DATE)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_wfUTL_FILE.PUT_LINE(handle,'&f &f LINE SPECIFIC HOLDS (LINES ONLY)');UTL_FILE.PUT_LINE(handle,'&std &sh LINE &dh HOLD_ID &dh HOLD_NAME &dh HOLD_TYPE &dh WF_ITEM &dh WF_ACTIVITY &dh ORD_HOLD_ID &dh HLD_SRC_ID &dh ');UTL_FILE.PUT_LINE(handle,'HLD_REL_ID &dh HEADER_ID &dh LINE_ID &dh H_REL &dh S_REL &dh RELEASE_REASON &dh ENTITY &dh ENTITY_ID &dh ENTITY2 &dh ');UTL_FILE.PUT_LINE(handle,'ENTITY_ID2 &dh HOLD_UNTIL &eh');Declarecursor l_holds isSELECT to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,HDF.HOLD_ID HOLD_ID,HDF.NAME HOLD_NAME,HDF.TYPE_CODE HOLD_TYPE,HDF.ITEM_TYPE WF_ITEM,HDF.ACTIVITY_NAME WF_ACTIVITY,HLD.ORDER_HOLD_ID ORD_HOLD_ID,HLD.HOLD_SOURCE_ID HLD_SRC_ID,HLD.HOLD_RELEASE_ID HLD_REL_ID,HLD.HEADER_ID HEADER_ID,HLD.LINE_ID LINE_ID,HLD.RELEASED_FLAG H_REL,HSR.RELEASED_FLAG S_REL,HRL.RELEASE_REASON_CODE RELEASE_REASON,decode(HSR.HOLD_ENTITY_CODE,'B','Bill To','C','Customer','I','Item','O','Order','S','Ship To','W','Warehouse',HSR.HOLD_ENTITY_CODE) ENTITY,HSR.HOLD_ENTITY_ID ENTITY_ID,decode(HSR.HOLD_ENTITY_CODE2,'B','Bill To','C','Customer','I','Item','O','Order','S','Ship To','W','Warehouse',HSR.HOLD_ENTITY_CODE2) ENTITY2,HSR.HOLD_ENTITY_ID2 ENTITY_ID2,to_char(HSR.HOLD_UNTIL_DATE,'DD-MON-RR_HH24:MI:SS') HOLD_UNTILfrom OE_ORDER_HOLDS_ALL HLD,OE_HOLD_SOURCES_ALL HSR,OE_HOLD_DEFINITIONS HDF,OE_HOLD_RELEASES HRL,OE_ORDER_LINES_ALL LINwhere HLD.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and HLD.LINE_ID IS NOT NULLand HLD.LINE_ID = LIN.LINE_IDand NVL('&line_id_selected',0)in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and HLD.HOLD_SOURCE_ID = HSR.HOLD_SOURCE_IDand HSR.HOLD_ID = HDF.HOLD_IDand HLD.HOLD_RELEASE_ID = HRL.HOLD_RELEASE_ID(+);beginfor ll in l_holdslooputl_file.put_line(handle,'&sld'||n(ll.LINE)||'&d'||n(ll.HOLD_ID)||'&d');utl_file.put_line(handle,n(ll.HOLD_NAME)||'&d'||n(ll.HOLD_TYPE)||'&d');utl_file.put_line(handle,n(ll.WF_ITEM)||'&d'||n(ll.WF_ACTIVITY)||'&d');utl_file.put_line(handle,n(ll.ORD_HOLD_ID)||'&d'||n(ll.HLD_SRC_ID)||'&d');utl_file.put_line(handle,n(ll.HLD_REL_ID)||'&d'||n(ll.HEADER_ID)||'&d');utl_file.put_line(handle,n(ll.LINE_ID)||'&d'||n(ll.H_REL)||'&d');utl_file.put_line(handle,n(ll.S_REL)||'&d'||n(ll.RELEASE_REASON)||'&d');utl_file.put_line(handle,n(ll.ENTITY)||'&d'||n(ll.ENTITY_ID)||'&d');utl_file.put_line(handle,n(ll.ENTITY2)||'&d'||n(ll.ENTITY_ID2)||'&d');utl_file.put_line(handle,n(ll.HOLD_UNTIL)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');-- This is commented out because it runs slowly without an index -- CREATE INDEX OE_PROCESSING_MSGS_777-- ON ONT.OE_PROCESSING_MSGS-- (header_id, line_id);UTL_FILE.PUT_LINE(handle,'&f &f LINE PROCESSING MESSAGES &f');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh LINE &dh HEADER_ID &dh LINE_ID &dh MSG_SOURCE &dh ACTIVITY &dh REQUEST_ID &dh DESCRIPTION &dh MESSAGE_TEXT &eh');declarecursor l_proc isselect distinctto_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,MSG.header_id HEADER_ID,MSG.line_id LINE_ID,decode(MSG.MESSAGE_SOURCE_CODE,'U','U=On-Line(UI)','C','C=Conc Process','W','W=Workflow',MSG.MESSAGE_SOURCE_CODE) MSG_SOURCE,MSG.PROCESS_ACTIVITY PROCESS_ACTIVITY, MSG.request_id REQUEST_ID,MST.message_text MESSAGE_TEXTfrom oe_processing_msgs_vl MSG,oe_processing_msgs_tl MST,oe_order_lines_all LIN,fnd_languages FLAwhere MSG.header_id = nvl('&header_id_selected',:v_header_id)and MSG.HEADER_ID = LIN.HEADER_IDand msg.transaction_id = mst.transaction_idand MST.LANGUAGE = FLA.LANGUAGE_CODE and FLA.INSTALLED_FLAG = 'B' and MSG.LINE_ID = LIN.LINE_IDand MSG.LINE_ID is not NULLand NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);r_activity varchar2(100);r_descrip varchar2(100);type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..10loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. Cannot find Activity name associated to LINE PROCESSING MESSAGES.';msg(2).descrip := ' 2. Cannot find Request Description.';-- end if;for lp in l_proc loop:r_flag := '';:r_error := 0;r_activity := '';r_descrip := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then-- Get Activity namebeginselect WFA1.DISPLAY_NAMEinto r_activityfrom WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA1 where WFP.INSTANCE_ID = lp.PROCESS_ACTIVITYand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME);exceptionwhen no_data_found then:r_flag := :r_flag || '1 ';msg(1).flag := '1';end;-- Get Request descriptionbeginselect DESCRIPTION into r_descripFROM FND_CONCURRENT_REQUESTS FCRwhere FCR.REQUEST_ID = lp.REQUEST_ID;exceptionwhen no_data_found then:r_flag := :r_flag || '2 ';msg(2).flag := '1';end;end if; -- do_analysis-- Print line to Output file-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,n(lp.LINE)||'&d'||n(lp.HEADER_ID)||'&d');utl_file.put_line(handle,n(lp.LINE_ID)||'&d'||n(lp.MSG_SOURCE)||'&d');utl_file.put_line(handle,n(r_activity)||'&d'||n(lp.REQUEST_ID)||'&d');utl_file.put_line(handle,n(r_descrip)||'&d'||n(lp.MESSAGE_TEXT)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..10loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et');-- DROP INDEX OE_PROCESSING_MSGS_777if substr(UPPER(nvl('&prt_price','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f APPLIED LINE PRICE ADJUSTMENTS (ADJ) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh PRC_ADJ_ID &dh LINE &dh LST_HD_ID &dh LST_LN_ID &dh LIST_LN_NO &dh MOD_LVL &dh LIST_TYPE_CODE &dh CHG_TY_CD &dh');UTL_FILE.PUT_LINE(handle,'ARITH_OP &dh OP_PER_QTY &dh ADJ_AMT_PQ &dh OPERAND &dh ADJ_AMT &dh CD &dh AF &dh PI &dh AC &dh IF &dh EF &dh UA &dh UF &dh');UTL_FILE.PUT_LINE(handle,'AP &dh LK &dh PERC &dh COST_ID &dh TAX_CODE &dh PP &eh');Declarecursor l_prc_adj isselectADJ.PRICE_ADJUSTMENT_ID PRC_ADJ_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,ADJ.LIST_HEADER_ID LST_HD_ID, ADJ.LIST_LINE_ID LST_LN_ID, ADJ.LIST_LINE_NO LIST_LN_NO, ADJ.MODIFIER_LEVEL_CODE MOD_LVL, ADJ.LIST_LINE_TYPE_CODE LIST_TYPE_CODE,ADJ.CHARGE_TYPE_CODE CHG_TY_CD, ADJ.ARITHMETIC_OPERATOR ARITH_OP, ADJ.OPERAND_PER_PQTY OP_PER_QTY, ADJ.ADJUSTED_AMOUNT_PER_PQTY ADJ_AMT_PQ,ADJ.OPERAND OPERAND, ADJ.ADJUSTED_AMOUNT ADJ_AMT, ADJ.CREDIT_OR_CHARGE_FLAG CD, ADJ.AUTOMATIC_FLAG AF, ADJ.PRINT_ON_INVOICE_FLAG PI, ADJ.ACCRUAL_FLAG AC, ADJ.INVOICED_FLAG INF, ADJ.ESTIMATED_FLAG EF,ADJ.UPDATE_ALLOWED UA, ADJ.UPDATED_FLAG UF, ADJ.APPLIED_FLAG AP, ADJ.LOCK_CONTROL LK, ADJ.PERCENT PERC, ADJ.COST_ID COST_ID, ADJ.TAX_CODE TAX_CODE, ADJ.PRICING_PHASE_ID PPfrom OE_PRICE_ADJUSTMENTS ADJ,OE_ORDER_LINES_ALL LINwhere ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ADJ.LINE_ID IS NOT NULLand ADJ.LINE_ID = LIN.LINE_IDand NVL('&line_id_selected',0)in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and ADJ.APPLIED_FLAG = 'Y'order by LINE,LIST_LINE_TYPE_CODE;beginfor ll in l_prc_adjlooputl_file.put_line(handle,'&sld'||n(ll.PRC_ADJ_ID)||'&d'||n(ll.LINE)||'&d');utl_file.put_line(handle,n(ll.LST_HD_ID)||'&d'||n(ll.LST_LN_ID)||'&d');utl_file.put_line(handle,n(ll.LIST_LN_NO)||'&d'||n(ll.MOD_LVL)||'&d');utl_file.put_line(handle,n(ll.LIST_TYPE_CODE)||'&d'||n(ll.CHG_TY_CD)||'&d');utl_file.put_line(handle,n(ll.ARITH_OP)||'&d'||n(ll.OP_PER_QTY)||'&d');utl_file.put_line(handle,n(ll.ADJ_AMT_PQ)||'&d'||n(ll.OPERAND)||'&d');utl_file.put_line(handle,n(ll.ADJ_AMT)||'&d'||n(ll.CD)||'&d');utl_file.put_line(handle,n(ll.AF)||'&d'||n(ll.PI)||'&d');utl_file.put_line(handle,n(ll.AC)||'&d'||n(ll.INF)||'&d');utl_file.put_line(handle,n(ll.EF)||'&d'||n(ll.UA)||'&d');utl_file.put_line(handle,n(ll.UF)||'&d'||n(ll.AP)||'&d');utl_file.put_line(handle,n(ll.LK)||'&d'||n(ll.PERC)||'&d');utl_file.put_line(handle,n(ll.COST_ID)||'&d'||n(ll.TAX_CODE)||'&d');utl_file.put_line(handle,n(ll.PP)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f UN-APPLIED LINE PRICE ADJUSTMENTS (ADJ) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh PRC_ADJ_ID &dh LINE &dh LST_HD_ID &dh LST_LN_ID &dh LIST_LN_NO &dh MOD_LVL &dh LIST_TYPE_CODE &dh CHG_TY_CD &dh');UTL_FILE.PUT_LINE(handle,'ARITH_OP &dh OP_PER_QTY &dh ADJ_AMT_PQ &dh OPERAND &dh ADJ_AMT &dh CD &dh AF &dh PI &dh AC &dh IF &dh EF &dh UA &dh UF &dh');UTL_FILE.PUT_LINE(handle,'AP &dh LK &dh PERC &dh COST_ID &dh TAX_CODE &dh PP &eh');Declarecursor l_prc_adj_un isselectADJ.PRICE_ADJUSTMENT_ID PRC_ADJ_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,ADJ.LIST_HEADER_ID LST_HD_ID, ADJ.LIST_LINE_ID LST_LN_ID, ADJ.LIST_LINE_NO LIST_LN_NO, ADJ.MODIFIER_LEVEL_CODE MOD_LVL, ADJ.LIST_LINE_TYPE_CODE LIST_TYPE_CODE,ADJ.CHARGE_TYPE_CODE CHG_TY_CD, ADJ.ARITHMETIC_OPERATOR ARITH_OP, ADJ.OPERAND_PER_PQTY OP_PER_QTY, ADJ.ADJUSTED_AMOUNT_PER_PQTY ADJ_AMT_PQ,ADJ.OPERAND OPERAND, ADJ.ADJUSTED_AMOUNT ADJ_AMT, ADJ.CREDIT_OR_CHARGE_FLAG CD, ADJ.AUTOMATIC_FLAG AF, ADJ.PRINT_ON_INVOICE_FLAG PI, ADJ.ACCRUAL_FLAG AC, ADJ.INVOICED_FLAG INF, ADJ.ESTIMATED_FLAG EF, ADJ.UPDATE_ALLOWED UA, ADJ.UPDATED_FLAG UF, ADJ.APPLIED_FLAG AP, ADJ.LOCK_CONTROL LK, ADJ.PERCENT PERC, ADJ.COST_ID COST_ID, ADJ.TAX_CODE TAX_CODE, ADJ.PRICING_PHASE_ID PPfrom OE_PRICE_ADJUSTMENTS ADJ,OE_ORDER_LINES_ALL LINwhere ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ADJ.LINE_ID IS NOT NULLand ADJ.LINE_ID = LIN.LINE_IDand NVL('&line_id_selected',0)in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and nvl(ADJ.APPLIED_FLAG,'N') = 'N'order by LINE,LIST_LINE_TYPE_CODE;beginfor ll in l_prc_adj_unlooputl_file.put_line(handle,'&sld'||n(ll.PRC_ADJ_ID)||'&d'||n(ll.LINE)||'&d');utl_file.put_line(handle,n(ll.LST_HD_ID)||'&d'||n(ll.LST_LN_ID)||'&d');utl_file.put_line(handle,n(ll.LIST_LN_NO)||'&d'||n(ll.MOD_LVL)||'&d');utl_file.put_line(handle,n(ll.LIST_TYPE_CODE)||'&d'||n(ll.CHG_TY_CD)||'&d');utl_file.put_line(handle,n(ll.ARITH_OP)||'&d'||n(ll.OP_PER_QTY)||'&d');utl_file.put_line(handle,n(ll.ADJ_AMT_PQ)||'&d'||n(ll.OPERAND)||'&d');utl_file.put_line(handle,n(ll.ADJ_AMT)||'&d'||n(ll.CD)||'&d');utl_file.put_line(handle,n(ll.AF)||'&d'||n(ll.PI)||'&d');utl_file.put_line(handle,n(ll.AC)||'&d'||n(ll.INF)||'&d');utl_file.put_line(handle,n(ll.EF)||'&d'||n(ll.UA)||'&d');utl_file.put_line(handle,n(ll.UF)||'&d'||n(ll.AP)||'&d');utl_file.put_line(handle,n(ll.LK)||'&d'||n(ll.PERC)||'&d');utl_file.put_line(handle,n(ll.COST_ID)||'&d'||n(ll.TAX_CODE)||'&d');utl_file.put_line(handle,n(ll.PP)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_priceif substr(UPPER(nvl('&prt_po','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f OE_DROP_SHIP_SOURCES (SRC) &f');UTL_FILE.PUT_LINE(handle,'&std &sh DROP_SHIP_ID &dh HEADER_ID &dh LINE_ID &dh LINE &dh ORG_ID &dh DEST_ID &dh DEST_ORG &dh REQ_HEADER_ID &dh ');UTL_FILE.PUT_LINE(handle,'REQ_LINE_ID &dh PO_HEAD_ID &dh PO_LINE_ID &dh LINE_LOC_ID &dh PO_RELEASE_ID &eh');Declarecursor l_drop_ship isselect SRC.DROP_SHIP_SOURCE_ID DROP_SHIP_ID,SRC.HEADER_ID HEADER_ID,SRC.LINE_ID LINE_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,SRC.ORG_ID ORG_ID,SRC.DESTINATION_ORGANIZATION_ID DEST_ID,PAR.ORGANIZATION_CODE DEST_ORG,SRC.REQUISITION_HEADER_ID REQ_HEADER_ID,SRC.REQUISITION_LINE_ID REQ_LINE_ID,SRC.PO_HEADER_ID PO_HEAD_ID,SRC.PO_LINE_ID PO_LINE_ID,SRC.LINE_LOCATION_ID LINE_LOC_ID,SRC.PO_RELEASE_ID PO_RELEASE_IDFROM OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LIN, MTL_PARAMETERS PARWHERESRC.LINE_ID = LIN.LINE_IDand SRC.DESTINATION_ORGANIZATION_ID = PAR.ORGANIZATION_ID(+)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor ll in l_drop_shiplooputl_file.put_line(handle,'&sld'||n(ll.DROP_SHIP_ID)||'&d'||n(ll.HEADER_ID)||'&d');utl_file.put_line(handle,n(ll.LINE_ID)||'&d'||n(ll.LINE)||'&d');utl_file.put_line(handle,n(ll.ORG_ID)||'&d'||n(ll.DEST_ID)||'&d');utl_file.put_line(handle,n(ll.DEST_ORG)||'&d'||n(ll.REQ_HEADER_ID)||'&d');utl_file.put_line(handle,n(ll.REQ_LINE_ID)||'&d'||n(ll.PO_HEAD_ID)||'&d');utl_file.put_line(handle,n(ll.PO_LINE_ID)||'&d'||n(ll.LINE_LOC_ID)||'&d');utl_file.put_line(handle,n(ll.PO_RELEASE_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_poend if; -- :v_head_onlyUTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;beginIf :v_head_only = 'N' then -- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedif substr(UPPER(nvl('&prt_po','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f PO_REQUISITIONS_INTERFACE_ALL (RQI) &f');UTL_FILE.PUT_LINE(handle,'&std &sh DROP_SHIP_ID &dh LINE &dh AUTH_STATUS &dh DELIV_LOC &dh PREPARER &dh DEST_ORG_ID &dh DEST_TYPE &dh ');UTL_FILE.PUT_LINE(handle,'SRC_CODE &dh SRC_TYPE_CODE &dh ITEM_ID &dh NEED_BY &dh QTY &dh PRICE &el');Declarecursor po_req_int isSelect /* DROP SHIP */RQI.INTERFACE_SOURCE_LINE_ID DROP_SHIP_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RQI.AUTHORIZATION_STATUS AUTH_STATUS, RQI.DELIVER_TO_LOCATION_ID DELIV_LOC,RQI.PREPARER_ID PREPARER,RQI.DESTINATION_ORGANIZATION_ID DEST_ORG_ID,RQI.DESTINATION_TYPE_CODE DEST_TYPE,RQI.INTERFACE_SOURCE_CODE SRC_CODE,RQI.SOURCE_TYPE_CODE SRC_TYPE_CODE,RQI.ITEM_ID ITEM_ID,to_char(RQI.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY, RQI.QUANTITY QTY, RQI.UNIT_PRICE PRICEfrom PO_REQUISITIONS_INTERFACE_ALL RQI,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.DROP_SHIP_SOURCE_ID = RQI.INTERFACE_SOURCE_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor po in po_req_intlooputl_file.put_line(handle,'&sld'||n(po.DROP_SHIP_ID)||'&d'||n(po.LINE)||'&d');utl_file.put_line(handle,n(po.AUTH_STATUS)||'&d'||n(po.DELIV_LOC)||'&d');utl_file.put_line(handle,n(po.PREPARER)||'&d'||n(po.DEST_ORG_ID)||'&d');utl_file.put_line(handle,n(po.DEST_TYPE)||'&d'||n(po.SRC_CODE)||'&d');utl_file.put_line(handle,n(po.SRC_TYPE_CODE)||'&d'||n(po.ITEM_ID)||'&d');utl_file.put_line(handle,n(po.NEED_BY)||'&d'||n(po.QTY)||'&d');utl_file.put_line(handle,n(po.PRICE)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_INTERFACE_ERRORS_ALL (POE) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTF_TRANS_ID &dh LINE &dh COLUMN_NAME &dh ERROR &dh INTF_TYPE &dh REQUEST_ID &dh TABLE_NAME &eh');Declare cursor po_int_err isselectPOE.INTERFACE_TRANSACTION_ID INTF_TRANS_ID, to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,POE.COLUMN_NAME COLUMN_NAME, POE.ERROR_MESSAGE ERRORM, POE.INTERFACE_TYPE INTF_TYPE, POE.REQUEST_ID REQUEST_ID,POE.TABLE_NAME TABLE_NAMEfrom PO_INTERFACE_ERRORS POE,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LIN,PO_REQUISITIONS_INTERFACE_ALL RQIwhere SRC.LINE_ID = LIN.LINE_IDand SRC.DROP_SHIP_SOURCE_ID = RQI.INTERFACE_SOURCE_LINE_IDand RQI.TRANSACTION_ID = POE.INTERFACE_TRANSACTION_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor po in po_int_errlooputl_file.put_line(handle,'&sld'||n(po.INTF_TRANS_ID)||'&d'||n(po.LINE)||'&d');utl_file.put_line(handle,n(po.COLUMN_NAME)||'&d'||n(po.ERRORM)||'&d');utl_file.put_line(handle,n(po.INTF_TYPE)||'&d'||n(po.REQUEST_ID)||'&d');utl_file.put_line(handle,n(po.TABLE_NAME)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_REQUISITION_HEADERS_ALL (RQH) &f');UTL_FILE.PUT_LINE(handle,'&std &sh REQ_HEADER_ID &dh REQ_NUMBER &dh DROP_SHIP_ID &dh AUTH_STATUS &dh ENABLED &dh SRC_CODE &dh SUMMARY &dh ');UTL_FILE.PUT_LINE(handle,'XFR_OE_FLAG &dh REQ_TYPE &dh ITEM_TYPE &dh ITEM_KEY &eh');Declarecursor po_req_hdr isselect distinct RQH.REQUISITION_HEADER_ID REQ_HEADER_ID ,RQH.SEGMENT1 REQ_NUMBER,RQH.INTERFACE_SOURCE_LINE_ID DROP_SHIP_ID,RQH.AUTHORIZATION_STATUS AUTH_STATUS, RQH.ENABLED_FLAG ENABLED, RQH.INTERFACE_SOURCE_CODE SRC_CODE,RQH.SUMMARY_FLAG SUMMARY,RQH.TRANSFERRED_TO_OE_FLAG XFR_OE_FLAG,RQH.TYPE_LOOKUP_CODE REQ_TYPE,RQH.WF_ITEM_TYPE ITEM_TYPE,RQH.WF_ITEM_KEY ITEM_KEYfrom PO_REQUISITION_HEADERS_ALL RQH,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_HEADER_ID = RQH.REQUISITION_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect distinct /* INTERNAL REQ */RQH.REQUISITION_HEADER_ID REQ_HEADER_ID ,RQH.SEGMENT1 REQ_NUMBER,RQH.INTERFACE_SOURCE_LINE_ID DROP_SHIP_ID,RQH.AUTHORIZATION_STATUS AUTH_STATUS, RQH.ENABLED_FLAG ENABLED, RQH.INTERFACE_SOURCE_CODE SRC_CODE,RQH.SUMMARY_FLAG SUMMARY,RQH.TRANSFERRED_TO_OE_FLAG XFR_OE_FLAG,RQH.TYPE_LOOKUP_CODE REQ_TYPE,RQH.WF_ITEM_TYPE ITEM_TYPE,RQH.WF_ITEM_KEY ITEM_KEYfrom PO_REQUISITION_HEADERS_ALL RQH,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_ID = RQH.REQUISITION_HEADER_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 --INTERNAL REQUISITIONand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect distinct /* ATO BUY ITEM */RQH.REQUISITION_HEADER_ID REQ_HEADER_ID ,RQH.SEGMENT1 REQ_NUMBER,RQH.INTERFACE_SOURCE_LINE_ID DROP_SHIP_ID,RQH.AUTHORIZATION_STATUS AUTH_STATUS,RQH.ENABLED_FLAG ENABLED,RQH.INTERFACE_SOURCE_CODE SRC_CODE,RQH.SUMMARY_FLAG SUMMARY,RQH.TRANSFERRED_TO_OE_FLAG XFR_OE_FLAG,RQH.TYPE_LOOKUP_CODE REQ_TYPE,RQH.WF_ITEM_TYPE ITEM_TYPE,RQH.WF_ITEM_KEY ITEM_KEYfromPO_REQUISITION_HEADERS_ALL RQH,MTL_RESERVATIONS RESwhere:sales_ord_id = RES.DEMAND_SOURCE_HEADER_IDand RES.DEMAND_SOURCE_TYPE_ID = 2 -- SOand RES.SUPPLY_SOURCE_TYPE_ID = 17 -- Reqand RES.SUPPLY_SOURCE_HEADER_ID = RQH.REQUISITION_HEADER_IDUNION ALLSELECT DISTINCT /* BACK TO BACK REQ */RQH.REQUISITION_HEADER_ID REQ_HEADER_ID ,RQH.SEGMENT1 REQ_NUMBER,RQH.INTERFACE_SOURCE_LINE_ID DROP_SHIP_ID,RQH.AUTHORIZATION_STATUS AUTH_STATUS,RQH.ENABLED_FLAG ENABLED,RQH.INTERFACE_SOURCE_CODE SRC_CODE,RQH.SUMMARY_FLAG SUMMARY,RQH.TRANSFERRED_TO_OE_FLAG XFR_OE_FLAG,RQH.TYPE_LOOKUP_CODE REQ_TYPE,RQH.WF_ITEM_TYPE ITEM_TYPE,RQH.WF_ITEM_KEY ITEM_KEYFROMPO_REQUISITION_HEADERS_ALL RQH,OE_ORDER_LINES_ALL LINWHERE RQH.INTERFACE_SOURCE_LINE_ID = LIN.LINE_IDAND RQH.INTERFACE_SOURCE_CODE = 'CTO'and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id);beginfor po in po_req_hdrlooputl_file.put_line(handle,'&sld'||''||n(po.REQ_HEADER_ID)||''||'&d'||n(po.REQ_NUMBER)||'&d');utl_file.put_line(handle,n(po.DROP_SHIP_ID)||'&d'||n(po.AUTH_STATUS)||'&d');utl_file.put_line(handle,n(po.ENABLED)||'&d'||n(po.SRC_CODE)||'&d');utl_file.put_line(handle,n(po.SUMMARY)||'&d'||n(po.XFR_OE_FLAG)||'&d');utl_file.put_line(handle,n(po.REQ_TYPE)||'&d'||n(po.ITEM_TYPE)||'&d');utl_file.put_line(handle,n(po.ITEM_KEY)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_REQUISITION_LINES_ALL (RQL) &f');UTL_FILE.PUT_LINE(handle,'&std &sh REQ_HEAD_ID &dh REQ_LINE_ID &dh DOC_TYPE &dh REQ_LINE &dh LINE &dh ITEM_ID &dh ITEM_DESC &dh UOM &dh PRICE &dh ');UTL_FILE.PUT_LINE(handle,'QTY &dh QTY_CNC &dh QTY_DLV &dh CANC &dh SRC_TYPE &dh SRC_ORG &dh DEST_TYPE &dh DEST_ORG &dh ENC_FL &dh LINE_TYPE_ID &dh ');UTL_FILE.PUT_LINE(handle,'NEED_BY &dh RFQ &dh BUYER_ID &eh');Declare cursor po_req_lin isselect /* DROP SHIPMENT */RQL.REQUISITION_HEADER_ID REQ_HEAD_ID,RQL.REQUISITION_LINE_ID REQ_LINE_ID, 'DROP SHIP' DOC_TYPE, RQL.LINE_NUM REQ_LINE,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RQL.ITEM_ID ITEM_ID, RQL.ITEM_DESCRIPTION ITEM_DESC,RQL.UNIT_MEAS_LOOKUP_CODE UOM, RQL.UNIT_PRICE PRICE,RQL.QUANTITY QTY, RQL.QUANTITY_CANCELLED QTY_CNC, RQL.QUANTITY_DELIVERED QTY_DLV, RQL.CANCEL_FLAG CANC, RQL.SOURCE_TYPE_CODE SRC_TYPE,RQL.SOURCE_ORGANIZATION_ID SRC_ORG, RQL.DESTINATION_CONTEXT DEST_TYPE, RQL.DESTINATION_ORGANIZATION_ID DEST_ORG,RQL.ENCUMBERED_FLAG ENC_FL, RQL.LINE_TYPE_ID LINE_TYPE_ID,to_char(RQL.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY,RQL.ON_RFQ_FLAG RFQ , RQL.SUGGESTED_BUYER_ID BUYER_IDfrom PO_REQUISITION_LINES_ALL RQL,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand RQL.REQUISITION_LINE_ID = SRC.REQUISITION_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* INTERNAL SALES ORDER */RQL.REQUISITION_HEADER_ID REQ_HEAD_ID,RQL.REQUISITION_LINE_ID REQ_LINE_ID, 'INTERNAL SO' DOC_TYPE, RQL.LINE_NUM REQ_LINE,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RQL.ITEM_ID ITEM_ID, RQL.ITEM_DESCRIPTION ITEM_DESC,RQL.UNIT_MEAS_LOOKUP_CODE UOM, RQL.UNIT_PRICE PRICE,RQL.QUANTITY QTY, RQL.QUANTITY_CANCELLED QTY_CNC, RQL.QUANTITY_DELIVERED QTY_DLV, RQL.CANCEL_FLAG CANC, RQL.SOURCE_TYPE_CODE SRC_TYPE,RQL.SOURCE_ORGANIZATION_ID SRC_ORG, RQL.DESTINATION_CONTEXT DEST_TYPE, RQL.DESTINATION_ORGANIZATION_ID DEST_ORG,RQL.ENCUMBERED_FLAG ENC_FL , RQL.LINE_TYPE_ID LINE_TYPE_ID,to_char(RQL.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY,RQL.ON_RFQ_FLAG RFQ , RQL.SUGGESTED_BUYER_ID BUYER_IDfrom PO_REQUISITION_LINES_ALL RQL,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_LINE_ID = RQL.REQUISITION_LINE_ID and LIN.SOURCE_DOCUMENT_TYPE_ID = 10 --INTERNAL REQUISITIONand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLSELECT DISTINCT /* BACK TO BACK REQ */RQL.REQUISITION_HEADER_ID REQ_HEAD_ID,RQL.REQUISITION_LINE_ID REQ_LINE_ID,'BACK TO BACK' DOC_TYPE,RQL.LINE_NUM REQ_LINE,TO_CHAR(LIN.line_number)|| DECODE(LIN.shipment_number, NULL, NULL, '.'|| TO_CHAR(LIN.shipment_number))|| DECODE(LIN.option_number, NULL, NULL, '.'|| TO_CHAR(LIN.option_number))|| DECODE(LIN.component_number, NULL, NULL, DECODE(LIN.option_number, NULL, '.',NULL)|| '.'||TO_CHAR(LIN.component_number))|| DECODE(LIN.service_number,NULL,NULL, DECODE(LIN.component_number, NULL, '.' , NULL)|| DECODE(LIN.option_number, NULL, '.', NULL )|| '.'|| TO_CHAR(LIN.service_number)) LINE,RQL.ITEM_ID ITEM_ID,RQL.ITEM_DESCRIPTION ITEM_DESC,RQL.UNIT_MEAS_LOOKUP_CODE UOM,RQL.UNIT_PRICE PRICE,RQL.QUANTITY QTY,RQL.QUANTITY_CANCELLED QTY_CNC,RQL.QUANTITY_DELIVERED QTY_DLV,RQL.CANCEL_FLAG CANC,RQL.SOURCE_TYPE_CODE SRC_TYPE,RQL.SOURCE_ORGANIZATION_ID SRC_ORG,RQL.DESTINATION_CONTEXT DEST_TYPE,RQL.DESTINATION_ORGANIZATION_ID DEST_ORG,RQL.ENCUMBERED_FLAG ENC_FL ,RQL.LINE_TYPE_ID LINE_TYPE_ID,TO_CHAR(RQL.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY,RQL.ON_RFQ_FLAG RFQ ,RQL.SUGGESTED_BUYER_ID BUYER_IDFROMPO_REQUISITION_HEADERS_ALL RQH,PO_REQUISITION_LINES_ALL RQL,OE_ORDER_LINES_ALL LINWHERE RQH.INTERFACE_SOURCE_LINE_ID = LIN.LINE_IDAND RQH.INTERFACE_SOURCE_CODE = 'CTO'AND RQH.REQUISITION_HEADER_ID = RQL.REQUISITION_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor po in po_req_linlooputl_file.put_line(handle,'&sld'||n(po.REQ_HEAD_ID)||'&d'||''||n(po.REQ_LINE_ID)||''||'&d');utl_file.put_line(handle,n(po.DOC_TYPE)||'&d'||n(po.REQ_LINE)||'&d');utl_file.put_line(handle,n(po.LINE)||'&d'||n(po.ITEM_ID)||'&d');utl_file.put_line(handle,n(po.ITEM_DESC)||'&d'||n(po.UOM)||'&d');utl_file.put_line(handle,n(po.PRICE)||'&d'||n(po.QTY)||'&d');utl_file.put_line(handle,n(po.QTY_CNC)||'&d'||n(po.QTY_DLV)||'&d');utl_file.put_line(handle,n(po.CANC)||'&d'||n(po.SRC_TYPE)||'&d');utl_file.put_line(handle,n(po.SRC_ORG)||'&d'||n(po.DEST_TYPE)||'&d');utl_file.put_line(handle,n(po.DEST_ORG)||'&d'||n(po.ENC_FL)||'&d');utl_file.put_line(handle,n(po.LINE_TYPE_ID)||'&d'||n(po.NEED_BY)||'&d');utl_file.put_line(handle,n(po.RFQ)||'&d'||n(po.BUYER_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW REQUISITION APPROVAL STATUS &f');-- break on REQ_NUM_IK skip 2;UTL_FILE.PUT_LINE(handle,'&std &sh REQ_NUM_IK &dh PROCESS_NAME &dh ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh NOTIF_ID &dh _BEGIN_DATE_ &dh ');UTL_FILE.PUT_LINE(handle,'_END_DATE_ &dh ERROR &eh');Declare cursor po_req_apprv isselect WFS.item_key REQ_NUM_IK,WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.NOTIFICATION_ID NOTIF_ID,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') BEGIN_DATE,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') END_DATE,WFS.ERROR_NAME ERROR_apprvfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'REQAPPRV'and WFS.item_key in (select wf_item_key /*DROP SHIPMENTS*/from PO_REQUISITION_HEADERS REQ,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_HEADER_ID = REQ.REQUISITION_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect wf_item_key /* INTERNAL SALES ORDERSS */from PO_REQUISITION_HEADERS REQ,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_ID = REQ.REQUISITION_HEADER_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor po in po_req_apprvlooputl_file.put_line(handle,'&sld'||n(po.REQ_NUM_IK)||'&d'||n(po.PROCESS_NAME)||'&d');utl_file.put_line(handle,n(po.ACTIVITY_NAME)||'&d'||n(po.RESULT)||'&d');utl_file.put_line(handle,n(po.ACT_STATUS)||'&d'||n(po.NOTIF_ID)||'&d');utl_file.put_line(handle,n(po.BEGIN_DATE)||'&d'||n(po.END_DATE)||'&d');utl_file.put_line(handle,n(po.ERROR_APPRV)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW REQUISITION APPROVAL NOTIFICATIONS &f');UTL_FILE.PUT_LINE(handle,'&std &sh NOTIF_ID &dh TO_USER &dh ORIG_RECIP &dh RECIP_ROLE &dh MAIL_STAT &dh MESSAGE_NAME &dh STATUS &dh SUBJECT &eh');Declare cursor po_req_apprv_not isselect WFN.NOTIFICATION_ID NOTIF_ID,WFN.TO_USER TO_USER, WFN.ORIGINAL_RECIPIENT ORIG_RECIP, WFN.RECIPIENT_ROLE RECIP_ROLE, WFN.MAIL_STATUS MAIL_STAT, WFN.MESSAGE_NAME MESSAGE_NAME, WFN.STATUS STATUS, WFN.SUBJECT SUBJECTfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_NOTIFICATIONS WFNwhere WFS.ITEM_TYPE = 'REQAPPRV'and WFS.item_key in (select wf_item_key /* DROP SHIPMENTS */from PO_REQUISITION_HEADERS REQ,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_HEADER_ID = REQ.REQUISITION_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect wf_item_key /* INTERNAL SALES ORDERSS */from PO_REQUISITION_HEADERS REQ,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_ID = REQ.REQUISITION_HEADER_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.NOTIFICATION_ID is not nulland WFN.NOTIFICATION_ID = WFS.NOTIFICATION_IDorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor po in po_req_apprv_Notlooputl_file.put_line(handle,'&sld'||n(po.NOTIF_ID)||'&d'||n(po.To_USER)||'&d');utl_file.put_line(handle,n(po.ORIG_RECIP)||'&d'||n(po.RECIP_ROLE)||'&d');utl_file.put_line(handle,n(po.MAIL_STAT)||'&d'||n(po.MESSAGE_NAME)||'&d');utl_file.put_line(handle,n(po.STATUS)||'&d'||n(po.SUBJECT)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et ');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW REQUISITION APPROVAL ERRORS &f');UTL_FILE.PUT_LINE(handle,'&std &sh PROCESS_NAME &dh ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh ERROR_NAME &dh ERROR_MESSAGE &dh ERROR_STACK &eh');Declare cursor po_req_apprv_err isselect WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.ERROR_NAME ERROR_NAME,WFS.ERROR_MESSAGE ERROR_MESSAGE,WFS.ERROR_STACK ERROR_STACKfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'REQAPPRV'and WFS.item_key in (select wf_item_key /* DROP SHIPMENTS */from PO_REQUISITION_HEADERS REQ,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_HEADER_ID = REQ.REQUISITION_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect wf_item_key /* INTERNAL SALES ORDERSS */from PO_REQUISITION_HEADERS REQ,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_ID = REQ.REQUISITION_HEADER_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFS.ERROR_NAME is not NULLorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor po in po_req_apprv_errlooputl_file.put_line(handle,'&sld'||n(po.PROCESS_NAME)||'&d'||n(po.ACTIVITY_NAME)||'&d');utl_file.put_line(handle,n(po.RESULT)||'&d'||n(po.ACT_STATUS)||'&d');utl_file.put_line(handle,n(po.ERROR_NAME)||'&d'||n(po.ERROR_MESSAGE)||'&d');utl_file.put_line(handle,n(po.ERROR_STACK)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_HEADERS_INTERFACE (PHI) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTF_HEAD_ID &dh BATCH_ID &dh INTF_SRC_CODE &dh PROCESS_CODE &dh ACTION &dh PO_HEADER_ID &dh REL_NUM &dh');UTL_FILE.PUT_LINE(handle,'PO_RELEASE_ID &dh VENDOR_NAME &dh APPRV_STAT &dh FIRM &dh FROZEN &dh CLOSE_CODE &dh CLOSE_DATE &dh APPRV_REQD &dh'); UTL_FILE.PUT_LINE(handle,'REF_NUM &dh VEND_NUM &dh WF_GROUP_ID &eh');Declarecursor po_hdr_int isselect PHI.INTERFACE_HEADER_ID INTF_HEAD_ID, PHI.BATCH_ID BATCH_ID, PHI.INTERFACE_SOURCE_CODE INTF_SRC_CODE, PHI.PROCESS_CODE PROCESS_CODE, PHI.ACTION ACTION, PHI.PO_HEADER_ID PO_HEADER_ID, PHI.RELEASE_NUM REL_NUM,PHI.PO_RELEASE_ID PO_RELEASE_ID,PHI.VENDOR_NAME VENDOR_NAME,PHI.APPROVAL_STATUS APPRV_STAT,PHI.FIRM_FLAG FIRM,PHI.FROZEN_FLAG FROZEN,PHI.CLOSED_CODE CLOSE_CODE,to_char(PHI.CLOSED_DATE,'DD-MON-RR_HH24:MI:SS') CLOSE_DATE,PHI.APPROVAL_REQUIRED_FLAG APPRV_REQD, PHI.REFERENCE_NUM REF_NUM, PHI.VENDOR_NUM VEND_NUM, PHI.WF_GROUP_ID WF_GROUP_IDfrom PO_HEADERS_INTERFACE PHI,PO_LINES_INTERFACE PLI,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_LINE_ID = PLI.REQUISITION_LINE_IDand PHI.INTERFACE_HEADER_ID = PLI.INTERFACE_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor po in po_hdr_intlooputl_file.put_line(handle,'&sld'||n(po.INTF_HEAD_ID)||'&d'||n(po.BATCH_ID)||'&d');utl_file.put_line(handle,n(po.INTF_SRC_CODE)||'&d'||n(po.PROCESS_CODE)||'&d');utl_file.put_line(handle,n(po.ACTION)||'&d'||n(po.PO_HEADER_ID)||'&d');utl_file.put_line(handle,n(po.REL_NUM)||'&d'||n(po.PO_RELEASE_ID)||'&d');utl_file.put_line(handle,n(po.VENDOR_NAME)||'&d'||n(po.APPRV_STAT)||'&d');utl_file.put_line(handle,n(po.FIRM)||'&d'||n(po.FROZEN)||'&d');utl_file.put_line(handle,n(po.CLOSE_CODE)||'&d'||n(po.CLOSE_DATE)||'&d');utl_file.put_line(handle,n(po.APPRV_REQD)||'&d'||n(po.REF_NUM)||'&d');utl_file.put_line(handle,n(po.VEND_NUM)||'&d'||n(po.WF_GROUP_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_LINES_INTERFACE (PLI) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTF_LINE_ID &dh INTF_HEAD_ID &dh ACTION &dh PO_LINE &dh LINE &dh PO_LINE_ID &dh SHIP_NUM &dh SHIP_TYPE &dh ');UTL_FILE.PUT_LINE(handle,'REQ_LINE_ID &dh PO_HEADER_ID &dh LINE_TYPE &dh ITEM &dh UOM &dh QUANTITY &dh PRICE &dh FIRM &dh SHIP_ORG_CODE &dh ');UTL_FILE.PUT_LINE(handle,'SHIP_ORG_ID &dh SHIP_TO_LOC &dh SHIP_TO_LOC_ID &dh NEED_BY &dh PROMISE &dh WAREH_ID &eh');Declarecursor po_lin_int isselect PLI.INTERFACE_LINE_ID INTF_LINE_ID,PLI.INTERFACE_HEADER_ID INTF_HEAD_ID,PLI.ACTION ACTION,PLI.LINE_NUM PO_LINE,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,PLI.PO_LINE_ID PO_LINE_ID,PLI.SHIPMENT_NUM SHIP_NUM, PLI.SHIPMENT_TYPE SHIP_TYPE,PLI.REQUISITION_LINE_ID REQ_LINE_ID,PLI.PO_HEADER_ID PO_HEADER_ID,PLI.LINE_TYPE LINE_TYPE,PLI.ITEM ITEM,PLI.UNIT_OF_MEASURE UOM,PLI.QUANTITY QUANTITY,PLI.UNIT_PRICE PRICE,PLI.FIRM_FLAG FIRM,PLI.SHIP_TO_ORGANIZATION_CODE SHIP_ORG_CODE,PLI.SHIP_TO_ORGANIZATION_ID SHIP_ORG_ID,PLI.SHIP_TO_LOCATION SHIP_TO_LOC,PLI.SHIP_TO_LOCATION_ID SHIP_TO_LOC_ID,to_char(PLI.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY,to_char(PLI.PROMISED_DATE,'DD-MON-RR_HH24:MI:SS') PROMISE,PLI.ORGANIZATION_ID WAREH_IDfrom PO_LINES_INTERFACE PLI,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_LINE_ID = PLI.REQUISITION_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor po in po_lin_intlooputl_file.put_line(handle,'&sld'||n(po.INTF_LINE_ID)||'&d'||n(po.INTF_HEAD_ID)||'&d');utl_file.put_line(handle,n(po.ACTION)||'&d'||n(po.PO_LINE)||'&d');utl_file.put_line(handle,n(po.LINE)||'&d'||n(po.PO_LINE_ID)||'&d');utl_file.put_line(handle,n(po.SHIP_NUM)||'&d'||n(po.SHIP_TYPE)||'&d');utl_file.put_line(handle,n(po.REQ_LINE_ID)||'&d'||n(po.PO_HEADER_ID)||'&d');utl_file.put_line(handle,n(po.LINE_TYPE)||'&d'||n(po.ITEM)||'&d');utl_file.put_line(handle,n(po.UOM)||'&d'||n(po.QUANTITY)||'&d');utl_file.put_line(handle,n(po.PRICE)||'&d'||n(po.FIRM)||'&d');utl_file.put_line(handle,n(po.SHIP_ORG_CODE)||'&d'||n(po.SHIP_ORG_ID)||'&d');utl_file.put_line(handle,n(po.SHIP_TO_LOC)||'&d'||n(po.SHIP_TO_LOC_ID)||'&d');utl_file.put_line(handle,n(po.NEED_BY)||'&d'||n(po.PROMISE)||'&d');utl_file.put_line(handle,n(po.WAREH_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_INTERFACE_ERRORS_ALL (POE) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INF_TRANS_ID &dh COLUMN_NAME &dh ERROR &dh INF_TYPE &dh REQUEST_ID &dh TABLE_NAME &eh');Declarecursor po_int_err isselect POE.INTERFACE_TRANSACTION_ID INF_TRANS_ID,POE.COLUMN_NAME COLUMN_NAME,POE.ERROR_MESSAGE ERROR_M,POE.INTERFACE_TYPE INF_TYPE,POE.REQUEST_ID REQUEST_ID,POE.TABLE_NAME TABLE_Nfrom PO_INTERFACE_ERRORS POE,PO_HEADERS_INTERFACE PHI,PO_LINES_INTERFACE PLI,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.REQUISITION_LINE_ID = PLI.REQUISITION_LINE_IDand PHI.INTERFACE_HEADER_ID = PLI.INTERFACE_HEADER_IDand (POE.INTERFACE_TRANSACTION_ID = PLI.INTERFACE_LINE_IDor POE.INTERFACE_TRANSACTION_ID = PHI.INTERFACE_HEADER_ID)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor po in po_int_errlooputl_file.put_line(handle,'&sld'||n(po.INF_TRANS_ID)||'&d'||n(po.COLUMN_NAME)||'&d');utl_file.put_line(handle,n(po.ERROR_M)||'&d'||n(po.INF_TYPE)||'&d');utl_file.put_line(handle,n(po.REQUEST_ID)||'&d'||n(po.TABLE_N)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_HEADERS_ALL (POH) &f');UTL_FILE.PUT_LINE(handle,'&std &sh PO_HEADER_ID &dh PO_NUM &dh ACCEPT_REQD &dh BILL_TO &dh SHIP_TO &dh CLS_STAT &dh CONF_ORD &dh CURR &dh ');UTL_FILE.PUT_LINE(handle,'ENABLED &dh FROZEN &dh SUMM &dh TYPE &dh VEND_CNCACT &dh VEND_ID &dh VEND_SITE &dh ITEM_TYPE &dh ITEM_KEY &eh');Declarecursor po_hdr isselect POH.PO_HEADER_ID PO_HEADER_ID, POH.SEGMENT1 PO_NUM,POH.ACCEPTANCE_REQUIRED_FLAG ACCEPT_REQD,POH.BILL_TO_LOCATION_ID BILL_TO,POH.SHIP_TO_LOCATION_ID SHIP_TO,POH.CLOSED_CODE CLS_STAT,POH.CONFIRMING_ORDER_FLAG CONF_ORD,POH.CURRENCY_CODE CURR,POH.ENABLED_FLAG ENABLED,POH.FROZEN_FLAG FROZEN, POH.SUMMARY_FLAG SUMM, POH.TYPE_LOOKUP_CODE TYPE,POH.VENDOR_CONTACT_ID VEND_CONT,POH.VENDOR_ID VEND_ID,POH.VENDOR_SITE_ID VEND_SITE, POH.WF_ITEM_TYPE ITEM_TYPE,POH.WF_ITEM_KEY ITEM_KEYfrom PO_HEADERS POH,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_HEADER_ID = POH.PO_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect distinct /* ATO BUY ITEM */POH.PO_HEADER_ID PO_HEADER_ID,POH.SEGMENT1 PO_NUM,POH.ACCEPTANCE_REQUIRED_FLAG ACCEPT_REQD,POH.BILL_TO_LOCATION_ID BILL_TO,POH.SHIP_TO_LOCATION_ID SHIP_TO,POH.CLOSED_CODE CLS_STAT,POH.CONFIRMING_ORDER_FLAG CONF_ORD,POH.CURRENCY_CODE CURR,POH.ENABLED_FLAG ENABLED,POH.FROZEN_FLAG FROZEN,POH.SUMMARY_FLAG SUMM,POH.TYPE_LOOKUP_CODE TYPE,POH.VENDOR_CONTACT_ID VEND_CONT,POH.VENDOR_ID VEND_ID,POH.VENDOR_SITE_ID VEND_SITE,POH.WF_ITEM_TYPE ITEM_TYPE,POH.WF_ITEM_KEY ITEM_KEYfromPO_HEADERS POH,MTL_RESERVATIONS RESwhere:sales_ord_id = RES.DEMAND_SOURCE_HEADER_IDand RES.DEMAND_SOURCE_TYPE_ID = 2 -- SOand RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INVand RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID;beginfor po in po_hdrlooputl_file.put_line(handle,'&sld'||n(po.PO_HEADER_ID)||'&d'||n(po.PO_NUM)||'&d');utl_file.put_line(handle,n(po.ACCEPT_REQD)||'&d'||n(po.BILL_TO)||'&d');utl_file.put_line(handle,n(po.SHIP_TO)||'&d'||n(po.CLS_STAT)||'&d');utl_file.put_line(handle,n(po.CONF_ORD)||'&d'||n(po.CURR)||'&d');utl_file.put_line(handle,n(po.ENABLED)||'&d'||n(po.FROZEN)||'&d');utl_file.put_line(handle,n(po.SUMM)||'&d'||n(po.TYPE)||'&d');utl_file.put_line(handle,n(po.VEND_CONT)||'&d'||n(po.VEND_ID)||'&d');utl_file.put_line(handle,n(po.VEND_SITE)||'&d'||n(po.ITEM_TYPE)||'&d');utl_file.put_line(handle,n(po.ITEM_KEY)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f PO_LINES (POL) &f');UTL_FILE.PUT_LINE(handle,'&std &sh PO_HEADER_ID &dh PO_LINE_ID &dh PO_LINE &dh LINE &dh CATEGORY_ID &dh CLS_STAT &dh FIRM &dh ITEM_DESC &dh ');UTL_FILE.PUT_LINE(handle,'ITEM_ID &dh LINE_TYPE_ID &dh QTY &dh PRICE &eh');Declarecursor po_lines isselectPOL.PO_HEADER_ID PO_HEADER_ID,POL.PO_LINE_ID PO_LINE_ID,POL.LINE_NUM PO_LINE,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,POL.CATEGORY_ID CATEGORY_ID,POL.CLOSED_CODE CLS_STAT,POL.FIRM_STATUS_LOOKUP_CODE FIRM,POL.ITEM_DESCRIPTION ITEM_DESC,POL.ITEM_ID ITEM_ID, POL.LINE_TYPE_ID LINE_TYPE_ID,POL.QUANTITY QTY,POL.UNIT_PRICE PRICEfrom PO_LINES POL,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_LINE_ID = POL.PO_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID;beginfor po in po_lineslooputl_file.put_line(handle,'&sld'||n(po.PO_HEADER_ID)||'&d'||n(po.PO_LINE_ID)||'&d');utl_file.put_line(handle,n(po.PO_LINE)||'&d'||n(po.LINE)||'&d');utl_file.put_line(handle,n(po.CATEGORY_ID)||'&d'||n(po.CLS_STAT)||'&d');utl_file.put_line(handle,n(po.FIRM)||'&d'||n(po.ITEM_DESC)||'&d');utl_file.put_line(handle,n(po.ITEM_ID)||'&d'||n(po.LINE_TYPE_ID)||'&d');utl_file.put_line(handle,n(po.QTY)||'&d'||n(po.PRICE)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW PURCHASE ORDER APPROVAL STATUS &f');UTL_FILE.PUT_LINE(handle,'&std &sh PO_NUM_IK &dh PROCESS_NAME &dh ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh NOTIF_ID &dh ');UTL_FILE.PUT_LINE(handle,'BEGIN_DATE &dh END_DATE &dh ERROR &eh');Declarecursor po_wf_po_apr isselect WFS.item_key PO_NUM_IK,WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.NOTIFICATION_ID NOTIF_ID,to_char(WFS.BEGIN_DATE,'DD-MON-RR_HH24:MI:SS') BEGIN_DATE,to_char(WFS.END_DATE,'DD-MON-RR_HH24:MI:SS') END_DATE,WFS.ERROR_NAME ERROR_Nfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'POAPPRV'and WFS.item_key in (select wf_item_keyfrom PO_HEADERS POH,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_HEADER_ID = POH.PO_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor po in po_wf_po_aprlooputl_file.put_line(handle,'&sld'||n(po.PO_NUM_IK)||'&d'||n(po.PROCESS_NAME)||'&d');utl_file.put_line(handle,n(po.ACTIVITY_NAME)||'&d'||n(po.RESULT)||'&d');utl_file.put_line(handle,n(po.ACT_STATUS)||'&d'||n(po.NOTIF_ID)||'&d');utl_file.put_line(handle,n(po.BEGIN_DATE)||'&d'||n(po.END_DATE)||'&d');utl_file.put_line(handle,n(po.ERROR_N)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW PURCHASE APPROVAL NOTIFICATIONS &f');UTL_FILE.PUT_LINE(handle,'&std &sh NOTIF_ID &dh TO_USER &dh ORIG_RECIP &dh RECIP_ROLE &dh MAIL_STAT &dh MESSAGE_NAME &dh STATUS &dh SUBJECT &eh');Declarecursor po_wf_not isselect WFN.NOTIFICATION_ID NOTIF_ID,WFN.TO_USER TO_USER,WFN.ORIGINAL_RECIPIENT ORIG_RECIP,WFN.RECIPIENT_ROLE RECIP_ROLE,WFN.MAIL_STATUS MAIL_STAT,WFN.MESSAGE_NAME MESSAGE_NAME,WFN.STATUS STATUS,WFN.SUBJECT SUBJECTfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_NOTIFICATIONS WFNwhere WFS.ITEM_TYPE = 'POAPPRV'and WFS.item_key in (select wf_item_keyfrom PO_HEADERS POH,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_HEADER_ID = POH.PO_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.NOTIFICATION_ID is not nulland WFN.NOTIFICATION_ID = WFS.NOTIFICATION_IDorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor po in po_wf_notlooputl_file.put_line(handle,'&sld'||n(po.NOTIF_ID)||'&d'||n(po.TO_USER)||'&d');utl_file.put_line(handle,n(po.ORIG_RECIP)||'&d'||n(po.RECIP_ROLE)||'&d');utl_file.put_line(handle,n(po.MAIL_STAT)||'&d'||n(po.MESSAGE_NAME)||'&d');utl_file.put_line(handle,n(po.STATUS)||'&d'||n(po.SUBJECT)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW PURCHASE APPROVAL ERRORS &f');UTL_FILE.PUT_LINE(handle,'&std &sh PROCESS_NAME &dh ACTIVITY_NAME &dh RESULT &dh ACT_STATUS &dh ERROR_NAME &dh ERROR_MESSAGE &dh ERROR_STACK &eh');Declarecursor po_hdr_int isselect WFA.DISPLAY_NAME PROCESS_NAME,WFA1.DISPLAY_NAME ACTIVITY_NAME,WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE) RESULT,LKP.MEANING ACT_STATUS,WFS.ERROR_NAME ERROR_NAME,WFS.ERROR_MESSAGE ERROR_MESSAGE,WFS.ERROR_STACK ERROR_STACKfrom WF_ITEM_ACTIVITY_STATUSES WFS,WF_PROCESS_ACTIVITIES WFP,WF_ACTIVITIES_VL WFA,WF_ACTIVITIES_VL WFA1,WF_LOOKUPS LKPwhere WFS.ITEM_TYPE = 'POAPPRV'and WFS.item_key in (select wf_item_keyfrom PO_HEADERS POH,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_HEADER_ID = POH.PO_HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)) and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_IDand WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPEand WFP.PROCESS_NAME = WFA.NAMEand WFP.PROCESS_VERSION = WFA.VERSIONand WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPEand WFP.ACTIVITY_NAME = WFA1.NAMEand WFA1.VERSION = (select max(VERSION)from WF_ACTIVITIES WF2where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPEand WF2.NAME = WFP.ACTIVITY_NAME)and LKP.LOOKUP_TYPE = 'WFENG_STATUS'and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUSand WFS.ERROR_NAME is not NULLorder by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;beginfor po in po_hdr_intlooputl_file.put_line(handle,'&sld'||n(po.PROCESS_NAME)||'&d'||n(po.ACTIVITY_NAME)||'&d');utl_file.put_line(handle,n(po.RESULT)||'&d'||n(po.ACT_STATUS)||'&d');utl_file.put_line(handle,n(po.ERROR_NAME)||'&d'||n(po.ERROR_MESSAGE)||'&d');utl_file.put_line(handle,n(po.ERROR_STACK)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_poif substr(UPPER(nvl('&prt_rec','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f RCV_SHIPMENT_LINES (SHL) &f');UTL_FILE.PUT_LINE(handle,'&std &sh SHP_LN_ID &dh SHP_HD_ID &dh SHP_LINE_STATUS &dh RCV_Q &dh SHP_Q &dh DEST_TYPE &dh OE_HD_ID &dh OE_LN_ID &dh ');UTL_FILE.PUT_LINE(handle,'ITEM_ID &dh TO_ORG &dh SRC_DOC &dh REQUEST_ID &eh');Declarecursor rcv_shp_lin isselect /* DROP SHIPMENTS */ SHL.SHIPMENT_LINE_ID SHP_LN_ID, SHL.SHIPMENT_HEADER_ID SHP_HD_ID, SHL.SHIPMENT_LINE_STATUS_CODE SHP_LINE_STATUS, SHL.QUANTITY_RECEIVED RCV_Q,SHL.QUANTITY_SHIPPED SHP_Q, SHL.DESTINATION_TYPE_CODE DEST_TYPE, SHL.OE_ORDER_HEADER_ID OE_HD_ID, SHL.OE_ORDER_LINE_ID OE_LN_ID, SHL.ITEM_ID ITEM_ID, SHL.SHIP_TO_LOCATION_ID TO_ORG, SHL.SOURCE_DOCUMENT_CODE SRC_DOC, SHL.REQUEST_ID REQUEST_IDfromRCV_SHIPMENT_LINES SHL,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_LINE_ID = SHL.PO_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* RETURNS */SHL.SHIPMENT_LINE_ID SHP_LN_ID, SHL.SHIPMENT_HEADER_ID SHP_HD_ID, SHL.SHIPMENT_LINE_STATUS_CODE SHP_LINE_STATUS, SHL.QUANTITY_RECEIVED RCV_Q,SHL.QUANTITY_SHIPPED SHP_Q, SHL.DESTINATION_TYPE_CODE DEST_TYPE, SHL.OE_ORDER_HEADER_ID OE_HD_ID, SHL.OE_ORDER_LINE_ID OE_LN_ID, SHL.ITEM_ID ITEM_ID, SHL.SHIP_TO_LOCATION_ID TO_ORG, SHL.SOURCE_DOCUMENT_CODE SRC_DOC, SHL.REQUEST_ID REQUEST_IDfromRCV_SHIPMENT_LINES SHL,OE_ORDER_LINES LINwhere SHL.OE_ORDER_LINE_ID = LIN.LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* INTERNAL SALES ORDER */ SHL.SHIPMENT_LINE_ID SHP_LN_ID, SHL.SHIPMENT_HEADER_ID SHP_HD_ID, SHL.SHIPMENT_LINE_STATUS_CODE SHP_LINE_STATUS, SHL.QUANTITY_RECEIVED RCV_Q,SHL.QUANTITY_SHIPPED SHP_Q, SHL.DESTINATION_TYPE_CODE DEST_TYPE, SHL.OE_ORDER_HEADER_ID OE_HD_ID, SHL.OE_ORDER_LINE_ID OE_LN_ID, SHL.ITEM_ID ITEM_ID, SHL.SHIP_TO_LOCATION_ID TO_ORG, SHL.SOURCE_DOCUMENT_CODE SRC_DOC, SHL.REQUEST_ID REQUEST_IDfromRCV_SHIPMENT_LINES SHL,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_LINE_ID = SHL.REQUISITION_LINE_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* ATO BUY ITEM */SHL.SHIPMENT_LINE_ID SHP_LN_ID,SHL.SHIPMENT_HEADER_ID SHP_HD_ID,SHL.SHIPMENT_LINE_STATUS_CODE SHP_LINE_STATUS,SHL.QUANTITY_RECEIVED RCV_Q,SHL.QUANTITY_SHIPPED SHP_Q,SHL.DESTINATION_TYPE_CODE DEST_TYPE,SHL.OE_ORDER_HEADER_ID OE_HD_ID,SHL.OE_ORDER_LINE_ID OE_LN_ID,SHL.ITEM_ID ITEM_ID,SHL.SHIP_TO_LOCATION_ID TO_ORG,SHL.SOURCE_DOCUMENT_CODE SRC_DOC,SHL.REQUEST_ID REQUEST_IDfromRCV_SHIPMENT_LINES SHL,MTL_RESERVATIONS RES,PO_HEADERS_ALL POHwhere:sales_ord_id = RES.DEMAND_SOURCE_HEADER_IDand RES.DEMAND_SOURCE_LINE_ID = NVL('&line_id_selected',RES.DEMAND_SOURCE_LINE_ID)and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SOand RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INVand RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID --and POH.PO_HEADER_ID = SHL.PO_HEADER_ID;beginfor rcv in rcv_shp_linlooputl_file.put_line(handle,'&sld'||n(rcv.SHP_LN_ID)||'&d'||n(rcv.SHP_HD_ID)||'&d');utl_file.put_line(handle,n(rcv.SHP_LINE_STATUS)||'&d'||n(rcv.RCV_Q)||'&d');utl_file.put_line(handle,n(rcv.SHP_Q)||'&d'||n(rcv.DEST_TYPE)||'&d');utl_file.put_line(handle,n(rcv.OE_HD_ID)||'&d'||n(rcv.OE_LN_ID)||'&d');utl_file.put_line(handle,n(rcv.ITEM_ID)||'&d'||n(rcv.TO_ORG)||'&d');utl_file.put_line(handle,n(rcv.SRC_DOC)||'&d'||n(rcv.REQUEST_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et ');UTL_FILE.PUT_LINE(handle,'&f &f RCV_TRANSACTIONS (RCV) &f');UTL_FILE.PUT_LINE(handle,'&std &sh TRANS_ID &dh PRNT_TRANS_ID &dh LINE &dh TRANS_TYPE &dh TRANS_DATE &dh DEST_TYPE &dh INSPECT_STAT &dh ');UTL_FILE.PUT_LINE(handle,'INTF_SRC &dh INTF_TRANS_ID &dh LOC_ID &dh MVT_STAT &dh ORG_ID &dh OE_HEAD_ID &dh OE_LINE_ID &dh PO_HEAD_ID &dh ');UTL_FILE.PUT_LINE(handle,'PO_LINE_ID &dh LINE_LOC_ID &dh UNIT_PRICE &dh UOM &dh QTY &dh REQUEST_ID &dh SHIP_HEAD_ID &dh SHIP_LINE_ID &dh ');UTL_FILE.PUT_LINE(handle,'SRC_DOC_CODE &dh VEND_ID &dh VEND_SITE_ID &eh');Declarecursor rcv_trx isselect /* DROP SHIPMENTS */RCV.TRANSACTION_ID TRANS_ID,RCV.PARENT_TRANSACTION_ID PRNT_TRANS_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RCV.TRANSACTION_TYPE TRANS_TYPE,to_char(RCV.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRANS_DATE,RCV.DESTINATION_TYPE_CODE DEST_TYPE, RCV.INSPECTION_STATUS_CODE INSPECT_STAT,RCV.INTERFACE_SOURCE_CODE INTF_SRC, RCV.INTERFACE_TRANSACTION_ID INTF_TRANS_ID, RCV.LOCATION_ID LOC_ID,RCV.MVT_STAT_STATUS MVT_STAT,RCV.ORGANIZATION_ID ORG_ID,RCV.OE_ORDER_HEADER_ID OE_HEAD_ID,RCV.OE_ORDER_LINE_ID OE_LINE_ID,RCV.PO_HEADER_ID PO_HEAD_ID,RCV.PO_LINE_ID PO_LINE_ID,RCV.PO_LINE_LOCATION_ID LINE_LOC_ID,RCV.PO_UNIT_PRICE UNIT_PRICE,RCV.PRIMARY_UNIT_OF_MEASURE UOM,RCV.QUANTITY QTY,RCV.REQUEST_ID REQUEST_ID,RCV.SHIPMENT_HEADER_ID SHIP_HEAD_ID,RCV.SHIPMENT_LINE_ID SHIP_LINE_ID,RCV.SOURCE_DOCUMENT_CODE SRC_DOC_CODE, RCV.VENDOR_ID VEND_ID, RCV.VENDOR_SITE_ID VEND_SITE_ID fromRCV_TRANSACTIONS RCV,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_LINE_ID = RCV.PO_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* RETURNS */RCV.TRANSACTION_ID TRANS_ID,RCV.PARENT_TRANSACTION_ID PRNT_TRANS_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RCV.TRANSACTION_TYPE TRANS_TYPE,to_char(RCV.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRANS_DATE, RCV.DESTINATION_TYPE_CODE DEST_TYPE, RCV.INSPECTION_STATUS_CODE INSPECT_STAT, RCV.INTERFACE_SOURCE_CODE INTF_SRC_CODE, RCV.INTERFACE_TRANSACTION_ID INTF_TRANS_ID, RCV.LOCATION_ID LOC_ID,RCV.MVT_STAT_STATUS MVT_STAT,RCV.ORGANIZATION_ID ORG_ID,RCV.OE_ORDER_HEADER_ID OE_HEAD_ID,RCV.OE_ORDER_LINE_ID OE_LINE_ID,RCV.PO_HEADER_ID PO_HEAD_ID,RCV.PO_LINE_ID PO_LINE_ID,RCV.PO_LINE_LOCATION_ID LINE_LOC_ID,RCV.PO_UNIT_PRICE UNIT_PRICE,RCV.PRIMARY_UNIT_OF_MEASURE UOM,RCV.QUANTITY QTY,RCV.REQUEST_ID REQUEST_ID,RCV.SHIPMENT_HEADER_ID SHIP_HEAD_ID,RCV.SHIPMENT_LINE_ID SHIP_LINE_ID,RCV.SOURCE_DOCUMENT_CODE SRC_DOC_CODE, RCV.VENDOR_ID VEND_ID,RCV.VENDOR_SITE_ID VEND_SITE_IDfromRCV_TRANSACTIONS RCV,OE_ORDER_LINES LINwhere RCV.OE_ORDER_LINE_ID = LIN.LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* INTERNAL SALES ORDERS */RCV.TRANSACTION_ID TRANS_ID,RCV.PARENT_TRANSACTION_ID PRNT_TRANS_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RCV.TRANSACTION_TYPE TRANS_TYPE,to_char(RCV.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRANS_DATE, RCV.DESTINATION_TYPE_CODE DEST_TYPE, RCV.INSPECTION_STATUS_CODE INSPECT_STAT, RCV.INTERFACE_SOURCE_CODE INTF_SRC_CODE, RCV.INTERFACE_TRANSACTION_ID INTF_TRANS_ID, RCV.LOCATION_ID LOC_ID,RCV.MVT_STAT_STATUS MVT_STAT,RCV.ORGANIZATION_ID ORG_ID,RCV.OE_ORDER_HEADER_ID OE_HEAD_ID,RCV.OE_ORDER_LINE_ID OE_LINE_ID,RCV.PO_HEADER_ID PO_HEAD_ID,RCV.PO_LINE_ID PO_LINE_ID,RCV.PO_LINE_LOCATION_ID LINE_LOC_ID,RCV.PO_UNIT_PRICE UNIT_PRICE,RCV.PRIMARY_UNIT_OF_MEASURE UOM,RCV.QUANTITY QTY,RCV.REQUEST_ID REQUEST_ID,RCV.SHIPMENT_HEADER_ID SHIP_HEAD_ID,RCV.SHIPMENT_LINE_ID SHIP_LINE_ID,RCV.SOURCE_DOCUMENT_CODE SRC_DOC_CODE, RCV.VENDOR_ID VEND_ID,RCV.VENDOR_SITE_ID VEND_SITE_IDfromRCV_TRANSACTIONS RCV,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_LINE_ID = RCV.REQUISITION_LINE_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* ATO BUY ITEM */RCV.TRANSACTION_ID TRANS_ID,RCV.PARENT_TRANSACTION_ID PRNT_TRANS_ID, to_char(RES.DEMAND_SOURCE_LINE_ID) LINE, RCV.TRANSACTION_TYPE TRANS_TYPE,to_char(RCV.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRANS_DATE, RCV.DESTINATION_TYPE_CODE DEST_TYPE,RCV.INSPECTION_STATUS_CODE INSPECT_STAT,RCV.INTERFACE_SOURCE_CODE INTF_SRC_CODE,RCV.INTERFACE_TRANSACTION_ID INTF_TRANS_ID,RCV.LOCATION_ID LOC_ID,RCV.MVT_STAT_STATUS MVT_STAT,RCV.ORGANIZATION_ID ORG_ID,RCV.OE_ORDER_HEADER_ID OE_HEAD_ID,RCV.OE_ORDER_LINE_ID OE_LINE_ID,RCV.PO_HEADER_ID PO_HEAD_ID,RCV.PO_LINE_ID PO_LINE_ID,RCV.PO_LINE_LOCATION_ID LINE_LOC_ID,RCV.PO_UNIT_PRICE UNIT_PRICE,RCV.PRIMARY_UNIT_OF_MEASURE UOM,RCV.QUANTITY QTY,RCV.REQUEST_ID REQUEST_ID,RCV.SHIPMENT_HEADER_ID SHIP_HEAD_ID,RCV.SHIPMENT_LINE_ID SHIP_LINE_ID,RCV.SOURCE_DOCUMENT_CODE SRC_DOC_CODE,RCV.VENDOR_ID VEND_ID,RCV.VENDOR_SITE_ID VEND_SITE_IDfromRCV_TRANSACTIONS RCV,MTL_RESERVATIONS RES,PO_HEADERS_ALL POHwhere:sales_ord_id = RES.DEMAND_SOURCE_HEADER_IDand RES.DEMAND_SOURCE_LINE_ID = NVL('&line_id_selected',RES.DEMAND_SOURCE_LINE_ID)and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SOand RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INVand RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID --and POH.PO_HEADER_ID = RCV.PO_HEADER_ID;beginfor rcv in rcv_trxlooputl_file.put_line(handle,'&sld'||n(rcv.TRANS_ID)||'&d'||n(rcv.PRNT_TRANS_ID)||'&d');utl_file.put_line(handle,n(rcv.LINE)||'&d'||n(rcv.TRANS_TYPE)||'&d');utl_file.put_line(handle,n(rcv.TRANS_DATE)||'&d'||n(rcv.DEST_TYPE)||'&d');utl_file.put_line(handle,n(rcv.INSPECT_STAT)||'&d'||n(rcv.INTF_SRC)||'&d');utl_file.put_line(handle,n(rcv.INTF_TRANS_ID)||'&d'||n(rcv.LOC_ID)||'&d');utl_file.put_line(handle,n(rcv.MVT_STAT)||'&d'||n(rcv.ORG_ID)||'&d');utl_file.put_line(handle,n(rcv.OE_HEAD_ID)||'&d'||n(rcv.OE_LINE_ID)||'&d');utl_file.put_line(handle,n(rcv.PO_HEAD_ID)||'&d'||n(rcv.PO_LINE_ID)||'&d');utl_file.put_line(handle,n(rcv.LINE_LOC_ID)||'&d'||n(rcv.UNIT_PRICE)||'&d');utl_file.put_line(handle,n(rcv.UOM)||'&d'||n(rcv.QTY)||'&d');utl_file.put_line(handle,n(rcv.REQUEST_ID)||'&d'||n(rcv.SHIP_HEAD_ID)||'&d');utl_file.put_line(handle,n(rcv.SHIP_LINE_ID)||'&d'||n(rcv.SRC_DOC_CODE)||'&d');utl_file.put_line(handle,n(rcv.VEND_ID)||'&d'||n(rcv.VEND_SITE_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f RCV_TRANSACTIONS_INTERFACE (RTI) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTF_TRNS_ID &dh PROC_MODE &dh PROC_STAT &dh TRNS_STAT &dh TRNS_DATE &dh TRNS_TYPE &dh DEST_TYPE &dh INSP_STAT &dh');UTL_FILE.PUT_LINE(handle,'INSP_SRC &dh OE_HEAD_ID &dh OE_LINE_ID &dh ITEM_ID &dh QTY &dh PRY_Q &dh PO_UNIT_PRC &dh SUB &dh TO_ORG_ID &dh RCPT_SRC &dh');UTL_FILE.PUT_LINE(handle,'PRNT_TRN_ID &dh SHP_HEAD_ID &dh SHP_LINE_ID &dh SRC_DOC &dh REQUEST_ID &eh');Declarecursor rcv_trx_int isselect /* DROP SHIPMENTS */RTI.INTERFACE_TRANSACTION_ID INTF_TRNS_ID,RTI.PROCESSING_MODE_CODE PROC_MODE, RTI.PROCESSING_STATUS_CODE PROC_STAT, RTI.TRANSACTION_STATUS_CODE TRNS_STAT, to_char(RTI.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRNS_DATE, RTI.TRANSACTION_TYPE TRNS_TYPE, RTI.DESTINATION_TYPE_CODE DEST_TYPE, RTI.INSPECTION_STATUS_CODE INSP_STAT, RTI.INTERFACE_SOURCE_CODE INSP_SRC, RTI.OE_ORDER_HEADER_ID OE_HEAD_ID, RTI.OE_ORDER_LINE_ID OE_LINE_ID, RTI.ITEM_ID ITEM_ID, RTI.QUANTITY QTY, RTI.PRIMARY_QUANTITY PRY_Q, RTI.PO_UNIT_PRICE PO_UNIT_PRC, RTI.SUBINVENTORY SUB, RTI.TO_ORGANIZATION_ID TO_ORG_ID, RTI.RECEIPT_SOURCE_CODE RCPT_SRC, RTI.PARENT_TRANSACTION_ID PRNT_TRN_ID, RTI.SHIPMENT_HEADER_ID SHP_HEAD_ID, RTI.SHIPMENT_LINE_ID SHP_LINE_ID, RTI.SOURCE_DOCUMENT_CODE SRC_DOC, RTI.PROCESSING_REQUEST_ID REQUEST_IDfromRCV_TRANSACTIONS_INTERFACE RTI,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_LINE_ID = RTI.PO_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* RETURNS */ RTI.INTERFACE_TRANSACTION_ID INTF_TRNS_ID,RTI.PROCESSING_MODE_CODE PROC_MODE, RTI.PROCESSING_STATUS_CODE PROC_STAT, RTI.TRANSACTION_STATUS_CODE TRNS_STAT, to_char(RTI.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRNS_DATE, RTI.TRANSACTION_TYPE TRNS_TYPE, RTI.DESTINATION_TYPE_CODE DEST_TYPE, RTI.INSPECTION_STATUS_CODE INSP_STAT, RTI.INTERFACE_SOURCE_CODE INSP_SRC, RTI.OE_ORDER_HEADER_ID OE_HEAD_ID, RTI.OE_ORDER_LINE_ID OE_LINE_ID, RTI.ITEM_ID ITEM_ID, RTI.QUANTITY QTY, RTI.PRIMARY_QUANTITY PRY_Q, RTI.PO_UNIT_PRICE PO_UNIT_PRC, RTI.SUBINVENTORY SUB, RTI.TO_ORGANIZATION_ID TO_ORG_ID, RTI.RECEIPT_SOURCE_CODE RCPT_SRC, RTI.PARENT_TRANSACTION_ID PRNT_TRN_ID, RTI.SHIPMENT_HEADER_ID SHP_HEAD_ID, RTI.SHIPMENT_LINE_ID SHP_LINE_ID, RTI.SOURCE_DOCUMENT_CODE SRC_DOC, RTI.PROCESSING_REQUEST_ID REQUEST_IDfromRCV_TRANSACTIONS_INTERFACE RTI,OE_ORDER_LINES LINwhere RTI.OE_ORDER_LINE_ID = LIN.LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* INTERNAL SALES ORDER */ RTI.INTERFACE_TRANSACTION_ID INTF_TRNS_ID,RTI.PROCESSING_MODE_CODE PROC_MODE, RTI.PROCESSING_STATUS_CODE PROC_STAT, RTI.TRANSACTION_STATUS_CODE TRNS_STAT, to_char(RTI.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRNS_DATE, RTI.TRANSACTION_TYPE TRNS_TYPE, RTI.DESTINATION_TYPE_CODE DEST_TYPE, RTI.INSPECTION_STATUS_CODE INSP_STAT, RTI.INTERFACE_SOURCE_CODE INSP_SRC, RTI.OE_ORDER_HEADER_ID OE_HEAD_ID, RTI.OE_ORDER_LINE_ID OE_LINE_ID, RTI.ITEM_ID ITEM_ID, RTI.QUANTITY QTY, RTI.PRIMARY_QUANTITY PRY_Q, RTI.PO_UNIT_PRICE PO_UNIT_PRC, RTI.SUBINVENTORY SUB, RTI.TO_ORGANIZATION_ID TO_ORG_ID, RTI.RECEIPT_SOURCE_CODE RCPT_SRC, RTI.PARENT_TRANSACTION_ID PRNT_TRN_ID, RTI.SHIPMENT_HEADER_ID SHP_HEAD_ID, RTI.SHIPMENT_LINE_ID SHP_LINE_ID, RTI.SOURCE_DOCUMENT_CODE SRC_DOC, RTI.PROCESSING_REQUEST_ID REQUEST_IDfromRCV_TRANSACTIONS_INTERFACE RTI,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_LINE_ID = RTI.REQUISITION_LINE_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor rcv in rcv_trx_intlooputl_file.put_line(handle,'&sld'||n(rcv.INTF_TRNS_ID)||'&d'||n(rcv.PROC_MODE)||'&d'||n(rcv.PROC_STAT)||'&d');utl_file.put_line(handle,n(rcv.TRNS_STAT)||'&d'||n(rcv.TRNS_DATE)||'&d'||n(rcv.TRNS_TYPE)||'&d');utl_file.put_line(handle,n(rcv.DEST_TYPE)||'&d'||n(rcv.INSP_STAT)||'&d'||n(rcv.INSP_SRC)||'&d');utl_file.put_line(handle,n(rcv.OE_HEAD_ID)||'&d'||n(rcv.OE_LINE_ID)||'&d'||n(rcv.ITEM_ID)||'&d');utl_file.put_line(handle,n(rcv.QTY)||'&d'||n(rcv.PRY_Q)||'&d'||n(rcv.PO_UNIT_PRC)||'&d');utl_file.put_line(handle,n(rcv.SUB)||'&d'||n(rcv.TO_ORG_ID)||'&d'||n(rcv.RCPT_SRC)||'&d');utl_file.put_line(handle,n(rcv.PRNT_TRN_ID)||'&d'||n(rcv.SHP_HEAD_ID)||'&d'||n(rcv.SHP_LINE_ID)||'&d');utl_file.put_line(handle,n(rcv.SRC_DOC)||'&d'||n(rcv.REQUEST_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_recif substr(UPPER(nvl('&prt_po','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f MTL_SUPPLY (SUP) &f');UTL_FILE.PUT_LINE(handle,'&std &sh SUP_TYPE &dh REQ_HEAD_ID &dh REQ_LINE_ID &dh PO_HEAD_ID &dh PO_REL_ID &dh PO_LINE_ID &dh PO_LINE_LOC_ID &dh ');UTL_FILE.PUT_LINE(handle,'PO_DIST_ID &dh SHP_HEAD_ID &dh SHP_LINE_ID &dh RCV_TRANS_ID &dh ITEM_ID &dh QTY &dh RECPT_DT &dh NEED_BY_DT &dh ');UTL_FILE.PUT_LINE(handle,'DEST_TYPE &dh FROM_ORG &dh FROM_SUB &dh TO_ORG &dh TO_SUB &dh INTRNS_OWN_ORG &eh');Declarecursor mtl_supply isselect /* DROP SHIPMENTS */SUP.SUPPLY_TYPE_CODE SUP_TYPE,SUP.REQ_HEADER_ID REQ_HEAD_ID,SUP.REQ_LINE_ID REQ_LINE_ID,SUP.PO_HEADER_ID PO_HEAD_ID,SUP.PO_RELEASE_ID PO_REL_ID,SUP.PO_LINE_ID PO_LINE_ID,SUP.PO_LINE_LOCATION_ID PO_LINE_LOC_ID,SUP.PO_DISTRIBUTION_ID PO_DIST_ID,SUP.SHIPMENT_HEADER_ID SHP_HEAD_ID,SUP.SHIPMENT_LINE_ID SHP_LINE_ID,SUP.RCV_TRANSACTION_ID RCV_TRANS_ID,SUP.ITEM_ID ITEM_ID,SUP.QUANTITY QTY,to_char(SUP.RECEIPT_DATE,'DD-MON-RR_HH24:MI:SS') RECPT_DT,to_char(SUP.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY_DT,SUP.DESTINATION_TYPE_CODE DEST_TYPE,SUP.FROM_ORGANIZATION_ID FROM_ORG,SUP.FROM_SUBINVENTORY FROM_SUB,SUP.TO_ORGANIZATION_ID TO_ORG,SUP.TO_SUBINVENTORY TO_SUB,SUP.INTRANSIT_OWNING_ORG_ID INTRNS_OWN_ORGfromMTL_SUPPLY SUP,OE_DROP_SHIP_SOURCES SRC,OE_ORDER_LINES LINwhere SRC.LINE_ID = LIN.LINE_IDand SRC.PO_LINE_ID = SUP.PO_LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLselect /* INTERNAL SALES ORDER */ SUP.SUPPLY_TYPE_CODE SUP_TYPE,--SUP.SUPPLY_SOURCE_ID SUP_SRC,SUP.REQ_HEADER_ID REQ_HEAD_ID,SUP.REQ_LINE_ID REQ_LINE_ID,SUP.PO_HEADER_ID PO_HEAD_ID,SUP.PO_RELEASE_ID PO_REL_ID,SUP.PO_LINE_ID PO_LINE_ID,SUP.PO_LINE_LOCATION_ID PO_LINE_LOC_ID,SUP.PO_DISTRIBUTION_ID PO_DIST_ID,SUP.SHIPMENT_HEADER_ID SHP_HEAD_ID,SUP.SHIPMENT_LINE_ID SHP_LINE_ID,SUP.RCV_TRANSACTION_ID RCV_TRANS_ID,SUP.ITEM_ID ITEM_ID,SUP.QUANTITY QTY,to_char(SUP.RECEIPT_DATE,'DD-MON-RR_HH24:MI:SS') RECPT_DT,to_char(SUP.NEED_BY_DATE,'DD-MON-RR_HH24:MI:SS') NEED_BY_DT,SUP.DESTINATION_TYPE_CODE DEST_TYPE,SUP.FROM_ORGANIZATION_ID FROM_ORG,SUP.FROM_SUBINVENTORY FROM_SUB,SUP.TO_ORGANIZATION_ID TO_ORG,SUP.TO_SUBINVENTORY TO_SUB,SUP.INTRANSIT_OWNING_ORG_ID INTRNS_OWN_ORGfromMTL_SUPPLY SUP,OE_ORDER_LINES LINwhere LIN.SOURCE_DOCUMENT_LINE_ID = SUP.REQ_LINE_IDand LIN.SOURCE_DOCUMENT_TYPE_ID = 10 and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor mtl in mtl_supplylooputl_file.put_line(handle,'&sld'||n(mtl.SUP_TYPE)||'&d'||n(mtl.REQ_HEAD_ID)||'&d'||n(mtl.REQ_LINE_ID)||'&d');utl_file.put_line(handle,n(mtl.PO_HEAD_ID)||'&d'||n(mtl.PO_REL_ID)||'&d'||n(mtl.PO_LINE_ID)||'&d');utl_file.put_line(handle,n(mtl.PO_LINE_LOC_ID)||'&d'||n(mtl.PO_DIST_ID)||'&d'||n(mtl.SHP_HEAD_ID)||'&d');utl_file.put_line(handle,n(mtl.SHP_LINE_ID)||'&d'||n(mtl.RCV_TRANS_ID)||'&d'||n(mtl.ITEM_ID)||'&d');utl_file.put_line(handle,n(mtl.QTY)||'&d'||n(mtl.RECPT_DT)||'&d'||n(mtl.NEED_BY_DT)||'&d');utl_file.put_line(handle,n(mtl.DEST_TYPE)||'&d'||n(mtl.FROM_ORG)||'&d'||n(mtl.FROM_SUB)||'&d');utl_file.put_line(handle,n(mtl.TO_ORG)||'&d'||n(mtl.TO_SUB)||'&d'||n(mtl.INTRNS_OWN_ORG)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_poif substr(UPPER(nvl('&prt_inv','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f MTL_RESERVATIONS (RES) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh RESERV_ID &dh SHIP_READY &dh DS_HEAD_ID &dh DS_LINE_ID &dh DS_DELIV &dh LINE &dh ITEM_ID &dh ITEM &dh ');UTL_FILE.PUT_LINE(handle,'RES_Q &dh DET_Q &dh UOM &dh REQUIRD_D &dh DS_TYPE &dh WH_ID &dh SUBINV &dh LOT &dh REV &dh LOC_ID &dh SERIAL_NUM &dh ');UTL_FILE.PUT_LINE(handle,'SS_TYPE_ID &dh WIP_ID &dh JOB_NAME &dh JOB_STAT &dh SS_HEADER_ID &dh SS_SOURCE_LINE_DET &dh SS_SOURCE_LINE &eh ');--UTL_FILE.PUT_LINE(handle,'SECONDARY RES_QTY &dh CALC_SEC RES_QTY &dh SECONDARY UOM &dh SECONDARY DET_QTY &eh');Declarecursor mtl_res isselect RES.RESERVATION_ID RESERV_ID,decode(RES.SHIP_READY_FLAG,1,'1=Released',2,'2=Submitted',to_char(RES.SHIP_READY_FLAG)) SHIP_READY, RES.DEMAND_SOURCE_HEADER_ID DS_HEAD_ID,RES.DEMAND_SOURCE_LINE_ID DS_LINE_ID,RES.DEMAND_SOURCE_DELIVERY DS_DELIV,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,RES.INVENTORY_ITEM_ID ITEM_ID,ITM.SEGMENT1 ITEM,RES.PRIMARY_RESERVATION_QUANTITY RES_Q,RES.DETAILED_QUANTITY DET_Q,RES.PRIMARY_UOM_CODE UOM,To_char(RES.REQUIREMENT_DATE,'DD-MON-RR_HH24:MI:SS') REQUIRD_D,RES.DEMAND_SOURCE_TYPE_ID DS_TYPE,RES.ORGANIZATION_ID WH_ID,RES.SUBINVENTORY_CODE SUBINV,RES.LOT_NUMBER LOT,RES.REVISION REV,RES.LOCATOR_ID LOC_ID,RES.SERIAL_NUMBER SERIAL_NUM,decode(RES.SUPPLY_SOURCE_TYPE_ID,5,'5=WIP DJ',RES.SUPPLY_SOURCE_TYPE_ID) SS_TYPE_ID,WIP.WIP_ENTITY_ID WIP_ID,WIP.WIP_ENTITY_NAME JOB_NAME,JOB.STATUS_TYPE_DISP JOB_STAT,RES.SUPPLY_SOURCE_HEADER_ID SS_HEADER_ID, RES.SUPPLY_SOURCE_LINE_DETAIL SS_SOURCE_LINE_DET,RES.SUPPLY_SOURCE_LINE_ID SS_SOURCE_LINE-- res.secondary_reservation_quantity sec_res_q,-- inv_convert.inv_um_convert(-- res.inventory_item_id,-- res.lot_number,-- res.organization_id,-- 5,-- res.primary_reservation_quantity,-- res.primary_uom_code,-- res.secondary_uom_code,-- null,-- null) calc_sec_res_q,-- res.secondary_uom_code uom2,-- res.secondary_detailed_quantity sec_dtl_qfromMTL_RESERVATIONS RES,OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM,WIP_ENTITIES WIP,WIP_DISCRETE_JOBS_V JOBwhere:sales_ord_id = RES.DEMAND_SOURCE_HEADER_IDand RES.DEMAND_SOURCE_TYPE_ID in (2,8,9,21,22)and RES.DEMAND_SOURCE_LINE_ID = LIN.LINE_ID(+)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and RES.ORGANIZATION_ID = ITM.ORGANIZATION_ID(+)and RES.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+)and RES.SUPPLY_SOURCE_HEADER_ID = WIP.WIP_ENTITY_ID(+)and WIP.WIP_ENTITY_ID = JOB.WIP_ENTITY_ID(+)order byNVL(LIN.TOP_MODEL_LINE_ID, LIN.LINE_ID),NVL(LIN.ATO_LINE_ID, LIN.LINE_ID),NVL(LIN.SORT_ORDER, '0000'),NVL(LIN.LINK_TO_LINE_ID, LIN.LINE_ID),NVL(LIN.SOURCE_DOCUMENT_LINE_ID, LIN.LINE_ID),LIN.LINE_ID,RES.RESERVATION_ID; beginfor mtl in mtl_reslooputl_file.put_line(handle,'&sld'||n(mtl.RESERV_ID)||'&d'||n(mtl.SHIP_READY)||'&d'||n(mtl.DS_HEAD_ID)||'&d');utl_file.put_line(handle,n(mtl.DS_LINE_ID)||'&d'||n(mtl.DS_DELIV)||'&d'||n(mtl.LINE)||'&d');utl_file.put_line(handle,n(mtl.ITEM_ID)||'&d'||n(mtl.ITEM)||'&d'||n(mtl.RES_Q)||'&d');utl_file.put_line(handle,n(mtl.DET_Q)||'&d'||n(mtl.UOM)||'&d'||n(mtl.REQUIRD_D)||'&d');utl_file.put_line(handle,n(mtl.DS_TYPE)||'&d'||n(mtl.WH_ID)||'&d'||n(mtl.SUBINV)||'&d');utl_file.put_line(handle,n(mtl.LOT)||'&d'||n(mtl.REV)||'&d'||n(mtl.LOC_ID)||'&d');utl_file.put_line(handle,n(mtl.SERIAL_NUM)||'&d'||n(mtl.SS_TYPE_ID)||'&d'||n(mtl.WIP_ID)||'&d');utl_file.put_line(handle,n(mtl.JOB_NAME)||'&d'||n(mtl.JOB_STAT)||'&d'||n(mtl.SS_HEADER_ID)||'&d');utl_file.put_line(handle,n(mtl.SS_SOURCE_LINE_DET)||'&d'||n(mtl.SS_SOURCE_LINE)||'&el');-- utl_file.put_line(handle,n(mtl.sec_res_q)||'&d'||n(mtl.calc_sec_res_q)||'&d');-- utl_file.put_line(handle,n(mtl.uom2)||'&d'||n(mtl.sec_dtl_q)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_invif substr(UPPER(nvl('&prt_wip','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f WIP_JOB_SCHEDULE_INTERFACE (WJS) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTERF_ID &dh SRC_LINE_ID &dh LINE &dh REQUEST_ID &dh GROUP_ID &dh SRC_CODE &dh PHS &dh STAT_TY &dh ');UTL_FILE.PUT_LINE(handle,'STAT &dh ORG &dh LOAD &dh ITEM_ID &dh WIP_SUP_TY &dh START_QTY &eh');Declarecursor wip_sch_int isselect WJS.INTERFACE_ID INTERF_ID,WJS.SOURCE_LINE_ID SRC_LINE_ID,to_char(LIN.line_number) ||decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))||decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null,decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,WJS.REQUEST_ID REQUEST_ID,WJS.GROUP_ID GROUP_ID,WJS.SOURCE_CODE SRC_CODE,WJS.PROCESS_PHASE PHS,WJS.STATUS_TYPE STAT_TY,WJS.PROCESS_STATUS STAT,WJS.ORGANIZATION_CODE ORG,WJS.LOAD_TYPE LOAD,WJS.PRIMARY_ITEM_ID ITEM_ID,WJS.WIP_SUPPLY_TYPE WIP_SUP_TY,WJS.START_QUANTITY START_QTYfrom WIP_JOB_SCHEDULE_INTERFACE WJS,OE_ORDER_LINES_ALL LINwhere WJS.SOURCE_LINE_ID = LIN.LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor wip in wip_sch_intlooputl_file.put_line(handle,'&sld'||n(wip.INTERF_ID)||'&d'||n(wip.SRC_LINE_ID)||'&d'||n(wip.LINE)||'&d');utl_file.put_line(handle,n(wip.REQUEST_ID)||'&d'||n(wip.GROUP_ID)||'&d'||n(wip.SRC_CODE)||'&d');utl_file.put_line(handle,n(wip.PHS)||'&d'||n(wip.STAT_TY)||'&d'||n(wip.STAT)||'&d');utl_file.put_line(handle,n(wip.ORG)||'&d'||n(wip.LOAD)||'&d'||n(wip.ITEM_ID)||'&d');utl_file.put_line(handle,n(wip.WIP_SUP_TY)||'&d'||n(wip.START_QTY)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WIP_INTERFACE_ERRORS (WIE) &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTERF_ID &dh LINE &dh ERROR_TYPE &dh ERROR &eh');Declarecursor wip_int_err isselectWIE.INTERFACE_ID INTERF_ID,to_char(LIN.line_number) ||decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))||decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null,decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,WIE.ERROR_TYPE ERROR_TYPE,WIE.ERROR ERROR_WIEfrom WIP_INTERFACE_ERRORS WIE,WIP_JOB_SCHEDULE_INTERFACE WJS,OE_ORDER_LINES_ALL LINwhere WIE.INTERFACE_ID = WJS.INTERFACE_IDand WJS.SOURCE_LINE_ID = LIN.LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor wip in wip_int_errlooputl_file.put_line(handle,'&sld'||n(wip.INTERF_ID)||'&d'||n(wip.LINE)||'&d');utl_file.put_line(handle,n(wip.ERROR_TYPE)||'&d'||n(wip.ERROR_WIE)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WIP_DISCRETE_JOBS (WIP) &f');UTL_FILE.PUT_LINE(handle,'&std &sh WIP_ENT_ID &dh JOB_NAME &dh WH_ID &dh REQUEST_ID &dh LINE_ID &dh LINE &dh STATUS &dh PRY_ITEM_ID &dh ');UTL_FILE.PUT_LINE(handle,'ITEM &dh FIRM &dh JOB_TY &dh WIP_SUP_TYPE &dh SCH_STRT &dh SCH_CMPL &dh RLS_DATE &dh DUE_DATE &dh COMPL_DT &dh ');UTL_FILE.PUT_LINE(handle,'CLSD_DT &dh STRT_Q &dh COMP_Q &dh SCRP_Q &dh NET_Q &dh LINE_ID &eh');Declarecursor wip_d_jobs isselectWIP.WIP_ENTITY_ID WIP_ENT_ID,WIV.WIP_ENTITY_NAME JOB_NAME,WIP.ORGANIZATION_ID WH_ID,WIP.REQUEST_ID REQUEST_ID,WIP.SOURCE_LINE_ID LINE_ID,to_char(LIN.line_number) ||decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))||decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null,decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,WIV.STATUS_TYPE_DISP STATUS,WIP.PRIMARY_ITEM_ID PRY_ITEM_ID,ITM.SEGMENT1 ITEM,WIP.FIRM_PLANNED_FLAG FIRM,WIP.JOB_TYPE JOB_TY,WIV.WIP_SUPPLY_TYPE_DISP WIP_SUP_TYPE,WIP.SCHEDULED_START_DATE SCH_STRT,WIP.SCHEDULED_COMPLETION_DATE SCH_CMPL,WIP.DATE_RELEASED RLS_DATE,WIP.DUE_DATE DUE_DATE,WIP.DATE_COMPLETED COMPL_DT,WIP.DATE_CLOSED CLSD_DT,WIP.START_QUANTITY STRT_Q,WIP.QUANTITY_COMPLETED COMP_Q,WIP.QUANTITY_SCRAPPED SCRP_Q,WIP.NET_QUANTITY NET_Q,WIP.LINE_ID WIP_LINE_IDfrom WIP_DISCRETE_JOBS WIP,WIP_DISCRETE_JOBS_V WIV,MTL_SYSTEM_ITEMS_B ITM,OE_ORDER_LINES_ALL LINwhere WIP.WIP_ENTITY_ID = WIV.WIP_ENTITY_IDand WIP.PRIMARY_ITEM_ID = ITM.INVENTORY_ITEM_IDand WIP.ORGANIZATION_ID = ITM.ORGANIZATION_IDand WIP.SOURCE_LINE_ID = LIN.LINE_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor wip in wip_d_jobslooputl_file.put_line(handle,'&sld'||n(wip.WIP_ENT_ID)||'&d'||n(wip.JOB_NAME)||'&d');utl_file.put_line(handle,n(wip.WH_ID)||'&d'||n(wip.REQUEST_ID)||'&d');utl_file.put_line(handle,n(wip.LINE_ID)||'&d'||n(wip.LINE)||'&d');utl_file.put_line(handle,n(wip.STATUS)||'&d'||n(wip.PRY_ITEM_ID)||'&d');utl_file.put_line(handle,n(wip.ITEM)||'&d'||n(wip.FIRM)||'&d');utl_file.put_line(handle,n(wip.JOB_TY)||'&d'||n(wip.WIP_SUP_TYPE)||'&d');utl_file.put_line(handle,n(wip.SCH_STRT)||'&d'||n(wip.SCH_CMPL)||'&d');utl_file.put_line(handle,n(wip.RLS_DATE)||'&d'||n(wip.DUE_DATE)||'&d');utl_file.put_line(handle,n(wip.COMPL_DT)||'&d'||n(wip.CLSD_DT)||'&d');utl_file.put_line(handle,n(wip.STRT_Q)||'&d'||n(wip.COMP_Q)||'&d');utl_file.put_line(handle,n(wip.SCRP_Q)||'&d'||n(wip.NET_Q)||'&d');utl_file.put_line(handle,n(wip.WIP_LINE_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f DISCRETE JOB TRANSACTIONS (DJT) &f');UTL_FILE.PUT_LINE(handle,'&std &sh JOB_NAME &dh LINE &dh ITEM_ID &dh ITEM &dh QTY &dh MTL_TRNS_ID &dh TRANS_TYPE &dh OP_SEQ &dh SERIAL &eh');Declarecursor wip_job_trx isselectWIE.wip_entity_name JOB_NAME,to_char(LIN.line_number) ||decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))||decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null,decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,TRN.inventory_item_id ITEM_ID,ITM.segment1 ITEM,TRN.TRANSACTION_QUANTITY QTY,TRN.TRANSACTION_ID MTL_TRNS_ID,decode(TRN.TRANSACTION_TYPE_ID,35, 'WIP Component Issue',44, 'WIP Assy Completion',TRN.TRANSACTION_TYPE_ID) TRANS_TYPE,TRN.OPERATION_SEQ_NUM OP_SEQ,UNT.serial_number SERIALfrom wip_discrete_jobs WIP,OE_ORDER_LINES_ALL LIN,wip_entities WIE,mtl_material_transactions TRN,mtl_system_items_b ITM,mtl_unit_transactions UNTwhere WIE.wip_entity_id = WIP.wip_entity_idand LIN.LINE_ID = WIP.source_line_idand TRN.transaction_source_id = WIP.wip_entity_idand TRN.transaction_source_type_id = 5and TRN.inventory_item_id = ITM.inventory_item_idand TRN.organization_id = ITM.organization_idand TRN.transaction_id = UNT.transaction_id(+)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor wip in wip_job_trxlooputl_file.put_line(handle,'&sld'||n(wip.JOB_NAME)||'&d'||n(wip.LINE)||'&d');utl_file.put_line(handle,n(wip.ITEM_ID)||'&d'||n(wip.ITEM)||'&d');utl_file.put_line(handle,n(wip.QTY)||'&d'||n(wip.MTL_TRNS_ID)||'&d');utl_file.put_line(handle,n(wip.TRANS_TYPE)||'&d'||n(wip.OP_SEQ)||'&d');utl_file.put_line(handle,n(wip.SERIAL)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; -- prt_wipend if; -- :v_head_onlyUTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin-- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedIf :v_head_only = 'N' then UTL_FILE.PUT_LINE(handle,'&f &f WSH_TRIPS (TRP) &f');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh TRIP_ID &dh NAME &dh PLND &dh STATUS_CODE &dh VEH_NUM &dh CARR_ID &dh SHIP_METH &dh ROUTE_ID &dh VEH_ORG_ID &eh');Declarecursor w_trips isselect distinct TRP.TRIP_ID TRIP_ID,TRP.NAME NAME,TRP.PLANNED_FLAG PLND,TRP.STATUS_CODE STATUS_CODE,TRP.VEHICLE_NUMBER VEH_NUM,TRP.CARRIER_ID CARR_ID,TRP.SHIP_METHOD_CODE SHIP_METH,TRP.ROUTE_ID ROUTE_ID,TRP.VEHICLE_ORGANIZATION_ID VEH_ORG_IDFROM WSH_TRIPS TRPwhereTRIP_ID in (select distinct(STP.TRIP_ID)FROMOE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASGWHEREDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND STP.STOP_ID = LEG.PICK_UP_STOP_ID ANDLEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID))order by TRP.TRIP_ID;type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..30loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. XX.';-- end if;for tt in w_tripsloop:r_flag := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if;-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,''||n(tt.TRIP_ID)||''||'&d'||n(tt.NAME)||'&d');utl_file.put_line(handle,n(tt.PLND)||'&d'||n(tt.STATUS_CODE)||'&d'||n(tt.VEH_NUM)||'&d'||n(tt.CARR_ID)||'&d');utl_file.put_line(handle,n(tt.SHIP_METH)||'&d'||n(tt.ROUTE_ID)||'&d'||n(tt.VEH_ORG_ID)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..30loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WSH_TRIP_STOPS (STP) &f ');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh STOP_ID &dh STOP_DESCRIPTION &dh TRIP_ID &dh TRIP_NAME &dh STOP_LOC_ID &dh STATUS &dh LOCK_ST_ID &dh ');UTL_FILE.PUT_LINE(handle,'PEND_INTERF &dh PLN_DEP_DATE &dh ACT_DEP_DATE &eh');Declare cursor w_trip_stops isselect distinct STP.STOP_ID STOP_ID,STP1.STOP_DESCRIPTION STOP_DESCRIPTION,STP.TRIP_ID TRIP_ID,TRP.NAME TRIP_NAME,STP.STOP_LOCATION_ID STOP_LOC_ID,STP.STATUS_CODE STATUS,STP.LOCK_STOP_ID LOCK_ST_ID,STP.PENDING_INTERFACE_FLAG PEND_INTERF,to_char(STP.PLANNED_DEPARTURE_DATE,'DD-MON-RR_HH24:MI:SS') PLN_DEP_DATE,to_char(STP.ACTUAL_DEPARTURE_DATE,'DD-MON-RR_HH24:MI:SS') ACT_DEP_DATEFROM WSH_TRIP_STOPS STP,WSH_SRS_TRIP_STOPS_V STP1,WSH_TRIPS TRPwhereSTP.TRIP_ID = TRP.TRIP_ID(+) ANDSTP1.STOP_ID = STP.STOP_ID ANDSTP.STOP_ID in ((select distinct(LEG.PICK_UP_STOP_ID)from OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_DELIVERY_ASSIGNMENTS ASGwhereDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND LEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID))UNION(select distinct(LEG.DROP_OFF_STOP_ID)from OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_DELIVERY_ASSIGNMENTS ASGwhereDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND LEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)));type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..30loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. XX.';-- end if;for ts in w_trip_stopsloop:r_flag := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if;-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,''||n(ts.STOP_ID)||''||'&d'||n(ts.STOP_DESCRIPTION)||'&d');utl_file.put_line(handle,''||n(ts.TRIP_ID)||''||'&d');utl_file.put_line(handle,n(ts.TRIP_NAME)||'&d'||''||n(ts.STOP_LOC_ID)||''||'&d');utl_file.put_line(handle,n(ts.STATUS)||'&d'||n(ts.LOCK_ST_ID)||'&d');utl_file.put_line(handle,n(ts.PEND_INTERF)||'&d'||n(ts.PLN_DEP_DATE)||'&d'||n(ts.ACT_DEP_DATE)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..30loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WSH_DELIVERY_LEGS (LEG) &f');UTL_FILE.PUT_LINE(handle,'&std &sh LEG_ID &dh SEQ_NUM &dh DELIVERY_ID &dh PICKUP_STOP_ID &dh DROPOFF_STOP_ID &eh');Declarecursor w_del_leg isselect distinct LEG.DELIVERY_LEG_ID LEG_ID,LEG.SEQUENCE_NUMBER SEQ_NUM,LEG.DELIVERY_ID DELIVERY_ID,LEG.PICK_UP_STOP_ID PICKUP_STOP_ID,LEG.DROP_OFF_STOP_ID DROPOFF_STOP_ID--LEG.LOAD_TENDER_STATUS LOAD_TENDER_STAT--ENABLE_TIMESTAMP ,to_char(LEG.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(LEG.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,LEG.REQUEST_ID REQUEST_IDFROM OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASG,WSH_TRIPS TRPwhereDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND STP.STOP_ID(+) = LEG.PICK_UP_STOP_ID ANDSTP.TRIP_ID = TRP.TRIP_ID AND LEG.DELIVERY_ID(+) = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order byLEG.DELIVERY_LEG_ID;beginfor wdl in w_del_leglooputl_file.put_line(handle,'&sld'||n(wdl.LEG_ID)||'&d'||n(wdl.SEQ_NUM)||'&d');utl_file.put_line(handle,n(wdl.DELIVERY_ID)||'&d'||n(wdl.PICKUP_STOP_ID)||'&d');utl_file.put_line(handle,n(wdl.DROPOFF_STOP_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WSH_NEW_DELIVERIES (DEL) &f');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh DELIVERY_ID &dh DEL_NAME &dh STATUS_CODE &dh WAYBILL &dh PLND &dh PICKUP_DT &dh PICKUP_LOC &dh');UTL_FILE.PUT_LINE(handle,'DROPOFF_DT &dh DROPOFF_LOC &dh SHIP_METHOD_CODE &dh CONFIRM_DATE &eh');Declare cursor w_deliveries isselect distinct DEL.DELIVERY_ID DELIVERY_ID,DEL.NAME DEL_NAME,DEL.STATUS_CODE STATUS_CODE,DEL.WAYBILL WAYBILL,DEL.PLANNED_FLAG PLND,to_char(DEL.INITIAL_PICKUP_DATE,'DD-MON-RR_HH24:MI:SS') PICKUP_DT,DEL.INITIAL_PICKUP_LOCATION_ID PICKUP_LOC,to_char(DEL.ULTIMATE_DROPOFF_DATE,'DD-MON-RR_HH24:MI:SS') DROPOFF_DT,DEL.ULTIMATE_DROPOFF_LOCATION_ID DROPOFF_LOC,DEL.SHIP_METHOD_CODE SHP_METH,to_char(DEL.CONFIRM_DATE,'DD-MON-RR_HH24:MI:SS') CONF_DATE--DEL.BOOKING_NUMBER BOOKING_NUM,--DEL.ACCEPTANCE_FLAG ACCEPTED--ENABLE_TIMESTAMP ,to_char(DEL.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(DEL.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,DEL.REQUEST_ID REQUEST_IDFROM OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_ASSIGNMENTS ASG whereDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)order by Del.DELIVERY_ID;type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..30loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. XX.';-- end if;for nd in w_deliveriesloop:r_flag := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,''||n(nd.DELIVERY_ID)||''||'&d'||n(nd.DEL_NAME)||'&d');utl_file.put_line(handle,n(nd.STATUS_CODE)||'&d'||n(nd.WAYBILL)||'&d'||n(nd.PLND)||'&d'||n(nd.PICKUP_DT)||'&d');utl_file.put_line(handle,''||n(nd.PICKUP_LOC)||''||'&d');utl_file.put_line(handle,n(nd.DROPOFF_DT)||'&d'||n(nd.DROPOFF_LOC)||'&d');utl_file.put_line(handle,n(nd.SHP_METH)||'&d'||n(nd.CONF_DATE)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..30loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et ');UTL_FILE.PUT_LINE(handle,'&f &f WSH_DELIVERY_ASSIGNMENTS (ASG) &f ');UTL_FILE.PUT_LINE(handle,'&std &sh DEL_ASGN_ID &dh DELIVERY_ID &dh DEL_DETAIL_ID &dh PAR_DEL_ID &dh PAR_DETAIL_ID &eh ');Declarecursor w_del_asig isselect distinct ASG.DELIVERY_ASSIGNMENT_ID DEL_ASGN_ID,ASG.DELIVERY_ID DELIVERY_ID,ASG.DELIVERY_DETAIL_ID DEL_DETAIL_ID,ASG.PARENT_DELIVERY_ID PAR_DEL_ID,ASG.PARENT_DELIVERY_DETAIL_ID PAR_DETAIL_ID-- ASG.ACTIVE_FLAG ACTIVE--ENABLE_TIMESTAMP ,to_char(ASG.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(ASG.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,ASG.REQUEST_ID REQUEST_IDFROM OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_DELIVERY_ASSIGNMENTS ASG whereASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor wda in w_del_asiglooputl_file.put_line(handle,'&sld'||n(wda.DEL_ASGN_ID)||'&d'||n(wda.DELIVERY_ID)||'&d');utl_file.put_line(handle,n(wda.DEL_DETAIL_ID)||'&d'||n(wda.PAR_DEL_ID)||'&d');utl_file.put_line(handle,n(wda.PAR_DETAIL_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f ORGANIZATIONS (ORG) &f');UTL_FILE.PUT_LINE(handle,'&std &sh ORG_ID &dh ORGANIZATION CODE &dh WMS_ENABLED &dh OPM_ENABLED &dh NEGATIVE BAL_ALLOW ');UTL_FILE.PUT_LINE(handle,'&dh OTM INSTALLED &dh OTM ENABLED ');UTL_FILE.PUT_LINE(handle,'&dh PRIMARY COST_METH &dh COST ORG_ID &dh MASTER ORG_ID &dh DEFAULT COST_GRP &dh PROJECT REF_ENABLED ');UTL_FILE.PUT_LINE(handle,'&dh COST CUT_DATE &dh EAM ENABLED &dh ENCUMBR REVERSAL &eh ');Declare cursor l_orgs isSELECT distinct mp.organization_id org_id,mp.organization_code org,decode(mp.primary_cost_method,1, 'Standard',2, 'Average',5, 'FIFO',6, 'LIFO') PCM,decode(mp.wms_enabled_flag,'Y', 'Yes','N', 'No') WMS,decode(mp.NEGATIVE_INV_RECEIPT_CODE,1, 'Yes',2, 'No') neg_bal,mp.cost_organization_id c_org,mp.master_organization_id m_org,mp.default_cost_group_id dcg,decode(mp.project_reference_enabled,1, 'Yes',2, 'No') PRE,to_char(mp.cost_cutoff_date,'dd-mon-rrrr') ccd,decode(mp.eam_enabled_flag,'Y','Yes','N','No') EAM,decode (mp.encumbrance_reversal_flag,1, 'Yes',2, 'No') ENC,decode(NVL(FND_PROFILE.VALUE('WSH_OTM_INSTALLED'), 'N'),'Y', 'Yes','N', 'No') OTM_INST,decode(NVL(wsp.otm_enabled,'N'),'Y', 'Yes','N', 'No') OTM_ENABFROM MTL_PARAMETERS MP,WSH_DELIVERY_DETAILS DET,WSH_SHIPPING_PARAMETERS WSPwhere DET.SOURCE_CODE = 'OE'and MP.ORGANIZATION_ID = DET.ORGANIZATION_IDand WSP.ORGANIZATION_ID = DET.ORGANIZATION_IDand DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;beginfor orgi in l_orgsloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(orgi.org_id)||' &d ');utl_file.put_line(handle,n(orgi.org)||' &d '||n(orgi.WMS)||' &d ');if INV_GMI_RSV_BRANCH.PROCESS_BRANCH(orgi.org_id) thenutl_file.put_line(handle,'Yes ');:is_opm := 'Y';elseutl_file.put_line(handle,'No ');:is_opm := 'N';end if;utl_file.put_line(handle,' &d '||n(orgi.neg_bal)||' &d ');utl_file.put_line(handle,n(orgi.OTM_INST)||' &d '||n(orgi.OTM_ENAB)||' &d ');utl_file.put_line(handle,n(orgi.PCM)||' &d ');utl_file.put_line(handle,n(orgi.c_org)||' &d '||n(orgi.m_org)||' &d ');utl_file.put_line(handle,n(orgi.dcg)||' &d '||n(orgi.PRE)||' &d ');utl_file.put_line(handle,n(orgi.ccd)||' &d '||n(orgi.EAM)||' &d ');utl_file.put_line(handle,n(orgi.ENC)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f ACCOUNTING PERIODS (ACC) &f');UTL_FILE.PUT_LINE(handle,'&std &sh ORG_ID &dh ORGANIZATION CODE &dh PLANNED_DEPART_DT (Shipped Line) &dh ');UTL_FILE.PUT_LINE(handle,'SCHEDULE_SHIP_DT (Not Shipped Line) &dh ACCOUNT PERIOD_ID &dh PERIOD NAME ');UTL_FILE.PUT_LINE(handle,'&dh OPEN FLAG &dh PERIOD START_DT &dh PERIOD CLOSE_DT &dh SCHEDULE CLOSE_DT &eh ');Declare cursor l_orgs isSELECT distinct mp.organization_id org_id,mp.organization_code org,to_char(STP.PLANNED_DEPARTURE_DATE,'DD-MON-RR_HH24:MI:SS') plan_dep_date,'' schdate,oac.acct_period_id acc_per_id,oac.period_name per_name,oac.open_flag open_fl,to_char(oac.period_start_date,'DD-MON-RR_HH24:MI:SS') per_sd,to_char(oac.period_close_date,'DD-MON-RR_HH24:MI:SS') per_cd,to_char(oac.schedule_close_date,'DD-MON-RR_HH24:MI:SS') sch_cdFROM MTL_PARAMETERS MP,ORG_ACCT_PERIODS OAC,WSH_DELIVERY_DETAILS DET,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASG,WSH_TRIPS TRPwhere DET.RELEASED_STATUS = 'C'and ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_IDand STP.STOP_ID(+) = LEG.PICK_UP_STOP_IDand STP.TRIP_ID = TRP.TRIP_ID(+)and LEG.DELIVERY_ID(+) = ASG.DELIVERY_IDand DET.SOURCE_CODE = 'OE'and MP.ORGANIZATION_ID = OAC.ORGANIZATION_IDand MP.ORGANIZATION_ID = DET.ORGANIZATION_IDand STP.PLANNED_DEPARTURE_DATE BETWEEN OAC.PERIOD_START_DATE and NVL(OAC.PERIOD_CLOSE_DATE,OAC.SCHEDULE_CLOSE_DATE)and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)unionSELECT distinct mp.organization_id org_id,mp.organization_code org,'' plan_dep_date,to_char(LIN.SCHEDULE_SHIP_DATE,'DD-MON-RR_HH24:MI:SS') schdate,oac.acct_period_id acc_per_id,oac.period_name per_name,oac.open_flag open_fl,to_char(oac.period_start_date,'DD-MON-RR_HH24:MI:SS') per_sd,to_char(oac.period_close_date,'DD-MON-RR_HH24:MI:SS') per_cd,to_char(oac.schedule_close_date,'DD-MON-RR_HH24:MI:SS') sch_cdFROM MTL_PARAMETERS MP,ORG_ACCT_PERIODS OAC,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LINwhere DET.RELEASED_STATUS <> 'C'and DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and MP.ORGANIZATION_ID = OAC.ORGANIZATION_IDand MP.ORGANIZATION_ID = DET.ORGANIZATION_IDand LIN.SCHEDULE_SHIP_DATE BETWEEN OAC.PERIOD_START_DATE and NVL(OAC.PERIOD_CLOSE_DATE,OAC.SCHEDULE_CLOSE_DATE)and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;beginfor orgi in l_orgsloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(orgi.org_id)||' &d ');utl_file.put_line(handle,n(orgi.org)||' &d '||n(orgi.plan_dep_date)||' &d ');utl_file.put_line(handle,n(orgi.schdate)||' &d '||n(orgi.acc_per_id)||' &d ');utl_file.put_line(handle,n(orgi.per_name)||' &d '||n(orgi.open_fl)||' &d ');utl_file.put_line(handle,n(orgi.per_sd)||' &d '||n(orgi.per_cd)||' &d ');utl_file.put_line(handle,n(orgi.sch_cd)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WSH_DELIVERY_DETAILS (DET) Column Definitions &f');Declarecursor w_del_details isselect distinct DET.DELIVERY_DETAIL_ID DEL_DET_ID,DET.RELEASED_STATUS REL_STATUS_C,decode(DET.RELEASED_STATUS,'Y','Y=Staged','R','R=Ready to Release','S','S=Rel to Warhouse','B','B=Backorder','P','P=Pending Inv','C','C=Shipped','N','N=Not Ready','D','D=Cancelled','X','X=Not Applicable','Unknown: '||DET.RELEASED_STATUS) REL_STATUS,DET.MOVE_ORDER_LINE_ID MO_LINE_ID,ASG.DELIVERY_ID DELIV_ID,TRP.TRIP_ID TRIP_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,DET.SOURCE_LINE_ID LINE_ID,DET.INVENTORY_ITEM_ID ITEM_ID,ITM.SEGMENT1 ITEM,nvl(DET.SRC_REQUESTED_QUANTITY,0) SRQ_Q,DET.SRC_REQUESTED_QUANTITY_UOM SRQ_U,nvl(DET.SRC_REQUESTED_QUANTITY2,0) SRQ_Q2,DET.SRC_REQUESTED_QUANTITY_UOM2 SRQ_U2,nvl(DET.REQUESTED_QUANTITY,0) REQ_Q,DET.REQUESTED_QUANTITY_UOM REQ_U,nvl(DET.REQUESTED_QUANTITY2,0) REQ_Q2,DET.REQUESTED_QUANTITY_UOM2 REQ_U2,nvl(DET.SHIPPED_QUANTITY,0) SHP_Q,nvl(DET.SHIPPED_QUANTITY2,0) SHP_Q2,nvl(DET.DELIVERED_QUANTITY,0) DLV_Q,nvl(DET.DELIVERED_QUANTITY2,0) DLV_Q2,nvl(DET.CANCELLED_QUANTITY,0) CAN_Q,nvl(DET.CANCELLED_QUANTITY2,0) CAN_Q2,nvl(DET.INV_INTERFACED_FLAG,'N') INI,nvl(DET.OE_INTERFACED_FLAG,'N') OMI,DET.SHIP_TOLERANCE_ABOVE STA,DET.SHIP_TOLERANCE_BELOW STB,DET.SHIP_FROM_LOCATION_ID SH_FROM_ID,DET.SHIP_TO_LOCATION_ID SH_TO_ID,-- DET.MVT_STAT_STATUS MVT_STATUS,DET.ORGANIZATION_ID WH_ID,DET.SUBINVENTORY CUR_SUB,DET.ATTRIBUTE15 ORG_SUB,DET.REVISION REV,DET.LOT_NUMBER LOT,DET.SERIAL_NUMBER SERIAL,DET.LOCATOR_ID LOC_ID,DET.SHIP_METHOD_CODE SHIP_METH,-- DET.MOVEMENT_ID MVMT_ID,DET.SPLIT_FROM_DELIVERY_DETAIL_ID SPL_DEL_DET_ID,DET.PICKABLE_FLAG PICKABLE_FLAG,nvl(DET.PICKED_QUANTITY,0) PICKED_QUANTITY,nvl(DET.PICKED_QUANTITY2,0) PICKED_QUANTITY2,DET.SHIP_SET_ID SHIP_SET_ID,DET.SHIP_MODEL_COMPLETE_FLAG SHIP_MODEL_COMPLETE_FLAG,DET.TRANSACTION_TEMP_ID TRX_TEMP_ID,DET.TOP_MODEL_LINE_ID TOP_MO_LIN,DET.SOURCE_LINE_SET_ID SRC_LIN_SET,to_char(DET.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') cre_date,DET.sublot_number slotno,DET.CYCLE_COUNT_QUANTITY2 cycle_qty,DET.QUALITY_CONTROL_QUANTITY QC_qty,DET.QUALITY_CONTROL_QUANTITY2 QC_qty2,DET.SCHEDULED_QUANTITY2 sch_qty2,to_char(DET.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') upd_date,DET.BATCH_ID BATCHFROM OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,MTL_SYSTEM_ITEMS ITM,WSH_DELIVERY_ASSIGNMENTS ASG,WSH_TRIPS TRPwhereDEL.DELIVERY_ID(+) = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND STP.STOP_ID(+) = LEG.PICK_UP_STOP_ID ANDSTP.TRIP_ID = TRP.TRIP_ID(+) AND LEG.DELIVERY_ID(+) = DEL.DELIVERY_ID AND LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) ANDLIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) ANDDET.SOURCE_CODE = 'OE' ANDLIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)Order byDET.SOURCE_LINE_ID, DET.DELIVERY_DETAIL_ID;r_uom_lin varchar2(10);r_qshp_lin number;r_sta_lin varchar2(100);r_mtl_trn varchar2(100);r_mtl_res number;c_lines number;type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;procedure prt_head isbeginUTL_FILE.PUT_LINE(handle,'&sh WARNING &dh DELIVERY DETAIL_ID &dh RELEASE STATUS &dh INI &dh OMI &dh MOVE_ORDER LINE_ID &dh ');UTL_FILE.PUT_LINE(handle,'DELIVERY ID &dh TRIP_ID &dh LINE &dh LINE_ID &dh ITEM_ID &dh ITEM &dh SOURCE REQ_QTY &dh ');UTL_FILE.PUT_LINE(handle,'SOURCE REQ_UOM &dh REQUEST QTY &dh REQUEST UOM &dh PICKED QTY &dh SHIPPED QTY &dh ');UTL_FILE.PUT_LINE(handle,'DELIVER QTY &dh CANCEL QTY &dh PICKABLE FLAG &dh MTL_TRANS ENABLED &dh STA &dh STB &dh BATCH_ID &dh SHIP FROM_ID &dh ');UTL_FILE.PUT_LINE(handle,'SHIP TO_ID &dh WH_ID &dh CURRENT SUBINV &dh ORG SUBINV &dh REV &dh LOT &dh SERIAL &dh ');UTL_FILE.PUT_LINE(handle,'TRANSAC TEMP_ID &dh LOCATOR ID &dh SHIP METHOD &dh CREATE DATE &dh SPLIT_FROM DEL_DET_ID &dh ');UTL_FILE.PUT_LINE(handle,'SHIP SET &dh SHIP MOD_CMP &dh TOP_MODEL LINE_ID &dh SOURCE LINE_SET &dh DISCRETE SRC_REQ_QTY &dh ');UTL_FILE.PUT_LINE(handle,'DISCRETE SRC_REQ_UOM &dh DISCRETE REQ_QTY &dh DISCRETE REQ_UOM &dh DISCRETE PICK_QTY &dh ');UTL_FILE.PUT_LINE(handle,'DISCRETE SHP_QTY &dh DISCRETE DEL_QTY &dh DISCRETE CANC_QTY &dh ');UTL_FILE.PUT_LINE(handle,'CYCLE COUNT_QTY &dh QUALITY CTRL_QTY &dh ');UTL_FILE.PUT_LINE(handle,'QUALITY CTRL_QTY2 &dh DISCRETE SCHD_QTY &dh SUBLOT NUMBER &dh LAST UPDATE_DATE &eh');end;begin:r_error := 0;c_lines := 51;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..35loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. Source Requested Quantity is less than Shipped Quantity.';msg(10).descrip := ' 10. Pickable_Flag on Delivery Detail does Not Match with Mtl_Transactions_Enabled_Flag on Mtl_System_Items.';msg(20).descrip := ' 20. Delivery Detail have no Order Lines Associated.';msg(21).descrip := ' 21. Order Line associated to this Delivery Detail have INVALID status.';msg(24).descrip := ' 24. Delivery Detail have invalid RELEASED status.';msg(25).descrip := ' 25. Delivery Detail has NOT been Shipped but has been INTERFACED to OM or INV.';msg(26).descrip := ' 26. Delivery Detail has NOT been Shipped but associated Order Line shows Shipped Quantity.';msg(27).descrip := ' 27. Delivery Detail has NOT been Shipped but associated Order Line is Not on AWAITING SHIPPING status.';msg(28).descrip := ' 28. Delivery Detail has been Shipped, NOT OM Interfaced but associated Order Line Shipped Qty has been updated.';msg(29).descrip := ' 29. Delivery Detail has been Shipped, NOT OM Interfaced but associated Order Line is Not on AWAITING SHIPPING status.';msg(30).descrip := ' 30. Delivery Detail has been Shipped and OM Interfaced but associated Order Line Shipped Qty has NOT been updated.';msg(31).descrip := ' 31. Delivery Detail has been Shipped and OM Interfaced but associated Order Line still on AWAITING SHIPPING status.';msg(32).descrip := ' 32. Delivery Detail has been Shipped and OM interfaced, Shipped Qty on order_line does not match Delivery Detail Shp Qty (maybe a Split line).';msg(33).descrip := ' 33. Delivery Detail is Cancelled but has been INTERFACED to OM or INV.';-- end if;for dd in w_del_detailsloop:r_flag := '';if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then-- Check Pickable_flag against mtl_system_items.mtl_transactions_enabled_flagSelect nvl(mtl_transactions_enabled_flag,'N')into r_mtl_trnfrom Mtl_System_itemswhere Inventory_item_Id = dd.ITEM_IDand Organization_Id = dd.WH_ID;if dd.PICKABLE_FLAG <> r_mtl_trn then:r_flag := :r_flag || '10 ';msg(10).flag := '1';end if;beginselect ORDER_QUANTITY_UOM, nvl(SHIPPED_QUANTITY,0), substr(FLOW_STATUS_CODE,1,22)into r_uom_lin, r_qshp_lin, r_sta_linfrom oe_order_lines_allwhere line_id = dd.LINE_ID;exceptionwhen no_data_found then:r_flag := :r_flag || '20 ';msg(20).flag := '1';end;----- Basic Verification--If (dd.SRQ_Q*(100+nvl(dd.STA,0))/100 < dd.SHP_Q) AND (dd.SRQ_U = dd.REQ_U) then:r_flag := :r_flag || '1 ';msg(1).flag := '1';end if;if dd.REL_STATUS_C not in ('Y','R','S','B','P','C','N','D','X') then -- invalid Released status:r_flag := :r_flag || '24 ';msg(24).flag := '1';end if;if dd.REL_STATUS_C not in ('C','D') -- not shipped or cancelledand (dd.INI not in ( 'N','X')or dd.OMI <> 'N') then -- but interfaced INV or OM:r_flag := :r_flag || '25 ';msg(25).flag := '1';end if;if dd.REL_STATUS_C not in ('C','D') -- not shipped nor cancelledand dd.OMI = 'N'and r_qshp_lin > 0 then -- not OM interfaced but Shipped qty on order line has been updated:r_flag := :r_flag || '26 ';msg(26).flag := '1';end if;if dd.REL_STATUS_C not in ('C','D') -- not shipped nor cancelledand dd.OMI = 'N'and r_sta_lin <> 'AWAITING_SHIPPING' then -- not OM interfaced but order line is not Awaiting Shipping:r_flag := :r_flag || '27 ';msg(27).flag := '1';end if;-- Verifications for Shipped Delivery Detailsif dd.REL_STATUS_C = 'C' thenif dd.OMI = 'N'and r_qshp_lin > 0 then -- Shipped, not OM interfaced but order lines Qty has been updated:r_flag := :r_flag || '28 ';msg(28).flag := '1';end if;if dd.OMI = 'N'and r_sta_lin <> 'AWAITING_SHIPPING' then -- Shipped, not OM interfaced but order line not on Awaiting Shipping:r_flag := :r_flag || '29 ';msg(29).flag := '1';end if;if dd.OMI = 'Y'and r_qshp_lin = 0 then -- Shipped and OM interfaced, order_line shipped Qty not updated:r_flag := :r_flag || '30 ';msg(30).flag := '1';end if;if dd.OMI = 'Y'and r_sta_lin = 'AWAITING_SHIPPING' then -- Shipped and OM interfaced, order_line status not updated:r_flag := :r_flag || '31 ';msg(31).flag := '1';end if;if dd.OMI = 'Y'and r_uom_lin = dd.REQ_U -- same UOM, no conversionand r_qshp_lin <> dd.SHP_Q then -- Shipped and OM interfaced, Shipped Qty on order_line does not match Delivery Detail Shp Qty:r_flag := :r_flag || '32 ';msg(32).flag := '1';end if;end if; -- Shipped Del.Detail-- Verifications for Cancelled Delivery Detailsif dd.REL_STATUS_C = 'D' thenif (dd.INI = 'Y' or dd.OMI = 'Y') then -- Delivery Detail has been cancelled but INV or OM flags are set to Y:r_flag := :r_flag || '33 ';msg(33).flag := '1';end if;end if; -- Cancelled Del.Detailend if; -- do_analysis---if c_lines >= 35 thenif c_lines = 51 thenUTL_FILE.PUT_LINE(handle,'&std ');end if;c_lines := 1;prt_head;elsec_lines := c_lines + 1;end if;-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,''||n(dd.DEL_DET_ID)||' &d');utl_file.put_line(handle,n(dd.REL_STATUS)||'&d');utl_file.put_line(handle,n(dd.INI)||'&d'||n(dd.OMI)||'&d');utl_file.put_line(handle,''||n(dd.MO_LINE_ID)||''||'&d');utl_file.put_line(handle,''||n(dd.DELIV_ID)||''||'&d');utl_file.put_line(handle,''||n(dd.TRIP_ID)||''||'&d'||n(dd.LINE)||'&d');utl_file.put_line(handle,''||n(dd.LINE_ID)||' &d');utl_file.put_line(handle,n(dd.ITEM_ID)||'&d'||n(dd.ITEM)||'&d');utl_file.put_line(handle,n(dd.SRQ_Q)||'&d'||n(dd.SRQ_U)||'&d');utl_file.put_line(handle,n(dd.REQ_Q)||'&d'||n(dd.REQ_U)||'&d');utl_file.put_line(handle,n(dd.PICKED_QUANTITY)||'&d'||n(dd.SHP_Q)||'&d');utl_file.put_line(handle,n(dd.DLV_Q)||'&d'||n(dd.CAN_Q)||'&d');utl_file.put_line(handle,n(dd.PICKABLE_FLAG)||'&d'||n(r_mtl_trn)||'&d');utl_file.put_line(handle,n(dd.STA)||'&d'||n(dd.STB)||'&d');utl_file.put_line(handle,n(dd.BATCH)||'&d');utl_file.put_line(handle,n(dd.SH_FROM_ID)||'&d'||n(dd.SH_TO_ID)||'&d');utl_file.put_line(handle,n(dd.WH_ID)||'&d'||n(dd.CUR_SUB)||'&d');utl_file.put_line(handle,n(dd.ORG_SUB)||'&d'||n(dd.REV)||'&d');utl_file.put_line(handle,n(dd.LOT)||'&d'||n(dd.SERIAL)||'&d');utl_file.put_line(handle,n(dd.TRX_TEMP_ID)||'&d');utl_file.put_line(handle,n(dd.LOC_ID)||'&d'||n(dd.SHIP_METH)||'&d');utl_file.put_line(handle,n(dd.CRE_DATE)||'&d');utl_file.put_line(handle,n(dd.SPL_DEL_DET_ID)||'&d');utl_file.put_line(handle,n(dd.SHIP_SET_ID)||'&d'||n(dd.SHIP_MODEL_COMPLETE_FLAG)||'&d');utl_file.put_line(handle,n(dd.TOP_MO_LIN)||'&d'||n(dd.SRC_LIN_SET)||'&d');utl_file.put_line(handle,n(dd.SRQ_Q2)||'&d'||n(dd.SRQ_U2)||'&d');utl_file.put_line(handle,n(dd.REQ_Q2)||'&d'||n(dd.REQ_U2)||'&d');utl_file.put_line(handle,n(dd.PICKED_QUANTITY2)||'&d'||n(dd.SHP_Q2)||'&d');utl_file.put_line(handle,n(dd.DLV_Q2)||'&d'||n(dd.CAN_Q2)||'&d');utl_file.put_line(handle,n(dd.cycle_qty)||'&d');utl_file.put_line(handle,n(dd.QC_qty)||'&d'||n(dd.QC_qty2)||'&d');utl_file.put_line(handle,n(dd.sch_qty2)||'&d');utl_file.put_line(handle,n(dd.slotno)||'&d'||n(dd.upd_date)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;if c_lines = 51 then -- no records selectedUTL_FILE.PUT_LINE(handle,'&std ');prt_head;end if;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warnings List: &eb &f');for i in 1..35loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WSH_DELIVERY_DETAILS (CONTAINERS) &f');UTL_FILE.PUT_LINE(handle,'&std &sh DEL_DET_ID &dh REL_STATUS &dh DELIV_ID &dh TRIP_ID &dh ITEM_ID &dh ITEM &dh CF &dh CONT_NAME &dh CONT_TYPE &dh ');UTL_FILE.PUT_LINE(handle,'FL_PER &dh GRS_WT &dh NET_WT &dh WT_UOM &dh VOL &dh VOL_UOM &dh SRQ_Q &dh REQ_Q &dh SHP_Q &dh DLV_Q &dh CAN_Q &dh ');UTL_FILE.PUT_LINE(handle,'INI &dh OMI &dh SH_FROM_ID &dh SH_TO_ID &dh WH_ID &dh SHIP_METH &dh CREATE_D &dh FOB_CODE &dh FRT_TERMS &dh');UTL_FILE.PUT_LINE(handle,'SPL_DEL_DET_ID &dh LPN_ID &eh');Declarecursor w_del_det_c isselect distinctDET.DELIVERY_DETAIL_ID DEL_DET_ID,decode(DET.RELEASED_STATUS,'Y','Y=Staged','R','R=Ready to Relese','S','S=Rel to Warhouse','B','B=Backorder','P','P=Pending Inv','C','C=Shipped','N','N=Not Ready','D','D=Cancelled','X','X=Not Applicable','Unknown: '||DET.RELEASED_STATUS) REL_STATUS,ASG.DELIVERY_ID DELIV_ID,TRP.TRIP_ID TRIP_ID,DET.INVENTORY_ITEM_ID ITEM_ID,ITM.SEGMENT1 ITEM,DET.CONTAINER_FLAG CF,DET.CONTAINER_NAME CONT_NAME,DET.CONTAINER_TYPE_CODE CONT_TYPE,DET.FILL_PERCENT FL_PER,DET.GROSS_WEIGHT GRS_WT,DET.NET_WEIGHT NET_WT,DET.WEIGHT_UOM_CODE WT_UOM,DET.VOLUME VOL,DET.VOLUME_UOM_CODE VOL_UOM,nvl(DET.SRC_REQUESTED_QUANTITY,0) SRQ_Q,nvl(DET.REQUESTED_QUANTITY,0) REQ_Q,nvl(DET.SHIPPED_QUANTITY,0) SHP_Q,nvl(DET.DELIVERED_QUANTITY,0) DLV_Q,nvl(DET.CANCELLED_QUANTITY,0) CAN_Q,nvl(DET.INV_INTERFACED_FLAG,'N') INI,nvl(DET.OE_INTERFACED_FLAG,'N') OMI,DET.SHIP_FROM_LOCATION_ID SH_FROM_ID,DET.SHIP_TO_LOCATION_ID SH_TO_ID,DET.ORGANIZATION_ID WH_ID,DET.SHIP_METHOD_CODE SHIP_METH,to_char(DET.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CRE_DT,DET.FOB_CODE FOB_CODE,DET.FREIGHT_TERMS_CODE FRT_TERMS,--DET.MOVEMENT_ID MVMT_ID,DET.SPLIT_FROM_DELIVERY_DETAIL_ID SPL_DEL_DET_ID,DET.LPN_ID LPN_ID--ENABLE_TIMESTAMP ,DET.ORG_ID DEL_ORG_ID--ENABLE_TIMESTAMP ,to_char(DET.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(DET.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,DET.REQUEST_ID REQUEST_IDFROM --OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,--WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,MTL_SYSTEM_ITEMS ITM,WSH_DELIVERY_ASSIGNMENTS ASG,WSH_TRIPS TRPwhere--DEL.DELIVERY_ID(+) = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.ORGANIZATION_ID = ITM.ORGANIZATION_ID(+) ANDDET.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) AND--DET.SOURCE_LINE_ID = LIN.LINE_ID AND STP.STOP_ID(+) = LEG.PICK_UP_STOP_ID ANDSTP.TRIP_ID = TRP.TRIP_ID(+) AND LEG.DELIVERY_ID(+) = ASG.DELIVERY_ID AND --LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) AND--LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) ANDDET.SOURCE_CODE = 'WSH' ANDASG.DELIVERY_ID IN (select ASG1.DELIVERY_IDfrom WSH_DELIVERY_ASSIGNMENTS ASG1,WSH_DELIVERY_DETAILS DET1,OE_ORDER_LINES_ALL LIN1where DET1.SOURCE_LINE_ID = LIN1.LINE_ID ANDDET1.DELIVERY_DETAIL_ID = ASG1.DELIVERY_DETAIL_ID ANDDET1.SOURCE_CODE = 'OE' ANDLIN1.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN1.LINE_ID,LIN1.TOP_MODEL_LINE_ID,LIN1.ATO_LINE_ID,LIN1.LINK_TO_LINE_ID,LIN1.REFERENCE_LINE_ID,LIN1.SERVICE_REFERENCE_LINE_ID));beginfor wddc in w_del_det_clooputl_file.put_line(handle,'&sld'||n(wddc.DEL_DET_ID)||'&d'||n(wddc.REL_STATUS)||'&d');utl_file.put_line(handle,n(wddc.DELIV_ID)||'&d'||n(wddc.TRIP_ID)||'&d');utl_file.put_line(handle,n(wddc.ITEM_ID)||'&d'||n(wddc.ITEM)||'&d');utl_file.put_line(handle,n(wddc.CF)||'&d'||n(wddc.CONT_NAME)||'&d');utl_file.put_line(handle,n(wddc.CONT_TYPE)||'&d'||n(wddc.FL_PER)||'&d');utl_file.put_line(handle,n(wddc.GRS_WT)||'&d'||n(wddc.NET_WT)||'&d');utl_file.put_line(handle,n(wddc.WT_UOM)||'&d'||n(wddc.VOL)||'&d');utl_file.put_line(handle,n(wddc.VOL_UOM)||'&d'||n(wddc.SRQ_Q)||'&d');utl_file.put_line(handle,n(wddc.REQ_Q)||'&d'||n(wddc.SHP_Q)||'&d');utl_file.put_line(handle,n(wddc.DLV_Q)||'&d'||n(wddc.CAN_Q)||'&d');utl_file.put_line(handle,n(wddc.INI)||'&d'||n(wddc.OMI)||'&d');utl_file.put_line(handle,n(wddc.SH_FROM_ID)||'&d'||n(wddc.SH_TO_ID)||'&d');utl_file.put_line(handle,n(wddc.WH_ID)||'&d'||n(wddc.SHIP_METH)||'&d');utl_file.put_line(handle,n(wddc.CRE_DT)||'&d'||n(wddc.FOB_CODE)||'&d');utl_file.put_line(handle,n(wddc.FRT_TERMS)||'&d'||n(wddc.SPL_DEL_DET_ID)||'&d');utl_file.put_line(handle,n(wddc.LPN_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f WSH_SERIAL_NUMBERS (WSN) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh ERR_FLAG &dh DEL_DET_ID &dh REL_STATUS &dh LINE &dh LINE_ID &dh ITEM_ID &dh SRQ_Q &dh SRQ_U &dh REQ_Q &dh');UTL_FILE.PUT_LINE(handle,'REQ_U &dh PIK_Q &dh SHP_Q &dh DLV_Q &dh CAN_Q &dh INI &dh OMI &dh STA &dh STB &dh WH_ID &dh CUR_SUB &dh');UTL_FILE.PUT_LINE(handle,'ORG_SUB &dh REV &dh LOT &dh SERIAL &dh LOC_ID &dh SPL_DEL_DET_ID &dh FROM_SERIAL &dh TO_SERIAL &dh SERIAL_QTY &dh ');UTL_FILE.PUT_LINE(handle,'CREATION_DATE &eh');Declare cursor w_serial_n isselect distinct DET.DELIVERY_DETAIL_ID DEL_DET_ID,DET.RELEASED_STATUS REL_STATUS_C,decode(DET.RELEASED_STATUS,'Y','Y=Staged','R','R=Ready to Release','S','S=Rel to Warhouse','B','B=Backorder','P','P=Pending Inv','C','C=Shipped','N','N=Not Ready','D','D=Cancelled','X','X=Not Applicable','Unknown: '||DET.RELEASED_STATUS) REL_STATUS,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,DET.SOURCE_LINE_ID LINE_ID,DET.INVENTORY_ITEM_ID ITEM_ID,nvl(DET.SRC_REQUESTED_QUANTITY,0) SRQ_Q,SRC_REQUESTED_QUANTITY_UOM SRQ_U,nvl(DET.REQUESTED_QUANTITY,0) REQ_Q,SRC_REQUESTED_QUANTITY_UOM REQ_U,nvl(DET.SHIPPED_QUANTITY,0) SHP_Q,nvl(DET.DELIVERED_QUANTITY,0) DLV_Q,nvl(DET.CANCELLED_QUANTITY,0) CAN_Q,nvl(DET.INV_INTERFACED_FLAG,'N') INI,nvl(DET.OE_INTERFACED_FLAG,'N') OMI,DET.SHIP_TOLERANCE_ABOVE STA,DET.SHIP_TOLERANCE_BELOW STB,DET.ORGANIZATION_ID WH_ID,DET.SUBINVENTORY CUR_SUB,DET.ATTRIBUTE15 ORG_SUB,DET.REVISION REV,DET.LOT_NUMBER LOT,DET.SERIAL_NUMBER SERIAL,DET.LOCATOR_ID LOC_ID,DET.SPLIT_FROM_DELIVERY_DETAIL_ID SPL_DEL_DET_ID,DET.PICKED_QUANTITY PICKED_QUANTITY,substr(wsn.fm_serial_number,1,15) FROM_SERIAL,substr(wsn.to_serial_number,1,15) TO_SERIAL,wsn.quantity WSN_QTY,to_char(wsn.creation_date,'DD-MON-RR_HH24:MI:SS') WSN_CRE_DATEFROM OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_SERIAL_NUMBERS WSNwhere DET.DELIVERY_DETAIL_ID = WSN.DELIVERY_DETAIL_IDand DET.SOURCE_LINE_ID = LIN.LINE_ID and DET.SOURCE_CODE = 'OE'and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and (substr(UPPER(nvl('&det_cnt','Y')),1,1) = 'Y' or rownum <= 10);r_uom_lin varchar2(10);r_qshp_lin number;r_sta_lin varchar2(100);r_mtl_trn varchar2(100);type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..1loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. No verifications yet.';-- end if;for dd in w_serial_nloop:r_flag := '';-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then-- Include verifications here-- Select nvl(mtl_transactions_enabled_flag,'N')-- into r_mtl_trn-- from Mtl_System_items-- where Inventory_item_Id = dd.ITEM_ID-- and Organization_Id = dd.WH_ID;-- if dd.PICKABLE_FLAG <> r_mtl_trn then-- :r_flag := :r_flag || '1 ';-- msg(1).flag := '1';-- end if;-- end if; -- do_analysis----- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d ');utl_file.put_line(handle,n(dd.DEL_DET_ID)||' &d ');utl_file.put_line(handle,n(dd.REL_STATUS)||' &d '||n(dd.LINE)||' &d ');utl_file.put_line(handle,''||n(dd.LINE_ID)||' &d ');utl_file.put_line(handle,n(dd.ITEM_ID)||' &d');utl_file.put_line(handle,n(dd.SRQ_Q)||'&d'||n(dd.SRQ_U)||' &d ');utl_file.put_line(handle,n(dd.REQ_Q)||'&d'||n(dd.REQ_U)||' &d ');utl_file.put_line(handle,n(dd.PICKED_QUANTITY)||' &d');utl_file.put_line(handle,n(dd.SHP_Q)||'&d'||n(dd.DLV_Q)||' &d');utl_file.put_line(handle,n(dd.CAN_Q)||'&d'||n(dd.INI)||' &d');utl_file.put_line(handle,n(dd.OMI)||'&d'||n(dd.STA)||' &d');utl_file.put_line(handle,n(dd.STB)||'&d');utl_file.put_line(handle,n(dd.WH_ID)||'&d'||n(dd.CUR_SUB)||' &d');utl_file.put_line(handle,n(dd.ORG_SUB)||'&d'||n(dd.REV)||' &d');utl_file.put_line(handle,n(dd.LOT)||'&d'||n(dd.SERIAL)||' &d');utl_file.put_line(handle,n(dd.LOC_ID)||'&d'||n(dd.SPL_DEL_DET_ID)||' &d');utl_file.put_line(handle,n(dd.FROM_SERIAL)||'&d'||n(dd.TO_SERIAL)||' &d');utl_file.put_line(handle,n(dd.WSN_QTY)||'&d'||n(dd.WSN_CRE_DATE)||' &el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Error List: &eb &f');for i in 1..1loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WSH_FREIGHT_COSTS (CST) &f');UTL_FILE.PUT_LINE(handle,'&std &sh FRT_CST_ID &dh FRT_NAME &dh FRT_TYPE &dh FRT_LEVEL &dh QTY &dh UNIT_AMT &dh TOT_AMT &dh ENTITY_ID &eh');Declarecursor w_fre_cst isselect distinct wfc.FREIGHT_COST_ID FRT_CST_ID, wfc.FREIGHT_COST_TYPE FRT_NAME,lkp.Meaning FRT_TYPE,'DELIV_DETAIL' FRT_LEVEL,wfc.QUANTITY QTY, wfc.UNIT_AMOUNT UNIT_AMT, wfc.TOTAL_AMOUNT TOT_AMT, wfc.DELIVERY_DETAIL_ID ENTITY_IDfrom wsh_freight_costs_v wfc,wsh_freight_cost_types wft,fnd_lookup_values lkp,OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,fnd_languages FLAWHEREwfc.freight_cost_type_id = wft.freight_cost_type_id ANDwft.freight_cost_type_code = lkp.lookup_code ANDlkp.lookup_type = 'FREIGHT_COST_TYPE' ANDlkp.LANGUAGE = FLA.LANGUAGE_CODE ANDFLA.INSTALLED_FLAG = 'B' ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID) ANDWFC.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID UNION ALLselect distinctwfc.FREIGHT_COST_ID FRT_CST_ID, wfc.FREIGHT_COST_TYPE FRT_NAME,lkp.Meaning FRT_TYPE,'DELIVERY' FRT_LEVEL,wfc.QUANTITY QTY, wfc.UNIT_AMOUNT UNIT_AMT, wfc.TOTAL_AMOUNT TOT_AMT, wfc.DELIVERY_ID ENTITY_IDfrom wsh_freight_costs_v wfc,wsh_freight_cost_types wft,fnd_lookup_values lkp,OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,--WSH_NEW_DELIVERIES DEL,--WSH_DELIVERY_LEGS LEG,--WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASG,fnd_languages FLAWHEREwfc.freight_cost_type_id = wft.freight_cost_type_id ANDwft.freight_cost_type_code = lkp.lookup_code ANDlkp.lookup_type = 'FREIGHT_COST_TYPE' ANDlkp.LANGUAGE = FLA.LANGUAGE_CODE ANDFLA.INSTALLED_FLAG = 'B' AND--DEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND -- STP.STOP_ID = LEG.PICK_UP_STOP_ID AND-- LEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID) ANDWFC.DELIVERY_ID = ASG.DELIVERY_ID ANDWFC.DELIVERY_DETAIL_ID IS NULLUNION ALLselect distinct wfc.FREIGHT_COST_ID FRT_CST_ID, wfc.FREIGHT_COST_TYPE FRT_NAME,lkp.Meaning FRT_TYPE,'LEG' FRT_LEVEL,wfc.QUANTITY QTY, wfc.UNIT_AMOUNT UNIT_AMT, wfc.TOTAL_AMOUNT TOT_AMT, wfc.DELIVERY_LEG_ID ENTITY_IDfrom wsh_freight_costs_v wfc,wsh_freight_cost_types wft,fnd_lookup_values lkp,OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,--WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASG,fnd_languages FLAWHEREwfc.freight_cost_type_id = wft.freight_cost_type_id ANDwft.freight_cost_type_code = lkp.lookup_code ANDlkp.lookup_type = 'FREIGHT_COST_TYPE' ANDlkp.LANGUAGE = FLA.LANGUAGE_CODE ANDFLA.INSTALLED_FLAG = 'B' ANDDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND -- STP.STOP_ID = LEG.PICK_UP_STOP_ID ANDLEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID) ANDWFC.DELIVERY_LEG_ID = LEG.DELIVERY_LEG_ID ANDWFC.DELIVERY_DETAIL_ID IS NULL ANDWFC.DELIVERY_ID IS NULLUNION ALLselect distinctwfc.FREIGHT_COST_ID FRT_CST_ID, wfc.FREIGHT_COST_TYPE FRT_NAME,lkp.Meaning FRT_TYPE,'STOP' FRT_LEVEL,wfc.QUANTITY QTY, wfc.UNIT_AMOUNT UNIT_AMT, wfc.TOTAL_AMOUNT TOT_AMT, wfc.STOP_ID ENTITY_IDfrom wsh_freight_costs_v wfc,wsh_freight_cost_types wft,fnd_lookup_values lkp,OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASG,fnd_languages FLAWHEREwfc.freight_cost_type_id = wft.freight_cost_type_id ANDwft.freight_cost_type_code = lkp.lookup_code ANDlkp.lookup_type = 'FREIGHT_COST_TYPE' ANDlkp.LANGUAGE = FLA.LANGUAGE_CODE ANDFLA.INSTALLED_FLAG = 'B' ANDDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND STP.STOP_ID = LEG.PICK_UP_STOP_ID ANDLEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID) ANDWFC.STOP_ID = STP.STOP_ID ANDWFC.DELIVERY_DETAIL_ID IS NULL ANDWFC.DELIVERY_ID IS NULL ANDWFC.DELIVERY_LEG_ID IS NULLUNION ALLselect distinctwfc.FREIGHT_COST_ID FRT_CST_ID, wfc.FREIGHT_COST_TYPE FRT_NAME,lkp.Meaning FRT_TYPE,'TRIP' FRT_LEVEL,wfc.QUANTITY QTY, wfc.UNIT_AMOUNT UNIT_AMT, wfc.TOTAL_AMOUNT TOT_AMT, wfc.TRIP_ID ENTITY_IDfrom wsh_freight_costs_v wfc,wsh_freight_cost_types wft,fnd_lookup_values lkp,OE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_NEW_DELIVERIES DEL,WSH_DELIVERY_LEGS LEG,WSH_TRIP_STOPS STP,WSH_DELIVERY_ASSIGNMENTS ASG,fnd_languages FLAWHEREwfc.freight_cost_type_id = wft.freight_cost_type_id ANDwft.freight_cost_type_code = lkp.lookup_code ANDlkp.lookup_type = 'FREIGHT_COST_TYPE' ANDlkp.LANGUAGE = FLA.LANGUAGE_CODE ANDFLA.INSTALLED_FLAG = 'B' ANDDEL.DELIVERY_ID = ASG.DELIVERY_ID ANDASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID ANDDET.SOURCE_LINE_ID = LIN.LINE_ID AND STP.STOP_ID = LEG.PICK_UP_STOP_ID ANDLEG.DELIVERY_ID = DEL.DELIVERY_ID AND LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) ANDNVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID) ANDWFC.TRIP_ID = STP.TRIP_ID ANDWFC.DELIVERY_DETAIL_ID IS NULL ANDWFC.DELIVERY_ID IS NULL ANDWFC.STOP_ID IS NULL ANDWFC.DELIVERY_LEG_ID IS NULL;beginfor wfc in w_fre_cstlooputl_file.put_line(handle,'&sld'||n(wfc.FRT_CST_ID)||'&d'||n(wfc.FRT_NAME)||'&d');utl_file.put_line(handle,n(wfc.FRT_TYPE)||'&d'||n(wfc.FRT_LEVEL)||'&d');utl_file.put_line(handle,n(wfc.QTY)||'&d'||n(wfc.UNIT_AMT)||'&d');utl_file.put_line(handle,n(wfc.TOT_AMT)||'&d'||n(wfc.ENTITY_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');-- Output for table WSH_EXCEPTIONS being commented by Dev. request to improve performance ----UTL_FILE.PUT_LINE(handle,'&f &f WSH_EXCEPTIONS (EXC) &f--UTL_FILE.PUT_LINE(handle,'NOTE: THESE ARE BASED STRICTLY ON REQUEST_ID, SO MESSAGES MAY NOT APPLY TO THIS SHIPPING TRANSACTION &f----column EXCEPT_NAME format a20;--column EXC_STATUS format a18;--column ERROR_MSG format a30;----UTL_FILE.PUT_LINE(handle,'&std &sh EXCEPT_ID &dh EXCEPT_NAME &dh SEV &dh EXC_STATUS &dh TRIP_ID &dh STOP_ID &dh DELIV_ID &dh DEL_DET_ID &dh--UTL_FILE.PUT_LINE(handle,'ERROR_MSG &dh REQUEST_ID &dh MESSAGE &eh----select distinct '&sld',-- EXCEPTION_ID EXCEPT_ID, -- EXCEPTION_NAME EXCEPT_NAME, -- SEVERITY SEV, -- STATUS EXC_STATUS, -- TRIP_ID TRIP_ID, -- TRIP_STOP_ID STOP_ID, -- DELIVERY_ID DELIV_ID, -- DELIVERY_DETAIL_ID DEL_DET_ID, -- ERROR_MESSAGE ERROR_MSG,-- REQUEST_ID REQUEST_ID,-- MESSAGE MESSAGE,'&el'--FROM WSH_EXCEPTIONS EXC--where STATUS <> 'NO_ACTION_REQUIRED'-- and EXC.REQUEST_ID IN (-- select DET.request_id-- from OE_ORDER_LINES LIN,-- WSH_DELIVERY_DETAILS DET-- WHERE-- DET.SOURCE_LINE_ID = LIN.LINE_ID AND -- LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) AND-- NVL('&line_id_selected',0) in (0,LIN.LINE_ID,-- LIN.TOP_MODEL_LINE_ID,-- LIN.ATO_LINE_ID,-- LIN.LINK_TO_LINE_ID,-- LIN.REFERENCE_LINE_ID,-- LIN.SERVICE_REFERENCE_LINE_ID)-- UNION ALL-- select ASG.REQUEST_ID-- from OE_ORDER_LINES LIN,-- WSH_DELIVERY_DETAILS DET,-- WSH_DELIVERY_ASSIGNMENTS ASG-- WHERE-- ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID AND-- DET.SOURCE_LINE_ID = LIN.LINE_ID AND -- LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) AND-- NVL('&line_id_selected',0) in (0,LIN.LINE_ID,-- LIN.TOP_MODEL_LINE_ID,-- LIN.ATO_LINE_ID,-- LIN.LINK_TO_LINE_ID,-- LIN.REFERENCE_LINE_ID,-- LIN.SERVICE_REFERENCE_LINE_ID) -- UNION ALL-- select LEG.REQUEST_ID-- from OE_ORDER_LINES LIN,-- WSH_DELIVERY_DETAILS DET,-- WSH_NEW_DELIVERIES DEL,-- WSH_DELIVERY_LEGS LEG,-- WSH_DELIVERY_ASSIGNMENTS ASG-- WHERE-- DEL.DELIVERY_ID = ASG.DELIVERY_ID AND-- ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID AND-- DET.SOURCE_LINE_ID = LIN.LINE_ID AND -- LEG.DELIVERY_ID = DEL.DELIVERY_ID AND -- LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) AND-- NVL('&line_id_selected',0) in (0,LIN.LINE_ID,-- LIN.TOP_MODEL_LINE_ID,-- LIN.ATO_LINE_ID,-- LIN.LINK_TO_LINE_ID,-- LIN.REFERENCE_LINE_ID,-- LIN.SERVICE_REFERENCE_LINE_ID) -- UNION ALL-- select STP.REQUEST_ID-- from OE_ORDER_LINES LIN,-- WSH_DELIVERY_DETAILS DET,-- WSH_NEW_DELIVERIES DEL, WSH_DELIVERY_LEGS LEG,-- WSH_TRIP_STOPS STP,-- WSH_DELIVERY_ASSIGNMENTS ASG-- WHERE DEL.DELIVERY_ID = ASG.DELIVERY_ID AND-- ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID AND-- DET.SOURCE_LINE_ID = LIN.LINE_ID AND -- STP.STOP_ID = LEG.PICK_UP_STOP_ID AND-- LEG.DELIVERY_ID = DEL.DELIVERY_ID AND -- LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) AND-- NVL('&line_id_selected',0) in (0,LIN.LINE_ID,-- LIN.TOP_MODEL_LINE_ID,-- LIN.ATO_LINE_ID,-- LIN.LINK_TO_LINE_ID,-- LIN.REFERENCE_LINE_ID,-- LIN.SERVICE_REFERENCE_LINE_ID)-- UNION ALL-- select TRP.REQUEST_ID-- from OE_ORDER_LINES LIN,-- WSH_DELIVERY_DETAILS DET,-- WSH_NEW_DELIVERIES DEL,-- WSH_DELIVERY_LEGS LEG,-- WSH_TRIP_STOPS STP,-- WSH_TRIPS TRP,-- WSH_DELIVERY_ASSIGNMENTS ASG-- WHERE DEL.DELIVERY_ID = ASG.DELIVERY_ID AND-- ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID AND-- DET.SOURCE_LINE_ID = LIN.LINE_ID AND -- STP.STOP_ID = LEG.PICK_UP_STOP_ID AND-- TRP.TRIP_ID = STP.TRIP_ID AND-- LEG.DELIVERY_ID = DEL.DELIVERY_ID AND -- LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) AND-- NVL('&line_id_selected',0) in (0,LIN.LINE_ID,-- LIN.TOP_MODEL_LINE_ID,-- LIN.ATO_LINE_ID,-- LIN.LINK_TO_LINE_ID,-- LIN.REFERENCE_LINE_ID,-- LIN.SERVICE_REFERENCE_LINE_ID) --);--end if; -- :v_head_onlyUTL_FILE.FCLOSE(handle);end;/DECLAREhandle UTL_FILE.FILE_TYPE;dirname varchar2(1000);text varchar2(1000);function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin-- Append to output filehandle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failedIf :v_head_only = 'N' then if substr(UPPER(nvl('&prt_wms','N')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f WMS_RULES &f');UTL_FILE.PUT_LINE(handle,'&std &sh RULE ID &dh CREATE DATE &dh ORG_ID &dh TYPE CODE &dh NAME &dh ');UTL_FILE.PUT_LINE(handle,'DESCRIPTION &dh QTY_FUNCT PARAM &dh ENABLED FLAG &dh USER FLAG &dh TYPE HRD_ID &dh ');UTL_FILE.PUT_LINE(handle,'RULE WEIGHT &dh ATTR CATEG &dh MIN_PICK TASK &dh ALLOCAT MODE &eh ');-- UTL_FILE.PUT_LINE(handle,'RULE WEIGHT &dh ATTR CATEG &dh MIN_PICK TASK &dh ALLOCAT MODE &dh WMS_ENABLED FLAG &eh ');Declare cursor wms_r isSelectWMSR.RULE_ID ruleid,WMSR.CREATION_DATE credt,WMSR.ORGANIZATION_ID orgid,WMSR.TYPE_CODE typc,WMSR.NAME nam,WMSR.DESCRIPTION des,WMSR.QTY_FUNCTION_PARAMETER_ID qty_funct,WMSR.ENABLED_FLAG enabf,WMSR.USER_DEFINED_FLAG userf,WMSR.TYPE_HDR_ID typh,WMSR.RULE_WEIGHT rulew,WMSR.ATTRIBUTE_CATEGORY attrcat,WMSR.MIN_PICK_TASKS_FLAG minpick,WMSR.ALLOCATION_MODE_ID allom-- WMSR.WMS_ENABLED_FLAG wmsfFROM WMS_RULES WMSR,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LINwhere DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_IDand DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);beginfor wms in wms_rloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(wms.ruleid)||' &d ');utl_file.put_line(handle,n(wms.credt)||' &d ');utl_file.put_line(handle,n(wms.orgid)||' &d '||n(wms.typc)||' &d ');utl_file.put_line(handle,n(wms.nam)||' &d '||n(wms.des)||' &d ');utl_file.put_line(handle,n(wms.qty_funct)||' &d '||n(wms.enabf)||' &d ');utl_file.put_line(handle,n(wms.userf)||' &d '||n(wms.typh)||' &d ');utl_file.put_line(handle,n(wms.rulew)||' &d '||n(wms.attrcat)||' &d ');utl_file.put_line(handle,n(wms.minpick)||' &d '||n(wms.allom)||' &el ');-- utl_file.put_line(handle,n(wms.wmsf)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WMS_RULE_CONSISTENCIES &f');UTL_FILE.PUT_LINE(handle,'&std &sh RULE ID &dh CONSISTENCY ID &dh PARAMETER ID &dh CREATE DATE &dh ATTR CATEG &eh ');Declare cursor wms_rc isSelect WRC.RULE_ID ruleid,WRC.CONSISTENCY_ID consid,WRC.PARAMETER_ID paramid,WRC.CREATION_DATE credt,WRC.ATTRIBUTE_CATEGORY attrcatFROM WMS_RULE_CONSISTENCIES WRC,WMS_RULES WMSR,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LINWHERE WRC.RULE_ID = WMSR.RULE_IDand DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_IDand DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)ORDER BY 1;beginfor wms in wms_rcloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(wms.ruleid)||' &d ');utl_file.put_line(handle,n(wms.consid)||' &d '||n(wms.paramid)||' &d ');utl_file.put_line(handle,n(wms.credt)||' &d '||n(wms.attrcat)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WMS_RESTRICTIONS &f');UTL_FILE.PUT_LINE(handle,'&std &sh RULE ID &dh SEQUENCE NUMBER &dh CREATE DATE &dh PARAMETER ID &dh ');UTL_FILE.PUT_LINE(handle,'OPERAND CODE &dh OPERAND TYPE &dh OPER_NUMBER CONSTANT &dh OPER_CHAR CONSTANT &dh ');UTL_FILE.PUT_LINE(handle,'OPER_DATE CONSTANT &dh OPER PARAM_ID &dh OPER EXPRESSION &dh OPER_FLEX VALUE_SET &dh ');UTL_FILE.PUT_LINE(handle,'LOGICAL OPER_CODE &dh BRACKET OPEN &dh BRACKET CLOSE &dh ATTR CATEG &eh ');Declare cursor wms_res isSelect WRES.RULE_ID ruleid,WRES.SEQUENCE_NUMBER seqno, WRES.CREATION_DATE credt,WRES.PARAMETER_ID paramid,WRES.OPERATOR_CODE opcode,WRES.OPERAND_TYPE_CODE optype,WRES.OPERAND_CONSTANT_NUMBER opnum,WRES.OPERAND_CONSTANT_CHARACTER opchar,WRES.OPERAND_CONSTANT_DATE opdate,WRES.OPERAND_PARAMETER_ID oppar,WRES.OPERAND_EXPRESSION opexp,WRES.OPERAND_FLEX_VALUE_SET_ID opfvs,WRES.LOGICAL_OPERATOR_CODE logop,WRES.BRACKET_OPEN braop,WRES.BRACKET_CLOSE bracl,WRES.ATTRIBUTE_CATEGORY attrcatFROM WMS_RESTRICTIONS WRES,WMS_RULES WMSR,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LINWHERE WRES.RULE_ID = WMSR.RULE_IDand DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_IDand DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)ORDER BY 1;beginfor wms in wms_resloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(wms.ruleid)||' &d ');utl_file.put_line(handle,n(wms.seqno)||' &d '||n(wms.credt)||' &d ');utl_file.put_line(handle,n(wms.paramid)||' &d '||n(wms.opcode)||' &d ');utl_file.put_line(handle,n(wms.optype)||' &d '||n(wms.opnum)||' &d ');utl_file.put_line(handle,n(wms.opchar)||' &d '||n(wms.opdate)||' &d ');utl_file.put_line(handle,n(wms.oppar)||' &d '||n(wms.opexp)||' &d ');utl_file.put_line(handle,n(wms.opfvs)||' &d '||n(wms.logop)||' &d ');utl_file.put_line(handle,n(wms.braop)||' &d '||n(wms.bracl)||' &d ');utl_file.put_line(handle,n(wms.attrcat)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WMS_SORT_CRITERIA &f');UTL_FILE.PUT_LINE(handle,'&std &sh RULE ID &dh SEQUENCE NUMBER &dh CREATE DATE &dh PARAMETER ID &dh ');UTL_FILE.PUT_LINE(handle,'OPERAND CODE &dh ATTR CATEG &eh ');Declare cursor wms_sc isSelect WSOC.RULE_ID ruleid,WSOC.SEQUENCE_NUMBER seqno,WSOC.CREATION_DATE credt,WSOC.PARAMETER_ID paramid,WSOC.ORDER_CODE opcode,WSOC.ATTRIBUTE_CATEGORY attrcatFROM WMS_SORT_CRITERIA WSOC,WMS_RULES WMSR,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LINWHERE WSOC.RULE_ID = WMSR.RULE_IDand DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_IDand DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)ORDER BY 1;beginfor wms in wms_scloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(wms.ruleid)||' &d ');utl_file.put_line(handle,n(wms.seqno)||' &d '||n(wms.credt)||' &d ');utl_file.put_line(handle,n(wms.paramid)||' &d '||n(wms.opcode)||' &d ');utl_file.put_line(handle,n(wms.attrcat)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f WMS_SELECTION_CRITERIA_TXN_V &f');UTL_FILE.PUT_LINE(handle,'&std &sh SEQUENCE NUMBER &dh RULE TYPE_CODE &dh RULE TYPE &dh RETURN TYPE &dh ');UTL_FILE.PUT_LINE(handle,'RETURN TYPE_ID &dh RETURN TYPE_NAME &dh ENABLED FLAG &dh DATE TYPE_COD &dh ');UTL_FILE.PUT_LINE(handle,'DATE TYPE_FROM &dh DATE TYPE_TO &dh DATE_TYPE LOOKUP_TYPE &dh EFFECTIVE FROM &dh ');UTL_FILE.PUT_LINE(handle,'EFFECTIVE TO &dh FROM ORGANIZATION_ID &dh FROM ORGANIZATION_CODE &dh FROM SUBINVENT_NAME &dh ');UTL_FILE.PUT_LINE(handle,'TO ORGANIZATION_ID &dh TO ORGANIZATION_CODE &dh TO SUBINVENT_NAME &dh CUSTOMER ID &dh ');UTL_FILE.PUT_LINE(handle,'CUSTOMER NAME &dh FREIGHT CODE &dh FREIGHT CODE_NAME &dh INVENTORY ITEM_ID &dh ITEM &dh ');UTL_FILE.PUT_LINE(handle,'ITEM TYPE &dh ITEM TYPE_NAME &dh ASSIGNMENT GROUP_ID &dh ABC CLASS_ID &dh ');UTL_FILE.PUT_LINE(handle,'ABC_GROUP CLASS_NAME &dh CATEGORY SET_ID &dh CATEGORY ID &dh CATEGORY SET_NAME &dh ');UTL_FILE.PUT_LINE(handle,'ORDER TYPE_ID &dh ORDER TYPE_NAME &dh VENDOR ID &dh VENDOR NAME &dh PROJECT ID &dh ');UTL_FILE.PUT_LINE(handle,'PROJECT NAME &dh TASK ID &dh TASK NAME &dh USER ID &dh USER NAME &dh TRANSACTION ACTION_ID &dh ');UTL_FILE.PUT_LINE(handle,'TRANSACTION ACTION_NAME &dh REASON ID &dh REASON NAME &dh TRANSACTION SOURCE_TYPE_ID &dh ');UTL_FILE.PUT_LINE(handle,'TRANSACTION_SOURCE TYPE_NAME &dh TRANSACTION TYPE_ID &dh TRANSACTION TYPE_NAME &dh ');UTL_FILE.PUT_LINE(handle,'UOM_CODE &dh UNIT_OF MEASURE &dh UOM CLASS &dh UOM_CLASS NAME &dh CREATION DATE &eh ');--UTL_FILE.PUT_LINE(handle,'WMS_ENABLED FLAG &dh LOCATION ID &dh LOCATION NAME &eh ');Declare cursor wms_sct isSelect WSCT.STG_ASSIGNMENT_ID stgasg,WSCT.SEQUENCE_NUMBER seqno,WSCT.RULE_TYPE_CODE rultyco,WSCT.RULE_TYPE rulty,WSCT.RETURN_TYPE retty,WSCT.RETURN_TYPE_ID rettyid,WSCT.RETURN_TYPE_NAME rettyna,WSCT.ENABLED_FLAG enaf,WSCT.DATE_TYPE_CODE dttyco,WSCT.DATE_TYPE_FROM dttyfr,WSCT.DATE_TYPE_TO dttyto,WSCT.DATE_TYPE_LOOKUP_TYPE dttylty,WSCT.EFFECTIVE_FROM efffr,WSCT.EFFECTIVE_TO effto,WSCT.FROM_ORGANIZATION_ID frorgid,WSCT.FROM_ORGANIZATION_CODE frorgco,WSCT.FROM_SUBINVENTORY_NAME frsubna,WSCT.TO_ORGANIZATION_ID toorgid,WSCT.TO_ORGANIZATION_CODE toorgco,WSCT.TO_SUBINVENTORY_NAME tosubna,WSCT.CUSTOMER_ID cusid,WSCT.CUSTOMER_NAME cusna,WSCT.FREIGHT_CODE fcod,WSCT.FREIGHT_CODE_NAME fcna,WSCT.INVENTORY_ITEM_ID inviid,WSCT.ITEM it,WSCT.ITEM_TYPE ityp,WSCT.ITEM_TYPE_NAME itypna,WSCT.ASSIGNMENT_GROUP_ID assgid,WSCT.ABC_CLASS_ID abcid,WSCT.ABC_GROUP_CLASS_NAME abcna,WSCT.CATEGORY_SET_ID csid,WSCT.CATEGORY_ID catid,WSCT.CATEGORY_SET_NAME csna,WSCT.ORDER_TYPE_ID otid,WSCT.ORDER_TYPE_NAME otna,WSCT.VENDOR_ID vid,WSCT.VENDOR_NAME vna,WSCT.PROJECT_ID pid,WSCT.PROJECT_NAME pna,WSCT.TASK_ID tid,WSCT.TASK_NAME tna,WSCT.USER_ID usid,WSCT.USER_NAME usna,WSCT.TRANSACTION_ACTION_ID taid,WSCT.TRANSACTION_ACTION_NAME tana,WSCT.REASON_ID resid,WSCT.REASON_NAME resna,WSCT.TRANSACTION_SOURCE_TYPE_ID tstid, WSCT.TRANSACTION_SOURCE_TYPE_NAME tstna,WSCT.TRANSACTION_TYPE_ID ttid,WSCT.TRANSACTION_TYPE_NAME ttna,WSCT.UOM_CODE uomco,WSCT.UNIT_OF_MEASURE uomna,WSCT.UOM_CLASS uomcl,WSCT.UOM_CLASS_NAME uomclna,WSCT.CREATION_DATE credt-- WSCT.WMS_ENABLED_FLAG wmsef,-- WSCT.LOCATION_ID locid,-- WSCT.LOCATION_NAME locnaFROM WMS_SELECTION_CRITERIA_TXN_V WSCT,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LINwhere DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and WSCT.FROM_ORGANIZATION_ID = DET.ORGANIZATION_IDand DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);beginfor wms in wms_sctloopif substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;end if; -- do_analysis-- Print line to Output fileutl_file.put_line(handle,'&sld '||n(wms.stgasg)||' &d ');utl_file.put_line(handle,n(wms.seqno)||' &d '||n(wms.rultyco)||' &d ');utl_file.put_line(handle,n(wms.rulty)||' &d '||n(wms.retty)||' &d ');utl_file.put_line(handle,n(wms.rettyid)||' &d '||n(wms.rettyna)||' &d ');utl_file.put_line(handle,n(wms.enaf)||' &d '||n(wms.dttyco)||' &d ');utl_file.put_line(handle,n(wms.dttyfr)||' &d '||n(wms.dttyto)||' &d ');utl_file.put_line(handle,n(wms.dttylty)||' &d '||n(wms.efffr)||' &d ');utl_file.put_line(handle,n(wms.effto)||' &d '||n(wms.frorgid)||' &d ');utl_file.put_line(handle,n(wms.frorgco)||' &d '||n(wms.frsubna)||' &d ');utl_file.put_line(handle,n(wms.toorgid)||' &d '||n(wms.toorgco)||' &d ');utl_file.put_line(handle,n(wms.tosubna)||' &d '||n(wms.cusid)||' &d ');utl_file.put_line(handle,n(wms.cusna)||' &d '||n(wms.fcod)||' &d ');utl_file.put_line(handle,n(wms.fcna)||' &d '||n(wms.inviid)||' &d ');utl_file.put_line(handle,n(wms.it)||' &d '||n(wms.ityp)||' &d ');utl_file.put_line(handle,n(wms.itypna)||' &d '||n(wms.assgid)||' &d ');utl_file.put_line(handle,n(wms.abcid)||' &d '||n(wms.abcna)||' &d ');utl_file.put_line(handle,n(wms.csid)||' &d '||n(wms.catid)||' &d ');utl_file.put_line(handle,n(wms.csna)||' &d '||n(wms.vid)||' &d ');utl_file.put_line(handle,n(wms.otna)||' &d '||n(wms.pid)||' &d ');utl_file.put_line(handle,n(wms.vna)||' &d '||n(wms.tid)||' &d ');utl_file.put_line(handle,n(wms.pna)||' &d '||n(wms.usid)||' &d ');utl_file.put_line(handle,n(wms.usna)||' &d '||n(wms.taid)||' &d ');utl_file.put_line(handle,n(wms.tana)||' &d '||n(wms.resid)||' &d ');utl_file.put_line(handle,n(wms.resna)||' &d '||n(wms.tstid)||' &d ');utl_file.put_line(handle,n(wms.tstna)||' &d '||n(wms.ttid)||' &d ');utl_file.put_line(handle,n(wms.ttna)||' &d '||n(wms.uomco)||' &d ');utl_file.put_line(handle,n(wms.uomna)||' &d '||n(wms.uomcl)||' &d ');utl_file.put_line(handle,n(wms.uomclna)||' &d '||n(wms.credt)||' &el ');-- utl_file.put_line(handle,n(wms.wmsef)||' &d '||n(wms.locid)||' &d ');-- utl_file.put_line(handle,n(wms.locna)||' &el ');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); end if; --prt_wmsif substr(UPPER(nvl('&prt_inv','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f MTL_TRANSACTIONS_INTERFACE (MTI) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh TRX_INT_ID &dh LINE &dh LINE_ID &dh DELIVERY DETAIL_ID &dh ITEM &dh PICKING LINE &dh TRANSACT TYPE &dh ');UTL_FILE.PUT_LINE(handle,'TRANSACTION DATE &dh PRIM QTY &dh FROM_SUB &dh FROM LOC_ID &dh PROCESS &dh LOCK &dh TRANSACTION MODE &dh LPN_ID &dh ');UTL_FILE.PUT_LINE(handle,'ERROR CODE &dh ERROR EXPLANATION &dh SECONDARY UOM_CODE &dh SECONDARY TRANS_QTY &DH ');UTL_FILE.PUT_LINE(handle,'ACCOUNT PERIOD_ID &dh PERIOD NAME &dh PERIOD OPEN &dh PERIOD START_DT &dh PERIOD CLOSE_DT ');UTL_FILE.PUT_LINE(handle,'&dh SCHEDULE CLOSE_DT &eh');Declarecursor mtl_trx_int isSELECT TMP.TRANSACTION_INTERFACE_ID TXN_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,LIN.LINE_ID LINE_ID,DET.DELIVERY_DETAIL_ID DEL_DETAIL_ID,ITM.SEGMENT1 ITEM,TMP.PICKING_LINE_ID PICK_LN_ID,decode(TMP.TRANSACTION_TYPE_ID,52,'52-Stage Trans',33,'33-SO Issue',15,'15-RMA Receipt',18,'18-PO Receipt',TMP.TRANSACTION_TYPE_ID||'-Unknown') TXN_TYPE,TMP.TRANSACTION_DATE TXN_DATE,TMP.PRIMARY_QUANTITY PRM_Q,TMP.SUBINVENTORY_CODE FROM_SUB,TMP.LOCATOR_ID FROM_LOC_ID,TMP.PROCESS_FLAG PROCESS,TMP.LOCK_FLAG LCK,TMP.TRANSACTION_MODE TRANS_MODE,TMP.CONTENT_LPN_ID LPN_ID,TMP.ERROR_CODE ERROR_CODE, TMP.ERROR_EXPLANATION ERROR_EXPL,TMP.SECONDARY_UOM_CODE SEC_UOM_CODE,TMP.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,TMP.ACCT_PERIOD_ID ACCT_PER,OAC.period_name per_name,OAC.open_flag open_fl,to_char(oac.period_start_date,'DD-MON-RR_HH24:MI:SS') per_sd,to_char(oac.period_close_date,'DD-MON-RR_HH24:MI:SS') per_cd,to_char(oac.schedule_close_date,'DD-MON-RR_HH24:MI:SS') sch_cdFROM MTL_TRANSACTIONS_INTERFACE TMP,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM,ORG_ACCT_PERIODS OACWHERE TMP.SOURCE_LINE_ID = LIN.LINE_IDand LIN.LINE_CATEGORY_CODE = 'ORDER' and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) and DET.SOURCE_LINE_ID = LIN.LINE_IDand TMP.PICKING_LINE_ID = DET.DELIVERY_DETAIL_ID(+)and TMP.ACCT_PERIOD_ID = OAC.acct_period_idand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLSELECT TMP.TRANSACTION_INTERFACE_ID TXN_ID,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,LIN.LINE_ID LINE_ID,DET.DELIVERY_DETAIL_ID DEL_DETAIL_ID,ITM.SEGMENT1 ITEM,TMP.PICKING_LINE_ID PICK_LN_ID,decode(TMP.TRANSACTION_TYPE_ID,52,'Stage Trans',33,'SO Issue',15,'RMA Receipt',18,'PO Receipt',TMP.TRANSACTION_TYPE_ID) TXN_TYPE,TMP.TRANSACTION_DATE TXN_DATE,TMP.PRIMARY_QUANTITY PRM_Q,TMP.SUBINVENTORY_CODE FROM_SUB,TMP.LOCATOR_ID FROM_LOC_ID,TMP.PROCESS_FLAG PROCESS,TMP.LOCK_FLAG LCK,TMP.TRANSACTION_MODE TRANS_MODE,TMP.CONTENT_LPN_ID LPN_ID,TMP.ERROR_CODE ERROR_CODE, TMP.ERROR_EXPLANATION ERROR_EXPL,TMP.SECONDARY_UOM_CODE SEC_UOM_CODE,TMP.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,TMP.ACCT_PERIOD_ID ACCT_PER,OAC.period_name per_name,OAC.open_flag open_fl,to_char(oac.period_start_date,'DD-MON-RR_HH24:MI:SS') per_sd,to_char(oac.period_close_date,'DD-MON-RR_HH24:MI:SS') per_cd,to_char(oac.schedule_close_date,'DD-MON-RR_HH24:MI:SS') sch_cdFROM MTL_TRANSACTIONS_INTERFACE TMP,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM,ORG_ACCT_PERIODS OACWHERE TMP.TRX_SOURCE_LINE_ID = LIN.LINE_IDand LIN.LINE_CATEGORY_CODE = 'RETURN' and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) and DET.SOURCE_LINE_ID = LIN.LINE_IDand TMP.PICKING_LINE_ID = DET.DELIVERY_DETAIL_ID(+)and TMP.ACCT_PERIOD_ID = OAC.acct_period_idand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor mti in mtl_trx_intlooputl_file.put_line(handle,'&sld'||n(mti.TXN_ID)||' &d ');utl_file.put_line(handle,n(mti.LINE)||' &d '||n(mti.LINE_ID)||' &d ');utl_file.put_line(handle,n(mti.DEL_DETAIL_ID)||' &d'||n(mti.ITEM)||' &d ');utl_file.put_line(handle,n(mti.PICK_LN_ID)||' &d'||n(mti.TXN_TYPE)||' &d ');utl_file.put_line(handle,n(mti.TXN_DATE)||' &d ');utl_file.put_line(handle,n(mti.PRM_Q)||' &d '||n(mti.FROM_SUB)||' &d ');utl_file.put_line(handle,n(mti.FROM_LOC_ID)||' &d '||n(mti.PROCESS)||' &d ');utl_file.put_line(handle,n(mti.LCK)||' &d '||n(mti.TRANS_MODE)||' &d ');utl_file.put_line(handle,n(mti.LPN_ID)||' &d '||n(mti.ERROR_CODE)||' &d ');utl_file.put_line(handle,n(mti.ERROR_EXPL)||' &d ');utl_file.put_line(handle,n(mti.SEC_UOM_CODE)||' &d '||n(mti.SEC_TRN_QTY)||' &d ');utl_file.put_line(handle,n(mti.ACCT_PER)||' &d '||n(mti.PER_NAME)||' &d ');utl_file.put_line(handle,n(mti.open_fl)||' &d '||n(mti.per_sd)||' &d ');utl_file.put_line(handle,n(mti.per_cd)||' &d '||n(mti.sch_cd)||' &el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f MTL_MATERIAL_TRANSACTIONS_TEMP (TMP) - UNPICKED LINES ');UTL_FILE.PUT_LINE(handle,'Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh MTL_TRNS_ID &dh TRANSACTION DATE &dh MOVE_LINE_ID &dh PICK_SLIP &dh LINE &dh LINE_ID &dh ITEM ');UTL_FILE.PUT_LINE(handle,'&dh PRM_Q &dh FROM_SUB &dh FROM_LOC_ID &dh ');UTL_FILE.PUT_LINE(handle,'TO_SUB &dh TO_LOC_ID &dh PROCESS &dh LCK &dh TRANS_MODE &dh ERROR_CODE &dh ERROR_EXPL &dh ');UTL_FILE.PUT_LINE(handle,'SECONDARY UOM_CODE &dh SECONDARY TRANS_QTY &dh LOT_NUM &dh LOT PRM_QTY &dh LOT SEC_QTY &eh ');-- UTL_FILE.PUT_LINE(handle,'LOT_CAL SEC_QTY &eh');Declarecursor mtl_trx_tmp isSELECT distinct TMP.TRANSACTION_TEMP_ID MTL_TRNS_ID,TMP.TRANSACTION_DATE MTL_TRNS_DATE,TMP.MOVE_ORDER_LINE_ID MOVE_LINE_ID,--'UNPICKED' LINE_STATUS,TMP.PICK_SLIP_NUMBER PICK_SLIP,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,LIN.LINE_ID LINE_ID,--DET.DELIVERY_DETAIL_ID DET_DELIVERY_ID,ITM.SEGMENT1 ITEM,TMP.PRIMARY_QUANTITY PRM_Q,TMP.SUBINVENTORY_CODE FROM_SUB,TMP.LOCATOR_ID FROM_LOC_ID,TMP.TRANSFER_SUBINVENTORY TO_SUB,TMP.TRANSFER_TO_LOCATION TO_LOC_ID,TMP.PROCESS_FLAG PROCESS,TMP.LOCK_FLAG LCK,TMP.TRANSACTION_MODE TRANS_MODE,TMP.ERROR_CODE ERROR_CODE, TMP.ERROR_EXPLANATION ERROR_EXPL,TMP.SECONDARY_UOM_CODE SEC_UOM_CODE,TMP.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,lot.lot_number lot_num,lot.primary_quantity lot_prm_q,lot.secondary_quantity lot_sec_q-- inv_convert.inv_um_convert(-- tmp.inventory_item_id,-- lot.lot_number,-- tmp.organization_id,-- 5,-- lot.primary_quantity,-- itm.primary_uom_code,-- tmp.secondary_uom_code,-- null, null) lot_cal_sec_qFROM MTL_MATERIAL_TRANSACTIONS_TEMP TMP,-- WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM, mtl_transaction_lots_temp lotWHERE TMP.DEMAND_SOURCE_LINE = LIN.LINE_IDand LIN.LINE_CATEGORY_CODE = 'ORDER' and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) and lot.transaction_temp_id (+)= tmp.transaction_temp_id-- and TMP.DEMAND_SOURCE_LINE = DET.SOURCE_LINE_ID(+) - Creates duplicates for lines with multiple Del_details.and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)UNION ALLSELECT distinct TMP.TRANSACTION_TEMP_ID MTL_TRNS_ID,TMP.TRANSACTION_DATE MTL_TRNS_DATE,TMP.MOVE_ORDER_LINE_ID MOVE_LINE_ID,--'UNPICKED' LINE_STATUS,TMP.PICK_SLIP_NUMBER PICK_SLIP,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,LIN.LINE_ID LINE_ID,-- DET.DELIVERY_DETAIL_ID DET_DELIVERY_ID,ITM.SEGMENT1 ITEM,TMP.PRIMARY_QUANTITY PRM_Q,TMP.SUBINVENTORY_CODE FROM_SUB,TMP.LOCATOR_ID FROM_LOC_ID,TMP.TRANSFER_SUBINVENTORY TO_SUB,TMP.TRANSFER_TO_LOCATION TO_LOC_ID,TMP.PROCESS_FLAG PROCESS,TMP.LOCK_FLAG LCK,TMP.TRANSACTION_MODE TRANS_MODE,TMP.ERROR_CODE ERROR_CODE, TMP.ERROR_EXPLANATION ERROR_EXPL,TMP.SECONDARY_UOM_CODE SEC_UOM_CODE,TMP.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,' ' lot_num,0 lot_prm_q,0 lot_sec_q-- 0 lot_cal_sec_qFROM MTL_MATERIAL_TRANSACTIONS_TEMP TMP,-- WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM WHERE TMP.TRX_SOURCE_LINE_ID = LIN.LINE_IDand LIN.LINE_CATEGORY_CODE = 'RETURN' and LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) -- and TMP.DEMAND_SOURCE_LINE = DET.SOURCE_LINE_ID(+)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor mtt in mtl_trx_tmplooputl_file.put_line(handle,'&sld'||n(mtt.MTL_TRNS_ID)||'&d'||n(mtt.MTL_TRNS_DATE)||'&d');utl_file.put_line(handle,n(mtt.MOVE_LINE_ID)||'&d');utl_file.put_line(handle,n(mtt.PICK_SLIP)||'&d'||n(mtt.LINE)||'&d');utl_file.put_line(handle,n(mtt.LINE_ID)||'&d'||n(mtt.ITEM)||'&d');utl_file.put_line(handle,n(mtt.PRM_Q)||'&d'||n(mtt.FROM_SUB)||'&d');utl_file.put_line(handle,n(mtt.FROM_LOC_ID)||'&d'||n(mtt.TO_SUB)||'&d');utl_file.put_line(handle,n(mtt.TO_LOC_ID)||'&d'||n(mtt.PROCESS)||'&d');utl_file.put_line(handle,n(mtt.LCK)||'&d'||n(mtt.TRANS_MODE)||'&d');utl_file.put_line(handle,n(mtt.ERROR_CODE)||'&d'||n(mtt.ERROR_EXPL)||'&d ');utl_file.put_line(handle,n(mtt.SEC_UOM_CODE)||'&d'||n(mtt.SEC_TRN_QTY)||'&d');utl_file.put_line(handle,n(mtt.LOT_NUM)||'&d'||n(mtt.LOT_PRM_Q)||'&d');utl_file.put_line(handle,n(mtt.LOT_SEC_Q)||'&el');-- utl_file.put_line(handle,n(mtt.LOT_SEC_Q)||'&d'||n(mtt.LOT_CAL_SEC_Q)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et '); -- This is commented out because it runs slowly without an index -- CREATE INDEX MTL_MATL_TRANS_777-- ON INV.MTL_MATERIAL_TRANSACTIONS-- (trx_source_line_id);UTL_FILE.PUT_LINE(handle,'&f &f MTL_MATERIAL_TRANSACTIONS (TRN) - PICKED LINES ');UTL_FILE.PUT_LINE(handle,'Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh WARNING &dh MTL_TRNS_ID &dh TRANSACTION DATE &dh MOVE_LINE_ID &dh TRANS_TYPE &dh ');UTL_FILE.PUT_LINE(handle,'PICK_SLIP &dh LINE &dh LINE_ID &dh PRM_Q &dh');UTL_FILE.PUT_LINE(handle,'FROM_SUB &dh FROM_LOC_ID &dh TO_SUB &dh TO_LOC_ID &dh ORG_ID &dh PICKING_LINE_ID &dh ');UTL_FILE.PUT_LINE(handle,'SECONDARY UOM_CODE &dh SECONDARY TRANS_QTY &dh LOT PRM_QTY &dh RCV_TRANS_ID &eh');--UTL_FILE.PUT_LINE(handle,'LOT SEC_QTY &dh LOT_CAL SEC_QTY &eh');declarecursor Mtl_trans is SELECTTRN.TRANSACTION_ID MTL_TRNS_ID,TRN.TRANSACTION_DATE MTL_TRNS_DATE,TRN.MOVE_ORDER_LINE_ID MOVE_LINE_ID,--to_char(TRN.TRANSACTION_TYPE_ID) || '=' || -- (select TYP.TRANSACTION_TYPE_NAME -- from MTL_TRANSACTION_TYPES TYP-- where TRN.TRANSACTION_TYPE_ID = TYP.TRANSACTION_TYPE_ID) TRANS_TYPE,-- See header of this script for mapping other TRANSACTION_TYPE_ID's to their meaningdecode(TRN.TRANSACTION_TYPE_ID,52,'Stage Trans',53,'Stage Trans INT',33,'SO Issue',34,'SO Issue INT',15,'RMA Receipt',18,'PO Receipt','Invalid '||to_char(TRN.TRANSACTION_TYPE_ID)) TRANS_TYPE,TRN.PICK_SLIP_NUMBER PICK_SLIP,TRN.TRX_SOURCE_LINE_ID TRX_SOURCE_LINE_ID,TRN.TRX_SOURCE_LINE_ID LINE_ID,TRN.PRIMARY_QUANTITY PRM_Q,TRN.SUBINVENTORY_CODE FROM_SUB,TRN.LOCATOR_ID FROM_LOC_ID,TRN.TRANSFER_SUBINVENTORY TO_SUB,TRN.TRANSFER_LOCATOR_ID TO_LOC_ID,TRN.ORGANIZATION_ID ORG_ID,TRN.PICKING_LINE_ID PICKING_LINE_ID,TRN.SECONDARY_UOM_CODE SEC_UOM_CODE,TRN.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,lot.primary_quantity lot_prm_q,TRN.rcv_transaction_id rcv_trans_id-- lot.secondary_transaction_quantity lot_sec_q-- inv_convert.inv_um_convert(-- lot.inventory_item_id,-- lot.lot_number,-- lot.organization_id,-- 5,-- lot.primary_quantity,-- itm.primary_uom_code,-- trn.secondary_uom_code,-- null, null) lot_cal_sec_qFROM MTL_MATERIAL_TRANSACTIONS TRN,MTL_SYSTEM_ITEMS ITM,mtl_transaction_lot_numbers lotWHERE -- klr(TRN.TRX_SOURCE_LINE_ID,TRN.ORGANIZATION_ID,TRN.INVENTORY_ITEM_ID) IN (SELECT DISTINCT LINE_ID,SHIP_FROM_ORG_ID,INVENTORY_ITEM_IDFROM OE_ORDER_LINES LIN1WHERE LIN1.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN1.LINE_ID,LIN1.TOP_MODEL_LINE_ID,LIN1.ATO_LINE_ID,LIN1.LINK_TO_LINE_ID,LIN1.REFERENCE_LINE_ID,LIN1.SERVICE_REFERENCE_LINE_ID))and TRN.ORGANIZATION_ID = ITM.ORGANIZATION_ID and TRN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID and lot.transaction_id (+) = trn.transaction_idUNION ALLSELECT /* DROP SHIP */TRN.TRANSACTION_ID MTL_TRNS_ID,TRN.TRANSACTION_DATE MTL_TRNS_DATE,TRN.MOVE_ORDER_LINE_ID MOVE_LINE_ID,decode(TRN.TRANSACTION_TYPE_ID,52,'Stage Trans',33,'SO Issue',15,'RMA Receipt',18,'PO Receipt','Invalid '||to_char(TRN.TRANSACTION_TYPE_ID)) TRANS_TYPE,TRN.PICK_SLIP_NUMBER PICK_SLIP,-- to_char(TRN.SOURCE_LINE_ID) LINE,TRN.TRX_SOURCE_LINE_ID TRX_SOURCE_LINE_ID,TRN.TRX_SOURCE_LINE_ID LINE_ID,TRN.PRIMARY_QUANTITY PRM_Q,TRN.SUBINVENTORY_CODE FROM_SUB,TRN.LOCATOR_ID FROM_LOC_ID,TRN.TRANSFER_SUBINVENTORY TO_SUB,TRN.TRANSFER_LOCATOR_ID TO_LOC_ID,TRN.ORGANIZATION_ID ORG_ID,TRN.PICKING_LINE_ID PICKING_LINE_ID,TRN.SECONDARY_UOM_CODE SEC_UOM_CODE,TRN.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,0 lot_prm_q, -- Only for OPMTRN.rcv_transaction_id rcv_trans_id-- 0 lot_sec_q -- Only for OPM-- 0 lot_cal_sec_q -- Only for OPMFROMMTL_MATERIAL_TRANSACTIONS TRN,MTL_SYSTEM_ITEMS ITM,OE_DROP_SHIP_SOURCES DRP,PO_HEADERS_ALL POHWHERETRN.TRANSACTION_TYPE_ID = 18 -- PO Receiptand TRN.TRANSACTION_SOURCE_TYPE_ID = 1and TRN.TRANSACTION_SOURCE_ID = POH.PO_HEADER_IDand POH.PO_HEADER_ID = DRP.PO_HEADER_IDand DRP.HEADER_ID = nvl('&header_id_selected',:v_header_id)and TRN.ORGANIZATION_ID = ITM.ORGANIZATION_IDand TRN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_IDUNION ALLSELECT /* PO receipt trx for ATO BUY ITEM */TRN.TRANSACTION_ID MTL_TRNS_ID,TRN.TRANSACTION_DATE MTL_TRNS_DATE,TRN.MOVE_ORDER_LINE_ID MOVE_LINE_ID,decode(TRN.TRANSACTION_TYPE_ID,52,'Stage Trans',33,'SO Issue',15,'RMA Receipt',18,'PO Receipt','Invalid '||to_char(TRN.TRANSACTION_TYPE_ID)) TRANS_TYPE,TRN.PICK_SLIP_NUMBER PICK_SLIP,-- to_char(RES.DEMAND_SOURCE_LINE_ID) LINE,TRN.TRX_SOURCE_LINE_ID TRX_SOURCE_LINE_ID,TRN.TRX_SOURCE_LINE_ID LINE_ID,TRN.PRIMARY_QUANTITY PRM_Q,TRN.SUBINVENTORY_CODE FROM_SUB,TRN.LOCATOR_ID FROM_LOC_ID,TRN.TRANSFER_SUBINVENTORY TO_SUB,TRN.TRANSFER_LOCATOR_ID TO_LOC_ID,TRN.ORGANIZATION_ID ORG_ID,TRN.PICKING_LINE_ID PICKING_LINE_ID,TRN.SECONDARY_UOM_CODE SEC_UOM_CODE,TRN.SECONDARY_TRANSACTION_QUANTITY SEC_TRN_QTY,0 lot_prm_q, -- Only for OPMTRN.rcv_transaction_id rcv_trans_id-- 0 lot_sec_q -- Only for OPM-- 0 lot_cal_sec_q -- Only for OPMFROMMTL_MATERIAL_TRANSACTIONS TRN,MTL_SYSTEM_ITEMS ITM,MTL_RESERVATIONS RES,PO_HEADERS_ALL POHWHERE:sales_ord_id = RES.DEMAND_SOURCE_HEADER_IDand RES.DEMAND_SOURCE_TYPE_ID = 2 -- SOand RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INVand RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID --and POH.PO_HEADER_ID = TRN.TRANSACTION_SOURCE_IDand TRN.ORGANIZATION_ID = ITM.ORGANIZATION_IDand TRN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_IDand TRN.TRANSACTION_TYPE_ID = 18 -- PO Receiptand TRN.TRANSACTION_SOURCE_TYPE_ID = 1;r_lin_no varchar2(100);type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..30loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := 'x';-- end if;for mt in Mtl_transloop:r_flag := '';-- Order_Line numberSELECT to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number))into r_lin_noFROM OE_ORDER_LINES LINWHERE mt.TRX_SOURCE_LINE_ID = LIN.LINE_ID;if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thennull;----- Basic Verification---- If i.Ordq < i.shpq then-- :r_flag := :r_flag || '1 ';-- end if;-- If i.Ordq < i.fulq then-- :r_flag := :r_flag || '2 ';-- end if;---end if;-- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d');utl_file.put_line(handle,n(mt.MTL_TRNS_ID)||'&d'||n(mt.MTL_TRNS_DATE)||'&d');utl_file.put_line(handle,''||n(mt.MOVE_LINE_ID)||''||'&d');utl_file.put_line(handle,n(mt.TRANS_TYPE)||'&d'||n(mt.PICK_SLIP)||'&d');utl_file.put_line(handle,n(r_lin_no)||'&d'||n(mt.LINE_ID)||'&d');utl_file.put_line(handle,n(mt.PRM_Q)||'&d'||n(mt.FROM_SUB)||'&d');utl_file.put_line(handle,n(mt.FROM_LOC_ID)||'&d'||n(mt.TO_SUB)||'&d');utl_file.put_line(handle,n(mt.TO_LOC_ID)||'&d'||n(mt.ORG_ID)||'&d');utl_file.put_line(handle,n(mt.PICKING_LINE_ID)||'&d ');utl_file.put_line(handle,n(mt.SEC_UOM_CODE)||'&d'||n(mt.SEC_TRN_QTY)||'&d');utl_file.put_line(handle,n(mt.LOT_PRM_Q)||'&d'||n(mt.rcv_trans_id)||'&el');-- utl_file.put_line(handle,n(mt.LOT_PRM_Q)||'&d'||n(mt.LOT_SEC_Q)||'&el');-- utl_file.put_line(handle,n(mt.LOT_CAL_SEC_Q)||'&el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Warning List: &eb &f');for i in 1..30loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et '); -- DROP INDEX INDEX MTL_MATL_TRANS_777;UTL_FILE.PUT_LINE(handle,'&f &f MTL_SERIAL_NUMBERS (MSN) &f');UTL_FILE.PUT_LINE(handle,'&std &sh ERR_FLAG &dh DEL_DET_ID &dh REL_STATUS &dh LINE &dh LINE_ID &dh ITEM_ID &dh FROM_SERIAL &dh TO_SERIAL &dh ');UTL_FILE.PUT_LINE(handle,'QUANTITY &dh SERIAL_NUMBER &dh CURR_STATUS &dh CURR_SUBINV &dh REVISION &dh LOT_NUMBER &dh ');UTL_FILE.PUT_LINE(handle,'CURR_LOCATION &dh CURR_ORG_ID &dh GROUP_MARK &dh LINE_MARK &dh LOT_MARK &dh ORIGIN_DATE &eh');Declare cursor m_serial_n isselect distinctDET.DELIVERY_DETAIL_ID DEL_DET_ID,decode(DET.RELEASED_STATUS,'Y','Y=Staged','R','R=Ready to Release','S','S=Rel to Warhouse','B','B=Backorder','P','P=Pending Inv','C','C=Shipped','N','N=Not Ready','D','D=Cancelled','X','X=Not Applicable','Unknown: '||DET.RELEASED_STATUS) REL_STATUS,to_char(LIN.line_number) ||decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))||decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null,decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,DET.SOURCE_LINE_ID LINE_ID,DET.INVENTORY_ITEM_ID ITEM_ID,substr(wsn.fm_serial_number,1,15) FROM_SERIAL,substr(wsn.to_serial_number,1,15) TO_SERIAL,wsn.quantity WSN_QTY,to_char(wsn.creation_date,'DD-MON-RR_HH24:MI:SS') WSN_CRE_DATE,MSN.SERIAL_NUMBER MSN_SN,MSN.CURRENT_STATUS MSN_CUR_STA,MSN.REVISION MSN_REV,MSN.LOT_NUMBER MSN_LOT,MSN.CURRENT_SUBINVENTORY_CODE MSN_CUR_SUB,MSN.CURRENT_LOCATOR_ID MSN_CUR_LOC,MSN.CURRENT_ORGANIZATION_ID MSN_CUR_ORG,MSN.GROUP_MARK_ID MSN_GRP_MRK, MSN.LINE_MARK_ID MSN_LIN_MRK,MSN.LOT_LINE_MARK_ID MSN_LOT_MRK,MSN.ORIGINATION_DATE MSN_ORI_DATEFROMOE_ORDER_LINES LIN,WSH_DELIVERY_DETAILS DET,WSH_SERIAL_NUMBERS WSN,MTL_SERIAL_NUMBERS MSNwhereDET.DELIVERY_DETAIL_ID = WSN.DELIVERY_DETAIL_IDand DET.SOURCE_LINE_ID = LIN.LINE_IDand DET.SOURCE_CODE = 'OE'and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and DET.INVENTORY_ITEM_ID = MSN.INVENTORY_ITEM_IDand MSN.SERIAL_NUMBER between WSN.FM_SERIAL_NUMBER and WSN.TO_SERIAL_NUMBERand (substr(UPPER(nvl('&det_cnt','Y')),1,1) = 'Y' or rownum <= 10)order byLINE,MSN.SERIAL_NUMBER;r_uom_lin varchar2(10);r_qshp_lin number;r_sta_lin varchar2(100);r_mtl_trn varchar2(100);type per_record_typ is RECORD(flag varchar2(1),descrip varchar2(200));type msg_tab is TABLE of per_record_typ INDEX by binary_integer;msg msg_tab;function n(v varchar2) return varchar2 isbeginif v is null thenreturn '&sp';elsereturn v;end if;end n;begin:r_error := 0;-- Initialize error messages even if Do Analysis not selected-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' thenfor i in 1..1loopmsg(i).flag := '0';msg(i).descrip := '';end loop;msg(1).descrip := ' 1. No verifications yet.';-- end if;for dd in m_serial_nloop:r_flag := '';-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then-- Include verifications here-- Select nvl(mtl_transactions_enabled_flag,'N')-- into r_mtl_trn-- from Mtl_System_items-- where Inventory_item_Id = dd.ITEM_ID-- and Organization_Id = dd.WH_ID;-- if dd.PICKABLE_FLAG <> r_mtl_trn then-- :r_flag := :r_flag || '1 ';-- msg(1).flag := '1';-- end if;-- end if; -- do_analysis----- Print line to Output fileutl_file.put_line(handle,'&sld &b '||n(:r_flag)||' &eb &d ');utl_file.put_line(handle,n(dd.DEL_DET_ID)||' &d ');utl_file.put_line(handle,n(dd.REL_STATUS)||' &d '||n(dd.LINE)||' &d ');utl_file.put_line(handle,''||n(dd.LINE_ID)||' &d ');utl_file.put_line(handle,n(dd.ITEM_ID)||' &d ');utl_file.put_line(handle,n(dd.FROM_SERIAL)||' &d '||n(dd.TO_SERIAL)||' &d ');utl_file.put_line(handle,n(dd.WSN_QTY)||' &d '||n(dd.MSN_SN)||' &d ');utl_file.put_line(handle,n(dd.MSN_CUR_STA)||' &d '||n(dd.MSN_CUR_SUB)||' &d ');utl_file.put_line(handle,n(dd.MSN_REV)||' &d '||n(dd.MSN_LOT)||' &d ');utl_file.put_line(handle,n(dd.MSN_CUR_LOC)||' &d '||n(dd.MSN_CUR_ORG)||' &d ');utl_file.put_line(handle,n(dd.MSN_GRP_MRK)||' &d '||n(dd.MSN_LIN_MRK)||' &d ');utl_file.put_line(handle,n(dd.MSN_LOT_MRK)||' &d '||n(dd.MSN_ORI_DATE)||' &el');if :r_flag is not null then:r_error := 1;end if;end loop;utl_file.put_line(handle,'&et');if :r_error = 1 thenutl_file.put_line(handle,'&f &b Error List: &eb &f');for i in 1..1loopif msg(i).flag = '1' thenutl_file.put_line(handle,msg(i).descrip||'&f');end if;end loop;end if;end;UTL_FILE.PUT_LINE(handle,'&et '); UTL_FILE.PUT_LINE(handle,'&f &f MTL_UNIT_TRANSACTIONS (UNT) Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh TRANS_ID &dh TRANSACTION DATE &dh STATUS_ID &dh SUBINV &dh LOC_ID &dh SERIAL_NUM ');UTL_FILE.PUT_LINE(handle,'&dh ITEM_ID &dh WH_ID &dh TRX_DATE &dh ');UTL_FILE.PUT_LINE(handle,'TRX_SRC_ID &dh TRX_SRC_TYPE_ID &dh RECEIPT_ISSUE_TYPE &dh CUST_ID &dh SHIP_ID &eh');Declarecursor mtl_unt_trx isselect UNT.TRANSACTION_ID TRANS_ID,UNT.TRANSACTION_DATE MTL_TRNS_DATE,UNT.STATUS_ID STATUS_ID,UNT.SUBINVENTORY_CODE SUBINV,UNT.LOCATOR_ID LOC_ID,UNT.SERIAL_NUMBER SERIAL_NUM,UNT.INVENTORY_ITEM_ID ITEM_ID,UNT.ORGANIZATION_ID WH_ID,to_char(UNT.TRANSACTION_DATE,'DD-MON-RR_HH24:MI:SS') TRX_DATE,UNT.TRANSACTION_SOURCE_ID TRX_SRC_ID,UNT.TRANSACTION_SOURCE_TYPE_ID TRX_SRC_TYPE_ID,--UNT.TRANSACTION_SOURCE_NAME TRX_SOURCE_NAMEUNT.RECEIPT_ISSUE_TYPE RECEIPT_ISSUE_TYPE,UNT.CUSTOMER_ID CUST_ID,UNT.SHIP_ID SHIP_ID--,UNT.SERIAL_ATTRIBUTE_CATEGORY SERIAL_ATTR_CAT--,UNT.ORIGINATION_DATE ORIGIN_DATEfrom MTL_UNIT_TRANSACTIONS UNTwhere UNT.TRANSACTION_ID in (select TRN.TRANSACTION_IDFROM MTL_MATERIAL_TRANSACTIONS TRN,--WSH_DELIVERY_DETAILS DET,--OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITM WHERE -- klr(TRN.TRX_SOURCE_LINE_ID,TRN.ORGANIZATION_ID,TRN.INVENTORY_ITEM_ID) IN (SELECT DISTINCT LINE_ID,SHIP_FROM_ORG_ID,INVENTORY_ITEM_IDFROM OE_ORDER_LINES LIN1WHERE LIN1.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN1.LINE_ID,LIN1.TOP_MODEL_LINE_ID,LIN1.ATO_LINE_ID,LIN1.LINK_TO_LINE_ID,LIN1.REFERENCE_LINE_ID,LIN1.SERVICE_REFERENCE_LINE_ID))and TRN.ORGANIZATION_ID = ITM.ORGANIZATION_ID and TRN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID)and (substr(UPPER(nvl('&det_cnt','Y')),1,1) = 'Y' or rownum <= 10);beginfor mut in mtl_unt_trxlooputl_file.put_line(handle,'&sld'||n(mut.TRANS_ID)||' &d '||n(mut.MTL_TRNS_DATE)||' &d ');utl_file.put_line(handle,n(mut.STATUS_ID)||' &d ');utl_file.put_line(handle,n(mut.SUBINV)||' &d '||n(mut.LOC_ID)||' &d ');utl_file.put_line(handle,n(mut.SERIAL_NUM)||' &d '||n(mut.ITEM_ID)||' &d ');utl_file.put_line(handle,n(mut.WH_ID)||' &d '||n(mut.TRX_DATE)||' &d ');utl_file.put_line(handle,n(mut.TRX_SRC_ID)||' &d '||n(mut.TRX_SRC_TYPE_ID)||' &d ');utl_file.put_line(handle,n(mut.RECEIPT_ISSUE_TYPE)||' &d '||n(mut.CUST_ID)||' &d ');utl_file.put_line(handle,n(mut.SHIP_ID)||' &el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f MTL_TXN_REQUEST_LINES_V (MOV) - MOVE TRANSACTIONS Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh MO_LINE_ID &dh MO_NUMBER &dh MV_HDR_ID &dh MV_LINE_NUM &dh MV_LINE_STAT &dh LINE &dh TXN_SLINE_ID &dh ');UTL_FILE.PUT_LINE(handle,'ITEM &dh QTY &dh PRM_Q &dh DLV_Q &dh DTL_Q &dh MOVE_TYPE_NAME &dh TRNS_SRC_TYPE &dh TRNS_TYPE_NAME &dh WH_ID &dh ');UTL_FILE.PUT_LINE(handle,'FROM_SUB &dh FROM_LOC_ID &dh TO_SUB &dh TO_LOC_ID &dh LOT_NUM &dh TRNS_HEAD_ID &eh');--UTL_FILE.PUT_LINE(handle,'SECONDARY QTY &dh SECONDARY DETAIL_Q &dh SECONDARY DELIVER_Q &eh');Declarecursor mtl_trx_reql isselect distinctTRL.LINE_ID MO_LINE_ID,TRH.REQUEST_NUMBER MO_NUMBER,TRL.HEADER_ID MV_HDR_ID,TRL.LINE_NUMBER MV_LINE_NUM,decode(TRL.LINE_STATUS,1, '1=Incomplete',2, '2=Pend Aprvl',3, '3=Approved',4, '4=Not Apprvd',5, '5=Closed',6, '6=Canceled',7, '7=Pre Apprvd',8, '8=Part Aprvd',9, '9=Cncld Source') MV_LINE_STAT,to_char(LIN.line_number) || decode(LIN.shipment_number, null, null, '.' || to_char(LIN.shipment_number))|| decode(LIN.option_number, null, null, '.' || to_char(LIN.option_number)) ||decode(LIN.component_number, null, null, decode(LIN.option_number, null, '.',null)||'.'||to_char(LIN.component_number))||decode(LIN.service_number,null,null,decode(LIN.component_number, null, '.' , null) ||decode(LIN.option_number, null, '.', null ) ||'.'|| to_char(LIN.service_number)) LINE,TRL.TXN_SOURCE_LINE_ID TXN_SLINE_ID,--DET.DELIVERY_DETAIL_ID DEL_DET_ID,ITM.SEGMENT1 ITEM,TRL.QUANTITY QTY,TRL.PRIMARY_QUANTITY PRM_Q, TRL.QUANTITY_DELIVERED DLV_Q,TRL.QUANTITY_DETAILED DTL_Q,TRL.MOVE_ORDER_TYPE_NAME MOVE_TYPE_NAME,decode(TRL.TRANSACTION_SOURCE_TYPE_ID,2,'Sales Order',TRL.TRANSACTION_SOURCE_TYPE_ID) TRNS_SRC_TYPE, TRL.TRANSACTION_TYPE_NAME TRNS_TYPE_NAME, TRL.ORGANIZATION_ID WH_ID,TRL.FROM_SUBINVENTORY_CODE FROM_SUB,TRL.FROM_LOCATOR_ID FROM_LOC_ID, TRL.TO_SUBINVENTORY_CODE TO_SUB,TRL.TO_LOCATOR_ID TO_LOC_ID, TRL.LOT_NUMBER LOT_NUM,TRL.TRANSACTION_HEADER_ID TRNS_HEAD_ID-- trl.secondary_quantity sec_q,-- trl.secondary_quantity_detailed sec_dtl_q,-- trl.secondary_quantity_delivered sec_dlv_qfrom MTL_TXN_REQUEST_LINES_V TRL,MTL_TXN_REQUEST_HEADERS TRH,WSH_DELIVERY_DETAILS DET,OE_ORDER_LINES LIN,MTL_SYSTEM_ITEMS ITMwhere TRL.LINE_ID = DET.MOVE_ORDER_LINE_ID--TRL.TXN_SOURCE_LINE_ID = LIN.LINE_IDand LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) and LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) and DET.SOURCE_LINE_ID = LIN.LINE_IDand TRL.HEADER_ID = TRH.HEADER_IDand LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id) and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID);beginfor mtr in mtl_trx_reqllooputl_file.put_line(handle,'&sld'||n(mtr.MO_LINE_ID)||'&d'||n(mtr.MO_NUMBER)||'&d');utl_file.put_line(handle,n(mtr.MV_HDR_ID)||'&d'||n(mtr.MV_LINE_NUM)||'&d');utl_file.put_line(handle,n(mtr.MV_LINE_STAT)||'&d'||n(mtr.LINE)||'&d');utl_file.put_line(handle,n(mtr.TXN_SLINE_ID)||'&d'||n(mtr.ITEM)||'&d');utl_file.put_line(handle,n(mtr.QTY)||'&d'||n(mtr.PRM_Q)||'&d');utl_file.put_line(handle,n(mtr.DLV_Q)||'&d'||n(mtr.DTL_Q)||'&d');utl_file.put_line(handle,n(mtr.MOVE_TYPE_NAME)||'&d'||n(mtr.TRNS_SRC_TYPE)||'&d');utl_file.put_line(handle,n(mtr.TRNS_TYPE_NAME)||'&d'||n(mtr.WH_ID)||'&d');utl_file.put_line(handle,n(mtr.FROM_SUB)||'&d'||n(mtr.FROM_LOC_ID)||'&d');utl_file.put_line(handle,n(mtr.TO_SUB)||'&d'||n(mtr.TO_LOC_ID)||'&d');utl_file.put_line(handle,n(mtr.LOT_NUM)||'&d'||n(mtr.TRNS_HEAD_ID)||'&el');-- utl_file.put_line(handle,n(mtr.SEC_Q)||'&d'||n(mtr.SEC_DTL_Q)||'&d');-- utl_file.put_line(handle,n(mtr.SEC_DLV_Q)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; --prt_invif substr(UPPER(nvl('&prt_ar','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&f &f RA_INTERFACE_LINES (RAI) - RECEIVABLES INTERFACE LINES Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTF_LINE_ID &dh BATCH_SOURCE &dh ITEM_ID &dh QTY &dh ORD_Q &dh UOM &dh PRICE &dh SO_LIN &dh AR_ID &dh IR_ID &dh');UTL_FILE.PUT_LINE(handle,'LINE_TYPE &dh Order_Num_1 &dh Order_Type_2 &dh Delivery_3 &dh WayBill_4 &dh Line_ID_6 &dh Pick_Line_Id_7 &dh Bill_Lading_8 &dh ');UTL_FILE.PUT_LINE(handle,'Customer_Item_9 &dh WH_ID_10 &dh PA_ID_11 &dh C_RATE &dh C_DATE &dh CURR &dh TR &dh S_TAX_ID &dh VAT_ID &dh EF &dh TERR_ID &eh');Declarecursor ra_int_lin isselect distinctRAI.INTERFACE_LINE_ID INTF_LINE_ID, RAI.BATCH_SOURCE_NAME BATCH_SOURCE, RAI.INVENTORY_ITEM_ID ITEM_ID,RAI.QUANTITY QTY,RAI.QUANTITY_ORDERED ORD_Q,RAI.UOM_CODE UOM,RAI.AMOUNT PRICE,trim(RAI.SALES_ORDER_LINE) SO_LIN,RAI.ACCOUNTING_RULE_ID AR_ID,RAI.INVOICING_RULE_ID IR_ID, RAI.LINE_TYPE LINE_TYPE,RAI.INTERFACE_LINE_ATTRIBUTE1 Order_Num_1,RAI.INTERFACE_LINE_ATTRIBUTE2 Order_Type_2,RAI.INTERFACE_LINE_ATTRIBUTE3 Delivery_3,RAI.INTERFACE_LINE_ATTRIBUTE4 WayBill_4,RAI.INTERFACE_LINE_ATTRIBUTE6 Line_ID_6,RAI.INTERFACE_LINE_ATTRIBUTE7 Pick_Line_Id_7,RAI.INTERFACE_LINE_ATTRIBUTE8 Bill_Lading_8,RAI.INTERFACE_LINE_ATTRIBUTE9 Cust_Item_9,RAI.INTERFACE_LINE_ATTRIBUTE10 WH_ID_10,RAI.INTERFACE_LINE_ATTRIBUTE11 PA_ID_11, RAI.CONVERSION_RATE C_RATE,to_Char(RAI.CONVERSION_DATE,'DD-MON-RR_HH24:MI:SS') C_DATE, RAI.CURRENCY_CODE CURR, RAI.TAX_RATE TR,RAI.SALES_TAX_ID S_TAX_ID,RAI.VAT_TAX_ID VAT_ID,RAI.TAX_EXEMPT_FLAG EF,RAI.TERRITORY_ID TERR_IDFROMRA_INTERFACE_LINES RAI,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_V TYPWHERE RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_ID-- and RAI.LINE_TYPE = 'LINE'and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and (NVL(RAI.INTERFACE_LINE_ATTRIBUTE6,0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)or NVL(RAI.INTERFACE_LINE_ATTRIBUTE6,0) in (select ADJ.PRICE_ADJUSTMENT_IDfrom OE_PRICE_ADJUSTMENTS ADJwhere ADJ.HEADER_ID = LIN.HEADER_IDand (ADJ.LINE_ID IS NULLor ADJ.LINE_ID = LIN.LINE_ID)) )and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id);/*UNIONselect distinct RAI.INTERFACE_LINE_ID INTF_LINE_ID, RAI.BATCH_SOURCE_NAME BATCH_SOURCE, RAI.INVENTORY_ITEM_ID ITEM_ID,RAI.QUANTITY QTY,RAI.QUANTITY_ORDERED ORD_Q,RAI.UOM_CODE UOM,RAI.AMOUNT PRICE,trim(RAI.SALES_ORDER_LINE) SO_LIN,RAI.ACCOUNTING_RULE_ID AR_ID,RAI.INVOICING_RULE_ID IR_ID, RAI.LINE_TYPE LINE_TYPE,RAI.INTERFACE_LINE_ATTRIBUTE1 Order_Num_1,RAI.INTERFACE_LINE_ATTRIBUTE2 Order_Type_2,RAI.INTERFACE_LINE_ATTRIBUTE3 Delivery_3,RAI.INTERFACE_LINE_ATTRIBUTE4 WayBill_4,RAI.INTERFACE_LINE_ATTRIBUTE6 Line_ID_6,RAI.INTERFACE_LINE_ATTRIBUTE7 Pick_Line_Id_7,RAI.INTERFACE_LINE_ATTRIBUTE8 Bill_Lading_8,RAI.INTERFACE_LINE_ATTRIBUTE9 Cust_Item_9,RAI.INTERFACE_LINE_ATTRIBUTE10 WH_ID_10,RAI.INTERFACE_LINE_ATTRIBUTE11 PA_ID_11, RAI.CONVERSION_RATE C_RATE,to_char(RAI.CONVERSION_DATE,'DD-MON-RR_HH24:MI:SS') C_DATE, RAI.CURRENCY_CODE CURR, RAI.TAX_RATE TR,RAI.SALES_TAX_ID S_TAX_ID,RAI.VAT_TAX_ID VAT_ID,RAI.TAX_EXEMPT_FLAG EF,RAI.TERRITORY_ID TERR_ID --ENABLE_TIMESTAMP ,to_char(RAI.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(RAI.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,RAI.REQUEST_ID REQUEST_ID FROMRA_INTERFACE_LINES RAI,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_PRICE_ADJUSTMENTS ADJ,OE_TRANSACTION_TYPES_V TYPWHERE RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand RAI.LINE_TYPE = 'FREIGHT'and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and to_number(RAI.INTERFACE_LINE_ATTRIBUTE6) = ADJ.PRICE_ADJUSTMENT_IDand ADJ.LINE_ID = LIN.LINE_IDand ADJ.LINE_ID IS NOT NULLand ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)UNION select distinct RAI.INTERFACE_LINE_ID INTF_LINE_ID, RAI.BATCH_SOURCE_NAME BATCH_SOURCE, RAI.INVENTORY_ITEM_ID ITEM_ID,RAI.QUANTITY QTY,RAI.QUANTITY_ORDERED ORD_Q,RAI.UOM_CODE UOM,RAI.AMOUNT PRICE,trim(RAI.SALES_ORDER_LINE) SO_LIN,RAI.ACCOUNTING_RULE_ID AR_ID,RAI.INVOICING_RULE_ID IR_ID, RAI.LINE_TYPE LINE_TYPE,RAI.INTERFACE_LINE_ATTRIBUTE1 Order_Num_1,RAI.INTERFACE_LINE_ATTRIBUTE2 Order_Type_2,RAI.INTERFACE_LINE_ATTRIBUTE3 Delivery_3,RAI.INTERFACE_LINE_ATTRIBUTE4 WayBill_4,RAI.INTERFACE_LINE_ATTRIBUTE6 Line_ID_6,RAI.INTERFACE_LINE_ATTRIBUTE7 Pick_Line_Id_7,RAI.INTERFACE_LINE_ATTRIBUTE8 Bill_Lading_8,RAI.INTERFACE_LINE_ATTRIBUTE9 Cust_Item_9,RAI.INTERFACE_LINE_ATTRIBUTE10 WH_ID_10,RAI.INTERFACE_LINE_ATTRIBUTE11 PA_ID_11, RAI.CONVERSION_RATE C_RATE,to_char(RAI.CONVERSION_DATE,'DD-MON-RR_HH24:MI:SS') C_DATE, RAI.CURRENCY_CODE CURR, RAI.TAX_RATE TR,RAI.SALES_TAX_ID S_TAX_ID,RAI.VAT_TAX_ID VAT_ID,RAI.TAX_EXEMPT_FLAG EF,RAI.TERRITORY_ID TERR_ID --ENABLE_TIMESTAMP ,to_char(RAI.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(RAI.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,RAI.REQUEST_ID REQUEST_ID FROMRA_INTERFACE_LINES RAI,OE_ORDER_HEADERS ORD,OE_PRICE_ADJUSTMENTS ADJ,OE_TRANSACTION_TYPES_V TYPWHERE RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand RAI.LINE_TYPE = 'FREIGHT'and ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ADJ.LINE_ID IS NULLand ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id)UNION -- Freight invoice as line SELECT DISTINCT RAI.INTERFACE_LINE_ID INTF_LINE_ID,RAI.BATCH_SOURCE_NAME BATCH_SOURCE,RAI.INVENTORY_ITEM_ID ITEM_ID,RAI.QUANTITY QTY,RAI.QUANTITY_ORDERED ORD_Q,RAI.UOM_CODE UOM,RAI.AMOUNT PRICE,trim(RAI.SALES_ORDER_LINE) SO_LIN,RAI.ACCOUNTING_RULE_ID AR_ID,RAI.INVOICING_RULE_ID IR_ID,RAI.LINE_TYPE LINE_TYPE,RAI.INTERFACE_LINE_ATTRIBUTE1 Order_Num_1,RAI.INTERFACE_LINE_ATTRIBUTE2 Order_Type_2,RAI.INTERFACE_LINE_ATTRIBUTE3 Delivery_3,RAI.INTERFACE_LINE_ATTRIBUTE4 WayBill_4,RAI.INTERFACE_LINE_ATTRIBUTE6 Line_ID_6,RAI.INTERFACE_LINE_ATTRIBUTE7 Pick_Line_Id_7,RAI.INTERFACE_LINE_ATTRIBUTE8 Bill_Lading_8,RAI.INTERFACE_LINE_ATTRIBUTE9 Cust_Item_9,RAI.INTERFACE_LINE_ATTRIBUTE10 WH_ID_10,RAI.INTERFACE_LINE_ATTRIBUTE11 PA_ID_11,RAI.CONVERSION_RATE C_RATE,TO_CHAR(RAI.CONVERSION_DATE,'DD-MON-RR_HH24:MI:SS') C_DATE,RAI.CURRENCY_CODE CURR,RAI.TAX_RATE TR,RAI.SALES_TAX_ID S_TAX_ID,RAI.VAT_TAX_ID VAT_ID,RAI.TAX_EXEMPT_FLAG EF,RAI.TERRITORY_ID TERR_IDFROM RA_INTERFACE_LINES RAI,OE_ORDER_HEADERS ORD,OE_PRICE_ADJUSTMENTS ADJ,OE_TRANSACTION_TYPES_TL TYPWHERE RAI.SALES_ORDER = TO_CHAR(ORD.ORDER_NUMBER)AND RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEAND TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDAND RAI.LINE_TYPE = 'LINE'and ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)AND RAI.INTERFACE_LINE_ATTRIBUTE6 = ADJ.PRICE_ADJUSTMENT_ID-- AND ADJ.CHARGE_TYPE_CODE = 'FREIGHT'AND RAI.SALES_ORDER_LINE IS NULLand ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id); */beginfor ril in ra_int_linlooputl_file.put_line(handle,'&sld'||n(ril.INTF_LINE_ID)||'&d'||n(ril.BATCH_SOURCE)||'&d');utl_file.put_line(handle,n(ril.ITEM_ID)||'&d'||n(ril.QTY)||'&d');utl_file.put_line(handle,n(ril.ORD_Q)||'&d'||n(ril.UOM)||'&d');utl_file.put_line(handle,n(ril.PRICE)||'&d'||n(ril.SO_LIN)||'&d');utl_file.put_line(handle,n(ril.AR_ID)||'&d'||n(ril.IR_ID)||'&d');utl_file.put_line(handle,n(ril.LINE_TYPE)||'&d'||n(ril.ORDER_NUM_1)||'&d');utl_file.put_line(handle,n(ril.ORDER_TYPE_2)||'&d'||n(ril.DELIVERY_3)||'&d');utl_file.put_line(handle,n(ril.WAYBILL_4)||'&d'||n(ril.LINE_ID_6)||'&d');utl_file.put_line(handle,n(ril.PICK_LINE_ID_7)||'&d'||n(ril.BILL_LADING_8)||'&d');utl_file.put_line(handle,n(ril.Cust_Item_9)||'&d');utl_file.put_line(handle,n(ril.WH_ID_10)||'&d'||n(ril.PA_ID_11)||'&d');utl_file.put_line(handle,n(ril.C_RATE)||'&d'||n(ril.C_DATE)||'&d');utl_file.put_line(handle,n(ril.CURR)||'&d'||n(ril.TR)||'&d');utl_file.put_line(handle,n(ril.S_TAX_ID)||'&d'||n(ril.VAT_ID)||'&d');utl_file.put_line(handle,n(ril.EF)||'&d'||n(ril.TERR_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f RA_INTERFACE_ERRORS (RAE) - RECEIVABLES INTERFACE ERRORS &f');UTL_FILE.PUT_LINE(handle,'&std &sh INTERFACE_LINE_ID &dh INTERFACE_SALESCREDIT_ID &dh MESSAGE_TEXT &eh');Declarecursor ra_int_err isselect distinct RAE.INTERFACE_LINE_ID,RAE.INTERFACE_SALESCREDIT_ID, RAE.MESSAGE_TEXTFROM RA_INTERFACE_LINES RAI,RA_INTERFACE_ERRORS RAE,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_V TYPWHERE RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAI.INTERFACE_LINE_ID = RAE.INTERFACE_LINE_IDand RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and (NVL(RAI.INTERFACE_LINE_ATTRIBUTE6,0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)or NVL(RAI.INTERFACE_LINE_ATTRIBUTE6,0) in (select ADJ.PRICE_ADJUSTMENT_IDfrom OE_PRICE_ADJUSTMENTS ADJwhere ADJ.HEADER_ID = LIN.HEADER_IDand (ADJ.LINE_ID IS NULLor ADJ.LINE_ID = LIN.LINE_ID)))and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id);/*UNIONselect distinctRAE.INTERFACE_LINE_ID, RAE.INTERFACE_SALESCREDIT_ID, RAE.MESSAGE_TEXT FROMRA_INTERFACE_LINES RAI,RA_INTERFACE_ERRORS RAE,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_PRICE_ADJUSTMENTS ADJ,OE_TRANSACTION_TYPES_V TYPWHERE RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand RAI.INTERFACE_LINE_ID = RAE.INTERFACE_LINE_IDand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand RAI.LINE_TYPE = 'FREIGHT'and NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and to_number(RAI.INTERFACE_LINE_ATTRIBUTE6) = ADJ.PRICE_ADJUSTMENT_IDand ADJ.LINE_ID = LIN.LINE_IDand ADJ.LINE_ID IS NOT NULLand ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)UNIONselect distinct RAE.INTERFACE_LINE_ID, RAE.INTERFACE_SALESCREDIT_ID, RAE.MESSAGE_TEXTFROMRA_INTERFACE_LINES RAI,RA_INTERFACE_ERRORS RAE,OE_ORDER_HEADERS ORD,OE_PRICE_ADJUSTMENTS ADJ,OE_TRANSACTION_TYPES_V TYPWHERE RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand RAI.INTERFACE_LINE_ID = RAE.INTERFACE_LINE_IDand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand RAI.LINE_TYPE = 'FREIGHT'and ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)and ADJ.LINE_ID IS NULLand ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id);*/beginfor rie in ra_int_errlooputl_file.put_line(handle,'&sld'||n(rie.INTERFACE_LINE_ID)||'&d'||n(rie.INTERFACE_SALESCREDIT_ID)||'&d');utl_file.put_line(handle,n(rie.MESSAGE_TEXT)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f RA_CUSTOMER_TRX (RAH) - INVOICE HEADERS Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh CUST_TRX_ID &dh TRX_NUMBER &dh TRX_TYPE_ID &dh TRX_DATE &dh BATCH_ID &dh SOURCE_ID &dh BILL_CUST &dh BILL_SITE &dh ');UTL_FILE.PUT_LINE(handle,'SHIP_CUST &dh SHIP_SITE &dh TERM_ID &dh SALESREP_ID &dh PO_NUMBER &dh CURR &dh AGREEMENT &dh COMP_FL &dh IR_ID &dh ');UTL_FILE.PUT_LINE(handle,'SHIP_VIA &dh WAYBILL &dh STATUS &eh');Declarecursor ra_cus_trx isselect distinct RAH.CUSTOMER_TRX_ID CUST_TRX_ID,RAH.TRX_NUMBER TRX_NUMBER,RAH.CUST_TRX_TYPE_ID TRX_TYPE_ID,to_char(RAH.TRX_DATE,'DD-MON-RR_HH24:MI:SS') TRX_DATE,RAH.BATCH_ID BATCH_ID,RAH.BATCH_SOURCE_ID SOURCE_ID,RAH.BILL_TO_CUSTOMER_ID BILL_CUST,RAH.BILL_TO_SITE_USE_ID BILL_SITE,RAH.SHIP_TO_CUSTOMER_ID SHIP_CUST,RAH.SHIP_TO_SITE_USE_ID SHIP_SITE,RAH.TERM_ID TERM_ID,RAH.PRIMARY_SALESREP_ID SALESREP_ID,RAH.PURCHASE_ORDER PO_NUMBER,RAH.INVOICE_CURRENCY_CODE CURR,RAH.AGREEMENT_ID AGREEMENT,RAH.COMPLETE_FLAG COMP_FL,RAH.INVOICING_RULE_ID IR_ID,RAH.SHIP_VIA SHIP_VIA,RAH.WAYBILL_NUMBER WAYBILL,RAH.STATUS_TRX STATUS --ENABLE_TIMESTAMP ,to_char(RAH.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(RAH.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,RAH.REQUEST_ID REQUEST_ID FROMRA_CUSTOMER_TRX RAH,RA_CUSTOMER_TRX_LINES RAL,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_V TYPWHERE RAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_IDand RAL.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAL.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and (NVL(RAL.INTERFACE_LINE_ATTRIBUTE6,0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)or NVL(RAL.INTERFACE_LINE_ATTRIBUTE6,0) in (select ADJ.PRICE_ADJUSTMENT_IDfrom OE_PRICE_ADJUSTMENTS ADJwhere ADJ.HEADER_ID = LIN.HEADER_IDand (ADJ.LINE_ID IS NULLor ADJ.LINE_ID = LIN.LINE_ID)))and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)ORDER BYRAH.TRX_NUMBER;beginfor rct in ra_cus_trxlooputl_file.put_line(handle,'&sld'||n(rct.CUST_TRX_ID)||'&d'||n(rct.TRX_NUMBER)||'&d');utl_file.put_line(handle,n(rct.TRX_TYPE_ID)||'&d'||n(rct.TRX_DATE)||'&d');utl_file.put_line(handle,n(rct.BATCH_ID)||'&d'||n(rct.SOURCE_ID)||'&d');utl_file.put_line(handle,n(rct.BILL_CUST)||'&d'||n(rct.BILL_SITE)||'&d');utl_file.put_line(handle,n(rct.SHIP_CUST)||'&d'||n(rct.SHIP_SITE)||'&d');utl_file.put_line(handle,n(rct.TERM_ID)||'&d'||n(rct.SALESREP_ID)||'&d');utl_file.put_line(handle,n(rct.PO_NUMBER)||'&d'||n(rct.CURR)||'&d');utl_file.put_line(handle,n(rct.AGREEMENT)||'&d'||n(rct.COMP_FL)||'&d');utl_file.put_line(handle,n(rct.IR_ID)||'&d'||n(rct.SHIP_VIA)||'&d');utl_file.put_line(handle,n(rct.WAYBILL)||'&d'||n(rct.STATUS)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');UTL_FILE.PUT_LINE(handle,'&f &f RA_CUSTOMER_TRX_LINES (RAL) - INVOICE LINES Column Definitions &f');UTL_FILE.PUT_LINE(handle,'&std &sh TRX_LINE_ID &dh LINK_TO_ID &dh CUST_TRX_ID &dh TRX_NUMBER &dh SOURCE &dh LINE_NUM &dh ITEM_ID &dh ORD_Q &dh ');UTL_FILE.PUT_LINE(handle,'INV_Q &dh CRD_Q &dh UOM &dh PRICE &dh EXTD_AMT &dh REV_AMT &dh SO_LIN &dh LINE_TYPE &dh Order_Num_1 &dh Order_Type_2 &dh ');UTL_FILE.PUT_LINE(handle,'Delivery_3 &dh WayBill_4 &dh Line_ID_6 &dh Bill_Lading_8 &dh Customer_item_9 &dh WH_ID_10 &dh PA_ID_11 &dh TF &dh TR &dh VAT_ID &dh S_TAX_ID &eh');Declarecursor ra_cus_trxl isselect distinctRAL.CUSTOMER_TRX_LINE_ID TRX_LINE_ID,RAL.LINK_TO_CUST_TRX_LINE_ID LINK_TO_ID,RAL.CUSTOMER_TRX_ID CUST_TRX_ID,RAH.TRX_NUMBER TRX_NUMBER,RAL.SALES_ORDER_SOURCE SOURCE,RAL.LINE_NUMBER LINE_NUM, RAL.INVENTORY_ITEM_ID ITEM_ID,RAL.QUANTITY_ORDERED ORD_Q,RAL.QUANTITY_INVOICED INV_Q,RAL.QUANTITY_CREDITED CRD_Q,RAL.UOM_CODE UOM,RAL.UNIT_SELLING_PRICE PRICE, RAL.EXTENDED_AMOUNT EXTD_AMT, RAL.REVENUE_AMOUNT REV_AMT, TRIM(RAL.SALES_ORDER_LINE) SO_LIN,RAL.LINE_TYPE LINE_TYPE,RAL.INTERFACE_LINE_ATTRIBUTE1 Order_Num_1,RAL.INTERFACE_LINE_ATTRIBUTE2 Order_Type_2,RAL.INTERFACE_LINE_ATTRIBUTE3 Delivery_3,RAL.INTERFACE_LINE_ATTRIBUTE4 WayBill_4,RAL.INTERFACE_LINE_ATTRIBUTE6 Line_ID_6,RAL.INTERFACE_LINE_ATTRIBUTE8 Bill_Lading_8,RAL.INTERFACE_LINE_ATTRIBUTE9 Cust_Item_9,RAL.INTERFACE_LINE_ATTRIBUTE10 WH_ID_10,RAL.INTERFACE_LINE_ATTRIBUTE11 PA_ID_11,RAL.TAXABLE_FLAG TF, RAL.TAX_RATE TR,RAL.VAT_TAX_ID VAT_ID,RAL.SALES_TAX_ID S_TAX_ID--ENABLE_TIMESTAMP ,to_char(RAL.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(RAL.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,RAL.REQUEST_ID REQUEST_ID FROMRA_CUSTOMER_TRX RAH,RA_CUSTOMER_TRX_LINES RAL,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_V TYPWHERE RAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_IDand RAL.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAL.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and (NVL(RAL.INTERFACE_LINE_ATTRIBUTE6,0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)or NVL(RAL.INTERFACE_LINE_ATTRIBUTE6,0) in (select ADJ.PRICE_ADJUSTMENT_IDfrom OE_PRICE_ADJUSTMENTS ADJwhere ADJ.HEADER_ID = LIN.HEADER_IDand (ADJ.LINE_ID IS NULLor ADJ.LINE_ID = LIN.LINE_ID)))and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)/* -- remove FROMRA_CUSTOMER_TRX RAH,RA_CUSTOMER_TRX_LINES RAL WHERERAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_IDand RAL.CUSTOMER_TRX_LINE_ID in (select RAL1.CUSTOMER_TRX_LINE_ID FROMRA_CUSTOMER_TRX RAH1,RA_CUSTOMER_TRX_LINES RAL1,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_V TYPWHERE RAH1.CUSTOMER_TRX_ID = RAL1.CUSTOMER_TRX_IDand RAL1.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAL1.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and NVL(RAL1.INTERFACE_LINE_ATTRIBUTE6,0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id))*/ UNIONselect /* LINKED LINES */distinct RAL.CUSTOMER_TRX_LINE_ID TRX_LINE_ID,RAL.LINK_TO_CUST_TRX_LINE_ID LINK_TO_ID,RAL.CUSTOMER_TRX_ID CUST_TRX_ID,RAH.TRX_NUMBER TRX_NUMBER,RAL.SALES_ORDER_SOURCE SOURCE,RAL.LINE_NUMBER LINE_NUM, RAL.INVENTORY_ITEM_ID ITEM_ID,RAL.QUANTITY_ORDERED ORD_Q,RAL.QUANTITY_INVOICED INV_Q,RAL.QUANTITY_CREDITED CRD_Q,RAL.UOM_CODE UOM,RAL.UNIT_SELLING_PRICE PRICE, RAL.EXTENDED_AMOUNT EXTD_AMT, RAL.REVENUE_AMOUNT REV_AMT, TRIM(RAL.SALES_ORDER_LINE) SO_LIN,RAL.LINE_TYPE LINE_TYPE,RAL.INTERFACE_LINE_ATTRIBUTE1 Order_Num_1,RAL.INTERFACE_LINE_ATTRIBUTE2 Order_Type_2,RAL.INTERFACE_LINE_ATTRIBUTE3 Delivery_3,RAL.INTERFACE_LINE_ATTRIBUTE4 WayBill_4,RAL.INTERFACE_LINE_ATTRIBUTE6 Line_ID_6,RAL.INTERFACE_LINE_ATTRIBUTE8 Bill_Lading_8,RAL.INTERFACE_LINE_ATTRIBUTE9 Cust_Item_9,RAL.INTERFACE_LINE_ATTRIBUTE10 WH_ID_10,RAL.INTERFACE_LINE_ATTRIBUTE11 PA_ID_11,RAL.TAXABLE_FLAG TF, RAL.TAX_RATE TR,RAL.VAT_TAX_ID VAT_ID,RAL.SALES_TAX_ID S_TAX_ID --ENABLE_TIMESTAMP ,to_char(RAL.CREATION_DATE,'DD-MON-RR_HH24:MI:SS') CREATE_DT--ENABLE_TIMESTAMP ,to_char(RAL.LAST_UPDATE_DATE,'DD-MON-RR_HH24:MI:SS') UPDATE_DT--ENABLE_TIMESTAMP ,RAL.REQUEST_ID REQUEST_IDFROMRA_CUSTOMER_TRX RAH,RA_CUSTOMER_TRX_LINES RALWHERERAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_IDand RAL.LINK_TO_CUST_TRX_LINE_ID in (select RAL1.CUSTOMER_TRX_LINE_ID FROMRA_CUSTOMER_TRX RAH1,RA_CUSTOMER_TRX_LINES RAL1,OE_ORDER_LINES LIN,OE_ORDER_HEADERS ORD,OE_TRANSACTION_TYPES_V TYPWHERE RAH1.CUSTOMER_TRX_ID = RAL1.CUSTOMER_TRX_IDand RAL1.SALES_ORDER = to_char(ORD.ORDER_NUMBER)and RAL1.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAMEand TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_IDand ORD.HEADER_ID = LIN.HEADER_IDand NVL('&line_id_selected',0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)and (NVL(RAL.INTERFACE_LINE_ATTRIBUTE6,0) in (0,LIN.LINE_ID,LIN.TOP_MODEL_LINE_ID,LIN.ATO_LINE_ID,LIN.LINK_TO_LINE_ID,LIN.REFERENCE_LINE_ID,LIN.SERVICE_REFERENCE_LINE_ID)or NVL(RAL.INTERFACE_LINE_ATTRIBUTE6,0) in (select ADJ.PRICE_ADJUSTMENT_IDfrom OE_PRICE_ADJUSTMENTS ADJwhere ADJ.HEADER_ID = LIN.HEADER_IDand (ADJ.LINE_ID IS NULLor ADJ.LINE_ID = LIN.LINE_ID)))and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id))order by TRX_NUMBER,TRX_LINE_ID;beginfor rctl in ra_cus_trxllooputl_file.put_line(handle,'&sld'||n(rctl.TRX_LINE_ID)||'&d'||n(rctl.LINK_TO_ID)||'&d');utl_file.put_line(handle,n(rctl.CUST_TRX_ID)||'&d'||n(rctl.TRX_NUMBER)||'&d');utl_file.put_line(handle,n(rctl.SOURCE)||'&d'||n(rctl.LINE_NUM)||'&d');utl_file.put_line(handle,n(rctl.ITEM_ID)||'&d'||n(rctl.ORD_Q)||'&d');utl_file.put_line(handle,n(rctl.INV_Q)||'&d'||n(rctl.CRD_Q)||'&d');utl_file.put_line(handle,n(rctl.UOM)||'&d'||n(rctl.PRICE)||'&d');utl_file.put_line(handle,n(rctl.EXTD_AMT)||'&d'||n(rctl.REV_AMT)||'&d');utl_file.put_line(handle,n(rctl.SO_LIN)||'&d'||n(rctl.LINE_TYPE)||'&d');utl_file.put_line(handle,n(rctl.ORDER_NUM_1)||'&d'||n(rctl.ORDER_TYPE_2)||'&d');utl_file.put_line(handle,n(rctl.DELIVERY_3)||'&d'||n(rctl.WAYBILL_4)||'&d');utl_file.put_line(handle,n(rctl.LINE_ID_6)||'&d'||n(rctl.BILL_LADING_8)||'&d');utl_file.put_line(handle,n(rctl.Cust_Item_9)||'&d');utl_file.put_line(handle,n(rctl.WH_ID_10)||'&d'||n(rctl.PA_ID_11)||'&d');utl_file.put_line(handle,n(rctl.TF)||'&d'||n(rctl.TR)||'&d');utl_file.put_line(handle,n(rctl.VAT_ID)||'&d'||n(rctl.S_TAX_ID)||'&el');end loop;end;UTL_FILE.PUT_LINE(handle,'&et');end if; --prt_arend if; -- :v_head_only-- Column descriptions for each tableUTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &shCOLUMN DEFINITIONS &eh &et &f');UTL_FILE.PUT_LINE(handle,'&std &sh OE_ORDER_HEADERS (ORD) &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld OP => OPEN FLAG &d BK => BOOKED FLAG &d SP => PARTIAL SHIPMENTS ALLOWED &el ');UTL_FILE.PUT_LINE(handle,'&sld CN => CANCEL FLAG &d STA => SHIP TOLERANCE ABOVE &d STB => SHIP TOLERANCE BELOW &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh OE_ORDER_LINES (LIN) &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld SHN_Q => SHIPPING QUANTITY &d OP => OPEN FLAG &d ORG => ORGANIZATION CODE &el');UTL_FILE.PUT_LINE(handle,'&sld SHP_Q => SHIPPED QUANTITY &d BK => BOOKED FLAG &d SI => Shipping Interfaced Flag &el');UTL_FILE.PUT_LINE(handle,'&sld FUL_Q => FULFILLED QUANTITY &d SH => SHIPPABLE FLAG &d II => Inventory Interfaced Flag &el');UTL_FILE.PUT_LINE(handle,'&sld CAN_Q => CANCELLED QUANTITY &d CN => CANCELLED FLAG &d ATO => ATO FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld INC_Q => INVOICED QUANTITY &d VD => VISIBLE DEMAND FLAG &d OPT => OPTION FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld RES_Q => RESERVATION QUANTITY &d SMC => SHIP MODEL COMPLETE &d FF => FULFILLED_FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld LCN_Q => LAST CANCELLED QTY &d CAL_PR => CALCULATE PRICE &d &sp &el');UTL_FILE.PUT_LINE(handle,'&sld STA => SHIP TOLERANCE ABOVE &d STB => SHIP TOLERANCE BELOW &d &sp &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');if substr(UPPER(nvl('&prt_price','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&std &sh APPLIED and UN-APPLIED HEADER PRICE ADJUSTMENTS (ADJ) &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld MOD_LVL => MODIFIER_LEVEL &d IF => INVOICED FLAG &d LK => LOCK CONTROL &el');UTL_FILE.PUT_LINE(handle,'&sld CHG_TY_CD => CHARGE_TYPE_CODE &d EF => ESTIMATED FLAG &d PP => PRICING PHASE &el');UTL_FILE.PUT_LINE(handle,'&sld CD => CREDIT_OR_DEBIT &d UA => UPDATE ALLOWED &d PI => PRINT ON INVOICE &el');UTL_FILE.PUT_LINE(handle,'&sld AF => AUTOMATIC FLAG &d UF => UPDATED FLAG &d AP => APPLIED FLAG &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh APPLIED AND UNAPPLIED LINE PRICE ADJUSTMENTS &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld MOD_LVL => MODIFIER_LEVEL_CODE &d CD => CREDIT_OR_CHARGE_FLAG &d UA => UPDATE_ALLOWED &el');UTL_FILE.PUT_LINE(handle,'&sld CHG_TY_CD => CHARGE_TYPE_CODE &d AF => AUTOMATIC_FLAG &d UF => UPDATED_FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld ARITH_OP => ARITHMETIC_OPERATOR &d PI => PRINT_ON_INVOICE_FLAG &d AP => APPLIED_FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld OP_PER_QTY => OPERAND_PER_PQTY &d AC => ACCRUAL_FLAG &d LK => LOCK_CONTROL &el');UTL_FILE.PUT_LINE(handle,'&sld ADJ_AMT_PO => ADJUSTED_AMOUNT_PER_PQTY &d EF => ESTIMATED_FLAG &d PERC => PERCENT &el');UTL_FILE.PUT_LINE(handle,'&sld ADJ_AMT => ADJUSTED_AMOUNT &d PP => PRICING_PHASE_ID &d &sp &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');end if; -- prt_priceUTL_FILE.PUT_LINE(handle,'&std &sh WSH_DELIVERY_DETAILS (DET) &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld MO_LINE_ID => MOVE ORDER LINE ID &d DLV_Q => DELIVERED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld DELIV_ID => DELIVERY ID &d CAN_Q => CANCELLED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld SRQ_Q => SOURCE REQUESTED QUANTITY &d SRQ_U => SOURCE REQUESTED QUANTITY UOM &el');UTL_FILE.PUT_LINE(handle,'&sld REQ_Q => REQUESTED QUANTITY &d REQ_U => REQUESTED QUANTITY UOM &el');UTL_FILE.PUT_LINE(handle,'&sld OMI => ORDER MANAGEMENT INTERFACED &d INI => INVENTORY INTERFACED &el');UTL_FILE.PUT_LINE(handle,'&sld PIKF => PICKABLE_FLAG &d PIK_Q => PICKED_QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld SHP_Q => SHIPPED QUANTITY &d ORG_SUB => ORIGINAL SUBINVENTORY &el');UTL_FILE.PUT_LINE(handle,'&sld CUR_SUB => CURRENT SUBINVENTORY &d CF => CONTAINER FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld FL_PERC => FILL PERCENTAGE &d SHP_SET => SHIP_SET_ID &el');UTL_FILE.PUT_LINE(handle,'&sld STA => SHIP TOLERANCE ABOVE &d STB => SHIP TOLERANCE BELOW &el');UTL_FILE.PUT_LINE(handle,'&sld TRX_TEMP_ID=> TRANSACTION_TEMP_ID &d TOP_MO_LIN => TOP_MODEL_LINE_ID &el');UTL_FILE.PUT_LINE(handle,'&sld SHP_MC => SHIP_MODEL_COMPLETE_FLAG &d SPL_DEL_DET_ID ==> SPLIT FROM DEL.DETAIL ID &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh WSH_SERIAL_NUMBERS (WSN) &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld DET_DET_ID => DELIVERY DETAIL ID &d DLV_Q => DELIVERED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld REL_STATUS => RELEASED STATUS &d CAN_Q => CANCELLED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld SRQ_Q => SOURCE REQUESTED QUANTITY &d SRQ_U => SOURCE REQUESTED QUANTITY UOM &el');UTL_FILE.PUT_LINE(handle,'&sld REQ_Q => REQUESTED QUANTITY &d REQ_U => REQUESTED QUANTITY UOM &el');UTL_FILE.PUT_LINE(handle,'&sld OMI => ORDER MANAGEMENT INTERFACED &d INI => INVENTORY INTERFACED &el');UTL_FILE.PUT_LINE(handle,'&sld PIKF => PICKABLE_FLAG &d PIK_Q => PICKED_QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld SHP_Q => SHIPPED QUANTITY &d ORG_SUB => ORIGINAL SUBINVENTORY &el');UTL_FILE.PUT_LINE(handle,'&sld CUR_SUB => CURRENT SUBINVENTORY &d CF => CONTAINER FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld FL_PERC => FILL PERCENTAGE &d SHP_SET => SHIP_SET_ID &el');UTL_FILE.PUT_LINE(handle,'&sld STA => SHIP TOLERANCE ABOVE &d STB => SHIP TOLERANCE BELOW &el');UTL_FILE.PUT_LINE(handle,'&sld SHP_MC => SHIP_MODEL_COMPLETE_FLAG &d SPL_DEL_DET_ID ==> SPLIT FROM DEL.DETAIL ID &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');if substr(UPPER(nvl('&prt_inv','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&std &sh MTL_RESERVATIONS (RES) &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld RES_Q => PRIMARY RESERVATION QUANTITY &d DET_Q => DETAILED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld DS_TYPE => DEMAND SOURCE TYPE &d WH_ID => ORGANIZATION ID &el');UTL_FILE.PUT_LINE(handle,'&sld SS_TYPE_ID => SUPPLY SOURCE TYPE ID &d &sp &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh MTL_TRANSACTIONS_INTERFACE (MTI) &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld TRX_INT_ID => TRANSACTION_INTERFACE_ID &d PRM_Q => PRIMARY QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld LCK => LOCK CODE &d FROM_SUB => FROM SUBINVENTORY &el');UTL_FILE.PUT_LINE(handle,'&sld FROM_LOC_ID => FROM LOCATOR ID &d TRANS_MODE => TRANSACTION MODE &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh MTL_MATERIAL_TRANSACTIONS_TEMP (TMP) - UNPICKED LINES &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld MTL_TRNS_ID => MTL TRANSACTION ID &d PICK_SLIP => PICK SLIP NUMBER &el');UTL_FILE.PUT_LINE(handle,'&sld PRM_Q => PRIMARY QUANTITY &d LCK => LOCK CODE &el');UTL_FILE.PUT_LINE(handle,'&sld FROM_SUB => FROM SUBINVENTORY &d FROM_LOC_ID => FROM LOCATOR ID &el');UTL_FILE.PUT_LINE(handle,'&sld TRANS_MODE => TRANSACTION MODE &d &sp &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh MTL_MATERIAL_TRANSACTIONS (TRN) - PICKED LINES &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld MTL_TRNS_ID => MTL TRANSACTION ID &d TRANS_TYPE => TRANSACTION TYPE &el');UTL_FILE.PUT_LINE(handle,'&sld PRM_Q => PRIMARY QUANTITY &d LCK => LOCK CODE &el');UTL_FILE.PUT_LINE(handle,'&sld FROM_SUB => FROM SUBINVENTORY &d FROM_LOC_ID => FROM LOCATOR ID &el');UTL_FILE.PUT_LINE(handle,'&sld TO_SUB => TO SUBINVENTORY &d TO_LOC_ID => TO LOCATOR ID &el');UTL_FILE.PUT_LINE(handle,'&sld TRANS_MODE => TRANSACTION MODE &d &sp &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh MTL_UNIT_TRANSACTIONS (UNT) &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld TRANS_ID => TRANSACTION ID &d SUBINV => SUBINVENTRY CODE &el');UTL_FILE.PUT_LINE(handle,'&sld LOC_ID => LOCATOR ID &d SERIAL_NUM => SERIAL NUMBER &el');UTL_FILE.PUT_LINE(handle,'&sld WH_ID => WAREHOUSE ID &d TRX_DATE => TRANSACTION DATE &el');UTL_FILE.PUT_LINE(handle,'&sld TRX_SRC_ID => TRANSACTION SOURCE ID &d TRX_SRC_TYPE_ID => TRANSACTION SOURCE TYPE ID &el');UTL_FILE.PUT_LINE(handle,'&sld CUST_ID => CUSTOMER ID &d SHIP_ID => SHIPMENT ID &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh MTL_TXN_REQUEST_LINES_V (MOV) - MOVE TRANSACTIONS &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld MO_LINE_ID => MOVE ORDER LINE ID &d MO_NUMBER => MOVE ORDER NUMBER &el');UTL_FILE.PUT_LINE(handle,'&sld MV_HDR_ID => MOVE ORDER HEADER ID &d MV_LINE_NUM => MOVE ORDER LINE NUMBER &el');UTL_FILE.PUT_LINE(handle,'&sld MV_LINE_STAT => MOVE ORDER LINE STATUS &d TXN_SLINE_ID=> TRANSACTION SOURCE LINE ID &el');UTL_FILE.PUT_LINE(handle,'&sld PRM_Q => PRIMARY QUANTITY &d DLV_Q => DELIVERED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld DTL_Q => DETAILED QUANTITY &d WH_ID => WAREHOUSE ID &el');UTL_FILE.PUT_LINE(handle,'&sld FROM_SUB => FROM SUBINVENTORY &d FROM_LOC_ID => FROM LOCATOR ID &el');UTL_FILE.PUT_LINE(handle,'&sld TO_SUB => TO SUBINVENTORY &d TO_LOC_ID => TO LOCATOR ID &el');UTL_FILE.PUT_LINE(handle,'&sld LOT_NUM => LOT NUMBER &d TRNS_HEAD_ID=> TRANSACTION HEADER ID &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');end if; -- prt_invif substr(UPPER(nvl('&prt_ar','Y')),1,1) = 'Y' thenUTL_FILE.PUT_LINE(handle,'&std &sh RA_INTERFACE_LINES (RAI) &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld QTY => QUANTITY &d IR_ID => INVOICING RULE ID &d TR => TAX RATE &el');UTL_FILE.PUT_LINE(handle,'&sld ORD_Q => ORDERED QUANTITY &d PA_ID_11 => PRICE ADJUSTMENT ID &d EF => TAX EXEMPT FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld SO_LIN => SALES ORDER LINE ID &d C_RATE => CONVERSION RATE &d S_TAX_ID => SALES TAX ID &el');UTL_FILE.PUT_LINE(handle,'&sld AR_ID => ACCOUNTING RULE ID &d C_DATE => CONVERSION DATE &d CURR => CURRENCY CODE &el');UTL_FILE.PUT_LINE(handle,'&sld WH_ID => WAREHOUSE ID &d VAT_ID => VALUE ADDED TAX ID &d EF => TAX EXEMPT FLAG &el');UTL_FILE.PUT_LINE(handle,'&sld TERR_ID=> TERRITORY ID &d &sp &d &sp &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh RA_CUSTOMER_TRX (RAH) - INVOICE HEADERS &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld CUST_TRX_ID => CUSTOMER TRANSACTION ID &d TRX_NUMBER => TRANSACTION NUMBER &d TRX_DATE => TRANSACTION DATE &el');UTL_FILE.PUT_LINE(handle,'&sld CURR => CURRENCY &d COMP_FL => COMPLETE FLAG &d IR_ID => INVOICING RULE ID &el &et');UTL_FILE.PUT_LINE(handle,'&f &f');UTL_FILE.PUT_LINE(handle,'&std &sh RA_CUSTOMER_TRX_LINES (RAL) - INVOICE LINES &dh &sp &dh &sp &eh');UTL_FILE.PUT_LINE(handle,'&sld TRX_LINE_ID => TRANSACTION LINE ID &d CUST_TRX_ID => CUSTOMER TRANSACTION ID &d TRX_NUMBER => TRANSACTION NUMBER &el');UTL_FILE.PUT_LINE(handle,'&sld ORD_Q => ORDERED QUANTITY &d INV_Q => INVOICED QUANTITY &d CRD_Q => CREDITED QUANTITY &el');UTL_FILE.PUT_LINE(handle,'&sld EXTD_AMT => EXTENDED AMOUNT &d REV_AMT => REVISED AMOUNT &d PA_ID_11 => PRICE ADJUSTMENT ID &el');UTL_FILE.PUT_LINE(handle,'&sld TF => TAXABLE FLAG &d TR => TAX RATE &d VAT_ID => VALUE ADDED TAX ID &el &et');end if; -- prt_arUTL_FILE.PUT_LINE(handle,'&f &f');-- Closing Timeselect '&std &sh Script completion time: &eh &sld '||to_char(sysdate,'DD-MON-RR_HH24:MI:SS')||' &el &et &f &f'into textfrom dual;UTL_FILE.PUT_LINE(handle,text);UTL_FILE.PUT_LINE(handle,'');-- Close output fileUTL_FILE.FCLOSE(handle);END;/
阅读全文
0 0
- 发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation
- 发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation
- ONT-Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation (文档 ID 1350621.1
- Order&Shipping Transactions Status Summary
- Order&Shipping Transactions Status Summary
- Order&Shipping Transactions Status Summary
- OM-Order&Shipping Transactions Status Summary .
- 销售订单行状态为实施--解决办法
- 销售订单行项目的装运点字段确认规则
- 用ME_CONFIRMATION_UPDATE处理采购订单行项目确认视图
- 销售订单行项目的装运点字段确认规则
- Production Issue: Drop ship order line workflow issue
- How To Import A Sales Order With One Line In Booked Status
- Oracle EBS OM销售订单行状态“施实”处理方法
- 销售订单行状态为“已登记”解决办法
- 销售订单发货后能否更改订单行项目数量？
- 销售订单 出库 发运确认
- OM LINE_BOOKED 改成awaiting Shipping(往回推workflow)
- freemarker macro(宏)的使用
- Linux之Centos7.x安装和使用**
- YUV与RGB格式转换
- 构造一个函数能将border-bottom-color用函数转成驼峰命名法。
- error: Error parsing XML: not well-formed (invalid token)
- 发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation
- PHP读取文件内容的五种方式
- 分类问题中的样本不均衡算法使用备忘录
- ajax 中 请求 post方式请求url
- C++虚函数
- Leetcode 44. Wildcard Matching
- 关于springmvc处理跨域请求的问题
- 游戏编程入门（8）：管理子画面
- CountBitsSetTable
