>You working with UB92 or Remittance Advice data? I did all that work a couple of years ago. It's hideously ugly. Unfortunately, I can't share the code as I don't own it.
>
>Yes, you can put conditions in the Memo. Do something like
>IF condition $ TheMemo
Not exactly clear on what you mean.
I should have a memo field that contains the conditional like this and then execute it?
DO CASE
CASE FIELD002 = "BF"
CASE FIELD002 = "BK"
CASE FIELD002 = "ZZ"
ENDCASE
>
>
>
>>I have a lookup table that contains all the possible scenarios and data elements that could be in another table (an EDI message). I'm having
>>trouble with a logic issue. I was going to just SEEK for the row values from the message table in the lookup table. This works except when
>>there are conditions. For example, there could be a scenario where the FieldVal of a record in the lookup table is "FD" but only if "BF" is the
>>value in another field. That is the qualifier, as they call it.
>>
>>This is a sentence from the documentation to help understand what I mean:
>>
>>
>>Use this code to specify if the code that is following in the III02 is a Principal Diagnosis Code,
>>a Diagnosis Code or a Facility Type Code.
>>
>>
>>The value expected is dependent on a value in another field.
>>
>>How can I handle that in the simplest way?
>>
>>Is there something I could do like put validations in a memo field of the record to handle the scenarios? That sort of makes sense to me, but I can't quite wrap my mind around how to handle it.
>>
>>This is a block of code I'm playing with now that does a good job of finding matches when the above condition is not involved:
>>
>>
>>USE "C:\Jay Archive\Eligibility\Elements.DBF" IN 0 EXCLUSIVE
>>SELECT Elements
>>INDEX ON (a bunch of values) TAG Known
>>
>>USE C:\fmsrun\DATA\X12_Response.dbf IN 0 EXCLUSIVE
>>SELECT X12_Response
>>
>>DO WHILE !EOF()
>> m.TSHID = X12_Response.TSHID
>> DO WHILE X12_Response.TSHID = m.TSHID
>> FOR lnFor = 1 TO FCOUNT('X12_Response')
>> m.FieldName = UPPER(FIELD(lnFor))
>> m.FieldValue = TRANSFORM(EVALUATE(FIELDS(lnFor,ALIAS())))
>> IF LEFT(m.FieldName,6) = 'FIELD0' AND !EMPTY(m.FieldValue)
>> SELECT Elements
>> SEEK (a bunch of values) ORDER Known
>> IF FOUND()
>> *
>> ELSE
>> *
>> ENDIF
>> ENDIF
>> SELECT X12_Response
>> NEXT
>> SKIP
>> ENDDO
>>ENDDO
>>