Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SEEK and Logic Question
Message
De
17/07/2008 10:50:14
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
 
À
17/07/2008 10:32:17
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01331964
Message ID:
01331985
Vues:
12
>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
>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform