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

Package: DSS Extracts

Routine: ECXASUR


Information

ECXASUR ;ALB/JAP - SUR Extract Audit Report ;5/9/14 14:59

Source Information

Source file <ECXASUR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for SUR extract audit report
PROCESS ;process data in file #727.811
PRINT ;print the SUR audit report by location and division
HEADER ;header and page control

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Setup for ",ECXHEAD," Extract Audit Report --",!!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,?3,CPTN,?14,$E(PROCN,1,40),?63,$$RJ^XLFSTR(TOT(LOC),5," ")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,?3,$E(LN,1,65)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !!,"For Division "_DIVNM_"--"
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,?3,"Total "_LOCNM_":",?63,$$RJ^XLFSTR(GTOT(LOC),5," ")
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,?3,"Total "_LOCNMC_"Cases:",?63,$$RJ^XLFSTR(CASES(DIV,LOC),5," ")
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXARRAY("EXTRACT")
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,"Surgery Division: "_$P(ECXDIV(DIV),U,2)_" ("_DIV_")",?63,"Page: "_PG
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!,LOCNM
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,?3,"CPT Code",?14,"Procedure",?63,"# of Procedures"
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] FILE^DID
^ECX(727.1 - [#727.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call