Ansicht
Dokumentation

ISH_N2_KODECLIP - IS-H*MED: KODIP als AddOn OLE Aufruf für KodeClip

SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up BAL_S_LOG - Application Log: Log header data
Diese Dokumentation steht unter dem Copyright der SAP AG.

Funktionalität

Beschreibung der KODIP ® KodeClip OLE-Schnittstelle ab Version 2.1.3

Die OLE-Schnittstelle von KODIP®KodeClip dient dazu, in einem Arbeitsgang die vom Anwender zusammengestellten Diagnosen und Prozeduren an ein Steuerprogramm zu übertragen. Optional können diese Daten vorher mit der Schnittstelle an KodeClip übergeben werden, damit der Anwender Ergänzungen bzw. Korrekturen durchführen kann. Sobald der Anwender die Zusammenstellung abgeschlossen hat, übergibt KODIP®KodeClip die Kontrolle an das Steuerprogramm und wartet auf Anweisungen. In Form von Eigenschaften können die einzelnen Daten der Schnittstelle entnommen werden. Über das Setzen eines Indizes wird eine bestimmte Diagnose oder Prozedur angesteuert, und zwar solange, bis alle benötigten Daten vom Steuerprogramm abgefragt wurden. KODIP®KodeClip verbleibt im Speicher, bis das Steuerungsprogramm die OLE-Objektklasse „KODIPclp.DiagnoseOP“ zerstört.

Objektmethoden

Reset

Mit Reset werden in KodeClip alle Diagnosen und Prozeduren der fallbezogenen Kodierung entfernt. Danach können bereits vorhandene Diagnosen und Prozeduren an KodeClip übergeben werden, die dann noch vom Anwender überarbeitet oder ergänzt werden können, oder es kann die Kodierung direkt in der KodeClip-Maske aufgerufen werden, ohne zuvor Daten in KodeClip einzuspeisen.

Die Methode kat keine Parameter.

AddDiagnose

AddDiagnose (DiagText As String, ICD9 As String, ICD10 As String, Lokalisation As String, DiagZusatz As String, AOKode As String,TextID As String, GruppenID As String, HD As String, ICD10ZKode As String, FKode1 As String, FKode1ID As String, FKode2 As String, FKode2ID As String ExternID As String)

Die Übergabeparameter von AddDiagnose spezifizieren eine Diagnose, die nach KodeClip übergeben wird.

· DiagText Der Diagnosetext enthält die Beschreibung des ICD-10-Kodes in Textform.

· ICD9 Diese Angabe kann mit dem ICD-9-Kode gefüllt werden.

· ICD10 Der ICD-10-Kode wird in diesem Feld übertragen.

· Lokalisation Die Lokalisation erwartet einen Buchstaben: "L" (Links), "R" (Rechts) und "B" (Beidseitig).

· DiagZusatz Der Diagnosezusatz kann einen Buchstaben enthalten: "A" (Ausschluß von), "V" (Verdacht auf) und "Z" (Zustand nach).

· AOKode Der AO-Kode wird übernommen (aber nicht in der Hitliste gespeichert).

· TextID Die TextID wird vom KodeClip-Programm ermittelt, gespeichert und über die Schnittstelle übertragen. Wenn die aufrufende Anwendung mit der TextID arbeitet, muß diese für bereits vorhandene Diagnosen angegeben werden, da diese Eigenschaft bei der Rückgabe sonst leer bleiben würde. Wenn keine TextID verwendet wird, kann der Wert leer bleiben.

· GruppenID Eine maximal 8-stellige eindeutige Identifikation des Thesaurus-Textes, der der Vorzugsbegriff einer Gruppe synonymer Texte ist.

· HD Das Hauptdiagnosenkennzeichen ist mit den beiden Zeichen "HD" zu füllen, bei Nebendiagnosen wird ein Leerstring ("") erwartet.

· ICD10Zkode ICD-10-Zusatzkode; wenn die aufrufende Anwendung mit dem ICD-10-Zusatzkode arbeitet, muß dieser für bereits vorhandene Diagnosen angegeben werden, da diese Eigenschaft bei der Rückgabe sonst leer bleiben würde. Wenn kein ICD-10-Zusatzkode verwendet wird, kann der Wert leer bleiben.

· FKode1 Fachspezifischer Kode1; wenn die aufrufende Anwendung mit dem FKode1 arbeitet, muß dieser für bereits vorhandene Diagnosen angegeben werden, da diese Eigenschaft bei der Rückgabe sonst leer bleiben würde. Wenn kein FKode1 verwendet wird, kann der Wert leer bleiben.

