measles_cb_gui.mnu

EpiInfo 开源的导航系统远程序,不知道在哪里下的了,分享一下,有兴趣的

**== PLACE SELECTION ==
U_Selection_By_Country
BEGIN
	*Need delete this line in region system
	Assign NAME_COUNTRY="Burkina Faso"
	
	Assign SELECTION_BY_PLACE="Country_Name"
	Assign NAME_FILE_SHAPE="country"
	Assign SELECTION_PROCESS="GUI Refresh"
	Assign SELECTION_PLACE_DISPLAY="Selected geographic level = By country"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

U_Selection_By_Province
BEGIN
	Assign SELECTION_BY_PLACE="Province_Name"
	Assign NAME_FILE_SHAPE="province"
	Assign SELECTION_PROCESS="GUI Refresh"
	Assign SELECTION_PLACE_DISPLAY="Selected geographic level = By province"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

U_Selection_By_District
BEGIN
	Assign SELECTION_BY_PLACE="District_Name"
	ASSIGN NAME_FILE_SHAPE="district"
 	Assign SELECTION_PROCESS="GUI Refresh"
	Assign SELECTION_PLACE_DISPLAY="Selected geographic level = By district"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

U_Selection_By_HealthFacility
BEGIN
	Assign SELECTION_BY_PLACE="HealthFacility_Name"
	Assign NAME_FILE_SHAPE="HealthFacility"
	Assign SELECTION_PROCESS="GUI Refresh"
	Assign SELECTION_PLACE_DISPLAY="Selected geographic level = By health facility"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END


**== GRAPH TYPE SELECTION ==
U_Selection_By_Bar
BEGIN
	Assign GRAPH_TYPE="Bar"
	Assign SELECTION_PROCESS="GUI Refresh"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

U_Selection_By_Line
BEGIN
	Assign GRAPH_TYPE="Line"
	Assign SELECTION_PROCESS="GUI Refresh"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

U_Selection_By_Pie
BEGIN
	Assign GRAPH_TYPE="Pie"
	Assign SELECTION_PROCESS="GUI Refresh"
	Execute @@PATH_SHARED Application\Shared_Process.exe
	Exit
END

**** End of Time/Place ****


****************************
* Begin of Data Cleaning
****************************
Missing_Key_Variables
BEGIN
	CALL SUB_TABLE_Measles
		
	Assign SELECTION_PROCESS="Report"
	Assign SELECTION_PROCESS_SUB=""
	Assign NAME_FILE_SOURCE="Missing_Key_Variables"
	Assign NAME_TEMPLATE="M_Missing_Key_Variables"
	Assign TEMPLATE_MAIN_TITLE="Missing key variables list"

	Execute @@PATH_SHARED Application\Shared_Process.exe
	
	WaitForExist Analysis.exe
	SetDOSWin Hide
	COPY @@PATH_Measles Output\M_Missing_Key_Variables.htm @@PATH_Measles Output\Reports\M_Missing_Key_Variables.htm
END

Display_Missing_Key_Variables
BEGIN
	If Exists("@@PATH_Measles Output\Reports\M_Missing_Key_Variables.htm") Then
		Execute  @@PATH_Measles Output\Reports\M_Missing_Key_Variables.htm
	Else
		Dialog "Missing key variables report doesn't exist, please run first, then try it again"
	Endif
END	

Missing_Key_Variables_update
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FILE_SOURCE="Missing_Key_Variables_update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_FinalClassification_update
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FILE_SOURCE="Missing_FinalClassification_update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Pending_lab_result_update
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FILE_SOURCE="Pending_lab_result_update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_IDNumber
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="IDNumber"
	Assign NAME_FIELD_LABEL="missing ID number "
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_DateOnset
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="DateOfonset"
	Assign NAME_FIELD_LABEL="missing date of onset"
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_DateSpecimen
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="DateSpecimencollected"
	Assign NAME_FIELD_LABEL="missing date of specimen collected"
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_DateOfLastvaccination
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="DateOfLastvaccination"
	Assign NAME_FIELD_LABEL="missing date of last vaccination"
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_District_Res
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="DistrictofResidence"
	Assign NAME_FIELD_LABEL="missing district of the residence"
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_IgM_Results
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="MeaslesIgm"
	Assign NAME_FIELD_LABEL="missing Igm result"
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

Missing_Final_Class
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_PARAMETER="with time interval no auto exit"
	Assign NAME_FIELD_NAME="FinalClassification2"
	Assign NAME_FIELD_LABEL="missing final classification"
	Assign NAME_FILE_SOURCE="M_Missing_Key_Variables_Update"
	Assign SELECTION_PROCESS="Single source pgm"
	Assign MERGE_KEYS="DistrictofResidence :: DistrictofResidence AND NamesOfPatient :: NamesOfPatient AND DateReceivedNatlevel::DateReceivedNatlevel AND PatientsResidence::PatientsResidence"
	Execute @@PATH_SHARED Application\Shared_Process.exe
