function print(config,msg){ config.document.getElementById(config.debugId).value+="\n"+msg; } function drawForm(par){ populateSourceTable(par); //populateSourceTableData let tableId="entryTable"; generateTable(par,"formDiv",tableId); generateRow(par,tableId,"User");//generateTableRow populateSelectTableEntry(par,"User");//populateTableRow , populateSelect generateRow(par, tableId,"Site"); generateRow(par, tableId, "FormStatus"); generateRow(par, tableId,"Crf"); populateSelectTableEntry(par,"Site"); populateSelectTableEntry(par,"FormStatus"); let formTableId="selectFormTable"; generateTable(par,"selectFormDiv",formTableId); generateRow(par,formTableId,par,"Form"); } function generateQConfig(listName){ let qConfig=new Object(); qConfig.containerPath="TECANT/Data"; qConfig.schemaName="lists"; qConfig.queryName=listName; return qConfig; } function sourceVar(crfEntryName,elementId,sourceName){ let f=new Object(); f.masterSelectVarName=crfEntryName; f.selectId=elementId; f.inputType="innerHTML"; f.sourceSelectVarName=sourceName; return f; } function getField(config, data, varName){ let debug=false; if (debug) print(config, "getField"); let fields=data.metaData.fields; for (f in fields){ if (debug) print(config,"Checking "+f+": name "+fields[f].name+"/"+varName); if (fields[f].name!=varName) continue; return fields[f]; } return null; } function generateHead(config, headDivName,divName,title){ print(config,"generateHead"); let tb=config.document.createElement('table'); tb.className='t2'; let row=tb.insertRow(); let cell=config.document.createElement('th'); row.appendChild(cell); cell.setAttribute("colspan","4"); cell.style.fontSize="20px"; cell.style.textAlign="center"; let cellData=config.document.createTextNode(title); cell.appendChild(cellData); cell=row.insertCell(); cell.style.fontSize="20px"; let input=config.document.createElement("input"); input.type="button"; input.value="Show"; input.id="toggle"+divName+"VisbilityButton"; input.onclick=function(){toggleVisibility(config,divName,input.id)}; cell.appendChild(input); config.document.getElementById(headDivName).appendChild(tb); print(config,"generateHead: Done"); } function toggleVisibility(config,divName,buttonName){ let x = config.document.getElementById(divName); if (x.style.display === "none") { x.style.display = "block"; config.document.getElementById(buttonName).value="Hide"; } else { x.style.display = "none"; config.document.getElementById(buttonName).value="Show"; } } function selectRowsSuccess(config,data){ print(config,"Select rows on "+data.queryName+" got "+data.rows.length+" rows."); } function selectRowsFailure(config,errorObj){ print(config,"selectRowsFail: "+errorObj.exception) } function populateSourceTable(par){ let debug=true; if (debug){ print(par.config,"populateSourceTable: Starting"); } let config=generateQConfig(par.source.queryName); config.schemaName=par.source.schemaName; if (!("source" in par)) return; if (debug){ print(par.config,"populateSourceTable ["+par.source.queryName+"]"); } config.success=function(data){populateSourceTableData(data,par)}; //config.success=function(data){selectRowsSuccess(par.config,data)}; config.failure=function(errorObj){selectRowsFailure(par.config,errorObj)}; LABKEY.Query.selectRows(config); } function populateSourceTableData(data,par){ let debug=true; if (debug){ print(par.config, "populateSourceTableData: nrow: "+data.rows.length); } let entry=data.rows[0]; for (let i=0;i < par.source.vars.length;i++){ let srcVarName=par.source.vars[i]; if (debug){ print(par.config, "populateSourceTable ["+srcVarName+"]"); } let row=par.vars[srcVarName]; let el=par.config.document.getElementById(row.selectId); if (debug){ print(par.config, "Element: "+el); } el.innerHTML=entry[row.sourceSelectVarName]; } } function generateTable(par,divName,elementId){ let debug=true; if (debug) print(par.config,"generateTable"); let tb=par.config.document.createElement('table'); tb.className="t2"; tb.id=elementId; par.config.document.getElementById(divName).appendChild(tb); if (debug) print(par.config,"generateTable: Done"); } function generateRow(par, tableId, rowId){ let debug=true; if (debug) print(par.config,"generateRow: Start"); let config=generateQConfig(par.masterQuery); config.success=function(data){generateTableRow(data, par, tableId, rowId)}; LABKEY.Query.selectRows(config); if (debug) print(par.config,"generateRow: End"); return; } function generateTableRow(data, par, tableId, rowId){ let debug=true; if (debug) print(par.config,"generateTableRow: start"); let tb=par.config.document.getElementById(tableId); let row=par.vars[rowId]; if (debug) print(par.config,"getField for "+row.masterSelectVarName); let field=getField(par.config,data,row.masterSelectVarName); let trow=tb.insertRow(); let cell=par.config.document.createElement('th'); trow.appendChild(cell); let text = par.config.document.createTextNode(field.shortCaption); cell.appendChild(text); cell=trow.insertCell(); let input = par.config.document.createElement("select"); input.id = row.selectId; input.onchange=function(){row.callback(par,rowId)}; cell.appendChild(input); if (debug) print(par.config,"generateTableRow: end"); } function populateSelectTableEntry(par,rowId){ let debug=true; let row=par.vars[rowId]; if (debug) print(par.config,"populateSelectTableEntry:"+par.masterQuery+"/"+row.masterSelectVarName); let config=generateQConfig(par.masterQuery); if ("filter" in row){ //populateSelect on authorizationQuery with authSelectVarName let filter=row.filter; if (debug){ print(par.config,"Filter:"+filter.queryName); print(par.config,"FilterVar "+filter.filterVarName); } config.queryName=filter.queryName; config.filterArray=[]; for (f in filter.filters){ if (debug) print(par.config,"Adding filter: "+f+" val "+filter.filters[f]); config.filterArray.push(LABKEY.Filter.create(f,filter.filters[f])); } } else{ config.queryName=par.masterQuery; } config.success=function(data){populateTableRow(data,par,rowId)}; LABKEY.Query.selectRows(config); if (debug) print(par.config,"generateSelect: End"); return; } function populateTableRow(data,par,rowId){ //data is output of selectRows on either // * masterQuery looking at masterSelectVarName or // * authQuery looking at authSelectVarName //in both cases, query[varName] is a lookup variable, so do populateSelect with lookupData,queryData and par let debug=true; let row=par.vars[rowId]; let varName=row.masterSelectVarName; if ("filter" in row){ if (row.filter.queryName==data.queryName){ varName=row.filter.filterVarName; } } if (debug) print(par.config,"generateSelectVar: "+data.queryName+"/"+varName+" size "+data.rows.length); let field=getField(par.config,data,varName); if (!field) { print(par.config,"Field "+varName+" not found"); return; } if (debug) print(par.config,"Using field "+field.name); if (!("lookup" in field)){ let entry=data.rows[0]; print(par.config,"Field "+varName+" not a lookup"); //populateSelectNotLookup(data,par,rowId, entry); return; } let config=generateQConfig(field.lookup.queryName); config.schemaName=field.lookup.schemaName; config.success=function(lookupData){populateSelect(lookupData,data,par,rowId)}; //config.success=function(data){selectRowsSuccess(par.config,data)}; config.failure=function(errorObj){selectRowsFailure(par.config,errorObj)}; LABKEY.Query.selectRows(config); if (debug) print(par.config,"generateSelectVar: End"); } function populateSelect(data,selectedData, par, rowId){ //data is the set of lookup entries, selectedData is a subset of entries valued at lookup.keyColumn let debug=true; if (debug) print(par.config,"populateSelect Data: "+data.queryName+" selectedData:"+selectedData.queryName); let row=par.vars[rowId]; let selectId=row.selectId; let varName=row.masterSelectVarName; if ("filter" in row){ varName=row.filter.filterVarName; } let field=getField(par.config,selectedData,varName); let displayColumn=field.lookup.displayColumn; let keyColumn=field.lookup.keyColumn; if (debug){ print(par.config,"Query: "+data.queryName); print(par.config,"ElementId: "+selectId); print(par.config,"keyColumn: "+keyColumn); print(par.config,"displayColumn: "+displayColumn); } let el = document.getElementById(selectId); if (debug) print(par.config,"Element: "+el); for(i = el.options.length; i >= 0; i--) { el.remove(i); } if ("addSelect" in row){ let opt = par.config.document.createElement("option"); opt.text = ""); let opt = par.config.document.createElement("option"); opt.text = "