Search This Blog

Tuesday, October 29, 2013

Import and Export commands in OAF

Upload From UNIX:

java oracle.jrad.tools.xml.importer.XMLImporter <FileName>.xml -username apps -password <Database PWD> -dbconnection "(description =(address_list= (address=  (protocol=tcp) (host=<hostname>) (port = <port_number>))) (connect_data=(sid=<SID>)))" -rootdir . -rootPackage <page_directory>

java oracle.jrad.tools.xml.importer.JPXImporter <FileName>.jpx -username apps -password <Database PWD> -dbconnection "(description = (address_list = (address = (protocol = tcp)(host =<hostname>) (port = <port>)))(connect_data = (sid = <sid>)))"

Download From Unix:

java oracle.jrad.tools.xml.exporter.XMLExporter <document_path> -rootdir <rootdir in UNIX> -username apps -password <Database PWD> -dbconnection "(description =(address_list= (address=  (protocol=tcp) (host=<host>) (port = <port>))) (connect_data=(sid=<SID>)))"


Download/Upload from local system:

Jdeveloper provides xliffimport.bat and xliffextract.bat utilities for Export and Import pages and jpximport.bat to import extensions.

Upload:

<jdev_path>\jdevbin\oaext\bin\xliffimport <filename>.xml -username apps -password <pwd> -dbconnection "(description = (address_list = (address =(protocol = tcp)(host =<host>)(port = <port>)))(connect_data = (sid = <sid>)))"

<jdev_path>\jdevbin\oaext\bin\jpximport <filename>.jpx -userId 1 -username <apps> -password <pwd> -dbconnection "(description = (address_list = (address = (protocol = tcp)(host =<host>)(port = <port>)))(connect_data = (sid = <sid>)))"

Download:

<jdev_path>\jdevbin\oaext\bin\xliffextract <page_path> -includeSubpackages -mmd_dir "<jdev_path>\jdevbin\oaext\config\mmd" -root <local_dir> -xliff_dir <local_dir> -source db -username apps -password <pwd> -dbconnection "(description = (address_list = (address = (protocol = tcp)(host = <host>)(port = <port>)))(connect_data = (sid = <sid>)))"

RowSetIterator in OAF

RowSetIterator Demo:

****************************************************************
OAViewObjectImpl vo = getStaffDetailsVO1();
StaffDetailsVORowImpl row = null;
int fetchedRowCount = vo.getRowCount();
RowSetIterator saveItr = vo.createRowSetIterator("saveItr");
if(fetchedRowCount > 0)
{
saveItr.setRangeStart(0);
saveItr.setRangeSize(fetchedRowCount);
for(int i=0;i<fetchedRowCount;i++)
{
row = (StaffDetailsVO)saveItr.getRowAtIndex(i);
String empName = row.getempName();
int empId = Integer.parseInt(row.getempId().toString());
System.out.println("Values :" + empName + " and "+ empId);
} //for loop
} //fetchedRowCount
saveItr.closeRowSetIterator(); 
****************************************************************

Monday, October 28, 2013

Attachment Issue in OAF


If you use item of type AttachmentImage, when you click on Add Attachment/ Update Attachment/ Delete attachment/View Attachment you will be re-directed to the Attachment Page. When you are coming back to Actual page(from attachment page), page will be refreshed and you will lost all the changes done.
Following fix will resovle this issue: 

Write Below code in your Process Form Request immediately after super.processFormRequest(pageContext,webBean);

****************************************************************
if("oaAddAttachment".equals(pageContext.getParameter(event)) ||
"oaUpdateAttachment".equals(pageContext.getParameter(event)) ||
"oaDeleteAttachment".equals(pageContext.getParameter(event)) ||
"oaViewAttachment".equals(pageContext.getParameter(event)) )
{
System.out.Println("Attachement Event Raised");
pageContext.putSessionValue("returnAttachmentFlag","Y");
} //If-> Attachment Event
****************************************************************

Write Following code in your processRequest():

****************************************************************
String returnAttachmentFlag = (String)pageContext.getSessionValue("returnAttachmentFlag");
if(returnAttachmentFlag!= null && returnAttachmentFlag.equals("Y"))
{
//Do not execute Your VOs
System.out.println("Page Refresh after Attachement Event hence not executing VOs");
}

else
{
//Execute VOs
vo.executeQuery();
}
pageContext.putSessionValue("returnAttachmentFlag","N");
****************************************************************

Wednesday, October 23, 2013

Set Min and Max Dates For Date Field In OAF

Using following code, we can set Minimum and Maximum dates that users can select using Date filed in a OA page.

Minimum Date: Same date in Last Month
Maximum Date: Current  DB Date

Modify the query to get required date values in the Date Field.

*******************************************************
OAApplicationModule am = (OAApplicationModule)pageContext.getApplicationModule(webBean);

OAMessageDateFieldBean dtBean =  (OAMessageDateFieldBean)webBean.findChildRecursive("actualDate");


String dtSql= "Select add_months(sysdate,-1) min_date, sysdate max_date from dual";        
try {
        Connection conn = am.getOADBTransaction().getJdbcConnection();
        PreparedStatement stmt = conn.prepareStatement(dtSql);
        ResultSet rs = stmt.executeQuery(dtSql);
        while (rs.next()) {
              java.sql.Date minDate = rs.getDate("min_date");
              java.sql.Date maxDate = rs.getDate("max_date");
              System.out.println("Received Dates: " + minDate + " and " + maxDate);
              dtBean.setMinValue(minDate);
              dtBean.setMaxValue(maxDate);
          } // While
        } //try
 catch(Exception e){
    e.printStackTrace();
    } //catch

******************************************************

Thursday, October 10, 2013

Creating Table Region in OA Page

1. Create a new Workspace with Name: TableDemo
2. Create a new Project with Name: TableDemo
Default Package:  xxapps.oracle.apps.fnd.tabledemo
3. Create a View Object:
3.1 Right click on TableDemo -> New -> Business Tier -> ADF Business Components -> View Object


3.2 Enter Package: xxapps.oracle.apps.fnd.tabledemo.server
Name: TableDemoVO
3.3 Click on next, next, next.
3.4  Query: SELECT * FROM XXHR_KPI_DEFINITIONS
3.5 Click on Next, Next, Next and then Finish.

4. Create an Application Module:
4.1 Right click on Project TableDemo, select New
BusinessTier -> ADF Business Components -> Application Module
4.2 Package: xxapps.oracle.apps.fnd.tabledemo.server
Name: TableDemoAM
4.3 Shuffle the View Object from TableDemoAM to right side.

