Adding status history to a report

A macro can be included in the site.dot template to copy the status line and create a history of statuses in a report. This history is created where the REPORTSTATUS bookmark exists in the Radiology template. For example:

Report status: REPORT VALIDATED / Phys. Doctor name ,  
Report status: PARTIALLY VALIDATED / Phys. Doctor name ,  
Report status: MODIFIED / Phys. Doctor name ,  
Report status: PRELIMINARY / Phys. Doctor name ,

To add status history to a report

In QManager, set the LETTER.ALWAYS_ADD_STATUS_LINE parameter to 1.
For the LETTER.TEXT_REPORTVALSTATUS parameter, provide a report status line that will display in the report.
In the Radiology template, create the REPORTSTATUS bookmark, if it does not already exist.
Open the site.dot template.

In the ReportingHooks macro, call the StatusLine macro:

Sub BeforeInsertingStatusLine()
Call StatusLine
End Sub

In the UserMacro module, add the Sub StatusLine:

Sub StatusLine()
'
' StatusLine Macro to copy the statusline
'
    If ActiveDocument.Bookmarks.Exists("REPORTSTATUS") Then
    Selection.GoTo What:=wdGoToBookmark, Name:="REPORTSTATUS"
    Selection.Find.ClearFormatting
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.TypeBackspace
    'Selection.InsertDateTime DateTimeFormat:="dd-MM-yy", InsertAsField:=False, _
         'DateLanguage:=wdDutch, CalendarType:=wdCalendarWestern, _
         'InsertAsFullWidth:=False
    End If
End Sub

Test the changes.