· FKode1ID Klassifikationskennung zu FKode1; wenn die aufrufende Anwendung mit der FKode1ID arbeitet, muß diese für bereits vorhandene Diagnosen angegeben werden, da diese Eigenschaft bei der Rückgabe sonst leer bleiben würde. Wenn keine FKode1ID verwendet wird, kann der Wert leer bleiben.

· FKode2 Fachspezifischer Kode2; wenn die aufrufende Anwendung mit dem FKode2 arbeitet, muß dieser für bereits vorhandene Diagnosen angegeben werden, da diese Eigenschaft bei der Rückgabe sonst leer bleiben würde. Wenn kein FKode2 verwendet wird, kann der Wert leer bleiben.

· FKode2ID Klassifikationskennung zu FKode2; wenn die aufrufende Anwendung mit der FKode2ID arbeitet, muß diese für bereits vorhandene Diagnosen angegeben werden, da diese Eigenschaft bei der Rückgabe sonst leer bleiben würde. Wenn keine FKode2ID verwendet wird, kann der Wert leer bleiben.

- ExternID ist eine Übergabevariable, die in der Schnittstelle übergeben und durch KODIP KodeClip nicht verändert wird. Sie wird sowohl bei Diagnosen als auch Prozeduren übermittelt. Ist keine ID vorhanden, so wird ein Leerstring erwartet.

AddOP

AddOP (OPSText As String, Kode As String, OPS As String, Lokalisation As String, TextID As String, GruppenID As String, HL As String, OPDatum As String, ExternID As String)

Die Übergabeparameter von AddOP spezifizieren eine Prozedur, die nach KodeClip übergeben wird.

· OPSText Der zum Kode gehörende Text.

· Kode Der ausgelieferte, amtliche OP-Schlüssel nach §301 SBG V.

· OPS Bei erweitertem OP-Schlüssel enthält diese Eigenschaft dessen amtlichen Anteil.

· Lokalisation Für die Lokalisation wird nur der Anfangsbuchstabe ("L", "R", "B") erwartet.

· TextID vgl. TextID bei AddDiagnose

· GruppenID vgl. GruppenID bei AddDiagnose

· HL Das Kennzeichen "HL" wird für die Hauptprozedur übertragen. Alle anderen Prozeduren erhalten einen Leerstring.

· OPDatum Das OP-Datum ist als String im Format "TT.MM.JJJJ" zu übergeben.

Kodierung

Mit dieser Methode wird das Programmmodul von KODIP®KodeClip sichtbar. Abhängig von der Eigenschaft Modus wird das Hauptfenster oder das Hitlistenfenster sichtbar. Wenn KODIP®KodeClip über die Schaltfläche „Beenden“ verlassen wird, stehen die Diagnose- und Prozedurendaten für die Abfrage durch das aufrufende Programm bereit. Die Methode hat keine Parameter.

Eingabetext

Property Let Eingabetext (strSuchtext As String)

Übergabe des KODIP®-Suchbegriffes, d.h. es können ein Kode oder ein oder mehrere Suchbegriffe in einer Variablen übergeben werden. Diese Eigenschaft ist kein Pflichtfeld.

Mode

Property Let Mode(strValue As String)

Wertebereich: { "FIXED" | "NORMAL"}

Bevor Diagnosen oder Prozeduren an KODIP KodeClip übertragen werden, wird mit der Einstellung obj.Mode = "FIXED" die Änderung dieser Einträge verhindert. Dazu zeigt KODIP®KodeClip in den jeweiligen Zeilen ein kleines Symbol in Form eines Anhängeschlosses. Ein Klick auf eine solche Zeile bewirkt keine Aktion.

Wird die Einstellung obj.Mode = "NORMAL" genutzt, dann können alle nachfolgend (!) übertragenen Diagnosen oder Prozeduren vom Anwender mit KODIP KodeClip verändert oder gelöscht werden.

Vor der Übergabe einer Datengruppe an KODIP KodeClip erfolgt die Einstellung der Objekteigenschaft obj.Mode einmal.

Property Get Mode() As String

Wertebereich: { "FIXED" | "NORMAL" | "UNKOWN" }

Wenn die Eigenschaften obj.DiagIndex oder obj.OPIndex noch nicht benutzt wurden:

Der eingestellte Modus wird über den Eigenschaftsnamen obj.Mode abgerufen. "UNKOWN" bedeutet, dass der Modus noch nicht gesetzt ist, oder es wurde ein unbekannter Modus eingestellt. "FIXED" kennzeichnet, dass die bisher übertragenen Daten vor Änderungen oder Löschungen geschützt sind. "NORMAL" wird zurückgeliefert, wenn die bisher übertragenen Daten vom Anwender änderbar sind.