4.4 Click on Next, Next and then Finish.

5. Create a Page.
5.1 Name: TableDemoPG
Package: xxapps.oracle.apps.fnd.tabledemo.webui
5.2 Select the region1 and set following properties:
ID: pageLayoutRN
       AM Definition: xxapps.oracle.apps.fnd.tabledemo.server.TableDemoAM
Window Title: Table Demo Page
       Title: Table Using Wizard Demo
5.3 Now right click on pageLayoutRN, Select New -> Region Using Wizard
5.4 Select the Application Module: 
Pacakge: xxapps. oracle.apps.fnd.tabledemo.server.TableDemoAM
       View Object: TableDemoVO1
5.5 Region ID: TableRN
   Regions Style: Table
5.6 Select required Attributes(attributes to be displayed in the page)
5.7 Click on next, next and then Finish.
6. Set New Controller
6.1 Right click on pageLayoutRN -> Set New OA Controller.
6.2  Package Name: xxapps.oracle.apps.fnd.tabledemo.webui
    Class Name: TableDemoCO
6.3 In controller class, write following code.
Import statements:
import oracle.apps.fnd.framework.OAApplicationModule;
import oracle.apps.fnd.framework.server.OAViewObjectImpl;
6.4 In ProcessRequest() method, write following code after super.processRequest():

OAApplicationModule am = (OAApplicationModule)pageContext.getApplicationModule(webBean);
OAViewObjectImpl vo = (OAViewObjectImpl)am.findViewObject("TableDemoVO1"); 
vo.executeQuery();

7. Run the page TableDemoPG

Creating Hello World Page+OAF

0. Check the post Configuring Jdeveloper for R12 to configure JDev.

1.  Right click on Application and Select 'New OA Workspace'. 


2. Enter file name as ‘HelloWS.jws’. 
    Create Project wizard enter 
   project name – ‘HelloJpr’ and 
   package ‘xxapps.oracle.apps.custom.hello’
   press next and select the database connection





3. Enter run time connection details and finish the project creation

   Select the DBC file from <Jdev Location>   \jdevhome\jdev\dbc_files\secure
   User Name: <Application User Name>
   Password : <Application Password>
        


4. Right click on HelloJpr and select ‘New’. From Categories choose ‘ADF Business Components’ and from items select ‘Application Module’ and press OK.

Package: xxapps.oracle.apps.custom.hello.server
Name: helloAM              











6. Again right click on HelloJpr and select ‘New’. From Categories choose ‘OAComponents’ and from items select ‘Page’ and press OK.
   Specify the Name as ‘HelloPG’ and package as ‘xxapps.oracle.apps.custom.hello.webui’

     


7. Page Structure will be as follows:



8. click on ‘region1’ and enter the required fields on property inspector :

ID: pageLayoutRN
AM Definition: Select the AM created in above Step.
Window Title: Hello World Page
Title: Hi!! 



9. Right click on HelloPG.xml file and select ‘Run’.


Configuring Jdeveloper for R12

1.   Jdeveloper – Right version of this can be chosen and  downloaded from the metalink id#. 416708.1

      For R12.1.3 -> JDEV Patch #p9879989_R12_GENERIC

2.   Get DBC file from Apps mid-tier. This is available in 
$FND_TOP/secure/

       Place the file in following location:
        <Jdev Location>\jdevhome\jdev\dbc_files\secure

3.   Oracle Applications user name/password and a attached responsibility(Example: Application Developer)

4.   Set operating system environment variable 
Variable Name: JDEV_USER_HOME
Variable Value: <JDEV Location>\jdevhome\jdev\

Adding Attachments to OA Page

Adding Attachments to OA Page:

1. In your Advanced Table(/Table) Region.
2. Create a new Column
3. Create an Item of type -> attachmentImage
4. By default one entity map will be created.
Set the property, Entity in this item to some text. ->> Example: Your Project Name to identify the attachments easily
5. Right Click on entityMap1, select new  primaryKeys
Set the Property View Attribute to Primar Column in your table(from the VO that attached to the Advanced Table RN)
6. Create a Sortable Header to give the column Name as Attachments

Now, run the page. You can view/create/update/delete attachments using this option.

To make Attachment Read-Only:

OAAttachmentImageBean attachBean = (OAAttachmentImageBean)webBean.findChildRecursive("<ID of your attachmentImage Item>");
Dictionary[] entityMaps = attachBean.getEntityMappings();
if(entityMaps != null)
{
int mapLength = entityMaps.length;
for(int i= 0; i< mapLength; i++)
{
Dictionary entityData = entityMaps[i];
if(entityData!=null && entityData.size() > 0)
{
entityData.put("insertAllowed", false);
entityData.put("updateAllowed", false);
entityData.put("deleteAllowed", false);
} //Entity Data Not NULL
} //FOR Loop
} //Entity Maps Not NULL
attachBean.setEntityMappings(entityMaps);


To Hide the Attachment:
OAAttachmentImageBean attachBean = (OAAttachmentImageBean)webBean.findChildRecursive("<ID of your attachmentImage Item>");
attachBean.setRendered(false);

Search cannot be executed because the table has pending changes that would be lost

** We encounter with this problem when the VO associated to the table region is Dirty. That means there are some changes in the VO, but which are not committed(not saved in the database) or rollback. Usually we see this error when we have any Transient Attributes attached to  the VO.

For Example, In Master-Detail relationship, we use a transient attribute to display show/hide. This will create the issue.. 

Solution:
1. Go to your VORowImpl.java
2. Search for the method public void set<TransientAttributeName>(Boolean value)
3. In this method, replace setAttributeInternal(<TransientAttrName>, value) with
populateAttribute(<TransientAttributeName>,value)
4. Example: 
Transient Attribute Name: DetailFlag
Datatype: Boolean then
search for method public void setDetailsFlag(Boolean value)
Replace setAttributeInternal(DETAILFLAG, value) with
populateAttribute(DETAILFLAG,value)
5. Re-test the issue.

** When handling a user initiated search in your page, to fix this issue, try below solution:

In processFormRequest(), get handle on the table region that you have created.

OAAdvancedTableBean templateTblBean = (OAAdvancedTableBean)webBean.findChildRecursive("<Table RN Name>");
templateBean.queryData(pageContext,false);

Wednesday, October 9, 2013

JDR_UTILS

