Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 6 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$FMTE^XLFDT  $$TITLE^XLFSTR  EN^XUTMDEVQ  
DSS Extracts 4 $$RADDIV^ECXDEPT  ^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  $$PATDEM^ECXUTL2  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  ^DIC  ^DIR  
Event Capture 1 $$GETPPRV^ECPRVMUT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DSS Extracts 1 ECX ECS VOL  

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

External References

Name Field # of Occurrence
^%DT SELECT+25, SELECT+29
DD^%DT EN+5, SELECT+28, SELECT+38
NOW^%DTC EN+5
HOME^%ZIS EN+21
^%ZISC EN+20
$$S^%ZTLOAD PRINT+4
^DIC SELECT+18
^DIR BEGIN+19, SELECT+6, SELECT+10, SELECT+15, SS+3
$$GETPPRV^ECPRVMUT GETREC+12
$$RADDIV^ECXDEPT GETREC+6
^ECXKILL PROCESS+5
$$EXPORT^ECXUTL1 EN+8
EXPDISP^ECXUTL1 EN+12
$$PATDEM^ECXUTL2 GETREC+10
$$FMTE^XLFDT GETREC+11
$$TITLE^XLFSTR GETREC+14
EN^XUTMDEVQ EN+18

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
Routine Call
  • DIC
  • Line Location:
    • SELECT+18
