MEDITECH.CUST.RPTS

Hospital North Country Regional Hospital

MIS NCH

Directory LIVE.MIS

User HAB

Date 20021224

Segment B

Comment ECE-ECB 01 - PHA.RX.ZCUS.HAB.ING.ECB-ECE

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

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

Procedure PHA.RX.zcus.hab.ingredients.ece.ecb

Responsibility U

Active Y

Access Y

Menu Logic

Description @Inquiry

Y

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

Report

Active Y

Name zcus.hab.ingredients.ece.ecb

DPM PHA.RX

Segment main

Report Title pha.rx.zcus.hab.ingredients.ece.ecb

Page Banner REG

Chars/Inch 12

Chars/Line 92

Lines/Inch 6

Lines/Page 60

Segment DPM PHA.RX

Page Size 66

Logical Filename pha.rx.file

Page Trailer N

Report Header N

Report Trailer N

Detail Y

Page Header N

Access Path pha.rx.start.date.x

Sort Modify

Left Margin 0

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

Documentation

Uses ECE/ECB to list ingredents.

ECB=@med^PHA.DRUG.mnemonic, *** (PHA.RX.med=PHA.DRUG.mnemonic)**

ECB=DO{@Next(PHA.DRUG.drug.ingredient,@PHA.DRUG.ingredients) .,

ECE=.},

@Next format: @Next(subscript) or @Next(subscript,segment.name)

In this case, subscript is in segment name PHA.DRUG.dict.ingredients. Name of field

(subscript is: drug.ingredient. Under internal name - it states "ingredients". Add that

to the DPM and name is inteneral is PHA.DRUG.ingredients.

DO structure: DO{condition statment}

The ( .,) represents the "then"/statement portion of a control structure.

DO control structure: DO{condition statement}

The period acts as a space holder.

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

Fields

1 FLD=med

DSP=med

2 FLD=patient's.name

DSP=patient's.name

3 FLD=PHA.DRUG.drug.ingredient

DSP=drug.ingre

4 FLD=PHA.DRUG.drug.ingredient's.name

DSP=drug.ingredient's.n

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

Selection Fields

Num Field Op Prompt Default (Stored As)

1 start.date GE start.date GE "T-5/S" (b.start.date)

2 start.date LE start.date LE "T/S" (e.start.date)

3 patient's.status EQ "ADM IN" ("ADM IN")

4 med EQ Med (c.med)

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

Report Lines

1 D

2 D

2 ECB=@med^PHA.DRUG.mnemonic,DO{@Next(PHA.DRUG.drug.ingredient,@PHA.DRUG.ingredients) .,

2 ECE=.},

3 D

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

Picture

1 med_______ patient's.name________________

2 drug.ingre drug.ingredient's.n___________

3

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

Sort Fields

Num Field Order Header Trailer Renumber

1 start.date NONE N

2 urn NONE N

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

Screen

Screen Title pha.rx.zcus.hab.ingredients.ece.ecb

Print Prompt %Z.on.device

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

Custom Select Field Attributes

1 b.start.date

DFT2="20021219"

ID.ARG=BR

IFE=1

REQ=1

2 e.start.date

DFT2="20021224"

ID.ARG=BR

IFE=1

REQ=1

4 c.med

ID.ARG=BR

IFE=1

REQ=1

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

Custom Select Picture

1 start.date GE @1

2 start.date LE @2

3

4 Med @4