+---------------------------------------+
|JDR_UTILS.LISTDOCUMENTS       |
+---------------------------------------+
Use this API to list of all OA Framework documents in the given path/module. 
It provides list of all the pages/extensions/personalizations.
Parameters:
1. Full/Partial path of MDS repository
2.  TRUE will direct the API to list all Child Documents underneath that tree path

Example:
DECLARE
BEGIN
jdr_utils.listdocuments('/oracle/apps/per/probation/', TRUE);
END;
/

+---------------------------------------+
|JDR_UTILS.LISTCUSTOMIZATIONS        |
+---------------------------------------+
Use this API to list all personalizations/Extensions/COntents of a specific Object.

Example:
DECLARE
BEGIN
jdr_utils.listcustomizations
(p_document => '/xxhr/oracle/apps/per/probation/webui/AddKpiPG');
END;
/

+---------------------------------------+
|JDR_UTILS.PRINTDOCUMENT  |
+---------------------------------------+
This procedure lists the contents of a specific object. 

For example, using below code, we can get all the components(items and page properties) of the page -> TrackPG

DECLARE
begin
  jdr_utils.printDocument('/xxhr/oracle/apps/per/probation/webui/TrackPG');
EXCEPTION
WHEN OTHERS THEN
  DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
/

+---------------------------------------+
|JDR_UTILS.DELETEDOCUMENT          |
+---------------------------------------+
You can delete a page/personalization/extension by using command below. 

For example to delete the Application Module substitution, use command

DECLARE
BEGIN
jdr_utils.deletedocument(p_document => '/oracle/apps/per/probation/server/customizations/addTemplateAM');
END;
/

Object Doesn't Support This Property or Method in OA Page

Error:
Done but with Errors, in bottom left corner of your browser.
Error Message:  "Object Doesn't Support This Property or Method in Common2_3_6_9.js" 

Impact:
Because of this issue, following components do not work as expected in OA page:

1. LoVs
2. Fire Actions
3. Partial Fire Actions
4. Submit Buttons etc.

Solution: Verify all your page items and make sure that there is no item with ID as submit.

Note: It is good practice to give item type as suffix for page Items. So that we can avoid such issues and also, we can easily identify item type.

Few Examples,
Submit Button-> saveBtn
Msg Text Input -> nameTF
CheckBox -> approvalCB

MessageLovInput -> deptLov
Region -> headerRN

Bouncing Apache

Perform following steps to bounce Apace:
1) login to the oracle apps tier with ‘putty’ or any equivalent software.
2) cd $ADMIN_SCRIPTS_HOME
3) adapcctl.sh stop
4) adoacorectl.sh stop
5) adapcctl.sh start
6) adoacorectl.sh start

Auto LockBox

Overview of AutoLockbox:
• Auto Lockbox is a Process where customers mail payments to a post office box near
your remittance bank and the bank deposits the payments in your account at regular intervals.
•Bank provides you with computer files detailing about the receipts and their application. 
•Receivables uses Auto Lockbox to import details about receipts directly into the system.

What is AutoLockbox:
Auto Lockbox is a service that commercial banks offer corporate customers to enable them to outsource their accounts receivable 
payment processing. Auto Lockbox eliminates manual data entry by automatically processing receipts that are sent directly to 
your bank.

Benefits of AutoLockbox:
•Eliminates manual data entry.
•Streamlines the application of receipts to outstanding transactions.
•Effectively manages cash flow by reducing turnover for converting
checks into cash.
•Apply receipts to outstanding invoices
•Import historical receipt data
•Autolockbox reports, such as the Post Quikcash Execution Report,
are a good tool to reconcile autolockbox receipts with the bank
transmission reports.


                                               <<Image1>>


AutoLockbox is 3 Step Process:

1. Import :During this step, Lockbox reads and formats the data from your bank file into interface table AR_PAYMENTS_INTERFACE_ALL
using a SQL *Loader.

•Data is imported into interface tables 
•Imported data does not affect accounts receivables balances
•Import automatically generates the Lockbox Execution Import report
•Use report to check the imported data

2.Validation: The validation program checks data in this interface table for compatibility with Receivables. Once validated,
the data is transferred into QuickCash tables (AR_INTERIM_CASH_RECEIPTS_ALL and
AR_INTERIM_CASH_RCPT_LINES_ALL) .

At this point, you can optionally query your receipts in the QuickCash window and change how they will be applied before submitting the
final step, Post QuickCash script.
•Ensures that each receipt complies with application and customer requirements
•Customer must have a primary billing location
•Bank can provide a MICR or a customer number to identify customer
•Validated data is transferred to QuickCash tables
•Transfer does not affect accounts receivables amounts
•Receivables can use AutoAssociate or a billing address to identify customer
•Use the Lockbox Execution Import report to review the validation

3.Post QuickCash: This step applies the receipts and updates your customer’s balances.
•Data is transferred from QuickCash tables to Receivables tables
•Posting updates the account balances to reflect the imported receipts
•View and update receipts in the Receipts window

                                         
                                               <<Image 2>>

These steps can be submitted individually or at the same time from the submit Lockbox Processing window. After you run Post QuickCash, Receivables treats the receipts like any other receipts, you can reverse and reapply them and apply any unapplied, unidentified, or on-account
amounts.

MICR Number:
–Magnetic Ink Character Recognition (MICR)

MICR # Consists of two segments
1st segment - Transit Routing Number (Customer’s Bank) this identifies the bank from which your customer draws their check.

2nd Segment - Bank Account of the customer (Customer’s Account) MICR Number Can Only Be Used For One Customer Only!
MICR Number is used to identify the Customer. 

The bank account number and the transit routing number makeup your customer’s MICR number. If a MICR number is shared with
more than one customer, the receipt is rejected.Customers that are associated must have unique MICR numbers. By default the lockbox validation program 
uses an invoice or debit memo number to determine the customer.

Copying a Modifier List- Advanced Pricing

Copying a Modifier List:
You can quickly create a new modifier by copying an existing one. The modifier lines, pricing attributes, and qualifiers will be copied from the original modifier to
the new one. The following attributes are copied to the new modifier: price breaks, other item discounts, coupons, promotional goods, setups and line.

If we are in a situation to copy modifier with more number of lines and huge number of Qualifiers attached to those lines  with changes in the Product Attributes then use the following package to create new Modifier List
from an existing Modifier List with required changes in the new modifier lines.

Package Specification: 
CREATE OR REPLACE
PACKAGE XX_MODIFIER_COPY_PKG
IS
PROCEDURE XX_MODIFIER_COPY(
    p_copy_from      IN VARCHAR2,
    p_name           IN VARCHAR2,
    p_description    IN VARCHAR2,
    p_prod_attribute IN VARCHAR2,
    p_prod_value     IN VARCHAR2 );
