ECRDSSU ;ALB/ESD - DSS Unit Workload Summary Report ;11/7/12 12:00
Source file <ECRDSSU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;- Get location(s), DSS Unit(s), start & end dates, device
|
|
ENQ | ||
STRPT | ;- Main entry point
|
|
STRPTQ | ||
GETREC | ;- Loop thru "ADT" x-ref of EC Patient file (#721)
|
|
CRETMP | ;- Create ^TMP("ECRPT" array w/format:
; ^TMP("ECRPT",$J,location,DSS Unit,category,count)=procedure^volume^ ; CPT modifiers |
|
LOOP | ;- Loop through data
|
|
LOOPQ | ||
SETMOD | ;ALB/JAM - Set CPT modifiers in ECTMP array
|
|
CATCHG | ;- Category change
|
|
CATCHGQ | ||
PRTCAT | ;- Print category
|
|
PRTCATQ | ||
PRTMOD | ;ALB/JAM - Print CPT modifiers
|
|
DSSCHG | ;- DSS Unit change
|
|
HDR | ;- Report header
|
|
LOCNAM | ;- Get location name
|
|
DSSUNAM | ;- Get DSS Unit name
|
|
PAUSE | ;- Pause for screen output
|
|
FOOTER | ;- Print page footer
|
|
ASKDEV() | ;- Ask device for printing or queuing report
; Input: None |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|