All messages should be posted in plain text. HTML will be converted to
attachments. The meditech-l web site is MTUsers.com
======================================
Sheesh.. ask Meditech why they have $ utilities then..
VAL=$DEV.NAME(@.device)
On your second issue, you'd need to use your own raf and either lock it
as you get each new number, or set a flag.
Here is one approach (just using a flag)
"EXT.MYDIR"^MIS.APPL.database, (replace "EXT.MYDIR" with an MIS.APPL
entry that points to your custom programming directory)
$["SEGS"](@MIS.APPL.database.segment,@MIS.APPL.database.directory),
IF{%["my.number.wheel"] ZZ%OP(!S,%["my.number.wheel"]);
ZZ%OP(!S,ALLOCATE(1,%["my.number.wheel"]))},
C($U,%U),
DO{!LOCKED&(CNT+1^CNT<10) H(1)},
IF{!LOCKED @W.err("Number wheel locked, could not get next number");
1^!LOCKED,
!LASTONE+1^!LASTONE^MYNUMBER,
""^!LOCKED},
C(!U)
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 McGaw, Douglas
Sent: Friday, August 25, 2006 2:40 PM
To: [email protected]
Subject: [MEDITECH-L] NPR Question on printing device name
All messages should be posted in plain text. HTML will be converted to
attachments. The meditech-l web site is MTUsers.com
======================================
I thought I was sure that this could be done, but the Meditech line is
"you can't do it."
I am interested in printing the device name from which a report is
generated. (The report is being generated out of ADM.PAT, but I could
probably use about any DPM in this particular application.) By using a
computed variable @.device, I can get the ip address of the the device
in question, but am puzzled as to how to get its name. (Keeping in mind
that the devices are defined in OPS under $T, that's supposed to be a
show stopper according to Meditech, but I'm not convinced.)
Failing that, I'd be interested in showing the location assigned to the
device, but [EMAIL PROTECTED]@.device] or variations on that
do not show me anything.
One additional question: The application in question is a cash receipt
where virtually all the varables are filled in at the time of generating
the report; they are interested in serializing a number to show up at
the top of the report.
Any ideas?
Douglas B. McGaw
Hospital Info Svcs Coordinator
Newman Regional Health
1201 W. 12th Ave.
Emporia, KS 66801
Voice: 620-343-6800 x 1130
Fax: 620-340-6133
Email: [EMAIL PROTECTED]
_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
