📄 measles_cb_gui.mnu

📁 EpiInfo 开源的导航系统远程序,不知道在哪里下的了,分享一下,有兴趣的
💻 MNU
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
	
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

M_MAP_Dist_With_At_Least_1_Time_Interval
BEGIN
	CALL SUB_TABLE_Measles
	
	DIALOG "Please type in the start date for the report in the format DD-MM-YYYY", Measles_DATE_START, FORMAT=##/##/####, TITLETEXT="Report Start Date Setup"
	DIALOG "Please type in th end date for the report in the format DD-MM-YYYY", Measles_DATE_END, FORMAT=##/##/####, TITLETEXT="Report End Date Setup"

	Assign NAME_PARAMETER=""
	Assign SELECTION_PROCESS="Single source pgm"
	Assign SELECTION_PROCESS_SUB=""
	Assign NAME_FILE_SOURCE="M_Dist_At_Least_1_Spec_Time_Interval"
	Assign TEMPLATE_MAIN_TITLE="Districts (in white) with no case with a lab specimen in past 36 months [@@DATE_SYSTEM ] - [@@NAME_COUNTRY ]"
	Assign COUNT_JUST_A_NUMBER=3	
	Assign NAME_FIELD_LABEL="in last 36 months"
	Assign NAME_TEMPLATE="@@PATH_APPLICATION Template\Map\M_Dist_At_Least_1_Spec"
	
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

**** End of Analysis ****


****************************
* Begin of Feedforward
****************************
Feed_Forward
BEGIN
 	Assign SELECTION_PROCESS="Feed_Forward"
	Assign PATH_APPLICATION=@@PATH_SHARED
	Assign NAME_TABLE="@@PATH_SHARED Database\Utility.mdb':FeedForward"
	Assign NAME_MDB="Utility"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

EI_Feed_Forward
BEGIN
	Execute FeedForward.exe
END
**** End of Merge_Feedforward ****



************************
* Begin of Utility/SetUp 
************************
U_Run_Setup
BEGIN
	REPLACE %MenuDir%,@@MenuDir; %DATE_END%,@@DATE_END; %DATE_START%,@@DATE_START; FROM @@MenuDir \Shared\Source\Setup.SRC TO @@MenuDir \Shared\PGM\Setup.PGM
	EXECUTE Analysis.exe '@@PATH_SHARED PGM\Setup.PGM'
	
	WaitforExit Analysis.exe
	Assign SELECTION_PROCESS="GUI Refresh"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

U_Data_Update
BEGIN
	CALL SUB_TABLE_Measles
	Assign SELECTION_PROCESS="DATA_PROCESSING"
	Execute @@PATH_APPLICATION Application\Measles_CB_Process.exe
END

Load_Measles_Data
BEGIN
	SetDOSWin Hide
	Copy @@PATH_APPLICATION Database\measles.mdb @@PATH_APPLICATION BACKUP\measles@@SYSTEMDATE .mdb
	
	FILEDIALOG NAME_DATABASE, "EpiInfo/Access(*.MDB)|*.mdb", "C:\"
	Assign NAME_TABLE="@@NAME_DATABASE ':Genericcasebased"
	Assign NAME_TABLE_DATA_ENTRY="@@PATH_APPLICATION Database\Measles.mdb':GenericCaseBased"
	Assign NAME_FILE_SOURCE="Load_New_Data"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="IDNumber :: IDNumber AND NamesOfPatient :: NamesOfPatient AND DateOfonset :: DateOfOnset"
	
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Load_Utility_Data
BEGIN
	FILEDIALOG NAME_DATABASE, "EpiInfo/Access(*.MDB)|*.mdb", "C:\"
	Assign NAME_TABLE="@@NAME_DATABASE ':Genericcasebased"
	Assign NAME_TABLE_DATA_ENTRY="@@PATH_APPLICATION Database\Measles.mdb':GenericCaseBased"
	Assign NAME_FILE_SOURCE="Load_New_Data"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign NAME_PARAMETER=""
	Execute @@PATH_SHARED Application\Shared_Process.exe
