Credit Memo API AR_CREDIT_MEMO_API_PUB.CREATE_REQUEST end with error,

Question

Hey Guys,
I have to create credit memo for invoice but the api API AR_CREDIT_MEMO_API_PUB.CREATE_REQUEST end with the following error.
Error Calling arp_process_header.post_commit ORA-20001:
Failure encountered in AR_CREDIT_MEMO_API_PUB.Create_request call to arw_cmreq_cover.ar_request_cm
My environment detail are following
Database : Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bi
Application : 12.0.6
Patch Level - R12.AR.A.6
Kindly help me its urgent bases
Regards
Mazhar Hussain

Answer 1

The code is following
CREATE OR REPLACE PACKAGE BODY DMAPAR03_PVT AS
NAME: DMAPAR03_PVT
PURPOSE: CREATING CREDIT MEMO FOR INVOICES
REVISIONS:
Ver Date Author Description
1.0 29-Dec-2011 MAZHAR HUSSAIN 1. Created this package.
PROCEDURE CREATE_CM(
ERRBUF OUT VARCHAR2,
RETCODE OUT VARCHAR2,
P_ORG_ID IN NUMBER,
P_TRX_TYPE IN NUMBER,
P_TRX_NUM_FR IN VARCHAR2,
P_TRX_NUM_TO IN VARCHAR2
IS
V_TRX_DATE DATE := '31-AUG-2011';
CURSOR C_TRX
IS
SELECT TRX.TRX_NUMBER, TRX.CUSTOMER_TRX_ID, RS.CREDIT_MEMO_BATCH_SOURCE_ID CM_SOURCE,
NVL (SUM (TL.EXTENDED_AMOUNT), 0) LINE_AMT,
(SELECT NVL (SUM (L.EXTENDED_AMOUNT), 0)
FROM RA_CUSTOMER_TRX_LINES_ALL L
WHERE L.CUSTOMER_TRX_ID = TRX.CUSTOMER_TRX_ID
AND L.LINE_TYPE = 'TAX') TAX_AMT, RS.NAME SOURCE_NAME,
RS.DEFAULT_INV_TRX_TYPE DEF_TRX_TYPE, TYP.NAME TRX_TYPE_NAME,
RS.BATCH_SOURCE_ID, TYP.CREDIT_MEMO_TYPE_ID
FROM RA_CUSTOMER_TRX_ALL TRX,
RA_CUSTOMER_TRX_LINES_ALL TL,
RA_CUST_TRX_TYPES_ALL TYP,
RA_BATCH_SOURCES_ALL RS
WHERE 1 = 1
AND TRX.TRX_NUMBER BETWEEN NVL (P_TRX_NUM_FR, TRX.TRX_NUMBER)
AND NVL (P_TRX_NUM_TO, TRX.TRX_NUMBER)
AND TRX.CUSTOMER_TRX_ID = TL.CUSTOMER_TRX_ID
AND RS.BATCH_SOURCE_ID = TRX.BATCH_SOURCE_ID
AND TYP.CUST_TRX_TYPE_ID = TRX.CUST_TRX_TYPE_ID
AND TYP.TYPE != 'CM'
AND TYP.CUST_TRX_TYPE_ID = P_TRX_TYPE
AND TRX.TRX_DATE <= V_TRX_DATE
AND TL.LINE_TYPE = 'LINE'
AND TRX.ORG_ID = P_ORG_ID
AND NVL (TRX.ATTRIBUTE7, 'N') != 'Y' --PREVENT DUPLICATE IMPORT
AND TRX.ATTRIBUTE2 IS NOT NULL ------ MIGRATION REP
GROUP BY TRX.TRX_NUMBER, TRX.CUSTOMER_TRX_ID, RS.NAME, TYP.NAME,
RS.DEFAULT_INV_TRX_TYPE, RS.CREDIT_MEMO_BATCH_SOURCE_ID,
RS.BATCH_SOURCE_ID, TYP.CREDIT_MEMO_TYPE_ID
ORDER BY 1 ;
V_MSG_COUNT NUMBER;
V_MSG_DATA VARCHAR2 (2000);
V_RETURN_STATUS VARCHAR2 (1);
V_REQUEST_ID NUMBER;
V_CM_REASON VARCHAR2(100) := 'A/R ERROR';
V_DUMMY VARCHAR2(240);
V_CM_TRX_NUM RA_CUSTOMER_TRX_ALL.TRX_NUMBER%TYPE;
V_CM_TRX_ID RA_CUSTOMER_TRX_ALL.CUSTOMER_TRX_ID%TYPE;
V_TRX_SOURCE VARCHAR2(100);
V_ORG_NAME VARCHAR2(100);
BEGIN
-- DBMS_SUPPORT.START_TRACE;
BEGIN
SELECT NAME INTO V_ORG_NAME
FROM HR_OPERATING_UNITS
WHERE ORGANIZATION_ID = P_ORG_ID;
END;
IF UPPER(V_ORG_NAME) LIKE 'CN003 (OU)'
THEN
V_TRX_SOURCE := 'CN003_CM_MIGRATION';
ELSE
V_TRX_SOURCE := 'CN001_CM_MIGRATION';
END IF;
FND_GLOBAL.APPS_INITIALIZE
(USER_ID => FND_PROFILE.VALUE('USER_ID'),
RESP_ID => FND_PROFILE.VALUE('RESP_ID'),
RESP_APPL_ID => FND_PROFILE.VALUE('RESP_APPL_ID'),
SECURITY_GROUP_ID => 0
MO_GLOBAL.SET_POLICY_CONTEXT ('S', P_ORG_ID);
ARP_GLOBAL.INIT_GLOBAL;
FOR C_TRX_ROW IN C_TRX
LOOP
/*F P_TRX_TYPE <> NVL(C_TRX_ROW.DEF_TRX_TYPE, -1)
THEN
FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Default Transaction Type Not Defined
or Not Match with Invoice Transaction Type on Transaction Source: '
||C_TRX_ROW.SOURCE_NAME);
EXIT;
ELSIF
*/ IF C_TRX_ROW.BATCH_SOURCE_ID <> NVL(C_TRX_ROW.CM_SOURCE, -1)
THEN
FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Credit Memo Batch Source Not Defined
or Not Match with Invoice Transaction Source on Transaction Source: '
||C_TRX_ROW.SOURCE_NAME);
EXIT;
ELSIF C_TRX_ROW.CREDIT_MEMO_TYPE_ID IS NULL
THEN
FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Credit Memo Transaction Type not Assigned on
Invoice Transaction Type : '||C_TRX_ROW.TRX_TYPE_NAME);
EXIT;
ELSE
BEGIN
AR_CREDIT_MEMO_API_PUB.CREATE_REQUEST
(P_API_VERSION => 1.0,
P_INIT_MSG_LIST => FND_API.G_TRUE,
P_COMMIT => FND_API.G_FALSE,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_CUSTOMER_TRX_ID => C_TRX_ROW.CUSTOMER_TRX_ID,
P_LINE_CREDIT_FLAG => 'N',
P_LINE_AMOUNT => -C_TRX_ROW.LINE_AMT,
P_TAX_AMOUNT => -C_TRX_ROW.TAX_AMT,
P_CM_REASON_CODE => V_CM_REASON,
P_SKIP_WORKFLOW_FLAG => 'Y',
P_CREDIT_METHOD_INSTALLMENTS => NULL,
P_CREDIT_METHOD_RULES => NULL,
-- P_BATCH_SOURCE_NAME => C_TRX_ROW.SOURCE_NAME,
P_BATCH_SOURCE_NAME => V_TRX_SOURCE,
P_ORG_ID => P_ORG_ID,
P_DISPUTE_DATE => V_TRX_DATE,
-- P_TRX_NUMBER => 'CM-'||C_TRX_ROW.TRX_NUMBER,
X_REQUEST_ID => V_REQUEST_ID,
X_RETURN_STATUS => V_RETURN_STATUS,
X_MSG_COUNT => V_MSG_COUNT,
X_MSG_DATA => V_MSG_DATA
FND_MSG_PUB.COUNT_AND_GET (P_ENCODED => FND_API.G_FALSE,
P_COUNT => V_MSG_COUNT,
P_DATA => V_MSG_DATA
DBMS_OUTPUT.PUT_LINE ('Return Status ==> ' || V_RETURN_STATUS);
DBMS_OUTPUT.PUT_LINE ('Credit Memo request_id ==> ' || V_REQUEST_ID);
DBMS_OUTPUT.PUT_LINE ('V_msg_count ==> ' || V_MSG_COUNT);
-- FND_MESSAGE.RETRIEVE (V_DUMMY);
DBMS_OUTPUT.PUT_LINE('Error in Create Credit Transaction:'
|| SUBSTR (SQLERRM, 1, 80)||' -- '||V_DUMMY
-- FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Return Status ==> ' || V_RETURN_STATUS);
-- FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Credit Memo request_id ==> ' || V_REQUEST_ID);
-- FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'V_msg_count ==> ' || V_MSG_COUNT);
IF V_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS
THEN
IF V_REQUEST_ID IS NOT NULL
THEN SHOW CM TRX NUMBER
BEGIN
SAVEPOINT NO_DATA;
SELECT TRX.TRX_NUMBER, TRX.CUSTOMER_TRX_ID
INTO V_CM_TRX_NUM, V_CM_TRX_ID
FROM RA_CM_REQUESTS R, RA_CUSTOMER_TRX_ALL TRX
WHERE R.REQUEST_ID = V_REQUEST_ID
AND R.CM_CUSTOMER_TRX_ID = TRX.CUSTOMER_TRX_ID
AND R.CUSTOMER_TRX_ID = C_TRX_ROW.CUSTOMER_TRX_ID;
FND_FILE.PUT_LINE (FND_FILE.OUTPUT, V_RETURN_STATUS|| ' - AR invoice: '
|| C_TRX_ROW.TRX_NUMBER
|| ' | Generated Credit Transaction Number: '
|| V_CM_TRX_NUM||' | Success: '||V_MSG_DATA);
DBMS_OUTPUT.PUT_LINE ( 'AR invoice: '
|| C_TRX_ROW.TRX_NUMBER
|| ' | Generated Credit Transaction Number: '
|| V_CM_TRX_NUM||' | Success: '||V_MSG_DATA);
---REMARKED THE AR INVOICE WAS GENERATED CM--
UPDATE RA_CUSTOMER_TRX_ALL TRX
SET TRX.ATTRIBUTE7 = 'Y',
TRX.ATTRIBUTE8 = V_CM_TRX_ID,
TRX.ATTRIBUTE9 = V_CM_TRX_NUM,
TRX.ATTRIBUTE10 = V_REQUEST_ID,
TRX.INTERFACE_HEADER_ATTRIBUTE12 = NULL
WHERE 1 = 1
AND TRX.ORG_ID = P_ORG_ID
AND TRX.CUSTOMER_TRX_ID = C_TRX_ROW.CUSTOMER_TRX_ID;
UPDATE RA_CUSTOMER_TRX_ALL TRX
SET TRX.TRX_DATE = V_TRX_DATE
WHERE 1 = 1
AND TRX.ORG_ID = P_ORG_ID
AND TRX.CUSTOMER_TRX_ID = V_CM_TRX_ID;
UPDATE RA_CUSTOMER_TRX_LINES_ALL RCTL2
SET RCTL2.INTERFACE_LINE_ATTRIBUTE12 = NULL
WHERE RCTL2.CUSTOMER_TRX_ID = C_TRX_ROW.CUSTOMER_TRX_ID
AND RCTL2.ORG_ID = P_ORG_ID
AND RCTL2.LINE_TYPE = 'LINE'
AND RCTL2.INTERFACE_LINE_ATTRIBUTE12 IS NOT NULL;
COMMIT;
EXCEPTION WHEN NO_DATA_FOUND
THEN
FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'AR invoice: '
|| C_TRX_ROW.TRX_NUMBER
|| ' | Generated Credit Transaction Number not found. '
DBMS_OUTPUT.PUT_LINE ( 'AR invoice: '
|| C_TRX_ROW.TRX_NUMBER
|| ' | Generated Credit Transaction Number not found. '
ROLLBACK TO NO_DATA;
---REMARKED THE AR INVOICE WAS GENERATED CM--
END;
END IF;
END IF;
IF V_RETURN_STATUS = FND_API.G_RET_STS_UNEXP_ERROR
OR V_RETURN_STATUS = FND_API.G_RET_STS_ERROR
THEN
FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Invoice Number: '||C_TRX_ROW.TRX_NUMBER||
' | Error:' || V_MSG_DATA );
DBMS_OUTPUT.PUT_LINE ('Error:' || V_MSG_DATA
||' | For Invoice Number: '||C_TRX_ROW.TRX_NUMBER);
END IF;
IF V_MSG_COUNT > 1
THEN
V_MSG_COUNT := 0;
LOOP
V_MSG_DATA :=
FND_MSG_PUB.GET (FND_MSG_PUB.G_NEXT, FND_API.G_FALSE);
IF V_MSG_DATA IS NULL
THEN
EXIT;
END IF;
FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'msg_data:' || V_MSG_DATA);
DBMS_OUTPUT.PUT_LINE ( 'msg_data:' || V_MSG_DATA);
END LOOP;
END IF;
EXCEPTION
WHEN OTHERS
THEN
FND_MESSAGE.RETRIEVE (V_DUMMY);
FND_FILE.PUT_LINE (FND_FILE.OUTPUT,
'Error in Create Credit Transaction:'
|| SUBSTR (SQLERRM, 1, 80)||' -- '||V_DUMMY
DBMS_OUTPUT.PUT_LINE('Error in Create Credit Transaction:'
|| SUBSTR (SQLERRM, 1, 80)||' -- '||V_DUMMY
END;
END IF;
END LOOP;
END CREATE_CM;
END DMAPAR03_PVT;
/