Lockfile question
Don Coleman
dcoleman at dgcreact.com
Fri Sep 15 10:55:21 PDT 2006
Windows 2000 Advanced Server, Win2000 clients, fP5.0.13
I have a rclerk process which the user scans a prescription number. Clerk
calls a form and the prescription label prints. Periodically, at least
several times/day the user will receive a filePro error stating:
A filepro error has occurred on file:
E:\QS1\TODO\FILEPRO\ALLERGY\LOCKFILE
Line 156
If the user immediately re-enters the app. and scans this number again it
will usually process it w/o error and print the label. This error happens
on three different reference files (the file named ALLERGY is one of them).
Note that the lookups are not protected and are not posting or writing any
data to the lookup file. They are only filling in lookup data fields into
dummy variables on the prescription label (form). I'm at a loss as how to
resolve. The code snippet below is from the form table. Any suggestions
appreciated. TY.
Sep 15, 2006 13:41 File Name: QS1 Page 1
Processing: 12
155 ------- - - - - - - - - - - - - - - - -
If: 77 eq ""
Then: goto ck2all
156 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup all = allergy k=77 i=A -nx
157 ------- - - - - - - - - - - - - - - - -
If: not all
Then: LB(34,ALLUP)="";goto ck2all
158 ------- - - - - - - - - - - - - - - - -
If:
Then: LB=all(2)
159 ------- - - - - - - - - - - - - - - - -
ck2all If: 78 eq ""
Then: goto ck3all
160 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup all = allergy k=78 i=A -nx
161 ------- - - - - - - - - - - - - - - - -
If: not all
Then: LC(34,ALLUP)="";goto ck3all
162 ------- - - - - - - - - - - - - - - - -
If:
Then: LC=all(2)
163 ------- - - - - - - - - - - - - - - - -
ck3all If: 79 eq ""
Then: goto noall
164 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup all = allergy k=79 i=A -nx
165 ------- - - - - - - - - - - - - - - - -
If: not all
Then: LD(34,ALLUP)="";goto noall
166 ------- - - - - - - - - - - - - - - - -
If:
Then: LD=all(2)
167 ------- - - - - - - - - - - - - - - - -
noall If:
Then:
IA(2,*)=mid(36,"1","2");IB(2,*)=mid(36,"3","2");IJ(2,*)=mid(36,"5",
"2")
Don Coleman
Donald G. Coleman, Consultant
402 Andrew Circle
Indiana, PA 15701
dcoleman at dgcreact.com
(724) 349-6302
More information about the Filepro-list
mailing list