RE: [MEDITECH-L] 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
======================================

Title: [MEDITECH-L] NPR Report of new LAB Devices?

Works great, Nick. I tried Joe C's solution first, but yours work beautifully also, thanks! I love the L!

 

Gary Hall

Clinical Applications Specialist

Estes Park Medical Center

Information Systems Department

970-577-4443

 

---

From: Delacruz, Nick [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 30, 2006 9:01 PM
To: Gary Hall
Subject: RE: [MEDITECH-L] NPR Report of new LAB Devices?

Gary,

 

Try this report. 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: Gary Hall [mailto:[EMAIL PROTECTED]
Sent: Wed 8/30/2006 9:29 PM
To: Delacruz, Nick
Subject: RE: [MEDITECH-L] NPR Report of new LAB Devices?

Magic.

 

Gary Hall

Clinical Applications Specialist

Estes Park Medical Center

Information Systems Department

970-577-4443

 

---

From: Delacruz, Nick [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 29, 2006 11:57 PM
To: Gary Hall
Subject: RE: [MEDITECH-L] NPR Report of new LAB Devices?

Magic or C/S?

---

From: [EMAIL PROTECTED] on behalf of Gary Hall
Sent: Mon 8/28/2006 10:50 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

  

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.

  

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.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