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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECXUSUR

Package: DSS Extracts

Routine: ECXUSUR


Information

ECXUSUR ;ALB/TJL-Surgery Pre-Extract Unusual Volume Report ;6/1/17 15:30

Source Information

Source file <ECXUSUR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$RJ^XLFSTR  EN^XUTMDEVQ  
DSS Extracts 3 AUDIT^ECXKILL  EN^ECXUSUR1  ($$EXPORT,EXPDISP)^ECXUTL1  
VA FileMan 3 (,DD)^%DT  NOW^%DTC  ^DIR  

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: 2

Package Total Caller Graph
DSS Extracts 2 ECX SUR VOL  ECX SUR VOL REPORT  

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
PRINT ; process temp file and print report
CLOSE ;
HEADER ;header and page control

External References

Name Field # of Occurrence
^%DT SELECT+16, SELECT+20
DD^%DT EN+6, SELECT+19, SELECT+29
NOW^%DTC EN+6
HOME^%ZIS EN+23
^%ZISC EN+22
$$S^%ZTLOAD PRINT+4
^DIR BEGIN+16, SELECT+7, SELECT+10, CLOSE+3, HEADER+4
AUDIT^ECXKILL EN+16, EN+24
EN^ECXUSUR1 PROCESS+2
$$EXPORT^ECXUTL1 EN+9
EXPDISP^ECXUTL1 EN+15
$$RJ^XLFSTR PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26
EN^XUTMDEVQ EN+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132-column format."
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"This report prints a listing of unusual volumes that would be"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"generated by the Surgery extract (SUR) as determined by a"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"user-defined threshold value. It should be run prior to the"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"generation of the actual extract(s) to identify and fix, as"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"necessary, any volumes determined to be erroneous."
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"Unusual volumes are those where either the Operation Time,"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !,"Patient Time, Anesthesia Time, Recovery Room Time, OR Clean Time"
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !,"or Pt Holding Time field is greater than the threshold value."
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !!,"Note: The threshold can be set after a report is selected."
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !!,"Run times for this report will vary depending upon the size of"
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: !,"the extract and could take as long as 30 minutes or more to"
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: !,"complete. This report has no effect on the actual extracts and"
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: !,"can be run as needed."
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: !!,"The report is sorted by descending Volume and Case Number."
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the"
  • Line Location: SELECT+13
Function Call: WRITE
  • Prompt: !,"Surgery Extract records.",!
  • Line Location: SELECT+14
