2.41k likes | 3.88k Views
“Let MEDITECH do the Work” Joe Cocuzzo VP, NPR Report Writer Group Central Region MUSE Workshop 2007. Let Meditech do the Work. Printing CDS prompts and responses 2. Printing Laboratory Results 3. Printing multiples with ECB-ECE loops Printing PHA info “just like a MAR”
E N D
“Let MEDITECH do the Work” Joe Cocuzzo VP, NPR Report Writer Group Central Region MUSE Workshop 2007
Let Meditech do the Work • Printing CDS prompts and responses 2. Printing Laboratory Results 3. Printing multiples with ECB-ECE loops • Printing PHA info “just like a MAR” • Checking Financial access 6. INIT Reports from Standard • Flexible Page Breaks • BAR Inquiry
Printing CDS prompts and responses a. ADM b. ADM - Insurance c. OE d. NUR
When you need to print all the query prompts and responses from a CDS onto an NPR report one method is to type all the prompt into the picture and use a computer field to print each response. A better method is to use %MIS.SCREEN.print
The arguments are: A = user-defined screen mnemonic B = name of structure where responses are kept C = nil strip any blank lines non-nil print blank lines D = left margin
OE Category Screen %MIS.SCREEN.print(@cat.screen,^@Root(@responses),1,0) OE Procedure Screen %MIS.SCREEN.print(@proc.order.screen,^@Root(@responses),1,0) “Regular” ADM CDS %MIS.SCREEN.print(@cd.screen,^@Root(customer.defined.queries),1,0)
MIS.SCREEN.print examples (cont’d) • ADM Insurance CDS • Meditech has a field you can use for insurance screens: • Place the field: @ins.print.queries on the picture (or) • Call the program %ADM.PAT.print.ins.screen(urn,insurance,””,0,1) from an LC or macro
MIS.SCREEN.print examples (cont’d) • NUR (Magic Only) %MIS.SCREEN.print(@intervention's.screen,^@Root(@td.results),1,0) • SCH (Magic or C/S) Put field @sch.cds.print on an LC or ECB (you cannot put it in field list)
Additional Problem: There is no good service date index in Magic.
Let Meditech do the Work 2. Laboratory results a. Print Result programs b. Lab widget
LAB results printing programs %LAB.L.SPEC.result.lines(“”) Set up arguments in /ARG as follows A = specimen urn B = LIS Report Format C = Confidential Ck (A,N,U) D = Queued Range of tests to Print (default = ALL)
Similar programs in other modules: • %LAB.B.SPEC.result.lines • %LAB.M.SPEC.result.lines • %LAB.P.SPEC.results
Example – Find/Display Lab results not printed on a report prior to patient discharge to another care facility.
Built in start macro Computed field
Used in Selection Used in select macro
Arguments A,B Macro called as a program ends with a ;
Get last report date/time Convert date/time to seconds