ICL_BOR_ICLPAY SAP ABAP Report - Program for Object Category ICLPAY: Claim Payments

ICL_BOR_ICLPAY is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter ICL_BOR_ICLPAY into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

SUBMIT ICL_BOR_ICLPAY. "Basic submit
SUBMIT ICL_BOR_ICLPAY AND RETURN. "Return to original report after report execution complete
SUBMIT ICL_BOR_ICLPAY VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT ICL_BOR_ICLPAY

No INCLUDES are used within this REPORT code!

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

ICLF_ICL_PAY_CLAIM_GET3
  CALL FUNCTION 'ICLF_ICL_PAY_CLAIM_GET3'
    EXPORTING
      I_CLAIM = object-key-claimnumber
      I_SUBCL = object-key-subclaim
      I_PAYMENT = object-key-paymentnumber
    EXCEPTIONS
      not_found = 4.

ICLC_AUTH_CHECK_PAYMENT_ON_OFF
  CALL FUNCTION 'ICLC_AUTH_CHECK_PAYMENT_ON_OFF'
    EXPORTING
      I_NO_AUTHORITY_CHECK       = LV_X
      I_MEMORY                   = 'X'
            .

ICL_PAYMENT_APPROVE
  CALL FUNCTION 'ICL_PAYMENT_APPROVE'
    EXPORTING
      I_CLAIM = object-key-claimnumber
      I_SUBCLAIM = object-key-subclaim
      I_PAYMENT = object-key-paymentnumber
    IMPORTING
      E_RC = lv_RC
    EXCEPTIONS
      OTHERS = 4.

ICLC_AUTH_CHECK_PAYMENT_ON_OFF
  CALL FUNCTION 'ICLC_AUTH_CHECK_PAYMENT_ON_OFF'
       EXPORTING
         I_NO_AUTHORITY_CHECK       = space
         I_MEMORY                   = 'X'
                .

ICLF_ICL_PAY_CLAIM_GET3
  CALL FUNCTION 'ICLF_ICL_PAY_CLAIM_GET3'
  EXPORTING
    I_CLAIM         = object-key-claimnumber
    I_SUBCL         = object-key-subclaim
    I_PAYMENT       = object-key-paymentnumber
  IMPORTING
    E_ICLPAY        = ICLPAY
  EXCEPTIONS
    NOT_FOUND       = 1
    OTHERS          = 2
          .

DEQUEUE_E_ICLSUBCL
   call function 'DEQUEUE_E_ICLSUBCL'
   exporting
     claim               = i_claim
     subclaim            = i_subclaim.

ICLC_PAYMENT_EVENT_ON_OFF
 CALL FUNCTION 'ICLC_PAYMENT_EVENT_ON_OFF'
   EXPORTING
     I_NO_EVENTS_PAYMENT       = 'X'
     I_MEMORY                  = 'X'.

ICL_PAYMENT_STATUS_SET
 CALL FUNCTION 'ICL_PAYMENT_STATUS_SET'
   EXPORTING
     I_CLAIM          = object-key-claimnumber
     I_SUBCLAIM       = object-key-subclaim
     I_PAYMENT        = object-key-paymentnumber
     I_STATUS_NEW     = I_status
   EXCEPTIONS
     NO_UPDATE        = 4
     OTHERS           = 4.

BAPI_MESSAGE_GETDETAIL
    CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
      EXPORTING
        ID                = lv_msgid
        NUMBER            = lv_msgno
        TEXTFORMAT        = 'SCR'
        MESSAGE_V1        = lv_msgv1
        MESSAGE_V2        = lv_msgv2
        MESSAGE_V3        = lv_msgv3
        MESSAGE_V4        = lv_msgv4
      IMPORTING
        MESSAGE           = lv_msg.

ICLC_PAYMENT_EVENT_ON_OFF
  CALL FUNCTION 'ICLC_PAYMENT_EVENT_ON_OFF'
    EXPORTING
      I_NO_EVENTS_PAYMENT       = ' '
      I_MEMORY                  = 'X'.

ICLF_ICL_AUTHORITY_PAYMENT_DB
CALL FUNCTION 'ICLF_ICL_AUTHORITY_PAYMENT_DB'
  EXPORTING
    I_ACTIVITY         = lc_activity
    I_CLAIM            = object-key-claimnumber
    I_USER             = lv_user
    I_PAYMENT          = object-key-paymentnumber
    I_SUBCLAIM         = object-key-subclaim
 EXCEPTIONS
    NO_AUTHORITY       = 4
    OTHERS             = 8.

