MEDITECH.CUST.RPTS
Hospital North Country
Regional Hospital
MIS LSSMNNCH
Directory LSS.MIS
User HAB
Date 20021216
Segment C
Comment DUPLICATE ENC
USING RC - pbr.mpi.vis.dup.visists
===================================================================================
===================================================================================
Procedure
PBR.MPI.VIS.zcus.hab.dup.visits
Responsibility U
Active Y
Access Y
Menu
Logic
Description @Inquiry
Y
--------------------------------------------------------------------------------
Report
Active Y
Name zcus.hab.dup.visits
DPM PBR.MPI.VIS
Segment visits
Report
Title
pbr.mpi.vis.zcus.hab.dup.visits
Page
Banner REG
Chars/Inch 12
Chars/Line 92
Lines/Inch 6
Lines/Page 60
Segment
DPM PBR.MPI.VIS
Page
Size 66
Logical
Filename pbr.mpi.vis.visits
Page
Trailer N
Report
Header N
Report
Trailer N
Detail Y
Page
Header Y
Access
Path
pbr.mpi.vis.visit.date.index
Sort
Modify 1
Left
Margin 0
--------------------------------------------------------------------------------
Other
CI
--------------------------------------------------------------------------------
Fields
1 FLD=name
DSP=name
LEN=25
2 FLD=visit.date
DSP=visit.da
3 FLD=xx.begin
DSP=time
DAT=FREE
JFY=L
LEN=4
VAL=@PBR.APT.srsc.begin.time[@visit.appt,1]
4 FLD=xx.sch.res
DSP=xx.sch.r
DAT=FREE
JFY=L
LEN=8
VAL=@PBR.APT.srsc.dr.res[@visit.appt,1]
5 FLD=visit.status
DSP=v
6 FLD=visit.appt's.visit.reason
DSP=visit.appt's.visit.
LEN=38
7 FLD=visit.appt's.scheduler
DSP=user
LEN=4
8 FLD=visit.appt's.sched.date
DSP=s.date
9 FLD=visit.appt's.sched.time
DSP=s.tim
10 FLD=xx.select
DSP=xx
DAT=PINT
JFY=R
LEN=2
VAL=IF{'/PAT[@mpi.urn]
1^/PAT[@mpi.urn];1^/PT[@mpi.urn];1}
--------------------------------------------------------------------------------
Selection Fields
Num Field Op Prompt Default (Stored As)
1
visit.date
EQ Visit date
"T-1/S"
(c.visit.date)
2
visit.enc.number CO
"TNC" ("TNC")
3
xx.select
EQ 1 (1)
--------------------------------------------------------------------------------
Report Lines
1 HP
2 D
2 HL=6
3 D
4 D
5 D
5 HL=1
--------------------------------------------------------------------------------
Footnotes
RC
/PT[@mpi.urn]
--------------------------------------------------------------------------------
Picture
1 NAME Date/time SCHED ST VISIT REASON
2
3 name_____________________ visit.da time xx.sch.r v
visit.appt's.visit.___________________
4 Scheduled by: user @ s.date__ s.tim
5
--------------------------------------------------------------------------------
Sort Fields
Num Field Order Header
Trailer Renumber
1 name NONE N
2 mpi.urn NONE N
3 visit.urn NONE N
--------------------------------------------------------------------------------
Screen
Screen
Title
pbr.mpi.vis.zcus.hab.dup.visits
Print
Prompt %Z.on.device
--------------------------------------------------------------------------------
Custom Select Field Attributes
1
c.visit.date
DFT2="20020422"
ID.ARG=BR
IFE=1
REQ=1
--------------------------------------------------------------------------------
Custom Select Picture
1 Visit date@1