{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare subroutine forward_event\r\n$insert prod_spec_equ\r\n\r\nforward_event( Flag, FocusID )\r\nOrigPSN = get_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nCurPSN  = .prod_spec_id->text\r\nif CurPSN <> OrigPSN then\r\n\tPSNId = .prod_spec_id->text\r\n\t.dopant->text      = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t.rest->text        = oconv( xlate( 'PROD_SPEC', PSNId, 'RES_TARGET_L1', 'X' ), 'MD3' )\r\n\t.rest_units->text  = xlate( 'PROD_SPEC', PSNId, 'RES_UNITS_L1', 'X' )\r\n\t.thick->text       = oconv( xlate( 'PROD_SPEC', PSNId, 'THICK_TARGET_L1', 'X' ), 'MD2' )\r\n\t.thick_units->text = xlate( 'PROD_SPEC', PSNId, 'THICK_UNITS_L1', 'X' )\r\n\tQualReactors = xlate( 'PROD_SPEC', PSNId, prod_spec_qual_reacts$, 'X' )\r\n\tif QualReactors <> '' then\r\n       .reactors->array = QualReactors\r\n    end else\r\n       .reactors->array = @vm:@vm\r\n    end\r\n    *\r\n    Tparts = xlate( 'PROD_SPEC', PSNId, 'PART_NUMS', 'X' )\r\n    Tarray = .cust_part_nums->array\r\n    Tarray<2> = Tparts\r\n    .cust_part_nums->array = Tarray\r\nend\r\nRETURN 0"
        }
    }
}