END XX_MODIFIER_COPY_PKG;
/

Parameters Description:
p_copy_from ->> Is the Existing Modifier which we you need to copy
p_name --> New Modifier Name
p_description --> New Description
p_prod_attribute -->  If there are any changes with respect to Product Attribute from Old  to New then pass new value to this parameter. If not, you can pass NULL
Example: From Item Number to Item Category
p_prod_value --> If there are any changes with respect to Product Attribute from Old  to New then pass new value to this parameter. If not, you can pass NULL


Package Body:
CREATE OR REPLACE
PACKAGE body XX_MODIFIER_COPY_PKG
IS
PROCEDURE XX_MODIFIER_COPY(
    p_copy_from      IN VARCHAR2,
    p_name           IN VARCHAR2,
    p_description    IN VARCHAR2,
    p_prod_attribute IN VARCHAR2,
    p_prod_value     IN VARCHAR2 )
IS
  CURSOR modifier_cur
  IS
    SELECT *
    FROM APPS.QP_LIST_HEADERS QPH
    WHERE 1=1
    AND qph.name LIKE p_copy_from;--'%IND%ABRIVO%HP%';--'%IND%ABRIVO%INTRO%';
  CURSOR modifier_line_cur(p_list_header_id NUMBER)
  IS
    SELECT qpll.*,--qppa.list_line_id,
      qppa.excluder_flag,
      qppa.accumulate_flag,
      qppa.product_attribute_context,
      qppa.product_attribute,
      qppa.product_attr_value,
      qppa.product_uom_code attr_uom,
      qppa.pricing_attribute_context,
      qppa.pricing_attribute,
      qppa.pricing_attr_value_from,
      qppa.pricing_attr_value_to,
      qppa.attribute_grouping_no,
      qppa.product_attribute_datatype,
      qppa.pricing_attribute_datatype,
      qppa.comparison_operator_code,
      qppa.CONTEXT attr_context,
      qppa.attribute1 attr_attribute1,
      qppa.attribute2 attr_attribute2,
      qppa.attribute3 attr_attribute3,
      qppa.attribute4 attr_attribute4,
      qppa.attribute5 attr_attribute5,
      qppa.attribute6 attr_attribute6,
      qppa.attribute7 attr_attribute7,
      qppa.attribute8 attr_attribute8,
      qppa.attribute9 attr_attribute9,
      qppa.attribute10 attr_attribute10,
      qppa.attribute11 attr_attribute11,
      qppa.attribute12 attr_attribute12,
      qppa.attribute13 attr_attribute13,
      qppa.attribute14 attr_attribute14,
      qppa.attribute15 attr_attribute15,--qppa.list_header_id,
      qppa.pricing_phase_id attr_pricing_phase_id,
      qppa.qualification_ind attr_qualification_ind,
      qppa.pricing_attr_Value_from_number,
      qppa.pricing_attr_value_to_number
    FROM apps.qp_list_headers qph,
      apps.qp_list_lines qpll,
      apps.qp_pricing_attributes qppa
    WHERE 1                =1
    AND qph.list_header_id = qpll.list_header_id
    AND qppa.list_line_id  = qpll.list_line_id
    AND qph.list_header_id = qppa.list_header_id
    AND qph.list_header_id = p_list_header_id;
  CURSOR qualifier_cur(p_list_line_id NUMBER)
  IS
    SELECT qpq.*
    FROM apps.qp_qualifiers qpq
    WHERE 1          =1
    AND list_line_id = p_list_line_id;--5084994;
  x_msg_count NUMBER;
  x_msg_data  VARCHAR2 (2000);
  l_msg_tbl oe_msg_pub.msg_tbl_type;
  l_control_rec qp_globals.control_rec_type;
  l_return_status VARCHAR2 (1);
  l_msg_count     NUMBER;
  l_msg_data      VARCHAR2 (1000);
  l_msg_dummy     VARCHAR2 (1000);
  l_output        VARCHAR2 (1000);
  ip_modifier_list_rec qp_modifiers_pub.modifier_list_rec_type;
  ip_modifier_list_val_rec qp_modifiers_pub.modifier_list_val_rec_type;
  ip_modifiers_tbl qp_modifiers_pub.modifiers_tbl_type;
  ip_modifiers_val_tbl qp_modifiers_pub.modifiers_val_tbl_type;
  ip_qualifiers_tbl qp_qualifier_rules_pub.qualifiers_tbl_type;
  ip_qualifiers_val_tbl qp_qualifier_rules_pub.qualifiers_val_tbl_type;
  ip_pricing_attr_tbl qp_modifiers_pub.pricing_attr_tbl_type;
  ip_pricing_attr_val_tbl qp_modifiers_pub.pricing_attr_val_tbl_type;
  op_modifier_list_rec qp_modifiers_pub.modifier_list_rec_type;
  op_modifier_list_val_rec qp_modifiers_pub.modifier_list_val_rec_type;
  op_modifiers_tbl qp_modifiers_pub.modifiers_tbl_type;
  op_modifiers_val_tbl qp_modifiers_pub.modifiers_val_tbl_type;
  op_qualifiers_tbl qp_qualifier_rules_pub.qualifiers_tbl_type;
  op_qualifiers_val_tbl qp_qualifier_rules_pub.qualifiers_val_tbl_type;
  op_pricing_attr_tbl qp_modifiers_pub.pricing_attr_tbl_type;
  op_pricing_attr_val_tbl qp_modifiers_pub.pricing_attr_val_tbl_type;
  op_pricing_attr_tbl1 qp_modifiers_pub.pricing_attr_tbl_type;
  op_pricing_attr_val_tbl1 qp_modifiers_pub.pricing_attr_val_tbl_type;
  mll_rec qp_list_lines%ROWTYPE;
  pra_rec qp_pricing_attributes%ROWTYPE;
  t_output              VARCHAR2 (1000);
  x_debug_file          VARCHAR2 (100);
  l_user_id             NUMBER;
  l_responsibility_id   NUMBER;
  l_application_id      NUMBER;
  k                     NUMBER := 1;
  i                     NUMBER := 1;
  j                     NUMBER := 1;
  l                     NUMBER := 1;
  pa                    NUMBER := 1;
  l_q_grp               NUMBER := 1;
  l_list_line_id        NUMBER;
  l_modifier_number     NUMBER;
  l_terms_id            NUMBER;
  nexti                 NUMBER;
  v_list_line_id        NUMBER;
  l_price_by_formula_id NUMBER;
  l_org_id              NUMBER;
  l_responsibility_name VARCHAR2 (100);
  l_status              VARCHAR2(10);
  l_cust_account_id     NUMBER;
