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.
**********************************************************************
HOLDACT.npr
Description: HOLDACT.npr
[EMAIL PROTECTED] COMMENT HP LaserJet 4
@PJL SET PAGEPROTECT=OFF
@PJL SET PAGEPROTECT=AUTO
@PJL SET RET=MEDIUM
@PJL SET RESOLUTION=600
@PJL ENTER LANGUAGE=PCL
E*t600R&u600D*r3F&l0O&l0H&l2a8c1E*p0x0Y*c0t5760x7680Y&l1X*b0M
E&l1O(8U(s0p16.67h8v0T)10U)s0p16.67h8v0T&k6.120H&l5.647c7e62F&a4LE&l1O(8U(s0p16.67h8v0T)10U)s0p16.67h8v0T&k6.120H&l5.647c7e62F&a4L
REPORT LIST
PAGE 1
RUN ON 03/08/06-1923
TEST.5.4.MIS
PHA.RX.zcus.bm.hold.act
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SCREEN: PHA.RX.zcus.bm.hold.act
LN
+----------1---------2---------3---------4---------5---------6---------7--------+
1=b.pnur.req.date
1 |FROM DATE: @1
| 2=e.pnur.req.date
2 |THRU DATE: @2
|
+-------------------------------------------------------------------------------+
SCREEN ELEMENTS
------ --------
b.pnur.req.date = ID.ARG=BR
IFE=1
REQ=1
e.pnur.req.date = ID.ARG=BR
IFE=1
REQ=1
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
REPORT: PHA.RX.zcus.bm.hold.act CPI=12 CPL=92 LPI=6 LPG=60
PGSZ=66 MARG=0 BAN=REG
TYPE LN
+----------1---------2---------3---------4---------5---------6---------7---------8---------9-+
|RUN DATE: mm/dd/yy HOSPITAL NAME
PAGE n |
|RUN TIME: hhmm HOLD ACK TESTING
|
|RUN USER: user
|
HP 1 |
|
HP 2 | FROM DATE: xx.bdate THRU DATE: xx.eddat
|
HP 3 |
|
HP 4
|_________________________________________xx.hdr_________________________________________
|
HP 5 |
|
HK4 6 |ROOM/BED PATIENT ACCT# UNIT#
|
HK4 7 |patient's.room patient.name__________________ patient's.ac
patient's. |
HK4 8 |
|
HK4 9 |REQ ACT DT TM ACT TYPE REASON ACT DT/TM
USER |
D 10 | pnur.req pnur pnur pnur.req.com.reason______ pnur.req
pnur pnur.req.u |
TK4 11 |
|
TK4 12 |
|
TR 13 |
|
TR 14 |TOTAL HOLD REQUESTS: count
xx.rpt__________________________________ |
+--------------------------------------------------------------------------------------------+
LINE ATTRIBUTES
---- ----------
1 BX = GR
FF = b
PF = b
5 BX = WH
11 HL = 3
13 BX = END
FIELDS
------
(CONTINUED)
REPORT LIST
PAGE 2
RUN ON 03/08/06-1923
TEST.5.4.MIS
PHA.RX.zcus.bm.hold.act {continued}
1 xx.bdate = xx.bdate [DAT=DATE, JFY=L, LEN=8, SIZE=1.25,
VAL=b.pnur.req.date] 9 pnur = pnur.req.act.time
2 xx.eddat = xx.eddate [DAT=DATE, JFY=L, LEN=8, SIZE=1.25,
VAL=e.pnur.req.date] 10 pnur = pnur.req.type
3 xx.hdr = xx.hdr [DAT=FREE, JFY=C, LEN=88, SIZE=L, VAL="HOLD
REQUESTS FROM NURSING"]11 pnur.req.com.reason = pnur.req.com.reason [LEN=25]
4 patient's.room = patient's.room.bed
12 pnur.req = pnur.req.date
5 patient.name = patient.name
13 pnur = pnur.req.time
6 patient's.ac = patient's.acct.number
14 pnur.req.u = pnur.req.user
7 patient's. = patient's.unit.number
15 count = Z.count
8 pnur.req = pnur.req.act.date
16 xx.rpt = xx.rpt [DAT=FREE, FONT=i, JFY=L,
LEN=40, VAL=/R.NEW.PAGE.PGM]
DETAIL SEGMENT: PHA.RX nur.request
INDEX FILE: PHA.RX nur.request.index
SORT FIELDS PRODUCED BY DETAIL SEGMENT/INDEX FILE
1 pnur.req.type
2 pnur.req.date
3 pnur.req.time
4 urn
5 pnur.req.ctr
# SELECT OP PROMPT/VALUE
DEFAULT/KEYWORD
-------- -- ------------
---------------
1 pnur.req.date GE FROM DATE:
2 pnur.req.date LE THRU DATE:
3 pnur.req.type EQ "HA"
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
(CONTINUED)
REPORT LIST
PAGE 3
RUN ON 03/08/06-1923
TEST.5.4.MIS
PHA.RX.zcus.bm.hold.act {continued}
PHA.RX.zcus.bm.hold.act.R
PHA.RX.zcus.bm.hold.act.R,A,TEST.5.4.MIS,5.4,06.03.08.1916,"COLOR",
IF{/R.FRAGMENT;
"PHA.RX.zcus.bm.hold.act.RP"^/R.NEW.PAGE.PGM,
"HOLD ACK TESTING"^/R.TITLE,
A>0^/R.INQ,
IF{A>0 A;""}^/R.PAUSE,
^A#0^/R.SYM,
IF{A>0 A;60}^/R.LP,
66^/R.PS,
""^/R.CLOSED,
IF{'/R.HOLD.PRT %Z.printer(12,6,66,92,60)}},
%Z.rw.setup(0),
%Z.rw.graphics("SETUP"),
IF{"HA"'=D(127);D(1)}^prtyp,
-?TR.NURACT[prtyp]^prtyp,
DO{+?TR.NURACT[prtyp]^prtyp'>"HA"&'/R.LIMIT
IF{/b.pnur.req.date'=D(127);D(1)}^prdt,
-?TR.NURACT[prtyp,prdt]^prdt,
DO{+?TR.NURACT[prtyp,prdt]^prdt'>(/e.pnur.req.date_D(127))&'/R.LIMIT ""^prtm,
DO{+?TR.NURACT[prtyp,prdt,prtm]^prtm&'/R.LIMIT
""^tr,
DO{+?TR.NURACT[prtyp
,prdt,prtm,tr]^tr&'/
R.LIMIT 1^R.PRINT.HK
4,
--> ""^R.PRINT.TK4,
--> ""^prctr,
--> DO{+?TR.NURACT[prtyp,prdt,prtm,tr,prctr]^prctr&'/R.LIMIT ?TR[tr]|1^aa,
--> :AA[aa]|0^/V[6],
--> :AA[aa]|10_"-"_:AA[aa]|11'="-"^/V[4],
--> :AA[aa]|3^/V[7],
--> (:AA[?TR[tr]|1]|1)^/V[5],
--> ?TR[tr]NUR[prctr]^X,
--> (/b.pnur.req.date)^/V[1],
--> (/e.pnur.req.date)^/V[2],
--> ("HOLD REQUESTS FROM NURSING")^/V[3],
--> ""^prcnt,
--> DO{+?TR[tr]NUR[prctr]C[prcnt]^prcnt ?TR[tr]NUR[prctr]C[prcnt]^M,
--> M^/V[11]},
--> ""^M,
--> 0^/R.MULT.PAGE,
--> 1^/R.FOUND,
--> DO{># IF{E(#S)'=27'=146;
--> /R.HALTED;
--> "Cancel Printing? "^/.WO,
--> %Z.w.macro(1,0,1)="Y" 1^/R.HALTED}},
--> IF{/R.HALTED /R.NUM.REC.PRT!0^/R.LIMIT},
--> IF{R.PRINT.HK4 IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
--> /.LL-1^/.LL,
--> %Z.rw.index(1,"PNUR REQ TYPE",prtyp,"CHOICE"),
--> I(/R.F["b"]_"ROOM/BED PATIENT ACCT#
UNIT#"_/R.F[""])N^/R.OUT,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
--> IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
(CONTINUED)
PROCEDURE OBJECT CODE
PAGE 4
RUN ON 03/08/06-1923
TEST.5.4.MIS
PHA.RX.zcus.bm.hold.act.R {continued}
--> /.LL-1^/.LL,
--> I(/R.F["b"]_(/V[4]:14TL)_" "_(/V[5]:30TL)_" "_(/V[6]:12TL)_"
"_(/V[7]:10TL)_/R.F[""])N^/R.OUT,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
--> IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
--> /.LL-1^/.LL,
--> I("")N^/R.OUT,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
--> IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
--> /.LL-1^/.LL,
--> I(/R.F["b"]_"REQ ACT DT TM ACT TYPE REASON ACT
DT/TM USER"_/R.F[""])N^/R.OUT,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
--> ""^R.PRINT.HK4},
--> /V[15]+1^/V[15],
--> IF{/R.FOUND IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
--> /.LL-1^/.LL,
--> I(" "_/R.F["b"]_(%Z.date.out(X|4,1):8TL)_" "_(X|5:4TL)_("
":4)_(X|0:4TL)_(" ":4)_(/V[11]:25TL)_" "_(%Z.date.out(X|1,1):8TL)_"
"_(X|2:4TL)_" "_(X|3:10TL)_/R.F[""])N^/R.OUT
--> ,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!}},
--> 1^R.PRINT.TK4},
--> IF{R.PRINT.TK4 IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
--> %Z.rw.graphics("",3,"","","","","","PHA.RX.zcus.bm.hold.act.R.","","TK4"),
--> /.LL-1^/.LL,
--> I("")N^/R.OUT,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
--> IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
--> /.LL-1^/.LL,
--> I("")N^/R.OUT,
--> IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
--> ""^R.PRINT.TK4}}}}},
IF{/R.FRAGMENT;
%Z.rw.index(4),
IF{/R.FOUND IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
%Z.rw.graphics(0,"","","","","","","PHA.RX.zcus.bm.hold.act.R.","","TR"),
/.LL-1^/.LL,
I("")N^/R.OUT,
IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
IF{/.LL<1 %[/R.NEW.PAGE.PGM](0)},
/.LL-1^/.LL,
(/R.NEW.PAGE.PGM)^/V[16],
I(/R.F["b"]_"TOTAL HOLD REQUESTS: "_(/V[15]:5R)_("
":18)_/R.F["i"]_(/V[16]:40TL)_/R.F[""])N^/R.OUT,
IF{%[/R.TRANS]'=% %[/R.TRANS](0);/R.OUT^!},
""^/V[15],
%Z.rw.graphics(0,"","",0,"","","","PHA.RX.zcus.bm.hold.act.R.")}},
%Z.rpt.log.cust.usage("PHA.RX.zcus.bm.hold.act"),
%Z.rw.close.up(0),
END;
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------EE*v0o0T
E%-12345X_______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l
