Datasheet

RAIS 3.0 Programmer’s Guide – Part I : Advanced Customization
26
Exit Function
Dim r
Dim d
Dim k
Dim a
Dim m
r = DFirst("[System Region]", "[System - State]")
If r <> "" Then r = "-" & r
d = DFirst("[System district]", "[System - State]")
If d <> "" Then d = "-" & d
Forms.input.Form.[ChildForm].Form.[Details].Controls("Regulatory Authority Number")
= " "
k = Forms.input.Form.[ChildForm].Form.[Details].Controls("PK Facility ID")
a = DFirst("[v]", "RAN - Facility")
If IsNumeric(a) Then
If a + 1 > k Then k = a + 1
End If
k = "-" & k
BuildFacilityRAN = "FAC" & r & d & k
End Function
As we can see, the function simply returns an empty string, i.e. no calculation is executed.
Please ignore the rest of RAN functions, this is old code resulting from an abandoned
approach. For setting up RAIS 3.0 in a multi-site environment, a first approach was to match
sites with both regions and districts. As this approach was not fully compliant with all
countries and neither developers nor the IAEA did want to impose the structure of RANs to
countries, earlier implementations of RANs have been disabled. Hence, these functions in
fact contain no code at all in the original RAIS 3.0 distribution, all RAN functions return
empty strings.
Let us however come back to this approach, just for the purpose of an example. Let us
assume that RANs for facilities shall contain identifiers of region and districts
When entering new facilities, the RAIS 3.0 Interface expects us to have already selected for a
region and a district (if applicable). Both of these values are stored in the variables
forms![input]![region id] and forms![input]![district id] respectively. Then our RAN for
facilities can be defined like this:
FAC-r-d-n
where r is the code of the region, d the code of the district and n an automatic number of the
facility.