Re: WRAP problem, I guess (long)

[Bill Beckner <Bbeckner@ICC.CC.IL.US>]

What if you print your shift code before printing the wrapped text?  For
example:

print $drug_name (+1,1)
print $shift_letter (+1,{SHIFT_COL})
print $sig_lines (0,1) wrap 30 #num_sig_lines
print #rx_num (+1,1)

Hope this helps!

--
William Beckner -- Stunt Programmer (Just call me "Bill")
Illinois Central College, Rm L141 -- East Peoria, IL  61635-0001
PH: (309) 694-8419 -- FAX: (309) 694-8995
"I'm not easy, but I am negotiable."

 -----Original Message-----
From:   Bob Helm [mailto:Bob.Helm@MEDIWARE.COM]
Sent:   Wednesday, August 22, 2001 3: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