Ansicht
Dokumentation

ISH_DRG_PEPP_GET_VARIANT - CPB-Variante ermitteln (prüfen) für NPDRG2

rdisp/max_wprun_time - Maximum work process run time   ROGBILLS - Synchronize billing plans  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Funktionalität

This function module is only relevant for country version Germany.

It must not be used by other country versions than DE (Germany).

Dieser FuB ersetzt die bisher dafür genutzte Formroutine check_drg_pepp_case (LNDRG_DIALOGF01), Auslieferung mit Hinweis 1977452 im März 2014.

Momentan können Kunden für DRG-Fälle nach wie vor die alte NPDRG2 (ohne CPB) nutzen.

Für PEPP-Fälle ist die Verwendung von NPDRG2 mit CPB verpflichtend. Ein PEPP-Fall darf nie nie über die alte Transaktion NPDRG2 (ohne CPB) bearbeitet werden.

Wenn der Kunde für DRG-Fälle noch die alte NPDRG2 nutzen möchte, darf in der Variantenermittlung für CPB im IMG kein entsprechender Eintrag für NPDRG2 enthalten sein. Dann laufen DRG-Fälle über die alte NPDRG2 und PEPP-Fälle über CPB. Da man aber so keine explizite Variante für NPDRG2 für PEPP-Fälle hinterlegen kann, muss das System auf andere Art und Weise eine Variante ermitteln.

Diese Ermittlung erfolgt in diesem FuB.

!!! Die folgende Doku ist noch nicht aktuell (Stand entspricht der Formroutine, Anpassungen im FuB noch nicht enthalten) !!!

Kommentare im Coding beachten

Ermittlung/Prüfung CPB-Variante für DRG-Arbeitsplatz nach folgender Logik:

1. Prüfung, ob Falldaten vorhanden

-> falls nein: -> keine weitere Prüfung möglich -> ENDE (macht nix)

-> falls ja : -> 2.

2. Prüfung, ob es sich um einen PEPP-Fall handelt -> Info wird später benötigt

3. initiale Variantenermittlung mit ISH_NV2000_DETERMINE_VARIANT -> l_wplaceid, c_wplaceid

- gefundene Variante nur berücksichtigen, wenn Sie Aufrufstelle NPDRG2 zugeordnet ist

- Variantenermittlung läuft bereits im FuB ISH_DRG_GET_WPLACEID (ist notwendig für alle anderen Landesversionen); Aufruf hier ist aber auch notwendig:

-> liefert die Information, ob ein entsprechender Eintrag für Aufrufstelle NPDRG2 gepflegt ist

-> liefert eine Variante, falls ein entsprechender Eintrag für Aufrufstelle NPDRG2 gepflegt ist

-> Aufruf aus .... Variantenermittlung nur in diesem FuB

4. Unterscheidung zwischen a) oder b):

a) PEPP-Fall (über Variantenermittlung wurde eine oder auch keine Variante für Aufrufstelle NPDRG2 gefunden)

oder DRG-Fall, wobei über die Variantenermittlung eine Variante für Aufrufstelle NPDRG2 gefunden wurde:

I) Prüfen, ob die gefundene Variante (falls eine gefunden wurde) den DRG-Daten Subscreen (SAP_DRGSUB) enthält:

-> falls ja: ok = true -> gefundene Variante wird verwendet -> ENDE

-> falls nein: -> II)

II) falls keine Variante gefunden wurde oder die gefundene Variante nicht den Subscreen SAP_DRGSUB enthält:

-> Ermitteln aller Varianten, die den Subscreen SAP_DRGSUB enthalten -> lt_nwpvz

III) lt_nwpvz sortieren (descending), um zu gewährleisten, dass die ausgelieferte

Standardvariante SAP_DRG_WS am Anfang der Tabelle steht (falls sie vorhanden ist)

- Kundenvarianten beginnen mit CST, Standardvarianten mit SAP

- SAP Standard-Variante SAP_DRG_WS existiert ab 6.05 ISH_MISC2 (BC-Set muss ausgepackt sein)

IV) in einer Loop-Schleife über die gefundenen Varianten (lt_nwpvz) prüfen, ob die jeweilige

Variante dem Anwender zugeordnet ist (nwpusz)

- dabei die Einträge löschen, die nicht existierende Varianten enthalten (Voraussetzung für V) )

-> falls ja, raus aus der Schleife mit ok = true -> ENDE, diese Variante wird verwendet

-> falls keine der gefundenen Varianten dem Anwender zugeordnet ist -> Schleife mit ok = false beendet -> V)

V) Falls keine Variante gefunden wurde, die dem Anwender zugeordnet ist (ok = false):

-> erste Variante aus lt_nwpvz verwenden

-> SAP_DRG_WS, falls vorhanden; andernfalls Kundenvariante

VI) es wurde gar keine Variante gefunden (es existiert keine Variante im System)

PEPP-Fall -> man landet in irgendeiner Variante

DRG-Fall -> ohne Variante weitermachen

b) DRG-Fall, wobei über die Variantenermittlung keine Variante für Aufrufstelle NPDRG2 gefunden wurde:

-> clear p_wplaceid

-> führt dazu, dass der DRG-Arbeitsplatz ohne CPB-Variante aufgerufen wird (alte NPDRG2)

Beispiel

Hinweise

Weiterführende Informationen

Parameter

C_FIRST_TIME_CPB
C_PSYDRGCASE
C_WPLACEID
I_BEKAT
I_BEWTY
I_BWART
I_CLEAR_VARIANT
I_EINRI
I_FCODE
I_LFDNR
I_NBEWTAB
I_NFAL
I_UNAME
I_VCODE

Ausnahmen

Funktionsgruppe

NDRG_DIALOG

Addresses (Business Address Services)   SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 5747 Date: 20240523 Time: 095030     sap01-206 ( 76 ms )