{ "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\nend\r\nRETURN 0" } } }