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

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
DSS Extracts 5 PROCESS^ECXASUR  SUR^ECXDVSN2  AUDIT^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  (AUDIT,DEVICE)^ECXUTLA  
VA FileMan 5 (,DD)^%DT  NOW^%DTC  FILE^DID  EN^DIQ  ^DIR  
Kernel 4 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$RJ^XLFSTR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

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 SOURCE AUDIT  ECXASUR  

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

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+31, PROCESS+34, PRINT+3
FILE^DID EN+10
EN^DIQ PRINT+38
^DIR EN+15, PRINT+41, HEADER+5
PROCESS^ECXASUR EN+45
SUR^ECXDVSN2 EN+25
AUDIT^ECXKILL EN+21, EN+28, EN+34, EN+42, EN+48, PROCESS+41
$$EXPORT^ECXUTL1 EN+29
EXPDISP^ECXUTL1 EN+33
AUDIT^ECXUTLA EN+7
DEVICE^ECXUTLA EN+39
$$CPT^ICPTCOD PROCESS+23
$$RJ^XLFSTR PRINT+15, PRINT+26, 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: !,?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
Routine Call
  • DIR
  • Line Location:
    • EN+15
    • PRINT+41
    • HEADER+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+47

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] FILE^DID
^ECX(727.1 - [#727.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(727.811 - [#727.811] PROCESS+9, PROCESS+10
^TMP($J EN+30!, EN+31*, PROCESS+2!, PROCESS+29*, PROCESS+30, PROCESS+32*, PROCESS+35, PROCESS+36, PROCESS+37!, PRINT+9
, PRINT+10*, PRINT+12, PRINT+16*, PRINT+19*, PRINT+20*, PRINT+22*, PRINT+23*

Label References

Name Line Occurrences
HEADER PRINT+8, PRINT+15, PRINT+24, PRINT+25, PRINT+26, PRINT+28
PRINT PROCESS+39
PROCESS EN+32

Naked Globals

Name Field # of Occurrence
^( PROCESS+30*, PRINT+12
^(1 PROCESS+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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