Technical Support

Error When Entering Diagnosis Pointers

When entering a Diagnosis code pointer in the "D#" field an error message is displayed. The message is about an invalid entry.

The update to version 7.11 for the procedure "checking.leg" needs to be modified. Open the file with a text editor like "VFEDIT.EXE". Near line #52 you will see the following text:

if (changed (a.d#)) and (length (a.d#) > 0 )then

 begin

 if (posn('-', a.d#) > 0) or (posn(',', a.d#) > 0) then

 begin

 temp := format ('#', a.d#);

 n := 1;

 while n <= length (temp) do

 begin

 if (str (temp, n, 1) > 4 ) then

 begin

 bellmsg ('Invalid diagnosis code pointer! Numbers higher than 4 are' &

 ' not allowed in D#.');

 cancel;

 end;

 n := n + 1;

 end;

 end

 else if (length (a.d#) > 1 ) then { no comma or dash found in d# }

 begin

 bellmsg ('Invalid diagnosis code pointer! Use comma(,) or dash(-)' &

 ' between numbers in D#.');

 cancel;

 end;

 end;

Above the text add the following line:

Clear (padding);

Below the text add the following line:

Pop (padding);

The text now looks like the following:

clear (padding); {mmw 4/16/998}

if (changed (a.d#)) and (length (a.d#) > 0 )then

 begin

 if (posn('-', a.d#) > 0) or (posn(',', a.d#) > 0) then

 begin

 temp := format ('#', a.d#);

 n := 1;

 while n <= length (temp) do

 begin

 if (str (temp, n, 1) > 4 ) then

 begin

 bellmsg ('Invalid diagnosis code pointer! Numbers higher than 4 are' &

 ' not allowed in D#.');

 cancel;

 end;

 n := n + 1;

 end;

 end

 else if (length (a.d#) > 1 ) then { no comma or dash found in d# }

 begin

 bellmsg ('Invalid diagnosis code pointer! Use comma(,) or dash(-)' &

 ' between numbers in D#.');

 cancel;

 end;

 end;

pop (padding);

Save the changed file. Return to VersaForm and re-compile the "*Checking" procedure on the Ledger.

An alternative procedure is to send the "checking.leg" file found on "G:\support\fixes\fixmd711". There is also a Word document called "Installing_Checking.doc" with detail directions on installing the fix.

Email your support questions to tech@versaform.com

This information is provided as a courtesy.  VersaForm Systems Corporation has provided this information "AS IS" without warranty of any kind – express or implied.  In no event shall VersaForm Systems Corporation be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.