Ejemplo n.º 1
0
        public void Read()
        {
            foreach (var item in _db.Surgeons.ToList())
            {
                if (item.LoginId == LoginController.LoggedInUser)
                {
                    SiD = item.SurgeonId;
                }
            }

            foreach (var item in _db.Procedures)
            {
                if (SiD == item.SurgeonId)
                {
                    ProcedureList.Add(item);
                }
            }

            foreach (var item in _db.Anesthetists)
            {
                AnesthetistList.Add(item);
            }

            foreach (var item in _db.Nurses)
            {
                NurseList.Add(item);
            }
        }
Ejemplo n.º 2
0
        public Procedure AddProcedure(string name, string procedureName = "")
        {
            var item = new Procedure(GenDataBase)
            {
                GenObject     = ((GenObject)GenObject).CreateGenObject("Procedure"),
                Name          = name,
                ProcedureName = procedureName
            };

            ProcedureList.Add(item);
            return(item);
        }
Ejemplo n.º 3
0
 private ProcedureList ListProcedures(Script script, Regex pattern) {
     var procedures = new ProcedureList();
     foreach(Module _mod in _compiler.Modules){
         foreach (IScriptProcedure proc in _mod.Procedures) {
         var proc_name = proc.Name;
         switch (proc_name.ToLower()) {
             case "initialize": procedures.ProcInitialize = new ProcedureItem(_mod, proc_name); break;
             case "terminate": procedures.ProcTerminate = new ProcedureItem(_mod, proc_name); break;
             case "setup": procedures.ProcSetup = new ProcedureItem(_mod, proc_name); break;
             case "teardown": procedures.ProcTearDown = new ProcedureItem(_mod, proc_name); break;
             case "onerror": procedures.ProcOnError = new ProcedureItem(_mod, proc_name); break;
             case "iif": break;
             default:
                 if (proc.HasReturnValue) continue;
                 if (!pattern.IsMatch(proc_name)) continue;
                 ProcedureStringParams proc_params_str;
                 if (script.ProceduresParams.TryGetValue(proc_name, out proc_params_str)) {
                     if (!_compiler.Eval("Array(" + proc_params_str.Params + ')')) {
                         var error = new ScriptError(script, new ProcedureItem(_mod, proc_name), "Invalide array: " + proc_params_str.Params);
                         error.AddTraceLine(script, proc_params_str.Line);
                         OnError(error);
                         continue;
                     }
                     var proc_params = (object[])_compiler.Result;
                     foreach (var p in proc_params) {
                         var proc_args = p is object[] ? (object[])p : new object[1]{ p };
                         if (proc_args.Length == proc.NumArgs) {
                             procedures.Add(_mod, proc_name, proc_args);
                         } else {
                             var error = new ScriptError(script, new ProcedureItem(_mod, proc_name), string.Format("Procedure {0} requires {1} argument(s). {2} provied.", proc_name, proc.NumArgs, proc_args.Length));
                             error.AddTraceLine(script, script.TextFormated.GetLineNumber("(Sub|Function).\b" + proc_name + "\b"));
                             OnError(error);
                             break;
                         }
                     }
                 } else if (proc.NumArgs == 0) {
                     procedures.Add(_mod, proc_name, new object[0]);
                 }
                 break;
             }
         }
     }
     return procedures;
 }