RE: [MEDITECH-L] Search text of report--found way to do it

Rita Huneycutt Tue, 28 Mar 2006 22:07:23 -0800

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================

This is the report. There are two macros you'll need to translate before translating the report to get it to work.

From: Alan_Baillargeon/[EMAIL PROTECTED] [mailto:Alan_Baillargeon/[EMAIL PROTECTED]
Sent: Tuesday, March 28, 2006 7:30 AM
To: Rita Huneycutt
Subject: Re: [MEDITECH-L] Search text of report--found way to do it

Rita -

I'd be interested in more info on this - even a direction on the PICIS Web site or a copy of the NPR you use to do it. TIA!!

Alan R. Baillargeon RN, BSN
Senior Clinical Analyst
Information Systems
(410) 620-3464
Pager (410) 378-0171

"Rita Huneycutt" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]

03/27/2006 11:10 AM

To	"Meditech-L" <[email protected]>
cc
Subject	[MEDITECH-L] Search text of report--found way to do it

All messages should be posted in plain text. HTML will be converted to attachments. The meditech-l web site is MTUsers.com ====================================== I found a way to do this using a report I got from Brian Schmidt of Picis at MUSE. Rita Huneycutt Support Analyst Finance and Administration Stanly Memorial Hospital 704-984-4113 email: [EMAIL PROTECTED] _______________________________________________ meditech-l mailing list [email protected] http://mtusers.com/mailman/listinfo/meditech-l

MEDITECH.CUST.RPTS^Stanly Memorial Hospital^STA^LIVE.MIS^14239^20060328^A^
@@VERSION:1
NPR.PROC.zcus.picis.bms.search
@@PROC
NPR.PROC.zcus.picis.bms.search
[EMAIL PROTECTED]
D1
This report was created by Brian Schmit of Picis
D2
 
D3
Contact Information: Brian Schmit
D4
                     Sr. Programmer, Picis
D5
                     Direct: 781 557 3315
D6
                     Fax: 781 557 3140
D7
                     100 Quannapowitt Parkway
D8
                     Suite 405
D9
                     Wakefield, MA 01880
D10
                     [EMAIL PROTECTED]
D11
                     www.picis.com
D12
 
D13
Picis provides trainings for NPR Report Writer, Customer-Defined Screens, and
D14
Rules. Picis also provides NPR Reports, CDS attributes, and custom application
D15
programming both on-site and remotely.
D16
 
D17
Please visit http://www.picis.com/html/Meditech/meditech_1.html for more
D18
information on what Picis can do for your Meditech facility.
SM.checkNPR.REPsearch.output
NSY
@@MACRO
NPR.PROC.zcus.picis.bms.search.M.check
0
c.xx.b.procedure.urn^procedure.urn,
1
@Prev(procedure.urn),
2
[EMAIL PROTECTED](procedure.urn)'>c.xx.e.procedure.urn @SEARCH.REPORT}
3

4
SEARCH.REPORT
5
procedure.urn^NPR.REP.urn^NPR.SCRN.scrn.urn,
6
IF{c.xx.field.names="N"&(c.xx.field.attrs="N");
7
@SEARCH.FIELDS},
8
IF{c.xx.footnotes="Y" @SEARCH.FOOTNOTES},
9
IF{c.xx.line.attrs="Y" @SEARCH.LINE.CHECKS},
10
IF{c.xx.scrn.field.names="N"&(c.xx.scrn.field.attrs="N");
11
@SEARCH.SCREEN.FIELDS},
12
IF{c.xx.scrn.picture="Y" @SEARCH.SCREEN.PICTURE},
13
IF{c.xx.report.indexes="Y" @SEARCH.INDEXES},
14
IF{c.xx.report.picture="Y" @SEARCH.PICTURE},
15
IF{c.xx.macros="Y" /.PRE|1^PERCENT,
16
@SEARCH.MACROS},
17
IF{c.xx.procs="Y" /.PRE|1^PERCENT,
18
@SEARCH.PROCS}
19

20
SEARCH.FIELDS
21
"Fields"^NPR.REP.search.location,
22
[EMAIL PROTECTED](NPR.REP.field),
23
NPR.REP.field IF{NPR.REP.field#0="S";
24
NPR.REP.field^NPR.REP.search.urn,
25
IF{c.xx.field.names="Y" [EMAIL PROTECTED];@[EMAIL PROTECTED],
26
STR^NPR.REP.search.string,
27
@SEARCH},
28
IF{c.xx.field.attrs="Y" @SEARCH.FIELD.ATTRS}}}
29

