function NewEntity input Integer PSNumberIn; input Real ETHCR "Entity Type HoldCostRate"; input Real ETVA "Entity Type VACost"; input Real ETNVA "Entity Type NVACost"; input Real ETW "Entity Type WaitCost"; input Real ETT "Entity Type TranCost"; input Real ETO "Entity Type OtherCost"; input Integer ETID "Entity Type ID"; input Real T "current time"; output Integer entity "reference to the new entity"; end NewEntity;