ISHmed Klinschen Auftrag anlegen

Die Objektorientierung mit ABAP®: Vererbung, Dynamische Programmierung, GUI Controls (u.a. ALV im OO).
7 Beiträge • Seite 1 von 1
7 Beiträge Seite 1 von 1

ISHmed Klinschen Auftrag anlegen

Beitrag von stony007_de (Specialist / 108 / 6 / 0 ) »
Hi
Ich weiß es ist recht speziell, aber hat schon jemand eine Implementierung eines FUBUs zum anlegen eines klinischen Auftrags realisiert und kann ein paar Infos dazu geben?

Mfg
Stony 007_de

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


Re: ISHmed Klinschen Auftrag anlegen

Beitrag von a-dead-trousers (Top Expert / 4271 / 213 / 1140 ) »
Das gibts schon im Standard:
ISHMED_CALL_ANFO_NEU
Da wird die Auswahlliste für Anforderung / KLAT / Vormerkung wie z.B. in der NWP1 aufgerufen und danach wird das entsprechende Objekt angelegt.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.

ECC: 6.18
Basis: 7.50

Re: ISHmed Klinischen Auftrag anlegen

Beitrag von stony007_de (Specialist / 108 / 6 / 0 ) »
Super, hast du vielleicht ein Demo Coding wie das gefüllt werden will?
p.s.
vielleicht ist es noch wichtig zu wissen, das ich nicht den Dialog zum anlegen eines KLAUS öffnen möchte, sondern direkt via RFC einen Auftrag mit übergebener Leistung anlegen möchte.

Re: ISHmed Klinschen Auftrag anlegen

Beitrag von a-dead-trousers (Top Expert / 4271 / 213 / 1140 ) »
Mist. Sorry.
Hab grad bei der Suche über den Verwendungsnachweis gesehen, dass der Baustein nur die alten Aufträge (N1ANF) abbildet.
Wir haben da offensichtlich (wie du das brauchst) selber einen FuBA (schon vor Jahren) angelegt und ich hab das mit einem "Standardbaustein" verwechselt. :oops:

Laut FUBA ISHMED_CALL_PREREGISTRATION soll für CORDER die Methode CL_ISHMED_FUNCTIONS=>EXECUTE bzw. die Klasse CL_ISH_PRC_CORDER verwendet werden. Zu den notwendigen Aufruf-Parametern kannst du dir die Methode CL_ISHMED_FUNCTIONS=>CALL_CLINICAL_ORDER anschauen bzw. debuggen. FCODE wäre 'CORDI' für KLAT anlegen.

lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.

ECC: 6.18
Basis: 7.50

Re: ISHmed Klinschen Auftrag anlegen

Beitrag von a-dead-trousers (Top Expert / 4271 / 213 / 1140 ) »
Okay, unser Code ist doch nicht so viel bzw. enthält nicht zu viele Spezifika:

Code: Alles auswählen.

