发运确认后，订单行保持“已挑库”状态 Order Line Remains in Picked (Awaiting Shipping) Status After Ship Confirmation

发运确认后，订单行保持“已挑库”状态 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_flag
FROM wsh_delivery_details wdd,
oe_order_lines_all ol
WHERE wdd.source_line_id = ol.line_id
and 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 on

BEGIN
SELECT max(release_name)
INTO :apps_version
FROM 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.160122

From HTMomse11i:
31-MAR-00 Created rnmercer
12-DEC-00 Major modifications to the look of the report including rnmercer
abreviated column names for flags, etc. A legend cross
referencing the abreviations is included in the output.
Got rid of the need to input the org_id. It is set via
derived data from the header_id.
05-DEC-01 Changed format of output filename as part of the iTar
automated scripting initiative. rodavid
02-APR-04 Modified to create HTML output file and included basic
14-APR-04 verifications to help the Analysis rijames
For HTMomse12:
09-JAN-08 Created as copy of HTMomse11i 7.5.1 rijames
11-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.160122
08-FEB-16 Allow Header information (WF, Price, Holds) to print rijames
when 'Header Only' is enabled (no lines on Order).
08-FEB-16 Add Internal Activity Status on Work Flow outputs. rijames
23-FEB-16 Add field Batch_id on DELIVERY DETAILS. rijames
23-FEB-16 Add field Reservable on ORDER LINES. rijames
26-FEB-16 Add queries for Back to Back Orders on PO Requisitions rijames

For HTMomse
01-MAR-16 Modify existing HTMomse12 to execute on Rel.11i also rijames
New fields for Rel.12 marked as comments on SQL's
08-MAR-16 Add rownum = 1 on OE_LINES WF status to manage ORA-1422 rijames Ver. 1.0.160309
16-MAR-16 Add OTM Installed, Enabled on Organizations query. rijames
16-MAR-16 Remove duplicate column Source_Line_Set_Id from WDD rijames
17-MAR-16 Add additional exeptions on OE Headers and OE Lines rijames
17-MAR-16 Add Mtl_Transactions_Enabled_Flag on WDD results rijames Ver. 1.0.160317
21-MAR-16 Modify SQLs on Receivables tables to include missing trx rijames Ver. 1.0.160321
24-MAR-16 Add Order Source on OE_Headers rijames
24-MAR-16 Add Service Details on OE_Lines rijames Ver. 1.0.160324
25-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 Support
Note 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_NOTIFICATIONS
column 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_ALL
column 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_ALL

column 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.99
column 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 TABLES
column 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_ALL
column AUTH_STATUS format A11;
column DEST_TYPE format A10;
column SRC_CODE format A11;
column SRC_TYPE_CODE format A13;

-- PO_REQUISITION_HEADERS_ALL
column 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_HEADERS
column PO_NUM format A06;

-- MTL_SUPPLY
column SUP_TYPE format a08;
-- MTL_RESERVATIONS
column SHIP_READY format A12;
column SS_TYPE_ID format A11;
-- WSH_TRIPS
column 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_STOPS
column 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_LEGS
column LEG_ID format 9999999;
column LOAD_TENDER_STAT format A15;

-- WSH_NEW_DELIVERIES DEL
column 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 ASG
column ACTIVE format A06;

-- WSH_DELIVERY_DETAILS
column 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_V
column 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_V
column 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_TEMP
column ERROR_EXPL format A10;
-- RA_CUSTOMER_TRX
-- RA_CUSTOMER_TRX_LINES
column 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.99

column 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_cnt
from oe_order_headers_all
where
order_number = :v_order_num;

if :v_head_cnt = 0 then
RAISE no_data_found;
end if;

if :v_head_cnt = 1 then
select header_id
into :v_header_id
from oe_order_headers_all
where order_number = :v_order_num;
end if;

exception
when no_data_found then
dbms_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 then
dbms_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 */
select
ORD.HEADER_ID HEADER_ID,
TYP.NAME ORDER_TYPE_NAME,
ORD.ORDER_CATEGORY_CODE CATEGORY,
ORD.ORG_ID ORG_ID,
(select name
from hr_operating_units
where organization_id = nvl(ORD.ORG_ID,-99)) ORGANIZATION_NAME
from
OE_ORDER_HEADERS_ALL ORD,
OE_TRANSACTION_TYPES_TL TYP,
FND_LANGUAGES FLA
where
ORD.ORDER_NUMBER = :v_order_num
and TYP.LANGUAGE = FLA.LANGUAGE_CODE
and FLA.INSTALLED_FLAG = 'B'
and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_ID
and :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 */
begin
select org_id
into :v_op_unit
from oe_order_headers_all ord
where
ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id);

if substr(:apps_version,1,2) = '11' then -- Release 11i
fnd_client_info.set_org_context(to_char(:v_op_unit));
else -- Release 12
mo_global.set_policy_context(p_access_mode => 'S', p_org_id => :v_op_unit); -- by rodavid
end if;

exception
when no_data_found then
dbms_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 then
dbms_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;
/

begin
select count(*)
into :v_line_tot
from oe_order_lines_all
where header_id = nvl('&header_id_selected',:v_header_id);

if :v_line_tot = 0 then
dbms_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;
/

prompt
accept 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
from
OE_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 NULL
and LIN.ITEM_TYPE_CODE <> 'INCLUDED'
and substr(UPPER(nvl('&print_lines_summary','Y')),1,1) = 'Y'
order by
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;

/* Display any header or line sets associated with this order */
PROMPT
PROMPT 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 STB
from OE_SETS ST1,
OE_LINE_SETS LST
where 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';

prompt
accept line_id_selected prompt 'Please enter LINE_ID from list above(leave blank for all lines): '

begin
if :v_line_tot > 0 then -- check for line_id
begin
select count(*)
into :v_line_cnt
from oe_order_lines_all
where header_id = nvl('&header_id_selected',:v_header_id)
and nvl('&line_id_selected',0) in (0,line_id);

if :v_line_cnt = 0 then
RAISE no_data_found;
end if;

exception
when no_data_found then
dbms_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 then
dbms_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;

prompt
accept do_analysis prompt 'Do you want validation performed on this order (Default=Y): '
prompt

prompt
accept 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): '
prompt
prompt Listing of tables for WMS could be extense, *** Note Default is No ***
accept prt_wms prompt 'Do you want WMS information printed? (Default=N): '
prompt
prompt 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): '
prompt

set heading off

def 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 location
column DUMMY new_value out_dir noprint
column DUMMY2 new_value host_nam noprint
select substr(value,1,instr(value||',',',')-1) DUMMY
from v$parameter where name = 'utl_file_dir';

select substr(machine,1,20) DUMMY2
from 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 '!'
-- Tables
def std=''
def et=-- headers
def sh=' '
def dh=' '
def dhr=' '
def eh=''
-- def sh=''
-- def dh=''
-- def eh=''
-- lines
def sld=''
def d=''
def el=''
-- def sld=''
-- def d=''
-- def el=''
-- otros
def f=
-- eol
def b= -- bold
def eb= -- end bold
def sp=' ' -- space
set null ' '
set define '&'

-- Start of printout
DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is -- to print fields
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

function n2(v varchar2,v2 varchar2) return varchar2 is -- to print parameters
begin
if v is null then
return v2;
else
return 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 dirname
from 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 execution
UTL_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 text
from 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' then
UTL_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');
else
UTL_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 access
UTL_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 screen

UTL_FILE.PUT_LINE(handle,'&std &sh HEADER_ID &dh ORDER_TYPE_NAME &dh CATEGORY &dh ORG_ID &dh ORGANIZATION_NAME &el');

Declare
cursor l_orders is
select
ORD.HEADER_ID Hea_I,
TYP.NAME OT_NAME,
ORD.ORDER_CATEGORY_CODE CAT_co,
ORD.ORG_ID ORG_I
from
OE_ORDER_HEADERS_ALL ORD,
OE_TRANSACTION_TYPES_TL TYP,
FND_LANGUAGES FLA
where
ORD.ORDER_NUMBER = :v_order_num
and TYP.LANGUAGE = FLA.LANGUAGE_CODE
and FLA.INSTALLED_FLAG = 'B'
and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_ID
and :v_error = 0;

or_name varchar2(100);

begin
for lo in l_orders
loop

-- Organization Name
select name
into or_name
from hr_operating_units
where organization_id = nvl(lo.ORG_I,-99);

-- Print line to Output file

utl_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' then

UTL_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');

Declare
cursor l_lines_ord 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_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_ID
from
OE_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 NULL
and LIN.ITEM_TYPE_CODE <> 'INCLUDED'
order by
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;

begin
for ll in l_lines_ord
loop
utl_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');

Declare
cursor l_oe_sets is
select 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 STB
from OE_SETS ST1,
OE_LINE_SETS LST
where ST1.SET_ID = LST.SET_ID(+)
and ST1.HEADER_ID = nvl('&header_id_selected',:v_header_id);

begin
for ll in l_oe_sets
loop
utl_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;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

UTL_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');

declare
cursor header1 is
select 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
from
OE_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 OS
where
ORD.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;

