{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\n\r\n\r\nTWCols = 'TW_PPLUS/TW_PMINUS/TW_NPLUS/TW_NMINUS/TW_PROD/TW_RECLAIM'\r\nTWAcctPos = '1,7,13,19,25,31,37,43,49/2,8,14,20,26,32,38,44,50/3,9,15,21,27,33,39,45,51/4,10,16,22,28,34,40,46,52/5,11,17,23,29,35,41,47,53/6,12,18,24,30,36,42,48,54'\r\nconvert '/' to @fm in TWCols\r\nconvert '/' to @fm in TWAcctPos\r\nconvert ',' to @vm in TWAcctPos\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_TW_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay  = ''\r\nif .tw_pplus->text then\r\n    Display<1,-1> = 'P Plus':@tm:'TW_PPLUS'\r\nend\r\nif .tw_pminus->text then\r\n    Display<1,-1> = 'P Minus':@tm:'TW_PMINUS'\r\nend\r\nif .tw_nplus->text then\r\n    Display<1,-1> = 'N Plus':@tm:'TW_NPLUS'\r\nend\r\nif .tw_nminus->text then\r\n    Display<1,-1> = 'N Minus':@tm:'TW_NMINUS'\r\nend\r\nif .tw_prod->text then\r\n    Display<1,-1> = 'Product':@tm:'TW_PROD'\r\nend\r\nif .tw_reclaim->text then\r\n   Display<1,-1> = 'Reclaim':@tm:'TW_RECLAIM'\r\nend\r\nif Display then\r\n\tOverRide<Pdisplay$> = Display\r\n\tTWCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif TWCol then\r\n\t    locate TWCol in TWCols using @fm setting Fpos then\r\n        \tCurTW = get_property( @window:'.':TWCols<Fpos>, 'TEXT' )+0\r\n\t\t    TWInfo = .tw_info->array\r\n\t\t    ParamToPass = TWCol\r\n\t\t    convert '_' to ' ' in ParamToPass\r\n\t        HoldTW     = TWInfo<TWAcctPos<Fpos,2>>\r\n\t        HoldCode   = TWInfo<TWAcctPos<Fpos,1>>\r\n            HoldTool   = TWInfo<TWAcctPos<Fpos,3>>\r\n\t        HoldThick  = TWInfo<TWAcctPos<Fpos,4>>\r\n\t        HoldRes    = TWInfo<TWAcctPos<Fpos,5>>\r\n\t        HoldConc   = TWInfo<TWAcctPos<Fpos,6>>\r\n\t        HoldStress = TWInfo<TWAcctPos<Fpos,7>>\r\n\t        HoldTrans  = TWInfo<TWAcctPos<Fpos,8>>\r\n\t        HoldRHO    = TWInfo<TWAcctPos<Fpos,9>>\r\n\t        HoldAll    = HoldTW:HoldCode:HoldTool:HoldThick:HoldRes:HoldConc:HoldStress:HoldTrans:HoldRHO\r\n\t        ParamToPass := '*':CurTW\r\n\t        ParamToPass := '*':HoldTW\r\n\t\t    ParamToPass := '*':HoldCode\r\n\t\t    ParamToPass := '*':HoldTool\r\n\t\t    ParamToPass := '*':HoldThick\r\n\t\t    ParamToPass := '*':HoldRes\r\n\t\t    ParamToPass := '*':HoldConc\r\n\t\t    ParamToPass := '*':HoldStress\r\n\t\t    ParamToPass := '*':HoldTrans\t\t    \r\n\t\t    ParamToPass := '*':HoldRHO\r\n\t\t    RetVal = dialog_box( 'RDS_TW', @window, ParamToPass )\r\n\t\t    if RetVal <> 'CANCEL' then\r\n\t\t       RetCnt    = RetVal<1>\r\n\t\t       RetCode   = RetVal<2>\r\n\t\t       RetTool   = RetVal<3>\r\n\t\t       RetThick  = RetVal<4>\r\n\t\t       RetRes    = RetVal<5>\r\n\t\t       RetConc   = RetVal<6>\r\n\t\t       RetStress = RetVal<7>\r\n\t\t       RetTrans  = RetVal<8>\r\n\t\t       RetRHO    = RetVal<9>\r\n\t\t       All     = RetCnt:RetCode:RetTool:RetThick:RetRes:RetConc:RetStress:RetTrans:RetRHO\r\n\t\t       if All <> HoldAll then\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,2>> = RetCnt\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,1>> = RetCode\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,3>> = RetTool\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,4>> = RetThick\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,5>> = RetRes\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,6>> = RetConc\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,7>> = RetStress\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,8>> = RetTrans\r\n\t\t\t      TWInfo<TWAcctPos<Fpos,9>> = RetRHO\r\n\t\t\t      .tw_info->array = TWInfo\r\n    \t\t\t  @@window->savewarn = true$\r\n\t\t\t   end\r\n\t\t\tend\r\n\t\tend\r\n\tend  \r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'There are no test wafers!'\r\n    MsgInfo<micon$> = '!'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
        }
    }
}