END
  
U_update_country_tables
BEGIN
	Assign SELECTION_PROCESS="U_update_code_tables"
	Assign PATH_APPLICATION=@@PATH_MEASLES
	Assign NAME_TABLE="@@PATH_SHARED Database\Utility.MDB':country"
	Assign NAME_DATABASE="Measles"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

U_update_province_tables
BEGIN
	Assign SELECTION_PROCESS="U_update_code_tables"
	Assign PATH_APPLICATION=@@PATH_MEASLES 
	Assign NAME_TABLE="@@PATH_SHARED Database\Utility.MDB':province"
	Assign NAME_DATABASE="Measles"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

U_update_district_tables
BEGIN
	Assign SELECTION_PROCESS="U_update_code_tables"
	Assign PATH_APPLICATION=@@PATH_MEASLES 
	Assign NAME_TABLE="@@PATH_SHARED Database\Utility.MDB':district"
	Assign NAME_DATABASE="Measles"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Export_Excel
BEGIN
	Assign NAME_DATABASE="Measles"
	Assign SELECTION_PROCESS="Export_Excel"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Backup_Data
BEGIN
 Assign SELECTION_PROCESS="Backup" 
 Execute @@PATH_SHARED Application\Shared_Process.exe
END


AddDistrictsForCurrentYear
BEGIN
	Assign SELECTION_PROCESS="Single pgm"
	Assign SELECTION_PROCESS_SUB="Shared"
	Assign NAME_FILE_SOURCE="AddDistrictsForCurrentYear"
	
   	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Date_Format
BEGIN
	Execute @@PATH_SHARED Application\EAS.exe
END

Delete_Vars
BEGIN
	Execute @@PATH_SHARED Application\EIini.exe /s
END

Delete_Records
BEGIN
	Assign NAME_TABLE_DATA_ENTRY="@@PATH_Measles Database\Measles.mdb':GenericCaseBased"
	Assign NAME_FILE_SOURCE="Delete_All_Records"
	Assign SELECTION_PROCESS="Single source pgm"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Load_Data
BEGIN
	Assign PATH_APPLICATION=@@PATH_Measles
	FILEDIALOG NAME_DATABASE, "EpiInfo/Access(*.MDB)|*.mdb", "@@PATH_Measles Backup\"
	Assign NAME_TABLE="@@NAME_DATABASE ':GenericCaseBased"
	Assign NAME_TABLE_DATA_ENTRY="@@PATH_Measles Database\Measles.mdb':GenericCaseBased"
	Assign MERGE_KEYS="DistrictofResidence::DistrictofResidence AND ProvinceOfResidence::ProvinceOfResidence AND DateOfonset::DateOfonset"
	
	Assign NAME_FILE_SOURCE="Merge_OldData"
	Assign SELECTION_PROCESS="Single source pgm"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Utility_Merge_OldData
BEGIN
	Assign PATH_APPLICATION=@@PATH_SHARED
	Assign SELECTION_PROCESS_SUB="Shared" 
	FILEDIALOG NAME_DATABASE, "EpiInfo/Access(*.MDB)|*.mdb", "D:\"
	Assign NAME_TABLE="@@NAME_DATABASE ':HealthFacility"
	Assign NAME_TABLE_DATA_ENTRY="@@PATH_SHARED Database\Utility.MDB':viewHealthFacility"
	Assign MERGE_KEYS="HealthFacility_Name::HealthFacility_Name AND Year::Year"
	
	Assign NAME_FILE_SOURCE="Merge_OldData"
	Assign SELECTION_PROCESS="Single source pgm"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

**** End of Utility/Setup ****


****************************
* Begin of Epi Info programs
****************************
MakeView
BEGIN
	Execute MakeView.EXE
END

Enter
BEGIN
	Execute Enter.EXE
END

Analysis
BEGIN
	Execute Analysis.EXE
END

ReportEngine
BEGIN
	Execute EpiRepGen.EXE