30
SEARCH.FIELD.ATTRS
31
[EMAIL PROTECTED](NPR.REP.attribute) @NPR.REP.attribute.value^STR,
32
NPR.REP.attribute_"="_STR^NPR.REP.search.string^STR,
33
@SEARCH}
34

35
SEARCH.FOOTNOTES
36
""^NPR.REP.search.string,
37
"Footnotes"^NPR.REP.search.location,
38
1^NPR.REP.search.urn,
39
[EMAIL PROTECTED](NPR.REP.footnote.index) 
@NPR.REP.footnote.value^STR^NPR.REP.search.string,
40
@SEARCH}
41

42
SEARCH.LINE.CHECKS
43
""^NPR.REP.line,
44
"Line Attributes"^NPR.REP.search.location,
45
[EMAIL PROTECTED](NPR.REP.line),
46
NPR.REP.line NPR.REP.line^NPR.REP.search.urn,
47
[EMAIL PROTECTED](NPR.REP.line.attribute),
48
NPR.REP.line.attribute @NPR.REP.lines.attributes^STR,
49
NPR.REP.line.attribute_"="_STR^NPR.REP.search.string^STR,
50
@SEARCH}}
51

52
SEARCH.PICTURE
53
""^NPR.REP.picture.index,
54
"Report Picture"^NPR.REP.search.location,
55
[EMAIL PROTECTED](NPR.REP.picture.index) 
NPR.REP.picture.index^NPR.REP.search.urn,
56
@NPR.REP.picture.line^STR^NPR.REP.search.string^STR,
57
@SEARCH}
58

59
SEARCH.INDEXES
60
""^NPR.REP.index,
61
"Report Index"^NPR.REP.search.location,
62
[EMAIL PROTECTED](NPR.REP.index),
63
NPR.REP.index NPR.REP.index^NPR.REP.search.urn,
64
[EMAIL PROTECTED] @[EMAIL PROTECTED],
65
@SEARCH}
66

67
SEARCH.SCREEN.PICTURE
68
""^NPR.SCRN.scrn.page,
69
"Screen Picture"^NPR.REP.search.location,
70
[EMAIL PROTECTED](NPR.SCRN.scrn.page),
71
NPR.SCRN.scrn.page ""^NPR.SCRN.page.line.q,
72
[EMAIL PROTECTED](NPR.SCRN.page.line.q),
73
NPR.SCRN.page.line.q NPR.SCRN.page.line.q^NPR.REP.search.urn,
74
@NPR.SCRN.page.line^STR^NPR.REP.search.string^STR,
75
@SEARCH}}
76

77
SEARCH.SCREEN.FIELDS
78
""^NPR.SCRN.scrn.page,
79
"Screen Fields"^NPR.REP.search.location,
80
[EMAIL PROTECTED](NPR.SCRN.scrn.page),
81
NPR.SCRN.scrn.page ""^NPR.SCRN.scrn.field,
82
[EMAIL PROTECTED](NPR.SCRN.scrn.field),
83
NPR.SCRN.scrn.field NPR.SCRN.scrn.field^NPR.REP.search.urn,
84
IF{c.xx.scrn.field.names="Y" [EMAIL PROTECTED];@[EMAIL PROTECTED],
85
STR^NPR.REP.search.string,
86
@SEARCH},
87
IF{c.xx.scrn.field.attrs="Y" @SEARCH.SCREEN.FIELD.ATTRS}}}
88

89
SEARCH.SCREEN.FIELD.ATTRS
90
""^NPR.SCRN.scrn.attribute,
91
[EMAIL PROTECTED](NPR.SCRN.scrn.attribute),
92
NPR.SCRN.scrn.attribute @NPR.SCRN.scrn.attribute.value^STR,
93
NPR.SCRN.scrn.attribute_"="_STR^NPR.REP.search.string^STR,
94
@SEARCH}
95

