!*******************************************************************************
! umhdra.sqc                                                                   *
!*******************************************************************************
! Description:       Standard setup for ums reports (portrait orientation)     *
!                    This  SQC is included in a setup section of a report      *
!                    Used by standard setup SQC's UMSET01 and UMSET02          *
! Owner:             University of Maine System                                *
! Frequency:         N/A                                                       *
!*******************************************************************************
! Specifications By: Matt Byther                                               *
! Date:              October 23, 2002                                          *
!*******************************************************************************
! Created By:        Matt Byther                                               *
! Date:              October 23, 2002                                          *
!*******************************************************************************
! Note: This include can be used to generate a standard heading for um reports
!       This SQC is called by UMHDR01

! Subsitution variable used:
!         UM_ORIENTATION       values: PORTRAIT, LANDSCAPE (default PORTRAIT)
!         UM_PRINTER_TYPE      values: HPLASER, LINEPRINTER (default HPLASER)
! Variables used:
!
! Variables Created:
!
!*******************************************************************************
!                              MODIFICATION LOG                                *
!*******************************************************************************
! Mod #    Programmer                  Date                                    *
! ------   ----------                  ----                                    *
!  ----     A.Martin				02/15/08 - Add Database name to Heading            *
!*******************************************************************************


   let $report_camp_label = 'Campus:'
   Evaluate $report_busunit
   when = 'UMS01'
      let $report_camp_name = 'University of Maine at Augusta'
      break
   when = 'UMS02'
      let $report_camp_name = 'University of Maine Farmington'
      break
   when = 'UMS03'
      let $report_camp_name = 'University of Maine Fort Kent'
      break
   when = 'UMS04'
      let $report_camp_name = 'University of Maine at Machias'
      break
   when = 'UMS05'
      let $report_camp_name = 'University of Maine'
      break
   when = 'UMS06'
      let $report_camp_name = 'University of Southern Maine'
      break
   when = 'UMS07'
      let $report_camp_name = 'University Maine Presque Isle'
      break
   when = 'UMS08'
      let $report_camp_name = 'University of Maine System'
      break
   when = 'UMS09'
      let $report_camp_name = 'University College Outreach'
      break
   when = 'UMSALL'
      let $report_camp_name = 'All Campuses'
      break
   when = ''
      let $report_camp_name = ''
      let $report_camp_label = ''
   when-other
      let $report_camp_name = $report_busunit
   end-evaluate
   let $report_sys_name = 'University of Maine System'

   ! SQR does not seem to center very well.  Calc center manually instead.
   let #rpt_col_c1 = round(( {ColR} - length(rtrim($report_sys_name,' '))) / 2,0)
   let #rpt_col_c2 = round(( {ColR} - length(rtrim($ReportTitle,' '))) / 2,0)
   let #rpt_col_c3 = round(( {ColR} - length(rtrim($report_camp_name,' '))) / 2,0)

	#if {UM_ORIENTATION} = 'PORTRAIT'
		let #RptCol = {ColR} - 19
	#else
		let #RptCol = {ColR} - 19
	#end-if

	print 'Date Run:'       					(1,1)
	print $ReportDate       					(+0,+1)
	print $report_sys_name                 (+0,#rpt_col_c1)
	print 'Report ID:'                     (+0,#rptCol)
	print $ReportID         					(+0,+1)

	print 'Time Run:'        					(+1,1)
	print $ReportTime       					(+0,+1)
	print $ReportTitle      					(+0,#rpt_col_c2)
	page-number             					(+0,#RptCol) 'Page No. '

  print $report_camp_label          (+1,1)
  print $report_busunit             ()
	print $Report_Camp_name						(+0,#rpt_col_c3)
	let $DB_ID  = substr($DBNAME,3,3)
	if $DB_ID <> 'PRD' 
	  print 'DataBase: '							(+0,#rptCol)
	  print $DBNAME										(+0,+1)
	end-if