Documents
Resources
Learning Center
Upload
Plans & pricing Sign in
Sign Out

Profile Format Sample - Excel

VIEWS: 273 PAGES: 9

Profile Format Sample document sample

More Info
									Built by: DL Duewer, NIST                                                                        Paid for, in part, by: NIJ
                                                        STR_ConvertFormats <13-Aug-10>
                                                         An STR Profile Format Conversion Tool
                            Parameter                 Value
Do It All                        System: STR_ConvertFormats <13-Aug-10>
                                Directory:
                              Workbook:
                              Worksheet:
      Clear
                                 Format:
      Fetch                 Operation                     Status
                                   Clear: Cleared
                                   Fetch:
    Convert                     Convert:
                             Locus Sort:
                                 Check:
    LocSort                    Compact:
                              Store Std:
                             Store Cmp:
     Check


   Compact


    StoreStd


   StoreCmp



   Exit

                       Locus sort-order: PP16
   SortOrder


    ReadMe

2e0c294c-4b62-40e2-9a21-f747d430b125.xls!ControlPanel                7/11/2011 7:50 PM                                1/9
   Built by: DL Duewer, NIST                                                                        Paid for, in part, by: NIJ
                                                           STR_ConvertFormats <13-Aug-10>
                                                            An STR Profile Format Conversion Tool




** ** * ** button ****




   Engineering
   MacroGo


  ReVersion


      Clean




   2e0c294c-4b62-40e2-9a21-f747d430b125.xls!ControlPanel                7/11/2011 7:50 PM                                2/9
                              Built by: DL Duewer, NIST                                                                                                                                                         Paid for, in part, by: NIJ
                                                                                                                                    STR_ConvertFormats <13-Aug-10>
                                                                                                                                      An STR Profile Format Conversion Tool

                                                                                                                                      Welcome to STR_ConvertFormats!
                                                                                                       STR_ConvertFormats converts STR profiles stored in a variety of Excel worksheet formats to a single "standard" form.
STR_ConvertFormats was developed by David Duewer, Analytical Chemical Division, NIST, with




                                                                                                                Development of STR_ConvertFormats was funded in part by the National Institute of Justice.

                                                                                                                                                    From what formats…
         advice and support from the Human Identity Project, BioScience Division.




                                                                                                 STR_ConvertFormats currently accepts one-locus per row output from FSSi and GeneMapper, multiple-loci per row output from
                                                                                             Genemapper, one-locus per row output from two "homebuilt" and one-row per sample output from three "homebuilt" systems. Other formats
                                                                                                                                                   can be added at need.

                                                                                                                                                      To what format…
                                                                                                       STR_ConvertFormats converts all profiles to a compact one-sample per row / one-column per allele per locus format.

                                                                                                                                                           Problems?
                                                                                                                                         This is the first release: there will be problems!
                                                                                                           Please repeat whatever caused the blowup a couple of times and note down all symptoms and error messages.
                                                                                                                                        Email the description to david.duewer@nist.gov


                                                                                                                                                        Getting Started
                                                                                                 STR_ConvertFormats is designed to be operated by "pushing buttons." All functions are available on the ControlPanel worksheet.
                                                                                                       The ReadMe worksheet documents the functions, abbreviations and file formats as well as giving a few usage tips.
                                                                                                                                If you haven't used STR_ConvertFormats before, please…

                                                                                                                                                            ReadME
                                                                                                            …but the best way to learn the tool is to 1) download the demo-data workbook and 2) start pushing buttons!


                                                                                                                                                      Get Started!



                              2e0c294c-4b62-40e2-9a21-f747d430b125.xls!Introduction                                                                7/11/2011 7:50 PM                                                                 3/9
