SAP ABAP IMG Activity SIMG_ISHMED_RAD_RPT0 (Results Management with MITRA PACS Broker)
Hierarchy
BBPCRM (Software Component) BBPCRM
   CRM (Application Component) Customer Relationship Management
     CRM_APPLICATION (Package) All CRM Components Without Special Structure Packages
       NMED (Package) R/3MED: Medical documentation GSD
IMG Activity
ID SIMG_ISHMED_RAD_RPT0 Results Management with MITRA PACS Broker  
Transaction Code S_KK4_96000402   IMG RAD Report 
Created on 20010312    
Customizing Attributes SIMG_ISHMED_RAD_RPT0   IS-H*MED RAD IC: Results Management with MSI 
Customizing Activity    
Document
Document Class SIMG   Hypertext: Object Class - Class to which a document belongs.
Document Name SIMG_ISHMED_RAD_RPT0    

The function module ISH_N2_RAD_MSI_SEND_REPORT reads the data of the findings document formats them in tabular form by attribute title and value, defines the MSI Message Header and creates an ASCII file. The file name follows the naming convention

<lnrls> <System Time hh:mm>.<msi >.

Example

Once the findings document has been release, send the findings report via MSI.

Excerpt from model document N7RADKAP, Include N7RADKAP_PAI

* set doc status

WHEN 'STAE' OR 'STAF'.

* Bsp.: Sende Befundbericht ans PACS bei Freigabe

IF ok-code = 'STAF'.

MOVE <primtab>-n2radbvma TO n7_vma.

* Zu sendende Felder inkludieren (Range table n7_rt_fields)

    ....   

n7_wa_rt_fields-sign = 'I'. n7_wa_rt_fields-option = 'EQ'.

n7_wa_rt_fields-low = 'N2RADBBEU'.

APPEND n7_wa_rt_fields TO n7_rt_fields.

n7_wa_rt_fields-sign = 'I'. n7_wa_rt_fields-option = 'EQ'.

n7_wa_rt_fields-low = 'N2RADBBEF'.

APPEND n7_wa_rt_fields TO n7_rt_fields.   

* Study Id aus dem RCC lesen

IF NOT n7_objrisclient IS INITIAL.

IF NOT n7_objrisclient->ref_rcc_studies IS INITIAL.

CALL METHOD n7_objrisclient->ref_rcc_studies->get_all_data

IMPORTING p_entry_t = n7_leist_t.

ENDIF.

ENDIF.

* Sendet ein Report je Leistungsnummer und Study Id

LOOP AT in_ndoc INTO n7_wa_ndoc.

READ TABLE n7_leist_t INTO n7_leist_line

WITH KEY patnr = n7_wa_ndoc-patnr

falnr = n7_wa_ndoc-falnr

lnrls = n7_wa_ndoc-lnrls

bezebene = 'S'.

IF sy-subrc = 0.

MOVE n7_leist_line-studyid TO n7_studyid.

REFRESH n7_ndoc. APPEND n7_wa_ndoc TO n7_ndoc.

CALL FUNCTION 'ISH_N2_RAD_MSI_SEND_REPORT'

EXPORTING

i_studyid            = n7_studyid

i_report_status    = 'APPROVED'

i_vma     = n7_vma

I_USE_PRESENTATION_SERVER    = SPACE

TABLES

i_ndoc    = n7_ndoc

i_fields     = n7_rt_fields

EXCEPTIONS

file_create_err    = 1

get_report_err    = 2

OTHERS        = 3.

ENDIF.

ENDLOOP.

ENDIF.

Requirements

The communication path between IS-H*MED RAD IC and MITRA PACS Broker is specified using the transaction "FILE". The standard logical file name is ISH_MED_RAD_MSI_FILE. If you wish, you can use another logical file name.

Standard settings

Recommendation

Activities

  • Use the PMD user exits to call the function module at the appropriate point. Regenerate the program (generate in main program), or regenerate the document category.

Business Attributes
ASAP Roadmap ID 204   Establish Functions and Processes 
Mandatory / Optional 2   Optional activity 
Critical / Non-Critical 2   Non-critical 
Country-Dependency A   Valid for all countries 
Assigned Application Components
Documentation Object Class Documentation Object Name Current line number Application Component Application Component Name
SIMG SIMG_ISHMED_RAD_RPT0 0 CI40000006 Communication 
Maintenance Objects
Maintenance object type    
History
Last changed by/on SAP  20010312 
SAP Release Created in 463