Numeric or value error in Package AR_RECEIPT_API_PUB Procedure Create_cash

Question

Hi Everyone,
I wonder if you can help me as I 'm not sure what I'm missing. I'm trying to create a receipt using the API and getting the error ont the subject. Please see my script below:
Thanking you in advance for your assistance.
DECLARE
    p_api_version       NUMBER;
    p_init_msg_list     VARCHAR2(240);
    p_receipt_number    VARCHAR2(30);
    p_amount            NUMBER;
    p_receipt_method_id NUMBER;
    p_customer_number   VARCHAR2(50);   
    p_cr_id             NUMBER(15);
    x_return_status     VARCHAR2(1);
    x_msg_count         NUMBER;
    x_msg_data          VARCHAR2(240);
    l_cash_receipt_id   NUMBER;
    p_currency_code     VARCHAR2(3);
    p_receipt_date      DATE;
    p_gl_date           DATE;
    p_remittance_bank_account_id NUMBER;
BEGIN
    p_api_version       := 1.0;
    p_init_msg_list     := FND_API.G_TRUE;
    p_receipt_number    := 'NIG001';
    p_amount            := 1000;
    p_receipt_method_id := 1003;
    p_customer_number   := '162617';
    p_cr_id             := p_cr_id;
    x_return_status     := x_return_status;
    x_msg_count         := x_msg_count;
    x_msg_data          := x_msg_data;
    p_currency_code     := 'NGN';
    p_receipt_date      := SYSDATE+45;
    p_gl_date           := SYSDATE+45;
    p_remittance_bank_account_id := 10334;
   fnd_global.apps_initialize(1844,51600,222);
    Ar_receipt_api_pub.Create_cash(
                                    p_api_version       => 1.0,
                                    p_init_msg_list     => FND_API.G_TRUE,
                                    p_receipt_number    => p_receipt_number,   
                                    p_amount            => p_amount,           
                                    p_receipt_method_id => p_receipt_method_id,
                                    p_customer_number   => p_customer_number,    
                                    p_currency_code     => p_currency_code,
                                    p_receipt_date      => p_receipt_date,
                                    p_gl_date           => p_gl_date,
                                    p_cr_id             => p_cr_id,
                                    x_return_status     => x_return_status,
                                    x_msg_count         => x_msg_count,
                                    x_msg_data          => x_msg_data);
IF (x_return_status = 'S') THEN
   COMMIT;
        dbms_output.put_line('SUCCESS');
        dbms_output.put_line('Return Status            = '|| SUBSTR (x_return_status,1,255));
        dbms_output.put_line('Message Count            = '||x_msg_count);
        dbms_output.put_line('Message Data             = '||x_msg_data);
        dbms_output.put_line('p_cr_id                  = '||p_cr_id);
ELSE    
   ROLLBACK;
       dbms_output.put_line('Return Status    = '|| SUBSTR (x_return_status,1,255));
       dbms_output.put_line('Message Count    = '|| TO_CHAR(x_msg_count ));
       dbms_output.put_line('Message Data     = '|| SUBSTR (x_msg_data,1,255));
       dbms_output.put_line(APPS.FND_MSG_PUB.Get ( p_msg_index    => APPS.FND_MSG_PUB.G_LAST, p_encoded      => APPS.FND_API.G_FALSE));
   IF x_msg_count >=0 THEN
      FOR I IN 1..10 LOOP
               dbms_output.put_line(I||'. '|| SUBSTR (FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ), 1, 255));
      END LOOP;
   END IF;
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Exception :'||sqlerrm);
END;

Answer 1

First of all: stop swallowing errors!
Remove this part:
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Exception :'||sqlerrm);and read:
http://asktom.oracle.com/pls/asktom/f?p=100:11:0::::P11_QUESTION_ID:1270688200346183091
Second: You're better off in the {forum:id=475} Forum.