RE: [MEDITECH-L] AUTO REFRESHING REPORT

[Bill Mullins]

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================


Joe:

I have never been able to get this report loaded, I do not know if it is
because it is an older version of the Magic software (4.9 ?), but when I
get into the report page 1, everything is corrupted (Title,Detail Seg,
Index, etc...)

By reading the text file I was able to rebuild page 1 an 2 of the
report, but when I get to page 3 again the corruption will not let me
proceed. I cannot edit the corrupted fields in the fields section, I get
stuck trying to edit the field, delete the field (I need to get to the
picture to delete the field, but cannot).

If you or anyone else has a current version of this report, I would
appreciate getting it, I would like to use something like this
auto-refresh report in the ADM/REG area.

Many thank,

Bill Mullins RN
Williamson Medical Center
2021 Carothers Road
Franklin,Tn  37067
615-435-5630

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Joe Cocuzzo
Sent: Monday, May 08, 2006 9:33 PM
To: Lovelace, Chuck; Meditech-L (E-mail)
Subject: RE: [MEDITECH-L] AUTO REFRESHING REPORT

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

That was in our MUSE 2003 Tips and Tricks presentation.

http://www.iatric.com/information/muse2003.asp 


Joe Cocuzzo
Vice President
NPR Services
Iatric Systems, Inc.
Phone/Fax: (978) 805-4115
Email: [EMAIL PROTECTED]
Web: www.iatric.com


-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Lovelace, Chuck
Sent: Monday, May 08, 2006 2:16 PM
To: Meditech-L (E-mail)
Subject: [MEDITECH-L] AUTO REFRESHING REPORT

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

I think I saw a posting of this a while back.   I am looking on taking a
NPR
report have it print directly to screen, then refresh every xx amount of
minutes. Does anyone have this report?



Chuck Lovelace, RN
Nursing/Clinical Analyst

323 South 18th Avenue
Sturgeon Bay, WI 54235
Office:  920-746-3608
Fax:     920-743-6042
Pager:  920-556-7050
                               


_______________________________________________
meditech-l mailing list
meditech-l@MTUsers.com
http://mtusers.com/mailman/listinfo/meditech-l

_______________________________________________
meditech-l mailing list
meditech-l@MTUsers.com
http://mtusers.com/mailman/listinfo/meditech-l

**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. 

This footnote also confirms that this email message has been swept by Sophos 
and MIMEsweeper for the presence of computer viruses.
**********************************************************************


MEDITECH.CUST.RPTS^Merle West Medical 
Center^MWM4.9^TEST.MIS^IATRIC^20030505^A^Auto Refresh
RADRW.EXAM.zcus.is.muse2003.autofr
PROC
RADRW.EXAM.zcus.is.muse2003.autofr

RADRW.EXAMzcus.is.muse2003.autofr
U
Y
Y [EMAIL PROTECTED] 
Y
MACRO
RADRW.EXAM.zcus.is.muse2003.autofr.M.d
0
IF{'/DONE %Z.printer.open.px("S"),
1
1^/Z.SCHED.LOG,
2
1^/DONE},
3
"Radiology AUTO Refresh Report";
MACRO
RADRW.EXAM.zcus.is.muse2003.autofr.M.page
0
IF{'/END DO{ZZ%OP(!S,[EMAIL PROTECTED]),10!0^!S,E(!S)^KEY,C(!U)&'OUT 1,
1
IF{KEY=27 1^/QUIT^OUT;
2
KEY=147 1^OUT;
3
KEY 1^OUT^/SKIP;
4
1^OUT}}},
5
EXIT;
6

