Re: WRAP problem, I guess (long)

["Beller, Jay" <jbeller@LBISOFTWARE.COM>]

Try using POSITION to reset the current location:

print $drug_name (+1,1)
let #shift_line = #current-line
print $sig_lines (+1,1) wrap 30 #num_sig_lines
position (#shift_line)      !to get back to the proper line
print $shift_letter (+1,{SHIFT_COL})
print #rx_num (+1,1)

-----Original Message-----
From: Bob Helm [mailto:Bob.Helm@MEDIWARE.COM]
Sent: Wednesday, August 22, 2001 4:53 PM
To: SQR-USERS@list.iex.net
Subject: WRAP problem, I guess (long)


I have a funky format problem. I think it has to do with the wrap function.
Basically my code looks like this:

print $drug_name (+1,1)
let #shift_line = #current-line
print $sig_lines (+1,1) wrap 30 #num_sig_lines
print '' (#shift_line,{SHIFT_COL})      !to get back to the proper line
print $shift_letter (+1,{SHIFT_COL})
print #rx_num (+1,1)

in an attempt to output this:

AMOXICILLIAN 250MG/5M
TAKE (2.5 ML) ORALLY EVERY 8 HOURS              A
AS SCHEDULED AT 1-9-17 Q8H1  GIVE
2.5 ML FOR DOSE
Rx#: 3047

where the 'A' is the shift letter.
However, it mysteriously skips two lines and looks like this:

AMOXICILLIAN 250MG/5M
TAKE (2.5 ML) ORALLY EVERY 8 HOURS
AS SCHEDULED AT 1-9-17 Q8H1  GIVE
2.5 ML FOR DOSE                         A


Rx#: 3047


This throws everything off.
When I debug and view #shift_line before the $sig_lines wrap
and then afterwards, it is the same value, but clearly does not print as
such.

Any ideas, advice, or explanation will be greatly appreciated.

Thanks,

B
The Programmer formerly known as Bob
Mediware Information Systems Inc.
(913) 307-1045
Bob.Helm@Mediware.com