{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function rowexists, msg, fieldcount, next_key\r\ndeclare subroutine forward_event, create_note\r\n$insert logical\r\n$insert quote_srl_equ\r\n$insert quote_spec_equ\r\n$insert msg_equates\r\n$insert recipe_equ\r\n$insert rds_equ\r\n$insert rds_layer_info_equ\r\n$insert recipe_layer_info_equ\r\n\r\nVoid = utility( 'CURSOR', 'H' )\r\nequ RunOrdNo$    to 1\r\nequ RDSNo$       to 2\r\nequ WafersSched$ to 3\r\n\r\nLockMessage = ''\r\nif rowexists( 'SCHEDULE_SRL', .schedule_no->text ) else\r\n   .entry_id->text = @user4\r\nend\r\n\r\nSepLayCnt = .sep_layer_cnt->text\r\nif num( SepLayCnt ) else\r\n    SepLayCnt = 1\r\nend\r\nNoSave = false$\r\nORDSDetail = get_property( @window, '@OrigRDSDetail' )\r\nRDSDetail  = .rds_detail->array\r\nRDSNos     = RDSDetail<RDSNo$>\r\nOrigRDSNos = RDSNos\r\n* Pull off Fields that will be used to update the RDS\r\nTorderLine = .order_detail_line->array\r\nQuoteNo    = .quote_no->text\r\nScheduleNo = .schedule_no->text\r\nOrderNo    = .order_no->text\r\nPO         = .po->text\r\nCustNo     = .cust_no->text\r\nPartNum    = '' ;* srl does not use part and lot num\r\nLotNum     = ''\r\nWo         = .wo->text\r\n*\r\n*if ( OrderDetail <> OOrderDetail ) or ( .po->text <> OrigPo ) or ( .cust_no->text <> OrigCustNo ) then\r\nQuoteRec = xlate( 'QUOTE_SRL', QuoteNo, '', 'X' )\r\nSpecSubstrate = QuoteRec<quote_srl_spec_substrate$>\r\nSpecEpi       = QuoteRec<quote_srl_spec_epi$>\r\nEpiLayers = field( SpecEpi, char(245), 1 )\r\nEpiOther  = field( SpecEpi, char(245), 2 ) \r\nconvert char(247) to @fm in EpiLayers ;* each seperate layer              \r\nForceUpdate = .force_update->check\r\nRow = 1\r\nRcnt = fieldcount( RDSDetail<1>, @vm )\r\nfor Row = 1 to Rcnt step SepLayCnt\r\n    for i = 1 to SepLayCnt\r\n        Trow = Row+i-1\r\n\t    ThisRDSLine = RDSDetail<RunOrdNo$,TRow>:@vm:@vm:RDSDetail<WafersSched$,TRow>\r\n\t    ThisORDSLine= ORDSDetail<RunOrdNo$,TRow>:@vm:@vm:ORDSDetail<WafersSched$,TRow>:@vm\r\n\t    if ( ForceUpdate ) or ( ThisRDSLine <> ThisORDSLine ) or (( ThisRDSLine <> @vm ) and ( ThisRDSLine<1,RDSNo$> = '' ) ) then\r\n\t        * this row has been changed/added\r\n\t        CurRunOrdNo = ThisRDSLine<1,RunOrdNo$>\r\n\t        CurWafersSched = ThisRDSLine<1,WafersSched$>\r\n\t        if CurRunOrdNo and CurWafersSched then\r\n                * now each epi layer; oh fuck i don't want to code this mess\r\n\t\t\t\tThisSepLayer = EpiLayers<i>\r\n\t\t\t\tgosub UpdateRDS\r\n            end else\r\n                if CurRunOrdNo = '' and CurWafersSched = '' else\r\n\t\t            NoSave = true$\r\n\t\t            MsgInfo = ''\r\n\t\t            MsgInfo<micon$> = '!'\r\n\t\t            MsgInfo<mtext$> = 'RDS Detail line ':TRow:' must have a Run Order Number and Wafers Scheduled. No Run Data Sheet created/updated for this line.'\r\n\t\t            Void = msg( '', MsgInfo )\r\n\t\t        end\r\n\t        end\r\n\t    end    \r\n\tnext i\r\nnext Row\r\nif RDSNos <> OrigRDSNos then\r\n    RDSDetail = .rds_detail->array\r\n    RDSDetail<RDSNo$> = RDSNos\r\n    .rds_detail->array = RDSDetail\r\nend\r\nVoid = utility( 'CURSOR', 'A' )\r\nif NoSave else\r\n    forward_event( CtrlEntId, CtrlClassId )\r\nend\r\nif LockMessage then\r\n    LockMessage[-2,2] = ''\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = LockMessage\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nif RdsNos <> OrigRdsNos then\r\n    TRds = RdsNos\r\n    swap @vm:@vm with '' in TRds\r\n    if TRds[-1,1] = @vm then TRds[-1,1] = ''\r\n    swap @vm with ', ' in TRds\r\n    TRds := '.'\r\n    MsgInfo = ''\r\n    MsgInfo<micon$> = '!'\r\n    MsgInfo<mtext$> = 'The following Run Data Sheets were created ':TRds\r\n    Void = msg( '', MsgInfo )\r\nend\r\n\r\nreturn 0\r\n*===========================================================================*\r\nUpdateRDS:\r\n    RDSRec = ''\r\n    open 'RDS' to RDSTable else\r\n\t    Void = msg( '', 'Unable to open RDS...' )\r\n\t\treturn 0\r\n    end\r\n    KeyToUse = RDSNos<1,TRow>\r\n    Update = true$\r\n    if KeyToUse then\r\n        Exists = true$\r\n        lock RDSTable, KeyToUse then\r\n            RDSRec = xlate( 'RDS', KeyToUse, '', 'X' )\r\n        end else\r\n            if LockMessage else\r\n                LockMessage = 'Unable to lock RDS no(s). Try at a later point. '\r\n            end\r\n            LockMessage := KeyToUse :', '\r\n            Update = false$\r\n        end    \r\n    end else\r\n        if i = 1 then ;* first seperate layer get next key\r\n            KeyToUse = next_key( 'RDS', RDSTable, 'NEXT', '' )\r\n\t    end else\r\n\t        for j = Trow-1 to 1 step -1\r\n\t            KeyToUse = field( RDSNos<1,Trow-1>, '.', 1 )\r\n\t            if KeyToUse then \r\n\t                KeyToUse := '.':i\r\n\t            end\r\n\t           until KeyToUse\r\n\t        next j\r\n\t        lock RDSTable, KeyToUse else\r\n\t            if LockMessage else\r\n\t                LockMessage = 'Unable to lock RDS no(s). Try at a later point. '\r\n\t                LockMessage := KeyToUse :', '\r\n\t                Update = false$\r\n\t            end\r\n            end\r\n        end\r\n\t    Exists = false$\r\n        RDSRec = ''\r\n        RDSRec<rds_entry_id$>   = @user4\r\n        RDSRec<rds_entry_date$> = date()        \r\n\t    RDSRec<rds_status$>     = 'O'\r\n\t    RDSRec<rds_lsl_co$>     = 'SRL'\r\n    end\r\n    if Update then\r\n        ConMinThick  = ThisSepLayer<1,QSEpiConcMinThick$>  ;* could have @svm\r\n        ConMaxThick  = ThisSepLayer<1,QSEpiConcMaxThick$>  ;* could have @svm\r\n        TcCnt = fieldcount( ConMinThick, @svm )\r\n        for zz = 1 to TcCnt\r\n            ConMinThick<1,1,zz> = iconv( ConMinThick<1,1,zz>, 'MS' )\r\n        next zz\r\n        TcCnt = fieldcount( ConMaxThick, @svm )\r\n        for zz = 1 to TcCnt\r\n            ConMaxThick<1,1,zz> = iconv( ConMaxThick<1,1,zz>, 'MS' )\r\n        next zz\r\n        convert @svm to @vm in ConMaxThick\r\n        convert @svm to @vm in ConMinThick\r\n        ConUnits     = ThisSepLayer<1,QSEpiConcUnits$>     \r\n\t    ResMinThick  = ThisSepLayer<1,QSEpiResMinThick$>  \r\n\t    ResMaxThick  = ThisSepLayer<1,QSEpiResMaxThick$>   \r\n\t    ResUnits     = ThisSepLayer<1,QSEpiResUnits$>  \r\n\t    MinThick     = ThisSepLayer<1,QSEpiMinThick$>      \r\n\t    MaxThick     = ThisSepLayer<1,QSEpiMaxThick$>      \r\n\t    ThickUnits   = ThisSepLayer<1,QSEpiThickUnits$>    \r\n\t    LDopant      = ThisSepLayer<1,QSEpiDopant$> \r\n\t    Recipe       = ThisSepLayer<1,QSEpiRecipe$>\r\n\t    RecipeRec    = xlate( 'RECIPE', Recipe, '', 'X' )\r\n\t    * first load the main layer into the run data sheet\r\n\t    RDSRec<rds_quote_no$>       = QuoteNo\r\n\t    RDSRec<rds_schedule_no$>    = ScheduleNo\t    \r\n\t    RDSRec<rds_wo$>             = WO\t    \r\n\t    RDSRec<rds_order_no$>       = OrderNo\t    \r\n\t    RDSRec<rds_po$>             = PO\t    \r\n\t    RDSRec<rds_cust_no$>        = CustNo\r\n\t    RDSRec<rds_part_num$>       = PartNum\r\n\t    RDSRec<rds_lot_num$>        = LotNum\r\n\t    RDSRec<rds_recipe_no$>      = Recipe\r\n\t    RDSRec<rds_epi_dopant$>     = RecipeRec<recipe_epi_dopant$>\r\n\t    RDSRec<rds_epi_temp$>       = RecipeRec<recipe_epi_temp$>\r\n\t    RDSRec<rds_epi_h2_flow$>    = RecipeRec<recipe_epi_h2_flow$>\r\n\t    RDSRec<rds_epi_diluent$>    = RecipeRec<recipe_epi_diluent$>\r\n\t    RDSRec<rds_epi_dopant$>     = RecipeRec<recipe_epi_dopant$>\r\n\t    RDSRec<rds_epi_gases$>      = RecipeRec<recipe_epi_gases$>\r\n\t    RDSRec<rds_epi_gas_rate$>   = RecipeRec<recipe_epi_gas_rate$>\r\n\t    RDSRec<rds_epi_gases_unit$> = RecipeRec<recipe_epi_gases_unit$>\r\n\t    RDSRec<rds_bake_time$>      = RecipeRec<recipe_bake_time$>\r\n\t    RDSRec<rds_bake_temp$>      = RecipeRec<recipe_bake_temp$>\r\n  \t    RDSRec<rds_bake_h2$>        = RecipeRec<recipe_bake_h2$>\r\n  \t    RDSRec<rds_bake_susc_rot$>  = RecipeRec<recipe_bake_susc_rot$>  \t    \r\n  \t    RDSRec<rds_etch_time$>      = RecipeRec<recipe_etch_time$>\r\n  \t    RDSRec<rds_etch_temp$>      = RecipeRec<recipe_etch_temp$>  \t      \t    \r\n  \t    RDSRec<rds_etch_h2$>        = RecipeRec<recipe_etch_h2$>  \t      \t      \t    \r\n  \t    RDSRec<rds_etch_hcl$>       = RecipeRec<recipe_etch_hcl$>  \t      \t    \t    \r\n\t    RDSRec<rds_special_inst$>   = SpecSubstrate<1,QSSubInstructions$>\r\n\t    * concentration\r\n  \t    ConMinThick = field( ConMinThick, @vm, 1, 2 )\r\n\t    ConMaxThick = field( ConMaxThick, @vm, 1, 2 )\r\n        RDSRec<rds_con_min$> = ConMinThick \r\n        RDSRec<rds_con_max$> = ConMaxThick\r\n        if ConMinThick and ConMaxThick then\r\n            if ConMinThick = ConMaxThick then\r\n                RDSRec<rds_con_target$> = ConMinThick\r\n            end else\r\n                * is it ok to do int \r\n                *Mid = ConMinThick +++ ((ConMaxThick---ConMinThick)///2)\r\n                MinLessMax = (ConMaxThick---ConMinThick)\r\n                Mcnt = fieldcount(ConMinThick, @vm )\r\n                DivVar = str( 2:@vm, Mcnt )\r\n                DivVar[-1,1] = ''\r\n                Tans = MinLessMax///DivVar\r\n                Ans = MinLessMax+++Tans\r\n                *RDSRec<rds_con_target$> = Mid\r\n                RDSRec<rds_con_target$> = Ans\r\n            end\r\n        end \r\n        RDSRec<rds_con_units$> = ConUnits \r\n        * resistivity\r\n        RDSRec<rds_res_min$>        = ResMinThick        \r\n        RDSRec<rds_res_max$>        = ResMaxThick\r\n\t    if ResMinThick and ResMaxThick then\r\n\t        if ResMinThick = ResMaxThick then\r\n\t            RDSRec<rds_res_target$> = ResMinThick\r\n\t        end else\r\n                Mid = ResMinThick + ((ResMaxThick-ResMinThick)/2)\r\n                RDSRec<rds_res_target$> = Mid\r\n            end\t            \r\n\t    end    \r\n\t    RDSRec<rds_res_units$>      = ResUnits\r\n\t    * thickness\r\n\t    RDSRec<rds_thick_min$>      = MinThick           \r\n\t    RDSRec<rds_thick_max$>      = MaxThick\r\n\t    if MinThick and MaxThick then\r\n\t        if MinThick = MaxThick then\r\n\t            RDSRec<rds_thick_target$> = MinThick\r\n\t        end else\r\n\t            Mid =  MinThick + ((MaxThick-MinThick)/2)\r\n\t            RDSRec<rds_thick_target$> = Mid\r\n\t        end\r\n\t    end           \r\n        RDSRec<rds_thick_units$>         = ThickUnits       \r\n        * now fill in all same reactor layers\r\n        convert char(248) to @fm in ThisSepLayer\r\n        RestOfLayers = field( ThisSepLayer, @fm, 2, 9999 )\r\n        RolCnt = fieldcount( RestOfLayers, @fm )\r\n        RecipeLayerInfo = RecipeRec<recipe_layer_info$>\r\n        convert char(248) to @fm in RecipeLayerInfo\r\n        RDSLayerInfo = ''\r\n        for j = 1 to RolCnt\r\n            ThisSameLayer = RestOfLayers<j>\r\n            ThisSameRecipeLayer = RecipeLayerInfo<j>            \r\n            ConMinThick  = ThisSameLayer<1,QSEpiConcMinThick$>  ;* could have @svm\r\n            ConMaxThick  = ThisSameLayer<1,QSEpiConcMaxThick$>  ;* could have @svm\r\n            TcCnt = fieldcount( ConMinThick, @svm )\r\n            for zz = 1 to TcCnt\r\n                ConMinThick<1,1,zz> = iconv( ConMinThick<1,1,zz>, 'MS' )\r\n            next zz\r\n            TcCnt = fieldcount( ConMaxThick, @svm )\r\n            for zz = 1 to TcCnt\r\n                ConMaxThick<1,1,zz> = iconv( ConMaxThick<1,1,zz>, 'MS' )\r\n            next zz\r\n            ConUnits     = ThisSameLayer<1,QSEpiConcUnits$>     \r\n\t        ResMinThick  = ThisSameLayer<1,QSEpiResMinThick$>  \r\n\t        ResMaxThick  = ThisSameLayer<1,QSEpiResMaxThick$>   \r\n\t        ResUnits     = ThisSameLayer<1,QSEpiResUnits$>  \r\n\t        MinThick     = ThisSameLayer<1,QSEpiMinThick$>      \r\n\t        MaxThick     = ThisSameLayer<1,QSEpiMaxThick$>      \r\n\t        ThickUnits   = ThisSameLayer<1,QSEpiThickUnits$>    \r\n            TLayer = ''\r\n            * concentration\r\n    \t    ConMinThick = field( ConMinThick, @svm, 1, 2 )\r\n\t        ConMaxThick = field( ConMaxThick, @svm, 1, 2 )\r\n            TLayer<1,RLConMin$> = ConMinThick\r\n            TLayer<1,RLConMax$> = ConMaxThick\r\n            if ConMinThick and ConMaxThick then\r\n                if ConMinThick = ConMaxThick then\r\n                    TLayer<1,RLConTarget$> = ConMinThick\r\n                end else\r\n                    * is it ok to do int \r\n                    *Mid = ConMinThick +++ ((ConMaxThick---ConMinThick)///2)\r\n                    MinLessMax = (ConMaxThick---ConMinThick)\r\n                    Mcnt = fieldcount(ConMinThick, @svm )\r\n                    DivVar = str( 2:@svm, Mcnt )\r\n                    DivVar[-1,1] = ''\r\n                    Tans = MinLessMax///DivVar\r\n                    Ans = MinLessMax+++Tans\r\n                    TLayer<1,RLConTarget$> = Ans                             \r\n                    *TLayer<1,RLConTarget$> = Mid\r\n                end\r\n            end \r\n            TLayer<1,RLConUnits$> = ConUnits \r\n            * recipe information\r\n            TLayer<1,RLRecipeNo$>    = Recipe\r\n            TLayer<1,RLEpiDopant$>   = ThisSameRecipeLayer<1,RecLEpiDopant$>\r\n            TLayer<1,RLEpiTemp$>     = ThisSameRecipeLayer<1,RecLEpiTemp$>\r\n            TLayer<1,RLEpiH2Flow$>   = ThisSameRecipeLayer<1,RecLEpiH2Flow$>\r\n            TLayer<1,RLEpiDiluent$>  = ThisSameRecipeLayer<1,RecLEpiDiluent$>\r\n            TLayer<1,RLEpiGases$>    = ThisSameRecipeLayer<1,RecLEpiGases$>\r\n            TLayer<1,RLEpiGasRate$>  = ThisSameRecipeLayer<1,RecLEpiGasRate$>\r\n            TLayer<1,RLEpiGasUnit$>  = ThisSameRecipeLayer<1,RecLEpiGasesUnit$>\r\n            TLayer<1,RLBakeTime$>    = ThisSameRecipeLayer<1,RecLBakeTime$>\r\n            TLayer<1,RLBakeTemp$>    = ThisSameRecipeLayer<1,RecLBakeTemp$>\r\n            TLayer<1,RLBakeH2$>      = ThisSameRecipeLayer<1,RecLBakeH2$>\r\n            TLayer<1,RLBakeSuscRot$> = ThisSameRecipelayer<1,RecLBakeSuscRot$>\r\n            TLayer<1,RLEtchTime$>    = ThisSameRecipeLayer<1,RecLEtchTime$>\r\n            TLayer<1,RLEtchTemp$>    = ThisSameRecipeLayer<1,RecLEtchTemp$>\r\n            TLayer<1,RLEtchH2$>      = ThisSameRecipeLayer<1,RecLEtchH2$>\r\n            TLayer<1,RLEtchHcl$>     = ThisSameRecipeLayer<1,RecLEtchHcl$>\r\n            * Thickness\r\n    \t    TLayer<1,RLThickMin$> = MinThick           \r\n\t        TLayer<1,RLThickMax$> = MaxThick\r\n\t        if MinThick and MaxThick then\r\n\t            if MinThick = MaxThick then\r\n\t                TLayer<1,RLThickTarget$> = MinThick\r\n\t            end else\r\n\t                Mid = MinThick + ((MaxThick-MinThick)/2)\r\n\t                TLayer<1,RLThickTarget$> = Mid\r\n\t            end\r\n\t        end           \r\n            TLayer<1,RLThickUnits$> = ThickUnits       \r\n             * resistivity\r\n            TLayer<1,RLResMin$> = ResMinThick        \r\n            TLayer<1,RLResMax$> = ResMaxThick\r\n    \t    if ResMinThick and ResMaxThick then\r\n\t            if ResMinThick = ResMaxThick then\r\n\t                TLayer<1,RLResTarget$> = ResMinThick\r\n\t            end else\r\n                    Mid = ResMinThick + ((ResMaxThick-ResMinThick)/2)\r\n                    TLayer<1,RLResTarget$> = Mid\r\n                end\t            \r\n\t        end    \r\n\t        TLayer<1,RLResUnits$> = ResUnits\r\n            *\r\n            RDSLayerInfo := TLayer:char(248)\r\n        next j\r\n        RDSLayerInfo[-1,1] = ''\r\n        RDSRec<rds_layer_info$> = RDSLayerInfo\r\n        * now write the record\r\n\t    write RDSRec on RDSTable, KeyToUse else\r\n\t        Void = msg( '', 'Unable to write ':KeyToUse:' on RDS...' )\r\n\t\t    return 0\r\n\t    end\r\n\t    unlock RDSTable, KeyToUse else\r\n\t        Void = msg( '', 'Unable to unlock RDS ':KeyToUse:'...' )\r\n\t        return 0\r\n\t    end\r\n\t    if Exists = false$ and not( index( KeyToUse, '.', 1 ) ) then\r\n\t        Void = next_key( 'RDS', RDSTable, 'UPDATE', KeyToUse )\r\n\t    end\r\n\tend\r\n\tRDSNos<1,TRow> = KeyToUse\r\nreturn\r\n\r\n*===========================================================================*\r\n"
        }
    }
}