END
**** End of Data Cleaning ****


*********************
* Begin of Analysis
********************* 

                     *********************************************
                     *******Begining of Graphs procedures*********
	       *********************************************

M_Graph_Suspected_Cases
BEGIN
	CALL SUB_TABLE_Measles
	
     	Assign SELECTION_PROCESS="Graph"
     	Assign NAME_INDICATOR_TYPE="_Number"
	CALL SUB_GRAPH_BY_TIME
	
	Assign NAME_FILE_SOURCE="Graph"
	
	If SELECTION_BY_TIME="week" Then
		Assign TEMPLATE_MAIN_TITLE="Suspected measles cases by epidemiological @@SELECTION_BY_TIME "
	Else
		Assign TEMPLATE_MAIN_TITLE="Suspected measles cases by @@SELECTION_BY_TIME "
	Endif

	Execute @@PATH_SHARED Application\shared_Process.exe
END


M_Graph_Suspected_with_Lab_Speci_Cases
BEGIN
	CALL SUB_TABLE_Measles
	
	Assign NAME_INDICATOR_TYPE="_Number"
      	Assign SELECTION_PROCESS="Graph"
       	CALL SUB_GRAPH_BY_TIME
	
	Assign NAME_FILE_SOURCE="M_Graph_Suspected_with_Lab_Speci_Cases"
				
	If SELECTION_BY_TIME="week" Then
		Assign TEMPLATE_MAIN_TITLE="Suspected measles cases with lab specimen by epidemiological @@SELECTION_BY_TIME "
	Else
		Assign TEMPLATE_MAIN_TITLE="Suspected measles cases with lab specimen by @@SELECTION_BY_TIME "
	Endif
	
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

M_GRAPH_Confirmed_LabPlusCompatible_Cases
BEGIN
	CALL SUB_TABLE_Measles
        
	Assign NAME_INDICATOR_TYPE="_Number"
       	Assign SELECTION_PROCESS="Graph"
       	CALL SUB_GRAPH_BY_TIME
	
	Assign NAME_FILE_SOURCE="Data_Selection"
	Assign NAME_ANALYSIS_COMMAND = "Select finalclassification="1" or finalclassification="2" or finalclassification="3" "
	
	If SELECTION_BY_TIME="week" Then
		Assign TEMPLATE_MAIN_TITLE="Confirmed (lab & epi-linked & clinical/compatible) measles cases by epidemiological @@SELECTION_BY_TIME "
	Else
		Assign TEMPLATE_MAIN_TITLE="Confirmed (lab & epi-linked & clinical/compatible) measles cases by @@SELECTION_BY_TIME "
	Endif
	
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

M_GRAPH_Confirmed_LabPlusCompatible_Cases_2
BEGIN
	CALL SUB_TABLE_Measles
        
	Assign NAME_INDICATOR_TYPE="_Number"
       	Assign SELECTION_PROCESS="Graph"
       	CALL SUB_GRAPH_BY_TIME
	
	Assign NAME_FILE_SOURCE="Data_Selection"
	Assign NAME_ANALYSIS_COMMAND = "Select finalclassification="1" or finalclassification="2" "
	
	If SELECTION_BY_TIME="week" Then
		Assign TEMPLATE_MAIN_TITLE="Confirmed (lab & epi-linked) measles cases by epidemiological @@SELECTION_BY_TIME "
	Else
		Assign TEMPLATE_MAIN_TITLE="Confirmed (lab & epi-linked) measles cases by @@SELECTION_BY_TIME "
	Endif
	
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

M_GRAPH_LabConfirmedIgMPlus_Cases
BEGIN
	CALL SUB_TABLE_Measles
        	
	Assign NAME_INDICATOR_TYPE="_Number"
        Assign SELECTION_PROCESS="Graph"
        CALL SUB_GRAPH_BY_TIME
	
	Assign NAME_FILE_SOURCE="Data_Selection"
	Assign NAME_ANALYSIS_COMMAND = "Select MeaslesIgm="1" "
			
	If SELECTION_BY_TIME="week" Then
		Assign TEMPLATE_MAIN_TITLE="Lab-confirmed (IgM+) measles cases by epidemiological @@SELECTION_BY_TIME "
	Else
		Assign TEMPLATE_MAIN_TITLE="Lab-confirmed (IgM+) measles cases by @@SELECTION_BY_TIME "
	Endif
	        
	Execute @@PATH_SHARED Application\Shared_Process.exe
END

M_GRAPH_TotalConfirmed_Cases2
BEGIN
	CALL SUB_TABLE_Measles
	
       	Assign NAME_INDICATOR_TYPE=""
	CALL SUB_GRAPH_BY_TIME
	
	Assign SELECTION_PROCESS="Single source pgm"
	Assign NAME_PARAMETER="with time interval no auto exit"
	
	If SELECTION_BY_TIME="week" Then