Nach Einstellung des Modus kann somit Überprüft werden, ob KODIP®KodeClip die Einstellung akzeptiert hat.

Wenn die Eigenschaften obj.DiagIndex oder obj.OPIndex benutzt wurden: Der eingestellte Modus wird für jede einzelne Diagnose oder Prozedur über den Eigenschaftsnamen obj.Mode abgerufen.

"UNKOWN" wird nicht übertragen.

"FIXED" kennzeichnet, dass die Daten vor Änderungen geschützt waren.

"NORMAL" wird zurückgeliefert, wenn die Daten zur Änderung freigegeben waren.

Bei der Abfrage von Daten mit den Eigenschaften obj.DiagIndex oder obj.OPIndex wird die Eigenschaft obj.Mode für jede einzelne Diagnose oder Prozedur zurück geliefert.

Modus

Property Let Modus (strParameter As String)

Es kann eine Zeichenfolge übergeben werden, welche die Kennzeichen "OP" oder "PROZ" enthält, um die KODIP®-OPS-Kodierung zu spezifizieren. Wird anstelle dieser Begriffe "ICD" übergeben, dann wird die KODIP®-Diagnosenkodierung definiert. Das Kürzel "HIT" in Kombination mit einem dieser Begriffe (z.B „HITOP“ oder „OPHIT“) bewirkt, daß das KODIP®KodeClip-Hitlistenfenster gestartet wird. Wird kein Modus übertragen, startet das Programm im Diagnosen-Modus.

Version

Property Get Version () As String

Property Let Version (strKataloge As String)

Diese Eigenschaft kann sowohl gelesen als auch gesetzt werden. In einem String wird die Version für den ICD-10 als auch für den OPS-301 Katalog nebeneinander angegeben. Mögliche Werte sind "1311" oder "2020". Die ersten beiden Stellen enthalten die ICD-Version, die letzten beiden Stellen die OPS-Version.

Cancel

Property Get Cancel() As String

Über die Cancel-Eigenschaft kann das Steuerprogramm nach Beendigung der Methode Kodierung abfragen, ob der Anwender die Abbrechen-Schaltfläche gedrückt hat. Wenn der Abbruch zutrifft, dann enthält der Rückgabestring den Wert "1". Der String "0" wird auch dann gesetzt, wenn keine Daten zur Übernahme bereitstehen, also DiagAnzahl und OPAnzahl den Wert 0 enthalten. Diese Eigenschaft kann nicht gesetzt werden.

DiagAnzahl

Property Get DiagAnzahl () As Long

DiagAnzahl enthält die Anzahl der aus KodeClip abrufbaren Diagnosen.

DiagIndex

Property Let DiagIndex (Wert As Long)

Mit DiagIndex wird festgelegt, für welche Diagnose die folgenden Diagnoseeigenschaften abgefragt werden sollen. Zulässige Werte von DiagIndex sind 1 bis DiagAnzahl.

Ausgabetext

Property Get Ausgabetext () As String

Der Text zur gewählten Diagnose wird in einem String bereit gestellt.

ICD

Property Get ICD () As String

Der ICD-10-Kode kann über diese Eigenschaft abgerufen werden.

ICD9

Property Get ICD9 () As String

Enthält den ICD-9-Kode.

Property Get HD () As String

Die Hauptdiagnose enthält das Kennzeichen "HD" in der Eigenschaft HD. Alle anderen Diagnosen bekommen einen Leerstring.

Lokalisation

Property Get Lokalisation () As String

Es wird der erste Buchstabe von Links, Rechts oder Beidseitig ("L", "R", "B") übertragen.

DiagZusatz

Property Get DiagZusatz () As String

Es wird der erste Buchstabe vom Diagnosezusatz übertragen ("A"=Ausschl.uß von, "V"=Verdacht auf, "Z"=Zustand nach).

AOKode

Property Get AOKode () As String

Der AOKode wird zurückgegeben, wenn er vorher mit der Methode AddDiagnose oder über die KODIP®-AO-Klassifikation übergeben wurde. Dieser Kode ist in KODIP®KodeClip nicht sichtbar. Die Eigenschaft liefert eine leere Zeichenkette, wenn kein AO-Kode bestimmt wurde.

TextID

Property Get TextID () As String

Eine maximal 8-stellige eindeutige Identifikation des vom Benutzer ausgewählten Texts des Katalogs oder Alphabetischen Verzeichnisses (kann nur gelesen werden).

