-- Start of DDL Script for Procedure APPS.CITE_CREATE_CUSTOMER_API
-- Generated 9-مايو-2012 16:29:43 from APPS@nuqul_Jordan_test

CREATE OR REPLACE 
PROCEDURE cite_create_customer_api is


    p_cust_account_rec      HZ_CUST_ACCOUNT_V2PUB.CUST_ACCOUNT_REC_TYPE;
    p_person_rec            HZ_PARTY_V2PUB.PERSON_REC_TYPE;
    p_customer_profile_rec  HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE;

    p_party_site_rec        HZ_PARTY_SITE_V2PUB.party_site_rec_type;
    p_cust_site_use_rec     HZ_CUST_ACCOUNT_SITE_V2PUB.cust_site_use_rec_type;
    x_cust_account_id       NUMBER;
    x_account_number        VARCHAR2(2000);
    x_party_id              NUMBER;
    x_party_number          VARCHAR2(2000);
    x_profile_id            NUMBER;
    x_return_status         VARCHAR2(2000);
    x_msg_count             NUMBER;
    x_msg_data              VARCHAR2(2000);


    --========== address ==================
    p_location_rec          HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
    x_location_id           NUMBER;

    x_party_site_id         number;
    x_party_site_number     number;


BEGIN
    mo_global.init('AR');

    fnd_global.apps_initialize ( user_id      => 1170
                                ,resp_id      => 51432
                                ,resp_appl_id => 222);
    mo_global.set_policy_context('S',161);

    Fnd_client_info.set_org_context('161');
    p_cust_account_rec.account_name := 'Hany11';
    p_cust_account_rec.created_by_module := 'HZ_CPUI';
    p_person_rec.person_first_name := 'Nuqul 11';
    --p_person_rec.person_last_name := 'Nuqul 12';
    hz_cust_account_v2pub.create_cust_account(
                                              p_init_msg_list         => 'T'
                                             ,p_cust_account_rec      => p_cust_account_rec
                                             ,p_person_rec            => p_person_rec
                                             ,p_customer_profile_rec  => p_customer_profile_rec
                                             ,p_create_profile_amt    => 'F'
                                             ,x_cust_account_id       => x_cust_account_id
                                             ,x_account_number        => x_account_number
                                             ,x_party_id              => x_party_id
                                             ,x_party_number          => x_party_number
                                             ,x_profile_id            => x_profile_id
                                             ,x_return_status         => x_return_status
                                             ,x_msg_count             => x_msg_count
                                             ,x_msg_data              => x_msg_data);



    dbms_output.put_line('x_return_status = '|| SUBSTR (x_return_status,1,255));
    dbms_output.put_line('x_msg_count = '||TO_CHAR(x_msg_count));
    dbms_output.put_line('Party Id = '||TO_CHAR(x_party_id));
    dbms_output.put_line('Party Number = '||x_party_number);
    dbms_output.put_line('Account Number = '||x_account_number);
    dbms_output.put_line('Profile Id = '||TO_CHAR(x_profile_id));
    dbms_output.put_line('x_msg_data = '|| SUBSTR (x_msg_data,1,255));
    IF x_msg_count >1 THEN
        FOR I IN 1..x_msg_count LOOP
            dbms_output.put_line(I||'. '|| SUBSTR (FND_MSG_PUB.Get(p_encoded =>
            FND_API.G_FALSE ), 1, 255));
        END LOOP;
    END IF;

    --================= create address ============

    p_location_rec.country := 'EG';
    p_location_rec.address1 := 'street name11';
    p_location_rec.address2 := '11';
    p_location_rec.city :='CAR';
    p_location_rec.postal_code := '11';
    p_location_rec.state :='QAH';
    p_location_rec.address_style:='EG';
    p_location_rec.application_id:=222;
    p_location_rec.created_by_module := 'HZ_CPUI';
    hz_location_v2pub.create_location(
                                      p_init_msg_list   => 'T'
                                     ,p_location_rec    => p_location_rec
                                     ,x_location_id     => x_location_id
                                     ,x_return_status   => x_return_status
                                     ,x_msg_count       => x_msg_count
                                     ,x_msg_data        => x_msg_data);

    dbms_output.put_line('address x_return_status = '|| SUBSTR (x_return_status,1,255));
    dbms_output.put_line('address x_msg_count = '||TO_CHAR(x_msg_count));
    dbms_output.put_line('address location id = '||x_location_id);

    dbms_output.put_line('address x_msg_data = '|| SUBSTR (x_msg_data,1,255));
    IF x_msg_count >1 THEN
        FOR I IN 1..x_msg_count LOOP
            dbms_output.put_line(I||'. '|| SUBSTR (FND_MSG_PUB.Get(p_encoded =>
            FND_API.G_FALSE ), 1, 255));
        END LOOP;
    END IF;

    -- Populate p_party_site_rec
    p_party_site_rec.party_id := x_party_id;
    p_party_site_rec.location_id := x_location_id;
    p_party_site_rec.created_by_module := 'HZ_CPUI';

    -- Create party site
    HZ_PARTY_SITE_V2PUB.create_party_site ( p_init_msg_list     => fnd_api.g_false
                                           ,p_party_site_rec    => p_party_site_rec
                                           ,x_party_site_id     => x_party_site_id
                                           ,x_party_site_number => x_party_site_number
                                           ,x_return_status     => x_return_status
                                           ,x_msg_count         => x_msg_count
                                           ,x_msg_data          => x_msg_data );


    -- Print log to buffer.
    dbms_output.put_line('x_party_site_number: ' || x_party_site_number);
    dbms_output.put_line('x_return_status: ' || x_return_status);
    dbms_output.put_line('x_msg_count: ' || x_msg_count);
    dbms_output.put_line('x_msg_data: ' || x_msg_data);

    if x_msg_count >1 then
      for i in 1..x_msg_count
    loop
      dbms_output.put_line(i||'. '||substr(fnd_msg_pub.get(p_encoded => fnd_api.g_false ), 1, 255));
    end loop;
    end if;

END;
/



-- End of DDL Script for Procedure APPS.CITE_CREATE_CUSTOMER_API