MUSE 2003 NPR Tips and Tricks

1
MUSE 2003 NPR Tips and Tricks

• Presented by
• Joe Cocuzzo, VP NPR RW Group
• Joel Berman, President

2
Topics

• Custom Lookups / ID or IFE attribute (M)
• Custom Lookups/ Screen Call in Title (C/S)
• Using Standard Report Screen (M)
• Printing Accented Text (M)
• Calendar Reports (M and C/S)
• Auto-refresh Report (M)

3
Custom ID Examples

• Custom list of doctors (M)
• Employee ID with no SSN shown (M)
• RAD reports ordered by you (M)
• Rounds report with pop up multi-select box
• (C/S)

4
Custom List of Doctors

• Write Macro attached to report
• Macro builds list of doctors
• Macro calls Meditech Z.id.dict.color
• Attach Macro via Edit Attributes

5
List of Doctors Based on MIS
6
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mne
monic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
7
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
8
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
9
Dictionary Structure

• /NODEsubscript YNAME
• /NODEsubscript Q(Y,NAME)
• \GGGSMITJ YSMITH,JOHN

10
Build a dictionary

• Q(Y,SMITH,JOHN)/DOCSSMITHJ
• Alternative syntax
• Y,SMITH,JOHN/DOCSSMITHJ

11
Call Z.id.dict.color

• A Name of the structure /DOCS
• B A (the value the user entered)
• C The column headers
• D Code to show the data
• E Lookup Options (AR, BR)
• F Title for Lookup Window

12
Argument A The dictionary Node
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
13
Argument B What user typed
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
14
Argument C Makes Column Header
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
15
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
Argument D Display Lines
16
Data display argument

• "CD12L_(A,CD132TL)_(A,CD2)
• A Node you passed in as A (/DOCS)
• CD subscript (here doctor mnemonic)
• Mnemonic in 12 spaces
• Name in 32 spaces
• Group

17
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
Argument E BR in this case Both
(active/inactive) Reject New
18
IF'/LOADED _at_BUILD.DICTIONARY, Z.id.dict.color(
/DOCS,A,"Mnemonic"12TL_("Name"32TL)_("Group"10T
L), "CD12L_(A,CD132TL)_(A,CD2)",B,"Your
Doctors ") BUILD.DICTIONARY _at_.userMIS.USER.mnem
onic, DO_at_Next(MIS.USER.doctor)
1, Q("Y",_at_MIS.DOC.DICT.nameMIS.USER.doctor)/DOC
SMIS.USER.doctor, DO_at_Next(MIS.USER.doctor.grou
p) MIS.USER.doctor.groupMIS.DOC.DICT.dr.group, DO
_at_Next(MIS.DOC.DICT.mnemonic,_at_MIS.DOC.DICT.doctor.
group.x) 1, Q("Y",_at_MIS.DOC.DICT.name,MIS.DOC.DICT.
dr.group)/DOCSMIS.DOC.DICT.mnemonic, 1/LOADE
D
Argument F Tile for Lookup Window
19
Attach Macro with ID
20
Add IE Attribute
21
(No Transcript)
22
(No Transcript)
23
(No Transcript)
24
Employee Lookup no SSN
25
Employee ID Standard
26
(No Transcript)
27
Employee ID - custom
28
Create and attach ID program(s)
29
Main ID Program
30
(No Transcript)
31
(No Transcript)
32
(No Transcript)
33
RAD Multiple Select List
34
(No Transcript)
35
(No Transcript)
36
(No Transcript)
37
(No Transcript)
38
(No Transcript)
39
(No Transcript)
40
(No Transcript)
41
(No Transcript)
42
(No Transcript)
43
(No Transcript)
44
Z.vlist Args.
45
C/S Lookup Imbed Program In Title

• Patient Note for Doctor with a multiple select
  list
• Uses Z.id.vlist with buttons, then report screen
  comes up.
• Use _at_.user to identify doctor

46
(No Transcript)
47
(No Transcript)
48
Program Call in Title
49
(No Transcript)
50
(No Transcript)
51
(No Transcript)
52
(No Transcript)
53
(No Transcript)
54
Set up array of field numbers
55
Get field from /FFF
56
Close Database at AL CLOSE.UP
57
(No Transcript)
58
(No Transcript)
59
Select Screen Comes After Pop List
60
Calling Meditech Std Screen from Report

• Imbed program call in Title
• Set /Z.SCHED.LOG
• Call Meditech Screen Program
• Clear /Z.SCHED.LOG
• Transfer temp data if necessary

61
PP.PER.list.employees.by.dept
62
(No Transcript)
63
(No Transcript)
64
(No Transcript)
65
(No Transcript)
66
(No Transcript)
67
Printing Accented Text

• Create mapping pairs like A\ E
• Program builds table of pairs to codes
• Program substitutes code for char pairs
• Extra credit French dates

68
Symbol Set from HP PCL-5 Manual
69
(No Transcript)
70
(No Transcript)
71
(No Transcript)
72
(No Transcript)
73
Calendar Report

• Present 12 Months in Calendar Format, selected
  date range
• Show employee sick time on format

74
(No Transcript)
75
(No Transcript)
76
?356 Computed Fields?

• ECB/ECE Wrap loops around the report to print
• Outer loop Months
• Inner loop each week
• Use computed fields to get each row
• /LMONCNT Left Month Count 1-6
• /RMONCNT Right Month

77
Calendar continued

• -------------Left Hand Columns
• /LMONCNT,ROW,1-7 day of month
• /LMONH,CNT,ROW,1-7 holiday info
• -------------Right Hand Columns
• /RMONCNT,ROW,1-7 day of month
• /RMONH,CNT,ROW,1-7 holiday info

78
Calendar Continued

• Data for two columns
• /RMOND,CNT,ROW,1-7
• /LMOND,CNT,ROW,1-7

79
Calendar, continued

• At the end of each pair of months, call program
  to draw two boxes, grid the calendars. Also
  shade the sick days.
• Z.graphics is your pal!

80
(No Transcript)
81
(No Transcript)
82
(No Transcript)
83
(No Transcript)
84
(No Transcript)
85
(No Transcript)
86
(No Transcript)
87
(No Transcript)
88
(No Transcript)
89
Auto-Refresh to Scope

• Macro call in title opens S
• Wrap report in DO loop with timed reads, one loop
  at start of report, inner loop per page.
• Keystroke or timeout goes to next page or to
  start of report.

90
Auto Refresh List of Ordered Rad Exams
91
Open printer S in title
92
Start a loop AL START
93
End the loop in TR ECB
94
Extra Credit Timed Loop at Page Footer
95
Thanks to

• St. Michaels Stevens Point, WI
• Merle West Medical Center, OR
• Calvert Memorial Hospital, PA
• Region 4 Hospital, Edmundston, NB
• Anderson Hospital, IL

96
THANKS!

• Please fill out an evaluation form.
• This Powerpoint presentation, the handout report
  listings, and report files will be posted to the
  Iatrics Website