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

Package: DSS Extracts

Routine: ECXARAD


Information

ECXARAD ;ALB/JAP - RAD Extract Audit Report ;3/11/14 12:58

Source Information

Source file <ECXARAD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for RAD extract audit report
PROCESS ;process data in file #727.814
PRINT ;print the RAD audit report by radiology site
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: !,IMNM_" ("_DIV_"-"_IMTYPE_")",!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?3,$E(CPT,2,6),?14,$E(PROCN,1,38),?60,$$RJ^XLFSTR(TOT(3),5," "),?70,$$RJ^XLFSTR(TOT(1),5," "),!
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,?5,$E(LN,1,74)
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,"Sub-totals for "_IMNM_" ("_DIV_"-"_IMTYPE_"):",?60,$$RJ^XLFSTR(STOT(3),5," "),?70,$$RJ^XLFSTR(STOT(1),5," "),!
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !!,"Grand Total for Division "_DIVNM_":",?60,$$RJ^XLFSTR(GTOT(3),5," "),?70,$$RJ^XLFSTR(GTOT(1),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+3
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXARRAY("EXTRACT")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Radiology Division: "_$P(ECXDIV(DIV),U,2)_" ("_DIV_")",?60,"Page: "_PG
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !!,"Imaging Type (Feeder Location)",?60,"# of Procedures"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,?3,"CPT Code",?14,"Procedure",?60,"Inpt.",?70,"Outpt."
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls
^ECX(727.1 - [#727.1] Classic Fileman Calls
^RA(79 - [#79] FILE^DID
^RA(79.2 - [#79.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call