[MEDITECH-L] Posted replies from: NPR Report of new LAB Devices?

[Gary Hall]

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


I was asked to post the replies I received from this question, here they
are! 

Joe Cocuzzo's solution (the first listed) works wonderfully; I can
easily modify it to bypass those permanent devices that I'll never want
to activate. The report name on the Iatrics website is
LAB.C.OE.DEV.zcus.is.missing.devices in the NPR report.library. 

So, for those of you who asked to see this due to having the same issues
with internal notification, it looks like this will really help address
the problem!

Thanks, Joe and everyone else who responded with similar or other
solutions!

Gary Hall
Clinical Applications Specialist
Estes Park Medical Center
Information Systems Department
970-577-4443

------------------------------------------------------------------------
-------------------

The way do do this is write a report that opens up the device table,
checks all the "T" type devices, and then checks LAB.C.OE.DEV to see if
that "T" device is entered.  You think it is there (in OE) with no
active flag, but actually it is not there at all (just that the device
field in the EE routine does a lookup on "T" type devices.  Until you ID
the new device and file it in LAB, it just isn't anywhere in the LAB
dictionary.

I have placed a report (Magic 5.4) in our report library that will find
all "T" type devices not filed in the LAB dictionary, listing the device
mnemonic, device ID, and the operator name of the person who forgot to
tell you about the new device.

Both the NPR folks and Tech folks at Meditech ought to have been able to
do this. 


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

------------------------------------------------------------------------
--------------------
I think your assumption, that devices are in LAB.C.OE.DEV as soon as
they are set up in OPS, is incorrect. When you do a lookup in
LAB.C.OE.DEV, it looks directly to OPS. So... the reason the devices
don't show up on your LAB.C.OE.DEV report is that they aren't in that
dictionary yet.

As for the report: To keep it simple, I'm assuming that the device is
set up as a TERMINAL in MIS.LOC.DICT. (Otherwise users couldn't be
ordering OE ORDERS, seeing their correct patients and getting OE REQS to
print to the correct HERE printer.) Check this report (LABDEVICES.NPR).
I made it print by DEPARTMENT(LOCATION) so that you can easily ignore
those areas that wouldn't be needing LAB LABELS.

ps  If the assumption about the device already being in the MIS LOCATION
dictionary is incorrect, you can look to OPS instead. It is just more
complicated.

Michael Von Moll
Clinical Systems Programmer/Analyst
Sentara Obici Hospital
Suffolk VA 23434

------------------------------------------------------------------------
---------------------
We have a check list for the OPs staff to use when they drop a new
device.. THEY have to put it in all the dictionaries... our Help Desk
staff help with that part of the set up!! 

Janice B Lisee, RNC BSN
Senior Systems Analyst
Frederick Memorial Hospital
Frederick, Maryland 21701
240-566-3437
mailto:[EMAIL PROTECTED]

------------------------------------------------------------------------
---------------------
Gary,
 
Try this report (DEVICES.TXT). I modified the macro to list all devices
not activated in LAB devices only. I limited it to list only Terminal
types. The output is designed for download but you can change it to
satisfy your needs. The file is ready for upload to Magic NPR.
 
Hope this helps.
 
Nick

From: Delacruz, Nick [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, August 29, 2006 11:57 PM
 

------------------------------------------------------------------------
--------



-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Gary Hall
Sent: Monday, August 28, 2006 10:51 AM
To: meditech-l@MTUsers.com
Subject: [MEDITECH-L] NPR Report of new LAB Devices?

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

Hello, L. Is there a way to create an NPR report to list new devices in
OPS that are not yet activated in LAB? I've been to the LAB, NPR, MIS,
and TECH Meditech staff, and the answer was no on all fronts.

The problem is that I'm not always notified when our operations staff
creates a new device in OPS. It will show up in my LIS Device dictionary
and require activation in order to work for OE orders coming to LAB. I
only find out if (1) I manually check every day, or (2) OE orders don't
come over to LAB from the new PC device. If the latter, the notification
usually involves someone hitting me on the head. Ouch.

I tried creating a report from LAB.C.OE.DEV, segment
lab.c.device.dictionary. This report works great as long as the active
code is Y or N. But if it's nil, it won't list the entry, and those are
the only ones I actually want to see. And, they're all nil in LIS Device
after OPS has created them, until someone edits them.

Any ideas or prior success on this item? Thanks!  
 
Gary Hall
Clinical Applications Specialist
Estes Park Medical Center
Information Systems Department
970-577-4443




The information contained in this message may be privileged and
confidential and protected from disclosure.  If the reader of this
message is not the intended recipient, or an employee or agent
responsible for delivering this message to the intended recipient, you
are hereby notified that any dissemination, distribution or copying of
this communication is strictly prohibited.  If you have received this
communication in error, please notify the sender of this communication
immediately.




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

LABDEVICES.NPR
Description: LABDEVICES.NPR

MEDITECH.CUST.RPTS^Mercy Medical Center^MEB^LIVE.MIS^MIS.DNE^20060830^A^
@@VERSION:1
LAB.C.OE.DEV.zcus.nd.ops.device.list
@@PROC
LAB.C.OE.DEV.zcus.nd.ops.device.list
[EMAIL PROTECTED]
@@MACRO
LAB.C.OE.DEV.zcus.nd.ops.device.list.M.get.devices
0
; Open and loop thru OPS device table
1
ZZ%OPEN(*S,$["util.files"]),
2
-*D[b.xx.device]^D,
3
;
4
; &SSO[D]|0 = LAB.C.OE.DEV Active
5
; *D[D]T    = OPS device type "T" is terminal; This eliminates "P"rinters or 
"R"emote printers
6
;
7
DO{+*D[D]^D'>(e.xx.device_D(127)) IF{&SSO[D]|0;
8
*D[D]T="T" @SAVE.DEVICE.DATA}},
9
;
10
ZZ%OPEN(*U)
11

12
SAVE.DEVICE.DATA
13
""^Z,
14
[EMAIL PROTECTED],
15
[EMAIL PROTECTED],
16
; term server_term server port
17
*D[D]A|0_._(*D[D]A|1)[EMAIL PROTECTED],
18
; type
19
[EMAIL PROTECTED],
20
; model
21
[EMAIL PROTECTED],
22
; primary segment
23
*D[D]S|[EMAIL PROTECTED],
24
; primary directory
25
*D[D]S|[EMAIL PROTECTED],
26
; primary program
27
*D[D]S|[EMAIL PROTECTED],
28
; alternate segment
29
*D[D]SX|[EMAIL PROTECTED],
30
; alternate directory
31
*D[D]SX|[EMAIL PROTECTED],
32
; alternate program
33
*D[D]SX|[EMAIL PROTECTED],
34
; LAB.C.OE.DEV active
35
&SSO[D]|[EMAIL PROTECTED],
36
; LAB.C.OE.DEV lab.site
37
&SSO[D]|[EMAIL PROTECTED]
38

39
NEXT.FIELD
40
/MV["MV",D,Z+1^Z]
@@RPT

Yzcus.nd.ops.device.listLAB.C.OE.DEV!OPS DEVICE LIST NOT ACTIVE IN 
LABNONE12200
66666
N
Y
N
Y
N
0
1
1
Y
AT      836261041
MIS.DNE
E
CI

F
1
        xx.device     xx.device
2
L
F
1CDAT
FREE
F
1CFNC
LST
F
1CJFY
L
F
1CLEN
32
F
1CVAL
""
F
1SE
1
GEb.xx.deviceFROM DEVICE"0"
F
1SE
2
LEe.xx.deviceTHRU DEVICE"Z"
F
2
xx.descxx.desc
2
L
F
2CDAT
FREE
F
2CFNC
LST
F
2CJFY
L
F
2CLEN
50
F
2CVAL
""
F
3
xx.tsxx.ts
2
L
F
3CDAT
FREE
F
3CFNC
LST
F
3CJFY
L
F
3CLEN
15
F
3CVAL
""
F
4
xx.type
x
2
L
F
4CDAT
FREE
F
4CFNC
LST
F
4CJFY
L
F
4CLEN
1
F
4CVAL
""
F
5
xx.modelxx.model
2
L
F
5CDAT
FREE
F
5CFNC
LST
F
5CJFY
L
F
5CLEN
10
F
5CVAL
""
F
6

xx.pri.segxx
2
L
F
6CDAT
FREE
F
6CFNC
LST
F
6CJFY
L
F
6CLEN
2
F
6CVAL
""
F
7

xx.pri.dir
xx.pri.dir
2
L
F
7CDAT
FREE
F
7CFNC
LST
F
7CJFY
L
F
7CLEN
10
F
7CVAL
""
F
8
xx.pri.prog
xx.pri.pro
2
L
F
8CDAT
FREE
F
8CFNC
LST
F
8CJFY
L
F
8CLEN
10
F
8CVAL
""
F
9

xx.alt.segxx
2
L
F
9CDAT
FREE
F
9CFNC
LST
F
9CJFY
L
F
9CLEN
2
F
9CVAL
""
F10

xx.alt.dir
xx.alt.dir
2
L
F10CDAT
FREE
F10CFNC
LST
F10CJFY
L
F10CLEN
10
F10CVAL
""
F11
xx.alt.prog
xx.alt.pro
2
L
F11CDAT
FREE
F11CFNC
LST
F11CJFY
L
F11CLEN
10
F11CVAL
""
F12

xx.lab.active
x
2
L
F12CDAT
FREE
F12CFNC
LST
F12CJFY
L
F12CLEN
1
F12CVAL
""
F13
xx.lab.site
xx.lab.sit
2
L
F13CDAT
FREE
F13CFNC
LST
F13CJFY
L
F13CLEN
10
F13CVAL
""
FI
2
0
32
1
FI
233
50
2
FI
284
15
3
FI
2100

1
4
FI
2105
10
5
FI
2116

2
6
FI
2125
10
7
FI
2136
10
8
FI
2147

2
9
FI
2156
1010
FI
2167
1011
FI
2178

112
FI
2187
1013
FI
3
0
32
1
FI
333
50
2
FI
384
15
3
FI
3100

1
4
FI
3105
10
5
FI
3116

2
6
FI
3125
10
7
FI
3136
10
8
FI
3147

2
9
FI
3156
1010
FI
3167
1011
FI
3178

112
FI
3187
1013
L
1
HR
L
2

D
L
2CMV
MV
L
3

D
N
1
AL START get.devices
P
1
OPS DEVICE                       DESCRIPTION                                    
    SERVER          TYPE MODEL      PRI SEG  PRI DIR    PRI PROG   ALT SEG  ALT 
DIR    ALT PROG   LAB ACT  LAB SITE
P
2
xx.device_______________________ 
xx.desc___________________________________________ xx.ts__________ x    
xx.model__ xx       xx.pri.dir xx.pri.pro xx       xx.alt.dir xx.alt.pro x      
  xx.lab.sit
P
3
xx.device_______________________ 
xx.desc___________________________________________ xx.ts__________ x    
xx.model__ xx       xx.pri.dir xx.pri.pro xx       xx.alt.dir xx.alt.pro x      
  xx.lab.sit
U       836184309
MIS.DNELIVE.MIS
U       836184492
MIS.DNELIVE.MIS
U       836184522
MIS.DNELIVE.MIS
U       836243429
MIS.DNELIVE.MIS
U       836243562
MIS.DNELIVE.MIS
U       836243596
MIS.DNELIVE.MIS
U       836243641
MIS.DNELIVE.MIS
U       836243666
MIS.DNELIVE.MIS
U       836243718
MIS.DNELIVE.MIS
U       836261376
MIS.DNELIVE.MIS
@@SCRN

Yzcus.nd.ops.device.list
LAB.C.OE.DEV$LAB.C.OE.DEV.zcus.nd.ops.device.list
2
N
N
CS
356
P
1
!OPS DEVICE LIST NOT ACTIVE IN LAB%Z.on.device
P
1F
1
b.xx.device
1
115
P
1F
1CDAT
FREE
P
1F
1CDFT2
"0"
P
1F
1CID.ARG
BR
P
1F
1CIFE
1
P
1F
1CLEN
32
P
1F
1CREQ
1
P
1F
2
e.xx.device
1
215
P
1F
2CDAT
FREE
P
1F
2CDFT2
"Z"
P
1F
2CID.ARG
BR
P
1F
2CIFE
1
P
1F
2CLEN
32
P
1F
2CREQ
1
P
1P
1
FROM DEVICE    @1
P
1P
2
THRU DEVICE    @2
P
1S
1

N,1,2

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