Function admission program(Pat ID)

Function admission_program(Pat ID) returns the program that an admission ID is part of. This used to be provided by Settings, but that was per-laptop, and Change to having each collector collect both programs on the same laptop meant that we needed to have a per-admission based program definition.