Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECXUEC

Package: DSS Extracts

Routine: ECXUEC


Information

ECXUEC ;ALB/TJL,JAP - Event Capture Pre-Extract Unusual Volume Report ;6/1/17 15:33

Source Information

Source file <ECXUEC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
BEGIN ; display report description
SELECT ; user inputs for threshold volume and date range
PROCESS ; entry point for queued report
START ;find EC records in date range
GETREC ;get data for report
PRINT ; process temp file and print report
HEADER ;header and page control
SS ;SCROLL STOPS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report is formatted for 132-column line width."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,"Enter 'Q' to queue report to TaskManager, then select printer."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"Queued as Task #"_ZTSK_"."
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"Event Capture Pre-Extract Unusual Volume Report"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!," This report prints a listing of unusual volumes that would be"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !," generated by the Event Capture extract (ECS) as determined by"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !," a user-defined threshold value. It should be run prior to"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !," the generation of an actual extract to identify and fix, as"
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !," necessary, any volumes determined to be erroneous."
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !!," Unusual volumes are those in excess of the threshold value"
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !," defined by the user. The threshold value is 20 by default."
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !!," Note: You may set a different threshold if you opt to continue."
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !!," Run times will vary depending upon the size of the EVENT CAPTURE"
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: !," PATIENT file (#721) and the date range selected, but may be at"
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: !," least several minutes. Queuing to a printer is recommended."
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: !!," The running of this report has no effect on the actual extracts"
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: !," and can be run as needed."
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: !!," You may select one or all DSS Units. If you select one unit,"
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: !," the report is sorted by descending volume. If you select all DSS Units, "
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: !," the report is sorted by DSS Unit, then by descending volume."
  • Line Location: BEGIN+18
Function Call: WRITE
  • Prompt: !!,"The default threshold volume for unusual volumes in Event Capture is "_ECTHLD_"."
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+13
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the"
  • Line Location: SELECT+22
Function Call: WRITE
  • Prompt: !,"Event Capture records.",!
  • Line Location: SELECT+23
Function Call: WRITE
  • Prompt: !,?1,LN
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,?8,"No unusual Event Capture volumes to report for the date range.",!!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,ECXDESC,?103,"Page: "_PG
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART,?92,"Report Run Date: "_ECRUN
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !," End Date: ",ECEND,?92,"Threshold Value: ",ECTHLD
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,?1,"SSN",?13,"FACILITY",?24,"DSS UNIT",?55,"DATE/TIME",?75,"PROCEDURE",?86,"VOLUME",?94,"PROVIDER"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECD - [#724] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call