begin
dbms_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' then
for i in 1..99
loop
msg(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 name
select WFA1.DISPLAY_NAME
into r_ord_t
FROM WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1
where 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_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION = (select nvl(max(VERSION),-1)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME);

-- Select current activity
select WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,
WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),
LKP.MEANING
into :r_pro_na, :r_act_na, :r_result, :r_act_s
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where WFS.ITEM_TYPE = 'OEOH'
and WFS.item_key = To_Char(h.head_id)
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and rownum = 1 -- to manage ORA-1422
and WFA1.VERSION = (select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and Execution_time = (Select Max(execution_time) from WF_ITEM_ACTIVITY_STATUSES
where ITEM_TYPE = 'OEOH'
and item_key = To_Char(h.head_id));
exception
when 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 lines
begin
select 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_l
from oe_order_lines_all
where header_id = h.head_id
group by header_id;
exception
when no_data_found then
r_open_l := 0;
r_canc_l := 0;
r_canopen_l := 0;
end;
---
-- Basic Verifications
--

-- Open lines have cancelled flag showing as open
if 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 lines
and h.fl_co <> 'CLOSED' then
if :r_pro_na = 'Close - Order' -- check current status
and :r_act_s = 'Deferred' then
null; -- OK just waiting for month end
else
: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 status
if :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 completed
begin
select WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,
WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),
LKP.MEANING
into :r_pro_na, :r_act_na, :r_result, :r_act_s
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where WFS.ITEM_TYPE = 'OEOH'
and WFS.item_key = to_char(h.head_id)
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION = (select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFA1.DISPLAY_NAME = 'Book';
exception
when 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' then
if :r_result = 'Complete'
and :r_act_s = 'Complete' then
null; -- status is OK
else
: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 status
if :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 activity
begin
select WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,
WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),
LKP.MEANING
into :r_pro_na, :r_act_na, :r_result, :r_act_s
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where WFS.ITEM_TYPE = 'OEOH'
and WFS.item_key = To_Char(h.head_id)
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION = (select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFA1.DISPLAY_NAME = 'Close';
exception
when 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 completed
if :r_act_na = 'Close' then
if :r_result = 'Complete'
and :r_act_s = 'Complete' then
null; -- status is OK
else
:r_flag := :r_flag || '20 ';
msg(20).flag := '1';
end if;
end if;

-- check for open lines
if r_open_l > 0 then
:r_flag := :r_flag || '21 ';
msg(21).flag := '1';
end if;
end if; -- CLOSED

end if; -- do_analysis

-- Print line to Output file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..99
loop
if msg(i).flag = '1' then
utl_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;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
-- If :v_head_only = 'N' then

-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

if substr(UPPER(nvl('&prt_wf','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor l_wf_order is
select 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_name
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'OEOH'
and WFS.item_key = nvl('&header_id_selected',to_char(:v_header_id))
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
order by WFS.ITEM_KEY,
WFS.BEGIN_DATE,
EXECUTION_TIME;

begin
for ll in l_wf_order
loop
utl_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');

Declare
cursor l_wf_ord_noti is
select 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 SUBJECT
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_NOTIFICATIONS WFN
where WFS.ITEM_TYPE = 'OEOH'
and WFS.item_key = nvl('&header_id_selected',to_char(:v_header_id))
and WFS.NOTIFICATION_ID is not null
and WFN.NOTIFICATION_ID = WFS.NOTIFICATION_ID
order by WFS.ITEM_KEY,
WFS.BEGIN_DATE,
EXECUTION_TIME;

begin
for ll in l_wf_ord_noti
loop
utl_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');

Declare
r_exist number;

begin
select count(*)
into r_exist
from all_tables
where table_name = 'ONT_WF_SKIP_LOG';
if r_exist = 0 then
utl_file.put_line(handle,'&et Table ONT_WF_SKIP_LOG is not present on this instance: &f');
end if;
end;

Declare
cursor l_wf_ord_skip is
select 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_ID
from ONT_WF_SKIP_LOG WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA
where WFS.LINE_ID is null
and WFS.HEADER_ID = nvl('&header_id_selected',to_char(:v_header_id))
and WFS.ACTIVITY_ID = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
order by WFS.HEADER_ID,
WFS.CREATION_DATE;

begin
for ll in l_wf_ord_skip
loop
utl_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');

Declare
cursor l_wf_ord_err is
select 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_stack
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'OEOH'
and WFS.item_key = nvl('&header_id_selected',to_char(:v_header_id))
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFS.ACTIVITY_STATUS = 'ERROR'
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for ll in l_wf_ord_err
loop
utl_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');

Declare
cursor l_wf_ord_erp is
select 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_DATE
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP,
WF_ITEMS WFI
where
WFS.ITEM_TYPE = WFI.ITEM_TYPE
and WFS.item_key = WFI.ITEM_KEY
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and 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_TYPE
from WF_ITEM_ACTIVITY_STATUSES WFSE,
WF_PROCESS_ACTIVITIES WFPE,
WF_ACTIVITIES_VL WFAE,
WF_ACTIVITIES_VL WFA1E
where
WFSE.ITEM_TYPE = 'OEOH'
and WFSE.ITEM_KEY = nvl('&header_id_selected',to_char(:v_header_id))
and WFSE.PROCESS_ACTIVITY = WFPE.INSTANCE_ID
and WFPE.PROCESS_ITEM_TYPE = WFAE.ITEM_TYPE
and WFPE.PROCESS_NAME = WFAE.NAME
and WFPE.PROCESS_VERSION = WFAE.VERSION
and WFPE.ACTIVITY_ITEM_TYPE = WFA1E.ITEM_TYPE
and WFPE.ACTIVITY_NAME = WFA1E.NAME
and WFA1E.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2E
where WF2E.ITEM_TYPE = WFPE.ACTIVITY_ITEM_TYPE
and WF2E.NAME = WFPE.ACTIVITY_NAME)
and WFSE.ACTIVITY_STATUS = 'ERROR')
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for ll in l_wf_ord_erp
loop
utl_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_only

UTL_FILE.FCLOSE(handle);
end;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
-- If :v_head_only = 'N' then

-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

UTL_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');

Declare
cursor l_ord_hld is
SELECT
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_until
from OE_ORDER_HOLDS_ALL HLD,
OE_HOLD_SOURCES_ALL HSR,
OE_HOLD_DEFINITIONS HDF,
OE_HOLD_RELEASES HRL
where HLD.HEADER_ID = nvl('&header_id_selected',:v_header_id)
and HLD.HOLD_SOURCE_ID = HSR.HOLD_SOURCE_ID
and HSR.HOLD_ID = HDF.HOLD_ID
and HLD.HOLD_RELEASE_ID = HRL.HOLD_RELEASE_ID(+)
and HLD.LINE_ID IS NULL;

begin
for ll in l_ord_hld
loop
utl_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;

-- PROMPT
UTL_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');

declare
cursor h_proc is
select distinct
MSG.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_TEXT
from oe_processing_msgs_vl MSG,
oe_processing_msgs_tl MST,
fnd_languages FLA
where MSG.header_id = nvl('&header_id_selected',:v_header_id)
and msg.transaction_id = mst.transaction_id
and 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' then
for i in 1..10
loop
msg(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 name
begin
select WFA1.DISPLAY_NAME
into r_activity
from WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA1
where WFP.INSTANCE_ID = hp.PROCESS_ACTIVITY
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION = (select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME);
exception
when no_data_found then
:r_flag := :r_flag || '1 ';
msg(1).flag := '1';
end;

-- Get Request description
begin
select DESCRIPTION
into r_descrip
FROM FND_CONCURRENT_REQUESTS FCR
where FCR.REQUEST_ID = hp.REQUEST_ID;
exception
when no_data_found then
:r_flag := :r_flag || '2 ';
msg(2).flag := '1';
end;

end if; -- do_analysis

-- Print line to Output file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..10
loop
if msg(i).flag = '1' then
utl_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_only

UTL_FILE.FCLOSE(handle);
end;
/

-- DROP INDEX OE_PROCESSING_MSGS_777

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
-- If :v_head_only = 'N' then

-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

if substr(UPPER(nvl('&prt_price','Y')),1,1) = 'Y' then

UTL_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');

declare
cursor h_prc_adj is
select
ADJ.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 PP
from OE_PRICE_ADJUSTMENTS ADJ
where 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;

begin
for hh in h_prc_adj
loop
utl_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_price

UTL_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');

declare
cursor mtl_sal is
select
MSO.SALES_ORDER_ID ,
ORD.HEADER_ID ,
ORD.ORDER_NUMBER ,
TYP.NAME ,
MSO.SEGMENT3
from
MTL_SALES_ORDERS MSO,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_VL TYP
where
ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_ID
and TO_CHAR(ORD.ORDER_NUMBER) = MSO.SEGMENT1
and TYP.NAME(+) = MSO.SEGMENT2
-- klr
and MSO.SEGMENT1 = '&order_number_selected'
and ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id)
order by
ORD.HEADER_ID;

begin
for ms in mtl_sal
loop
utl_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');

begin
select 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 FLA
where ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id)
and ORD.ORDER_TYPE_ID = TYP.TRANSACTION_TYPE_ID
and TYP.LANGUAGE = FLA.LANGUAGE_CODE
and FLA.INSTALLED_FLAG = 'B'
-- klr
and MSO.SEGMENT1 = '&order_number_selected'
and TYP.NAME = MSO.SEGMENT2;
end;

-- end if; -- v_head_only

UTL_FILE.FCLOSE(handle);
end;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);
c_lines number;

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
c_lines := 0;
If :v_head_only = 'N' then