Built by: DL Duewer, NIST                                                                                                                          Paid for, in part, by: NIJ
                                                        STR_ConvertFormats <13-Aug-10>
                                                         An STR Profile Format Conversion Tool




                                                                                    History
                                     1-Dec-06               The Human Identity Project team at NIST used, with varying degrees of ease and success, a number of special-
                                                            purpose format conversion systems over the past few years. Responding to requests from the forensic human
                                                            identity community for access to these utilities, work began on cobbling together these "bits and pieces" of
                                                            purpose-built code into a (hopefully) more robust and user-friendly system designed for public release.


                                    20-Dec-06               Beta version released on an unsuspecting world.

                                     1-Jan-07               Thanks to Becky Hill (NIST's HIP team) and Scott Nagy (Cal DOJ), several "user-abuser" issues were
                                                            addressed, mostly by changes to the Introduction and ReadMe worksheets. I also found and corrected a
                                                            couple of just-plain-bugs.

                                     5-Apr-07               Two simplified formats, "Horizontal" and "Vertical", were added to make life easier for Tom Reid, DNA
                                                            Diagnostics Center, Fairfield OH. Files in these formats contain only "Sample Info", the locus names, and the
                                                            allelic values. These formats are detailed in the ReadMe worksheet.

                                    12-Jun-07               Thanks to Tom Heylen (DNA Laboratory of the National Institute of Criminalistics and Criminology, Brussels
                                                            Belgium), changes in the way "fractional alleles" are managed have been made to enable use of this program
                                                            with Excel versions that use "," rather than "." as the decimal point. Tom also identified a number of bugs
                                                            related to the "Horizontal" and "Vertical" format descriptions. And, while fixing things, several cosmetic bugs
                                                            were squashed.

                                    17-Sep-09               Sometime ago, started to add a "Bode" format. Most of it seems to be there, but was left incomplete. It now
                                                            "Alerts" and stops with an error message.

                                    27-Jan-10               "Zero" alleles now treated as blanks. Rather than stopping with message when an out-of-sequence action is
                                                            requested, required action is automatically invoked. Added calls to engineering controls.

                                     15-Jul-10              Added "CODIS" format at request of Pete Vallone. Fixed a sorting bug (strange things happen when you try to
                                                            sort a single cell) that mostly impacted re-converting "NIST" output formats.

                                     21-Jul-10              Added locus-name sort at request of Pete Vallone. Fixed a bug identified by Erica Butts that impacted any
                                                            "wide" file that contained three-or-more records with the same sample-name.

                                     5-Aug-10
                                                            Sort-orders for most multiplex kits added by Becky Hill. The logic used to select which sort-order was improved.

2e0c294c-4b62-40e2-9a21-f747d430b125.xls!Introduction                   7/11/2011 7:50 PM                                                                               4/9
Built by: DL Duewer, NIST                                                                                                                        Paid for, in part, by: NIJ
                                                        STR_ConvertFormats <13-Aug-10>
                                                         An STR Profile Format Conversion Tool


                                    13-Aug-10               Fixed a "hole" in allele name standardization - blanks are now automatically removed. Changed the allele color-
                                                            coding: single alleles are now yellow, oddities are magenta.




2e0c294c-4b62-40e2-9a21-f747d430b125.xls!Introduction                  7/11/2011 7:50 PM                                                                              5/9
Built by: DL Duewer, NIST
                                                                                                                                                                                                    STR_ConvertFormats <13-Aug-10>                                                                                                                                                                 Paid for, in part, by: NIJ

                                                                                                                                                                                                      An STR Profile Format Conversion Tool




                                                                                                        ControlPanel Commands                                                                                                                                                             ControlPanel Summary Information
                                             All of the STR_ConvertFormats commands are accessed from the ControlPanel worksheet.                                                                    Columns D and E of the ControlPanel worksheet list several key attributes of the 'Fetch'ed worksheet…
                                                                                                                                                                                                      Directory: The complete directory path for the selected workbook
                                             There are currently twelve commands, each accessed from it's own Command Button:                                                                         Workbook: The name of the selected workbook
                                              Do It All: Attempts to execute the following eight commands in sequential order                                                                         Worksheet: The name of the selected worksheet
                                               Clear: Clears all status reports and working data.                                                                                                     Format: The format of the DNA profile data on the selected worksheet
                                               Fetch: Allows user to specify a particular worksheet, identifies its format and copies it to the working InData worksheet.
                                               Convert: Converts data on the InData worksheet into the NISTstandard format on the OutStd worksheet.                                                  Columns D and E also list the status of the component operations….
                                               LocSort: Standardizes the locus names and sorts them into a specified order on the OutStd worksheet.                                                   Clear: Will either be empty or 'Cleared'
                                               Check: Evaluates the OutStd worksheet for unrecognized alleles and, when possible for ambiguously specified alleles.                                   Fetch: Will be empty, 'Evaluating', 'Invalid format', 'Unknown format', 'Ambiguous format', 'Known format' or 'Fetched'
                                               Compact: Converts the NISTstandard alleles in the OutStd worksheet to NISTcompact profiles in the OutCmp worksheet.                                    Convert: Will be empty, 'Valid structure', 'Invalid FSSi format', 'Invalid GeneMapper format', 'Invalid NIST format', 'Data problems' or 'Fetched'
                                               StoreStd: Moves the OutStd data back into the workbook from whence it came, under the same name but with '_NISTs' tacked on.                           LocSort: Will be empty or 'Sorted by: xxx' where xxx is 'Alphabetical', 'PP16', or whatever option you have specified on the SortOrder worksheet.
                                               StoreCmp: Moves the OutCmp data back into the workbook from whence it came, under the same name but with '_NISTc' tacked on.                           Check: Will be empty or 'Checked'
                                                                                                                                                                                                      Compact: Will be empty or 'Compacted'
                                              Exit: Gracefully exits the STR_ConvertFormats system.                                                                                                   StoreStd: Will be empty or 'Stored: xxx' where xxx is the [workbook]worksheet where the NIST-standard output lives.
                                                                                                                                                                                                      StoreCmp: Will be empty or 'Stored: xxx' where xxx is the [workbook]worksheet where it the NIST-compact output lives.
                                              SortOrder: Sets the order in which the loci are listed in the output data sheets.
                                              ReadMe: Activates this workseet.                                                                                                                       For each locus specified, the following summary information about the data set is displayed, starting in column G…
                                                                                                                                                                                                      Code: The locus name (currently completely unchecked, so you may have to edit them yourself if you wish to combine across formats).
                                             The Do It All command is all you really need. However, there can be ambiguities and oddities in the format of the original data.                         #Samp: The number of samples (potentially) specified at this locus.
                                             The individual Clear, Fetch, Convert, LocSort, Check, Compact, StoreStd, and StoreCmp commands that comprise Do It All                                   Col0: The first column that holds data.
                                             can help if you need to correct some identified problem. For example:                                                                                    #Alle: The maximum number of alleles specified in any sample.
                                               If the format of the 'Fetch'ed data on the InData worksheet is ambiguous or unknown, you may be able to make it recognizable by correcting             #?: The total number of ambiguously specified alleles for this locus.
                                                   the spelling of the key header components (see below). You can then proceed to Convert, Check, and StoreStd the modified data.                     1rule: Only shown for FSSi format data listing evaluation rules, the number of samples where one and only one FSSi rule fired.
                                                   Likewise, 'ladder' or 'control' samples can be deleted from the InData worksheet.                                                                  2rule+: Only shown for FSSi format data listing evaluation rules, the number of samples where at least two FSSi rules fired.
                                               If ambiguous alleles are encountered (differences between FSSi allele and profile specifications and any allele that’s not a number, 'X' or 'Y'),
                                                   you can correct the alleles on the OutStd worksheet and proceed to Check and StoreStd the modified data.                                          For each sample specified, the following summary information about the data set is displayed, starting in column M (if FSSi with rules, O)…
                                                                                                                                                                                                      Code: The locus name (currently completely unchecked, so you may have to edit them yourself if you wish to combine across formats).
                                             Instructions for SortOrder go here                                                                                                                       #Loci: The number of loci (potentially) specified for this sample.
                                                                                                                                                                                                      Row0: The first row that holds data for this sample.
                                                                                                                                                                                                      #Rows: The number of rows of data for this sample.
                                                                                                                                                                                                      #?: The total number of ambiguously specified alleles for this sample.
                                                                                              Valid and Ambiguous Allelic Designations                                                                1rule: Only shown for FSSi format data listing evaluation rules, the number of loci where one and only one FSSi rule fired.
                                             STR_ConvertFormats expects alleles to be specified as: (1) any numeric value; (2) X, Y, or O; or (3) "missing".                                          2rule+: Only shown for FSSi format data listing evaluation rules, the number of loci where at least two FSSi rules fired.
                                             Missing values can be designated as an empty cell, 0, "NA", "ND", "-", "*", or "?".
                                             Any allelic designation that is not one of the expected forms (e.g., one that contains "OL", ">" or "<") is considered to be "ambiguous".               For FSSi format data listing evaluation rules, the rules fired are summarized starting in column W.
                                                                                                                                                                                                      Code: The rule as displayed in the FSSi worksheet.
                                             Ambiguous alleles also arise when the input format has two sets of allelic definitions (see FSSi, below) that do not exactly match.                      #: The total number of times that rule was fired for any sample at any locus in the data set.
                                             Such ambiguities are represented with a hybrid designation that lists the possible alleles: e.g. , "0 or 15".


                                                                                                                                       Correcting "Ambiguous Alleles" - Now or Later, It (Probably) Must Be Done
                                             On completion, the Check command lists the number of ambiguous alleles in OutStd. As far as STR_ConvertFormats is concerned, you do not need to correct ambiguities.
                                             StoreStd and StoreCmp do warn of their presence but they will cheerfully store things as-they-are if you tell them to go on about their business.

                                             However, STR_MatchSamples does require unambiguous designations and it is (probably) better to fix things before using StoreStd or StoreCmp. The original data (in InData) may facilitate resolving some ambiguities.
                                                The affected loci and samples are identified in the ControlPanel's #? Columns. The background color of the cells in OutStd and OutCmp that contain the ambiguous data is set to: magenta.
                                                                                                                          Note: the background color of the cells in OutStd and OutCmp that contain singleton alleles data is set to: yellow

                                             You can correct each of the flagged alleles individually by editing the cell's current contents, entering a brand spanky new value, or by use of Excel's Replace… function.
                                             Replace… is particularly useful if there are a number of similar ambiguities that can be corrected with a single 'change this-to-that' command; it can be accessed from the Edit menu or can be invoked with the <Ctrl-h> shortcut.
                                             After you have corrected everything, re-run Check and see if it finds all of your corrections acceptable. If it does, StoreStd and StoreCmp will do your bidding without further complaint.


                                                                                                           Recognized Formats                                                                                                                                                                        Example Formats
                                             The following formats are currently recognized…

                                              CODIS: A 'long'-style format with one allele specified per row.                                                                                                         Col A                           Col B                                 Col C
                                               The header record is recognized by the presence of *SPECIMENID, *LOCUSNAME, and *ALLELEVALUE in a row.                                                  Row n ns1:SPECIMENID                 ns1:LOCUSNAME                     ns1:ALLELEVALUE
                                               All other columns are ignored. Column specifications can be in any order.                                                                             Row n+1 aaaa                           AMEL                              X
                                               Specimen ids, locus names, and alleles can be in any order.                                                                                           Row n+2 aaaa                           AMEL                              Y
                                                                                                                                                                                                          …

                                              FSSi: A 'long'-style format with one locus specified per row.                                                                                                      Col m           Col m+1     Col m+2       Col m+3             Col m+4             Col m+5             Col m+6           Col m+7        Col m+8        Col m+9      Col m+10 …
                                               The header record is recognized by the presence of Sample ID and Locus ID in a row.                                                                     Row n Batch ID           Sample ID   Locus ID Major Designation 1 Major Designation 2 Minor Designation 1 Minor Designation 2 i-STRess Major i-STReam Major i-STReam Minor Rules Fired
                                               The alleles can be specified one-per-column, starting at Major Designation 1 and continuing for all columns containing Designation                    Row n+1 -                  aaaa        D3S1358                   15                  16 F                   F                   15,16          -              -              no rules fired
                                               and/or they can be specified in the I-STRess Major column. One or the other of the specifications is required.                                        Row n+2 -                  aaaa        TH01                        6                   8                 10 F                   6,8            -              -              no rules fired
                                               Any rules that fired will be summarized if there is a Rules Fired header, but this header is not required to be present.                                   …


                                              GeneMapper-long: A 'long-style' format with one locus specified per row.                                                                                           Col m    Col m+1 Col m+2        Col m+3                             Col m+4         …
                                               The header record is recognized by the presence of Sample Name and Marker in a row.                                                                     Row n Sample Name Marker   Dye     Allele 1                            Allele 2
                                               The 'long' style is recognized by the presence of only one Sample Name in the header row.                                                             Row n+1 bbbb        D8S1179 B                                       10                     15
                                               The alleles are specified one-per-column, starting at Allele 1 and continuing for all columns containing Allele.                                      Row n+2 bbbb        D21S11   B                                      29                     29
                                                                                                                                                                                                          …

                                              GeneMapper-wide: A 'wide-style' format with one row per sample and one column for each allele of the locus.                                                         Col m   Col m+1 Col m+2           Col m+3                      Col m+4                  Col m+5               Col m+6               Col m+7      …
                                               The header record is recognized by the presence of Sample Name and Marker in a row.                                                                     Row n Sample Name Marker   Allele 1   Allele 2                       Sample Name              Marker              Allele 1                Allele 2
                                               The 'wide' style is recognized by the presence of more than one Sample Name in the header row.                                                        Row n+1 cccc        D8S1179          10                             15 cccc                     D21S11                                 29               29
                                               Each locus is recognized by the location of the Marker headers in the header row.                                                                     Row n+2 dddd        D8S1179          11                             13 dddd                     D21S11                                 28              31.2
                                               The alleles are specified one-per-column, starting at the column to the right of each Marker and continuing for all columns containing Allele.             …

                                              Horizontal: A 'wide'-style format with one row per sample and one column for each allele of the locus.                                                              Col m           Col n    Col n+1       Col o                     Col o+1           …
                                               The header record is recognized by the presence of Sample Info in a row. The terms "Locus ID", "Marker" and "Allele 1" may not be present.              Row n Sample Info        D8S1179 1 D8S1179 2D21S11                     D21S11
                                               The alleles are specified one-per-column, starting at the first non-empty column to the right of Sample Info and continuing for all columns           Row n+1 eeee                      12       15                       30                     30
                                               containing the allele name. The allele name may include the "allele number" (e.g., D8S1179 and D8S1179 1 are both ok).                                Row n+2 ffff                      10       14                       31                     32

                                              NISTcompact: a 'wide'-style format, one row per sample but just one column per locus.                                                                               Col A           Col B       Col C    …
                                               The header record is recognized by the presence of SampleCode in column A.                                                                              Row n SampleCode         D8S1179     D21S11
                                               Each non-empty header cell in the header row from column B on specifies a locus code.                                                                 Row n+1 eeee               12,15       30,30
                                               The 'compact' style is recognized by the uniqueness of each locus code in the header row.                                                             Row n+2 ffff               10,14       31,32
                                               The alleles are specified in one comma-separated string.                                                                                                   …

                                              NISTstandard: a 'wide'-style format, one row per sample and one column for each allele of the locus.                                                                Col A           Col B   Col C       Col D                         Col E            …
                                               The header record is recognized by the presence of SampleCode in column A.                                                                              Row n SampleCode         D8S1179 D8S1179 D21S11                        D21S11
                                               The first occurrence of each locus code in the header row from column B on specifies a locus.                                                         Row n+1 eeee                      12     15                         30                     30
                                               The 'standard' style is recognized by the non-uniqueness of at least one locus code in the header row.                                                Row n+2 ffff                      10     14                         31                     32
                                               The alleles are specified one-pre-column, starting with the first occurrence of the locus code and continuing to the left of the next unique code.         …

                                              Vertical: A 'long'-style format with one locus specified per row.                                                                                                  Col m            Col n        Col o           Col o+1               Col o+…         …
                                               The header record is recognized by the presence of Sample Info and Marker in a row.                                                                     Row n Sample Info        Marker      Allele 1   Allele 2               Allele …
                                               The alleles are specified one-per-column, starting at Allele 1 and continuing for all columns containing Allele.                                      Row n+1 aaaa               D3S1358             15                   16
                                                                                                                                                                                                     Row n+2 aaaa               TH01                 6                    8

                                             STR_ConvertFormats accepts NIST-compact and NISTstandard formatted worksheets to enable checking the validity of the
                                               worksheet format and/or to identify ambiguous alleles. The STR_MatchSamples system accepts both formats.




2e0c294c-4b62-40e2-9a21-f747d430b125.xls!ReadMe                                                                                                                                                                       7/11/2011 7:50 PM                                                                                                                                                                                 6/9
                             Built by : DL Duewer, NIST                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                STR_ConvertFormats <13-Aug-10>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Paid f or, in part, by : NIJ
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            An STR Profile Format Conversion Tool




SCF_Globals                                Parameter Value                SCF_Exit                   SCF_DoItAll                  SCF_ClearUser               SCF_FetchUser                 SCF_ConvertUser            SCF_SortUser                 SCF_CheckUser              SCF_StoreStandard                         SCF_Com pact               SCF_SortSpecify               SCF_Store                    SCF_Form atHeader          SCF_CODIS                    SCF_FSSi                     SCF_GMlong                   SCF_GMw ide                  SCF_StructureDataVeryLong     SCF_StructureLong              SCF_DataLong                   SCF_StructureWide           SCF_StructureNIST              SCF_DataWide                    SCF_Bode                    SCF_Rules                    SCF_UniquifySam pleNam es                              SCF_ReadMe                  SCF_Am bigClear                SCF_Am bigRecord            SCF_Am bigDisplay                                           U
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Utility_DateTim eDependenciestility_Show Macro                     Utility_ResetHeaders              Utility_AlignControls              Utility_CleanUpNam es           Atmp1                 Utility_Colors       1           1
! In the norm al course of events, thisR1C1 mode TRUE Auto_Open VBA Restore baseline system !just prior to quiting Convert function
                                          is ONLY run by the              ! Macro                      Driver for the entire      ! User access               ! User access                 ! User access              ! User access                ! User access              ! User access                                                        ! Get a 'Com pact'
                                                                                                                                                                                                                                                                                                                         ! Restructure 'Standard' form at tolocus-nam e sort order                                                        ! CODIS
                                                                                                                                                                                                                                                                                                                                                                                  ! Store the converted file ! Make sum m ary output headers conversion                ! FSSi conversion                                           GeneMapper
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ! GeneMapper long-form at !conversion w ide-form at conversion
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ! Get the structure of "long"Get the structure of "long"Make at files file from "long" form atw ide-form at conversion pact conversion ! Make the data file from "w ide" form at files
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ! form at files                ! form the data                ! Horizontal files          ! NIST-com                                                     ! Bode conversion                                          Uniquify sam ple nam es for one-row /sam ple structures
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ! If possible, m ake the rule! sum m ary                                                                        ! Clear any
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ! Take a new user to the ReadMe file "Am biguity" infor    ! Record an "Am biguity" ! Display the "Am biguity" sum m arythe DateTim e form at ! Unide all hidden sheets
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ! Check                        setting                                                               ! files                             Get rid of all the transcients Atmp2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ! Reset Page Headers of visible Make sure the buttons are in! the right spot                                               ! List the colors    2           2
! If you diddle any of the constants, m ake sure you re-run it yourself before you evaluate the diddle
                                    Calculation mode 1                    =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                                                                                     =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)                                                                                                                                                                       =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                                                                                                                                                                                                                                                                                                                                    =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)              =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C)
                                                                                                                                                                                                                                                                                                                                                                                  =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C)                                                                                                            !=MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 !=MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)                                                                       =MESSAGE(TRUE,R1C)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)               =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)                      Atmp3                                      3           3
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C)
                                       Start
