IS-H cl_ish_patient_provisional=>create Thema ist als GELÖST markiert

Code: Alles auswählen.

  
DATA:
LD_IS_DATA TYPE RNPAP_ATTRIB ,
LD_IT_CONNECTED_OBJECTS TYPE ISH_OBJECTLIST ,
LD_I_ENVIRONMENT TYPE REF TO CL_ISH_ENVIRONMENT ,
LD_E_INSTANCE TYPE REF TO CL_ISH_PATIENT_PROVISIONAL ,
LD_E_INTERFACE TYPE REF TO IF_ISH_OBJECTBASE.

DATA: L_RC             TYPE ISH_METHOD_RC,
        L_PROVISIONAL    TYPE RNPAP_KEY.
DATA:  LR_ERRORHANDLER  TYPE REF TO CL_ISHMED_ERRORHANDLING.
DATA:  LO_SYS_EXCEPTION TYPE REF TO CX_AI_SYSTEM_FAULT,
         LO_APP_EXCEPTION TYPE REF TO CX_AI_APPLICATION_FAULT.

LD_IS_DATA-VNAME = 'vname_1'.
LD_IS_DATA-NNAME = 'nnmae_1'.
LD_IS_DATA-GBDAT = '01.01.1999'.

CALL METHOD CL_ISH_FAC_ENVIRONMENT=>CREATE
  EXPORTING
    I_PROGRAM_NAME = SY-REPID
  IMPORTING
    E_INSTANCE     = LD_I_ENVIRONMENT
    E_RC           = L_RC.

IF L_RC NE 0.

*      p_okcode = 'TEST'.

  EXIT.

ENDIF.

TRY.
    CALL METHOD CL_ISH_PATIENT_PROVISIONAL=>CREATE
      EXPORTING
        IS_DATA             = LD_IS_DATA
        I_ENVIRONMENT       = LD_I_ENVIRONMENT
      IMPORTING
        E_INSTANCE          = LD_E_INSTANCE
      EXCEPTIONS
        MISSING_ENVIRONMENT = 1
        NO_AUTHORITY        = 2
        OTHERS              = 3.

*----
  CATCH CX_AI_SYSTEM_FAULT      INTO LO_SYS_EXCEPTION.
  CATCH CX_AI_APPLICATION_FAULT INTO LO_APP_EXCEPTION.

ENDTRY.

TRY.
    CALL METHOD LD_E_INSTANCE->SAVE
      CHANGING
        C_ERRORHANDLER = LR_ERRORHANDLER.

  CATCH CX_AI_SYSTEM_FAULT      INTO LO_SYS_EXCEPTION.
  CATCH CX_AI_APPLICATION_FAULT INTO LO_APP_EXCEPTION.

    COMMIT WORK AND WAIT.

ENDTRY.

TRY.

    CALL METHOD LD_E_INSTANCE->GET_DATA
      IMPORTING
        ES_KEY = L_PROVISIONAL.

  CATCH CX_AI_SYSTEM_FAULT      INTO LO_SYS_EXCEPTION.
  CATCH CX_AI_APPLICATION_FAULT INTO LO_APP_EXCEPTION.

ENDTRY.


CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.