7
SCOPE
8
(#)
MACRO
RADRW.EXAM.zcus.is.muse2003.autofr.M.sk3
0
1^/SHOW,
1
@Prev(exam.q),
2
IF{/.LL<exam.q %[/R.NEW.PAGE.PGM](0)},
3
""^exam.q
MACRO
RADRW.EXAM.zcus.is.muse2003.autofr.M.start
0
""^/R.PAUSE,
1
@LOOP
2

3
SCOPE
4
(#)
5

6
LOOP
7
DO{ZZ%OP(!S,[EMAIL PROTECTED]),10!0^!S,E(!S)^KEY,C(!U),'/QUIT 1,
8
IF{KEY=27 1^/QUIT;
9
""^/SKIP,
10
0^/R.PAGE.NUM^/R.PAGE.NUM.PRINT,
11
""^/R.NUM.REC.SORT^/END,1 1
12

RPT

Yzcus.is.muse2003.autofr
RADRW.EXAM      
exam.info."_%RADRW.EXAM.zcus.is.muse2003.autofr.M.d(0)_"REG1292
623 
24radiology.exam.information
Y
N
Y
Y
Yradiology.order.index
1
0
1  
Y 
AT      731257994
IATRIC
E
AT      731436399
IATRIC
E
CI
  
DC
1
Joe Cocuzzo, Iatric Systems 4/30/03  MUSE 2003 Example
F
1

exam.date.ext  exam.dat
8
L
F
2
exam.arrival.time  exam
4
L
F
3
xx.rad.name  xx.rad.name4
2
L
F
3CDAT
FREE
F
3CJFY
L
F
3CLEN
30
F
3CVAL
IF{/SHOW @rad's.name}
F
4
xx.exam.desc  xx.exam.desc
2
L
F
4CDAT
FREE
F
4CJFY
L
F
4CLEN
40
F
4CVAL
@[EMAIL PROTECTED]
F
5
count
Z count
5
R
F
6
xx.from  xx.from
2
L
F
6CDAT
DATE
F
6CJFY
L
F
6CLEN
8
F
6CVAL
c.xx.from
F
6SE
1
IG     c.xx.from    
FROM DATE: 
F
7
xx.to  xx.toF
2
L
F
7CDAT
DATE
F
7CJFY
L
F
7CLEN
8
F
7CVAL
c.xx.to
F
7SE
2
IGc.xx.to       TO DATE 
FS1

exam.dates 
FS1SE
3
GE(%Z.date.clinical(c.xx.from))    (%Z.date.clinical(c.xx.from)) 
FS1SE
4
LE(%Z.date.clinical(c.xx.to))    (%Z.date.clinical(c.xx.to)) 
FS2
exam.status 
FS2SE
5
EQ"O"    "O" 
FI
2
0

8
1
FI
2
9

4
2
FI
216
30
3
FI
250
40
4
FI
412

5
5
I
1
order.x 
L
1
HP  
L
2

D  
L
2CLC
'/SKIP
L
3
TK1  
L
4
TR  
L
4CECE
1^/END}},
L
5
TP  
L
5CLC
'/END
L
6
TP 
L
6CECE
%RADRW.EXAM.zcus.is.muse2003.autofr.M.page(0),
L
6CLC
'/END
N
1
AL START start
N
2
AL SK3 sk3
N
3
AL AFTER.D ""^/SHOW
P
1
Date     Arr Tm Patient                           Exam
P
2
exam.dat exam   xx.rad.name4__________________    
xx.exam.desc____________________________
P
3
 
P
4
Total Exams count    <Hit Esc to Quit - Any other key to Refresh/Auto in 30 Sec>
P
5
End of Page - PageDown for Next Page - Automatic Next Page in 10 Seconds
P
6
              Escape to Halt Report  - Any other key to Refresh/Restart
T
1

exam.dates NONE
Y   ASC
T
2
exam.arrival.time NONE
N   ASC
T
3
rad NONE
N   ASC
T
4
exam.q NONE
N   ASC
SCRN

Yzcus.is.muse2003.autofr
RADRW.EXAM"RADRW.EXAM.zcus.is.muse2003.autofr
2
N     
N
CS
4213 
P
1
."_%RADRW.EXAM.zcus.is.muse2003.autofr.M.d(0)_"%Z.on.device
P
1F
1
        c.xx.from 
1
114                12791279
P
1F
1CDAT
DATE
P
1F
1CID.ARG
BR
P
1F
1CIFE
1
P
1F
1CLEN
8
P
1F
1CREQ
1
P
1F
2
c.xx.to 
1
312                12791279
P
1F
2CDAT
DATE
P
1F
2CID.ARG
BR
P
1F
2CIFE
1
P
1F
2CLEN
8
P
1F
2CREQ
1
P
1P
1
FROM DATE:    @1
P
1P
2
 
P
1P
3
  TO DATE   @2
P
1S
1

N    ,1,2

_______________________________________________
meditech-l mailing list
meditech-l@MTUsers.com
http://mtusers.com/mailman/listinfo/meditech-l