I had this also, so I wrote a fragment to B/AR looking for the CCU/ICU Room
charge procedure's department....
The ADM macro has a piece which looks like this:
GET.BAR.CLIENT.DATA
@acct.number^/R.FRAG.ARG1,
%Z.rw.fragment("BAR.PAT.zcus.frag.room.charge.for.press.ganey.R","BAR.XXXX"),1,
[EMAIL PROTECTED]"6SW"&(@service="ORTHO") "RH0102"^/R.FRAG.VAL["CLIENT"]},
"IN0101"^/R.FRAG.VAL["CLIENTB"]
and the BAR fragment has this macro:
[EMAIL PROTECTED]'s.chg.dept^DPT="10-6020" "RH0101"^/R.FRAG.VAL["CLIENT"]},
(this is our Rehab unit)
[EMAIL PROTECTED]'s.chg.dept="10-6120" "IN0103"^/R.FRAG.VAL["CLIENT"]},
(this is our CCU)
[EMAIL PROTECTED]'s.chg.dept="10-6123" "IN0102"^/R.FRAG.VAL["CLIENT"]},
(these last three are our OB/LD/Newborns)
[EMAIL PROTECTED]'s.chg.dept="10-6090" "IN0102"^/R.FRAG.VAL["CLIENT"]},
[EMAIL PROTECTED]'s.chg.dept="10-6080" "IN0102"^/R.FRAG.VAL["CLIENT"]}
So the logic in the source report in ADM states if BAR has a room charge for a
specific department send the client id to /R.FRAG.VAL["CLIENT"]
ELSE
if location is 6SW and service is ORTHO then send a different
client id to the same fragment, else send default client id to
/R.FRAG.VAL["CLIENTB"]
THEN in the ADM xx.client.id field I indicate CLIENT else CLIENTB:
VAL=IF{/R.FRAG.VAL["CLIENT"];/R.FRAG.VAL["CLIENTB"]}
I felt B/AR was a simpler answer than looping through all of ABS locations for
the patient.....
HTH,
Cindy Bodnar-Anderson
Senior Programmer/Analyst
IS, Regional Health
Rapid City SD 57701
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 06, 2007 1:26 PM
To: [email protected]
Subject: [MEDITECH-L] Question about press ganey file
Hi,
I need to make some changes to the press ganey file and I am stuck on
the field adm.loc. What they are needing now is that if the patient has
been on location CCU or ICU during the stay they need to receive a INO103.
I am not sure how to set up the macro to look through all locations the
patient could have been on. I am only getting the first location. This is
what I have for the macro:
[EMAIL PROTECTED]"ER" "ER0101";
@pt.status="SDC" "AS0101";
@location="MAT/CHILD" "IN0102";
@location="PPC OUT" "AS0101";
@adm.loc="CCU" "IN0103";
@adm.loc="ICU" "IN0103";
@adm.from.er="Y" "IN0104"; "IN0101"}^SUR
Thank you,
Keith Owens
Applications Analyst
Lourdes
[EMAIL PROTECTED]
270-444-2747
CONFIDENTIALITY NOTICE: This 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.
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET.
To check the status of the meditech-l, visit MTUsers.NET.
For help, email [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
***Note: The information contained in this message, including any attachments,
may be privileged, 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 immediately by a "reply to sender only"
message and destroy all electronic or paper copies of the communication,
including any attachments.
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET.
To check the status of the meditech-l, visit MTUsers.NET.
For help, email [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