BEGIN
  SELECT user_id
  INTO l_user_id
  FROM fnd_user
  WHERE 1       =1
  AND user_name = 'CONVERSION';
  oe_msg_pub.initialize;
  oe_debug_pub.initialize;
  --X_DEBUG_FILE := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
  oe_debug_pub.setdebuglevel (5);
  l_responsibility_name := 'Order Management Super User';
  SELECT responsibility_id,
    application_id
  INTO l_responsibility_id,
    l_application_id
  FROM fnd_responsibility_tl
  WHERE 1                 =1
  AND responsibility_name = l_responsibility_name;
  fnd_global.apps_initialize ( l_user_id, l_responsibility_id, l_application_id );
  mo_global.init ('ONT');
  /* Create a Modifier header  */
  FOR modifier_rec IN modifier_cur
  LOOP
    BEGIN
      ip_modifier_list_rec.attribute1              := modifier_rec.attribute1;
      ip_modifier_list_rec.attribute10             := modifier_rec.attribute10;
      ip_modifier_list_rec.attribute11             := modifier_rec.attribute11;
      ip_modifier_list_rec.attribute12             := modifier_rec.attribute12;
      ip_modifier_list_rec.attribute13             := modifier_rec.attribute13;
      ip_modifier_list_rec.attribute14             := modifier_rec.attribute14;
      ip_modifier_list_rec.attribute15             := modifier_rec.attribute15;
      ip_modifier_list_rec.attribute2              := modifier_rec.attribute2;
      ip_modifier_list_rec.attribute3              := modifier_rec.attribute3;
      ip_modifier_list_rec.attribute4              := modifier_rec.attribute4;
      ip_modifier_list_rec.attribute5              := modifier_rec.attribute5;
      ip_modifier_list_rec.attribute6              := modifier_rec.attribute6;
      ip_modifier_list_rec.attribute7              := modifier_rec.attribute7;
      ip_modifier_list_rec.attribute8              := modifier_rec.attribute8;
      ip_modifier_list_rec.attribute9              := modifier_rec.attribute9;
      ip_modifier_list_rec.automatic_flag          := modifier_rec.automatic_flag ;
      ip_modifier_list_rec.comments                := p_description;--modifier_rec.comments; -- Description Field
      ip_modifier_list_rec.context                 := modifier_rec.context;
      ip_modifier_list_rec.currency_code           := modifier_rec.currency_code;
      ip_modifier_list_rec.discount_lines_flag     := modifier_rec.discount_lines_flag;
      ip_modifier_list_rec.end_date_active         := modifier_rec.end_date_active;
      ip_modifier_list_rec.freight_terms_code      := modifier_rec.freight_terms_code;
      ip_modifier_list_rec.gsa_indicator           := modifier_rec.gsa_indicator;
      ip_modifier_list_rec.list_type_code          := modifier_rec.list_type_code;
      ip_modifier_list_rec.prorate_flag            := modifier_rec.prorate_flag;
      ip_modifier_list_rec.rounding_factor         := modifier_rec.rounding_factor;
      ip_modifier_list_rec.ship_method_code        := modifier_rec.ship_method_code;
      ip_modifier_list_rec.start_date_active       := modifier_rec.start_date_active;
      ip_modifier_list_rec.terms_id                := modifier_rec.terms_id;
      ip_modifier_list_rec.source_system_code      := modifier_rec.source_system_code;
      ip_modifier_list_rec.active_flag             := modifier_rec.active_flag;
      ip_modifier_list_rec.parent_list_header_id   := modifier_rec.parent_list_header_id;
      ip_modifier_list_rec.start_date_active_first := modifier_rec.start_date_active_first;
      ip_modifier_list_rec.end_date_active_first   := modifier_rec.end_date_active_first;
      ip_modifier_list_rec.active_date_first_type  := modifier_rec.active_date_first_type;
      ip_modifier_list_rec.start_date_active_second:= modifier_rec.start_date_active_second;
      ip_modifier_list_rec.global_flag             := modifier_rec.global_flag;
      ip_modifier_list_rec.end_date_active_second  := modifier_rec.end_date_active_second;
      ip_modifier_list_rec.active_date_second_type := modifier_rec.active_date_second_type;
      ip_modifier_list_rec.ask_for_flag            := modifier_rec.ask_for_flag;
      ip_modifier_list_rec.name                    := p_name;
      ip_modifier_list_rec.description             := p_name;
      ip_modifier_list_rec.version_no              := modifier_rec.version_no;
      --ip_modifier_list_rec.return_status  :=      modifier_rec.return_status;
      --ip_modifier_list_rec.db_flag  :=      modifier_rec.db_flag;
      ip_modifier_list_rec.operation        := qp_globals.g_opr_create;
      ip_modifier_list_rec.pte_code         := modifier_rec.pte_code;
      ip_modifier_list_rec.list_source_code := modifier_rec.list_source_code;
      ip_modifier_list_rec.shareable_flag   := modifier_rec.shareable_flag;
      ip_modifier_list_rec.org_id           := modifier_rec.orig_org_id;
      k                                     := 1;
      j                                     := 1;
      pa                                    := 1;
      l                                     :=1;
      IF ip_qualifiers_tbl.COUNT             > 0 THEN
        ip_qualifiers_tbl.DELETE;
      END IF;
      IF ip_modifiers_tbl.COUNT > 0 THEN
        ip_modifiers_tbl.DELETE;
      END IF;
      IF ip_pricing_attr_tbl.COUNT > 0 THEN
        ip_pricing_attr_tbl.DELETE;
      END IF;
      FOR modifier_line_rec IN modifier_line_cur(modifier_rec.list_header_id)
      LOOP
        BEGIN
          ip_modifiers_tbl(j).arithmetic_operator       := modifier_line_rec.arithmetic_operator;
          ip_modifiers_tbl(j).attribute1                := modifier_line_rec.attribute1;
          ip_modifiers_tbl(j).attribute10               := modifier_line_rec.attribute10;
          ip_modifiers_tbl(j).attribute11               := modifier_line_rec.attribute11;
          ip_modifiers_tbl(j).attribute12               := modifier_line_rec.attribute12;
          ip_modifiers_tbl(j).attribute13               := modifier_line_rec.attribute13;
          ip_modifiers_tbl(j).attribute14               := modifier_line_rec.attribute14;
          ip_modifiers_tbl(j).attribute15               := modifier_line_rec.attribute15;
          ip_modifiers_tbl(j).attribute2                := modifier_line_rec.attribute2;
          ip_modifiers_tbl(j).attribute3                := modifier_line_rec.attribute3;
          ip_modifiers_tbl(j).attribute4                := modifier_line_rec.attribute4;
          ip_modifiers_tbl(j).attribute5                := modifier_line_rec.attribute5;
          ip_modifiers_tbl(j).attribute6                := modifier_line_rec.attribute6;
          ip_modifiers_tbl(j).attribute7                := modifier_line_rec.attribute7;
          ip_modifiers_tbl(j).attribute8                := modifier_line_rec.attribute8;
          ip_modifiers_tbl(j).attribute9                := modifier_line_rec.attribute9;
          ip_modifiers_tbl(j).automatic_flag            := modifier_line_rec.automatic_flag;
          ip_modifiers_tbl(j).comments                  := modifier_line_rec.comments;
          ip_modifiers_tbl(j).context                   := modifier_line_rec.context;
          ip_modifiers_tbl(j).effective_period_uom      := modifier_line_rec.effective_period_uom;
          ip_modifiers_tbl(j).end_date_active           := modifier_line_rec.end_date_active;
          ip_modifiers_tbl(j).estim_accrual_rate        := modifier_line_rec.estim_accrual_rate;
          ip_modifiers_tbl(j).generate_using_formula_id := modifier_line_rec.GENERATE_USING_FORMULA_ID;
          ip_modifiers_tbl(j).inventory_item_id         := modifier_line_rec.inventory_item_id;
          --ip_modifiers_tbl(j).list_header_id            := modifier_line_rec.list_header_id;
          ip_modifiers_tbl(j).list_line_type_code      := modifier_line_rec.list_line_type_code;
          ip_modifiers_tbl(j).list_price               := modifier_line_rec.list_price;
          ip_modifiers_tbl(j).modifier_level_code      := modifier_line_rec.modifier_level_code;
          ip_modifiers_tbl(j).number_effective_periods := modifier_line_rec.number_effective_periods;
          ip_modifiers_tbl(j).operand                  := modifier_line_rec.operand;
          ip_modifiers_tbl(j).organization_id          := modifier_line_rec.organization_id;
          ip_modifiers_tbl(j).override_flag            := modifier_line_rec.override_flag;
          ip_modifiers_tbl(j).percent_price            := modifier_line_rec.percent_price;
          ip_modifiers_tbl(j).price_break_type_code    := modifier_line_rec.price_break_type_code;
          ip_modifiers_tbl(j).price_by_formula_id      := modifier_line_rec.price_by_formula_id;
          ip_modifiers_tbl(j).primary_uom_flag         := modifier_line_rec.primary_uom_flag;
          ip_modifiers_tbl(j).print_on_invoice_flag    := modifier_line_rec.print_on_invoice_flag;
          ip_modifiers_tbl(j).rebate_trxn_type_code    := modifier_line_rec.rebate_transaction_type_code;
          ip_modifiers_tbl(j).related_item_id          := modifier_line_rec.related_item_id;
          ip_modifiers_tbl(j).relationship_type_id     := modifier_line_rec.relationship_type_id;
          ip_modifiers_tbl(j).reprice_flag             := modifier_line_rec.reprice_flag;
          ip_modifiers_tbl(j).revision                 := modifier_line_rec.revision;
          ip_modifiers_tbl(j).revision_date            := modifier_line_rec.revision_date;
          ip_modifiers_tbl(j).revision_reason_code     := modifier_line_rec.revision_reason_code;
          ip_modifiers_tbl(j).start_date_active        := modifier_line_rec.start_date_active;
          ip_modifiers_tbl(j).substitution_attribute   := modifier_line_rec.substitution_attribute;
          ip_modifiers_tbl(j).substitution_context     := modifier_line_rec.substitution_context;
          ip_modifiers_tbl(j).substitution_value       := modifier_line_rec.substitution_value;
          ip_modifiers_tbl(j).accrual_flag             := modifier_line_rec.accrual_flag;
          ip_modifiers_tbl(j).pricing_group_sequence   := modifier_line_rec.pricing_group_sequence;
          ip_modifiers_tbl(j).incompatibility_grp_code := modifier_line_rec.incompatibility_grp_code;
          /*ip_modifiers_tbl(j).rltd_modifier_id          := modifier_line_rec.rltd_modifier_id;
          ip_modifiers_tbl(j).from_rltd_modifier_id     := modifier_line_rec.from_rltd_modifier_id;
          ip_modifiers_tbl(j).to_rltd_modifier_id       := modifier_line_rec.to_rltd_modifier_id;
          ip_modifiers_tbl(j).rltd_modifier_grp_no      := modifier_line_rec.rltd_modifier_grp_no;
          ip_modifiers_tbl(j).rltd_modifier_grp_type    := modifier_line_rec.rltd_modifier_grp_type;*/
          ip_modifiers_tbl(j).pricing_phase_id             := modifier_line_rec.pricing_phase_id;
          ip_modifiers_tbl(j).product_precedence           := modifier_line_rec.product_precedence;
          ip_modifiers_tbl(j).expiration_period_start_date := modifier_line_rec.expiration_period_start_date;
          ip_modifiers_tbl(j).number_expiration_periods    := modifier_line_rec.number_expiration_periods;
          ip_modifiers_tbl(j).expiration_period_uom        := modifier_line_rec.expiration_period_uom;
          ip_modifiers_tbl(j).expiration_date              := modifier_line_rec.expiration_date;
          ip_modifiers_tbl(j).estim_gl_value               := modifier_line_rec.estim_gl_value;
          ip_modifiers_tbl(j).benefit_price_list_line_id   := modifier_line_rec.benefit_price_list_line_id;
          ip_modifiers_tbl(j).benefit_limit                := modifier_line_rec.benefit_limit;
          ip_modifiers_tbl(j).charge_type_code             := modifier_line_rec.charge_type_code;
          ip_modifiers_tbl(j).charge_subtype_code          := modifier_line_rec.charge_subtype_code;
          ip_modifiers_tbl(j).benefit_qty                  := modifier_line_rec.benefit_qty;
          ip_modifiers_tbl(j).benefit_uom_code             := modifier_line_rec.benefit_uom_code;
          ip_modifiers_tbl(j).accrual_conversion_rate      := modifier_line_rec.accrual_conversion_rate;
          ip_modifiers_tbl(j).proration_type_code          := modifier_line_rec.proration_type_code;
          ip_modifiers_tbl(j).include_on_returns_flag      := modifier_line_rec.include_on_returns_flag;
          --ip_modifiers_tbl(j).return_status               := modifier_line_rec.return_status;
          --ip_modifiers_tbl(j).db_flag                     := modifier_line_rec.db_flag;
          ip_modifiers_tbl(j).operation := QP_GLOBALS.G_OPR_CREATE;
          --ip_modifiers_tbl(j).Modifier_parent_index       := modifier_line_rec.Modifier_parent_index;
          ip_modifiers_tbl(j).qualification_ind           := modifier_line_rec.qualification_ind;
          ip_modifiers_tbl(j).net_amount_flag             := modifier_line_rec.net_amount_flag;
          ip_modifiers_tbl(j).accum_attribute             := modifier_line_rec.accum_attribute;
          ip_modifiers_tbl(j).continuous_price_break_flag := modifier_line_rec.continuous_price_break_flag;
          ip_pricing_attr_tbl(k).accumulate_flag          := modifier_line_rec.accumulate_flag;
          ip_pricing_attr_tbl(k).attribute1               := modifier_line_rec.attr_attribute1;
          ip_pricing_attr_tbl(k).attribute10              := modifier_line_rec.list_line_id;--modifier_line_rec.attr_attribute10;
          ip_pricing_attr_tbl(k).attribute11              := modifier_line_rec.attr_attribute11;
          ip_pricing_attr_tbl(k).attribute12              := modifier_line_rec.attr_attribute12;
          ip_pricing_attr_tbl(k).attribute13              := modifier_line_rec.attr_attribute13;
          ip_pricing_attr_tbl(k).attribute14              := modifier_line_rec.attr_attribute14;
          ip_pricing_attr_tbl(k).attribute15              := modifier_line_rec.attr_attribute1;
          ip_pricing_attr_tbl(k).attribute2               := modifier_line_rec.attr_attribute2;
          ip_pricing_attr_tbl(k).attribute3               := modifier_line_rec.attr_attribute3;
          ip_pricing_attr_tbl(k).attribute4               := modifier_line_rec.attr_attribute4;
          ip_pricing_attr_tbl(k).attribute5               := modifier_line_rec.attr_attribute5;
          ip_pricing_attr_tbl(k).attribute6               := modifier_line_rec.attr_attribute6;
          ip_pricing_attr_tbl(k).attribute7               := modifier_line_rec.attr_attribute7;
          ip_pricing_attr_tbl(k).attribute8               := modifier_line_rec.attr_attribute8;
          ip_pricing_attr_tbl(k).attribute9               := modifier_line_rec.attr_attribute9;
          ip_pricing_attr_tbl(k).attribute_grouping_no    := modifier_line_rec.attribute_grouping_no;
          ip_pricing_attr_tbl(k).context                  := modifier_line_rec.attr_CONTEXT;
          ip_pricing_attr_tbl(k).excluder_flag            := modifier_line_rec.excluder_flag;
          --ip_pricing_attr_tbl(k).list_line_id                            :=    modifier_line_rec.list_line_id;
          ip_pricing_attr_tbl(k).pricing_attribute          := modifier_line_rec.pricing_attribute;
          ip_pricing_attr_tbl(k).pricing_attribute_context  := modifier_line_rec.pricing_attribute_context;
          ip_pricing_attr_tbl(k).pricing_attr_value_from    := modifier_line_rec.pricing_attr_value_from;
          ip_pricing_attr_tbl(k).pricing_attr_value_to      := modifier_line_rec.pricing_attr_value_to;
          ip_pricing_attr_tbl(k).product_attribute          := NVL(p_prod_attribute,modifier_line_rec.product_attribute);--modifier_line_rec.product_attribute;
          ip_pricing_attr_tbl(k).product_attribute_context  := modifier_line_rec.product_attribute_context;
          ip_pricing_attr_tbl(k).product_attr_value         := p_prod_value;--modifier_line_rec.product_attr_value;
          ip_pricing_attr_tbl(k).product_uom_code           := modifier_line_rec.attr_uom;
          ip_pricing_attr_tbl(k).product_attribute_datatype := modifier_line_rec.product_attribute_datatype;
          ip_pricing_attr_tbl(k).pricing_attribute_datatype := modifier_line_rec.pricing_attribute_datatype;
          ip_pricing_attr_tbl(k).comparison_operator_code   := modifier_line_rec.comparison_operator_code;
          --ip_pricing_attr_tbl(k).list_header_id                     :=    modifier_line_rec.list_header_id;
          ip_pricing_attr_tbl(k).pricing_phase_id               := modifier_line_rec.attr_pricing_phase_id;
          ip_pricing_attr_tbl(k).pricing_attr_value_from_number := modifier_line_rec.pricing_attr_Value_from_number;
          ip_pricing_attr_tbl(k).pricing_attr_value_to_number   := modifier_line_rec.pricing_attr_value_to_number;
          ip_pricing_attr_tbl(k).qualification_ind              := modifier_line_rec.attr_qualification_ind;
          ip_pricing_attr_tbl(k).operation                      := QP_GLOBALS.G_OPR_CREATE;
          ip_pricing_attr_tbl(k).MODIFIERS_index                := k;
          k                                                     := k + 1;
          j                                                     := j + 1;
        END;
      END LOOP; -- Modifiers(lines) loaded
      DBMS_OUTPUT.PUT_LINE('Modifier Line Pricing Attributes Done');
      DBMS_OUTPUT.PUT_LINE('CAlling API');
      oe_msg_pub.initialize;
      qp_modifiers_pub.process_modifiers (p_api_version_number => 1.0, p_init_msg_list => fnd_api.g_true, p_return_values => fnd_api.g_true, p_commit => fnd_api.g_false, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_modifier_list_rec => ip_modifier_list_rec, p_modifiers_tbl => ip_modifiers_tbl, p_pricing_attr_tbl => ip_pricing_attr_tbl, x_modifier_list_rec => op_modifier_list_rec, x_modifier_list_val_rec => op_modifier_list_val_rec, x_modifiers_tbl => op_modifiers_tbl, x_modifiers_val_tbl => op_modifiers_val_tbl, x_qualifiers_tbl => op_qualifiers_tbl, x_qualifiers_val_tbl => op_qualifiers_val_tbl, x_pricing_attr_tbl => op_pricing_attr_tbl, x_pricing_attr_val_tbl => op_pricing_attr_val_tbl );
      DBMS_OUTPUT.PUT_LINE('API CALLED and return status: '|| l_return_status);
      DBMS_OUTPUT.PUT_LINE('No of Modifoers Loaded: '||op_pricing_attr_tbl.COUNT);
      IF(l_return_status = 'S') THEN
        FOR i           IN 1 .. op_pricing_attr_tbl.COUNT
        LOOP
          --DBMS_OUTPUT.PUT_LINE('Entered first Line: '|| op_pricing_attr_tbl(i).list_line_id ||' and mapping ID: '|| op_pricing_attr_tbl(i).attribute10);
          --DBMS_OUTPUT.PUT_LINE('Line Number: '|| i);
          l_q_grp                   :=1;
          l                         :=1;
          IF ip_qualifiers_tbl.COUNT > 0 THEN
            ip_qualifiers_tbl.DELETE;
          END IF;
          l_list_line_id    := TO_NUMBER(op_pricing_attr_tbl(i).attribute10);
          FOR qualifier_rec IN qualifier_cur(l_list_line_id)
          LOOP
            l_status                                      := NULL;
            ip_qualifiers_tbl(l).qualifier_attr_value     := to_number(qualifier_rec.qualifier_attr_value);
            ip_qualifiers_tbl(l).attribute1               := qualifier_rec.attribute1;
            ip_qualifiers_tbl(l).attribute10              := qualifier_rec.attribute10;
            ip_qualifiers_tbl(l).attribute11              := qualifier_rec.attribute11 ;
            ip_qualifiers_tbl(l).attribute12              := qualifier_rec.attribute12 ;
            ip_qualifiers_tbl(l).attribute13              := qualifier_rec.attribute13 ;
            ip_qualifiers_tbl(l).attribute14              := qualifier_rec.attribute14 ;
            ip_qualifiers_tbl(l).attribute15              := qualifier_rec.attribute15 ;
            ip_qualifiers_tbl(l).attribute2               := qualifier_rec.attribute2 ;
            ip_qualifiers_tbl(l).attribute3               := qualifier_rec.attribute3 ;
            ip_qualifiers_tbl(l).attribute4               := qualifier_rec.attribute4 ;
            ip_qualifiers_tbl(l).attribute5               := qualifier_rec.attribute5 ;
            ip_qualifiers_tbl(l).attribute6               := qualifier_rec.attribute6 ;
            ip_qualifiers_tbl(l).attribute7               := qualifier_rec.attribute7;
            ip_qualifiers_tbl(l).attribute8               := qualifier_rec.attribute8 ;
            ip_qualifiers_tbl(l).attribute9               := qualifier_rec.attribute9;
            ip_qualifiers_tbl(l).comparison_operator_code := qualifier_rec.comparison_operator_code;
            ip_qualifiers_tbl(l).context                  := qualifier_rec.context;
            ip_qualifiers_tbl(l).end_date_active          := qualifier_rec.end_date_active;
            ip_qualifiers_tbl(l).excluder_flag            := qualifier_rec.excluder_flag;
            ip_qualifiers_tbl(l).list_header_id           := op_pricing_attr_tbl (i).list_header_id;
            ip_qualifiers_tbl(l).list_line_id             := op_pricing_attr_tbl (i).list_line_id;
            ip_qualifiers_tbl(l).qualifier_attribute      := qualifier_rec.qualifier_attribute ;
            ip_qualifiers_tbl(l).qualifier_attr_value_to  := to_number(qualifier_rec.qualifier_attr_value_to);
            ip_qualifiers_tbl(l).qualifier_context        := qualifier_rec.qualifier_context ;
            ip_qualifiers_tbl(l).qualifier_grouping_no    := qualifier_rec.qualifier_grouping_no ;
            ip_qualifiers_tbl(l).qualifier_precedence     := qualifier_rec.qualifier_precedence ;
            ip_qualifiers_tbl(l).start_date_active        := qualifier_rec.start_date_active ;
            ip_qualifiers_tbl(l).operation                := qp_globals.g_opr_create;
            l                                             := l      +1;
            l_q_grp                                       := l_q_grp+1;
          END LOOP; --Qualifiers Assigned
          --END LOOP; --Qualifiers for all modifier Lines
          qp_modifiers_pub.process_modifiers (p_api_version_number => 1.0, p_init_msg_list => fnd_api.g_true, p_return_values => fnd_api.g_true, p_commit => fnd_api.g_false, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_qualifiers_tbl => ip_qualifiers_tbl, p_qualifiers_val_tbl => ip_qualifiers_val_tbl, x_modifier_list_rec => op_modifier_list_rec, x_modifier_list_val_rec => op_modifier_list_val_rec, x_modifiers_tbl => op_modifiers_tbl, x_modifiers_val_tbl => op_modifiers_val_tbl, x_qualifiers_tbl => op_qualifiers_tbl, x_qualifiers_val_tbl => op_qualifiers_val_tbl, x_pricing_attr_tbl => op_pricing_attr_tbl1, x_pricing_attr_val_tbl => op_pricing_attr_val_tbl1 );
          DBMS_OUTPUT.PUT_LINE('Qualifiers Loaded Successfully');
          DBMS_OUTPUT.PUT_LINE('Return Status: '|| l_return_status || '  for line: '|| op_pricing_attr_tbl (i).list_line_id || ' Copied from: '||l_list_line_id);
          FOR i IN 1 .. l_msg_count
          LOOP
            oe_msg_pub.get (i, fnd_api.g_false, l_msg_data, l_msg_dummy);
            l_output := (TO_CHAR (i) || ': ' || l_msg_data);
            DBMS_OUTPUT.PUT_LINE('Error Messages from API: '|| l_msg_data);
          END LOOP;
        END LOOP;
      END IF;
    END;
    --end loop; -- Modifier List
    --DBMS_OUTPUT.put_line ('mod. tbl cnt:' || op_qualifiers_tbl.COUNT);
    FOR i IN 1 .. l_msg_count
    LOOP
      oe_msg_pub.get (i, fnd_api.g_false, l_msg_data, l_msg_dummy);
      l_output := (TO_CHAR (i) || ': ' || l_msg_data);
      DBMS_OUTPUT.PUT_LINE('Error Messages from API: '|| l_msg_data);
    END LOOP;
  END LOOP; -- Modifier List
EXCEPTION
WHEN OTHERS THEN
  DBMS_OUTPUT.put_line ('Error in Procedure: ' || SQLERRM);
END XX_MODIFIER_COPY;
end XX_MODIFIER_COPY_PKG;
/