I'm reading this and I'm thinking that you mean to say "characters" and not "columns".
There are several ways to do this.
You could keep doing an NL=N line attribute until you add up your
characters to what you need (200 per max-length line), or my favorite
method is to code everything into macros. This makes for editing the
report much easier. Just make sure you comment your code so it is easy
for someone who comes after you to understand what you are doing.
HR
D
TR
Nothing on the picture (except a trailer if you want, see below)
AL HR %APP.DPM.zcus.report.name.M.header("")
AL D
%APP.DPM.zcus.report.name.M.detail(detail.seg.subscript1,detail.seg.subs
cript2,etc.)
PFF NO
"header" Macro:
;%APP.DPM.zcus.report.name.M.header("")
;Populate a variable for a text qualifier (quotation marks)
D(34)^QT,
;Populate a variable for a delimiter.
;D(9) = tab, D(44) = comma, D(59) = semicolon, D(124) = pipe
D(59)^DEL,
;Populate a variable for Carriage Return, Line Feed (in case
;you need it)
D(13,10)^CRLF,
@HEADER;
HEADER
QT_"Header One"_QT_DEL^!,
QT_"Header Two"_QT_DEL^!,
QT_"Header Three"_QT_DEL^!,
QT_"Header Four"_QT_DEL^!,
...etc...
QT_"Last Header"_QT^!
"detail" Macro:
;%APP.DPM.zcus.report.name.M.detail(detail.seg.subscript1,detail.seg.sub
script2,etc.)
;Pass macro call parameters to subscripts (do not use @ symbols before
subscripts)
A^detail.seg.subscript1,
B^detail.seg.subscript2,
...etc...
;Populate a variable for a text qualifier (quotation marks)
D(34)^QT,
;Populate a variable for a delimiter.
;D(9) = tab, D(44) = comma, D(59) = semicolon, D(124) = pipe
D(59)^DEL,
;Populate a variable for Carriage Return, Line Feed (in case
;you need it)
D(13,10)^CRLF,
@DETAIL;
HEADER
;Header One
[EMAIL PROTECTED],
;Header Two
[EMAIL PROTECTED],
;Header Three
[EMAIL PROTECTED],
;Header Four
[EMAIL PROTECTED],
...etc...
;Last Header
[EMAIL PROTECTED]
I've made some pretty big downloads using this method. With this, you
set your page one parameters to 92 characters, default lines per page,
default page length, banner = NONE.
Lately, I've been using the trailer region to give the internal name of
the NPR, the user running the report, the time the report took to run,
the number of detail records in the report and the HCIS the report was
executed in.
This gives all of this information to the person looking at the
download, and indicates that the download finished without error and is
not truncated. A single line can be easily deleted by the end user prior
to importing the file into their system, or can be suppressed in the
report via an LC.
Here is the code I use (slash variables in your system may vary, check
your section of Meditech.com):
D [EMAIL PROTECTED](1,/CNT),
TR
ECB=%Z.date.in(/R.DATE^RD)^SD,/R.TIME^ST,@.today^ED,@.now^ET,/(.U).HCIS^
/HCIS,
xx.trailer
DAT=FREE
JFY=L
LEN=92
TRUNC=NO
[EMAIL PROTECTED]"."_(/R.NEW.PAGE.PGM#"1 ")^J'#(L(J,".."))^J$(L(J)-3)_", RAN
BY "[EMAIL PROTECTED]
VAL=ser_" ON "_RD_" AT "_ST_" WITH RUN TIME OF
"_%Z.elapsed.time(ED,ET,SD,ST,"h
VAL=h Hr mm Mn")_" Records:"_/CNT_" HCIS:"_/HCIS
Hope that helps!
Thank you,
Mitch Lawrence
Lead Applications Analyst
Technical Support - NPR/Automation
CHRISTUS Information Management
*: [EMAIL PROTECTED]
Send a "thank you" <http://intranet.christushealth.org/spiritBuck/> to
someone!
_____
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Miller, Anne
Sent: Friday, July 27, 2007 10:05 AM
To: [email protected]
Subject: [MEDITECH-L] report longer than 600 columns
Is there a way to create a downloadable report for which that data would
exceed 600 columns? (My latest request is nearly 1800 columns of mostly
patient demographic/insurance data).
Thanks for your help.
Anne Miller, MBA
Applications Mgr, Information Technology
Western Maryland Health System
Cumberland, MD 21502
voice: (301)723-5414
fax: (301)723-5422
[EMAIL PROTECTED]
Confidentiality Notice: This e-mail message, including any attachments,
is for the sole use of the intended recipient(s) and may contain
confidential and privileged information. Any unauthorized review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all
copies of the original message.
<<image001.jpg>>
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= To subscribe or unsubscribe to the meditech-l, visit http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com To check the status of the meditech-l, visit MTUsers.NET For help, email [EMAIL PROTECTED] Please visit and add information to the MTUsers WikiPedia at MTUsers.NET/mwiki ______________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l_mtusers.com
