Sample Script

The script contains the following information:

A sample statement written in the calling routine.
Variables set in the calling routine and passed to the Pro_Rata_Ratio function.

Variable names in the calling routine set to be the same as the Pro_Rata_Ratio function.

Sub Calculate()
Dim Destination  'Destination POV
Dim SourceN      'Source Numerator POV 
Dim SourceD      'Source Denominator POV 
Destination = "A#MarginPct"
SourceN = "A#GrossMargin"
SourceD = "A#TotalRevenues	"
Call Pro_Rata_Ratio(Destination,SourceN,SourceD)
End Sub
' Beginning of the Pro_Rata_Ratio function
Sub Pro_Rata_Ratio(Destination,SourceN,SourceD)
HS.EXP Destination & " = " & SourceN & " / " & SourceD
End Sub