96
SEARCH.MACROS
97
ZZ%O(*S,PERCENT,*,*.PROC),
98
C(\)^SV.BKSLSH,
99
"Macros"^NPR.REP.search.location,
100
1^NPR.REP.search.urn,
101
procedure.urn_".M."[EMAIL PROTECTED],
102
DO{+*[MAC]<EMC^MAC ZZ%O(\,*[MAC]),
103
MAC^NPR.REP.search.string,
104
DO{+\ \^STR,
105
IF{STR#0=";";@SEARCH}},
106
""^!,
107
C(\)},
108
C(*U),
109
ZZ%O(\,SV.BKSLSH)
110

111
SEARCH
112
DO{+c.xx.search.for[TEMP]^TEMP,
113
TEMP IF{L(STR,TEMP)<L(STR) 
1^NPR.REP.search.output[procedure.urn,TEMP,NPR.REP.search.location,NPR.REP.search.urn,NPR.REP.search.string$80]}}
114

115
SEARCH.PROCS
116
ZZ%O(*S,PERCENT,*,*.PROC),
117
C(\)^SV.BKSLSH,
118
"Procedures"^NPR.REP.search.location,
119
1^NPR.REP.search.urn,
120
procedure.urn^MAC,
121
IF{*[MAC]_.=.;
122
ZZ%O(\,*[MAC]),
123
MAC^NPR.REP.search.string,
124
DO{+\ \^STR,
125
IF{STR#0=";";@SEARCH}},
126
""^!,
127
C(\)},
128
C(*U),
129
ZZ%O(\,SV.BKSLSH)
@@MACRO
NPR.PROC.zcus.picis.bms.search.M.detail.macro
0
procedure.urn^NPR.REP.urn,
1
0^COUNT,
2
""^NPR.REP.search.for,
3
[EMAIL PROTECTED](NPR.REP.search.for,NPR.REP.search.output)^TEMP,
4
TEMP ""^NPR.REP.search.location,
5
[EMAIL PROTECTED](NPR.REP.search.location,NPR.REP.search.output)^TEMP,
6
TEMP ""^NPR.REP.search.urn,
7
[EMAIL PROTECTED](NPR.REP.search.urn,NPR.REP.search.output)^TEMP,
8
TEMP ""^NPR.REP.search.string,
9
[EMAIL PROTECTED](NPR.REP.search.string,NPR.REP.search.output)^TEMP,
10
TEMP @Add(1,COUNT),
11
NPR.REP.urn^/MV["D",COUNT,1],
12
NPR.REP.search.for^/MV["D",COUNT,2],
13
NPR.REP.search.location^/MV["D",COUNT,3],
14
NPR.REP.search.string^/MV["D",COUNT,4]}}}}
@@RPT
Yzcus.picis.bms.searchNPR.PROCmainSEARCH A REPORTREG1220066066
proceduresNNNYY011Y
AT      749820111
MSM.BMSE
AT      749925969
MSM.BMSE
AT      750181092
MSM.BMSE
AT      750960980
MSM.BMSE
AT      798637364
MSM.BMSE
CI

DC1
This report was created by Brian Schmit of Picis
DC2
 
DC3
Contact Information: Brian Schmit
DC4
                     Sr. Programmer, Picis
DC5
                     Direct: 781 557 3315
DC6
                     Fax: 781 557 3140
DC7
                     100 Quannapowitt Parkway
DC8
                     Suite 405
DC9
                     Wakefield, MA 01880
DC10
                     [EMAIL PROTECTED]
DC11
                     www.picis.com
DC12
 
DC13
Picis provides trainings for NPR Report Writer, Customer-Defined Screens, and 
Rules.
DC14
Picis also provides NPR Reports, CDS attributes, and custom application 
programming
DC15
both on-site and remotely.
DC16
 
DC17
Please visit http://www.picis.com/html/Meditech/meditech_1.html for more 
information on
DC18
what Picis can do for your Meditech facility.
F1
xx.procedure.urnxx.procedure.urn2L
F1CDAT
FREE
F1CJFY
L
F1CLEN
65
F1CVAL
""
F2

