PO RECEIPT USING INTERFACE

DECLARE
l_user_id            NUMBER         :=Fnd_Profile.VALUE('USER_ID');--profile value
l_resp_id            NUMBER         :=fnd_global.resp_id;
l_appl_id            NUMBER         :=fnd_global.resp_appl_id;
l_org_id             NUMBER         :=fnd_global.org_id;
l_login_id           NUMBER         :=Fnd_Profile.VALUE('LOGIN_ID');--profile value
L_RCV_HEADER_ID      NUMBER;
L_RCV_GROUP_ID       NUMBER;
L_RCV_TRANSACTION_ID NUMBER;
l_chr_lot_number VARCHAR2 (50);

BEGIN
fnd_client_info.set_org_context(204);--initializing org_id
fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id,l_login_id);
SELECT RCV_HEADERS_INTERFACE_S.NEXTVAL
       INTO L_RCV_HEADER_ID
FROM DUAL;
SELECT RCV_INTERFACE_GROUPS_S.NEXTVAL
       INTO L_RCV_GROUP_ID
FROM DUAL;  
SELECT rcv_transactions_interface_s.NEXTVAL
INTO L_RCV_TRANSACTION_ID
FROM DUAL;     
DBMS_OUTPUT.PUT_LINE('BEFORE CALLING');
INSERT INTO rcv_headers_interface
            (header_interface_id,
             GROUP_ID,
             processing_status_code,
             receipt_source_code,
             transaction_type,
             auto_transact_code,
             test_flag,
             last_update_date,
             last_updated_by,
             last_update_login,
             creation_date,
             created_by,
             expected_receipt_date,
             comments,
             validation_flag,
             transaction_date,
         
             vendor_id,
             vendor_site_id)
           
    VALUES(L_RCV_HEADER_ID          ,
           L_RCV_GROUP_ID           ,
           'PENDING'                  ,
           'VENDOR'                 ,
            'RECEIVE'               ,
           null                     ,
           null                      ,
          
            SYSDATE                 ,
            l_user_id               ,
            l_login_id              ,
            SYSDATE                 ,
                  
            l_user_id               ,
            null,
           'test'                   ,
           'Y'                      ,
           sysdate                  ,
   
           600,
           1414);
           
           
INSERT INTO RCV_TRANSACTIONS_INTERFACE(
          
            interface_transaction_id,
             header_interface_id,
             processing_status_code,
             transaction_date,
             GROUP_ID,
             last_update_date,
             last_updated_by,
             creation_date,
             created_by,
             last_update_login,
             transaction_type,
                      
             processing_mode_code,
             transaction_status_code,
             quantity,
        
             to_organization_id,
             source_document_code,
             po_header_id,
             po_line_id,
             po_line_location_id,
             po_distribution_id,
             comments)
            
            
      VALUES(L_RCV_TRANSACTION_ID      ,                 
              L_RCV_HEADER_ID          ,
              'PENDING'                ,
              SYSDATE                  ,
              L_RCV_GROUP_ID           ,
              sysdate                  ,
              l_user_id                ,
              SYSDATE                  ,
              l_user_id                ,
              l_login_id               ,
              'RECEIVE'                ,
              'BATCH'                  ,
              'PENDING'                ,
               10                      ,
               204                     ,
               'PO'                    ,
               110350                  ,
               173279                  ,
               264405                  ,
               270871                  ,
               'TEST'          );
     
               

COMMIT;
DBMS_OUTPUT.PUT_LINE('**** EXECUTED SUCCESSFULLY *****');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROE');
DBMS_OUTPUT.PUT_LINE('ERROR'||SQLERRM);
          
END;