Ucsc clin gen dosage

[Graeme-Smith]

This change is 

[Graeme-Smith]

This pull request adds three changes:

• The initial commit reverts the branch back to reflect the VBA code in production, the version-controlled branch was ahead of the live code with changes that had not been implemented.
• The second commit:
• Adds back the code checking that Secondary evidence has been added for Category 4 and 5 cases but which has never been put in production, presumably it was code reviewed the last time a pull request was made.
• Switches to using the ClinGen Dosage Map [https://dosage.clinicalgenome.org/]
• Zooms in the http://projects.tcag.ca/cgi-bin/variation/gbrowse/hg18/ plots

[Graeme-Smith]

---

forms/s09_OligoPreliminaryResults, line 129 at r2 (raw file):

Previously, aledj2 (Aled Jones) wrote…

> ``` > ''vanity link > Private Sub Size19_DblClick(Cancel As Integer) > Dim url As String > url = "http://dgv.tcag.ca/gb2/gbrowse/dgv2_hg19/?start=" + CStr(Me.Start19 - 500000) + ";stop=" + CStr(Me.Stop19 + 500000) + ";ref=chr" + Me![ChrID19].Column(1) + "" > 'url = "http://projects.tcag.ca/cgi-bin/variation/gbrowse/hg19/?start=" + CStr(Me.Start19 - 500000) + ";stop=" + CStr(Me.Stop19 + 500000) + ";ref=chr" + Me![ChrID19].Column(1) + ";h_region=chr" + Me![ChrID19].Column(1) + ":" + CStr(Me.Start19) + ".." + CStr(Me.Stop19) + "" > 'url = "http://projects.tcag.ca/cgi-bin/variation/gbrowse/hg19/?start=" + CStr(Me.Start19 - 500000) + ";stop=" + CStr(Me.Stop19 + 500000) + ";ref=chr" + Me![ChrID19].Column(1) + ";h_region=chr" + Me![ChrID19].Column(1) + ":" + CStr(Me.Start19) + ".." + CStr(Me.Stop19) + "width=760;version=;label=chromosome%3Aoverview-cytoband-RefGene-disease_gene-Decipher_Syndromes-NON_BAC_Variation;grid=on" > chromeurl url > End Sub > ``` deleted?

These appear to have been deleted during an earlier edit which removed any commented out non-functional code.

[Graeme-Smith]

---

forms/s09_OligoPreliminaryResults, line 135 at r2 (raw file):

Previously, aledj2 (Aled Jones) wrote…

> ``` > Private Sub Size_DblClick(Cancel As Integer) > Dim url As String > url = "http://projects.tcag.ca/cgi-bin/variation/gbrowse/hg18/?start=" + CStr(Me.Start - 500000) + ";stop=" + CStr(Me.Stop + 500000) + ";ref=chr" + Me![ChrID].Column(1) + ";h_region=chr" + Me![ChrID].Column(1) + ":" + CStr(Me.Start) + ".." + CStr(Me.Stop) + "" > chromeurl url > End Sub > Private Sub Probes_DblClick(Cancel As Integer) > Dim url As String > url = "http://genome-euro.ucsc.edu/cgi-bin/hgTracks?hgS_doOtherUser=submit&hgS_otherUserName=devdisorders&hgS_otherUserSessionName=hg19cgh9&db=hg19&highlight=hg19.chr" + Me![ChrID19].Column(1) + "%3A" + CStr(Me.Start19) + "-" + CStr(Me.Stop19) + "&position=chr" + Me![ChrID19].Column(1) + "%3A" + CStr(Me.Start19 - 500000) + "-" + CStr(Me.Stop19 + 500000) + "" > 'url = "http://genome.ucsc.edu/cgi-bin/hgTracks?hgS_doOtherUser=submit&hgS_otherUserName=Wook&hgS_otherUserSessionName=hg19cgh8&highlight=hg19.chr" + Me![ChrID19].Column(1) + "%3A" + CStr(Me.Start19) + "-" + CStr(Me.Stop19) + "&position=chr" + Me![ChrID19].Column(1) + "%3A" + CStr(Me.Start19 - 500000) + "-" + CStr(Me.Stop19 + 500000) + "" > 'url = "http://genome.ucsc.edu/cgi-bin/hgTracks?hgS_doOtherUser=submit&hgS_otherUserName=Wook&hgS_otherUserSessionName=hg19cgh8&position=chr" + Me![ChrID19].Column(1) + "%3A" + CStr(Me.Start19 - 1000) + "-" + CStr(Me.Stop19 + 1000) + "" > chromeurl url > ``` deleted?

These appear to have been deleted during an earlier edit which removed any commented out non-functional code.

[Graeme-Smith]

---

forms/s09_OligoPreliminaryResults, line 3 at r2 (raw file):

Previously, aledj2 (Aled Jones) wrote…

> ``` > ''on open > Private Sub Form_Current() > Me.DNALabellingID.Requery > End Sub > ``` this isn't present in new version

I have restated these 4 lines oif code.

[Graeme-Smith]

---

forms/s09_OligoPreliminaryResults, line 11 at r2 (raw file):

Previously, aledj2 (Aled Jones) wrote…

> ``` > Private Sub Form_Current() > Me.DNALabellingID.Requery > End Sub > ''hyb id check > Private Sub Form_AfterUpdate() > If IsNull(Me![DNALabellingID]) Then > MsgBox "HybID?", , "Don't be a dummy" > End If > ``` FYI This is present out of order in new version

OK

[Graeme-Smith]

---

forms/s09_OligoPreliminaryResults, line 3 at r2 (raw file):

Previously, Graeme-Smith (Graeme) wrote…

I have restated these 4 lines oif code.

Done.

[Graeme-Smith]

---

forms/s09_OligoPreliminaryResults, line 129 at r2 (raw file):

Previously, Graeme-Smith (Graeme) wrote…

These appear to have been deleted during an earlier edit which removed any commented out non-functional code.

Done.