`{"luid"              ~(reference :luid)
                                                   "type_code"         ~(reference :type_code)
                                                   ~@(if (= type_code-value "CLNT")
                                                       `["client_luid"       ~(reference :client_luid)
                                                         "client_first_name" ~(reference :client_first_name)
                                                         "client_last_name"  ~(reference :client_last_name)])
                                                   ~@(if (= type_code-value "PLCY")
                                                       `["policy_luid"   ~(reference :policy_luid)
                                                         "policy_code"   ~(reference :policy_code)
                                                         "policy_number" ~(reference :policy_number)])
                                                   ~@(if (= type_code-value "IMP.")
                                                       `["mass_import_luid"   ~(reference :mass_import_luid)
                                                         "mass_import_name"   ~(reference :mass_import_name)])
                                                   "active"            ~(if (reference :active) "Y" "N")}