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

BW, SRM, Berechtigung etc.
3 Beiträge • Seite 1 von 1
3 Beiträge Seite 1 von 1

IS-H cl_ish_patient_provisional=>create

Beitrag von stony007_de (ForumUser / 92 / 5 / 0 ) »
Mal wieder eine schwerwiegende Frage zum Klinischen System.
Ich möchte vorläufige Patientendaten anlegen. Irgendwie will er aber nicht

Aktuell sieht mein Code wie folgt aus:

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'. 

Ideen?


Re: IS-H cl_ish_patient_provisional=>create

Beitrag von ewx (Top Expert / 4398 / 220 / 488 ) »

Code: Alles auswählen.

LD_IS_DATA-GBDAT = '19990101'.
?!

Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
stony007_de


Re: IS-H cl_ish_patient_provisional=>create

Beitrag von stony007_de (ForumUser / 92 / 5 / 0 ) »
und mal wieder

*klatsch vor'n Kopp*

Danke... :up:

Seite 1 von 1

Über diesen Beitrag


ABAP & SAP eBook Flatrate von Espresso Tutorials Sponsorlink
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Zukunft ABAP?
Gestern von deejey 2 / 87
DB-Update setzt kein Subrc
vor 3 Tagen von ewx gelöst 6 / 95

Vergleichbare Themen

Create Data
von asano » 11.08.2004 16:54
customer create
von Gast » 24.02.2005 08:28
Employee Create BAPI
von shilpak » 21.02.2005 14:25
BAPI for Vendor Create
von sonair » 01.03.2005 08:48
create objects problem
von Thanatos82 » 18.09.2012 10:52