MEDITECH.CUST.RPTS

Hospital North Country Regional Hospital

MIS NCH

Directory LIVE.MIS

User HAB

Date 20030206

Segment B

Comment ADM.PAT.zcus.hab.rx.test (Main Report

===================================================================================

===================================================================================

Procedure ADM.PAT.zcus.hab.rx.test

Responsibility U

Active Y

Access Y

Menu Logic

Description @Inquiry

Y

PROC ML

PROC %ADM.PAT.zcus.hab.rx.test.S("ADM.PAT.zcus.hab.rx.test.R","IFO(!)=O(#)&('/ZLOCAL) 27-/.P;0")X

--------------------------------------------------------------------------------

Macro ADM.PAT.zcus.hab.rx.test.M.chk.rx

;check to see if have SPECFIC meds

A^urn,

@urn^/R.URN,

%Z.rw.fragment("PHA.RX.zcus.hab.frag.chk.rx.R","PHA.NCH.N"),

/R.FRAG.VAL["FLAG"];

;RETURNS LAST VALUE IN THE FRAGMENT- THATS WHY NEED TOPUT FLAG

--------------------------------------------------------------------------------

Macro ADM.PAT.zcus.hab.rx.test.M.get.meds

;to test getting meds

@urn^/R.URN,

%Z.rw.fragment("PHA.RX.zcus.hab.frag.shows.rxs.R","PHA.NCH.N"),

%Z.rw.fragment("LAB.L.SPEC.zcus.hab.frag.inr.R","LAB.NCH")

--------------------------------------------------------------------------------

Report

Active Y

Name zcus.hab.rx.test

DPM ADM.PAT

Segment main

Report Title adm.pat.zcus.hab.rx.test

Page Banner REG

Chars/Inch 12

Chars/Line 92

Lines/Inch 6

Lines/Page 60

Segment DPM ADM.PAT

Page Size 66

Logical Filename adm.patient.file

Page Trailer N

Report Header N

Report Trailer N

Detail Y

Page Header Y

Access Path adm.pat.room.bed.index

Sort Modify 1

Left Margin 0

--------------------------------------------------------------------------------

Documentation

***** CAUTION: USED IN LIVE EVERY DAY - PHARMACY INR REPORT ***

Selects inpatients

checks if on warfarin

if on warfarin - pulls med info

then pulls inr info

USES 3 FRAGS

PHA.RX.zcus.hab.frag.chk.rx

--------------------------------------------------------------------------------

Fields

1 FLD=xx.location

DSP=xx.location

DAT=FREE

FONT=B

JFY=L

LEN=92

SIZE=2

VAL=@location

2 FLD=xx.name

DSP=xx.name

DAT=FREE

FONT=b

JFY=L

LEN=30

SIZE=1.4

VAL=@name

3 FLD=xx.room.bed

DSP=xx.room.

DAT=FREE

FONT=b

JFY=L

LEN=8

SIZE=1.4

VAL=@room.and.bed

4 FLD=xx.wt

DSP=xx.wt

DAT=FREE

FONT=b

JFY=L

LEN=11

SIZE=1.3

VAL=IF{'@OE.PAT.wt.in.lb "Zero Wt";@OE.PAT.wt.in.lb:0D_" lbs"}

5 FLD=xx.ht

DSP=xx.ht

DAT=FREE

FONT=b

JFY=L

LEN=10

SIZE=1.4

VAL=@OE.PAT.ht.in.ft_"ft "_@OE.PAT.ht.in.in:0D_" in"

6 FLD=admit.date

DSP=admit.da

7 FLD=acct.num.out

DSP=acct.num.out

8 FLD=xx.flag

DSP=x

DAT=FREE

JFY=L

LEN=1

VAL=%ADM.PAT.zcus.hab.rx.test.M.chk.rx(@urn)

--------------------------------------------------------------------------------

Selection Fields

Num Field Op Prompt Default (Stored As)

1 facility EQ "." (".")

2 xx.flag EQ "Y" ("Y")

--------------------------------------------------------------------------------

Report Lines

1 HP

2 HP

2 HL=8

3 HK2

4 HK2

5 D

6 D

--------------------------------------------------------------------------------

Footnotes

AL AFTER.D get.meds

--------------------------------------------------------------------------------

Picture

1

2

3

4 xx.location_________________________________________________________________________________

5

6 xx.name_______________________ xx.room. xx.wt______ xx.ht_____ admit.da acct.num.out

--------------------------------------------------------------------------------

Sort Fields

Num Field Order Header Trailer Renumber

1 facility NONE N

2 location KEY N

3 room NONE N

4 bed NONE N

5 urn NONE N

--------------------------------------------------------------------------------

Screen

Screen Title adm.pat.zcus.hab.rx.test

Print Prompt %Z.on.device