xx.search.for
xx.search.for2L
F2CDAT
FREE
F2CJFY
L
F2CLEN
25
F2CVAL
+c.xx.search.for[""]
F2SE4
LIc.xx.search.for
SEARCH FOR
F3
xx.search.locationxx.search.lo2L
F3CDAT
FREE
F3CJFY
L
F3CLEN
17
F3CVAL
""
F4
xx.search.stringxx.search.string2L
F4CDAT
FREE
F4CJFY
L
F4CLEN
80
F4CVAL
""
F5
xx.field.namesx2L
F5CDAT
YN
F5CJFY
L
F5CLEN
1
F5CVAL
""
F5SE5
IGc.xx.field.namesSEARCH FIELD NAMES?
F6
xx.field.attrsx2L
F6CDAT
YN
F6CJFY
L
F6CLEN
1
F6CVAL
""
F6SE6
IGc.xx.field.attrsSEARCH FIELD ATTRIBUTES?
F7
xx.footnotesx2L
F7CDAT
YN
F7CJFY
L
F7CLEN
1
F7CVAL
""
F7SE7
IGc.xx.footnotesSEARCH FOOTNOTES?
F8

xx.line.attrsx2L
F8CDAT
YN
F8CJFY
L
F8CLEN
1
F8CVAL
""
F8SE8
IGc.xx.line.attrsSEARCH LINE ATTRIBUTES?
F9
        xx.macrosx2L
F9CDAT
YN
F9CJFY
L
F9CLEN
1
F9CVAL
""
F9SE9
IGc.xx.macrosSEARCH MACROS?
F10
xx.procsx2L
F10CDAT
YN
F10CJFY
L
F10CLEN
1
F10CVAL
""
F10SE10
IG
c.xx.procsSEARCH PROCEDURES?
F11
xx.scrn.field.namesx2L
F11CDAT
YN
F11CJFY
L
F11CLEN
1
F11CVAL
""
F11SE13
IGc.xx.scrn.field.namesSEARCH SCREEN FIELD NAMES?
F12
xx.scrn.field.attrsx2L
F12CDAT
YN
F12CJFY
L
F12CLEN
1
F12CVAL
""
F12SE14
IGc.xx.scrn.field.attrsSEARCH SCREEN FIELD ATTRIBUTES
F13
xx.scrn.picturex2L
F13CDAT
YN
F13CJFY
L
F13CLEN
1
F13CVAL
""
F13SE15
IGc.xx.scrn.pictureSEARCH SCREEN PICTURE?
F14
xx.report.indexesx2L
F14CDAT
YN
F14CJFY
L
F14CLEN
1
F14CVAL
""
F14SE11
IGc.xx.report.indexesSEARCH REPORT INDEXES?
F15
xx.report.picturex2L
F15CDAT
YN
F15CJFY
L
F15CLEN
1
F15CVAL
""
F15SE12
IGc.xx.report.pictureSEARCH REPORT PICTURE?
F16
xx.b.procedure.urnxx.b.procedure.urn2L
F16CDAT
FREE
F16CID.AS
procedure.urn
F16CJFY
L
F16CLEN
65
F16CVAL
procedure.urn
F16SE1
IGc.xx.b.procedure.urnFROM PROGRAM
F17
xx.e.procedure.urnxx.e.procedure.urn2L
F17CDAT
FREE
F17CID.AS
procedure.urn
F17CJFY
L
F17CLEN
65
F17CVAL
procedure.urn
F17SE2
IGc.xx.e.procedure.urnTHRU PROGRAM
FS1

procedure.urn
FS1SE3
LI/FND/FND
FI40
651
FI472
252
FI4100
173
FI4120
804
FI50
651
FI572
252
FI5100
173
FI5120
804
L1
HP
L1CBX
WHITE
L1CLCR
@.on.device'="DOWNLOAD"
L1CPF
b
L1CVL
D5,70,98,118
L2
HP
L3
HP
L3CBX
WHITE
L3CLCR
END
L4
D
L4CGBR
GRAY
L4CMV
D
L5
D
L5CGBR
END
N1
AL START check
N2
AL D detail.macro
P1
 
P2
REPORT                                                                  SEARCH 
FOR                  LOCATION            STRING
P3
 
P4
xx.procedure.urn_________________________________________________       
xx.search.for____________   xx.search.lo_____   
xx.search.string________________________________________________________________
P5
xx.procedure.urn_________________________________________________       
xx.search.for____________   xx.search.lo_____   
xx.search.string________________________________________________________________
T1

