EDPRPT12 ;SLC/MKB - Orders by Acuity Report ;4/25/13 3:15pm
Source file <EDPRPT12.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ORD(BEG,END,CSV) | ; Get Acuity Report for EDPSITE by date range
; CNT = counters by acuity |
|
| OR1 | ; return counts
|
|
| ROW(NAME,LIST) | ; add line
|
|
| INIT | ; Initialize acuity/service counters
|
|
| ECODE(IEN) | ; Return external value for an Acuity code
|
|
| ENAME(X) | ; Return external name for a Service code
|
|
| FIND(LOG,ACU) | ; find/count orders placed during visit LOG
; (for converted data) |
|
| ED(LOC) | ; -- Return 1 or 0, if LOCation is part of ED
; Expects EDLOC(n) = seq ^ #44 ien |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