Routine Call
  • DIR
  • Line Location:
    • BEGIN+19
    • SELECT+6
    • SELECT+10
    • SELECT+15
    • SS+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECD - [#724] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] GETREC+9, GETREC+17
^ECD - [#724] GETREC+18
^ECH - [#721] GETREC+3
^ECH("AC1" START+5, START+6, START+7
^ECH("ADT" START+12, START+14, START+15, START+16
^ICPT - [#81] GETREC+9, GETREC+17
^TMP("ECUV" EN+13!, PROCESS+5!, START+4!, START+11!, GETREC+20*, PRINT+7, PRINT+9, PRINT+10, PRINT+11
^TMP($J EN+9!, EN+10*, EN+13!, PRINT+13*

Label References

Name Line Occurrences
BEGIN EN+6
GETREC START+7, START+16
HEADER PRINT+6, PRINT+15
PRINT EN+11, PROCESS+4
SELECT EN+7
SS PRINT+19, HEADER+1
START EN+11, PROCESS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+2~, EN+5
%DT EN+5!, SELECT+25!*, SELECT+29!*
%DT("A" SELECT+25*, SELECT+29*
%DT(0 SELECT+25*, SELECT+29*
CC PRINT+1~, PRINT+10*, PRINT+11
CNT EN+2~, EN+10*, PRINT+13*
COUNT START+2~, START+3*, START+9~, START+10*, GETREC+19*, GETREC+20, PRINT+1~, PRINT+5*, PRINT+8, PRINT+11*
PRINT+18
DATE EN+1~, EN+5*, SELECT+25, SELECT+29
DIC EN+2~, SELECT+18*!
DIC(0 SELECT+18*
DIR EN+2~, BEGIN+19!, SELECT+6!, SELECT+10!, SELECT+15!, SS+3!
DIR("A" SELECT+5*, SELECT+9*, SELECT+14*
DIR("B" SELECT+5*, SELECT+14*
DIR(0 BEGIN+19*, SELECT+5*, SELECT+9*, SELECT+14*, SS+3*
DIRUT EN+2~
DONE SELECT+1~, SELECT+24*, SELECT+39*
DTOUT EN+2~
DUOUT EN+2~
ECCH GETREC+1~, GETREC+3*, GETREC+5, GETREC+7
ECD START+2~, START+5*, START+6*, START+7, START+9~, START+14*, START+15*, START+16
ECDA START+2~, START+6*, START+7*, START+9~, START+15*, START+16*, GETREC+3, GETREC+12
ECDT GETREC+1~, GETREC+7*, GETREC+10, GETREC+11
ECDU GETREC+1~, GETREC+7*, GETREC+18
ECED EN+2~, SELECT+24*, SELECT+37*, START+3*, START+6, START+10*, START+15
ECEND EN+2~, SELECT+38*, HEADER+6
ECHEAD GETREC+2~, GETREC+9*
ECL GETREC+1~, GETREC+5*, GETREC+6
ECLL START+2~, START+3*, START+5*, START+6, START+7, START+9~, START+10*, START+12*, START+14, START+15
START+16
ECP GETREC+1~, GETREC+7*, GETREC+8, GETREC+9, GETREC+16, GETREC+17*, GETREC+20, PRINT+2~, PRINT+12*, PRINT+13
PRINT+14
ECPAT START+9~, START+10*, START+13*, START+14*, START+15, START+16
ECPNM GETREC+2~, GETREC+9*
ECRUN EN+1~, EN+5*, HEADER+5
ECSD EN+2~, SELECT+24*, SELECT+27*, SELECT+31, SELECT+34, START+5, START+14
ECSD1 EN+2~, SELECT+27*
ECSTART EN+2~, SELECT+28*, HEADER+5
ECTHLD EN+1~, EN+3*, SELECT+3*, SELECT+4, SELECT+10*, GETREC+4, HEADER+6
ECV GETREC+1~, GETREC+3*, GETREC+4, GETREC+20, PRINT+2~, PRINT+12*, PRINT+13, PRINT+14
ECVV PRINT+2~, PRINT+9*, PRINT+10, PRINT+11
ECXDATE GETREC+1~, GETREC+11*, GETREC+20, PRINT+2~, PRINT+12*, PRINT+13, PRINT+14
ECXDESC EN+1~, EN+14*, EN+18, HEADER+4
ECXDFN GETREC+1~, GETREC+5*, GETREC+10
ECXDOB GETREC+2~
ECXDSS EN+2~, SELECT+16*, SELECT+20*, START+1, START+15, START+16
ECXERR EN+2~, PROCESS+3*
ECXETH GETREC+2~
ECXMAR GETREC+2~
ECXMPI GETREC+2~
ECXPDIV GETREC+1~, GETREC+6*, GETREC+20, PRINT+2~, PRINT+12*, PRINT+13, PRINT+14
ECXPNM GETREC+2~
ECXPORT EN+2~, EN+8*, PRINT+6, PRINT+8, PRINT+13, PRINT+16
ECXPRIME GETREC+2~
ECXPROV GETREC+1~, GETREC+12*, GETREC+13, GETREC+14, GETREC+15*, GETREC+20, PRINT+2~, PRINT+12*, PRINT+13, PRINT+14
ECXPRV GETREC+1~, GETREC+12!
ECXRACE GETREC+2~
ECXRC1 GETREC+2~
ECXREL GETREC+2~
ECXSAVE EN+1~, EN+18
ECXSAVE("EC*" EN+15*
ECXSEX GETREC+2~
ECXSSN GETREC+1~, GETREC+20, PRINT+2~, PRINT+12*, PRINT+13, PRINT+14
ECXTL EN+1~
ECXUNIT GETREC+1~, GETREC+18*, GETREC+20, PRINT+2~, PRINT+7*, PRINT+9, PRINT+10, PRINT+11, PRINT+13, PRINT+14
IO EN+20, PRINT+3
IO(0 EN+20
IOF BEGIN+1, BEGIN+20, HEADER+3
IOSL PRINT+15
IOST BEGIN+20, HEADER+3, SS+2, SS+3
JJ PRINT+1~, SS+1~, SS+2*
LN PRINT+1~, PRINT+5*, PRINT+8, HEADER+8
N1 GETREC+2~, GETREC+14*, GETREC+15
N2 GETREC+2~, GETREC+14*, GETREC+15
OUT SELECT+1~
PG PRINT+1~, PRINT+5*, HEADER+1, HEADER+3*, HEADER+4, SS+3
POP EN+2~, EN+19
QFLG EN+2~, EN+3*, EN+6, EN+7, BEGIN+19*, SELECT+6*, SELECT+10*, SELECT+12, SELECT+15*, SELECT+17
SELECT+18*, SELECT+19*, SELECT+20*, SELECT+24, SELECT+26*, SELECT+30*, PROCESS+1~, PROCESS+4*, PRINT+1~, PRINT+5*
PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+15, PRINT+17, HEADER+1, HEADER+2, SS+3*
REC PRINT+1~, PRINT+11*, PRINT+12
SS PRINT+1~, SS+1~, SS+2*
U GETREC+3, GETREC+5, GETREC+7, GETREC+9, GETREC+12, GETREC+17, GETREC+18, GETREC+20, PRINT+12, PRINT+13
VA GETREC+2~
X EN+1~, EN+5, SELECT+6, SELECT+10, SELECT+15, SELECT+18, START+2~, START+9~, GETREC+12*
Y EN+1~, EN+5*, BEGIN+19, SELECT+7, SELECT+10, SELECT+16, SELECT+19, SELECT+20, SELECT+26, SELECT+27
SELECT+28, SELECT+30, SELECT+31, SELECT+34, SELECT+37, SELECT+38, START+2~, START+9~, SS+3
ZTQUEUED EN+2~, PRINT+4
ZTREQ PROCESS+2*, PRINT+4!
ZTSK EN+2~, EN+22
ZTSTOP PRINT+1~, PRINT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All