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


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

-----Original Message-----
From: Bill Mullins 
Sent: Thursday, March 09, 2006 10:52 AM
To: '[EMAIL PROTECTED]'
Subject: PHA Report for Hold Acknowledements

Kevin:
I used Brian S's report to view the procedure code for the PHA ack
routine:

                       View Logic: PHA.RX.acknowledged  (A: LIVE.MIS) ;
A = urn ; B = reacknowledgement interval (in seconds) ; RETURNS: 1 if
order is acknowledged ; A^urn, [EMAIL PROTECTED];
      @nur.ack.required;
      @Def.buf(X,@nur.acknowledgements),
      @Prev.get(nur.ack.q,X),'nur.ack.q;
      'B "";
      %PHA.U.date.time.to.seconds(@[EMAIL PROTECTED])^ACK,
      @.sd-ACK-B>0}_.=. 1};

ON.HOLD
""^HOLD,
[EMAIL PROTECTED](pnur.req.ctr)&'HOLD [EMAIL PROTECTED]"HA" 1^HOLD}}, HOLD
------------------------------------------------------------------
Looks like the field we need for this is pnur.req.type It says it is in
nur.request segment, and has a local address of prtyp

DPM.element   PHA.RX.pnur.req.type

 Physical   ?TR[tr]NUR[prctr]|0
 Data Type  CHOICE                           Length     4
Local  prtyp
 Segment    nur.request                      Pointer

 Attributes
  CH=ADJ,DC,H,HA,RA,RO,RS
------------------------------------------------------------------
I quickly wrote a simple report to find the HA for a date range, it is
very primitive (time to go home), but here it is, in MAGIC 5.4 SR2

Good Luck,


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


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

Attachment: HOLDACT.doc
Description: HOLDACT.doc

_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l

Reply via email to