END

EpiMap
BEGIN
	Execute EpiMap.EXE
END

VisualizeData
BEGIN
	Execute visdata.exe
END
 
StatCalc
BEGIN
	Execute Statcalc.exe
END

InstallLanguage
BEGIN
	Execute TSETUP.EXE
END

ChooseLanguage
BEGIN
	SETLANGUAGE
END


**** End of Epi Info programs ****

***************
* Begin of Help
***************
Contents
BEGIN
	Help EIHelp.chm#/Introduction_to_Epi_Info_for_Windows/First_Topic.htm
END

Surv_Help
BEGIN
	Execute @@PATH_SHARED Documentation\Zambia Data Management System Tutorial.doc
END

Ad_Hoc_Analysis_Help
BEGIN
	Execute @@PATH_MEASLES Documentation\Help\Global Measles Ad Hoc Analysis.doc
	*Execute @@PATH_MEASLES Documentation\Help\Global Measles Ad Hoc Analysis.htm#_Time_interval_selection
	*Execute @@PATH_MEASLES Documentation\Help\Global Measles Ad Hoc Analysis.htm
END

About
BEGIN
	About
END

WordPad
BEGIN
	Execute wordpad.exe
END

**** End of Help ****

************************
* Begin of Sub Functions 
*************************
SUB_INITIALIZE
BEGIN
	Assign NAME_INDICATOR_TYPE=""
	Assign SELECTION_PROCESS_SUB=""
	Assign NAME_FIELD_VALUE=""
	Assign NAME_FIELD_DENOMINATOR=""
END

*SUB_Measles_IgM
*BEGIN
*	CALL SUB_TABLE_Measles
	
*	Assign SELECTION_PROCESS="Table"
*	Assign NAME_FILE_SOURCE="M_TAB_Lab_Results"
	
*	Assign NAME_FIELD_NAME="MeaslesIgm"
*	Assign NAME_TEMPLATE="M_TAB_Lab_Results"
*END

SUB_TABLE_Measles
BEGIN
	CALL SUB_INITIALIZE
	Assign PATH_APPLICATION=@@PATH_Measles
	Assign NAME_TABLE_DATA_ENTRY="@@PATH_Measles Database\Measles.mdb':GenericCaseBased"
	Assign NAME_TABLE="@@PATH_SHARED Database\Output.MDB':Measles"
	Assign NAME_FIELD_DATE="DateOfOnset"
	Assign NAME_DATABASE="Measles"
	Assign NAME_DATA_PROCESS="C_Blank"
	Assign NAME_DATA_PROCESS_APPLICATION="M_Data_Processing"
        Assign TEMPLATE_SUB_TITLE="From @@DATE_START   to @@DATE_END "
        *Assign TEMPLATE_SUB_TITLE="From @@DATE_START_MONTH /@@DATE_START_YEAR  to @@DATE_END_MONTH /@@DATE_END_YEAR "
END

SUB_GRAPH_BY_TIME
BEGIN
	If SELECTION_BY_TIME="year" Then
		Assign NAME_TEMPLATE="Bar_By_Year@@NAME_INDICATOR_TYPE .CHT"
		Assign GRAPH_TYPE="Bar"
	Endif
	
	If SELECTION_BY_TIME="month" Then
		Assign NAME_TEMPLATE="Line_By_Month@@NAME_INDICATOR_TYPE .CHT"
		Assign GRAPH_TYPE="Line"
	Endif
	
	If SELECTION_BY_TIME="quarter" Then
		Assign NAME_TEMPLATE="Line_By_Quarter@@NAME_INDICATOR_TYPE .CHT"
		Assign GRAPH_TYPE="Line"
	Endif
	
	If SELECTION_BY_TIME="week" Then
		Assign NAME_TEMPLATE="Line_By_Week@@NAME_INDICATOR_TYPE .CHT"
		Assign GRAPH_TYPE="Line"
	Endif
END
	

                                                     
**** End of Sub Functions ****

*End of Menu
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -