,

API – Customer Additional Information (Price List , Payment Terms ,Sales Type )

CREATE OR REPLACE procedure APPS.XX_CUSTOMER_ADDITIONAL_LOAD
IS
p_cust_site_use_rec  HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_SITE_USE_REC_TYPE;
x_return_status      VARCHAR2(2000);
x_msg_count          NUMBER;
xio_p_object_version NUMBER;
x_msg_data           VARCHAR2(2000);
v_site_use_id        NUMBER;
V_OBJECT_VERSION     NUMBER;
BEGIN

--    FND_GLOBAL.APPS_INITIALIZE(<user_id>,<resp_id>,<resp_applicarion_id>);
--    MO_GLOBAL.INIT('AR');
--    MO_GLOBAL.SET_POLICY_CONTEXT('S', <org_id>);
     FND_GLOBAL.APPS_INITIALIZE(1535,50930,222);
     MO_GLOBAL.INIT('AR');
     MO_GLOBAL.SET_POLICY_CONTEXT('S', 1210);   
     BEGIN
            SELECT  HCSU.SITE_USE_ID,
                    HCSU.OBJECT_VERSION_NUMBER
            INTO    V_SITE_USE_ID,
                    V_OBJECT_VERSION
            FROM    HZ_PARTIES HP,
                    HZ_PARTY_SITES HPS,
                    HZ_CUST_ACCT_SITES_ALL HCAS,
                    HZ_CUST_SITE_USES_ALL HCSU
            WHERE   HP.PARTY_ID = HPS.PARTY_ID
            AND     HPS.PARTY_SITE_ID = HCAS.PARTY_SITE_ID
            AND     HCAS.CUST_ACCT_SITE_ID =HCSU.CUST_ACCT_SITE_ID
            AND     HCSU.SITE_USE_CODE = 'BILL_TO'
            AND     ltrim(rtrim(upper(HP.PARTY_NAME)))= ltrim(rtrim(upper('SSE Test Customer')));
     EXCEPTION WHEN OTHERS THEN
            DBMS_OUTPUT.PUT_LINE('ERROR IS'||SUBSTR(SQLERRM,1,150));            
     END;
   
     p_cust_site_use_rec.site_use_id:=  V_SITE_USE_ID;             -- Site USe to be updated
     xio_p_object_version           :=  V_OBJECT_VERSION;          --xio_p_object_version := 1;
     p_cust_site_use_rec.price_list_id   := 98202;              -- SSE Standard
     p_cust_site_use_rec.payment_term_id := 1000 ;              -- 90 Days
     p_cust_site_use_rec.order_type_id   := 1193;               --SSE Duabi Showroom Cash Sales
     hz_cust_account_site_v2pub.update_cust_site_use(
                                                    'T',
                                                    p_cust_site_use_rec,
                                                    xio_p_object_version,
                                                    x_return_status,
                                                    x_msg_count,
                                                    x_msg_data);


    dbms_output.put_line('***************************');
    dbms_output.put_line('Output information ....');
    dbms_output.put_line('x_return_status: '||x_return_status);
    dbms_output.put_line('x_msg_count: '||x_msg_count);
    dbms_output.put_line('xio_p_object_version: '||xio_p_object_version);
    dbms_output.put_line('x_msg_data: '||x_msg_data);
    dbms_output.put_line('***************************');    
    COMMIT;
END;
/
/by
, ,

API – Update Inventory Item Template

declare
 l_item_table      ego_item_pub.item_tbl_type;
   x_item_table      ego_item_pub.item_tbl_type;
   x_return_status   VARCHAR2 (1);
   x_msg_count       NUMBER (10);
   x_msg_data        VARCHAR2 (1000);
   x_message_list    error_handler.error_tbl_type;
BEGIN
           l_item_table (1).transaction_type := ‘UPDATE’;
       l_item_table (1).inventory_item_id := 64;  –INVENTORY_ITEM_ID;
       l_item_table (1).organization_id := 101; — I.ORGANIZATION_ID;
       l_item_table (1).template_id := 1;– I.NEW_TEMPLATE_ID;
       ego_item_pub.process_items (p_api_version        => 1.0,
                       p_init_msg_list      => fnd_api.g_true,
                       p_commit             => fnd_api.g_true,
                       p_item_tbl           => l_item_table,
                       x_item_tbl           => x_item_table,
                       x_return_status      => x_return_status,
                       x_msg_count          => x_msg_count
                      );
     
       DBMS_OUTPUT.PUT_LINE (‘Return Status ==>’ || x_return_status);
       DBMS_OUTPUT.PUT_LINE (‘Error Messages :’);
      
           error_handler.get_message_list (x_message_list => x_message_list);

           FOR i IN 1 .. x_message_list.COUNT
           LOOP
              DBMS_OUTPUT.PUT_LINE (x_message_list (i).MESSAGE_TEXT);
           END LOOP;

END;

/by
,

Identify Responsibilities attached to an User

select fu.user_name, fr.responsibility_name, furg.START_DATE, furg.END_DATE
from fnd_user_resp_groups_direct furg, fnd_user fu, fnd_responsibility_tl fr
where fu.user_name = :user_name
and furg.user_id = fu.user_id
and furg.responsibility_id = fr.responsibility_id
and fr.language = userenv(‘LANG’);
/by
, ,

Identify Concurrent Programs attached to Request Groups

SELECT fcpt.user_concurrent_program_name, fcpt.concurrent_program_id,
       frg.request_group_name
  FROM apps.fnd_concurrent_programs_tl fcpt,
       apps.fnd_request_group_units frgu,
       apps.fnd_request_groups frg
 WHERE frgu.request_unit_type = ‘P’           –Program
   AND frgu.request_unit_id = fcpt.concurrent_program_id
   AND frgu.request_group_id = frg.request_group_id
   AND upper(fcpt.user_concurrent_program_name) LIKE upper(‘CONCURRENT_PROGRAM_NAME%’);
/by
, ,

API – Assign Inventory Items to Warehouse

l_api_version   NUMBER := 1.0;
l_init_msg_list VARCHAR2(2) := FND_API.G_TRUE;
l_commit        VARCHAR2(2) := FND_API.G_FALSE;  
SELECT inventory_item_id,
        segment1,
        primary_uom_code
 FROM   mtl_system_items_b
 WHERE  segment1 = v_segment1;  -- INVENTORY ITEM CODE
 
EGO_ITEM_PUB.ASSIGN_ITEM_TO_ORG( 
   P_API_VERSION       =>  l_api_version
,  P_INIT_MSG_LIST     =>  l_INIT_MSG_LIST
,  P_COMMIT            =>  l_COMMIT
,  P_INVENTORY_ITEM_ID =>  itm.inventory_item_id --(item id from the above Query)            
,  P_ITEM_NUMBER       =>  itm.segment1          --(Item Code from the above Query)
,  P_ORGANIZATION_ID   =>  v_organization_id     --(Organization Id for assingment)
,  P_ORGANIZATION_CODE =>  NULL--v_organization_code 
,  P_PRIMARY_UOM_CODE  =>  itm.primary_uom_code  --(UOM from the above Query)
,  X_RETURN_STATUS     =>  X_RETURN_STATUS
,  X_MSG_COUNT         =>  X_MSG_COUNT
 ); 
 
  
/by