Function Call: WRITE
  • Prompt: !,?31," PRODUCTION DIVISION: ",$P(PDIV,"~"),!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?31," PRODUCTION DIVISION: ",$P(PDIV,"~"),!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: ?COL,$$RJ^XLFSTR($P(REC,U,7),4)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?COL,$$RJ^XLFSTR($P(REC,U,11),4)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?COL,$$RJ^XLFSTR($P(REC,U,9),4)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?COL,$$RJ^XLFSTR($P(REC,U,10),4)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: ?COL,$$RJ^XLFSTR($P(REC,U,8),4),?113,$P(REC,U,14)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !!,?8,$S(ECXFLAG=1:"No surgery volumes to report for this extract",1:"No unusual volumes to report for this extract")
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$S(ECXFLAG:"Surgery Pre-Extract Volume Report",1:"Surgery Pre-Extract Unusual Volume Report"),?124,"Page: "_PG
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?97," Threshold Value: ",ECTHLD
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,?25,"Case",?35,"Encounter",?49,"Pt Holding",?60,"Anesthesia",?71,"Patient",?81,"Operation",?91,"PACU",?101,"OR Clean",?111,"Canc/",?121,"Principal"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Name",?8,"SSN",?17,"Day",?24,"Number",?37,"Number"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?51,"Time",?63,"Time",?73,"Time",?84,"Time",?91,"Time",?104,"Time"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?111,"Abort",?121,"Procedure"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER+14
Routine Call
  • DIR
  • Line Location:
    • BEGIN+16
    • SELECT+7
    • SELECT+10
    • CLOSE+3
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("ECXPORT" EN+10!, EN+11*, EN+12*, EN+14, EN+16!, PRINT+14*, PRINT+15*
^TMP($J EN+3!, EN+10!, EN+14*, PRINT+9, PRINT+12, PRINT+13

Label References

Name Line Occurrences
BEGIN EN+7
HEADER PRINT+6, PRINT+18
PRINT PROCESS+3
PROCESS EN+13
SELECT EN+8

Naked Globals

Name Field # of Occurrence
^( PRINT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+6
%DT EN+6!, SELECT+16!*, SELECT+20!*
%DT("A" SELECT+16*, SELECT+20*
%DT(0 SELECT+16*, SELECT+20*
CNT EN+1~, EN+12*, PRINT+14, PRINT+15*
COL PRINT+1~, PRINT+21*, PRINT+22*, PRINT+23*, PRINT+24*, PRINT+26*
COUNT PRINT+1~, PRINT+5*, PRINT+17*, PRINT+30
DATE EN+1~, EN+6*, SELECT+16, SELECT+20
DIR BEGIN+16!, SELECT+7!, SELECT+10!, CLOSE+3!, HEADER+4!
DIR("A" SELECT+7*, SELECT+10*
DIR("B" SELECT+7*
DIR(0 BEGIN+16*, SELECT+7*, SELECT+10*, CLOSE+3*, HEADER+4*
DONE SELECT+1~, SELECT+15*, SELECT+30*
ECED EN+2~, SELECT+15*, SELECT+28*
ECEND EN+2~, SELECT+29*, HEADER+9
ECRUN EN+1~, EN+6*, HEADER+8
ECSD EN+2~, SELECT+15*, SELECT+18*, SELECT+22, SELECT+25
ECSD1 EN+2~, SELECT+18*
ECSTART EN+2~, SELECT+19*, HEADER+8
ECTHLD EN+1~, EN+4*, SELECT+4*, SELECT+5, SELECT+6, SELECT+10*, HEADER+9
ECXDESC EN+1~, EN+17*, EN+20
ECXERR EN+2~, PROCESS+2*
ECXFLAG EN+2~, EN+4*, EN+7, EN+17, SELECT+3, PRINT+30, HEADER+7, HEADER+9
ECXPORT EN+1~, EN+9*, PRINT+6, PRINT+10, PRINT+14, PRINT+15, PRINT+16, PRINT+28
ECXSAVE EN+1~, EN+20
ECXSAVE("EC*" EN+18*
ECXTL EN+1~
>> FLAG EN+4
GTOT PRINT+1~, PRINT+5*
IO EN+22, PRINT+3
IO(0 EN+22
IOF BEGIN+1, BEGIN+17, HEADER+6
IOSL PRINT+18
IOST BEGIN+17, CLOSE+1, HEADER+2, HEADER+6
JJ CLOSE+2*, HEADER+1~, HEADER+3*
LN PRINT+1~, PRINT+5*, HEADER+14
OUT SELECT+1~
PDIV PRINT+2~, PRINT+7*, PRINT+9*, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15, PRINT+18
PDIVNM PRINT+2~
PG PRINT+1~, PRINT+5*, HEADER+4, HEADER+6*, HEADER+7
PIECE PRINT+1~, PRINT+14*
>> POP EN+21
PPDIV PRINT+2~, PRINT+8*, PRINT+10, PRINT+11*
QFLG EN+2~, EN+4*, EN+7, EN+8, BEGIN+16*, SELECT+7*, SELECT+10*, SELECT+12, SELECT+15, SELECT+17*
SELECT+21*, PROCESS+3*, PRINT+1~, PRINT+5*, PRINT+6, PRINT+12, PRINT+13, PRINT+18, PRINT+29, CLOSE+1
HEADER+4*, HEADER+5
REC PRINT+1~, PRINT+13*, PRINT+14, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25
PRINT+26, PRINT+27
SS CLOSE+2*, HEADER+1~, HEADER+3*
SUB PRINT+1~, PRINT+13*
U PRINT+14, PRINT+15, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26
PRINT+27
VOL PRINT+1~, PRINT+12*, PRINT+13
X EN+1~, EN+6, SELECT+7, SELECT+10
Y EN+1~, EN+6*, BEGIN+16, SELECT+8, SELECT+10, SELECT+17, SELECT+18, SELECT+19, SELECT+21, SELECT+22
SELECT+25, SELECT+28, SELECT+29, HEADER+4
>> ZTQUEUED PRINT+4
ZTREQ PROCESS+1*, PRINT+4!
>> ZTSTOP PRINT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All