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

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

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
Info |  Source |  Entry Points |  Interaction Calls