ECRDSSU2 ;ALB/DAN - DSS Unit Workload Summary Report (CONT) ;10/31/12 12:09
Source file <ECRDSSU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXPORT | ;
|
|
| GETINFO | ;Use "ADT" x-ref of file 721 to get information for report
|
|
| CRETMP | ;- Create ^TMP("ECRPT" array w/format:
; ^TMP("ECRPT",$J,location,DSS Unit,category,count)=procedure^volume^ ; CPT modifiers |
|
| STORE | ;Put data into ^TMP($J,"ECRPT")
|
|
| SETMOD | ;Set CPT modifiers in ECTMP array
|
|
| LOCNAM | ;- Get location name
|
|
| DSSUNAM | ;- Get DSS Unit name
|
|
| ORDMODS | ;Find first three mods by volume
|
|
| MODNM(IEN) | ;Get modifier name
|
