MEDITECH

MEDITECH.CUST.RPTS

Hospital North Country Regional Hospital

MIS NCH

Directory LIVE.MIS

User HAB

Date 20030103

Segment B

Comment LOOKS FOR STRING IN MOX FILES

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

Procedure MOX.USER.zcus.hab.search.own.files

Responsibility U

Active Y

Access Y

Menu Logic

Description @Inquiry

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

Macro MOX.USER.zcus.hab.search.own.files.M.string

A^user,B^file.urn,C^COMMENT,""^FOUND,

C~$L.TO.U^COMMENT,

""^text.line,

DO{@Next(text.line)&'FOUND @CHECK.LINE},

FOUND;

CHECK.LINE

@text~$L.TO.U^TEXT,

IF{L(TEXT,COMMENT)'=L(TEXT) 1^FOUND}

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

Report

Active Y

Name zcus.hab.search.own.files

DPM MOX.USER

Segment files

Report Title mox.user.zcus.hab.search.own.files

Page Banner REG

Chars/Inch 12

Chars/Line 92

Lines/Inch 6

Lines/Page 60

Segment DPM MOX.USER

Page Size 66

Logical Filename mo.files

Page Trailer Y

Report Header N

Report Trailer N

Detail Y

Page Header N

Access Path

Sort Modify

Left Margin 0

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

Documentation

REPORT SCREEN BELOW. DOCUMENTATION BELOW THAT:

This report will search mail messages you have stored in your personal cabinets and/or

mail you have sent.

Search For @2

(Enter string of text. It is not case specific. An example: vacation

This report will only display if match is 100%. Therefore, if you type in something too

specific it may not find any matching reports.

Example: if you document has vaction request and you type in vacation requests,

the extra s on the end would cause the system not to match.

If you typed in vacation req, the report would work.

Check mail in your personal cabinets ? @4

(These are the cabinets you have created. It does not check your inbox. To check your

inbox select report: Search your inbox)

Check mail you have sent ? @5

Max number of hits @8

Because the report could be potentially long, this limits the number to display.

Recommended number of hits: 15

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

searches user's file for text

This report will look for mail you have sent and/or have transferreed into your personal

cabinet. It will not look at mail in "inbox"

The text it seaches for is not case sensitive.

Max Number of Hits is a field which will limit the number of responses. If user would

search for the word "it" the report would take considerable time and return many messages.

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

Fields

1 FLD=xx.top

DSP=xx.top

DAT=FREE

JFY=C

LEN=90

SIZE=1.4

VAL="Search by "_@user's.name_" ("_@user_") for Text = "_c.xx.search

2 FLD=xx.mail

DSP=xx.mail

DAT=FREE

JFY=L

LEN=30

SIZE=1.3

VAL="Mail Sent by You"

3 FLD=xx.mail.in.mailbox

DSP=xx.mail.in.mailbox

DAT=FREE

JFY=L

LEN=30

SIZE=1.3

VAL="Mail in your cabinet"

4 FLD=xx.cab.desc

DSP=xx.cab.desc

DAT=FREE

JFY=L

LEN=30

VAL=@cab.description[user,@file.cab.urn]

5 FLD=xx.drawer2

DSP=xx.drawer2

DAT=FREE

JFY=L

LEN=30

VAL=@file.description[@file.drawer.urn[@file.drawer.urn[@file.drawer.urn]]]

6 FLD=xx.drawer

DSP=xx.drawer

DAT=FREE

JFY=L

LEN=70

VAL=@file.description[user,@file.drawer.urn[user,@file.drawer.urn]]_" Sub Level: "_@file.d

VAL=escription[user,@file.drawer.urn]

7 FLD=file.subject

DSP=file.subject

LEN=83

8 FLD=file.description

DSP=file.description

9 FLD=file.create.date

DSP=file.cre

10 FLD=file.last.edit.date

DSP=file.las

11 FLD=file.sent.from

DSP=file.sent.from

12 FLD=recipient's.name

DSP=recipient's.name

13 FLD=xx.test

DSP=x

DAT=FREE

FNC=LST

JFY=L

LEN=92

VAL=@text

14 FLD=xx.name

DSP=xx.name

DAT=FREE

JFY=L

LEN=50

VAL=/R.NEW.PAGE.PGM

15 FLD=xx.search

DSP=xx.search

DAT=FREE

JFY=L

LEN=30

VAL=c.xx.search

16 FLD=xx.select

DSP=x

DAT=FREE

JFY=L

LEN=1

VAL=%MOX.USER.zcus.hab.test.M.string(user,file.urn,c.xx.search)

17 FLD=xx.ask

DSP=x

DAT=YN

JFY=L

LEN=1

VAL=c.xx.ask

18 FLD=xx.choose

DSP=x

DAT=INT

JFY=R

LEN=1

VAL=IF{c.xx.ask="Y"&('@file.cab.urn) 1}

19 FLD=xx.askc

DSP=x

DAT=YN

JFY=L

LEN=1

VAL=c.xx.askc

20 FLD=xx.choosec

DSP=x

DAT=INT

JFY=R

LEN=1

VAL=IF{c.xx.askc="Y"&@file.cab.urn 1}

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

Selection Fields

Num Field Op Prompt Default (Stored As)

1 user EQ @.user (@.user)

2 xx.search IG Search For (c.xx.search)

3 xx.select EQ 1 (1)

4 xx.askc IG Check Personal Cabinets ? "Y" (c.xx.askc)

5 xx.ask IG Check Sent Mail? "N" (c.xx.ask)

6 xx.choosec EQ 1 (1)

7 xx.choose EQ 1 (1)

8 Z.record.limit EQ Max Number of Hits "15" (Z.c.record.limit)

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

Report Lines

1 HP2

2 D

3 D

4 D

5 D

5 LC='@file.cab.urn

5 PF=b

6 D

6 LC=@file.cab.urn

7 D

8 D

8 LC=@file.cab.urn

9 D

9 LC=@file.description[@file.drawer.urn[@file.drawer.urn[@file.drawer.urn]]]

10 D

10 LC=@file.cab.urn

11 D

12 D

12 LC=@file.subject'=""

13 D

13 LC=@file.description

14 D

15 D

16 D

16 LC=@recipient's.name

17 D

18 D

19 D

20 D

20 ECB=""^text.line,DO{@Next(text.line) .,

20 ECE=.},

21 TP

22 TP

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

Picture

2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

3 __________________________________________xx.top__________________________________________

5 xx.mail_______________________

6 xx.mail.in.mailbox____________

8 Cabinet Name: xx.cab.desc___________________

9 Top level drawer reviewed: xx.drawer2____________________

10 Drawer Info: xx.drawer_____________________________________________________________

12 SubJect: file.subject_______________________________________________________________________

13 File Name: file.description______________

14 Created: file.cre Last Edited: file.las From: file.sent.from______

16 Message to: recipient's.name____

17 recipient's.name____

19 --------------------------------------------------------------------------------------------

20 x___________________________________________________________________________________________

22 report name: xx.name___________________________________________

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

Other

C6!C7

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

Sort Fields

Num Field Order Header Trailer Renumber

1 user NONE N

2 file.urn PAGE N N

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

Screen

Screen Title mox.user.zcus.hab.search.own.files

Print Prompt %Z.on.device

2 c.xx.search

DAT=FREE

ID.ARG=BR

IFE=1

LEN=30

REQ=1

4 c.xx.askc

DAT=YN

DFT2="Y"

ID.ARG=BR

IFE=1

LEN=1

REQ=1

5 c.xx.ask

DAT=YN

DFT2="N"

ID.ARG=BR

IFE=1

LEN=1

REQ=1

8 c.record.limit

DFT2="15"

ID.ARG=BR

IFE=1

REQ=1

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

Custom Select Picture

1 REPORT SCREEN BELOW. DOCUMENTATION BELOW THAT:

2 This report will search mail messages you have stored in your personal cabinets and/or

3 mail you have sent.

5 Search For @2

6 (Enter string of text. It is not case specific. An example: vacation

7 This report will only display if match is 100%. Therefore, if you type in something too

8 specific it may not find any matching reports.

9 Example: if you document has vaction request and you type in vacation requests,

10 the extra s on the end would cause the system not to match.

11 If you typed in vacation req, the report would work.

13 Check mail in your personal cabinets ? @4

14 (These are the cabinets you have created. It does not check your inbox. To check your

15 inbox select report: Search your inbox)

17 Check mail you have sent ? @5

19 Max number of hits @8

20 Because the report could be potentially long, this limits the number to display.

21 Recommended number of hits: 15