MEDITECH.CUST.RPTS
Hospital North Country
Regional Hospital
MIS NCH
Directory LIVE.MIS
User HAB
Date 20021209
Segment B
Comment horizontal
multiples- trial 3
===================================================================================
===================================================================================
Procedure
BAR.PROC.zcus.hab.test.med.nec.diag.horz.90
Responsibility U
Active Y
Access Y
Menu
Logic
Description @Inquiry
Y
--------------------------------------------------------------------------------
Macro
BAR.PROC.zcus.hab.test.med.nec.diag.horz.90.M.diag
;Nil out /DIAG
DO{+/DIAG[SUB]^SUB
""^/DIAG[SUB]},
1^CT,
"IX021125"^MIS.CPT.REQ.mnemonic,
alt.code^MIS.CPT.REQ.code,
@.today+1^MIS.CPT.REQ.eff.date,
@Prev(MIS.CPT.REQ.eff.date),
""^MIS.CPT.REQ.acc.diag,
DO{@Next(MIS.CPT.REQ.acc.diag)
@SET}
SET
MIS.CPT.REQ.acc.diag^RSP,
IF{L(/DIAG[CT]_",
"_RSP)<85 /DIAG[CT]_", "_RSP^/DIAG[CT];
/DIAG[CT]_","^/DIAG[CT],
1+CT^CT,/DIAG[CT]_",
"_RSP^/DIAG[CT]}
--------------------------------------------------------------------------------
Report
Active Y
Name
zcus.hab.test.med.nec.diag.horz.90
DPM BAR.PROC
Segment main
Report
Title
bar.proc.zcus.hab.test.med.nec.diag.horz.90
Page
Banner NONE
Chars/Inch 12
Chars/Line 88
Lines/Inch 6
Lines/Page 999
Segment
DPM BAR.PROC
Page
Size 66
Logical
Filename bar.proc.dict
Page
Trailer N
Report
Header Y
Report
Trailer N
Detail Y
Page
Header N
Access
Path
bar.proc.dict.alt.code.index
Sort
Modify
Left
Margin 0
--------------------------------------------------------------------------------
Documentation
Brian
helped, structure stored differently
used
below code to look at list.
DAT=FREE
JFY=L
LEN=10
VAL=IF{""^DATE,+MIS.CPT.REQ.eff.dates["INFO-X",alt.code,DATE]^DATE
1}
Note:
+ sign tells it to look at first one on the list.
If
used - sign (in front of MIS.CPT.. , would look at last one on the list.
11/29/02: (rsg) Modified computed field to change
"INFO-X" to "IX021125" which is the new
requirement
mnemonic that we are using as of 11/25/02.
--------------------------------------------------------------------------------
Fields
1 FLD=chg.cat
DSP=chg.cat
2 FLD=chg.dept's.name
DSP=chg.dept
LEN=20
3 FLD=alt.code
DSP=alt.code
4 FLD=mnemonic
DSP=mnemonic
5 FLD=description
DSP=descr
6 FLD=xx.diag
DSP=xx.diag
DAT=FREE
JFY=L
LEN=84
VAL=/DIAG[1]%1
7 FLD=xx.diag2
DSP=xx.diag2
DAT=FREE
JFY=L
LEN=84
VAL=/DIAG[QUE]%1
8 FLD=xx.mis
DSP=xx.mis
DAT=FREE
JFY=L
LEN=10
VAL=IF{""^DATE,+MIS.CPT.REQ.eff.dates["IX021125",alt.code,DATE]^DATE
1}
--------------------------------------------------------------------------------
Selection Fields
Num Field Op Prompt Default (Stored As)
1
alt.code.type
EQ "CPT-4"
("CPT-4")
2
xx.mis
EQ 1 (1)
3
active
EQ "Y"
("Y")
--------------------------------------------------------------------------------
Report Lines
1 HR
1 HL=2
2 D
3 D
3 FF=B
3 PF=B
4 D
4 FF=B
4 PF=B
5 D
5 FF=n
5 PF=n
6 D
6 ECB=1^QUE,DO{+/DIAG[QUE]^QUE .,
6 ECE=.},
7 D
7 HL=2
--------------------------------------------------------------------------------
Footnotes
AL
D diag
--------------------------------------------------------------------------------
Picture
1
2
3 CHG.CAT ALT.CODE MNEMONIC
DESCRIPTION
4 chg.cat_ chg.dept____________
alt.code_______ mnemonic__ descr_________________________
5
xx.diag_____________________________________________________________________________
6
xx.diag2____________________________________________________________________________
7
--------------------------------------------------------------------------------
Sort Fields
Num Field Order Header
Trailer Renumber
1 alt.code.type NONE N
2 alt.code NONE N
3 alt.code.eff.date NONE N
4 mnemonic NONE N
--------------------------------------------------------------------------------
Screen
Screen
Title
bar.proc.zcus.hab.test.med.nec.diag.horz
Print
Prompt %Z.on.device