!*******************************************************************************
! umfunc2.sqc                                                                  *
!*******************************************************************************
! Description:       UMS procedures and functions                              *
! Owner:             University of Maine System                                *
! Frequency:         N/A                                                       *
!*******************************************************************************
! Specifications By: Matt Byther                                               *
! Date:              October 23, 2002                                          *
!*******************************************************************************
! Created By:        Matt Byther                                               *
! Date:              October 23, 2002                                          *
!*******************************************************************************
!                              MODIFICATION LOG                                *
!*******************************************************************************
! Mod #    Programmer                  Date                                    *
! ------   ----------                  ----                                    *
!                                                                              *
!*******************************************************************************



!*******************************************************************************
! Setup-Report-Heading Procedure                                               *
!*******************************************************************************

Begin-Procedure Setup-Report-Heading($business_unit)
   let $_Report_busunit = $business_unit
End-Procedure Setup-Report-Heading

!*******************************************************************************
! Set-Report Procedure                                                         *
!*******************************************************************************
Begin-Procedure Set-Report($Business_unit)

#ifdef UM_REPORT_OPTION
   Evaluate $Business_Unit
   when = 'BUSALL'
   when = 'UMSALL'
      use-report BUSALL
      break

#if UM_REPORT_OPTION = 'MULTIPLE'
   when = 'UMS01'
   when = 'PSDEV'
      use-report BUS01
      break
   when = 'UMS02'
   when = 'EGVBU'
      use-report BUS02
      break
   when = 'UMS03'
      use-report BUS03
      break
   when = 'UMS04'
      use-report BUS04
      break
   when = 'UMS05'
      use-report BUS05
      break
   when = 'UMS06'
      use-report BUS06
      break
   when = 'UMS07'
      use-report BUS07
      break
   when = 'UMS08'
      use-report BUS08
      break
   when = 'UMS09'
      use-report BUS09
      break
#end-if
   when-other
      use-report BUSALL
   end-evaluate
#end-if

End-Procedure Set-Report


!***********************************************************************
! Get-Campus-Letter Procedure
!***********************************************************************
Begin-Procedure Get-Campus-letter($In_Busunit,:$Campus_Letter)

evaluate $In_Busunit
	when = 'UMS01'                      !* Augusta
		let $Campus_Letter = 'A'
		break
	when = 'UMS02'                      !* Farmington
		let $Campus_Letter = 'F'
		break
	when = 'UMS03'                      !* Fort Kent
		let $Campus_Letter = 'K'
		break
	when = 'UMS04'                      !* Machias
		let $Campus_Letter = 'M'
		break
	when = 'UMS05'                      !* Orono
		let $Campus_Letter = 'O'
		break
	when = 'UMS06'                      !* USM
		let $Campus_Letter = 'P'
		break
	when = 'UMS07'                      !* Presque Isle
		let $Campus_Letter = 'I'
		break
	when = 'UMS08'                      !* SWS / Chancellors office
		let $Campus_Letter = 'S'
		break
	when = 'UMS09'                      !* UC Outreach
		let $Campus_Letter = 'S'
		break
	when-other
		let $Campus_Letter = ''
end-evaluate

end-procedure Get-Campus-letter


!***********************************************************************
! Translate-Campus-Letter Procedure
!***********************************************************************
Begin-Procedure Translate-Campus-letter($In_Campus_Letter, :$Out_Business_unit)

evaluate $In_Campus_Letter
	when = 'A'                         !* Augusta
		let $out_business_unit = 'UMS01'
		break
	when = 'F'                         !* Farmington
		let $out_business_unit = 'UMS02'
		break
	when = 'K'                         !* Fort Kent
		let $out_business_unit = 'UMS03'
		break
	when = 'M'                         !* Machias
		let $out_business_unit = 'UMS04'
		break
	when = 'O'                         !* Orono
		let $out_business_unit = 'UMS05'
		break
	when = 'P'                         !* USM
		let $out_business_unit = 'UMS06'
		break
	when = 'I'                         !* Presque Isle
		let $out_business_unit = 'UMS07'
		break
	when = 'S'                         !* SWS / Chancellors office
		let $out_business_unit = 'UMS08'
		break
	when = 'A'                         !* UCB
		let $out_business_unit = 'UMS09'
		break
	when-other
		let $out_business_unit = ''
end-evaluate

end-procedure Translate-Campus-letter