Sub InstallCheckRepairProgram (session As NotesSession, doc_setup As NotesDocument, doc_user As NotesDocument)
	Dim command_line As String
	Dim enable As String
	Dim notes_ini_path As String
	Dim notes_exe_path As String
	Dim dskmgr_db_path As String
	
	' ##  Install a Program document to Check & Repair damaged DskMgr Installation
	Call dmDskMgrLogLine ("     - Install Check & Repair Program document in Local NAB")
	If doc_setup.SETUP_CheckInstall(0) = "1" Then enable = "1" Else enable = "0"
	notes_ini_path = GetNotesIniPath
	notes_exe_path = GetNotesPath + "Notes.exe"
	dskmgr_db_path = doc_user.DskMgrServer(0)
	If doc_user.DskMgrServer(0) <> "" Then dskmgr_db_path = dskmgr_db_path + "!!" 
	dskmgr_db_path = dskmgr_db_path + doc_user.DskMgrDatabase(0)
	
	' # Create Program document in the local NAB, using tiny path
	'command_line = "-RUN " + doc_setup.SETUP_CheckInstallDay(0) + " """ + dmBuildTinyPath(notes_ini_path) + """ """  + dmBuildTinyPath(notes_exe_path) + """ """ + dskmgr_db_path + """"
	command_line = "-RUN " + doc_setup.SETUP_CheckInstallDay(0) + " """ + dmBuildTinyPath(notes_ini_path) + """"
	Call dmUCP("UpdateProgramDocument","DskMgr.exe",command_line,session.UserName,enable,"Force Desktop Manager to run at least once a week & repair damaged installation",doc_setup.SETUP_CheckInstallHour(0),"CheckRepairDskMgr","","","","","","","","")
	
	' # Create the Notes.ini line to prevent the truncature of 80 characters in the Program document parameter line
	command_line = "-RUN " + doc_setup.SETUP_CheckInstallDay(0) + " """ + notes_ini_path + """ """  + notes_exe_path + """ """ + dskmgr_db_path + """"
	Call dmSetDskMgrParam(session,"DskMgrProgram",command_line)
	
End Sub