GruppenID

Property Get GruppenID () As String

Eine maximal 8-stellige eindeutige Identifikation des Thesaurus-Textes, der der Vorzugsbegriff einer Gruppe synonymer Texte ist, in der der vom Benutzer ausgewählte Text enthalten ist (kann nur gelesen werden).

ICD10ZKode

Property Get ICD10ZKode () As String

Der ICD10Zusatz-Kode wird zurückgegeben, wenn er vorher mit der Methode AddDiagnose oder über die KODIP®-Kodierung übergeben wurde. Dieser Kode ist in KODIP®-KodeClip nicht sichtbar. Die Eigenschaft liefert eine leere Zeichenkette, wenn kein ICD10Zusatz-Kode bestimmt wurde.

FKode1

Property Get FKode1 () As String

Der erste fachspezifische Kode, der der vom Benutzer ausgewählten Textzeile zugeordnet ist (lesen, nach Kodierung).

FKode1ID

Property Get FKode1ID () As String

Die Identifikation des Katalogs des ersten fachspezifischen Kodes, der in der Eigenschaft FKode1 bereitsteht. Diese Identifikation ist alphanumerisch und hat den Wert "0", wenn kein FKode1 vorliegt (lesen, nach Kodierung).

FKode2

Property Get FKode2 () As String

Der zweite fachspezifische Kode, der der vom Benutzer ausgewählten Textzeile zugeordnet ist (lesen, nach Kodierung).

FKode2ID

Property Get FKode2ID () As String

Die Identifikation des Katalogs des zweiten fachspezifischen Kodes, der in der Eigenschaft FKode2 bereitsteht. Diese Identifikation ist numerisch und hat den Wert "0", wenn kein FKode2 vorliegt (lesen, nach Kodierung).

OPAnzahl

Property Get OPAnzahl () As Long

Enthält die Anzahl der auszulesenden Prozeduren.

OPIndex

Property Let OPIndex (Wert As Long)

Index auf den gewünschten Prozedureneintrag. Gültig sind Werte zwischen 1 bis OPAnzahl.

Ausgabetext

Property Get Ausgabetext () As String

Der Text zur gewählten Prozedur wird in der Eigenschaft Ausgabetext bereit gestellt.

Kode

Property Get Kode () As String

Der mit KODIP®ausgelieferte OP-Schlüssel ist der amtliche Operationenschlüssel nach §301 SBG V, im Feld Kode findet sich somit der gleiche Wert wie in der Eigenschaft OPS, solange der Benutzer keinen erweiterten OP-Schlüssel nutzt.

OPS

Property Get OPS () As String

Wird mit einem erweiterten OP-Schlüssel gearbeitet, enthält diese Eigenschaft den amtlichen Anteil (z.B. die ersten 5 Stellen eines auf 6 Stellen erweiterten Kodes) oder "-" (Bindestrich), wenn keine amtliche Entsprechung existiert.

Property Get HL () As String

Die Hauptprozedur (Hauptleistung) enthält in der Eigenschaft HL das Kennzeichen "HL". Alle anderen Prozeduren bekommen den Leerstring.

Lokalisation

Property Get Lokalisation () As String

Es wird der erste Buchstabe der Lokalisation übergeben: "L"inks, "R"echts oder "B"eidseitig.

OPDatum

Property Get OPDatum () As String

Das OP-Datum wird nur zurückgegeben, d.h. es muß über die Methode AddOP vorher übergeben worden sein. Dieser Wert ist in KODIP ®KodeClip nicht sichtbar.

Diese unsichtbare Eigenschaft wird nicht unterstützt.

TextID

Property Get TextID () As String

Eine maximal 8-stellige eindeutige Identifikation des vom Benutzer ausgewählten Texts des Katalogs oder Alphabetischen Verzeichnisses (kann nur gelesen werden).

GruppenID

Property Get GruppenID () As String

ExtrernID

Property Get ExternID() As String

Erfolgt die Abfrage über die einzelnen Eigenschaften mit OPIndex (AktOP) oder DiagIndex (AktDiagnose), kann die externe ID über die Objekteigenschaft obj.ExternID übernommen werden.

DiagRefDGAnzahl

Property Get DiagRefDGAnzahl() As Long

DiagRefDGAnzahl übergibt zur aktuell ausgewählten Diagnose (DiagIndex) die Anzahl untergeordneter Diagnosen. Der Rückgabewert 0 erfolgt, wenn die Bedingung DiagIndex > AnzDiagnosen erfüllt ist.