=SET.NAME("Asyst","STR_ConvertFormats") datetime 40403.5461460648         =ECHO(FALSE)               =ACTIVATE(S0con)             ! Null the m essage display !flag the m essage display !flag the m essage display !flag the m essage display !flag the m essage display !flag
                                                                                                                                                                Null                          Null                       Null                         Null                       Setup for standard output               =ECHO(FALSE)               =ACTIVATE(S0con)              =ECHO(FALSE)                 =ECHO(FALSE)               =ECHO(FALSE)                 =ECHO(FALSE)                 =ECHO(FALSE)                 =ECHO(FALSE)                 =ECHO(FALSE)                  =ECHO(FALSE)                   =ECHO(FALSE)                   =ECHO(FALSE)                =ECHO(FALSE)                   =ECHO(FALSE)                    =ECHO(FALSE)                =ECHO(FALSE)                 =ECHO(FALSE)                                           =ECHO(FALSE)                =ECHO(FALSE)                   =ECHO(FALSE)                =ECHO(FALSE)                 =ECHO(FALSE)                   =ECHO(FALSE)                        =ECHO(FALSE)                      =ECHO(FALSE)                                                       SCF_AmbigClear
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SET.NAME("Atmp1",COUNTA(NAMES()))                                         4           4
=SET.NAME("Adate","13-Aug-10")         Stop datetime 40403.5475193287                                =ECHO(TRUE)                  =SET.NAME("Msub0"," ")      =SET.NAME("Msub0"," ")        =SET.NAME("Msub0"," ")     =SET.NAME("Msub0"," ")       =SET.NAME("Msub0"," ")     =SET.NAME("Msub0"," ")                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =RUN(R1C1,FALSE)                  =RUN(R1C1,FALSE)                   =FOR("Atmp2",Atmp1,1,-1)        SCF_AmbigDisplay      =ACTIVATE(S0mac) 5               5
=MESSAGE(FALSE)                                 User                      ! Clear                    =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                                                                                                                                        =SET.NAME("S0dou",S0dst)                                             ! Get current
                                                                                                                                                                                                                                                                                                                         Check if requisite procedures com peteorder              ! Raise the conflicting data ! Clear lists
                                                                                                                                                                                                                                                                                                                                                                                                               issue?                     ! Get basic param eters      ! Get basic param eters      ! Get basic param eters      ! Get basic param eters                                      Get the
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ! Get the basic sam ple and !loci info sam ple and loci info ! Clear the datasheets         ! Get basic param eters     ! Get basic param eters        ! Clear the datasheets          ! Get the num ber of alleles! Clear the output file      ! Count & clean sam ple nam es                                                     ! form the
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ! Make sure Intro is in right Sero at count                ! Update the count          ! Unhide the sheet                                          ! Unhide
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ! Make sure that the chart isn't active                                                                                                                                 SCF_AmbigRecord
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = SET.NAME("Atmp3",INDEX(NAMES(),Atmp2))              =FOR("Itmp",1,56,1)  6           6
=ECHO(FALSE)                      Number invocations                      =RUN(SCF_Clear,FALSE)                                   SCF_Clear                   SCF_Fetch                     SCF_Convert                SCF_Sort                     SCF_Check                  =SET.NAME("NanSto",NanSt1)                =ACTIVATE(S0con)                                         =SET.NAME("Ntmp",SUM(INDIRECT("'"&S0con&"'!"&Acol&Cloci+4,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                               =ACTIVATE(S0con)
                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row Srt&Acol&Cpara+1,FALSE)))    =ACTIVATE(S0din)             =ACTIVATE(S0din)             =ACTIVATE(S0din)             =ACTIVATE(S0din)             =ACTIVATE(S0din)              =ACTIVATE(S0din)               =ACTIVATE(S0din)               =ACTIVATE(S0din)            =ACTIVATE(S0din)               =ACTIVATE(S0din)                =ACTIVATE(S0din)            =ACTIVATE(S0dst)             =ACTIVATE(S0din)                                       =ACTIVATE(S0int)            =SET.NAME("Nodd",0)            =SET.NAME("Nodd",Nodd+1) =ERROR(FALSE)                   =ACTIVATE(S0dti)               =ERROR(FALSE)                                                         ! Format Conversion
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =SET.NAME("Atmp","An STR ProfileClear the sheets Tool")                                              SCF_Bode
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = IF(ISERROR(MATCH(Atmp3,C[1],0)),DELETE.NAME(Atmp3))                      7           7
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = FORMULA(Itmp,INDIRECT("'"&S0mac&"'!R"&Itmp&"C[1]",FALSE))
                                                                                                                                  ! Clear the subroutine callsGet the input data
                                                                                                     ! Set the m essage display flag forthe decks             !                             ! Get the input data                                    ! Count up the             =SET.NAME("Row Tmp",Row St1)
                                                                                                                                                                                                                       ! Count up the num ber of "odd" alleles num ber of "odd" alleles                                  =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row Com&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                    =IF(LEN(Atmp)<1.5,SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row Typ&Acol&Cpara+1,FALSE))))
                                                                                                                                                                                                                                                                                                                                                                                  =IF(Ntmp>0.5)                =SELECT(Acol&Cloci&Asep&Acol&256)
                                                                                                                                                                                                                                                                                                                                                                                                                                          =SET.NAME("Row Fst",GET.DOCUMENT(9))                      =SET.NAME("Row Fst",GET.DOCUMENT(9))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =SET.NAME("Row Fst",GET.DOCUMENT(9))                                                   =SELECT(Acol&1&Asep&Acol&256)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SET.NAME("Row Fst",GET.DOCUMENT(9))                       =SET.NAME("Nloc",0)            =SELECT(Acol&1&Asep&Acol&256)                              =SET.NAME("Row Fst",GET.DOCUMENT(9))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          =SET.NAME("Row Fst",GET.DOCUMENT(9))                       =SELECT(Acol&2&Asep&Acol&256)   =SET.NAME("Row Hed",1)                                   =SET.NAME("Nsam",0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SELECT(Acol&Coffs+1+Nloc&Asep&Acol&256)                                            =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                                                     = WORKBOOK.UNHIDE(MID(S0err,FIND("]",S0err)+1,100))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         =ERROR(FALSE)                  = WORKBOOK.UNHIDE(MID(S0dti,FIND("]",S0dti)+1,100))                   =RUN(SCF_Clear,FALSE)              =NEXT()                         SCF_Check                                  8           8
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = SELECT(INDIRECT("'"&S0mac&"'!R"&Itmp&"C[1]",FALSE))
! Make sheetnam es                                                                                   =SET.NAME("Msub0"," "&R1C&" > ")
                                                                          ! Restore calculation and RC states                                                 =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C) =SET.NAME("Fadd","NISTs")
                                                                                                                                  =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C) =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C)                                        =CLEAR(3)                                                = ACTIVATE(S0con)
                                                                                                                                                                                                                                                                                                                                                    =IF(LEN(Atmp)<1.5,SET.NAME("Atmp",": Alphabetical"))       =CLEAR(3)                                               =SET.NAME("Row Lst",GET.DOCUMENT(10))
                                                                                                                                                                                                                                                                                                                                                                                                                                          =SET.NAME("Row Lst",GET.DOCUMENT(10))                                                  =SET.NAME("Row Lst",GET.DOCUMENT(10))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("Row Lst",GET.DOCUMENT(10))                     =PATTERNS(0)                  =SET.NAME("Nsam",0)            =PATTERNS(0)                   =SET.NAME("Row Lst",GET.DOCUMENT(10))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =SET.NAME("Row Lst",GET.DOCUMENT(10))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =PATTERNS(0)                                                =CLEAR(3)                    =FOR("Irow ",Row Hed+1,Row Lst,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =SET.NAME("Row Lst",MATCH("Generate CMF",INDIRECT("'"&S0din&"'!"&Acol&1,FALSE),0)-1)                                                        ! Clear the sheet
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FORMULA.GOTO(Arow &26&Acol&4,FALSE)                       ! Record in locus and sam ple lists on the ControlPanel WORKBOOK.UNHIDE(MID(S0dti,FIND("]",S0dti)+1,100))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =ERROR(TRUE)                 =                                                                  ! Reset Readm e
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        = WORKBOOK.UNHIDE(MID(S0err,FIND("]",S0err)+1,100))                                                                                      SCF_CheckUser                              9
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = PATTERNS(1,1,Itmp,TRUE)        9
=SET.NAME("Dir0",GET.DOCUMENT(2))                                                                                                 &2&Acol&3,FALSE)))
                                                                          =SET.NAME("Atmp1",DEREF(INDIRECT("'"&S0mac&"'!"&Arow =ECHO(FALSE)                   =ECHO(FALSE)                  =ECHO(FALSE)               =ECHO(FALSE)                 =ECHO(FALSE)                                                         =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row St2&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                    =IF(ISERROR(FIND(":",Atmp)),SET.NAME("Atmp",": "&Atmp)) =BORDER(0,0,0,0,0)
                                                                                                                                                                                                                                                                                                                                                                                  = FORMULA.GOTO(Arow &Row Bcom&Acol&2,FALSE)                                          =SET.NAME("ColFst",GET.DOCUMENT(11))
                                                                                                                                                                                                                                                                                                                                                                                                                                          =SET.NAME("ColFst",GET.DOCUMENT(11))                                                   =SET.NAME("ColFst",GET.DOCUMENT(11))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("ColFst",GET.DOCUMENT(11))                                                                                   =ACTIVATE(S0dst)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =FOR("Irow ",Row Hed+1,Row Lst,1)                             =SET.NAME("ColFst",GET.DOCUMENT(11))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =SET.NAME("ColFst",GET.DOCUMENT(11))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =ACTIVATE(S0dst)                =IF(ISERROR(Row Lst),SET.NAME("Row Lst",1))              = SET.NAME("Nval",COUNTA(INDIRECT("'"&S0din&"'!"&Arow &Irow ,FALSE)))              =ERROR(FALSE)                                              =ACTIVATE(S0err)             = SET.NAME("Itmp",FORMULA.GOTO(Arow &1&Acol&1,TRUE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &2+Iloc&Acol&Cloci+4,FALSE))) = WORKBOOK.UNHIDE(MID(S0mac,FIND("]",S0mac)+1,100))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =ACTIVATE(S0rme)                  ! Form at the Introduction         =RUN(R1C1,FALSE)                SCF_Clear                                  10          10
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = SET.NAME("Jtmp",GET.CELL(63,INDIRECT("'"&S0mac&"'!R"&Itmp&"C[1]",FALSE)))
=SET.NAME("WB0",GET.DOCUMENT(88))                                                                    ! Clear things
                                                                          =IF(ISERROR(Atmp1),SET.NAME("Atmp1",TRUE))                                                                                                                                                           Check if requisite procedures com pete =CLEAR(3)                                                   = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > There are ("&Ntmp&") ambiguous alleles.")
                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("Acur",MID(Atmp,FIND(":",Atmp)+2,100))           =PATTERNS(0)               =SET.NAME("ColLst",GET.DOCUMENT(12))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =SET.NAME("ColLst",GET.DOCUMENT(12))                      =SET.NAME("ColLst",GET.DOCUMENT(12))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("ColLst",GET.DOCUMENT(12))                      ! Sort                                                       =SELECT(Acol&1&Asep&Acol&256) ,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          &Irow
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            = SET.NAME("Nval",COUNTA(INDIRECT("'"&S0din&"'!"&Arow =SET.NAME("ColLst",GET.DOCUMENT(12))=SET.NAME("ColLst",GET.DOCUMENT(12))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =SELECT(Acol&1&Asep&Acol&256) Lst<1.5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =IF(Row                                                  = IF(Nval>0.5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ! Set up the Rule-report headers                                                                                                               =FORMULA(Atmp+1,INDIRECT("'"&S0con&"'!"&Arow &2+Iloc&Acol&Cloci+4,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = WORKBOOK.UNHIDE(MID(S0err,FIND("]",S0err)+1,100))                                     = IF(ISERROR(Itmp))            =ERROR(TRUE)                        =PAGE.SETUP("&L&""Arial,Regular""&8Built by: DL Duew er, NIST&C&""Arial,Bold""&16"&Asyst&" &""Arial,Regular""&12<"&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&8Paid for, in part, by: NIJ","&L&""Arial,Regular""&8&F!&A&C
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =ACTIVATE(S0int)                   =RUN(R111C1,FALSE)              SCF_ClearUser         = FORMULA(Jtmp,INDIRECT("'"&S0mac&"'!R"&Itmp&"C[2]",FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            11          11
=SET.NAME("S0con","["&WB0&"]ControlPanel")                                =A1.R1C1(NOT(Atmp1))       =RUN(SCF_Clear,FALSE)                                                                  Check if requisite procedures com pete
                                                                                                                                  ! Form at the input sheet Check if requisite procedures com pete                                                  Check if requisite procedures com pete
                                                                                                                                                                                                                       Check if requisite procedures com pete                  =ACTIVATE(S0con)                          =FORMULA.GOTO(INDIRECT("'"&S0con&"'!"&Arow &20&Acol&2,FALSE),FALSE)&Row Typ&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                    =FORMULA(Acur,INDIRECT("'"&S0con&"'!"&Arow
                                                                                                                                                                                                                                                                                                                                                                                  = ACTIVATE(S0dou)            =FONT.PROPERTIES("Arial","Regular",10,,,,,,,1) Hed",-1)
                                                                                                                                                                                                                                                                                                                                                                                                                                          =SET.NAME("Row               =SET.NAME("Row Hed",-1)      =SET.NAME("Row Hed",-1)      =SET.NAME("Row Hed",-1)      =SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row Hed&Acol&1&Asep&Arow &65536&Acol&ColLst,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            = IF(Nval>0)                   =CLEAR(1)                      =SET.NAME("Row Hed",-1)     =SET.NAME("ColSam",1)          =CLEAR(1)                                                   =ACTIVATE(S0con)             = SET.NAME("Nsam",Nsam+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = FORMULA("Invalid Bode format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE))                      ! Go to ReadMe              =ERROR(TRUE)                                               ! Sort by row then colum &2+Isam&Acol&Csamp+4,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arown = HIDE()                                                               =FORMULA.GOTO(Arow &1&Acol&1,TRUE)=SELECT(Acol&1&Asep&Acol&256)                                      SCF_Compact           =NEXT()              12          12
=SET.NAME("S0dcm","["&WB0&"]OutCmp")                                                                                              &3&Acol&3,FALSE)))
                                                                          =SET.NAME("Atmp2",DEREF(INDIRECT("'"&S0mac&"'!"&Arow =ACTIVATE(S0din)               =ACTIVATE(S0con)              =ACTIVATE(S0con)           =ACTIVATE(S0con)             =ACTIVATE(S0con)           =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row St1&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                         =ECHO(TRUE)                                                                           =SET.NAME("Nchg",0)
                                                                                                                                                                                                                                                                                                                                                                                  = FORMULA.GOTO(Arow &1&Acol&1,TRUE)                                                  =FOR("Irow ",Row Fst,Row Lst,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                          =FOR("Irow ",Row Fst,Row Lst,1)                                                        =FOR("Irow ",Row Fst,Row Lst,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    =FOR("Irow ",Row Fst,Row Lst,1)                           =SORT(1,INDIRECT("'"&S0din&"'!"&Arow &Row Hed+1&Acol&ColSam,FALSE),1,INDIRECT("'"&S0din&"'!"&Arow Fst,Row Lst,1) SET.NAME("ColLoc",ColSam+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            = IF(MOD(Irow ,20)=1,MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Row "&Irow -Row Hed+1&" of "&Row Lst-Row Hed+1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          =FOR("Irow ",Row &Row Hed+1&Acol&ColLoc,FALSE),1,INDIRECT("'"&S0din&"'!"&Arow &Row Hed+1&Acol&ColMaj,FALSE),1,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =                                                              = ECHO(TRUE)                                             = SET.NAME("Asam",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Irow &Acol&ColSam,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =ACTIVATE(S0rme)            =ACTIVATE(S0err)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SELECT("("&Acol&Cloci+5&Asep&Acol&Cloci+6&Alsp&Acol&Csamp+5&Asep&Acol&Csamp+6&Alsp&Acol&Crule&Asep&Acol&256&")")                              =FORMULA(Atmp+1,INDIRECT("'"&S0con&"'!"&Arow &2+Isam&Acol&Csamp+4,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =SELECT(INDIRECT("'"&S0err&"'!"&Acol&1&Asep&Acol&256,FALSE)) at
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         =END.IF()                      ! form                                                                =ROW.HEIGHT(,,,3)                                                  SCF_Convert           =SELECT("C:C[1]")    13          13
=SET.NAME("S0din","["&WB0&"]InData")                                                                 ! Fetch the w
                                                                          =IF(ISERROR(Atmp2),SET.NAME("Atmp2",3)) orksheet        =ZOOM(ZoomSet)                                            =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1&Asep&Arow &Row =CLEAR(3)&Row Che&Acol&Cpara+1&Asep&Arow &Row
                                                                                                                                                                                                                       =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row Srt&Acol&Cpara+1&Asep&Arow &Row
                                                                                                                                                                                                                                                    =SELECT(INDIRECT("'"&S0con&"'!"&Arow
                                                                                                                                                              =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row Fet&Acol&Cpara+1&Asep&Arow &Row St2&Acol&Cpara+1,FALSE)) St2&Acol&Cpara+1,FALSE)) St2&Acol&Cpara+1,FALSE)) St2&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                         =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row Che&Acol&Cpara+1,FALSE)))
                                                                                                                                                                                                                                                                                                                                                    ! Make sure that "New " is an ECHO(TRUE)
                                                                                                                                                                                                                                                                                                                                                                                  = option                                                                             = SET.NAME("ColSam",MATCH("Sample ID",INDIRECT("'"&S0din&"'!"&Arow &Irow ,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    = SET.NAME("ColSam",MATCH("Sample *",INDIRECT("'"&S0din&"'!"&Arow &Irow ,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                          = SET.NAME("ColSam",MATCH("*SPECIMENID",INDIRECT("'"&S0din&"'!"&Arow &Irow ,FALSE),0)) = SET.NAME("ColSam",MATCH("Sample Name",INDIRECT("'"&S0din&"'!"&Arow &Irow ,FALSE),0))    ! Header records               = SET.NAME("ColSam",MATCH("Sample Info",INDIRECT("'"&S0din&"'!"&Arow &Irow ,FALSE),0)) MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is NOT in the Bode format!")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =SET.NAME("ColMaj",NA())       ! Header records                =                           =CLEAR(3)                    = SET.NAME("Asam",CLEAN(TRIM(Asam)))                                               =SELECT(INDIRECT("'"&S0err&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                                                                                  =ERROR(TRUE)                   =ACTIVATE(S0mac)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =SORT(1,INDIRECT("'"&S0err&"'!"&Arow &2&Acol&1,FALSE),1,INDIRECT("'"&S0err&"'!"&Arow &2&Acol&1,FALSE),1,,,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ! Reset Introduction              =SELECT("Button 1")                =FORMULA.GOTO(Arow &1&Acol,TRUE)SCF_ConvertUser       =COLUMN.WIDTH(5) 14              14
=SET.NAME("S0dst","["&WB0&"]OutStd")                                      =OPTIONS.CALCULATION(Atmp2)=RUN(SCF_Fetch,FALSE)                                    =CLEAR(3)                     =CLEAR(3)
                                                                                                                                  =SELECT(INDIRECT("'"&S0din&"'!"&Acol&1&Asep&Acol&256,FALSE))                         =CLEAR(3)                    =CLEAR(3)                  =FORMULA.GOTO(Arow &Row Bst1&Acol&2,FALSE)                           =SET.NAME("Nsrt",COUNTA(INDIRECT("'"&S0srt&"'!"&Arow &1&Acol&11&Asep&Arow &1&Acol&256,FALSE))) are color-coded 'magenta'."&Acar&"Do you really w ant to store these data w ithout correcting things?"&Acar&Acar&"Click 'OK' if 'Yes', 'Cancel' for 'No'.",1))
                                                                                                                                                                                                                                                                                                                         =IF(NOT(LEFT(Atmp,LEN(NanChe))=NanChe))                                               ! Form at "&Ntmp&"         = IF(NOT(ISERROR(ColSam)))= IF(NOT(ISERROR(ColSam)))= IF(NOT(ISERROR(ColSam)))= IF(NOT(ISERROR(ColSam)))! Loop over all the row s ! Sam ples
                                                                                                                                                                                                                                                                                                                                                                                  = SET.NAME("Atmp",ALERT("There are for Loci ambiguities in these data: they                                                                                                                                                              =FORMULA("SampleCode",INDIRECT("'"&S0dst&"'!"&Arow &Row Std&Acol&1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          = IF(NOT(ISERROR(ColSam))) =SET.NAME("ColPro",NA())                                        = ALERT("This w orksheet &Row in the expected Bode       = SET.NAME("Asam",SUBSTITUTE(Asam," ","_"))            =ECHO(TRUE)                 =CLEAR(3)                      ! Color the cell m agenta
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FORMULA("SampleCode",INDIRECT("'"&S0dst&"'!"&Arowis NOTStd&Acol&1,FALSE)) format!"&Acar&Acar&"'Generate CMF' could not be found in the first column or w as found in second row ."&Acar&"Please 'Fetch' correctly formated data or fix things and try again.",2)                                  =WINDOW.MAXIMIZE()                  =ACTIVATE(S0int)                  =FORMAT.SIZE(239,37)               =HALT()                         SCF_DataLong                               15          15
=SET.NAME("S0dti","["&WB0&"]DateTime")                                    =OPTIONS.VIEW(TRUE,TRUE)                                =EDIT.DELETE(4)                                           =FORMULA.GOTO(Arow         =FORMULA.GOTO(Arow           =FORMULA.GOTO(Arow
                                                                                                                                                              =FORMULA.GOTO(Arow &Row Bfet&Acol&2,FALSE) &Row Bcon&Acol&2,FALSE) &Row Bsrt&Acol&2,FALSE) &Row Bche&Acol&2,FALSE)
                                                                                                                                                                                                                                                                               =ECHO(TRUE)                                                                                        = IF(Atmp=FALSE)             =FORMULA("Loci",INDIRECT("'"&S0con&"'!"&Arow &1&Acol&Cloci,FALSE))
                                                                                                                                                                                                                                                                                                                         = RUN(SCF_Check,FALSE) =SET.NAME("Icol",MATCH("New ",INDIRECT("'"&S0srt&"'!"&Arow &1,FALSE),0))                                                )                            )                            )
                                                                                                                                                                                                                                                                                                                                                                                                                                          = SET.NAME("Row Hed",Irow= SET.NAME("Row Hed",Irow= SET.NAME("Row Hed",Irow= SET.NAME("Row Hed",Irow=SET.NAME("Nloc",0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               )                                                           =IF(NOT(ISERROR(ColRul)),FORMULA("SampleCode",INDIRECT("'"&S0dst&"'!"&Arow &Row
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           &Irow &Acol&ColSam,FALSE)))                               =SET.NAME("Ncol",1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            = SET.NAME("Asam",DEREF(INDIRECT("'"&S0din&"'!"&Arow= SET.NAME("Row Hed",Irow )=SET.NAME("ColRul",NA()) Std&Acol&Coffs,FALSE)))                          = HALT()                    ! Augm ent locus header = SET.NAME("Asam",SUBSTITUTE(Asam,"__","_")) =ALERT("This w orksheet is the 'Instruction Manual' for this system."&Acar&Acar&"Click 'OK', survey &Row Std+Isam&Acol&Icol,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =SELECT(INDIRECT("'"&S0dst&"'!"&Arow the information, then Get the current form atsget started."&Acar&"When you encounter hassles, return here and read =FORMAT.MOVE(1,1,Arow &31&Acol&4)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ! go to the ControlPanel and                                       =FORMULA("Welcome to "&Asyst&"!",INDIRECT("'"&S0int&"'!R1C3",FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              the relevant bits more thoroughly.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        =OPTIONS.VIEW(TRUE,TRUE,FALSE,TRUE,1,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE)                                                  SCF_DataWide                               16          16
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =FORMULA.GOTO(Arow &1&Acol&"[-1]",TRUE)
=SET.NAME("S0err","["&WB0&"]Ambiguities") AlngDat dd-mmm-yy                                          ! Convert the w orksheet =ALIGNMENT(4)                   =ECHO(TRUE)                   =ECHO(TRUE)                =ECHO(TRUE)                  =ECHO(TRUE)                                                          =END.IF()
                                                                                                                                                                                                                                                                               =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row Che&Acol&Cpara+1,FALSE)))
                                                                                                                                                                                                                                                                                                                                                    =IF(ISERROR(Icol))                                         =SELECT(Arow &1&Acol&Cloci&Asep&Arow &2&Acol&Cloci+4) SET.NAME("Irow ",Row Lst+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                          = SET.NAME("Irow ",Row Lst+1)=                            =                            =
                                                                                                                                                                                                                                                                                                                                                                                  = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Activate the desired sheet, save the file, and try again!") SET.NAME("Irow ",Row Lst+1) SET.NAME("Irow ",Row Lst+1)     =SET.NAME("Nsam",0)           = SET.NAME("Jrow ",MATCH(Asam,INDIRECT("'"&S0con&"'!"&Acol&Csamp,FALSE),0))Lst+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           =SET.NAME("Ncol",1)            = SET.NAME("Irow ",Row                                     =FOR("Iloc",1,Nloc,1)           =END.IF()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =SET.NAME("Row Hed",MATCH("SampleCode",INDIRECT("'"&S0din&"'!"&Acol&ColSam,FALSE),0))                                   = FORMULA(Asam,INDIRECT("'"&S0din&"'!"&Arow &Irow &Acol&ColSam,FALSE)) ! Restore header
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SELECT(Arow &1&Acol&Cloci&Asep&Arow &1&Acol&Cloci+6)                                                                                          =PATTERNS(1,7,0)            ! Form at                    =SET.NAME("Atmp",NOW())        =FREEZE.PANES(FALSE)                                                  =SELECT("Button 2")                                                SCF_DoItAll                                17          17
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =PAGE.SETUP("&L&""Arial,Regular""&8Built by: DL Duew er, NIST&C&""Arial,Bold""&16"&Asyst&" &""Arial,Regular""&12<"&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&8Paid for, in part, by: NIJ","&L&""Arial,Regular""&8&F!&A&C
=SET.NAME("S0int","["&WB0&"]Introduction") AlngTim hh:mm:ss               ! Restore screensize                                                                =IF(NOT(ISBLANK(INDIRECT("'"&S0con&"'!"&Arow &Row Fmt&Acol&Cpara+1,FALSE)))) &Row Fet&Acol&Cpara+1,FALSE))) Con&Acol&Cpara+1,FALSE))) Srt&Acol&Cpara+1,FALSE)))
                                                                                                     =RUN(SCF_Convert,FALSE) =FONT.PROPERTIES("Arial","Regular",10,,,,,,,1)                                            =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row=IF(NOT(LEFT(Atmp,LEN(NanChe))=NanChe))=ECHO(FALSE)
                                                                                                                                                                                            =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row                                            = SET.NAME("Nsrt",Nsrt+1)                                  =ALIGNMENT(7,FALSE,3,0) = END.IF()                      = END.IF()                   = END.IF()                   = END.IF()                                                 = IF(ISERROR(Jrow ))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =FOR("Irow ",Row Hed+1,Row Lst,1)                            =FOR("Iloc",1,Nloc,1)          = END.IF()                  =IF(ISERROR(Row Hed))                                                                      =ALIGNMENT(7,FALSE,3,0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci,FALSE))) = END.IF()                                                     =HALT()                                                                                =SELECT(INDIRECT("'"&S0err&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =FORMULA("Row ",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&1,FALSE))                          =FOR("Irow ",2,4,1)            =FREEZE.PANES(TRUE,0,1)             =FORMULA.GOTO(Arow &1&Acol&1,TRUE)=FORMAT.SIZE(239,25)                                               SCF_Exit                                   18          18
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C&" > Finished!")
=SET.NAME("S0mac","["&WB0&"]Mac_SCF")     AlngDatTim dd-mmm-yy hh:mm:ss   =FULL.SCREEN(FALSE)                                     =COLUMN.WIDTH(0.5)          = RUN(SCF_Clear,FALSE)        =IF(NOT(LEFT(Atmp,LEN(NanFet))=NanFet))                 =IF(NOT(LEFT(Atmp,LEN(NanSrt))=NanSrt))
                                                                                                                                                                                                                       =IF(NOT(LEFT(Atmp,LEN(NanCon))=NanCon))                 = RUN(SCF_Check,FALSE)                                                                             ! Display the sum m ary      =FORMULA("Code",Arow &2&Acol&Cloci)
                                                                                                                                                                                                                                                                                                                                                    = FORMULA("New ",INDIRECT("'"&S0srt&"'!"&Arow &1&Acol&10+Nsrt,FALSE))                 =NEXT()                      =NEXT()                      =NEXT()                      =NEXT()                      = SET.NAME("Nval",COUNTA(INDIRECT("'"&S0din&"'!"&Arow= SET.NAME("Aloc",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci,FALSE)))format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =                               &Irow
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  SET.NAME("Nsam",Nsam+1) ,FALSE)))                       =NEXT()                     = FORMULA("Invalid NIST                                        ! Get the num ber of sam &Iloc+2&Acol&Cloci+3,FALSE))) =NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = SET.NAME("Nall",DEREF(INDIRECT("'"&S0con&"'!"&Arowples    =FORMULA("1rule",Arow &2&Acol&Cloci+5)                                                                          =FORMULA("Col",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&2,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ! Sum m arize on the am biguity sheet
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =COLUMN.WIDTH(0.5)           = FORMULA(Atmp,INDIRECT("'"&S0dti&"'!"&Arow &Irow &Acol&2,FALSE))                                    =FORMAT.MOVE(1,1,Arow &26&Acol&4)                                  SCF_Fetch             =HALT()              19          19
=SET.NAME("S0rme","["&WB0&"]ReadMe")             Acol C                   =WINDOW.MAXIMIZE()         ! Sort the loci                                          =END.IF()                     = RUN(SCF_Fetch,FALSE) = RUN(SCF_Convert,FALSE) = RUN(SCF_Sort,FALSE)
                                                                                                                                  =FORMULA.GOTO(INDIRECT("'"&S0con&"'!"&Arow &1&Acol&1,FALSE),TRUE)                                                                            =END.IF()                                 ! Clear the com pact output=END.IF()                     = RUN(SCF_AmbigDisplay,FALSE)                           =IF(Row Hed<0)
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("#Samp",Arow &2&Acol&Cloci+1)                  =IF(Row Hed<0)               =IF(Row Hed<0)               =IF(Row Hed<0)               = IF(Nval>0)                  =                              = SET.NAME("Nall",DEREF(INDIRECT("'"&S0con&"'!"&Arow
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          =IF(Row Hed<0)              = ECHO(TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(Asam,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp,FALSE)) &Iloc+2&Acol&Cloci+3,FALSE))) = FOR("Iall",1,Nall,1)                          =SET.NAME("ColLoc",1)       =FORMULA("2rule+",Arow &2&Acol&Cloci+6)                                                                         =FORMULA("SampleCode",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&4,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =FORMULA(Row Std+Isam,INDIRECT("'"&S0err&"'!"&Arow &1+Nodd&Acol&1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =COLUMN.WIDTH(,,,3)          = SET.NAME("Atmp1",GET.CELL(7,INDIRECT("'"&S0dti&"'!"&Arow Macro,TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        =FORMULA.GOTO(Utility_Show &Irow &Acol&2,FALSE)))                     =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                                 SCF_FetchUser                              20          20
=SET.NAME("S0srt","["&WB0&"]SortOrder")         Adcp .                                               =RUN(SCF_Sort,FALSE)                                     =ECHO(FALSE)                  =END.IF()                  =END.IF()                    =END.IF()                                                            =ACTIVATE(S0dcm)                                         = HALT()                                                = FORMULA("Invalid CODIS format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE)) format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE)) = FOR("Iall",1,Nall,1) > Row "&Irow -Row Hed+1&" HorizontalLst-Row Hed+1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = FORMULA("Invalid FSSi format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("Idx0",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Cloci+2,FALSE))                 = FORMULA("Invalid GeneMapper/Vertical
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = FORMULA("Invalid GeneMapperIF(MOD(Irow ,20)=1,MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&"
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE)) &Nsam+2&Acol&Csamp+1,FALSE))"&Row = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" =SET.NAME("ColLst",GET.DOCUMENT(12)) &2&Acol&Cloci+5&Asep&Arow &2&Acol&Cloci+6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =     FORMULA(1,INDIRECT("'"&S0con&"'!"&Arow                  = FORMULA("Invalid of                                      = SET.NAME("Ncol",Ncol+1) > This w orksheet is NOT in a NIST format!")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE))                        =SELECT(Arow                 ! Sort by sam ple nam e                                                            =FORMULA("Locus",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&5,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =FORMULA(Icol,INDIRECT("'"&S0err&"'!"&Arow &1+Nodd&Acol&2,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         = IF(NOT(ISERROR(FIND(";",Atmp1))),SET.NAME("Atmp1",LEFT(Atmp1,FIND(";",Atmp1)-1))) Finished!")=FORMULA.GOTO(Arow &31&Acol&4,FALSE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ! Reset ControlPanel
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" "&R1C&" >                                                                                         SCF_FormatHeader                           21          21
                                                 Agnl General             ! Exit nicely                                           ! Form at the standard output sheet                       =ECHO(FALSE)               =ECHO(FALSE)                 =ECHO(FALSE)               ! Store                                   =SELECT(INDIRECT("'"&S0dcm&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                                                                                                                                                                                                                    ! Build the list of possibles= END.IF()                                               = ECHO(TRUE)                 = ECHO(TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("#Alle",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Cloci+3,FALSE))                = ECHO(TRUE)                 = ECHO(TRUE)                                               =                              = SET.NAME("Ncol",Ncol+1) = ECHO(TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(Irow ,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+2,FALSE))                                            = NIST format!"&Acar&Acar&"The row header 'SampleCode' is not in column "&ColSam&"."&Acar&"Please 'Fetch' correctly formated data or fix things and try again.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FOR("Icol",2,ColLst,1)     =ALIGNMENT(3,FALSE,3,0) =SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row Hed&Acol&1&Asep&Arow &65536&Acol&ColLst,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      = ALERT("This w orksheet is NOT aFORMULA(Aloc,INDIRECT("'"&S0dst&"'!"&Arow &Row Std&Acol&Ncol,FALSE))                                                                                                      =FORMULA("Allele",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&6,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ! Display                                                   =HALT()                             =ACTIVATE(S0con)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         = IF(NOT(ISERROR(FIND("]",Atmp1))),SET.NAME("Atmp1",MID(Atmp1,FIND("]",Atmp1)+1,100)))                                                                                  SCF_FSSi                                   22          22
                                                 Alsp ,
! Country-Version dependencies that can be autom atically determ ined =ACTIVATE(S0con)               ! Count the oddities         =ACTIVATE(S0dst)            ! Try to get the file to inport                                                                                  =RUN(SCF_Store,FALSE)                     =CLEAR(3)                  =SET.NAME("Asort",Acur)       =END.IF()                                               = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is NOT in CODIS format!")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is NOT in FSSiThis w orksheet is NOT in GeneMapper format!") NOT in GeneMapper format!")
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("#?",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Cloci+4,FALSE))                                                = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" Sam ples! > format!")                 =     FORMULA(1,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+3,FALSE)) Std&Acol&Ncol,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           = FORMULA(Aloc,INDIRECT("'"&S0dst&"'!"&Arow &Row
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" >= NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      = HALT()                                                       = SET.NAME("Ntmp",COUNTA(INDIRECT("'"&S0din&"'!"&Arow &2&Acol&Icol&Asep&Arow &Row Lst&Acol&Icol,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      This w orksheet is NOT in Horizontal format!")             =BORDER(1)                                                                                                                                     =SET.NAME("Atmp",DEREF(INDIRECT("'"&S0dst&"'!"&Arow &Row Std+Isam&Acol&1,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =SORT(1,INDIRECT("'"&S0din&"'!"&Arow &Row Hed+1&Acol&ColSam,FALSE),1,,,,,1) =FORMULA("Value",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&7,FALSE))   =ECHO(TRUE)                  = FORMULA(Atmp1,INDIRECT("'"&S0dti&"'!"&Arow &Irow &Acol&3,FALSE))                                   ! Take care DL Duew er, NIST&C&""Arial,Bold""&16"&Asyst&" &""Arial,Regular""&12<"&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&8Paid for, in part, by: NIJ","&L&""Arial,Regular""&8&F!&A&C
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =PAGE.SETUP("&L&""Arial,Regular""&8Built by: of the ReadMe                                           SCF_GMlong                                 23          23
=SET.NAME("Acar",CHAR(10))                     Arow R                                                =RUN(SCF_Check,FALSE)
                                                                          =FORMULA.GOTO(Arow &Row Ball&Acol&1,TRUE)               =ZOOM(ZoomSet)                                            ! Do the know n types
                                                                                                                                                              =SET.NAME("Afile",OPEN.DIALOG(,,"Please select the desiredStandarize locus nam es ! Set up the Rule-report headers
                                                                                                                                                                                                                       ! w orkbook."))                                         =FORMULA.GOTO(Arow &Row Bst2&Acol&2,FALSE)=BORDER(0,0,0,0,0)                                                                    =SELECT(Arow &2&Acol&Cloci&Asep&Arow &2&Acol&Cloci+4)ALERT("This w orksheet is NOT in the expected FSSi format!"&Acar&Acar&"The columnnot be found."&Acar&"Please be found."&Acar&"Please 'Fetch' correctly formatedagain.",2) found."&Acar&"Please 'Fetch'NOT in theformated dataformated =NEXT()try things and try column IF(Ntmp<0.5,SET.NAME("ColLst",Icol-1))
                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("Afile",DEREF(INDIRECT("'"&S0srt&"'!"&Arow &1&Acol&11,FALSE)))                                           =
                                                                                                                                                                                                                                                                                                                                                                                                                                          = ALERT("This w orksheet is NOT in the expected CODIS format!"&Acar&Acar&"The column header 'SPECIMENID' could NOTor Vertical format!"&Acar&Acar&"The column header containing&Acol&ColSam,FALSE))) things and try w orksheet is correctly expected Horizontal format!"&Acar&Acar&"The again.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    = ALERT("This w orksheet is NOT in the expected GeneMapper SET.NAME("Asam",DEREF(INDIRECT("'"&S0din&"'!"&Arow= fix things and''Sample Name'=could not be found."&Acar&"Please 'Fetch' correctly or fix things and fix again.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = ALERT("This w orksheet is = in the expected GeneMapper format!"&Acar&Acar&"Theor IF(NOT(ISERROR(ColRul)),FORMULA("R:"&Aloc,INDIRECT("'"&S0dst&"'!"&Arow &Row Std&Acol&Coffs+Iloc,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              header 'Sample ID' could not 'Fetch' correctly formated data column'Sample try data or fix ALERT("This again.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            = ELSE()                         &Irow header could not be                                =END.IF()                      data or                         = header 'Sample Name' could not be found."&Acar&"Please 'Fetch' correctly formated data or fix things and try again.",2)                                                  =FORMULA(Atmp,INDIRECT("'"&S0err&"'!"&Arow
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =FORMULA.GOTO(Arow &1&Acol&1,TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         = FORMULA("?",INDIRECT("'"&S0dti&"'!"&Arow &Irow &Acol&4,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =FORMULA("Diagnosis",INDIRECT("'"&S0err&"'!"&Arow &1&Acol&9,FALSE)) &1+Nodd&Acol&4,FALSE))                                                                 =FORMULA.GOTO(Arow &1&Acol&1,TRUE)=ACTIVATE(S0rme)                                                   SCF_GMw ide                                24          24
=SET.NAME("Acol",INDEX(GET.WORKSPACE(37),7))NumNew 0                      =ECHO(TRUE)                                                                         =IF(ISERROR(Afile),SET.NAME("Afile",FALSE))
                                                                                                                                  =SELECT(INDIRECT("'"&S0dst&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                                                            =SET.NAME("Ftype",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Row Fmt&Acol&Cpara+1,FALSE)))
                                                                                                                                                                                                                       =FOR("Iloc",1,Nloc,1)        =ACTIVATE(S0con)                                                     =PATTERNS(0)               =FOR("Isrt",2,Nsrt,1)         ! Get the input sheet info =ALIGNMENT(3,FALSE,3,0) = HALT()                          = HALT()                     = HALT()                     = HALT()                                                   =     SET.NAME("Itmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow HALT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           = NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = SET.NAME("Jrow ",MATCH(Asam,INDIRECT("'"&S0con&"'!"&Acol&Csamp,FALSE),0)) =&Jrow &Acol&Csamp+1,FALSE)))                                                                              =NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FORMULA(Aprog&" conversion of "&S1dat&" on: "&TEXT(NOW(),AlngDatTim),INDIRECT("'"&S0dst&"'!"&Arow duplicate row s
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ! Augm ent sam ple header ! Clear any exact &1&Acol&1,FALSE))                                                                                                                                           =NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =FORMULA(Aloc,INDIRECT("'"&S0err&"'!"&Arow &1+Nodd&Acol&5,FALSE))                                                                                             =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                                 SCF_ReadMe                                 25          25
=SET.NAME("Adcp",INDEX(GET.WORKSPACE(37),3))                              =SET.NAME("Atmp1",NOW()) ! Com pact it                  =EDIT.DELETE(4)             =IF(Afile=FALSE)              =IF(Ftype="CODIS")         = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci,FALSE)))
                                                                                                                                                                                                                                                    =SELECT("("&Arow &3&Acol&Cloci+4&Asep&Arow &2+Nloc&Acol&Cloci+4&Alsp&Arow &3&Acol&Csamp+4&Asep&Arow &2+Nsam&Acol&Csamp+4&")")
                                                                                                                                                                                                                                                                               =RETURN()                                                                                          =ACTIVATE(S0con)             =BORDER(1)
                                                                                                                                                                                                                                                                                                                                                    = SET.NAME("Atmp",DEREF(INDIRECT("'"&S0srt&"'!"&Arow &1&Acol&Isrt+10,FALSE)))         =END.IF()                    =END.IF()                    =END.IF()                    =END.IF()                    = IF(ISERROR(Jrow ))          =                              =NEXT()                        =END.IF()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(Itmp+1,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+1,FALSE)) ! Loci                                                                    =IF(ColLst<1.5)             =SELECT(Arow &1&Acol&Csamp&Asep&Arow &1&Acol&Csamp+6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =SELECT(INDIRECT("'"&S0dst&"'!"&Arow &1&Acol&1&Asep&Arow &1&Acol&Ncol,FALSE)) =SET.NAME("Nclr",0)                                                                           ! Form at                                                  ! Tell user w hat to do
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =FORMULA(Iall,INDIRECT("'"&S0err&"'!"&Arow &1+Nodd&Acol&6,FALSE))                                                           ! Reset Data w orksheets                                                                             SCF_Rules                                  26          26
=SET.NAME("Agnl",INDEX(GET.WORKSPACE(37),26))                                                        =RUN(SCF_Compact,FALSE) =ALIGNMENT(4)
                                                                          =FORMULA(Atmp1,INDIRECT("'"&S0mac&"'!"&Arow &5&Acol&3,FALSE))                                                     = RUN(SCF_CODIS,FALSE) = SET.NAME("Acln",TRIM(CLEAN(SUBSTITUTE(Aloc," ",""))))
                                                                                                                                                              = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C&" > Brow sing aborted by user.")      =CLEAR(3)                                                            ! Header records                                         =SET.NAME("Dir1",DEREF(INDIRECT("'"&S0con&"'!"&Arow &3&Acol&Cpara+1,FALSE)))
                                                                                                                                                                                                                                                                                                                                                    = SET.NAME("Afile",Afile&", "&Atmp)                                                                                                                                                                       =                             =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   SET.NAME("Nsam",Nsam+1) SET.NAME("Itmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Jrow &Acol&Csamp+3,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           =FORMULA(Aprog&" conversion of "&S1dat&" on: "&TEXT(NOW(),AlngDatTim),INDIRECT("'"&S0dst&"'!"&Arow &1&Acol&1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =ACTIVATE(S0din)               =ALIGNMENT(7,FALSE,3,0) = FORMULA("Invalid Bode format",INDIRECT("'"&S0con&"'!"&Arow &Row",Row Hed+1,Row Hed+Nsam,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =ALIGNMENT(7,FALSE,3,0) =FOR("Irow Con&Acol&Cpara+1,FALSE))                                                                                    =FORMULA(Xval,INDIRECT("'"&S0err&"'!"&Arow &1+Nodd&Acol&7,FALSE)) summary refer to the 'OutStd' w orksheet."&Acar&"How ever, it might be best to correct your at the ControlPanel
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =ALERT("The row and col designationsthe Date form at
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SELECT(INDIRECT("'"&S0err&"'!"&Acol&1&Asep&Acol&256,FALSE))                            ! Check in this                                                    =ACTIVATE(S0din)                  ! Form original data.",2)                                          SCF_Store                                  27          27
=SET.NAME("Alsp",INDEX(GET.WORKSPACE(37),5))                                                                                      &4&Acol&3,FALSE)))          = ACTIVATE(S0con)
                                                                          =SET.NAME("Atmp2",DEREF(INDIRECT("'"&S0mac&"'!"&Arow =FONT.PROPERTIES("Arial","Regular",10,,,,,,,1)               = SET.NAME("Csamp",Cloci+6+IF(ISERROR(ColRul),0,2))                                                                                                     =NEXT()
                                                                                                                                                                                                                                                                                                                         =FORMULA(Aprog&" conversion of "&S1dat&" on: "&TEXT(NOW(),AlngDatTim),INDIRECT("'"&S0dcm&"'!"&Arow &1&Acol&1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                  =SET.NAME("WB1",DEREF(INDIRECT("'"&S0con&"'!"&Arow &4&Acol&Cpara+1,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                               ! Form at for Sam ples     ! Get the locus colum n                                   ! Check that                 ! Check that "Sam are m ultiple m atches to "Sam ple Nam e" in the header
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =    the header
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ! Try to get the secondary param eters there is only one m atch to there ple Nam e" in FORMULA(Asam,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =                              =SELECT(INDIRECT("'"&S0dst&"'!"&Arowother pointers
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ! Set the &1&Acol&1&Asep&Arow &1&Acol&Ncol,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(Itmp+1,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+3,FALSE)) =SET.NAME("Nloc",0)                       =SELECT(Acol&1&Asep&Acol&256)   = ECHO(TRUE)                                             = SET.NAME("Asam",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Irow &Acol&ColSam,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =FORMULA("1rule",Arow &2&Acol&Csamp+5)                                                                          =COLUMN.WIDTH(0.5)                                                                      =SET.NAME("AlngDat",DEREF(INDIRECT("'"&S0dti&"'!"&Arow &2&Acol&3,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Finished!")                                                                    =ACTIVATE(S0con)                                                   SCF_StoreCompact                           28          28
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =PAGE.SETUP("&L&""Arial,Regular""&8Built by: DL Duew er, NIST&C&""Arial,Bold""&16"&Asyst&" &""Arial,Regular""&12<"&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&8Paid for, in part, by: NIJ","&L&""Arial,Regular""&8&F!&A&C
=SET.NAME("Arow ",INDEX(GET.WORKSPACE(37),6))                                                        ! Store it in
                                                                          =SET.NAME("Atmp3",24*(Atmp1-Atmp2)) standard form at    =COLUMN.WIDTH(0.5)          = ALERT("No data file w as specified.",2)
                                                                                                                                                                                            = SET.NAME("Crule",Csamp+6+IF(ISERROR(ColRul),0,2))
                                                                                                                                                                                                                       = FORMULA(99999,INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci+4,FALSE))
                                                                                                                                                                                                                                                    ! Form at the Am biguity sheet                                                                                                =SET.NAME("Bsht",DEREF(INDIRECT("'"&S0con&"'!"&Arow &5&Acol&Cpara+1,FALSE)))
                                                                                                                                                                                                                                                                                                                         =SELECT(INDIRECT("'"&S0dcm&"'!"&Arow &1&Acol&1&Asep&Arow &1&Acol&1+Nloc,FALSE))                                  =SET.NAME("ColLoc",MATCH("*LOCUSNAME",INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE),0)) &Row Hed,FALSE),0)) FORMULA(Irow ,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+2,FALSE)) =SET.NAME("ColLoc",ColSam+1) FOR("Icol",ColLoc,ColLst,1) =COLUMN.WIDTH(0.5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =SET.NAME("ColLoc",MATCH("Locus ID",INDIRECT("'"&S0din&"'!"&Arow
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("Samples",INDIRECT("'"&S0con&"'!"&Arow &1&Acol&Csamp,FALSE))                =SET.NAME("Itmp",MATCH("Sample *",INDIRECT("'"&S0din&"'!"&Arow &Row Hed&Acol&ColSam+1&Asep&ArowHed&Acol&ColSam+1&Asep&Arow &Row Hed&Acol&256,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SET.NAME("Itmp",MATCH("Sample Name",INDIRECT("'"&S0din&"'!"&Arow &Row &Row Hed&Acol&256,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =                             = END.IF()                     =ALIGNMENT(7,FALSE,3,0)                                    =                                                                                          =FORMULA("2rule+",Arow &2&Acol&Csamp+6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = SET.NAME("Isam",MATCH(Asam,INDIRECT("'"&S0din&"'!"&Acol&ColSam,FALSE),1)) COLUMN.WIDTH(,,,3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is NOT in the Bode format!")                                            =                              =FORMULA(Etype,INDIRECT("'"&S0err&"'!"&Arow &1+Nodd&Acol&9,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =RETURN()                    =SET.NAME("Itmp0",TEXT(NOW(),AlngDat))                             =FORMULA.GOTO(Arow &1&Acol&1,TRUE)=SELECT(Acol&1&Asep&Acol&256)                                      SCF_StoreStandard                          29          29
=SET.NAME("Asep",":")                                                                                =RUN(SCF_StoreStandard,FALSE)                            = HALT()                      = RUN(SCF_FormatHeader,FALSE)
                                                                                                                                  =FORMULA.GOTO(INDIRECT("'"&S0con&"'!"&Arow &1&Acol&1,FALSE),TRUE)                    = FOR("Icol",1,10,1)         =RUN(SCF_AmbigClear,FALSE) SCF_StoreCom pact                         =ALIGNMENT(7,FALSE,3,0) ! Ask w hich one                                              =SELECT(Arow               =IF(ISERROR(ColLoc))
                                                                                                                                                                                                                                                                                                                                                                                  =IF(NOT(ISERROR(Dir1)),DIRECTORY(Dir1)) &1&Acol&Csamp&Asep&Arow &2&Acol&Csamp+4)                                  =IF(NOT(ISERROR(Itmp)))      =IF(ISERROR(Itmp))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =SET.NAME("ColMaj",MATCH("Major Designation 1",INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =                                                            =SELECT(Acol&1&Asep&Acol&256)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   FORMULA(1,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+3,FALSE))                    =SET.NAME("ColMaj",NA())                                   =COLUMN.WIDTH(,,,3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      = SET.NAME("Nval",COUNTA(INDIRECT("'"&S0din&"'!"&Arow &Row Hed+1&Acol&Icol&Asep&Arow the expected Bode format!"&Acar&Acar&"'There are no samples w ith data."&Acar&"Please 'Fetch' correctly=FORMULA.GOTO(Arow &1&Acol&1,TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = ALERT("This w orksheet is NOT in &Row Lst&Acol&Icol,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SELECT(Arow &2&Acol&Csamp+5&Asep&Arow &2&Acol&Csamp+6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = IF(Isam>Irow )                                                                    formated data or fix things and try again.",2)                                         =IF(Itmp0=AlngDat,SET.NAME("Itmp0",NA()))                                                            =ROW.HEIGHT(,,,3)                                                  SCF_StructureLong                          30          30
                                                                                                                                                              =END.IF()
                                                                          =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&" Wall-clock time this session of "&WB0&": "&TEXT(Atmp3,"0"&Adcp&"000")&" hours.")
                                                                                                                                                                                            = RUN(SCF_StructureDataVeryLong,FALSE)                                             ! User access
                                                                                                                                                                                                                       = SET.NAME("Irow ",MATCH(Acln,INDIRECT("'"&S0srt&"'!"&Acol&Icol,FALSE),0))                                                                                 =IF(ISERROR(WB1),SET.NAME("WB1","*.xls"))
                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("Atmp",INPUT("Please specify sort-order from =ALIGNMENT(7,FALSE,3,0)
                                                                                                                                                                                                                                                                                                                         =FORMULA("SampleCode",INDIRECT("'"&S0dcm&"'!"&Arow &Row Std&Acol&1,FALSE)) among:"&Acar&Afile,2,"Specify= FORMULA("Invalid CODIS format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE)) format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE)) =COLUMN.WIDTH(0.5)
                                                                                                                                                                                                                                                                                                                                                                                                                                           locus sort-order",Asort))                                                                                          = format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = FORMULA("Invalid GeneMapperELSE()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =SET.NAME("ColPro",MATCH("i-STRess Major",INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    = FORMULA("Invalid GeneMapper/Vertical                                                  ! Loci                                                        =SET.NAME("ColPro",NA())    = IF(Nval>0)                                                   = HALT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                          =ALIGNMENT(3,FALSE,3,0) = FOR("Jrow ",Irow +1,Isam,1)                                                                                                                                                    > Finished!")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                !=MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&"=IF(ISERROR(Itmp0*1),SET.NAME("Itmp0",NA()))                               =ACTIVATE(S0dst)                  =SELECT(Acol&1&Asep&Acol&2)                                        SCF_StructureNIST                          31          31
! Store a few w orkspace param eters                                      =RETURN()                                               !
                                                                                                     ! Store it in com pact form at Form at the com pact output sheet                                                  = IF(NOT(ISERROR(Irow ))) ! Clear any patterns                                                    =FOR("Iloc",1,Nloc,1)      =IF(Atmp=FALSE)               =IF(ISERROR(Bsht),SET.NAME("Bsht",""))
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("Code",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Csamp,FALSE)) Hed,FALSE)) SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =SET.NAME("ColRul",MATCH("Rules Fired",INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE),0)) SET.NAME("Itmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Jrow &Acol&Csamp+3,FALSE))) &Acol&ColLoc,FALSE))) = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Row Hed&Acol&Icol,FALSE))) =BORDER(1)
                                                                                                                                                                                                                                                                                                                                                                                                                                          = SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row                =                                                         =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE)) SET.NAME("Aloc",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Irow
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =                              =COLUMN.WIDTH(,,,3)            =SET.NAME("ColRul",NA())                                                                   =END.IF()                                                =    SET.NAME("Ndif",0)                                                            ! m ake sure the w orksheet is hidden
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                =RETURN()                                                =IF(ISERROR(Itmp0))                                                                                  =COLUMN.WIDTH(,,,3)                                                SCF_StructureWide                          32          32
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =PAGE.SETUP("&L&""Arial,Regular""&8Built by: DL Duew er, NIST&C&""Arial,Bold""&16"&Asyst&" &""Arial,Regular""&12<"&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&8Paid for, in part, by: NIJ","&L&""Arial,Regular""&8&F!&A&C
=FORMULA(GET.WORKSPACE(4),INDIRECT("'"&S0mac&"'!"&Arow &2&Acol&3,FALSE))                             =RUN(SCF_StoreCompact,FALSE) =ACTIVATE(S0dcm)            ! Open the file               =ELSE.IF(Ftype="FSSi")     =    SET.NAME("Atmp",DEREF(INDIRECT("'"&S0srt&"'!"&Arow &Irow &Acol&1,FALSE)))
                                                                                                                                                                                                                                                    =ACTIVATE(S0dst)           !Setup for com pact output                                           = SET.NAME("Asort",Acur) =SET.NAME("Itmp",FIND("_NIST",Bsht))                         = ECHO(TRUE)
                                                                                                                                                                                                                                                                                                                         = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci,FALSE))) =FORMULA("#Loci",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Csamp+1,FALSE))                     = ECHO(TRUE)                 = ECHO(TRUE)                 =                             = SET.NAME("Jrow ",MATCH(Aloc,INDIRECT("'"&S0con&"'!"&Acol&Cloci,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           =FORMULA.GOTO(Arow &1&Acol&1,TRUE)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   FORMULA(Itmp+1,INDIRECT("'"&S0con&"'!"&Arow &Nsam+2&Acol&Csamp+3,FALSE))                                                                          ! Loop over the sam ples                                                                 =    FOR("Icol",ColSam+1,ColLst,1)                                                 =WORKBOOK.HIDE()                                                                        = SET.NAME("NumNew ",NumNew +1)                                    =FORMULA.GOTO(Arow &1&Acol&1,TRUE)=SELECT("Button 1")                                                Utility_AlignControls                      33          33
=FORMULA(GET.DOCUMENT(14),INDIRECT("'"&S0mac&"'!"&Arow &3&Acol&3,FALSE))                                                          =ZOOM(ZoomSet)              =ERROR(FALSE)                 = RUN(SCF_FSSi,FALSE)      =    IF(NOT(Aloc=Atmp))      =SELECT(INDIRECT("'"&S0dst&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                                                                                                                                               =SET.NAME("Msub0"," ")                                                                             =IF(NOT(ISERROR(Itmp)),SET.NAME("Bsht",MID(Bsht,1,Itmp-1)))
                                                                                                                                                                                                                                                                                                                         = FORMULA(Aloc,INDIRECT("'"&S0dcm&"'!"&Arow &Row Std&Acol&1+Iloc,FALSE))                                         = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is NOT in CODIS format!")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Check locus
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("Idx0",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Csamp+2,FALSE))                 = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is NOT in GeneMapper or Vertical long-format!")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > This w orksheet is ))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = END.IF()                    = IF(ISERROR(Jrow NOT in GeneMapper w ide-format!") ! Loci                                ! Count the num ber of colum ns=FOR("Isam",1,Nsam,1)           ! Get num ber of Loci       ! Rule header                =      SET.NAME("Atmp",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Irow &Acol&Icol,FALSE)))                                                                                        = FORMULA("Invalid!",INDIRECT("'"&S0dti&"'!"&Arow &2&Acol&4,FALSE))                                  =FORMAT.SIZE(86,36)                                                Utility_CleanUpNames                       34          34
=FORMULA(NOW(),INDIRECT("'"&S0mac&"'!"&Arow &4&Acol&3,FALSE))                                        ! Form at return                                                                                                  =
                                                                                                                                  =SELECT(INDIRECT("'"&S0dcm&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                              = SET.NAME("Atmp1",OPEN(Afile,0,FALSE,,,,,,,,1))
                                                                                                                                                                                            = SET.NAME("Csamp",Cloci+6+IF(ISERROR(ColRul),0,2))
                                                                                                                                                                                                                              FORMULA(Atmp,INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci,FALSE))
                                                                                                                                                                                                                                                    =PATTERNS(0)               =SET.NAME("S0dou",S0dcm)                  =NEXT()                    ! Try to m atch                                                                                                                                 = ALERT("This w orksheet is NOT in the expected GeneMapper bethe expected GeneMapper wSET.NAME("Nloc",Nloc+1) Loop things the sam ples at =ACTIVATE(S0din)
                                                                                                                                                                                                                                                                                                                                                                                  =SET.NAME("Afiles",FILES(WB1))
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("#Idx",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Csamp+3,FALSE)) CODIS format!"&Acar&Acar&"The column header 'LOCUSNAME' couldNOTor Vertical long-format!"&Acar&Acar&"A column header containing Name' occurs only once in the header."&Acar&"Please IF(NOT(Ftype="NISTcompact")) MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Sample "&Isam&" of "&Nsam) SET.NAME("Adif",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Jrow &Acol&Icol,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                          = ALERT("This w orksheet is NOT in the expected
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       =IF(ISERROR(ColLoc))                                                                                                                                                                                                                                                                                      =FORMULA("Rules",Arow &1&Acol&Crule)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 = ALERT("This w orksheet is not in found."&Acar&"Please =   'Fetch' correctly formated data or fix over and try again.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ide-format!"&Acar&Acar&"'Sample 'Sample ' occurs least tw ice in the header."&Acar&"Please 'Fetch' correctly formated datathings things and try =SET.NAME("Nloc",0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           !                                                          = 'Fetch' correctly formated data or fix or fix and try again.",2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =                               again.",2)                                               =                                                                                  !=MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Finished!")                         = SELECT(Acol&1&Asep&Acol&4)                                       =ACTIVATE(S0dcm)                  =FORMAT.MOVE(2,2,Arow &1&Acol&1)                                   Utility_DateTimeDependencies               35          35
                                                                                                     =ACTIVATE(S0con)             =EDIT.DELETE(4)             =ERROR(TRUE)                                             =      SET.NAME("Nall",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci+3,FALSE)))
                                                                                                                                                                                            = SET.NAME("Crule",Csamp+6+IF(ISERROR(ColRul),0,2))                                =SET.NAME("NanSto",NanSt2)
                                                                                                                                                                                                                                                    =SELECT(INDIRECT("'"&S0dst&"'!"&Acol&Coffs+1+Nloc&Asep&Acol&256,FALSE))
                                                                                                                                                                                                                                                                                                                         =SELECT(INDIRECT("'"&S0dcm&"'!"&Arow &Row Std&Acol&2&Asep&Arow &Row Std&Acol&1+Nloc,FALSE))
                                                                                                                                                                                                                                                                                                                                                    =ELSE()                       =SET.NAME("Nfile",IF(ISERROR(Afiles),0,COLUMNS(Afiles)))= HALT()
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA("#?",INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Csamp+4,FALSE))                   = HALT()                     = HALT()                     ! Loci
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = FORMULA("Invalid FSSi format",INDIRECT("'"&S0con&"'!"&Arow &Row Con&Acol&Cpara+1,FALSE))                           =                              =FOR("Isam",1,Nsam,1)          =SET.NAME("Nloc",0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(Aloc,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci,FALSE))                =                              = SET.NAME("Asam",DEREF(INDIRECT("'"&S0con&"'!"&ArowLst,1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            SET.NAME("Jrow ",MATCH(Aloc,INDIRECT("'"&S0con&"'!"&Acol&Cloci,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     =FOR("Irow ",Row Hed+1,Row =SELECT(Arow &1&Acol&Crule&Asep&Arow &2&Acol&Crule+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &2+Isam&Acol&Csamp,FALSE))) IF(NOT(Atmp=Adif),SET.NAME("Ndif",Ndif+1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =                                                                                  =RETURN()                                                                               = COLUMN.WIDTH(,,,3)                                                                                 =FOR("Itmp",2,6,1)                                                 Utility_ResetHeaders                       36          36
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =PAGE.SETUP("&L&""Arial,Regular""&6Built by: DL Duew er, NIST&C&""Arial,Bold""&14"&Asyst&" &""Arial,Regular""&10<Version "&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&6Paid for, in part, by: NIJ","&L&""Arial,Regular""&6
! Is this the first tim e for a new user?                                                                                         =ALIGNMENT(4)
                                                                                                     =SELECT(Acol&Cpara-1&Asep&Acol&256)                                                    = RUN(SCF_FormatHeader,FALSE) SET.NAME("Jcol",MATCH(Aloc,INDIRECT("'"&S0dst&"'!"&Arow &3,FALSE),0))
                                                                                                                                                              =IF(ISERROR(Atmp1),SET.NAME("Atmp1",TRUE))               =                            =CLEAR(3)                  =SET.NAME("Row Tmp",Row St2)              =ALIGNMENT(3,FALSE,3,0) = SET.NAME("Nlen",LEN(Atmp))                                                             =END.IF()
                                                                                                                                                                                                                                                                                                                                                                                                               =SELECT(Arow &2&Acol&Csamp&Asep&Arow &2&Acol&Csamp+4)                                =END.IF()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE))    =END.IF()                                                  =     FORMULA(1,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" >              IF(ISERROR(Jrow ))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Irow &Acol&ColLoc,FALSE))) = FOR("Icol",ColLoc,ColLst,1) = Sample "&Isam&" of "&Nsam)= SET.NAME("Irow ",DEREF(INDIRECT("'"&S0con&"'!"&Arow &2+Isam&Acol&Csamp+2,FALSE))) NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Irow &Acol&ColLoc,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =ALIGNMENT(7,FALSE,3,0) =                                                                                                                                                                               = SELECT(Arow &2&Acol&2)                                           =FORMULA.GOTO(Arow &1&Acol&1,TRUE)= SELECT("Button "&Itmp)                                           Utility_Show Macro                         37          37
=SET.NAME("Atmp",DEREF(INDIRECT("'"&S0mac&"'!"&Arow &6&Acol&3,FALSE)))                               =COLUMN.WIDTH(0.5)                                       =IF(Atmp1=FALSE)
                                                                                                                                  =FONT.PROPERTIES("Arial","Regular",10,,,,,,,1)                                       =
                                                                                                                                                                                            = RUN(SCF_StructureLong,FALSE) FOR("Iall",1,Nall,1)                                =SET.NAME("Fadd","NISTc")                 =BORDER(1)                 = SET.NAME("Isok",0)                                        in the current directory
                                                                                                                                                                                                                                                                                                                                                                                  ! No files of that kind found=ALIGNMENT(3,FALSE,3,0)                                 = ECHO(TRUE)                                                                                                         =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              = SET.NAME("Jrow ",MATCH(Aloc,INDIRECT("'"&S0con&"'!"&Acol&Cloci,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(IF(ISERROR(ColMaj),ColPro,IF(ISERROR(ColPro),ColMaj,ColMaj&"&"&ColPro)),INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci+2,FALSE)) &Row Lst&Acol&Icol,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           = SET.NAME("Asam",DEREF(INDIRECT("'"&S0con&"'!"&Arow &2+Isam&Acol&Csamp,FALSE)))= FORMULA(Asam,INDIRECT("'"&S0dst&"'!"&Arow &Row Std+Isam&Acol&1,FALSE)) &2&Acol&Crule)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          = SET.NAME("Nval",COUNTA(INDIRECT("'"&S0din&"'!"&Arow &Row Hed&Acol&Icol&Asep&Arow SET.NAME("Jrow ",MATCH(Aloc,INDIRECT("'"&S0con&"'!"&Acol&Cloci,FALSE),0))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      =       SET.NAME("Nloc",Nloc+1)                                =                           =FORMULA("Code",Arow         =    IF(Ndif<0.5)                                                                                                                                                          = OPTIONS.VIEW(TRUE,TRUE)                                                                            = FORMAT.SIZE(65,24)                                               SCF_StructureDataVeryLong                  38          38
=SET.NAME("Atmp1",GET.WORKSPACE(26))                                                                 =COLUMN.WIDTH(,,,3)          =COLUMN.WIDTH(0.5)                                        = RUN(SCF_DataLong,FALSE)  =       FORMULA(Atmp,INDIRECT("'"&S0dst&"'!"&Arow &3&Acol&Jcol+Iall-1,FALSE))
                                                                                                                                                                                                                                                    ! opened.")
                                                                                                                                                              = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R7C&" > File ("&Afile&") could not be Loop over all alleles for each sam ple                                   =SELECT(INDIRECT("'"&S0dcm&"'!"&Acol&1&Asep&Acol&256,FALSE))
                                                                                                                                                                                                                                                                                                                                                    = FOR("Isrt",1,Nsrt,1)        =IF(Nfile<0.5)               =BORDER(1)                 ! Get the allele colum n                                  ! Try to get the secondary param w orksheet is NOT in FSSiIF(ISERROR(Jrow ))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ! > This
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" Loci eters                           = format!")                   =                              = SET.NAME("Irow 1",DEREF(INDIRECT("'"&S0con&"'!"&Arow &2+Isam&Acol&Csamp+2,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          = IF(Nval>0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  FORMULA(2,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci+3,FALSE))                 =                                                              = IF(ISERROR(Jrow ))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              FORMULA(Aloc,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci,FALSE))               =FORMULA("#",Arow &2&Acol&Crule+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =      SET.NAME("Nclr",Nclr+1)                                                                                                                                             = ECHO(TRUE)                                                       ! Reset Macro page as w ell       = FORMAT.MOVE(1,1,Arow &5+(Itmp-2)*3&Acol&2)                       SCF_CODIS                                  39          39
=FORMULA(Atmp1,INDIRECT("'"&S0mac&"'!"&Arow &6&Acol&3,FALSE))                                                                     =FORMULA.GOTO(INDIRECT("'"&S0con&"'!"&Arow &1&Acol&1,FALSE),TRUE)
                                                                                                     =FORMULA.GOTO(Arow &1&Acol&1,TRUE)                       = ACTIVATE(S0con)                                        =      NEXT()                =SET.NAME("Icol",1)        Check if requisite procedures com pete =COLUMN.WIDTH(0.5)                                          = MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Workbook ("&WB1&") not found!")  = ALERT("This w orksheet is NOT in the expected FSSi format!"&Acar&Acar&"The column =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("ColLoc",MATCH("Marker",INDIRECT("'"&S0din&"'!"&Arow &RowID' could not be=
                                                                                                                                                                                                                                                                                                                                                    = SET.NAME("Atmp1",DEREF(INDIRECT("'"&S0srt&"'!"&Arow &1&Acol&Isrt+10,FALSE))) =SET.NAME("ColMaj",MATCH("*ALLELEVALUE",INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE),0))      =ACTIVATE(S0din)                  SET.NAME("Nloc",Nloc+1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              header 'Locus Hed,FALSE),0))found."&Acar&"Please 'Fetch'=correctly formated data or fix = SET.NAME("Aloc",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Row Hed&Acol&Icol,FALSE))) =sam ple
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  SET.NAME("Jrow ",Nloc+2) SET.NAME("Ntmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &2+Isam&Acol&Csamp+3,FALSE)))Loop over the loci&Nloc+2&Acol&Cloci+2,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           things and try again.",2)  =       FORMULA(Icol,INDIRECT("'"&S0con&"'!"&Arow for this
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     !                                                           =                            =      SELECT(INDIRECT("'"&S0din&"'!"&Arow &Jrow ,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           SET.NAME("Nloc",Nloc+1) SELECT(Arow &2&Acol&Crule&Asep&Arow &2&Acol&Crule+1)                                                                                                                                                  = MESSAGE(TRUE,"Missing a valid day, month, year format.")         =ACTIVATE(S0mac)                  =NEXT()                                                            SCF_Sort                                   40          40
=IF(Atmp=Atmp1)                                                                                      =ECHO(TRUE)                                                                            =ELSE.IF(Ftype="GM-long") =
                                                                                                                                                              = ALERT("File ("&Afile&") could not be opened.",2)                                    =FOR("Iloc",1,Nloc,1)      =ACTIVATE(S0con)
                                                                                                                                                                                                                              FORMULA(Iloc,INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci+4,FALSE))                     =COLUMN.WIDTH(,,,3)        = IF(LEFT(Atmp1,Nlen)=Atmp) ECHO(TRUE)
                                                                                                                                                                                                                                                                                                                                                                                  =                            =ACTIVATE(S0con)           =IF(ISERROR(ColMaj))         = HALT()                     =SET.NAME("ColMaj",MATCH("Allele 1",INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE),0)) ELSE()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 =SET.NAME("Nloc",0)          =    FORMULA(Aloc,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =                                                             = IF(NOT(ISERROR(FIND(" ",Aloc))),SET.NAME("Aloc",LEFT(Aloc,FIND(" ",Aloc)-1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           = SET.NAME("Irow 2",Irow 1+Ntmp-1)                         =       FORMULA(1,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci+3,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = FOR("Iloc",1,Nloc,1)          =                           =ALIGNMENT(3,FALSE,3,0) =           CLEAR(3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           FORMULA(Aloc,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci,FALSE))                                                                                                                                                                                                                             =PAGE.SETUP("&L&""Arial,Regular""&8Built by: DL > Cells… > Number > Date)."&Acar&Acar&"Then click 'Check It' to proceed.")
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         = ALERT("Please format this as a valid date (day, month, year) w ith"&Acar&" Excel's standard cell format tool (FormatDuew er, NIST&C&""Arial,Bold""&16"&Asyst&" &""Arial,Regular""&12<"&TEXT(Adate,"dd-mmm-yy")&">"&Atmp&"&R&""Arial,Regular""&8Paid for, in part, by: NIJ","&L&""Arial,Regular""&8&F!&A&C
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =FOR("Itmp",10,11,1)                                               SCF_Sort_User                              41          41
= SET.NAME("Atmp2",DEREF(INDIRECT("'"&S0mac&"'!"&Arow &7&Acol&3,FALSE)))                                                          ! Form at the Am biguity sheet
                                                                                                     =FORMULA.GOTO(Arow &Row Bext&Acol&2,FALSE)               = HALT()                      = SET.NAME("Csamp",Cloci+6)=      SET.NAME("Icol",99999)= SET.NAME("Aloc",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci,FALSE)))
                                                                                                                                                                                                                                                                               =SELECT(INDIRECT("'"&S0con&"'!"&Arow &Row St2&Acol&Cpara+1&Asep&Arow &Row St2&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                         =FORMULA.GOTO(INDIRECT("'"&S0dcm&"'!"&Arow &1&Acol&1,FALSE),TRUE)
                                                                                                                                                                                                                                                                                                                                                    =     SET.NAME("Isok",Isok+1) = SET.NAME("Atmp",ALERT("Workbook ("&WB1&") is not in =Bfet&Acol&2,FALSE)"&DIRECTORY()&"."&Acar&Acar&"Click 'OK' to browCon&Acol&Cpara+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                          the current directory:       =END.IF()                    =SET.NAME("ColPro",NA()) =FOR("Icol",ColFst,ColLst,1) =
                                                                                                                                                                                                                                                                                                                                                                                                               =FORMULA.GOTO(Arow &Row FORMULA("Invalid CODIS format",INDIRECT("'"&S0con&"'!"&Arow &Row se, 'Cancel' to abort.",1))                                FORMULA(Aloc,INDIRECT("'"&S0con&"'!"&Arow &2&Acol&Csamp+4+Nloc,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =                              = FORMULA(Asam,INDIRECT("'"&S0dst&"'!"&Arow &Row Std+Isam&Acol&1,FALSE)) ",Nloc+2) SET.NAME("Aloc",DEREF(INDIRECT("'"&S0con&"'!"&Arow=BORDER(1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  SET.NAME("Itmp",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Jrow &Acol&Cloci+1,FALSE)))     =       SET.NAME("Jrow         =                               =     FORMULA(0,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci+1,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  &2+Iloc&Acol&Cloci,FALSE))) =    END.IF()                                                                                                                                                              = HALT()                                                                                             = SELECT("Button
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =SELECT(Arow &6&Acol&3&Asep&Arow &7&Acol&3)"&Itmp)                                                   SCF_SortSpecify                            42          42
= IF(ISERROR(Atmp2),SET.NAME("Atmp2",0))                                                                                          =RUN(SCF_AmbigClear,FALSE)  =END.IF()                     = SET.NAME("Crule",NA()) =      END.IF()                                           =CLEAR(3)
                                                                                                                                                                                                                                                    = SET.NAME("Nall",DEREF(INDIRECT("'"&S0con&"'!"&Arow &Iloc+2&Acol&Cloci+3,FALSE)))              =                             =
                                                                                                                                                                                                                                                                                                                                                          SET.NAME("Asort",Atmp1) IF(NOT(Atmp))                                           = SELECT(INDIRECT("'"&S0din&"'!"&Arow &Row Hed,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                               =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&R1C&" > Finished!")                                                                                 = END.IF()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    =SET.NAME("ColRul",NA()) = SET.NAME("Atmp",DEREF(INDIRECT("'"&S0din&"'!"&Arow &Row FORMULA(Itmp+1,INDIRECT("'"&S0con&"'!"&Arow &Jrow!&Acol&Cloci+1,FALSE)) colum ns ELSE() &Row Std+Isam&Acol&Coffs,FALSE)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            =                                                               Count the num ber of      =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  Hed&Acol&Icol,FALSE))) = IF(NOT(ISERROR(ColRul)),FORMULA(Asam,INDIRECT("'"&S0dst&"'!"&Arow                                                         =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     = SET.NAME("Icol",DEREF(INDIRECT("'"&S0con&"'!"&Arow &2+Iloc&Acol&Cloci+2,FALSE))) NEXT()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           FORMULA(Irow ,INDIRECT("'"&S0con&"'!"&Arow &Nloc+2&Acol&Cloci+2,FALSE))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              =                                                                                                                                                                          =ELSE()                                                            =CLEAR(3)                         = FORMAT.SIZE(65,24)                                               SCF_UniquifySampleNames                    43          43
= SET.NAME("Atmp2",Atmp2+1)                                                                          =MESSAGE(TRUE,TEXT(NOW(),AlngDatTim)&Msub0&" > Finished!")                             = RU
  Locus          aka        aka aka aka aka aka aka aka    Alphabetical     PP16 PP-ESX-17
     AMEL    Amelogenin    Amelo                        AMEL              D3S1358    AMEL
   CSF1PO    CSF                                        CSF1PO            TH01     D3S1358
 D10S1248    D10                                        D10S1248          D21S11      TH01
 D10S1435                                               D10S1435          D18S51    D21S11
 D11S4463                                               D11S4463          Penta_E   D18S51
 D12ATA63                                               D12ATA63          D5S818  D10S1248
  D12S391    D12                                        D12S391           D13S317  D1S1656
  D13S317    D13                                        D13S317           D7S820   D2S1338
 D14S1434                                               D14S1434          D16S539  D16S539
  D16S539    D16                                        D16S539           CSF1PO D22S1045
 D17S1301                                               D17S1301          Penta_D     vWA
  D17S974                                               D17S974           AMEL     D8S1179
    D18S51   D18                                        D18S51            vWA          FGA
  D18S853                                               D18S853           D8S1179   D2S441
  D19S433    D19                                        D19S433           TPOX     D12S391
D1GATA113                                               D1GATA113         FGA      D19S433
  D1S1627                                               D1S1627                       SE33
  D1S1656    D1                                         D1S1656
  D1S1677                                               D1S1677
 D20S1082                                               D20S1082
  D20S482                                               D20S482
    D21S11   D21                                        D21S11
 D22S1045    D22                                        D22S1045
  D2S1338    D2                                         D2S1338
  D2S1776                                               D2S1776
    D2S441                                              D2S441
  D3S1358    D3                                         D3S1358
  D3S3053                                               D3S3053
  D3S4529                                               D3S4529
  D4S2364                                               D4S2364
  D4S2408                                               D4S2408
  D5S2500                                               D5S2500
  D5S2505                                               D5S2505
    D5S818   D5                                         D5S818
  D6S1017                                               D6S1017
    D6S474                                              D6S474
    D7S820   D7                                         D7S820
  D8S1115                                               D8S1115
  D8S1179    D8                                         D8S1179
  D9S1122                                               D9S1122
  D9S2157                                               D9S2157
       FGA                                              FGA
   Penta_D   Penta D      PentaD                        Penta_D
   Penta_E   Penta E      PentaE                        Penta_E
      SE33                                              SE33
      TH01   THo1                                       TH01
     TPOX                                               TPOX
      vWA                                               vWA
PP-ESI-17   Identifiler   MiniFiler  NGM    SGM Plus Profler Plus Cofiler New
    AMEL    D8S1179       D13S317 D10S1248 D3S1358     D3S1358 D3S1358
 D3S1358      D21S11       D7S820      vWA      vWA          vWA D16S539
 D19S433      D7S820        AMEL D16S539 D16S539             FGA   AMEL
 D2S1338     CSF1PO       D2S1338 D2S1338 D2S1338          AMEL     TH01
D22S1045    D3S1358        D21S11     AMEL     AMEL    D8S1179     TPOX
 D16S539        TH01      D16S539 D8S1179 D8S1179       D21S11 CSF1PO
  D18S51    D13S317        D18S51    D21S11   D21S11    D18S51 D7S820
 D1S1656    D16S539       CSF1PO     D18S51   D18S51    D5S818
D10S1248    D2S1338           FGA D22S1045 D19S433     D13S317
  D2S441    D19S433                 D19S433     TH01    D7S820
    TH01        vWA                    TH01      FGA
     vWA       TPOX                     FGA
  D21S11      D18S51                 D2S441
 D12S391       AMEL                 D3S1358
 D8S1179      D5S818                D1S1656
     FGA         FGA                D12S391
    SE33

								
To top