procedure.urnNONENASC
U       806424053
MSM.BMSTEST.5.4.MIS
U       822739880
14239LIVE.MIS
U       822741426
14239LIVE.MIS
@@SCRN
Yzcus.picis.bms.searchNPR.PROCNPR.PROC.zcus.picis.bms.search2NN
CS
515012554
P1
SEARCH A REPORT%Z.on.device
P1F1
a.procedure.urn1118689891
P1F1CDAT
FREE
P1F1CID.ARG
BR
P1F1CID.AS.NAME
c.xx.b.procedure.urn
P1F1CIFE
1
P1F1CLEN
65
P1F1CREQ
1
P1F2
b.procedure.urn1218689944
P1F2CDAT
FREE
P1F2CID.ARG
BR
P1F2CID.AS.NAME
c.xx.e.procedure.urn
P1F2CIFE
1
P1F2CLEN
65
P1F2CREQ
1
P1F4
c.xx.search.for241812651265
P1F4CDAT
FREE
P1F4CID.ARG
BR
P1F4CIFE
1
P1F4CLEN
25
P1F4CREQ
N
P1F4CREQI
N
P1F5
c.xx.field.names3104011721172
P1F5CDAT
YN
P1F5CID.ARG
BR
P1F5CIFE
1
P1F5CLEN
1
P1F5CREQ
1
P1F6
c.xx.field.attrs3114011721172
P1F6CDAT
YN
P1F6CID.ARG
BR
P1F6CIFE
1
P1F6CLEN
1
P1F6CREQ
1
P1F7
c.xx.footnotes3124011721172
P1F7CDAT
YN
P1F7CID.ARG
BR
P1F7CIFE
1
P1F7CLEN
1
P1F7CREQ
1
P1F8
c.xx.line.attrs3134011721172
P1F8CDAT
YN
P1F8CID.ARG
BR
P1F8CIFE
1
P1F8CLEN
1
P1F8CREQ
1
P1F9
c.xx.macros3144011721172
P1F9CDAT
YN
P1F9CID.ARG
BR
P1F9CIFE
1
P1F9CLEN
1
P1F9CREQ
1
P1F10

c.xx.procs3154011721172
P1F10CDAT
YN
P1F10CID.ARG
BR
P1F10CIFE
1
P1F10CLEN
1
P1F10CREQ
1
P1F11
c.xx.report.indexes3164011721172
P1F11CDAT
YN
P1F11CID.ARG
BR
P1F11CIFE
1
P1F11CLEN
1
P1F11CREQ
1
P1F12
c.xx.report.picture3174011721172
P1F12CDAT
YN
P1F12CID.ARG
BR
P1F12CIFE
1
P1F12CLEN
1
P1F12CREQ
1
P1F13
c.xx.scrn.field.names3184011721172
P1F13CDAT
YN
P1F13CID.ARG
BR
P1F13CIFE
1
P1F13CLEN
1
P1F13CREQ
1
P1F14
c.xx.scrn.field.attrs3194011721172
P1F14CDAT
YN
P1F14CID.ARG
BR
P1F14CIFE
1
P1F14CLEN
1
P1F14CREQ
1
P1F15
c.xx.scrn.picture3204011721172
P1F15CDAT
YN
P1F15CID.ARG
BR
P1F15CIFE
1
P1F15CLEN
1
P1F15CREQ
1
P1MF4
51
P1P1
FROM PROGRAM      @1
P1P2
THRU PROGRAM      @2
P1P3
 
P1P4
SEARCH FOR        @4
P1P5
                  @4
P1P6
                  @4
P1P7
                  @4
P1P8
                  @4
P1P9
 
P1P10
            SEARCH FIELD NAMES?         @5
P1P11
       SEARCH FIELD ATTRIBUTES?         @6
P1P12
              SEARCH FOOTNOTES?         @7
P1P13
        SEARCH LINE ATTRIBUTES?         @8
P1P14
                 SEARCH MACROS?         @9
P1P15
             SEARCH PROCEDURES?         @10
P1P16
         SEARCH REPORT INDEXES?         @11
P1P17
         SEARCH REPORT PICTURE?         @12
P1P18
     SEARCH SCREEN FIELD NAMES?         @13
P1P19
SEARCH SCREEN FIELD ATTRIBUTES?         @14
P1P20
         SEARCH SCREEN PICTURE?         @15
P1S1
N,1,2
P1S2
N145/T2,4
P1S3
N,5,6,7,8,9,10,11,12,13,14,15

_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l

RE: [MEDITECH-L] Search text of report--found way to do it

Reply via email to