ICL_PAYMENT_EDIT
CALL FUNCTION 'ICL_PAYMENT_EDIT'
  EXPORTING
    I_CLAIM          = object-key-claimnumber
    I_SUBCLAIM       = object-key-subclaim
    I_PAYMENT        = object-key-paymentnumber
 IMPORTING
    E_RC             = lv_rc
  EXCEPTIONS
    CANCELLED        = 1
    OTHERS           = 2
          .

ICL_ICLCLAIM_SELECT
  CALL FUNCTION 'ICL_ICLCLAIM_SELECT'
    EXPORTING
     I_CLAIM          = object-key-claimnumber
    IMPORTING
     E_ICLCLAIM       = ICLCLAIM
    EXCEPTIONS
     NONE_FOUND       = 1
     OTHERS           = 2.

ICL_ENTIRE_PAYMENT_FROM_DB_GET
  call function 'ICL_ENTIRE_PAYMENT_FROM_DB_GET'
    exporting
      iv_claim            = object-key-claimnumber
      iv_subclaim         = object-key-subclaim
      iv_payment          = object-key-paymentnumber
    importing
      es_iclpay           = ls_iclpay
    EXCEPTIONS
      NOT_FOUND           = 1
      OTHERS              = 2.

ICL_RECOVERY_EDIT
  CALL FUNCTION 'ICL_RECOVERY_EDIT'
    EXPORTING
      I_CLAIM = object-key-claimnumber
      I_SUBCLAIM = object-key-subclaim
      I_PAYMENT = object-key-PAYMENTnumber
      I_PAYCAT = ls_ICLPAY-paycat
*    IMPORTING
*      E_RC = ERC
    EXCEPTIONS
      CANCELLED = 1001
      OTHERS = 01.

ICL_NEWPAYMENT_EDIT
  CALL FUNCTION 'ICL_NEWPAYMENT_EDIT'
    EXPORTING
      I_CLAIM = object-key-claimnumber
      I_SUBCLAIM = object-key-SUBCLAIM
      I_PAYMENT = object-key-PAYMENTnumber
    IMPORTING
      E_RC = lv_rc
    EXCEPTIONS
      CANCELLED = 1001
      OTHERS = 01.

ICL_ENTIRE_PAYMENT_FROM_DB_GET
  CALL FUNCTION 'ICL_ENTIRE_PAYMENT_FROM_DB_GET'
    EXPORTING
      IV_CLAIM            = object-key-claimnumber
      IV_SUBCLAIM         = object-key-subclaim
      IV_PAYMENT          = object-key-paymentnumber
    IMPORTING
      ES_ICLPAY           = ls_iclpay
    TABLES
      ET_ICLPAYI          = lt_iclpayi
      ET_ICLPAYEE         = lt_iclpayee
    EXCEPTIONS
      NOT_FOUND           = 1
      OTHERS              = 2.

DDUT_DOMVALUES_GET
    CALL FUNCTION 'DDUT_DOMVALUES_GET'
         EXPORTING
              name          = 'ICL_PAYCAT'
         TABLES
              dd07v_tab     = lt_dd07v
         EXCEPTIONS
              illegal_input = 1
              OTHERS        = 2.

ICL_PARTNER_GET














      CALL FUNCTION 'ICL_PARTNER_GET'
        EXPORTING
          I_PARTNER                = LT_ICLPAYEE-BPARTNER
        IMPORTING
          E_DESCRIPTION_NAME       = lv_descrip
        EXCEPTIONS
          NOT_FOUND                = 1
          WRONG_PARAMETERS         = 2
          OTHERS                   = 3.

ICLF_ICL_PAY_AMOUNT_CALCULATE
  CALL FUNCTION 'ICLF_ICL_PAY_AMOUNT_CALCULATE'
    EXPORTING
      IV_PAYCAT         = ls_iclpay-paycat
    IMPORTING
      EV_PAMPAID        = LV_PAMPAID
    TABLES
      IT_PAYI           = LT_ICL_PAYI
    EXCEPTIONS
      ARITH_ERROR       = 1
      OTHERS            = 2.

ICLF_ICL_METHODTXT_GET
* CALL FUNCTION 'ICLF_ICL_METHODTXT_GET'
*   EXPORTING
*     I_METHOD          = LS_ICLPAY-METHOD
*   IMPORTING
*    E_METHODTXT       = lv_methodtxt.