MEDITECH.CUST.RPTS

Hospital North Country Regional Hospital

MIS NCH

Directory LIVE.MIS

User HAB

Date 20030108

Segment B

Comment FRAGMENT TYPE 3 - SORT/SELECT DATA EXAMPLE1

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

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

Procedure ABS.DRG.zcus.jfb.ss02.top.ten

Responsibility U

Active Y

Access Y

Menu Logic

Description @Inquiry

Y

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

Macro ABS.DRG.zcus.jfb.ss02.top.ten.M.build.stats

c.xx.date1^/R.DATE1,

c.xx.date2^/R.DATE2,

%Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.frag.build.stats.R","ABS.NCH")

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

Report

Active Y

Name zcus.jfb.ss02.top.ten

DPM ABS.DRG

Segment main

Report Title ** DRG Top Ten Report **

Page Banner REG

Chars/Inch 12

Chars/Line 92

Lines/Inch 6

Lines/Page 60

Segment DPM ABS.DRG

Page Size 66

Logical Filename abs.drg

Page Trailer N

Report Header N

Report Trailer N

Detail Y

Page Header N

Access Path

Sort Modify 1

Left Margin 0

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

Fields

1 FLD=code

DSP=cod

2 FLD=name

DSP=name

3 FLD=xx.count

DSP=xx.c

DAT=PINT

JFY=R

LEN=4

VAL=/R.FRAG.VAL[@code]

4 FLD=xx.date1

DSP=xx.date1

DAT=DATE

JFY=L

LEN=8

VAL=c.xx.date1

5 FLD=xx.date2

DSP=xx.date2

DAT=DATE

JFY=L

LEN=8

VAL=c.xx.date2

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

Selection Fields

Num Field Op Prompt Default (Stored As)

1 version LS "99" ("99")

2 xx.count GE Minimum Count (b.xx.count)

3 xx.date1 IG Discharge Dates from (c.xx.date1)

4 xx.date2 IG Discharge Dates thru (c.xx.date2)

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

Report Lines

1 D

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

Footnotes

AL START build.stats

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

Picture

1 cod name__________________________________________________________________ xx.c

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

Sort Fields

Num Field Order Header Trailer Renumber

1 xx.count NONE N

2 version NONE N

3 code NONE N

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

Screen

Screen Title ** DRG Top Ten Report **

Print Prompt %Z.on.device

2 b.xx.count

DAT=PINT

ID.ARG=BR

IFE=1

LEN=4

REQ=1

3 c.xx.date1

DAT=DATE

ID.ARG=BR

IFE=1

LEN=8

REQ=1

4 c.xx.date2

DAT=DATE

ID.ARG=BR

IFE=1

LEN=8

REQ=1

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

Custom Select Picture

1 Minimum Count @2

2

3 Discharge Dates from @3

4

5 Discharge Dates thru @4