USES Common/std;
USES Common/Converters;
USES Common/CommonUtil;
USES Common/ModelDataRetreive;
USES Common/StringUtil;

proc main()
  Init();
  info = "UML check STARTED at \t"time()"\n";
  UnspecifiedDictionaryItems();
  info = "UML check STOPPED at \t"time()"\n";
end proc

proc Init()
	//Language
	setLanguage("SQL");
	mkdir([OutputDir]);
	setOutput( [OutputDir] "/" "UnSpecifiedDictionaryItems.bat" );
	info = "Output generatig into: " [OutputDir] "/" "UnSpecifiedDictionaryItems.bat\n";	

end proc

proc UnspecifiedDictionaryItems()
    loop (Instances -> MClass Where(getStereotype([MClass]) == "Entity" ) )
        loop( MClass -> MAttribute Where (([MAttribute.type] == "DictionaryItem") and ([MAttribute.defaultValue] == "") ) )
            info = [MClass.name] "." [MAttribute.name] ":" [MAttribute.defaultValue]"\n";
            out = "echo " [MClass.name] "." [MAttribute.name] "\n";
            GenerateEditorNavigation([MAttribute.guid]);
        end loop
    end loop
end proc