{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nOrigStatus = get_property( @window, '@OrigStatus' )\r\nCurStatus = .status->value\r\nif CurStatus = 'R' or CurStatus = 'D' then\r\n   * they are trying to release to quote or decline and it must be signed \r\n   * so check and see if it has been signed by boff groups\r\n   if ( .eng_signature->text <> '' ) and ( .mkt_signature->text <> '' ) then\r\n      * ok let it go baby\r\n      Void = set_property( @window, '@OrigStatus', 'R' )      \r\n   end else\r\n      MsgInfo = ''\r\n      MsgInfo<micon$> = 'H'\r\n      MsgInfo<mtext$> = 'This Customer Inquiry must be signed by an Engineering/Manufacturing and a Marketing personnel, prior to declining or releasing to quote...'\r\n      Void = msg( '', MsgInfo )\r\n      begin case\r\n         case OrigStatus = 'O' ;* WAS OPEN SO SET IT BACK\r\n            *Void = msg( '', 'Was O' )\r\n            *Void = set_property( @window:'.STATUS.OPEN', 'CHECK', 1 )\r\n            *Void = set_property( @window:'.STATUS.RELEASED TO QUOTE', 'CHECK', 0 )\r\n            *Void = set_property( @window:'.STATUS.DECLINED', 'CHECK', 0 )            \r\n            Void = set_property( @window, '@OrigStatus', 'O' )\r\n         case OrigStatus = 'D' ;* WAS DECLINED SO SET IT BACK\r\n            *Void = msg( '', 'Was D' )         \r\n            *Void = set_property( @window:'.STATUS.DECLINED', 'CHECK', 1 )         \r\n            *Void = set_property( @window:'.STATUS.RELEASED TO QUOTE', 'CHECK', 0 )\r\n            *Void = set_property( @window:'.STATUS.OPEN', 'CHECK', 0 )            \r\n            Void = set_property( @window, '@OrigStatus', 'D' )            \r\n      end case\r\n      .status->value = OrigStatus\r\n   end\r\nend else\r\n   Void = set_property( @window, '@OrigStatus', CurStatus )      \r\nend\r\nRETURN 0"
        }
    }
}