Transaction Code:
N/AIncludes used within report:
* INCLUDE N1DCS001F03 *
Tables used within report and the associated select statement:
NDIA * select single * from ndia * where einri eq t_ndia-einri * and falnr eq t_ndia-falnr * and lfdnr eq t_ndia-lfdnr.
NDIA * select single * from ndia * where einri eq t_ndia-einri * and falnr eq t_ndia-falnr * and lfdnr eq t_ndia-lfdnr.
NDIA * select single * from ndia * where einri eq t_ndia-einri * and falnr eq t_ndia-falnr * and lfdnr eq t_ndia-lfdnr.
NLEI SELECT * FROM nlei INTO TABLE t_nlei WHERE einri = g_einri AND falnr = g_act_nfal-falnr AND storn = off.
NLEM * SELECT * FROM nlem INTO TABLE lt_nlem * FOR ALL ENTRIES IN t_nlei * WHERE lnrls = t_nlei-lnrls . "#EC *
NLEM SELECT * FROM nlem INTO TABLE lt_nlem FOR ALL ENTRIES IN t_nlei WHERE lnrls = t_nlei-lnrls AND einri = t_nlei-einri AND falnr = t_nlei-falnr ORDER BY PRIMARY KEY.
N1LSSTZ SELECT * FROM n1lsstz INTO TABLE lt_n1lsstz FOR ALL ENTRIES IN t_nlei WHERE lnrls = t_nlei-lnrls AND einri = t_nlei-einri. "#EC *
NLLZ SELECT * FROM nllz INTO TABLE lt_nllz FOR ALL ENTRIES IN t_nlei WHERE lnrls2 = t_nlei-lnrls AND einri = t_nlei-einri * MEL -> ICPM Zuordnung AND zotyp = co_nllz_mel_icpm_conn. "#EC *
NLEM * SELECT SINGLE * FROM nlem * WHERE lnrls = t_nlei-lnrls. "#EC *
N1LSSTZ * SELECT * * FROM n1lsstz * WHERE einri = t_nlei-einri * AND lnrls = t_nlei-lnrls * AND lsstae = nlem-lsstae * ORDER BY erdat ertim.
NLLZ * SELECT SINGLE * * INTO t_svc-nllz * FROM nllz * WHERE einri = t_nlei-einri ** MEL -> ICPM Zuordnung * AND zotyp = co_nllz_mel_icpm_conn "Zuordnungstyp = X wichtig!! * AND lnrls2 = t_nlei-lnrls. "#EC *
N1DCSCLASS * select * * from n1dcsclass * appending table gt_vn1dcsclass[] * where einri = g_einri * and typ = co_type_svc * and falnr = g_act_nfal-falnr "falnr "ID16128 Upd SCHWM * and lfdnr = t_svc-nlei-lnrls.
N1DCSCLASS SELECT * FROM n1dcsclass APPENDING TABLE gt_vn1dcsclass[] WHERE einri = g_einri AND typ = co_type_svc AND falnr = g_act_nfal-falnr AND lfdnr = t_svc-nlei-lnrls.
NTPT * select single ktxt1 from ntpt into t_svc-ntpt-ktxt1 * where spras = sy-langu * and einri = g_einri "ID 6573 SCHWM Upd einri->g_einri * and tarif = '01' * and talst = ntpt-talst.
NBEW SELECT SINGLE * FROM nbew WHERE einri = g_act_nbew-einri AND falnr = g_act_nbew-falnr AND lfdnr = g_act_nbew-lfdnr AND storn = off.
NDIA SELECT SINGLE * FROM ndia INTO l_wa_ndia WHERE einri = g_einri AND falnr = p_ndia-falnr AND lfdnr = p_ndia-lfdnr.
NTPT SELECT SINGLE * FROM ntpt WHERE spras = sy-langu AND einri = p_einri AND tarif = p_haust AND talst = ntpt-talst.
N1LSSTA * select single * * from n1lssta * into l_n1lssta * where einri = l_wa_nlei-einri * and lssta = 'QU'.
NFAL SELECT SINGLE falar FROM nfal INTO l_falar WHERE einri = l_wa_nlei-einri "Einrichtung!! AND falnr = l_wa_nlei-falnr.
NBEW SELECT SINGLE storn FROM nbew INTO l_nbew WHERE einri = l_wa_nlei-einri AND falnr = l_wa_nlei-falnr AND lfdnr = l_wa_nlei-lfdbew AND storn = off.
NBEW SELECT SINGLE * FROM nbew INTO l_wa_nbew WHERE einri = l_wa_nlei-einri AND falnr = l_wa_nlei-falnr AND lfdnr = l_wa_nlei-lfdbew.
NFAL * Select's hier vorerst nicht gepuffert, da dieser * Programmzweig ohnehin eigentlich nie durchlaufen * wird (MELs werden immer als ISH Leistungen gespeichert) SELECT SINGLE * FROM nfal INTO l_nfal WHERE einri = l_wa_nlei-einri AND falnr = l_wa_nlei-falnr.
NBEW SELECT SINGLE * FROM nbew INTO l_nbew WHERE einri = l_wa_nlei-einri AND falnr = l_wa_nlei-falnr AND lfdnr = l_wa_nlei-lfdbew.
N1LSSTA SELECT * "single FROM n1lssta INTO l_n1lssta UP TO 1 ROWS WHERE einri = l_wa_nlei-einri AND lssta = 'QU' AND loekz = space.
N1LSSTZ SELECT * "single FROM n1lsstz INTO l_n1lsstz UP TO 1 ROWS WHERE einri = l_wa_nlei-einri AND lnrls = l_wa_nlei-lnrls AND lsstae = l_n1lssta-lsstae ORDER BY erdat DESCENDING ertim DESCENDING.
NFAL SELECT SINGLE falar FROM nfal INTO l_falar WHERE falnr = l_wa_nlei-falnr. "#EC *
NBEW SELECT SINGLE * FROM nbew INTO l_wa_nbew WHERE einri = l_wa_nlei-einri AND falnr = l_wa_nlei-falnr AND lfdnr = l_wa_nlei-lfdbew.
NFAL SELECT SINGLE * FROM nfal INTO p_nfal WHERE einri = p_einri AND falnr = p_falnr.
NBEW SELECT SINGLE * FROM nbew INTO p_nbew WHERE einri = p_einri AND falnr = p_falnr AND lfdnr = p_lfdbew.
TN14B SELECT SINGLE * FROM tn14b WHERE einri = g_einri "Del ID8224: t_vnbew-einri AND bewty = l_wa_vnbew-bewty "Del ID8224: t_vnbew-bewty AND bwart = l_wa_vnbew-bwart. "Del ID8224: t_vnbew-bwart.
N1DCS_USR SELECT * INTO TABLE lt_settings_usr[] FROM n1dcs_usr "#EC CI_BYPASS WHERE einri = g_einri AND usr = sy-uname AND parid = co_par_mels_only AND dt_start LE sy-datum AND dt_end GE sy-datum ORDER BY parnr.
N1DCS_USR SELECT * INTO TABLE lt_settings_usr[] FROM n1dcs_usr "#EC CI_BYPASS WHERE einri = g_einri AND usr = sy-uname AND parid = co_par_icpms_only AND dt_start LE sy-datum AND dt_end GE sy-datum ORDER BY parnr.
N1DCS_USR SELECT * INTO TABLE lt_settings_usr[] FROM n1dcs_usr "#EC CI_BYPASS WHERE einri = g_einri AND usr = sy-uname AND parid = co_par_med_only AND dt_start LE sy-datum AND dt_end GE sy-datum ORDER BY parnr.
N1DCS_USR SELECT * INTO TABLE lt_settings_usr[] FROM n1dcs_usr "#EC CI_BYPASS WHERE einri = g_einri AND usr = sy-uname AND parid = co_par_ident_only AND dt_start LE sy-datum AND dt_end GE sy-datum ORDER BY parnr.
N1DCS_USR SELECT * INTO TABLE lt_settings_usr FROM n1dcs_usr WHERE einri = g_einri AND usr = sy-uname AND ( ( parid = co_par_mels_only AND parvalue = on ) OR ( parid = co_par_icpms_only AND parvalue = on ) OR ( parid = co_par_med_only AND parvalue = on )"ID10460 OR ( parid = co_par_ident_only AND parvalue = on ) )"ID10697 AND dt_start LE sy-datum AND dt_end GE sy-datum.
(n1dcs_dia_oe) SELECT * FROM (n1dcs_dia_oe) INTO TABLE pt_n1dcs_dia_oe WHERE einri = g_act_nfal-einri.
zn1dcs_tmp_log * select * from zn1dcs_tmp_log * into l_wa_log * where loguser = sy-uname * and datum = sy-datum * and falnr = g_act_nfal-falnr * order by loguser datum falnr lognr descending.
NBEW * select single * * from nbew * into l_nbew * where einri = g_act_nfal-einri * and falnr = g_act_nfal-falnr * and lfdnr = l_wa_svc-nlei-lfdbew.
NBEW * select single * * from nbew * into l_nbew * where einri = g_act_nfal-einri * and falnr = g_act_nfal-falnr * and lfdnr = l_wa_svc-nlei-lfdbew.
NDIA SELECT SINGLE * FROM ndia WHERE einri EQ t_ndia-einri AND falnr EQ t_ndia-falnr AND lfdnr EQ t_ndia-lfdnr.
NDIA * select single * from ndia * where einri eq t_ndia-einri * and falnr eq t_ndia-falnr * and lfdnr eq t_ndia-lfdnr.
Function Modules used within report and the associated call statement:
ISHMED_DIACOS_GETDATA CALL FUNCTION 'ISHMED_DIACOS_GETDATA' EXPORTING einri = g_einri srcinf = l_srcinfo mode = co_mode_online_run "Online DIACOS Aufruf * country = '1' "Austria noch nicht unterst黷zt * TEXT = '/' multiple = 'X' refok = l_refok * NOREF = 'X' * Wert L 黚ergeben, damit nur falls in ICD-10 codiert wird, * die Diagnose auch im ICD-9 retour kommt, sonst immer nur im * 黚ergebenen Katalog noref = ' ' "'L' * Hier immer ORGPF - und anhand dieser OE dann die * Einstellungen ermitteln - ist nicht unterschiedlich m鰃lich! orgid = g_act_nbew-orgpf "ID8224 Del 211101: nbew-orgpf i_flg_prc = l_flg_diacos_screen * ID8224 SCHWM Ins 171201 ICD-9 immer 黚ernehmen!! Start i_flg_icd9_init_get = 'X' * ID8224 SCHWM Ins 171201 ICD-9 immer 黚ernehmen!! End *
ISH_PERFORM_SCORING_SYNCHRON * call function 'ISH_PERFORM_SCORING_SYNCHRON' * EXPORTING * einri = g_einri * falnr = g_act_nfal-falnr * TABLES * india = lt_score[] * inbew = lt_xnbew[] * EXCEPTIONS * others = 1.
ISH_CASESERVICE_POOL_REFRESH CALL FUNCTION 'ISH_CASESERVICE_POOL_REFRESH' EXPORTING ss_einri = g_act_nfal-einri ss_falnr = g_act_nfal-falnr .
ISH_AT_SCO_ONLINE CALL FUNCTION 'ISH_AT_SCO_ONLINE' EXPORTING i_einri = g_einri i_falnr = g_act_nfal-falnr "falnr " i_save_data = on i_scor_dialog = on i_vcode = g_vcode_case IMPORTING e_scor_saved = l_scor_saved TABLES it_nbew = lt_xnbew[].
ISH_CASESERVICE_POOL_REFRESH CALL FUNCTION 'ISH_CASESERVICE_POOL_REFRESH' EXPORTING ss_einri = g_act_nfal-einri ss_falnr = g_act_nfal-falnr .
ISH_AT_SCO_ONLINE CALL FUNCTION 'ISH_AT_SCO_ONLINE' "Ins * >ID16128 SCHWM Upd 070305 Standard-Function! EXPORTING i_einri = g_einri i_falnr = g_act_nfal-falnr i_save_data = on i_scor_dialog = on i_vcode = g_vcode_case IMPORTING e_scor_saved = l_scor_saved TABLES it_nbew = lt_xnbew[] * ct_vndia = lt_score[]. "LI* ID10940
ISHMED_CHECK_NORG CALL FUNCTION 'ISHMED_CHECK_NORG' EXPORTING ss_ambes = '*' ss_einri = g_einri ss_einri_chk = 'J' ss_fazuw = '*' ss_freig = on ss_gdatum = p_date ss_n1anfgp = '*' ss_n1anfkz = '*' ss_n1anfor = ' ' ss_n1dikz = '*' ss_n1erbrkz = on "hier on-Erboe ist immer 鋘derbar! ss_n1plskz = '*' ss_orgid = p_erboe ss_pfzuw = '*' ss_sperr = 'N' * importing * E_N1AOEZ = * e_norg = "NORG Satz wird nicht ben鰐igt..
ISHMED_READ_NORG CALL FUNCTION 'ISHMED_READ_NORG' EXPORTING ss_check = 'ANFOE' ss_check_freig = on ss_check_loekz = off ss_datum = p_date ss_einri = g_einri ss_orgid = p_anfoe * nicht n鰐ig * IMPORTING * e_norg = EXCEPTIONS not_anfoe = 01 not_anpoe = 02 not_erboe = 03 not_found = 04 not_freig = 05 not_valid = 06 set_loekz = 07.
ISHMED_READ_NORG CALL FUNCTION 'ISHMED_READ_NORG' EXPORTING ss_check = 'ANPOE' ss_check_freig = on ss_check_loekz = off ss_datum = p_date ss_einri = g_einri ss_orgid = p_anpoe * IMPORTING * e_norg = "nicht n鰐ig EXCEPTIONS not_anfoe = 01 not_anpoe = 02 not_erboe = 03 not_found = 04 not_freig = 05 not_valid = 06 set_loekz = 07.
ISHMED_CHECK_NORG CALL FUNCTION 'ISHMED_CHECK_NORG' EXPORTING ss_ambes = '*' ss_einri = g_einri ss_einri_chk = 'J' ss_fazuw = '*' ss_freig = on * ID13451 SCHWM Upd201103 mit Leistungsdatum pr黤en! ss_n1anfgp = '*' ss_n1anfkz = '*' ss_n1anfor = ' ' ss_n1dikz = '*' ss_n1erbrkz = on "hier on-Erboe ist immer 鋘derbar! ss_n1plskz = '*' ss_orgid = p_erboe ss_pfzuw = '*' ss_sperr = 'N' * importing * E_N1AOEZ = * e_norg = "NORG Satz wird nicht ben鰐igt..
ISH_N2_MEDICAL_DOCUMENT CALL FUNCTION 'ISH_N2_MEDICAL_DOCUMENT' EXPORTING * SS_BISDAT = 00000000 ss_einri = g_einri * SS_MODE = ' ' * SS_VONDAT = 00000000 ss_tcode = loc_tcode * SS_SELKR = ' ' * SS_ENQUE = ' ' * SS_SET_SCREEN_FLAG = ' ' * SS_TITLE1 = ' ' * SS_TITLE2 = ' ' * IMPORTING * SS_OKCODE = * SS_TDWS = * SS_TDWST = * SS_CMD_ERROR = TABLES ss_ndoc = loc_ndoc * SS_COMMANDS = * CHANGING * SS_DRAW = ' ' EXCEPTIONS no_document = 1 no_insert = 2 cancel = 3 OTHERS = 4.
ISHMED_DIACOS_GETDATA CALL FUNCTION 'ISHMED_DIACOS_GETDATA' EXPORTING einri = g_einri srcinf = l_srcinfo mode = co_mode_half_auto "half automatic coding * COUNTRY = '0' noch nicht unterst黷zt * TEXT = '/' * MULTIPLE = ' ' * REFOK = ' ' noref = ' ' "give detail i_flg_prc = co_dcs_screen_svc "Leistungen * ID11748 SCHWM Ins 230503 Klassifikationen hier mitnehmen! IMPORTING return = l_subrc TABLES diag = lt_dcsdia[] proc = lt_dcssvc[] EXCEPTIONS wrong_text = 2 wrong_mode = 3 ole_error = 4 OTHERS = 5.
POPUP_TO_DECIDE_LIST CALL FUNCTION 'POPUP_TO_DECIDE_LIST' EXPORTING * CURSORLINE = 1 mark_flag = '0' * MARK_MAX = 1 * START_COL = 0 * START_ROW = 0 textline1 = 'Weitere Klassifizierungen'(t04) * TEXTLINE2 = ' ' * TEXTLINE3 = ' ' titel = text-t03 * Parameter display_only existiert nicht! (4.03)
ISH_DYNP_VALUES_READ CALL FUNCTION 'ISH_DYNP_VALUES_READ' EXPORTING dyname = repid dynumb = dynnr TABLES dynpfields = dynpfields.
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = repid dynumb = dynnr TABLES dynpfields = dynpfields.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: pflegerische OE'(009) no_bauid = off ambes = on pfzuw = on sperr = off start_orgfa = rnle1-anfoe vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: fachliche OE'(010) no_bauid = off pfzuw = off fazuw = on sperr = off start_orgfa = rnle1-anfoe vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: erbringende OE'(011) no_bauid = off pfzuw = on ambes = on erbkz = on sperr = off start_orgfa = rnle1-erboe vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: pflegerische OE'(009) no_bauid = off ambes = on pfzuw = on sperr = off start_orgfa = *rnle1-anfoe vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: fachliche OE'(010) no_bauid = off pfzuw = off fazuw = on sperr = off start_orgfa = *rnle1-anfoe vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: erbringende OE'(011) no_bauid = off pfzuw = on ambes = on erbkz = on sperr = off start_orgfa = *rnle1-erboe vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = g_einri freig = on graph_title = 'Eingabehilfe: fachliche OE'(010) no_bauid = off pfzuw = off fazuw = on sperr = off start_orgfa = rndia-orgid vcode = vcode_help IMPORTING placed_above_orgfa = placed_above_orgfa placed_above_orgpf = placed_above_orgpf placed_above_room = placed_above_room nothing_selected = select_obid selected_orgid = zw_orgid.
ISH_SHOW_DIAGNOSEN CALL FUNCTION 'ISH_SHOW_DIAGNOSEN' EXPORTING ss_einri = g_einri ss_orgid = g_act_nbew-orgpf "Del ID8224: t_vnbew-orgpf ss_col = 10 ss_dkat = rndia-dkat1 ss_row = 5 * ss_selmod = 'UPD' IMPORTING ss_sel_dkat = l_dkat1 ss_sel_dkey = l_dkey1 ss_sel_nkdi = select_obid.
ISH_SHOW_DIAGNOSEN CALL FUNCTION 'ISH_SHOW_DIAGNOSEN' EXPORTING ss_einri = g_einri ss_orgid = g_act_nbew-orgpf "Del ID8224: t_vnbew-orgpf ss_col = 10 ss_dkat = *rndia-dkat1 ss_row = 5 * ss_selmod = 'UPD' IMPORTING ss_sel_dkat = l_dkat1 ss_sel_dkey = l_dkey1 ss_sel_nkdi = select_obid.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = einri "vom Einstiegsbild IMPORTING output = einri "vom Einstiegsbild EXCEPTIONS OTHERS = 1.
ISH_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = einri "vom Einstiegsbild ss_vcode = update IMPORTING ss_falnr = falnr.
ISHMED_PLS_LEISTUNGSERFASSUNG CALL FUNCTION 'ISHMED_PLS_LEISTUNGSERFASSUNG' EXPORTING * SS_CALLD = OFF * SS_CLOSE_BEW = 'X' * SS_GPART = ' ' * Std. Leistungserfassung soll mit VMA weiterarbeiten, aber
ISH_CASESERVICE_GETLIST * CALL FUNCTION 'ISH_CASESERVICE_GETLIST' * EXPORTING * ss_einri = g_einri * ss_falnr = g_act_nfal-falnr "ID8224 Del 221101: falnr ** SS_MAX_CNT = * IMPORTING * ss_return = i_return ** SS_RETMAXTYPE = ** der Parameter ss_complete existiert nicht! (SCHWM,4.03/4.62)
ISH_READ_NTPK_NTPT_NEW * call function 'ISH_READ_NTPK_NTPT_NEW' * exporting ** BEGDT = SY-DATUM * einri = t_nlei-einri ** ENDDT = SY-DATUM ** SPRAS = SY-LANGU * talst = t_nlei-leist * tarif = t_nlei-haust ** READ_NTPT = 'X' * importing * e_ntpk = l_ntpk * e_ntpt = l_ntpt ** KTXTCONC = * exceptions * missing_data = 1 * no_ntpk_ntpt_found = 2 * not_valid = 3 * others = 4.
ISHMED_DIACOS_GETDATA * call function 'ISHMED_DIACOS_GETDATA' * exporting * einri = g_einri "ID 6573 SCHWM Upd einri->g_einri * srcinf = srcinfo * mode = '1' "half automatic coding ** COUNTRY = '0' ** TEXT = '/' ** MULTIPLE = ' ' ** REFOK = ' ' * noref = ' ' "give detail * importing * return = subrc * tables * diag = dcsdia * proc = dcssvc * exceptions * wrong_catalogue = 1 * wrong_text = 2 * wrong_mode = 3 * ole_error = 4 * others = 5.
ISHMED_QUIT_SERVICE CALL FUNCTION 'ISHMED_QUIT_SERVICE' EXPORTING i_action = 'E' "Leistungen erbringen i_close_bew = ' ' "Bewegung nicht abschlie遝n i_einri = g_einri i_gdatum = sy-datum i_orgid = ' ' i_save_tab = 'X' i_commit = 'X' i_tarif = g_leikat "Leistungskatalog i_title = ' ' *
ISHMED_QUIT_SERVICE CALL FUNCTION 'ISHMED_QUIT_SERVICE' EXPORTING i_action = 'F' "Leistungen erbringen i_close_bew = ' ' "Bewegung nicht abschlie遝n i_einri = g_einri i_gdatum = sy-datum i_orgid = ' ' i_save_tab = 'X' i_commit = 'X' i_gpart = g_vma_usr "ID10460 LI: VMA "laut User-Parameter i_no_popup = l_kz_vma_popup "ID10460 LI i_tarif = g_leikat "Leistungskatalog i_title = ' ' *
POPUP_TO_CONFIRM_STEP * call function 'POPUP_TO_CONFIRM_STEP' "#EC * * exporting ** DEFAULTOPTION = 'Y' * textline1 = 'Programm beenden'(t15) * textline2 = 'Wollen Sie sichern?'(t16) * titel = 'Programmende'(t17) ** START_COLUMN = 25 ** START_ROW = 6 * cancel_display = ' ' * importing * answer = answer * exceptions * others = 1.
ISHMED_STORNO_NLEI_ZUO CALL FUNCTION 'ISHMED_STORNO_NLEI_ZUO' EXPORTING ss_einri = g_einri * ss_gpart = g_vma " ss_gpart = g_vma_svc " * ss_nbew = l_nbew ss_popup = l_popup * SS_POPUP_TITEL = ' ' ss_stoid = s_stoid * SS_UPDATE_TASK = TRUE * SS_VERBUCHER_NLEI = TRUE * SS_STORNO_ANFO = 'X' * SS_STORNO_VKG = 'X' * SS_STORNO_ZYKLUS = OFF * SS_STORNO_ANKLEI = 'X' * SS_SAVE = 'X' IMPORTING e_gpart = l_gpart_storn e_stoid = s_stoid * E_STOTX = TABLES ss_nlei = lt_svc_storn[] "zu storn. Leistung
ISH_STORNO_SERVICES CALL FUNCTION 'ISH_STORNO_SERVICES' IMPORTING anz_no_storn = rnle1-linnr * ANZ_STORN = TABLES ss_nlei = lt_s_nlei[] EXCEPTIONS no_services = 1 OTHERS = 2.
HELP_VALUES_GET_NO_DD_NAME CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' "#EC * EXPORTING cucol = 5 curow = 5 * DISPLAY = ' ' selectfield = loc_field * der Parameter tablename existiert nicht! (SCHWM, 4.03/4.62)
READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING * CLIENT = SY-MANDT id = thead-tdid language = thead-tdspras name = thead-tdname object = thead-tdobject * ARCHIVE_HANDLE = 0 IMPORTING header = thead TABLES lines = tline EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8.
READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING * CLIENT = SY-MANDT id = thead-tdid language = thead-tdspras name = thead-tdname object = thead-tdobject * ARCHIVE_HANDLE = 0 IMPORTING header = thead TABLES lines = tline EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8.
READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING * CLIENT = SY-MANDT id = thead-tdid language = thead-tdspras name = thead-tdname object = thead-tdobject * ARCHIVE_HANDLE = 0 IMPORTING header = thead TABLES lines = tline EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8.
EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING display = xdisplay * EDITOR_TITLE = ' ' header = thead * PAGE = ' ' * WINDOW = ' ' save = 'X' * LINE_EDITOR = ' ' * CONTROL = ' ' IMPORTING function = loc_function newheader = thead RESULT = itcer TABLES lines = tline EXCEPTIONS id = 1 language = 2 linesize = 3 name = 4 object = 5 textformat = 6 communication = 7 OTHERS = 8.
DELETE_TEXT * CALL FUNCTION 'DELETE_TEXT' * EXPORTING * id = thead-tdid * language = thead-tdspras * name = thead-tdname * object = thead-tdobject * EXCEPTIONS * NOT_FOUND = 1 * OTHERS = 2.
DELETE_TEXT * CALL FUNCTION 'DELETE_TEXT' * EXPORTING * id = thead-tdid * language = thead-tdspras * name = thead-tdname * object = thead-tdobject * EXCEPTIONS * NOT_FOUND = 1 * OTHERS = 2.
DELETE_TEXT * CALL FUNCTION 'DELETE_TEXT' * EXPORTING * id = thead-tdid * language = thead-tdspras * name = thead-tdname * object = thead-tdobject * EXCEPTIONS * NOT_FOUND = 1 * OTHERS = 2.
SAVE_TEXT * call function 'SAVE_TEXT' * exporting ** CLIENT = SY-MANDT * header = thead ** INSERT = ' ' ** SAVEMODE_DIRECT = ' ' ** OWNER_SPECIFIED = ' ' * importing * function = loc_function * newheader = thead * tables * lines = tline * exceptions * id = 1 * language = 2 * name = 3 * object = 4 * others = 5.
SAVE_TEXT CALL FUNCTION 'SAVE_TEXT' EXPORTING * CLIENT = SY-MANDT header = thead * INSERT = ' ' * SAVEMODE_DIRECT = ' ' * OWNER_SPECIFIED = ' ' IMPORTING function = l_loc_function newheader = thead TABLES lines = tline EXCEPTIONS id = 1 language = 2 name = 3 object = 4 OTHERS = 5.
ISH_READ_NTPK_NTPT_NEW CALL FUNCTION 'ISH_READ_NTPK_NTPT_NEW' EXPORTING begdt = p_svc-nlei-ibgdt einri = p_einri enddt = p_svc-nlei-iendt * SPRAS = SY-LANGU talst = p_leist tarif = p_haust * READ_NTPT = 'X' IMPORTING e_ntpk = p_ntpk e_ntpt = p_ntpt * KTXTCONC = EXCEPTIONS missing_data = 1 no_ntpk_ntpt_found = 2 not_valid = 3 OTHERS = 4.
ISH_READ_NTPK_NTPT_NEW CALL FUNCTION 'ISH_READ_NTPK_NTPT_NEW' EXPORTING begdt = p_svc-nlei-ibgdt "MED-33676 einri = p_einri enddt = p_svc-nlei-iendt "MED-33676 * SPRAS = SY-LANGU talst = p_leist tarif = p_haust * READ_NTPT = 'X' IMPORTING * e_ntpk = l_ntpk e_ntpt = p_ntpt * KTXTCONC = EXCEPTIONS missing_data = 1 no_ntpk_ntpt_found = 2 not_valid = 3 OTHERS = 4.
ISHMED_DIACOS_GETDATA CALL FUNCTION 'ISHMED_DIACOS_GETDATA' EXPORTING einri = l_wa_nlei-einri srcinf = l_srcinfo * mode = '1' "MED-33541 DEL mode = co_mode_half_auto "MED-33541 INS * COUNTRY = 0 * TEXT = '/' * MULTIPLE = ' ' * REFOK = ' ' * NOREF = 'X' noref = ' ' " alle Kataloge entginf = 'X' i_flg_prc = co_dcs_screen_svc "Leistungen *
ISH_READ_NTPK_NTPT_NEW * call function 'ISH_READ_NTPK_NTPT_NEW' * exporting ** BEGDT = SY-DATUM * einri = l_wa_nlei-einri ** ENDDT = SY-DATUM ** SPRAS = SY-LANGU * talst = l_wa_nlei-leist * tarif = l_wa_nlei-haust ** READ_NTPT = 'X' * importing * e_ntpk = l_ntpk * e_ntpt = l_ntpt ** KTXTCONC = * exceptions * missing_data = 1 * no_ntpk_ntpt_found = 2 * not_valid = 3 * others = 4.
BAPI_CASESERVICE_CREATEMULT * call function 'BAPI_CASESERVICE_CREATEMULT' * exporting * client = sy-mandt * institution = l_wa_nlei-einri * patcaseid = l_wa_nlei-falnr * TESTRUN = 'X' * IMPORTING * WORST_RETURNED_MSGTY = l_retmaxtype * tables * caseservice_cdata = lt_bapi_nlei ** CASESERVICE_CASSPAR = ** CASESERVICE_DATA = ** CASESERVICE_ASSPAR = * RETURN = lt_return * .
ISH_CASESERVICE_CREATEMULTIPLE CALL FUNCTION 'ISH_CASESERVICE_CREATEMULTIPLE' EXPORTING ss_einri = l_wa_nlei-einri ss_falnr = l_wa_nlei-falnr * SS_AUTHCHECK = 'X' * SS_PURPOSE = '2' ss_testrun = 'X' * SS_ACT_COMPLETE = ' ' * SS_ACTNFAL = IMPORTING ss_retmaxtype = l_retmaxtype TABLES ss_rnlsr = lt_nlei_check[] * SS_RNLRG = * SS_ACTNLEI = * SS_ACTNNLZ = ss_actnbew = lt_vnbew "LI - 11398 * SS_ONLEI = * SS_NLEI = * SS_UNLEI = * SS_NNLZ = ss_return = lt_return[] .
ISH_READ_NTPK CALL FUNCTION 'ISH_READ_NTPK' EXPORTING einri = l_wa_nlei-einri talst = l_vnlei_entry-leist tarif = l_wa_nlei-haust * IMPORTING * E_NTPK = EXCEPTIONS not_found = 1 OTHERS = 2 .
ISHMED_FILL_NLEI CALL FUNCTION 'ISHMED_FILL_NLEI' EXPORTING * SS_BEW_BEZUG = 'X' ss_gpart = l_n1lsstz-gpart ss_gtarif = l_wa_nlei-haust ss_lsstae = l_n1lssta-lsstae * SS_N1LSSTZ = ' ' ss_nbew = l_nbew ss_nfal = l_nfal ss_nlei = l_vnlei_entry * SS_NLEM = ' ' ss_umfeld = 'LERF' IMPORTING ss_e_n1lsstz = l_vn1lsstz ss_e_nbew = l_nbew ss_e_nlei = l_vnlei ss_e_nlem = l_vnlem * TABLES * SS_NBEWTAB = EXCEPTIONS ss_nbew_connection_not_found = 1 ss_parameter_missing = 2 ss_parameter_not_valid = 3 OTHERS = 4.
ISHMED_DIACOS_GETDATA CALL FUNCTION 'ISHMED_DIACOS_GETDATA' EXPORTING einri = l_wa_nlei-einri srcinf = l_srcinfo mode = '0' "Online Durchlauf * COUNTRY = 0 * TEXT = '/' * MULTIPLE = ' ' * es sollen auch mehrere Leistungen 黚ernommen werden * k鰊nen! multiple = 'X' " * REFOK = ' ' * NOREF = 'X' * entginf = 'X' i_flg_prc = co_dcs_screen_svc "Leistungen *
ISH_READ_NTPK_NTPT_NEW * call function 'ISH_READ_NTPK_NTPT_NEW' * exporting ** BEGDT = SY-DATUM * einri = l_wa_nlei-einri ** ENDDT = SY-DATUM ** SPRAS = SY-LANGU * talst = l_wa_nlei-leist * tarif = l_wa_nlei-haust ** READ_NTPT = 'X' * importing * e_ntpk = l_ntpk * e_ntpt = l_ntpt ** KTXTCONC = * exceptions * missing_data = 1 * no_ntpk_ntpt_found = 2 * not_valid = 3 * others = 4.
ISH_CASESERVICE_CREATEMULTIPLE CALL FUNCTION 'ISH_CASESERVICE_CREATEMULTIPLE' EXPORTING ss_einri = l_wa_nlei-einri ss_falnr = l_wa_nlei-falnr * SS_AUTHCHECK = 'X' * SS_PURPOSE = '2' ss_testrun = 'X' * SS_ACT_COMPLETE = ' ' * SS_ACTNFAL = IMPORTING ss_retmaxtype = l_retmaxtype TABLES ss_rnlsr = lt_nlei_check[] * SS_RNLRG = * SS_ACTNLEI = * SS_ACTNNLZ = ss_actnbew = lt_vnbew "LI - 11398 * SS_ONLEI = * SS_NLEI = * SS_UNLEI = * SS_NNLZ = ss_return = lt_return[] .
ISH_CASESERVICE_CREATEMULTIPLE CALL FUNCTION 'ISH_CASESERVICE_CREATEMULTIPLE' EXPORTING ss_einri = l_einri ss_falnr = l_falnr ss_authcheck = 'X' * SS_PURPOSE = '2' ss_testrun = ' ' "Echtlauf!!! * SS_ACT_COMPLETE = ' ' * SS_ACTNFAL = IMPORTING ss_retmaxtype = l_retmaxtype TABLES ss_rnlsr = lt_nlei_single_case_save[] * SS_RNLRG = * SS_ACTNLEI = * SS_ACTNNLZ = * SS_ACTNBEW = * SS_ONLEI = * SS_NLEI = * SS_UNLEI = * SS_NNLZ = ss_return = lt_return[] .
YISHMED_VERBUCHER_n1dcsclass * call function 'YISHMED_VERBUCHER_n1dcsclass' ** EXPORTING ** I_O_Tn1dcsclass = ** I_Tn1dcsclass = ** I_VCODE_n1dcsclass = 'INS' * tables * t_xn1dcsclass = lt_vn1dcsclass[] ** T_Yn1dcsclass = * exceptions * no_insert = 1 * no_update = 2 * no_storn = 3 * no_delete = 4 * others = 5 .
ISH_VERBUCHER_NLEI CALL FUNCTION 'ISH_VERBUCHER_NLEI' EXPORTING * DATUM = SY-DATUM tcode = sy-tcode * UNAME = SY-UNAME * UPD_HCO = 'X' * UZEIT = SY-UZEIT * EAUFN_CHANGE = '0' TABLES xnlei = lt_vnlei[] ynlei = lt_o_vnlei[] EXCEPTIONS OTHERS = 1.
ISHMED_UPDATE_NLEM CALL FUNCTION 'ISHMED_UPDATE_NLEM' EXPORTING * DATUM = SY-DATUM tcode = sy-tcode * UNAME = SY-UNAME * UZEIT = SY-UZEIT TABLES nnlem = lt_vnlem[] onlem = lt_o_vnlem[] EXCEPTIONS OTHERS = 1.
ISHMED_UPDATE_N1LSSTZ CALL FUNCTION 'ISHMED_UPDATE_N1LSSTZ' EXPORTING * DATUM = SY-DATUM tcode = sy-tcode * UNAME = SY-UNAME * UZEIT = SY-UZEIT TABLES nn1lsstz = lt_vn1lsstz[] on1lsstz = lt_o_vn1lsstz[] EXCEPTIONS OTHERS = 1.
ISHMED_UPDATE_NLLZ * call function 'ISHMED_UPDATE_NLLZ' "LI* ID10653 CALL FUNCTION l_fub_update_nllz "LI ID10653 EXPORTING * DATUM = SY-DATUM tcode = sy-tcode * UNAME = SY-UNAME * UZEIT = SY-UZEIT TABLES nnllz = lt_new_vnllz[] onllz = lt_old_vnllz[] EXCEPTIONS OTHERS = 1.
SAVE_TEXT CALL FUNCTION 'SAVE_TEXT' EXPORTING * CLIENT = SY-MANDT header = thead * INSERT = ' ' * SAVEMODE_DIRECT = ' ' * OWNER_SPECIFIED = ' ' IMPORTING function = l_loc_function newheader = thead TABLES lines = tline EXCEPTIONS id = 1 language = 2 name = 3 object = 4 OTHERS = 5.
INIT_TEXT CALL FUNCTION 'INIT_TEXT' EXPORTING id = ithead-tdid language = ithead-tdspras name = ithead-tdname object = ithead-tdobject IMPORTING header = ithead TABLES lines = tline EXCEPTIONS id = 1 language = 2 name = 3 object = 4 OTHERS = 5.
DELETE_TEXT CALL FUNCTION 'DELETE_TEXT' EXPORTING * CLIENT = SY-MANDT id = ithead-tdid language = ithead-tdspras name = ithead-tdname object = ithead-tdobject savemode_direct = on " ID 19004 Pelikan 29.12.2005
RENAME_TEXT CALL FUNCTION 'RENAME_TEXT' EXPORTING id = ithead-tdid language = ithead-tdspras name = ithead-tdname newname = thead-tdname object = ithead-tdobject * RENAME_REFERENCES = ' ' EXCEPTIONS not_found = 1 OTHERS = 2.
RENAME_TEXT CALL FUNCTION 'RENAME_TEXT' EXPORTING id = ithead-tdid language = ithead-tdspras name = ithead-tdname newname = thead-tdname object = ithead-tdobject * RENAME_REFERENCES = ' ' EXCEPTIONS not_found = 1 OTHERS = 2.
DELETE_TEXT CALL FUNCTION 'DELETE_TEXT' EXPORTING * CLIENT = SY-MANDT id = thead-tdid language = thead-tdspras name = thead-tdname object = thead-tdobject * SAVEMODE_DIRECT = ' ' * TEXTMEMORY_ONLY = ' ' EXCEPTIONS not_found = 1 OTHERS = 2.
DELETE_TEXT CALL FUNCTION 'DELETE_TEXT' EXPORTING * CLIENT = SY-MANDT id = thead-tdid language = thead-tdspras name = thead-tdname object = thead-tdobject * SAVEMODE_DIRECT = ' ' * TEXTMEMORY_ONLY = ' ' EXCEPTIONS not_found = 1 OTHERS = 2.
DELETE_TEXT CALL FUNCTION 'DELETE_TEXT' EXPORTING * CLIENT = SY-MANDT id = thead-tdid language = thead-tdspras name = thead-tdname object = thead-tdobject * SAVEMODE_DIRECT = ' ' * TEXTMEMORY_ONLY = ' ' EXCEPTIONS not_found = 1 OTHERS = 2.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING * DEFAULTOPTION = 'Y' textline1 = l_question * ID12180 SCHWM Ins 240603 Daten save n鰐ig!! * TEXTLINE2 = ' ' titel = 'Eintr鋑e l鰏chen'(d00) * START_COLUMN = 25 start_row = 10 * CANCEL_DISPLAY = 'X' IMPORTING answer = l_answer EXCEPTIONS OTHERS = 1.
Z_KH_LOGIN_CHECK
ISH_CASESERVICE_POOL_REFRESH CALL FUNCTION 'ISH_CASESERVICE_POOL_REFRESH' EXPORTING ss_einri = g_act_nfal-einri ss_falnr = g_act_nfal-falnr .
ISH_PERFORM_SCORING_SYNCHRON CALL FUNCTION 'ISH_PERFORM_SCORING_SYNCHRON' EXPORTING einri = g_einri falnr = g_act_nfal-falnr TABLES india = lt_score[] inbew = lt_xnbew[] EXCEPTIONS OTHERS = 1.
ISH_AT_SCO_ONLINE * call function 'ISH_AT_SCO_ONLINE' * exporting * i_einri = g_einri * i_falnr = falnr * i_save_data = on * i_scor_dialog = on * i_vcode = g_vcode_case * importing * e_scor_saved = l_scor_saved * tables * it_nbew = lt_xnbew[] * ct_vndia = lt_score[].
ISH_CHECK_AUTHORITY_ANFOE CALL FUNCTION 'ISH_CHECK_AUTHORITY_ANFOE' EXPORTING actvt = display anfoe = p_nlei-anfoe einri = p_nlei-einri messagetype = ' ' IMPORTING auth_anfoe = auth_ok EXCEPTIONS no_check_object = 1 OTHERS = 2.
ISH_CHECK_AUTHORITY_ANPOE CALL FUNCTION 'ISH_CHECK_AUTHORITY_ANPOE' EXPORTING actvt = display einri = p_nlei-einri anpoe = p_nlei-anpoe messagetype = ' ' IMPORTING auth_anpoe = auth_ok EXCEPTIONS no_check_object = 1 OTHERS = 2.
ISH_CHECK_AUTHORITY_ERBOE CALL FUNCTION 'ISH_CHECK_AUTHORITY_ERBOE' EXPORTING actvt = display einri = p_nlei-einri erboe = p_nlei-erboe messagetype = ' ' IMPORTING auth_erboe = auth_ok EXCEPTIONS no_check_object = 1 OTHERS = 2.
扫一扫
6万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
