{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function rowexists, next_mesa_wo_log_key, post_event, Get_Property\r\ndeclare subroutine forward_event,Set_Property\r\n\r\n* Dead as of 1/23/2006\r\n\r\n/*\r\nif rowexists( 'WO_LOG', .wo_no->text ) else\r\n   .entry_id->text = @user4\r\n   if .received_time->text = '' then\r\n      .received_time->text = '10:00AM'\r\n   end\r\nend\r\n\r\nCommitDate = .commit_date->text\r\nif CommitDate = '' then\r\n\t\r\n   CurReceivedDate = iconv( .received_date->text, 'D' )\r\n   if ( CurReceivedDate <> '' ) then\r\n      .commit_date->text = oconv( CurReceivedDate + 14, 'D2/' )\r\n      * STANDARD 14 DAY TURN AROUND\r\n   end\r\nend\r\n\r\nRxDt = Get_Property(@WINDOW:'.RECEIVED_DATE','TEXT')\r\nRxTm = Get_Property(@WINDOW:'.RECEIVED_TIME','TEXT')\r\n\r\nSet_Property(@WINDOW:'.RX_DTM','DEFPROP',RxDt:' ':RxTm)\r\n\r\nforward_event()\r\n\r\nif get_property( @window, '@RetWoLog' ) then\r\n  Void = post_event( @window, 'CLOSE' )\r\n  Void = post_event( 'WO_MAST_SCHED.SCHED_INFO', 'OMNIEVENT' )\r\nend\r\nreturn 0\r\n*/"
        }
    }
}