MEDITECH.CUST.RPTS
Hospital North Country
Regional Hospital
MIS NCH
Directory LIVE.MIS
User HAB
Date 20030106
Segment B
Comment Fragment Type 1
Retrieve data file 1
===================================================================================
===================================================================================
Procedure
ADM.PAT.zcus.jfb.ss02.frag.1
Responsibility U
Active Y
Access Y
Menu
Logic
Description @Inquiry
Y
--------------------------------------------------------------------------------
Macro
ADM.PAT.zcus.jfb.ss02.frag.1.M.call.frag
;Any line begining with a ; is a comment line
@acct.number^/R.ACN,
%Z.rw.fragment("ABS.PAT.zcus.jfb.ss02.frag.get.pdx.R","ABS.NCH"),
MOVE(/R.FRAG.VAL,/MUSE),
@acct.number^/R.ACN,
%Z.rw.fragment("BAR.PAT.zcus.jfb.ss02.frag.get.bal.R","BAR.NCH")
--------------------------------------------------------------------------------
Report
Active Y
Name zcus.jfb.ss02.frag.1
DPM ADM.PAT
Segment main
Report
Title ** Fragments that return
data **
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 N
Access
Path adm.pat.room.bed.index
Sort
Modify
Left
Margin 0
--------------------------------------------------------------------------------
Fields
1 FLD=name
DSP=name
2 FLD=acct.number
DSP=acct.number
3 FLD=xx.balance
DSP=xx.balance
COMMA=Y
DAT=SMONEY
JFY=R
LEN=10
VAL=/R.FRAG.VAL["BAL"]
4 FLD=xx.total
DSP=xx.total
COMMA=Y
DAT=SMONEY
JFY=R
LEN=10
VAL=/R.FRAG.VAL["TOT"]
5 FLD=xx.bar.adt
DSP=xx.bar.a
DAT=DATE
JFY=L
LEN=8
VAL=/R.FRAG.VAL["ADT"]
6 FLD=xx.pdx
DSP=xx.pdx
DAT=FREE
JFY=L
LEN=6
VAL=/MUSE["PDX"]
--------------------------------------------------------------------------------
Selection Fields
Num Field Op Prompt Default (Stored As)
--------------------------------------------------------------------------------
Report Lines
1 D
--------------------------------------------------------------------------------
Footnotes
AL
D call.frag
--------------------------------------------------------------------------------
Picture
1 name__________________________ acct.number_ xx.balance __xx.total xx.bar.a
xx.pdx
--------------------------------------------------------------------------------
Sort Fields
Num Field Order Header
Trailer Renumber
1 facility NONE N
2 room NONE N
3 bed NONE N
4 urn NONE N
--------------------------------------------------------------------------------
Screen
Screen
Title ** Fragments that return
data **
Print
Prompt %Z.on.device