DiagRefOPAnzahl

Property Get DiagRefOPAnzahl() As Long

DiagRefOPAnzahl übergibt zur aktuell ausgewählten Diagnose (DiagIndex) die Anzahl untergeordneter Prozeduren. Der Rückgabewert 0 erfolgt, wenn die Bedingung DiagIndex > AnzOP erfüllt ist.

DiagRefDG

Property Get DiagRefDG() As Long

DiagRefDG übergibt einen Index auf eine untergeordnete Diagnose zur aktuell ausgewählten Diagnose und benötigt dazu die vorherige Einstellung der Eigenschaften DiagIndex(1..AnzDiagnosen; AnzDiagnosen = Anzahl Diagnosen) und RefIndex (1..DiagRefDGAnzahl; DiagRefDGAnzahl = Anzahl untergeordneter Diagnosen). Der Rückgabewert 0 erfolgt, wenn die Bedingungen DiagIndex > AnzDiagnosen oder RefIndex > DiagRefDGAnzahl erfüllt sind.

DiagRefOP

Property Get DiagRefOP() As Long

DiagRefOP übergibt einen Index auf eine untergeordnete Prozedur zur aktuell ausgewählten Diagnose und benötigt dazu die vorherige Einstellung der Eigenschaften DiagIndex(1..AnzDiagnosen; AnzDiagnosen = Anzahl Diagnosen) und RefIndex (1..DiagRefOPAnzahl; DiagRefOPAnzahl = Anzahl untergeordneter Prozeduren). Der Rückgabewert 0 erfolgt, wenn die Bedingungen DiagIndex > AnzDiagnosen oder RefIndex > DiagRefOPAnzahl erfüllt sind.

OpRefDGAnzahl

Property Get OpRefDGAnzahl() As Long

OpRefDGAnzahl übergibt zur aktuell ausgewählten Prozedur (OPIndex) die Anzahl untergeordneter Diagnosen. Der Rückgabewert 0 erfolgt, wenn die Bedingung OPIndex > AnzOP erfüllt ist.

OpRefOPAnzahl

Property Get OpRefOPAnzahl() As Long

OpRefOPAnzahl übergibt zur aktuell ausgewählten Prozedur (OPIndex) die Anzahl untergeordneter Prozeduren. Der Rückgabewert 0 erfolgt, wenn die Bedingung OPIndex > AnzOP erfüllt ist.

OpRefDG

Property Get OpRefDG() As Long

OpRefDG übergibt einen Index auf eine untergeordnete Diagnose zur aktuell ausgewählten Prozedur und benötigt dazu die vorherige Einstellung der Eigenschaften OPIndex(1..AnzOP; AnzOP = Anzahl Prozeduren) und RefIndex (1..OpRefDGAnzahl; OpRefDGAnzahl = Anzahl untergeordneter Diagnosen). Der Rückgabewert 0 erfolgt, wenn die Bedingungen OPIndex > AnzOP oder RefIndex > OpRefDGAnzahl erfüllt sind.

OpRefOP

Property Get OpRefOP() As Long

OpRefOP übergibt einen Index auf eine untergeordnete Prozedur zur aktuell ausgewählten Prozedur und benötigt dazu die vorherige Einstellung der Eigenschaften OPIndex(1..AnzOP; AnzOP = Anzahl Prozeduren) und RefIndex (1..OpRefOPAnzahl; OpRefOPAnzahl = Anzahl untergeordneter Prozeduren). Der Rückgabewert 0 erfolgt, wenn die Bedingungen OPIndex > AnzOP oder RefIndex > OpRefOPAnzahl erfüllt sind.

RefIndex

Property Let RefIndex(Index As Long)

Mit RefIndex kann ein Index 1..{ DiagRefDGAnzahl | DiagRefOPAnzahl | OpRefDGAnzahl | OpRefOPAnzahl } auf untergeordnete Diagnosen oder Prozeduren eingestellt werden. Nach der Einstellung können die Eigenschaften {DiagRefDG | DiagRefOP | OpRefDG | OpRefOP} abgefragt werden.

Beispiel

Hinweise

Weiterführende Informationen

Parameter

SS_KODIP
SS_KODIP_OP
SS_MODUS
SS_RN2IDCOD
SS_RN2IPCOD
SS_T_RN2IDCOD
SS_T_RN2IPCOD

Ausnahmen

ERROR

Funktionsgruppe

N2OL

PERFORM Short Reference CPI1466 during Backup
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 23097 Date: 20240523 Time: 141433 sap01-206 ( 367 ms )

Ansicht Dokumentation