function Z_KLAT_ANLEGEN.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     REFERENCE(I_NBEW) TYPE  NBEW
*"     REFERENCE(I_PLNOE) TYPE  N1PLNOE
*"----------------------------------------------------------------------

  data:
    LA_RC             type ISH_METHOD_RC,
    LT_OBJECT         type ISH_OBJECTLIST,
    LT_PARAMETER      type ISHMED_T_PARAMETER,
    LO_NBEW           type ref to CL_ISHMED_NONE_OO_NBEW,
    LO_ERRORHANDLER   type ref to CL_ISHMED_ERRORHANDLING,
    LO_ENVIRONMENT    type ref to CL_ISH_ENVIRONMENT,
    LO_LOCK           type ref to CL_ISHMED_LOCK.

  field-symbols:
    <FS_PARAMETER>    type RN1PARAMETER,
    <FS_OBJECT>       type ISH_OBJECT.

  clear LA_RC.

  CL_ISHMED_FUNCTIONS=>GET_ENVIRONMENT( exporting I_CALLER       = 'Z_KLAT_ANLEGEN'
                                        importing E_RC           = LA_RC
                                        changing  C_ERRORHANDLER = LO_ERRORHANDLER
                                                  C_ENVIRONMENT  = LO_ENVIRONMENT ).

  if LA_RC is initial.
    create object LO_LOCK.

    CL_ISHMED_NONE_OO_NBEW=>LOAD( exporting I_READ_DB      = ABAP_FALSE
                                            I_NBEW         = I_NBEW
                                  importing E_INSTANCE     = LO_NBEW
                                            E_RC           = LA_RC
                                  changing  C_ERRORHANDLER = LO_ERRORHANDLER ).


    if LA_RC is initial and LO_NBEW is bound and LO_LOCK is bound.
      append initial line to LT_OBJECT assigning <FS_OBJECT>.
      <FS_OBJECT>-OBJECT = LO_NBEW.

      append initial line to LT_PARAMETER assigning <FS_PARAMETER>.
      <FS_PARAMETER>-TYPE = '005'.
      <FS_PARAMETER>-VALUE = I_PLNOE.

      CL_ISHMED_FUNCTIONS=>CALL_CLINICAL_ORDER( exporting I_FCODE        = 'CORDI'
                                                          I_EINRI        = I_NBEW-EINRI
                                                          I_CALLER       = 'Z_KLAT_ANLEGEN'
                                                          I_SAVE         = ABAP_TRUE
                                                          I_COMMIT       = ABAP_TRUE
                                                          I_ENQUEUE      = ABAP_TRUE
                                                          I_DEQUEUE      = ABAP_TRUE
                                                          IT_OBJECTS     = LT_OBJECT
                                                          IT_PARAMETER   = LT_PARAMETER
                                                importing E_RC           = LA_RC
                                                changing  C_ERRORHANDLER = LO_ERRORHANDLER
                                                          C_ENVIRONMENT  = LO_ENVIRONMENT
                                                          C_LOCK         = LO_LOCK ).

    endif.
  endif.

endfunction.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.

ECC: 6.18
Basis: 7.50

Re: ISHmed Klinschen Auftrag anlegen

Beitrag von stony007_de (Specialist / 108 / 6 / 0 ) »
Wie gebt ihr hier Sachen wie Leistungen, Termin, Frage, Diagnose, Bemerkung, Infektion etc. mit?

Re: ISHmed Klinschen Auftrag anlegen

Beitrag von a-dead-trousers (Top Expert / 4271 / 213 / 1140 ) »
Da kommt soweit ich weiß ein Popup wo man die Leistung(en) entsprechend der planenden OE auswählen kann. Gleich wie am klinischen Arbeitsplatz (NWP1)
Den Rest muss der Benutzer dann im Dialog eintragen bzw. auswählen. Besonders den Termin weil wir die unterschiedlichsten Plantafeln/Terminkontingente haben.
Manche Sachen werden glaub ich auch per Vorbelegungs-BAdI übernommen.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.

ECC: 6.18
Basis: 7.50

Seite 1 von 1

Vergleichbare Themen

0
Antw.
2038
Views
1
Antw.
1429
Views
PM Auftrag anlegen Popup
von rune » 23.08.2007 12:06 • Verfasst in ABAP® für Anfänger
1
Antw.
2377
Views
Auftrag mit Referenz zu Lieferplan via EDI anlegen
von Melanie » 15.04.2005 13:43 • Verfasst in Sales and Distribution
1
Antw.
7693
Views
Funktionbaustein PM-Auftrag anlegen (Instandhaltung)
von thorstenwoehrle » 03.07.2006 16:53 • Verfasst in ABAP® Core
2
Antw.
1136
Views
Klinischer Auftrag CORDER anlegen
von stony007_de » 25.04.2018 09:29 • Verfasst in ABAP® für Anfänger

Über diesen Beitrag


Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Aktuelle Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 64
Interne Tabelle
vor 5 Tagen von black_adept 2 / 133
MaLo-Checker in ABAP
vor einer Woche von A6272 6 / 254

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.

Aktuelle Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 64
Interne Tabelle
vor 5 Tagen von black_adept 2 / 133
MaLo-Checker in ABAP
vor einer Woche von A6272 6 / 254

Unbeantwortete Forenbeiträge

Zwischensumme Adobe Forms
vor 3 Tagen von Lucyalison 1 / 64
Group Items auf einer Filterbar
vor einer Woche von Bright4.5 1 / 107
tRFC Transaktionen SM58
vor 4 Wochen von A6272 1 / 140