11 lines
9.8 KiB
JSON
11 lines
9.8 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg, send_event, admin_user, center_window, memberof\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert spc_limits_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'ENGINEERING' ) then \r\n\topen 'CONFIG' to ConfigTable else\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tlock ConfigTable, 'SPC_LIMITS' else\r\n\t Void = msg( '', 'SPC_LIMITS is in use somewhere else...' )\r\n\t end_dialog( @window, '' )\r\n\t return 0\r\n\tend\r\n\tread LimitInfo from ConfigTable, 'SPC_LIMITS' then\r\n\t if LimitInfo then\r\n .srd_min->text = LimitInfo<SRDParticleMin$>\r\n .srd_max->text = LimitInfo<SRDParticleMax$>\r\n .srd_chg_date->text = oconv( LimitInfo<SRDParticleDate$>, 'D2/' )\r\n *\r\n .sc1_min->text = LimitInfo<SC1ParticleMin$>\r\n .sc1_max->text = LimitInfo<SC1ParticleMax$>\r\n .sc1_chg_date->text = oconv( LimitInfo<SC1ParticleDate$>, 'D2/' )\r\n *\r\n .hf_min->text = LimitInfo<HFParticleMin$>\r\n .hf_max->text = LimitInfo<HFParticleMax$>\r\n .hf_chg_date->text = oconv( LimitInfo<HFParticleDate$>, 'D2/' )\r\n *\r\n .hf_etch_min->text = LimitInfo<HFEtchRemMin$>\r\n .hf_etch_max->text = LimitInfo<HFEtchRemMax$>\r\n .hf_etch_chg_date->text = oconv( LimitInfo<HFEtchRemDate$>, 'D2/' )\r\n *\r\n .waf_etch_min->text = oconv( LimitInfo<WafEtchMin$>, 'MD3' )\r\n .waf_etch_max->text = oconv( LimitInfo<WafEtchMax$>, 'MD3' )\r\n .waf_etch_chg_date->text = oconv( LimitInfo<WafEtchDate$>, 'D2/' )\r\n *\r\n EvalFTIRInfo = ''\r\n EvalFTIRInfo<1> = LimitInfo<EvalFTIRHWaferID$>\r\n EvalFTIRInfo<2> = oconv( LimitInfo<EvalFTIRHMin$>, 'MD3' )\r\n \t\t EvalFTIRInfo<3> = oconv( LimitInfo<EvalFTIRHMax$>, 'MD3' )\r\n \t\t EvalFTIRInfo<4> = oconv( LimitInfo<EvalFTIRHDate$>, 'D2/' )\r\n \t\t EvalFTIRInfo<5> = LimitInfo<EvalFTIRMWaferID$>\r\n \t\t EvalFTIRInfo<6> = oconv( LimitInfo<EvalFTIRMMin$>, 'MD3' )\r\n \t\t EvalFTIRInfo<7> = oconv( LimitInfo<EvalFTIRMMax$>, 'MD3' )\r\n \t\t EvalFTIRInfo<8> = oconv( LimitInfo<EvalFTIRMDate$>, 'D2/' )\r\n \t\t EvalFTIRInfo<9> = LimitInfo<EvalFTIRLWaferID$>\r\n \t\t EvalFTIRInfo<10> = oconv( LimitInfo<EvalFTIRLMin$>, 'MD3' )\r\n \t\t EvalFTIRInfo<11> = oconv( LimitInfo<EvalFTIRLMax$>, 'MD3' )\r\n \t\t EvalFTIRInfo<12> = oconv( LimitInfo<EvalFTIRLDate$>, 'D2/' )\r\n \t\t .eval_FTIR_info->array = EvalFTIRInfo\r\n *\r\n EvalFTIRStdevInfo = ''\r\n EvalFTIRStdevInfo<1> = LimitInfo<EvalFTIRHStdevWaferID$>\r\n EvalFTIRStdevInfo<2> = oconv( LimitInfo<EvalFTIRHStdevMin$>, 'MD3' )\r\n EvalFTIRStdevInfo<3> = oconv( LimitInfo<EvalFTIRHStdevMax$>, 'MD3' )\r\n EvalFTIRStdevInfo<4> = oconv( LimitInfo<EvalFTIRHStdevDate$>, 'D2/' )\r\n EvalFTIRStdevInfo<5> = LimitInfo<EvalFTIRMStdevWaferID$>\r\n EvalFTIRStdevInfo<6> = oconv( LimitInfo<EvalFTIRMStdevMin$>, 'MD3' )\r\n EvalFTIRStdevInfo<7> = oconv( LimitInfo<EvalFTIRMStdevMax$>, 'MD3' )\r\n EvalFTIRStdevInfo<8> = oconv( LimitInfo<EvalFTIRMStdevDate$>, 'D2/' )\r\n EvalFTIRStdevInfo<9> = LimitInfo<EvalFTIRLStdevWaferID$>\r\n EvalFTIRStdevInfo<10> = oconv( LimitInfo<EvalFTIRLStdevMin$>, 'MD3' )\r\n EvalFTIRStdevInfo<11> = oconv( LimitInfo<EvalFTIRLStdevMax$>, 'MD3' )\r\n EvalFTIRStdevInfo<12> = oconv( LimitInfo<EvalFTIRLStdevDate$>, 'D2/' )\r\n .eval_FTIR_stdev_info->array = EvalFTIRStdevInfo\r\n *\r\n EvalADEInfo = ''\r\n EvalADEInfo<1> = LimitInfo<EvalADEHWaferID$>\r\n EvalADEInfo<2> = oconv( LimitInfo<EvalADEHMin$>, 'MD3' )\r\n \t\t EvalADEInfo<3> = oconv( LimitInfo<EvalADEHMax$>, 'MD3' )\r\n \t\t EvalADEInfo<4> = oconv( LimitInfo<EvalADEHDate$>, 'D2/' )\r\n \t\t EvalADEInfo<5> = LimitInfo<EvalADEMWaferID$>\r\n \t\t EvalADEInfo<6> = oconv( LimitInfo<EvalADEMMin$>, 'MD3' )\r\n \t\t EvalADEInfo<7> = oconv( LimitInfo<EvalADEMMax$>, 'MD3' )\r\n \t\t EvalADEInfo<8> = oconv( LimitInfo<EvalADEMDate$>, 'D2/' )\r\n \t\t EvalADEInfo<9> = LimitInfo<EvalADELWaferID$>\r\n \t\t EvalADEInfo<10> = oconv( LimitInfo<EvalADELMin$>, 'MD3' )\r\n \t\t EvalADEInfo<11> = oconv( LimitInfo<EvalADELMax$>, 'MD3' )\r\n \t\t EvalADEInfo<12> = oconv( LimitInfo<EvalADELDate$>, 'D2/' )\r\n \t\t .eval_ADE_info->array = EvalADEInfo\r\n *\r\n EvalADEStdevInfo = ''\r\n EvalADEStdevInfo<1> = LimitInfo<EvalADEHStdevWaferID$>\r\n EvalADEStdevInfo<2> = oconv( LimitInfo<EvalADEHStdevMin$>, 'MD3' )\r\n EvalADEStdevInfo<3> = oconv( LimitInfo<EvalADEHStdevMax$>, 'MD3' )\r\n EvalADEStdevInfo<4> = oconv( LimitInfo<EvalADEHStdevDate$>, 'D2/' )\r\n EvalADEStdevInfo<5> = LimitInfo<EvalADEMStdevWaferID$>\r\n EvalADEStdevInfo<6> = oconv( LimitInfo<EvalADEMStdevMin$>, 'MD3' )\r\n EvalADEStdevInfo<7> = oconv( LimitInfo<EvalADEMStdevMax$>, 'MD3' )\r\n EvalADEStdevInfo<8> = oconv( LimitInfo<EvalADEMStdevDate$>, 'D2/' )\r\n EvalADEStdevInfo<9> = LimitInfo<EvalADELStdevWaferID$>\r\n EvalADEStdevInfo<10> = oconv( LimitInfo<EvalADELStdevMin$>, 'MD3' )\r\n EvalADEStdevInfo<11> = oconv( LimitInfo<EvalADELStdevMax$>, 'MD3' )\r\n EvalADEStdevInfo<12> = oconv( LimitInfo<EvalADELStdevDate$>, 'D2/' )\r\n .eval_ADE_stdev_info->array = EvalADEStdevInfo\r\n *\r\n Eval4PPInfo = ''\r\n Eval4PPInfo<1> = LimitInfo<Eval4PPHWaferID$>\r\n Eval4PPInfo<2> = LimitInfo<Eval4PPHMin$>\r\n Eval4PPInfo<3> = LimitInfo<Eval4PPHMax$>\r\n Eval4PPInfo<4> = oconv( LimitInfo<Eval4PPHDate$>, 'D2/' )\r\n Eval4PPInfo<5> = LimitInfo<Eval4PPMWaferID$>\r\n Eval4PPInfo<6> = LimitInfo<Eval4PPMMin$>\r\n Eval4PPInfo<7> = LimitInfo<Eval4PPMMax$>\r\n Eval4PPInfo<8> = oconv( LimitInfo<Eval4PPMDate$>, 'D2/' )\r\n Eval4PPInfo<9> = LimitInfo<Eval4PPLWaferID$>\r\n Eval4PPInfo<10> = LimitInfo<Eval4PPLMin$>\r\n Eval4PPInfo<11> = LimitInfo<Eval4PPLMax$>\r\n Eval4PPInfo<12> = oconv( LimitInfo<Eval4PPLDate$>, 'D2/' )\r\n .eval_4pp_info->array = Eval4PPInfo\r\n *\r\n Eval4PPStdevInfo = ''\r\n Eval4PPStdevInfo<1> = LimitInfo<Eval4PPHStdevWaferID$>\r\n Eval4PPStdevInfo<2> = oconv( LimitInfo<Eval4PPHStdevMin$>, 'MD3' )\r\n Eval4PPStdevInfo<3> = oconv( LimitInfo<Eval4PPHStdevMax$>, 'MD3' )\r\n Eval4PPStdevInfo<4> = oconv( LimitInfo<Eval4PPHStdevDate$>, 'D2/' )\r\n Eval4PPStdevInfo<5> = LimitInfo<Eval4PPMStdevWaferID$>\r\n Eval4PPStdevInfo<6> = oconv( LimitInfo<Eval4PPMStdevMin$>, 'MD3' )\r\n Eval4PPStdevInfo<7> = oconv( LimitInfo<Eval4PPMStdevMax$>, 'MD3' )\r\n Eval4PPStdevInfo<8> = oconv( LimitInfo<Eval4PPMStdevDate$>, 'D2/' )\r\n Eval4PPStdevInfo<9> = LimitInfo<Eval4PPLStdevWaferID$>\r\n Eval4PPStdevInfo<10> = oconv( LimitInfo<Eval4PPLStdevMin$>, 'MD3' )\r\n Eval4PPStdevInfo<11> = oconv( LimitInfo<Eval4PPLStdevMax$>, 'MD3' )\r\n Eval4PPStdevInfo<12> = oconv( LimitInfo<Eval4PPLStdevDate$>, 'D2/' )\r\n .eval_4pp_stdev_info->array = Eval4PPStdevInfo\r\n *\r\n .react_part_min->text = LimitInfo<ReactPartMin$>\r\n .react_part_max->text = LimitInfo<ReactPartMax$>\r\n .react_part_date_chg->text = oconv( LimitInfo<ReactPartDate$>, 'D2/' )\r\n *\r\n .react_haze_min->text = oconv( LimitInfo<ReactHazeMin$>, 'MD2' )\r\n .react_haze_max->text = oconv( LimitInfo<ReactHazeMax$>, 'MD2' )\r\n .react_haze_date_chg->text = oconv( LimitInfo<ReactHazeDate$>, 'D2/' )\r\n *\r\n .hf_ake_etch_min->text = LimitInfo<HFEtchAkrionRemEtchMin$>\r\n .hf_ake_etch_max->text = LimitInfo<HFEtchAkrionRemEtchMax$>\r\n .hf_ake_etch_date->text = oconv( LimitInfo<HFEtchAkrionRemEtchDate$>, 'D2/' )\r\n .hf_akd_etch_min->text = LimitInfo<HFEtchAkrionRemDiluteMin$>\r\n .hf_akd_etch_max->text = LimitInfo<HFEtchAkrionRemDiluteMax$>\r\n .hf_akd_etch_date->text = oconv( LimitInfo<HFEtchAkrionRemDiluteDate$>, 'D2/' )\r\n *\r\n .hf_akq_min->text = LimitInfo<HFParticleAkrionQualMin$>\r\n .hf_akq_max->text = LimitInfo<HFParticleAkrionQualMax$>\r\n .hf_akq_date->text = oconv( LimitInfo<HFParticleAkrionQualDate$>, 'D2/' )\r\n .hf_akh_min->text = LimitInfo<HFParticleAkrionHFLastMin$>\r\n .hf_akh_max->text = LimitInfo<HFParticleAkrionHFLastMax$>\r\n .hf_akh_date->text = oconv( LimitInfo<HFParticleAkrionHFLastDate$>, 'D2/' ) \r\n\t end\r\n\tend\r\nend else\r\n Message = 'You do not have the proper security to enter SPC Limits...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |