Asynch work complete

"ASYNCH_WORK_COMPLETE" { if {[FidSettingGet TMP.SITE.SPLITDLG] == "Y"} { writesetting TMP.SITE.SPLITDLG "" set ps [Nothing] set ps [FidCreatePropertySet] call $object FidCommand GET_DATA [Nothing] byref:ps set service [get $ps Value "CONTEXT.f_CURRENT_SERVICE"] set market [get $ps Value "CONTEXT.f_MARKET_ID"] set newMkt "CONTEXT.f_NO_CONTEXT_DETAILS.MARKET_SERVICE.$service.$market.DISCRETIONARY.INSTRUCTION_SELECTOR_PICKLIST" set pl [get $ps Value $newMkt] release $ps if {$pl != ""} { set myctx [FidCreatePropertySet] put $myctx Value "PICKLIST_OPTIONS" $pl put $myctx Value FIELD f_INSTRUCTION_SELECTOR call $object FidCommand SET_FIELD_OPTION_DATA $myctx [Nothing] release $myctx release $pl } } set handled 1 }