private void RefreshLinkedChildren()
{
lstChildren.Items.Clear();
System.Data.DataSet rsTemp = null;
if (lstParents.SelectedIndex > -1)
{
modGlobal.gv_sql = "SELECT MeasureCode, FieldName, CMSFieldCode, cms.FieldMeasureID FROM tbl_Setup_CMSParentFieldMeasures pf, tbl_Setup_dataDef df, tbl_Setup_CMSFieldMeasures cms";
modGlobal.gv_sql = modGlobal.gv_sql + " WHERE df.ddid = cms.ddid AND cms.FieldMeasureID = pf.FieldMeasureID ";
modGlobal.gv_sql = modGlobal.gv_sql + " AND CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex);
modGlobal.gv_sql = modGlobal.gv_sql + " order by cmsfieldcode, df.FieldName, MeasureCode ";
rsTemp = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
while (!rsTemp.EOF)
{
lstChildren.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(rsTemp.rdoColumns["measurecode"].Value + " - " + rsTemp.rdoColumns["FieldName"].Value + " **** " + rsTemp.rdoColumns["cmsfieldcode"].Value, rsTemp.rdoColumns["fieldmeasureid"].Value));
rsTemp.MoveNext();
}
rsTemp.Close();
//UPGRADE_NOTE: Object rsTemp may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
rsTemp = null;
RefreshAnswerCodes();
}
}
public void RefreshSummaryFields()
{
var LIndex = 0;
var Table_ListIndex = 0;
System.Data.DataSet rsSelected = null;
if (My.MyProject.Forms.frmIndicatorReportSetup.lstHeading.SelectedIndex == -1)
{
goto DoneRefreshSummaryFields;
}
//
//retrieve the list of Indicators
//
modGlobal.gv_sql = "Select * from vuSummaryFieldNames order by fieldname";
modGlobal.gv_rs = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
//
//
//
modGlobal.gv_sql = "select * from vuDenominatorSummaryFields where SubGroupID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(My.MyProject.Forms.frmIndicatorReportSetup.lstHeading, My.MyProject.Forms.frmIndicatorReportSetup.lstHeading.SelectedIndex);
rsSelected = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
//
//fill the list box
//
lstSummaryFields.Items.Clear();
//UPGRADE_WARNING: Couldn't resolve default property of object Table_ListIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Table_ListIndex = -1;
//UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
LIndex = -1;
while (!modGlobal.gv_rs.EOF)
{
//UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
LIndex = LIndex + 1;
//UPGRADE_WARNING: Couldn't resolve default property of object LIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
//UPGRADE_WARNING: Couldn't resolve default property of object Table_ListIndex. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Table_ListIndex = LIndex;
lstSummaryFields.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(modGlobal.gv_rs.rdoColumns["FieldName"].Value + " (" + modGlobal.gv_rs.rdoColumns["SubGroupID"].Value + ")", modGlobal.gv_rs.rdoColumns["SubGroupID"].Value));
if (rsSelected.RowCount > 0)
{
rsSelected.MoveFirst();
while (!rsSelected.EOF)
{
if (Strings.Trim(rsSelected.rdoColumns["FieldName"].Value) == Strings.Trim(modGlobal.gv_rs.rdoColumns["FieldName"].Value))
{
//UPGRADE_ISSUE: ListBox property lstSummaryFields.NewIndex was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="F649E068-7137-45E5-AC20-4D80A3CC70AC"'
lstSummaryFields.SetItemChecked(lstSummaryFields.NewIndex, true);
}
rsSelected.MoveNext();
}
}
modGlobal.gv_rs.MoveNext();
}
rsSelected.Close();
// DoneRefreshSummaryFields:
}
private void RefreshAnswerCodes()
{
System.Data.DataSet rsAnswerCD = null;
int li_cnt = 0;
modGlobal.gv_sql = "Select cms.FieldMeasureID, cms.measurecode, df.ddid, df.fieldname, df.cmsfieldcode ";
modGlobal.gv_sql = modGlobal.gv_sql + " from tbl_setup_DataDef as df ";
modGlobal.gv_sql = modGlobal.gv_sql + " inner join tbl_setup_cmsFieldMeasures as cms ";
modGlobal.gv_sql = modGlobal.gv_sql + " on df.ddid = cms.ddid ";
if (lstChildren.Items.Count > 0)
{
modGlobal.gv_sql = modGlobal.gv_sql + " WHERE cms.FieldMeasureID NOT IN (";
for (li_cnt = 0; li_cnt <= lstChildren.Items.Count - 1; li_cnt++)
{
modGlobal.gv_sql = modGlobal.gv_sql + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstChildren, li_cnt) + ",";
}
modGlobal.gv_sql = Strings.Mid(modGlobal.gv_sql, 1, Strings.Len(modGlobal.gv_sql) - 1) + ")";
}
modGlobal.gv_sql = modGlobal.gv_sql + " order by cmsfieldcode, df.FieldName, MeasureCode ";
rsAnswerCD = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
lstAvailable.Items.Clear();
while (!rsAnswerCD.EOF)
{
lstAvailable.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(rsAnswerCD.rdoColumns["measurecode"].Value + " - " + rsAnswerCD.rdoColumns["FieldName"].Value + " **** " + rsAnswerCD.rdoColumns["cmsfieldcode"].Value, rsAnswerCD.rdoColumns["fieldmeasureid"].Value));
rsAnswerCD.MoveNext();
}
rsAnswerCD.Close();
//UPGRADE_NOTE: Object rsAnswerCD may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
rsAnswerCD = null;
}
public void RefreshFieldsToLink()
{
System.Data.DataSet rsTemp = null;
//retrieve the list of table fields only if they are already a part of the cmsfieldmeasures
modGlobal.gv_sql = " Select * from tbl_setup_DataDef, tbl_setup_tableDef ";
modGlobal.gv_sql = modGlobal.gv_sql + " where tbl_setup_DataDef.BaseTableID = tbl_setup_tableDef.BaseTableID AND BaseTable = 'PATIENT' ";
modGlobal.gv_sql = modGlobal.gv_sql + " order by FieldName ";
rsTemp = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
cboFieldsToLink.Items.Clear();
while (!rsTemp.EOF)
{
cboFieldsToLink.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(rsTemp.rdoColumns["FieldName"].Value, rsTemp.rdoColumns["DDID"].Value));
rsTemp.MoveNext();
}
rsTemp.Close();
//UPGRADE_NOTE: Object rsTemp may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
rsTemp = null;
}
private void cmdPrint_Click(System.Object eventSender, System.EventArgs eventArgs)
{
Printer Printer = new Printer();
short Index = 0;
int li_cnt = 0;
System.Data.DataSet rsTemp = null;
// Printer.Print MSRDCGroups.Resultset!CriteriaTitle
rsTemp = MSRDCGroups.Resultset;
rsTemp.MoveFirst();
while (!rsTemp.EOF)
{
Printer.Print(FileSystem.TAB(15), rsTemp.rdoColumns["CriteriaTitle"]);
rsTemp.MoveNext();
}
Printer.Print("End of Saved Logic List");
Printer.EndDoc();
}
private void RefreshParentCriteria()
{
string ls_display = null;
System.Data.DataSet rs_Criteria = null;
int li_SetCnt = 0;
short li_SetIndex = 0;
string ls_SetJoinOp = null;
int li_MaxSet = 0;
lstAnswerCriteria.Items.Clear();
modGlobal.gv_sql = "SELECT CMSParentAnswerCriteriaSet, JoinOperator FROM tbl_Setup_CMSParentAnswerCriteriaSet " + " WHERE CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex) + " ORDER BY CMSParentAnswerCriteriaSet";
modGlobal.gv_rs = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenKeyset);
if (!modGlobal.gv_rs.EOF)
{
modGlobal.gv_rs.MoveLast();
li_MaxSet = modGlobal.gv_rs.RowCount;
modGlobal.gv_rs.MoveFirst();
while (!modGlobal.gv_rs.EOF)
{
ls_SetJoinOp = modGlobal.gv_rs.rdoColumns["JoinOperator"].Value;
modGlobal.gv_sql = "SELECT * FROM tbl_Setup_CMSParentAnswerCriteria " + " WHERE CMSParentCDID = " + Microsoft.VisualBasic.Compatibility.VB6.Support.GetItemData(lstParents, lstParents.SelectedIndex) + " AND CMSParentAnswerCriteriaSet = " + modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value + " ORDER BY CMSParentAnswerCriteriaSet, CMSParentAnswerCriteriaID";
rs_Criteria = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenKeyset);
rs_Criteria.MoveLast();
li_SetCnt = rs_Criteria.RowCount;
rs_Criteria.MoveFirst();
li_SetIndex = 0;
ls_display = "SET " + modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value + ": ( ";
while (!rs_Criteria.EOF)
{
li_SetIndex = li_SetIndex + 1;
ls_display = ls_display + " " + rs_Criteria.rdoColumns["CriteriaTitle"].Value;
if (li_SetCnt == li_SetIndex)
{
if (li_SetCnt == 1)
{
ls_display = ls_display + " (" + rs_Criteria.rdoColumns["JoinOperator"].Value + ") )";
}
else
{
ls_display = ls_display + " )";
}
}
else
{
ls_display = ls_display + " " + rs_Criteria.rdoColumns["JoinOperator"].Value + " ";
}
lstAnswerCriteria.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(ls_display, rs_Criteria.rdoColumns["CMSParentAnswerCriteriaID"].Value));
ls_display = "";
rs_Criteria.MoveNext();
}
rs_Criteria.Close();
if (modGlobal.gv_rs.rdoColumns["CMSParentAnswerCriteriaSet"].Value < li_MaxSet)
{
lstAnswerCriteria.Items.Add(ls_SetJoinOp);
}
modGlobal.gv_rs.MoveNext();
}
}
modGlobal.gv_rs.Close();
}
private void RefreshLookupTablesList()
{
System.Data.DataSet rsTemp = null;
short LookupIndex = 0;
short thisListIndex = 0;
modGlobal.gv_sql = "Select * From tbl_Setup_TableDef ";
modGlobal.gv_sql = modGlobal.gv_sql + "Where TableType = 'LOOKUP' ";
//UPGRADE_WARNING: Couldn't resolve default property of object gv_State. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
if (string.IsNullOrEmpty(modGlobal.gv_State))
{
modGlobal.gv_sql = modGlobal.gv_sql + " and (State = '' or State is null) ";
}
else
{
//UPGRADE_WARNING: Couldn't resolve default property of object gv_State. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
modGlobal.gv_sql = modGlobal.gv_sql + " and (State = '" + modGlobal.gv_State + "' or State is null)";
}
modGlobal.gv_sql = modGlobal.gv_sql + "Order By BaseTable";
rsTemp = modGlobal.gv_cn.OpenResultset(modGlobal.gv_sql, RDO.ResultsetTypeConstants.rdOpenStatic);
cboLookup.Items.Clear();
thisListIndex = -1;
LookupIndex = -1;
while (!rsTemp.EOF)
{
thisListIndex = thisListIndex + 1;
cboLookup.Items.Add(new Microsoft.VisualBasic.Compatibility.VB6.ListBoxItem(rsTemp.rdoColumns["BaseTable"].Value, rsTemp.rdoColumns["basetableid"].Value));
if (!rdcParentFields.Resultset.EOF)
{
//UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="2EED02CB-5C0E-4DC1-AE94-4FAA3A30F51A"'
if (!Information.IsDBNull(rdcParentFields.Resultset.rdoColumns["LookupTableID"].Value))
{
if (rdcParentFields.Resultset.rdoColumns["LookupTableID"].Value == rsTemp.rdoColumns["basetableid"].Value)
{
LookupIndex = thisListIndex;
}
}
else
{
//YES/NO Answer CD is DEFAULT for the CMS Output file
//If rsTemp!BaseTable = "YES/NO" Then
// LookupIndex = thisListIndex
//End If
}
}
rsTemp.MoveNext();
}
rsTemp.Close();
//UPGRADE_NOTE: Object rsTemp may not be destroyed until it is garbage collected. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
rsTemp = null;
if (LookupIndex > -1)
{
cboLookup.SelectedIndex = LookupIndex;
}
}