-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

UTL_FILE.PUT_LINE(handle,'&f &f OE_ORDER_LINES (LIN) Column Definitions &f');

-- Titles will be printed later, titles repeat every 50 lines

declare
cursor 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_per
from
OE_ORDER_LINES LIN,
-- OE_TRANSACTION_TYPES TYP,
MTL_SYSTEM_ITEMS ITM,
-- MTL_PARAMETERS PAR,
OE_SETS ST1,
OE_SETS ST2,
OE_SETS ST3
where
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 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 by
nvl(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_type
from oe_sets os, oe_line_sets ols
where os.set_id = ols.set_id
and 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' then
for i in 1..99
loop
msg(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 name
begin
:r_line_t := '';
select WFA.DISPLAY_NAME
into :r_line_t
FROM WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA
WHERE WFS.ITEM_TYPE = 'OEOL'
-- klr
and WFS.ITEM_KEY = to_char(I.LINE_I)
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_NAME = 'ROOT'
and WFP.ACTIVITY_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA.NAME
and nvl(WFA.VERSION,-1) = (select nvl(max(VERSION),-1)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME);
exception
when 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 code
begin
select ORGANIZATION_CODE
into org_i
from MTL_PARAMETERS
where i.shipfrom = ORGANIZATION_ID(+);
exception
when no_data_found then
org_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 name
begin
select NAME
into lin_ty
from OE_TRANSACTION_TYPES
where i.LINE_TYPE_ID = TRANSACTION_TYPE_ID;
exception
when no_data_found then
lin_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.
begin
select Delivery_detail_id
into r_del_det
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and source_code = 'OE'
and rownum = 1;
exception
when no_data_found then
null; -- conditions will be evaluated later

when others then
:r_flag := :r_flag || '99 ';
msg(99).flag := '1';
msg(99).descrip := msg(99).descrip || 'associated WDD ';
end;

-- Get associated sets
for sl in setl(i.line_i)
loop
r_sets := r_sets || to_char(sl.set_id)||'-'||sl.set_type || ' ';
end loop;

-- Reservations
select sum(nvl(RESERVATION_QUANTITY,0))
into :r_res_q
from MTL_RESERVATIONS RES
where RES.DEMAND_SOURCE_HEADER_ID = :sales_ord_id
and 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 status
begin
: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.MEANING
into :r_pro_na, :r_act_na, :r_result, :r_act_s
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where WFS.ITEM_TYPE = 'OEOL'
and WFS.item_key = To_Char(i.line_i)
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and rownum = 1 -- to manage ORA-1422
and WFA1.VERSION = (select max(VERSION) from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and Execution_time = (Select Max(execution_time) from WF_ITEM_ACTIVITY_STATUSES
where item_type = 'OEOL' and Item_key = To_Char(i.line_i));
exception
when no_data_found then
if msg(50).flag = '1' then
null; -- problem already discovered
else
: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 WSH
select count(*) -- count total wdd for this line
into :r_wdd
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and 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 OM
if i.shipf = 'Y' then -- Shippable line
if i.shpq > 0
or i.fulq > 0
or i.invq > 0 then
select count(*) -- count if any associated Delivery Detail has been OM interfaced
into r_omint
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and 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 Y
if 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' then

if 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 status
if :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 completed
begin
select WFA.DISPLAY_NAME, WFA1.DISPLAY_NAME,
WF_CORE.ACTIVITY_RESULT(WFA1.RESULT_TYPE,WFS.ACTIVITY_RESULT_CODE),
LKP.MEANING
into r_pro_nab, r_act_nab, r_resultb, r_act_sb
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where WFS.ITEM_TYPE = 'OEOL'
and WFS.item_key = To_Char(i.line_i)
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION = (select max(VERSION) from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFA1.DISPLAY_NAME = 'Wait for Booking';
exception
when 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' then
if r_resultb = 'Null'
and r_act_sb = 'Complete' then
null; -- status is OK
else
: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' then
null; -- OK last activity is Booking
else
: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' then
if 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 line
into :r_wdd
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and source_code = 'OE';
If :r_wdd = 0 and i.si = 'Y' then
:r_flag := :r_flag || '23 ';
msg(23).flag := '1';
else
select count(*) -- Invalid Release flag status
into :r_wdd
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and 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 interfaced
into :r_wdd
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and 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 status
if :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' then
null; -- 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' then
null; -- 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' then
null; -- 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 INV
if i.shipf = 'Y' then
-- count if any associated Delivery Detail has NOT been OM or INV interfaced
begin
select sum(decode(nvl(OE_INTERFACED_FLAG,'N'),'N',1,0)), sum(decode(nvl(INV_INTERFACED_FLAG,'N'),'N',1,0))
into r_omint, r_invint
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and SOURCE_CODE = 'OE'
and released_status <> 'D'
group by SOURCE_LINE_ID;
exception
when no_data_found then
r_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 INV
if i.shipf = 'Y' then
-- count if any associated Delivery Detail has been interfaced to OM or INV
begin
select sum(decode(nvl(OE_INTERFACED_FLAG,'N'),'Y',1,0)), sum(decode(nvl(INV_INTERFACED_FLAG,'N'),'Y',1,0))
into r_omint, r_invint
from WSH_Delivery_Details
where SOURCE_LINE_ID = I.LINE_I
and source_code = 'OE'
and RELEASED_STATUS <> 'D'
group by SOURCE_LINE_ID;
exception
when no_data_found then
r_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; -- CANCELLED
end if; -- do_analysis

if c_lines >= 50 then
if c_lines = 51 then
UTL_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');
else
c_lines := c_lines + 1;
end if;

-- Print line to Output file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..99
loop
if msg(i).flag = '1' then
utl_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_only

UTL_FILE.FCLOSE(handle);
end;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
If :v_head_only = 'N' then

-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

UTL_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');

Declare
cursor l_lin_his is
select
HIL.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 comments
from
OE_ORDER_LINES_HISTORY HIL
where
HIL.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 by
NVL(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;

begin
for ll in l_lin_his
loop
utl_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' then

UTL_FILE.PUT_LINE(handle,'&f &f WORKFLOW LINE STATUS &f');

-- break on WFS.ITEM_KEY skip 2;

declare
cursor WF_LINE is
select 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_TIME2
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'OEOL'
and WFS.item_key in
(select to_char(line_id) from OE_ORDER_LINES LIN
where 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_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
UNION ALL
select 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_TIME2
from WF_ITEM_ACTIVITY_STATUSES_H WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'OEOL'
and WFS.item_key in
(select to_char(line_id) from OE_ORDER_LINES LIN
where 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_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
order 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) is
begin
utl_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;

begin
current_key := '';
:r_error := 0;

-- Initialize error messages even if Do Analysis not selected
-- if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
for i in 1..60
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;

-- end if; -- do_analysis

-- cycle for table information
for wf in wf_LINE
loop
:r_flag := '';

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null; -- nothing yet
end if; -- do_analysis

-- Print line to Output file
if wf.item_key <> nvl(current_key,0) then -- check if item key changed to place a division
if current_key is not null then -- first pass don't need to close table
utl_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_no
from OE_ORDER_LINES LIN
where 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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..60
loop
if msg(i).flag = '1' then
utl_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');

declare
r_exist number;

begin

select count(*)
into r_exist
from all_tables
where table_name = 'ONT_WF_SKIP_LOG';
if r_exist = 0 then
utl_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 WFA
where WFS.HEADER_ID = nvl('&header_id_selected',to_char(:v_header_id))
and WFS.ACTIVITY_ID = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and 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');

Declare
cursor l_wf_err is
select
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_STACK
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_ITEMS WFI,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'OEOL'
and WFS.item_key in
(select to_char(line_id) from OE_ORDER_LINES LIN
where 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_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFS.ERROR_NAME is not NULL
and WFI.PARENT_ITEM_TYPE='OEOL'
and WFI.PARENT_ITEM_KEY in
(select to_char(line_id) from OE_ORDER_LINES LIN
where 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;

begin
for ll in l_wf_err
loop
utl_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');

Declare
cursor l_wf_proc_err is
select
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_DATE
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP,
WF_ITEMS WFI
where
WFS.ITEM_TYPE = WFI.ITEM_TYPE
and WFS.item_key = WFI.ITEM_KEY
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFI.PARENT_ITEM_TYPE = 'OEOL'
and WFI.PARENT_ITEM_KEY in
(select to_char(line_id) from OE_ORDER_LINES LIN
where 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_TYPE
from WF_ITEM_ACTIVITY_STATUSES WFSE,
WF_PROCESS_ACTIVITIES WFPE,
WF_ACTIVITIES_VL WFAE,
WF_ACTIVITIES_VL WFA1E
where
WFSE.ITEM_TYPE = 'OEOL'
and WFSE.ITEM_KEY in
(select to_char(line_id) from OE_ORDER_LINES LIN
where 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_ID
and WFPE.PROCESS_ITEM_TYPE = WFAE.ITEM_TYPE
and WFPE.PROCESS_NAME = WFAE.NAME
and WFPE.PROCESS_VERSION = WFAE.VERSION
and WFPE.ACTIVITY_ITEM_TYPE = WFA1E.ITEM_TYPE
and WFPE.ACTIVITY_NAME = WFA1E.NAME
and WFA1E.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2E
where WF2E.ITEM_TYPE = WFPE.ACTIVITY_ITEM_TYPE
and WF2E.NAME = WFPE.ACTIVITY_NAME)
and WFSE.ACTIVITY_STATUS = 'ERROR')
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for ll in l_wf_proc_err
loop
utl_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

UTL_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');

Declare
cursor l_holds 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,
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_UNTIL
from OE_ORDER_HOLDS_ALL HLD,
OE_HOLD_SOURCES_ALL HSR,
OE_HOLD_DEFINITIONS HDF,
OE_HOLD_RELEASES HRL,
OE_ORDER_LINES_ALL LIN
where 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 NULL
and HLD.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 HLD.HOLD_SOURCE_ID = HSR.HOLD_SOURCE_ID
and HSR.HOLD_ID = HDF.HOLD_ID
and HLD.HOLD_RELEASE_ID = HRL.HOLD_RELEASE_ID(+);

begin
for ll in l_holds
loop
utl_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');

declare
cursor l_proc is
select distinct
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,
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_TEXT
from oe_processing_msgs_vl MSG,
oe_processing_msgs_tl MST,
oe_order_lines_all LIN,
fnd_languages FLA
where MSG.header_id = nvl('&header_id_selected',:v_header_id)
and MSG.HEADER_ID = LIN.HEADER_ID
and msg.transaction_id = mst.transaction_id
and MST.LANGUAGE = FLA.LANGUAGE_CODE
and FLA.INSTALLED_FLAG = 'B'
and MSG.LINE_ID = LIN.LINE_ID
and MSG.LINE_ID is not NULL
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);
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' then
for i in 1..10
loop
msg(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 name
begin
select WFA1.DISPLAY_NAME
into r_activity
from WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA1
where WFP.INSTANCE_ID = lp.PROCESS_ACTIVITY
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION = (select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME);
exception
when no_data_found then
:r_flag := :r_flag || '1 ';
msg(1).flag := '1';
end;

-- Get Request description
begin
select DESCRIPTION
into r_descrip
FROM FND_CONCURRENT_REQUESTS FCR
where FCR.REQUEST_ID = lp.REQUEST_ID;
exception
when 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 file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..10
loop
if msg(i).flag = '1' then
utl_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_777

if substr(UPPER(nvl('&prt_price','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor l_prc_adj is
select
ADJ.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 PP
from OE_PRICE_ADJUSTMENTS ADJ,
OE_ORDER_LINES_ALL LIN
where 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 NULL
and ADJ.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 ADJ.APPLIED_FLAG = 'Y'
order by LINE,
LIST_LINE_TYPE_CODE;

begin
for ll in l_prc_adj
loop
utl_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');

Declare
cursor l_prc_adj_un is
select
ADJ.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 PP
from OE_PRICE_ADJUSTMENTS ADJ,
OE_ORDER_LINES_ALL LIN
where 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 NULL
and ADJ.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 nvl(ADJ.APPLIED_FLAG,'N') = 'N'
order by LINE,
LIST_LINE_TYPE_CODE;

begin
for ll in l_prc_adj_un
loop
utl_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_price

if substr(UPPER(nvl('&prt_po','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor l_drop_ship is
select
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_ID
FROM OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN,
MTL_PARAMETERS PAR
WHERE
SRC.LINE_ID = LIN.LINE_ID
and 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 by
NVL(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;

begin
for ll in l_drop_ship
loop
utl_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_po

end if; -- :v_head_only

UTL_FILE.FCLOSE(handle);
end;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
If :v_head_only = 'N' then

-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

if substr(UPPER(nvl('&prt_po','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor po_req_int is
Select /* 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 PRICE
from PO_REQUISITIONS_INTERFACE_ALL RQI,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where SRC.LINE_ID = LIN.LINE_ID
and SRC.DROP_SHIP_SOURCE_ID = RQI.INTERFACE_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.SERVICE_REFERENCE_LINE_ID)
order by
NVL(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;

begin
for po in po_req_int
loop
utl_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 is
select
POE.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_NAME
from
PO_INTERFACE_ERRORS POE,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN,
PO_REQUISITIONS_INTERFACE_ALL RQI
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.DROP_SHIP_SOURCE_ID = RQI.INTERFACE_SOURCE_LINE_ID
and RQI.TRANSACTION_ID = POE.INTERFACE_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.SERVICE_REFERENCE_LINE_ID)
order by
NVL(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;

begin
for po in po_int_err
loop
utl_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');

Declare
cursor po_req_hdr is
select 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_KEY
from
PO_REQUISITION_HEADERS_ALL RQH,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_HEADER_ID = RQH.REQUISITION_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)
UNION ALL
select 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_KEY
from
PO_REQUISITION_HEADERS_ALL RQH,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_ID = RQH.REQUISITION_HEADER_ID
and LIN.SOURCE_DOCUMENT_TYPE_ID = 10 --INTERNAL REQUISITION
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 ALL
select 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_KEY
from
PO_REQUISITION_HEADERS_ALL RQH,
MTL_RESERVATIONS RES
where
:sales_ord_id = RES.DEMAND_SOURCE_HEADER_ID
and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SO
and RES.SUPPLY_SOURCE_TYPE_ID = 17 -- Req
and RES.SUPPLY_SOURCE_HEADER_ID = RQH.REQUISITION_HEADER_ID
UNION ALL
SELECT 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_KEY
FROM
PO_REQUISITION_HEADERS_ALL RQH,
OE_ORDER_LINES_ALL LIN
WHERE RQH.INTERFACE_SOURCE_LINE_ID = LIN.LINE_ID
AND RQH.INTERFACE_SOURCE_CODE = 'CTO'
and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id);

begin
for po in po_req_hdr
loop
utl_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 is
select /* 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_ID
from
PO_REQUISITION_LINES_ALL RQL,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and RQL.REQUISITION_LINE_ID = SRC.REQUISITION_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
PO_REQUISITION_LINES_ALL RQL,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_LINE_ID = RQL.REQUISITION_LINE_ID
and LIN.SOURCE_DOCUMENT_TYPE_ID = 10 --INTERNAL REQUISITION
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 ALL
SELECT 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_ID
FROM
PO_REQUISITION_HEADERS_ALL RQH,
PO_REQUISITION_LINES_ALL RQL,
OE_ORDER_LINES_ALL LIN
WHERE RQH.INTERFACE_SOURCE_LINE_ID = LIN.LINE_ID
AND RQH.INTERFACE_SOURCE_CODE = 'CTO'
AND RQH.REQUISITION_HEADER_ID = RQL.REQUISITION_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);

begin
for po in po_req_lin
loop
utl_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 is
select 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_apprv
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
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 LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_HEADER_ID = REQ.REQUISITION_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)
UNION ALL
select wf_item_key /* INTERNAL SALES ORDERSS */
from
PO_REQUISITION_HEADERS REQ,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_ID = REQ.REQUISITION_HEADER_ID
and 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_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for po in po_req_apprv
loop
utl_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 is
select 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 SUBJECT
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_NOTIFICATIONS WFN
where
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 LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_HEADER_ID = REQ.REQUISITION_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)
UNION ALL
select wf_item_key /* INTERNAL SALES ORDERSS */
from
PO_REQUISITION_HEADERS REQ,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_ID = REQ.REQUISITION_HEADER_ID
and 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 null
and WFN.NOTIFICATION_ID = WFS.NOTIFICATION_ID
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for po in po_req_apprv_Not
loop
utl_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 is
select 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_STACK
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
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 LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_HEADER_ID = REQ.REQUISITION_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)
UNION ALL
select wf_item_key /* INTERNAL SALES ORDERSS */
from
PO_REQUISITION_HEADERS REQ,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_ID = REQ.REQUISITION_HEADER_ID
and 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_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFS.ERROR_NAME is not NULL
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for po in po_req_apprv_err
loop
utl_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');

Declare
cursor po_hdr_int is
select
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_ID
from
PO_HEADERS_INTERFACE PHI,
PO_LINES_INTERFACE PLI,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_LINE_ID = PLI.REQUISITION_LINE_ID
and PHI.INTERFACE_HEADER_ID = PLI.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 by
NVL(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;

begin
for po in po_hdr_int
loop
utl_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');

Declare
cursor po_lin_int is
select
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_ID
from PO_LINES_INTERFACE PLI,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_LINE_ID = PLI.REQUISITION_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.SERVICE_REFERENCE_LINE_ID)
order by
NVL(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;

begin
for po in po_lin_int
loop
utl_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');

Declare
cursor po_int_err is
select
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_N
from
PO_INTERFACE_ERRORS POE,
PO_HEADERS_INTERFACE PHI,
PO_LINES_INTERFACE PLI,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.REQUISITION_LINE_ID = PLI.REQUISITION_LINE_ID
and PHI.INTERFACE_HEADER_ID = PLI.INTERFACE_HEADER_ID
and (POE.INTERFACE_TRANSACTION_ID = PLI.INTERFACE_LINE_ID
or 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 by
NVL(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;

begin
for po in po_int_err
loop
utl_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');

Declare
cursor po_hdr is
select
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_KEY
from
PO_HEADERS POH,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_HEADER_ID = POH.PO_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)
UNION ALL
select 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_KEY
from
PO_HEADERS POH,
MTL_RESERVATIONS RES
where
:sales_ord_id = RES.DEMAND_SOURCE_HEADER_ID
and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SO
and RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INV
and RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID;

begin
for po in po_hdr
loop
utl_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');

Declare
cursor po_lines is
select
POL.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 PRICE
from
PO_LINES POL,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_LINE_ID = POL.PO_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.SERVICE_REFERENCE_LINE_ID)
order by
NVL(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;

begin
for po in po_lines
loop
utl_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');

Declare
cursor po_wf_po_apr is
select 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_N
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'POAPPRV'
and WFS.item_key in (select wf_item_key
from
PO_HEADERS POH,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_HEADER_ID = POH.PO_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))
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for po in po_wf_po_apr
loop
utl_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');

Declare
cursor po_wf_not is
select 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 SUBJECT
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_NOTIFICATIONS WFN
where
WFS.ITEM_TYPE = 'POAPPRV'
and WFS.item_key in (select wf_item_key
from
PO_HEADERS POH,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_HEADER_ID = POH.PO_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))
and WFS.NOTIFICATION_ID is not null
and WFN.NOTIFICATION_ID = WFS.NOTIFICATION_ID
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for po in po_wf_not
loop
utl_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');

Declare
cursor po_hdr_int is
select 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_STACK
from WF_ITEM_ACTIVITY_STATUSES WFS,
WF_PROCESS_ACTIVITIES WFP,
WF_ACTIVITIES_VL WFA,
WF_ACTIVITIES_VL WFA1,
WF_LOOKUPS LKP
where
WFS.ITEM_TYPE = 'POAPPRV'
and WFS.item_key in (select wf_item_key
from
PO_HEADERS POH,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_HEADER_ID = POH.PO_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))
and WFS.PROCESS_ACTIVITY = WFP.INSTANCE_ID
and WFP.PROCESS_ITEM_TYPE = WFA.ITEM_TYPE
and WFP.PROCESS_NAME = WFA.NAME
and WFP.PROCESS_VERSION = WFA.VERSION
and WFP.ACTIVITY_ITEM_TYPE = WFA1.ITEM_TYPE
and WFP.ACTIVITY_NAME = WFA1.NAME
and WFA1.VERSION =
(select max(VERSION)
from WF_ACTIVITIES WF2
where WF2.ITEM_TYPE = WFP.ACTIVITY_ITEM_TYPE
and WF2.NAME = WFP.ACTIVITY_NAME)
and LKP.LOOKUP_TYPE = 'WFENG_STATUS'
and LKP.LOOKUP_CODE = WFS.ACTIVITY_STATUS
and WFS.ERROR_NAME is not NULL
order by WFS.ITEM_KEY, WFS.BEGIN_DATE, EXECUTION_TIME;

begin
for po in po_hdr_int
loop
utl_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_po

if substr(UPPER(nvl('&prt_rec','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor rcv_shp_lin is
select /* 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_ID
from
RCV_SHIPMENT_LINES SHL,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_LINE_ID = SHL.PO_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
RCV_SHIPMENT_LINES SHL,
OE_ORDER_LINES LIN
where
SHL.OE_ORDER_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
RCV_SHIPMENT_LINES SHL,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_LINE_ID = SHL.REQUISITION_LINE_ID
and 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 ALL
select /* 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_ID
from
RCV_SHIPMENT_LINES SHL,
MTL_RESERVATIONS RES,
PO_HEADERS_ALL POH
where
:sales_ord_id = RES.DEMAND_SOURCE_HEADER_ID
and RES.DEMAND_SOURCE_LINE_ID = NVL('&line_id_selected',RES.DEMAND_SOURCE_LINE_ID)
and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SO
and RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INV
and RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID --
and POH.PO_HEADER_ID = SHL.PO_HEADER_ID;

begin
for rcv in rcv_shp_lin
loop
utl_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');

Declare
cursor rcv_trx is
select /* 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
from
RCV_TRANSACTIONS RCV,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_LINE_ID = RCV.PO_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
RCV_TRANSACTIONS RCV,
OE_ORDER_LINES LIN
where
RCV.OE_ORDER_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
RCV_TRANSACTIONS RCV,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_LINE_ID = RCV.REQUISITION_LINE_ID
and 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 ALL
select /* 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_ID
from
RCV_TRANSACTIONS RCV,
MTL_RESERVATIONS RES,
PO_HEADERS_ALL POH
where
:sales_ord_id = RES.DEMAND_SOURCE_HEADER_ID
and RES.DEMAND_SOURCE_LINE_ID = NVL('&line_id_selected',RES.DEMAND_SOURCE_LINE_ID)
and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SO
and RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INV
and RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID --
and POH.PO_HEADER_ID = RCV.PO_HEADER_ID;

begin
for rcv in rcv_trx
loop
utl_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');

Declare
cursor rcv_trx_int is
select /* 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_ID
from
RCV_TRANSACTIONS_INTERFACE RTI,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_LINE_ID = RTI.PO_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
RCV_TRANSACTIONS_INTERFACE RTI,
OE_ORDER_LINES LIN
where
RTI.OE_ORDER_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ID
from
RCV_TRANSACTIONS_INTERFACE RTI,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_LINE_ID = RTI.REQUISITION_LINE_ID
and 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);

begin
for rcv in rcv_trx_int
loop
utl_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_rec

if substr(UPPER(nvl('&prt_po','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor mtl_supply is
select /* 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_ORG
from
MTL_SUPPLY SUP,
OE_DROP_SHIP_SOURCES SRC,
OE_ORDER_LINES LIN
where
SRC.LINE_ID = LIN.LINE_ID
and SRC.PO_LINE_ID = SUP.PO_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.SERVICE_REFERENCE_LINE_ID)
UNION ALL
select /* 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_ORG
from
MTL_SUPPLY SUP,
OE_ORDER_LINES LIN
where
LIN.SOURCE_DOCUMENT_LINE_ID = SUP.REQ_LINE_ID
and 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);

begin
for mtl in mtl_supply
loop
utl_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_po

if substr(UPPER(nvl('&prt_inv','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor mtl_res is
select
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_q
from
MTL_RESERVATIONS RES,
OE_ORDER_LINES LIN,
MTL_SYSTEM_ITEMS ITM,
WIP_ENTITIES WIP,
WIP_DISCRETE_JOBS_V JOB
where
:sales_ord_id = RES.DEMAND_SOURCE_HEADER_ID
and 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 by
NVL(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;

begin
for mtl in mtl_res
loop
utl_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_inv

if substr(UPPER(nvl('&prt_wip','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor wip_sch_int is
select
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_QTY
from WIP_JOB_SCHEDULE_INTERFACE WJS,
OE_ORDER_LINES_ALL LIN
where WJS.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);

begin
for wip in wip_sch_int
loop
utl_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');

Declare
cursor wip_int_err is
select
WIE.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_WIE
from WIP_INTERFACE_ERRORS WIE,
WIP_JOB_SCHEDULE_INTERFACE WJS,
OE_ORDER_LINES_ALL LIN
where WIE.INTERFACE_ID = WJS.INTERFACE_ID
and WJS.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);

begin
for wip in wip_int_err
loop
utl_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');

Declare
cursor wip_d_jobs is
select
WIP.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_ID
from WIP_DISCRETE_JOBS WIP,
WIP_DISCRETE_JOBS_V WIV,
MTL_SYSTEM_ITEMS_B ITM,
OE_ORDER_LINES_ALL LIN
where WIP.WIP_ENTITY_ID = WIV.WIP_ENTITY_ID
and WIP.PRIMARY_ITEM_ID = ITM.INVENTORY_ITEM_ID
and WIP.ORGANIZATION_ID = ITM.ORGANIZATION_ID
and WIP.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);

begin
for wip in wip_d_jobs
loop
utl_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');

Declare
cursor wip_job_trx is
select
WIE.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 SERIAL
from wip_discrete_jobs WIP,
OE_ORDER_LINES_ALL LIN,
wip_entities WIE,
mtl_material_transactions TRN,
mtl_system_items_b ITM,
mtl_unit_transactions UNT
where WIE.wip_entity_id = WIP.wip_entity_id
and LIN.LINE_ID = WIP.source_line_id
and TRN.transaction_source_id = WIP.wip_entity_id
and TRN.transaction_source_type_id = 5
and TRN.inventory_item_id = ITM.inventory_item_id
and TRN.organization_id = ITM.organization_id
and 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);

begin
for wip in wip_job_trx
loop
utl_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_wip

end if; -- :v_head_only

UTL_FILE.FCLOSE(handle);
end;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

If :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');

Declare
cursor w_trips is
select 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_ID
FROM
WSH_TRIPS TRP
where
TRIP_ID in
(select distinct(STP.TRIP_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)
)
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' then
for i in 1..30
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;
msg(1).descrip := ' 1. XX.';
-- end if;

for tt in w_trips
loop
:r_flag := '';

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if;

-- Print line to Output file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..30
loop
if msg(i).flag = '1' then
utl_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 is
select 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_DATE
FROM
WSH_TRIP_STOPS STP,
WSH_SRS_TRIP_STOPS_V STP1,
WSH_TRIPS TRP
where
STP.TRIP_ID = TRP.TRIP_ID(+) AND
STP1.STOP_ID = STP.STOP_ID AND
STP.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 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
(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 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)
)
);

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' then
for i in 1..30
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;
msg(1).descrip := ' 1. XX.';
-- end if;

for ts in w_trip_stops
loop
:r_flag := '';

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if;

-- Print line to Output file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..30
loop
if msg(i).flag = '1' then
utl_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');

Declare
cursor w_del_leg is
select 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_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,
WSH_TRIPS TRP
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
STP.TRIP_ID = TRP.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)
order by
LEG.DELIVERY_LEG_ID;

begin
for wdl in w_del_leg
loop
utl_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 is
select 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_ID
FROM
OE_ORDER_LINES LIN,
WSH_DELIVERY_DETAILS DET,
WSH_NEW_DELIVERIES DEL,
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
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)
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 is
begin
if v is null then
return '&sp';
else
return 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' then
for i in 1..30
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;
msg(1).descrip := ' 1. XX.';
-- end if;

for nd in w_deliveries
loop
:r_flag := '';

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..30
loop
if msg(i).flag = '1' then
utl_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 ');

Declare
cursor w_del_asig is
select 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_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);

begin
for wda in w_del_asig
loop
utl_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 is
SELECT 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_ENAB
FROM MTL_PARAMETERS MP,
WSH_DELIVERY_DETAILS DET,
WSH_SHIPPING_PARAMETERS WSP
where DET.SOURCE_CODE = 'OE'
and MP.ORGANIZATION_ID = DET.ORGANIZATION_ID
and WSP.ORGANIZATION_ID = DET.ORGANIZATION_ID
and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin

for orgi in l_orgs
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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) then
utl_file.put_line(handle,'Yes ');
:is_opm := 'Y';
else
utl_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 is
SELECT 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_cd
FROM 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 TRP
where DET.RELEASED_STATUS = 'C'
and ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID
and STP.STOP_ID(+) = LEG.PICK_UP_STOP_ID
and STP.TRIP_ID = TRP.TRIP_ID(+)
and LEG.DELIVERY_ID(+) = ASG.DELIVERY_ID
and DET.SOURCE_CODE = 'OE'
and MP.ORGANIZATION_ID = OAC.ORGANIZATION_ID
and MP.ORGANIZATION_ID = DET.ORGANIZATION_ID
and 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)
union
SELECT 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_cd
FROM MTL_PARAMETERS MP,
ORG_ACCT_PERIODS OAC,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN
where DET.RELEASED_STATUS <> 'C'
and DET.SOURCE_LINE_ID = LIN.LINE_ID
and DET.SOURCE_CODE = 'OE'
and MP.ORGANIZATION_ID = OAC.ORGANIZATION_ID
and MP.ORGANIZATION_ID = DET.ORGANIZATION_ID
and 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 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin

for orgi in l_orgs
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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');

Declare
cursor w_del_details is
select 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 BATCH
FROM
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 TRP
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
STP.TRIP_ID = TRP.TRIP_ID(+) AND
LEG.DELIVERY_ID(+) = DEL.DELIVERY_ID AND
LIN.SHIP_FROM_ORG_ID = ITM.ORGANIZATION_ID(+) AND
LIN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_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)
Order by
DET.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 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

procedure prt_head is
begin
UTL_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' then
for i in 1..35
loop
msg(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_details
loop
:r_flag := '';

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
-- Check Pickable_flag against mtl_system_items.mtl_transactions_enabled_flag
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 || '10 ';
msg(10).flag := '1';
end if;

begin
select ORDER_QUANTITY_UOM, nvl(SHIPPED_QUANTITY,0), substr(FLOW_STATUS_CODE,1,22)
into r_uom_lin, r_qshp_lin, r_sta_lin
from oe_order_lines_all
where line_id = dd.LINE_ID;
exception
when 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 cancelled
and (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 cancelled
and 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 cancelled
and 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 Details
if dd.REL_STATUS_C = 'C' then
if 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 conversion
and 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 Details
if dd.REL_STATUS_C = 'D' then
if (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.Detail

end if; -- do_analysis
---
if c_lines >= 35 then
if c_lines = 51 then
UTL_FILE.PUT_LINE(handle,'&std ');
end if;
c_lines := 1;
prt_head;
else
c_lines := c_lines + 1;
end if;

-- Print line to Output file
utl_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 selected
UTL_FILE.PUT_LINE(handle,'&std ');
prt_head;
end if;

utl_file.put_line(handle,'&et');

if :r_error = 1 then
utl_file.put_line(handle,'&f &b Warnings List: &eb &f');
for i in 1..35
loop
if msg(i).flag = '1' then
utl_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');

Declare
cursor w_del_det_c is
select distinct
DET.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_ID
FROM
--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 TRP
where
--DEL.DELIVERY_ID(+) = ASG.DELIVERY_ID AND
ASG.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID AND
DET.ORGANIZATION_ID = ITM.ORGANIZATION_ID(+) AND
DET.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID(+) AND
--DET.SOURCE_LINE_ID = LIN.LINE_ID AND
STP.STOP_ID(+) = LEG.PICK_UP_STOP_ID AND
STP.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(+) AND
DET.SOURCE_CODE = 'WSH' AND
ASG.DELIVERY_ID IN (select ASG1.DELIVERY_ID
from WSH_DELIVERY_ASSIGNMENTS ASG1,
WSH_DELIVERY_DETAILS DET1,
OE_ORDER_LINES_ALL LIN1
where DET1.SOURCE_LINE_ID = LIN1.LINE_ID AND
DET1.DELIVERY_DETAIL_ID = ASG1.DELIVERY_DETAIL_ID AND
DET1.SOURCE_CODE = 'OE' AND
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));

begin
for wddc in w_del_det_c
loop
utl_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 is
select 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_DATE
FROM
OE_ORDER_LINES LIN,
WSH_DELIVERY_DETAILS DET,
WSH_SERIAL_NUMBERS WSN
where DET.DELIVERY_DETAIL_ID = WSN.DELIVERY_DETAIL_ID
and 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 is
begin
if v is null then
return '&sp';
else
return 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' then
for i in 1..1
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;
msg(1).descrip := ' 1. No verifications yet.';
-- end if;

for dd in w_serial_n
loop
: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 file
utl_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 then
utl_file.put_line(handle,'&f &b Error List: &eb &f');
for i in 1..1
loop
if msg(i).flag = '1' then
utl_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');

Declare
cursor w_fre_cst is
select 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_ID
from wsh_freight_costs_v wfc,
wsh_freight_cost_types wft,
fnd_lookup_values lkp,
OE_ORDER_LINES LIN,
WSH_DELIVERY_DETAILS DET,
fnd_languages FLA
WHERE
wfc.freight_cost_type_id = wft.freight_cost_type_id AND
wft.freight_cost_type_code = lkp.lookup_code AND
lkp.lookup_type = 'FREIGHT_COST_TYPE' AND
lkp.LANGUAGE = FLA.LANGUAGE_CODE AND
FLA.INSTALLED_FLAG = 'B' 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) AND
WFC.DELIVERY_DETAIL_ID = DET.DELIVERY_DETAIL_ID
UNION ALL
select distinct
wfc.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_ID
from 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 FLA
WHERE
wfc.freight_cost_type_id = wft.freight_cost_type_id AND
wft.freight_cost_type_code = lkp.lookup_code AND
lkp.lookup_type = 'FREIGHT_COST_TYPE' AND
lkp.LANGUAGE = FLA.LANGUAGE_CODE AND
FLA.INSTALLED_FLAG = 'B' AND
--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) AND
WFC.DELIVERY_ID = ASG.DELIVERY_ID AND
WFC.DELIVERY_DETAIL_ID IS NULL
UNION ALL
select 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_ID
from 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 FLA
WHERE
wfc.freight_cost_type_id = wft.freight_cost_type_id AND
wft.freight_cost_type_code = lkp.lookup_code AND
lkp.lookup_type = 'FREIGHT_COST_TYPE' AND
lkp.LANGUAGE = FLA.LANGUAGE_CODE AND
FLA.INSTALLED_FLAG = 'B' AND
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) AND
WFC.DELIVERY_LEG_ID = LEG.DELIVERY_LEG_ID AND
WFC.DELIVERY_DETAIL_ID IS NULL AND
WFC.DELIVERY_ID IS NULL
UNION ALL
select distinct
wfc.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_ID
from 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 FLA
WHERE
wfc.freight_cost_type_id = wft.freight_cost_type_id AND
wft.freight_cost_type_code = lkp.lookup_code AND
lkp.lookup_type = 'FREIGHT_COST_TYPE' AND
lkp.LANGUAGE = FLA.LANGUAGE_CODE AND
FLA.INSTALLED_FLAG = 'B' AND
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) AND
WFC.STOP_ID = STP.STOP_ID AND
WFC.DELIVERY_DETAIL_ID IS NULL AND
WFC.DELIVERY_ID IS NULL AND
WFC.DELIVERY_LEG_ID IS NULL
UNION ALL
select distinct
wfc.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_ID
from 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 FLA
WHERE
wfc.freight_cost_type_id = wft.freight_cost_type_id AND
wft.freight_cost_type_code = lkp.lookup_code AND
lkp.lookup_type = 'FREIGHT_COST_TYPE' AND
lkp.LANGUAGE = FLA.LANGUAGE_CODE AND
FLA.INSTALLED_FLAG = 'B' AND
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) AND
WFC.TRIP_ID = STP.TRIP_ID AND
WFC.DELIVERY_DETAIL_ID IS NULL AND
WFC.DELIVERY_ID IS NULL AND
WFC.STOP_ID IS NULL AND
WFC.DELIVERY_LEG_ID IS NULL;

begin
for wfc in w_fre_cst
loop
utl_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_only

UTL_FILE.FCLOSE(handle);
end;
/

DECLARE
handle UTL_FILE.FILE_TYPE;
dirname varchar2(1000);
text varchar2(1000);

function n(v varchar2) return varchar2 is
begin
if v is null then
return '&sp';
else
return v;
end if;
end n;

begin
-- Append to output file
handle := UTL_FILE.FOPEN('&out_dir','&out_dir/&out_file','A',32000);
UTL_FILE.PUT_LINE(handle,'&et'); -- in case last one failed

If :v_head_only = 'N' then

if substr(UPPER(nvl('&prt_wms','N')),1,1) = 'Y' then

UTL_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 is
Select
WMSR.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 wmsf
FROM WMS_RULES WMSR,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN
where DET.SOURCE_LINE_ID = LIN.LINE_ID
and DET.SOURCE_CODE = 'OE'
and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_ID
and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);

begin

for wms in wms_r
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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 is
Select WRC.RULE_ID ruleid,
WRC.CONSISTENCY_ID consid,
WRC.PARAMETER_ID paramid,
WRC.CREATION_DATE credt,
WRC.ATTRIBUTE_CATEGORY attrcat
FROM WMS_RULE_CONSISTENCIES WRC,
WMS_RULES WMSR,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN
WHERE WRC.RULE_ID = WMSR.RULE_ID
and DET.SOURCE_LINE_ID = LIN.LINE_ID
and DET.SOURCE_CODE = 'OE'
and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_ID
and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)
ORDER BY 1;

begin

for wms in wms_rc
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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 is
Select 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 attrcat
FROM WMS_RESTRICTIONS WRES,
WMS_RULES WMSR,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN
WHERE WRES.RULE_ID = WMSR.RULE_ID
and DET.SOURCE_LINE_ID = LIN.LINE_ID
and DET.SOURCE_CODE = 'OE'
and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_ID
and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)
ORDER BY 1;

begin

for wms in wms_res
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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 is
Select WSOC.RULE_ID ruleid,
WSOC.SEQUENCE_NUMBER seqno,
WSOC.CREATION_DATE credt,
WSOC.PARAMETER_ID paramid,
WSOC.ORDER_CODE opcode,
WSOC.ATTRIBUTE_CATEGORY attrcat
FROM WMS_SORT_CRITERIA WSOC,
WMS_RULES WMSR,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN
WHERE WSOC.RULE_ID = WMSR.RULE_ID
and DET.SOURCE_LINE_ID = LIN.LINE_ID
and DET.SOURCE_CODE = 'OE'
and WMSR.ORGANIZATION_ID = DET.ORGANIZATION_ID
and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id)
ORDER BY 1;

begin

for wms in wms_sc
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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 is
Select 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 locna
FROM WMS_SELECTION_CRITERIA_TXN_V WSCT,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN
where DET.SOURCE_LINE_ID = LIN.LINE_ID
and DET.SOURCE_CODE = 'OE'
and WSCT.FROM_ORGANIZATION_ID = DET.ORGANIZATION_ID
and DET.SOURCE_HEADER_ID = nvl('&header_id_selected',:v_header_id);

begin

for wms in wms_sct
loop

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
end if; -- do_analysis

-- Print line to Output file
utl_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_wms

if substr(UPPER(nvl('&prt_inv','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor mtl_trx_int is
SELECT
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_cd
FROM
MTL_TRANSACTIONS_INTERFACE TMP,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN,
MTL_SYSTEM_ITEMS ITM,
ORG_ACCT_PERIODS OAC
WHERE
TMP.SOURCE_LINE_ID = LIN.LINE_ID
and 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_ID
and TMP.PICKING_LINE_ID = DET.DELIVERY_DETAIL_ID(+)
and TMP.ACCT_PERIOD_ID = OAC.acct_period_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
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_cd
FROM
MTL_TRANSACTIONS_INTERFACE TMP,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN,
MTL_SYSTEM_ITEMS ITM,
ORG_ACCT_PERIODS OAC
WHERE
TMP.TRX_SOURCE_LINE_ID = LIN.LINE_ID
and 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_ID
and TMP.PICKING_LINE_ID = DET.DELIVERY_DETAIL_ID(+)
and TMP.ACCT_PERIOD_ID = OAC.acct_period_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);

begin
for mti in mtl_trx_int
loop
utl_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');

Declare
cursor mtl_trx_tmp is
SELECT 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_q
FROM
MTL_MATERIAL_TRANSACTIONS_TEMP TMP,
-- WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN,
MTL_SYSTEM_ITEMS ITM,
mtl_transaction_lots_temp lot
WHERE
TMP.DEMAND_SOURCE_LINE = LIN.LINE_ID
and 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 ALL
SELECT 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_q
FROM
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_ID
and 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);

begin
for mtt in mtl_trx_tmp
loop
utl_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');

declare
cursor Mtl_trans is
SELECT
TRN.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 meaning
decode(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_q

FROM
MTL_MATERIAL_TRANSACTIONS TRN,
MTL_SYSTEM_ITEMS ITM,
mtl_transaction_lot_numbers lot
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_ID
FROM OE_ORDER_LINES LIN1
WHERE 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_id
UNION ALL
SELECT /* 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 OPM
TRN.rcv_transaction_id rcv_trans_id
-- 0 lot_sec_q -- Only for OPM
-- 0 lot_cal_sec_q -- Only for OPM
FROM
MTL_MATERIAL_TRANSACTIONS TRN,
MTL_SYSTEM_ITEMS ITM,
OE_DROP_SHIP_SOURCES DRP,
PO_HEADERS_ALL POH
WHERE
TRN.TRANSACTION_TYPE_ID = 18 -- PO Receipt
and TRN.TRANSACTION_SOURCE_TYPE_ID = 1
and TRN.TRANSACTION_SOURCE_ID = POH.PO_HEADER_ID
and POH.PO_HEADER_ID = DRP.PO_HEADER_ID
and DRP.HEADER_ID = nvl('&header_id_selected',:v_header_id)
and TRN.ORGANIZATION_ID = ITM.ORGANIZATION_ID
and TRN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID
UNION ALL
SELECT /* 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 OPM
TRN.rcv_transaction_id rcv_trans_id
-- 0 lot_sec_q -- Only for OPM
-- 0 lot_cal_sec_q -- Only for OPM
FROM
MTL_MATERIAL_TRANSACTIONS TRN,
MTL_SYSTEM_ITEMS ITM,
MTL_RESERVATIONS RES,
PO_HEADERS_ALL POH
WHERE
:sales_ord_id = RES.DEMAND_SOURCE_HEADER_ID
and RES.DEMAND_SOURCE_TYPE_ID = 2 -- SO
and RES.SUPPLY_SOURCE_TYPE_ID in (1,13) -- PO or INV
and RES.SUPPLY_SOURCE_HEADER_ID = POH.PO_HEADER_ID --
and POH.PO_HEADER_ID = TRN.TRANSACTION_SOURCE_ID
and TRN.ORGANIZATION_ID = ITM.ORGANIZATION_ID
and TRN.INVENTORY_ITEM_ID = ITM.INVENTORY_ITEM_ID
and TRN.TRANSACTION_TYPE_ID = 18 -- PO Receipt
and 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 is
begin
if v is null then
return '&sp';
else
return 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' then
for i in 1..30
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;
msg(1).descrip := 'x';

-- end if;

for mt in Mtl_trans
loop
:r_flag := '';

-- Order_Line number
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 r_lin_no
FROM OE_ORDER_LINES LIN
WHERE mt.TRX_SOURCE_LINE_ID = LIN.LINE_ID;

if substr(UPPER(nvl('&do_analysis','Y')),1,1) = 'Y' then
null;
---
-- 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 file
utl_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 then
utl_file.put_line(handle,'&f &b Warning List: &eb &f');
for i in 1..30
loop
if msg(i).flag = '1' then
utl_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 is
select distinct
DET.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_DATE
FROM
OE_ORDER_LINES LIN,
WSH_DELIVERY_DETAILS DET,
WSH_SERIAL_NUMBERS WSN,
MTL_SERIAL_NUMBERS MSN
where
DET.DELIVERY_DETAIL_ID = WSN.DELIVERY_DETAIL_ID
and 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 DET.INVENTORY_ITEM_ID = MSN.INVENTORY_ITEM_ID
and MSN.SERIAL_NUMBER between WSN.FM_SERIAL_NUMBER and WSN.TO_SERIAL_NUMBER
and (substr(UPPER(nvl('&det_cnt','Y')),1,1) = 'Y' or rownum <= 10)
order by
LINE,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 is
begin
if v is null then
return '&sp';
else
return 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' then
for i in 1..1
loop
msg(i).flag := '0';
msg(i).descrip := '';
end loop;
msg(1).descrip := ' 1. No verifications yet.';
-- end if;

for dd in m_serial_n
loop
: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 file
utl_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 then
utl_file.put_line(handle,'&f &b Error List: &eb &f');
for i in 1..1
loop
if msg(i).flag = '1' then
utl_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');

Declare
cursor mtl_unt_trx is
select
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_NAME
UNT.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_DATE
from MTL_UNIT_TRANSACTIONS UNT
where UNT.TRANSACTION_ID in (select TRN.TRANSACTION_ID
FROM
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_ID
FROM OE_ORDER_LINES LIN1
WHERE 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);

begin
for mut in mtl_unt_trx
loop
utl_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');

Declare
cursor mtl_trx_reql is
select distinct
TRL.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_q
from MTL_TXN_REQUEST_LINES_V TRL,
MTL_TXN_REQUEST_HEADERS TRH,
WSH_DELIVERY_DETAILS DET,
OE_ORDER_LINES LIN,
MTL_SYSTEM_ITEMS ITM
where TRL.LINE_ID = DET.MOVE_ORDER_LINE_ID
--TRL.TXN_SOURCE_LINE_ID = LIN.LINE_ID
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_ID
and TRL.HEADER_ID = TRH.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.REFERENCE_LINE_ID,
LIN.SERVICE_REFERENCE_LINE_ID);

begin
for mtr in mtl_trx_reql
loop
utl_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_inv

if substr(UPPER(nvl('&prt_ar','Y')),1,1) = 'Y' then

UTL_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');

Declare
cursor ra_int_lin is
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
FROM
RA_INTERFACE_LINES RAI,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and 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_ID
from OE_PRICE_ADJUSTMENTS ADJ
where ADJ.HEADER_ID = LIN.HEADER_ID
and (ADJ.LINE_ID IS NULL
or ADJ.LINE_ID = LIN.LINE_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
FROM
RA_INTERFACE_LINES RAI,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_PRICE_ADJUSTMENTS ADJ,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.HEADER_ID
and 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_ID
and ADJ.LINE_ID = LIN.LINE_ID
and ADJ.LINE_ID IS NOT NULL
and 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
FROM
RA_INTERFACE_LINES RAI,
OE_ORDER_HEADERS ORD,
OE_PRICE_ADJUSTMENTS ADJ,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and RAI.LINE_TYPE = 'FREIGHT'
and ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)
and ADJ.LINE_ID IS NULL
and 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_ID
FROM RA_INTERFACE_LINES RAI,
OE_ORDER_HEADERS ORD,
OE_PRICE_ADJUSTMENTS ADJ,
OE_TRANSACTION_TYPES_TL TYP
WHERE RAI.SALES_ORDER = TO_CHAR(ORD.ORDER_NUMBER)
AND RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
AND TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
AND 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 NULL
and ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id);
*/

begin
for ril in ra_int_lin
loop
utl_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');

Declare
cursor ra_int_err is
select distinct
RAE.INTERFACE_LINE_ID,
RAE.INTERFACE_SALESCREDIT_ID,
RAE.MESSAGE_TEXT
FROM
RA_INTERFACE_LINES RAI,
RA_INTERFACE_ERRORS RAE,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAI.INTERFACE_LINE_ID = RAE.INTERFACE_LINE_ID
and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.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 (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_ID
from OE_PRICE_ADJUSTMENTS ADJ
where ADJ.HEADER_ID = LIN.HEADER_ID
and (ADJ.LINE_ID IS NULL
or ADJ.LINE_ID = LIN.LINE_ID))
)
and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id);

/*
UNION
select distinct
RAE.INTERFACE_LINE_ID,
RAE.INTERFACE_SALESCREDIT_ID,
RAE.MESSAGE_TEXT
FROM
RA_INTERFACE_LINES RAI,
RA_INTERFACE_ERRORS RAE,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_PRICE_ADJUSTMENTS ADJ,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and RAI.INTERFACE_LINE_ID = RAE.INTERFACE_LINE_ID
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.HEADER_ID
and 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_ID
and ADJ.LINE_ID = LIN.LINE_ID
and ADJ.LINE_ID IS NOT NULL
and ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)
and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)
UNION
select distinct
RAE.INTERFACE_LINE_ID,
RAE.INTERFACE_SALESCREDIT_ID,
RAE.MESSAGE_TEXT
FROM
RA_INTERFACE_LINES RAI,
RA_INTERFACE_ERRORS RAE,
OE_ORDER_HEADERS ORD,
OE_PRICE_ADJUSTMENTS ADJ,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAI.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAI.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and RAI.INTERFACE_LINE_ID = RAE.INTERFACE_LINE_ID
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and RAI.LINE_TYPE = 'FREIGHT'
and ADJ.HEADER_ID = nvl('&header_id_selected',:v_header_id)
and ADJ.LINE_ID IS NULL
and ORD.HEADER_ID = nvl('&header_id_selected',:v_header_id);
*/

begin
for rie in ra_int_err
loop
utl_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');

Declare
cursor ra_cus_trx is
select 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
FROM
RA_CUSTOMER_TRX RAH,
RA_CUSTOMER_TRX_LINES RAL,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_ID
and RAL.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAL.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.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 (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_ID
from OE_PRICE_ADJUSTMENTS ADJ
where ADJ.HEADER_ID = LIN.HEADER_ID
and (ADJ.LINE_ID IS NULL
or ADJ.LINE_ID = LIN.LINE_ID))
)
and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)
ORDER BY
RAH.TRX_NUMBER;

begin
for rct in ra_cus_trx
loop
utl_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');

Declare
cursor ra_cus_trxl is
select 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_ID
FROM
RA_CUSTOMER_TRX RAH,
RA_CUSTOMER_TRX_LINES RAL,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_ID
and RAL.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAL.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.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 (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_ID
from OE_PRICE_ADJUSTMENTS ADJ
where ADJ.HEADER_ID = LIN.HEADER_ID
and (ADJ.LINE_ID IS NULL
or ADJ.LINE_ID = LIN.LINE_ID))
)
and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id)
/* -- remove
FROM
RA_CUSTOMER_TRX RAH,
RA_CUSTOMER_TRX_LINES RAL
WHERE
RAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_ID
and RAL.CUSTOMER_TRX_LINE_ID in
(select RAL1.CUSTOMER_TRX_LINE_ID
FROM
RA_CUSTOMER_TRX RAH1,
RA_CUSTOMER_TRX_LINES RAL1,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAH1.CUSTOMER_TRX_ID = RAL1.CUSTOMER_TRX_ID
and RAL1.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAL1.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.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 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))
*/
UNION
select /* 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_ID
FROM
RA_CUSTOMER_TRX RAH,
RA_CUSTOMER_TRX_LINES RAL
WHERE
RAH.CUSTOMER_TRX_ID = RAL.CUSTOMER_TRX_ID
and RAL.LINK_TO_CUST_TRX_LINE_ID in
(select RAL1.CUSTOMER_TRX_LINE_ID
FROM
RA_CUSTOMER_TRX RAH1,
RA_CUSTOMER_TRX_LINES RAL1,
OE_ORDER_LINES LIN,
OE_ORDER_HEADERS ORD,
OE_TRANSACTION_TYPES_V TYP
WHERE
RAH1.CUSTOMER_TRX_ID = RAL1.CUSTOMER_TRX_ID
and RAL1.SALES_ORDER = to_char(ORD.ORDER_NUMBER)
and RAL1.INTERFACE_LINE_ATTRIBUTE2 = TYP.NAME
and TYP.TRANSACTION_TYPE_ID = ORD.ORDER_TYPE_ID
and ORD.HEADER_ID = LIN.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 (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_ID
from OE_PRICE_ADJUSTMENTS ADJ
where ADJ.HEADER_ID = LIN.HEADER_ID
and (ADJ.LINE_ID IS NULL
or ADJ.LINE_ID = LIN.LINE_ID))
)
and LIN.HEADER_ID = nvl('&header_id_selected',:v_header_id))
order by
TRX_NUMBER,
TRX_LINE_ID;

begin
for rctl in ra_cus_trxl
loop
utl_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_ar

end if; -- :v_head_only

-- Column descriptions for each table
UTL_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' then

UTL_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_price

UTL_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' then

UTL_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_inv

if substr(UPPER(nvl('&prt_ar','Y')),1,1) = 'Y' then

UTL_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_ar

UTL_FILE.PUT_LINE(handle,'&f &f');

-- Closing Time
select '&std &sh Script completion time: &eh &sld '||to_char(sysdate,'DD-MON-RR_HH24:MI:SS')||' &el &et &f &f'
into text
from dual;
UTL_FILE.PUT_LINE(handle,text);

UTL_FILE.PUT_LINE(handle,'');

-- Close output file

UTL_FILE.FCLOSE(handle);
END;
/