Oracle EBS AP 创建贷项通知单并核销到相应发票

--1.0 生成与发票一样的贷项通知单 created by jenrry 20170423
DECLARE 
  L_CUSTOMER_TRX_ID      NUMBER;
  L_INVOICE_NUMBER       VARCHAR2(30);
  
  L_BATCH_SOURCE_REC     AR_INVOICE_API_PUB.BATCH_SOURCE_REC_TYPE;
  L_TRX_HEADER_TBL       AR_INVOICE_API_PUB.TRX_HEADER_TBL_TYPE;
  L_TRX_LINES_TBL        AR_INVOICE_API_PUB.TRX_LINE_TBL_TYPE;
  L_TRX_DIST_TBL         AR_INVOICE_API_PUB.TRX_DIST_TBL_TYPE;
  L_TRX_SALESCREDITS_TBL AR_INVOICE_API_PUB.TRX_SALESCREDITS_TBL_TYPE;

  L_RETURN_STATUS    VARCHAR2(100);
  L_MSG_COUNT        NUMBER;
  L_MSG_DATA         VARCHAR2(2000);
  
  I                  NUMBER;
  L_MESSAGE_LIST     VARCHAR2(1000);
  L_MSG_INDEX_OUT    NUMBER;
BEGIN
  FND_GLOBAL.APPS_INITIALIZE(USER_ID      => 1111,
                             RESP_ID      => 50737,
                             RESP_APPL_ID => 20005);
  mo_global.init('AR');
  SELECT ra_customer_trx_s.nextval INTO I FROM DUAL;
  
  mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 142);
  L_BATCH_SOURCE_REC.BATCH_SOURCE_ID      := 1001; --事务处理来源ID 
  L_TRX_HEADER_TBL(1).TRX_HEADER_ID       := I;
  L_TRX_HEADER_TBL(1).TRX_DATE            := fnd_conc_date.string_to_date('2017-03-31');
  L_TRX_HEADER_TBL(1).GL_DATE             := fnd_conc_date.string_to_date('2017-03-31