{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "$insert prod_spec_equ\r\n\r\nDECLARE SUBROUTINE Set_Property\r\nDECLARE FUNCTION Center_Window, Set_Property\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\nPSNID       = FIELD(CreateParam,CHAR(245),1)\r\nSurfaceInfo = FIELD(CreateParam,CHAR(245),2)\r\nTitleText \t= FIELD(CreateParam,CHAR(245),3)\r\nBrightLight\t= FIELD(CreateParam,CHAR(245),4)\r\nMicroscope\t= FIELD(CreateParam,CHAR(245),5)\r\n\r\nIF TitleText NE '' THEN\r\n\tSet_Property(@WINDOW,'TEXT','Post Epi - ':TitleText)\r\nEND ELSE\r\n\tSet_Property(@WINDOW,'TEXT','Post Epi - Surface Inspection')\r\nEND\r\n\r\n\r\n* LOAD THE PRE EPI SURFACE SPECIFICATION\r\n\r\nVoid = set_property( @window, '@Loading', 1 )\r\nPSN = xlate( 'PROD_SPEC', PSNID, '', 'X' )\r\n.post_lpd_s->text          = PSN<prod_spec_post_lpd$>\r\n.post_pits_s->text         = PSN<prod_spec_post_pits$>\r\n.post_mounds_s->text       = PSN<prod_spec_post_mounds$>\r\n.post_bl_defects_s->text   = PSN<prod_spec_post_bl_defects$>\r\n.post_spots_s->text        = PSN<prod_spec_post_spots$>\r\n.post_fov_s->text          = PSN<prod_spec_post_fov$>\r\n.post_spikes_s->text       = PSN<prod_spec_post_spikes$>\r\n.post_stack_faults_s->text = PSN<prod_spec_post_stack_faults$>\r\n.post_scratches_s->text    = PSN<prod_spec_post_scratches$>\r\n.post_scratch_len_s->text  = PSN<prod_spec_post_scratch_len$>\r\n\r\n* THEN LOAD THE CURRENT DATA PASSED FROM THE RDS FIRST WAFER STEP WINDOW\r\nControls = 'POST_LPD_OUT_R/POST_PITS_R/POST_MOUNDS_R/POST_BL_DEFECTS_R/POST_STACK_FAULTS_R/POST_SPIKES_R/'\r\nControls:= 'POST_SPOTS_R/POST_FOV_R/POST_SCRATCHES_R/POST_SCRATCH_LEN_R'\r\n\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nconvert @fm to @rm in SurfaceInfo\r\nvoid = set_property( Controls, 'TEXT', SurfaceInfo )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nreturn 1"
        }
    }
}