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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 6 (,DD)^%DT  NOW^%DTC  FILE^DID  EN^DIQ  EN^DIQ1  ^DIR  
DSS Extracts 5 PROCESS^ECXARAD  RAD^ECXDVSN2  AUDIT^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  (AUDIT,DEVICE)^ECXUTLA  
Kernel 4 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$RJ^XLFSTR  

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

Package Total Caller Graph
DSS Extracts 2 ECX RAD SOURCE AUDIT  ECXARAD  
Event Capture 1 ECX RAD SOURCE AUDIT  

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

External References

Name Field # of Occurrence
^%DT PROCESS+5
DD^%DT PROCESS+7
NOW^%DTC PROCESS+7
HOME^%ZIS EN+47
^%ZISC EN+46
$$S^%ZTLOAD PROCESS+28, PRINT+3
FILE^DID EN+10
EN^DIQ PRINT+38
EN^DIQ1 PROCESS+10, PROCESS+22
^DIR EN+15, PRINT+41, HEADER+4
PROCESS^ECXARAD EN+45
RAD^ECXDVSN2 EN+25
AUDIT^ECXKILL EN+21, EN+28, EN+37, EN+42, EN+48, PROCESS+32
$$EXPORT^ECXUTL1 EN+32
EXPDISP^ECXUTL1 EN+36
AUDIT^ECXUTLA EN+7
DEVICE^ECXUTLA EN+39
$$RJ^XLFSTR PROCESS+20, PRINT+21, PRINT+25, PRINT+28

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
Routine Call
  • DIR
  • Line Location:
    • EN+15
    • PRINT+41
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+47

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(727.814 - [#727.814] PROCESS+13, PROCESS+14
^RA(79.2 - [#79.2] PROCESS+9
^TMP($J EN+33!, EN+34*, PROCESS+2!, PROCESS+25*, PROCESS+26, PROCESS+27, PRINT+9, PRINT+10*, PRINT+12, PRINT+16
PRINT+20*, PRINT+23*, PRINT+27*

Label References

Name Line Occurrences
HEADER PRINT+8, PRINT+15, PRINT+21, PRINT+24, PRINT+25, PRINT+28
PRINT PROCESS+30
PROCESS EN+35

Naked Globals

Name Field # of Occurrence
^( PROCESS+26*, PROCESS+27*, PRINT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PROCESS+7
%X EN+2~
%Y EN+2~
CNT PROCESS+1~, PROCESS+3*, PROCESS+26*, PROCESS+27*, PROCESS+28
CPT PROCESS+1~, PROCESS+20*, PROCESS+25, PROCESS+26, PROCESS+27, PRINT+13*, PRINT+16*, PRINT+20, PRINT+21
DA EN+2~, PROCESS+1~, PROCESS+10*, PROCESS+22*, PRINT+38*
DATA PROCESS+1~, PROCESS+14*, PROCESS+19, PROCESS+20
DATE PROCESS+1~, PROCESS+14*, PROCESS+16*, PROCESS+17
DIC EN+2~, PROCESS+1~, PROCESS+10*, PROCESS+22*, PRINT+1~, PRINT+38*
DIQ EN+2~, PROCESS+1~, PROCESS+10*, PROCESS+22*
DIQ(0 PROCESS+10*, PROCESS+22*
DIR EN+2~, EN+15!, PRINT+1~, PRINT+41!, HEADER+4!
DIR("A" EN+14*
DIR("B" EN+15*
DIR(0 EN+14*, PRINT+41*, HEADER+4*
DIRUT EN+16, PRINT+1~
DIV PROCESS+1~, PROCESS+14*, PROCESS+18, PROCESS+25, PROCESS+26, PROCESS+27, PRINT+4*, PRINT+7*, PRINT+8, PRINT+9
PRINT+12, PRINT+15, PRINT+16, PRINT+20, PRINT+23, PRINT+25, HEADER+11
DIVNM PRINT+1~, PRINT+8*, PRINT+10, PRINT+20, PRINT+27, PRINT+28
DR EN+2~, PROCESS+1~, PROCESS+10*, PROCESS+22*, PRINT+1~, PRINT+38*
DTOUT PRINT+1~
DUOUT PRINT+1~
ECX EN+2~, EN+10!, PROCESS+1~, PROCESS+10!, PROCESS+22!
ECX( PROCESS+11
ECX("ENTRIES" EN+10
ECX(71 PROCESS+23
>> ECXALL EN+11*, EN+18*, EN+25
>> ECXARRAY EN+7
>> ECXARRAY("DEF" PROCESS+4, PRINT+38
>> ECXARRAY("END" EN+24, PROCESS+5, PRINT+35, HEADER+9
>> ECXARRAY("EXTRACT" PROCESS+4, PRINT+10, PRINT+20, HEADER+8
>> ECXARRAY("START" EN+24, PROCESS+5, PRINT+35, HEADER+9
>> ECXARRAY("TYPE" PRINT+33, HEADER+7
>> ECXAUD EN+5*, EN+7
>> ECXDEF PROCESS+4*
ECXDESC EN+30*, EN+39, EN+44!
>> ECXDIV EN+25
>> ECXDIV( PROCESS+18, PRINT+7, PRINT+8, HEADER+11
>> ECXEND EN+24*, PROCESS+5*, PROCESS+17
>> ECXERR EN+4*, EN+7, EN+8, EN+16*, EN+19, EN+25, EN+26
>> ECXEXT PROCESS+4*, PROCESS+13, PRINT+34
>> ECXHEAD EN+5*, EN+6, EN+7, EN+14, PRINT+33, HEADER+7
ECXPGM EN+30*, EN+39, EN+44!
ECXPORT EN+2~, EN+32*, PROCESS+31, PRINT+8, PRINT+10, PRINT+15, PRINT+20, PRINT+23, PRINT+27, PRINT+30
>> ECXRUN PROCESS+7*, PRINT+36, HEADER+10
ECXSAVE EN+39, EN+44!
ECXSAVE("ECXALL" EN+31*
ECXSAVE("ECXARRAY(" EN+31*
ECXSAVE("ECXDIV(" EN+31*
ECXSAVE("ECXHEAD" EN+31*
ECXSAVE("POP" EN+40
ECXSAVE("ZTSK" EN+43
>> ECXSTART EN+24*, PROCESS+5*, PROCESS+17
GTOT PRINT+1~
GTOT(1 PRINT+8*, PRINT+18*, PRINT+27, PRINT+28
GTOT(3 PRINT+8*, PRINT+18*, PRINT+27, PRINT+28
IEN PROCESS+1~, PROCESS+13*, PROCESS+14
IMAB PROCESS+1~, PROCESS+21*
IMAG PRINT+1~
IMAG( PRINT+6*, PRINT+13
IMNM PROCESS+1~, PROCESS+21*, PROCESS+25, PROCESS+26, PROCESS+27, PRINT+6*, PRINT+12*, PRINT+13, PRINT+15, PRINT+16
PRINT+20, PRINT+23, PRINT+25
IMTYPE PRINT+1~, PRINT+13*, PRINT+15, PRINT+20, PRINT+23, PRINT+25
IO EN+46, PRINT+2
IO(0 EN+46
IOF PRINT+32, HEADER+6
IOSL PRINT+15, PRINT+21, PRINT+24, PRINT+25, PRINT+28
IOST PRINT+31, PRINT+39, HEADER+2, HEADER+6
JJ PROCESS+1~, PRINT+40*, HEADER+1~, HEADER+3*
LN PRINT+1~, PRINT+4*, PRINT+24, PRINT+37, HEADER+14
P PRINT+1~
PAT PROCESS+1~, PROCESS+19*, PROCESS+26, PROCESS+27
PG PRINT+1~, PRINT+4*, PRINT+32*, PRINT+36, HEADER+4, HEADER+6*, HEADER+11
PROC PROCESS+1~, PROCESS+19*, PROCESS+22, PROCESS+23
PROCN PROCESS+1~, PROCESS+23*, PROCESS+25, PRINT+16*, PRINT+20, PRINT+21
QFLG PRINT+1~, PRINT+4*, PRINT+7, PRINT+12, PRINT+15, PRINT+16, PRINT+21, PRINT+24, PRINT+25, PRINT+28
PRINT+39, HEADER+2, HEADER+4*, HEADER+5
QQFLG PROCESS+1~, PROCESS+3*, PROCESS+13, PROCESS+28*
RCNT EN+2~, EN+34*, PRINT+10*, PRINT+20*, PRINT+23*, PRINT+27*
SITES EN+2~, EN+10*, EN+11, EN+12
SS PRINT+1~, PRINT+40*, HEADER+1~, HEADER+3*
STOT PRINT+1~
STOT(1 PRINT+13*, PRINT+17*, PRINT+23, PRINT+25
STOT(3 PRINT+13*, PRINT+17*, PRINT+23, PRINT+25
T PRINT+1~, PRINT+6*
TOT PRINT+1~
TOT(1 PRINT+16*, PRINT+17, PRINT+18, PRINT+20, PRINT+21
TOT(3 PRINT+16*, PRINT+17, PRINT+18, PRINT+20, PRINT+21
TYPE PROCESS+1~, PROCESS+9*, PROCESS+10, PROCESS+11, PROCESS+19*, PROCESS+21
TYPE( PROCESS+11*, PROCESS+21, PRINT+6
U PROCESS+11, PROCESS+14, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+25, PROCESS+26, PROCESS+27, PRINT+6, PRINT+8
PRINT+10, PRINT+16, PRINT+20, PRINT+23, PRINT+27, HEADER+11
X EN+2~, PROCESS+1~, PROCESS+5*
Y EN+2~, EN+18, PROCESS+1~, PROCESS+5, PROCESS+7*, HEADER+4
>> ZTQUEUED PROCESS+28, PRINT+3
ZTREQ PROCESS+28!, PRINT+3!
>> ZTSTOP PROCESS+28*, PRINT+3*
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 |  Naked Globals |  Local Variables  | All