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 |  Local Variables  | All
Print Page as PDF
Routine: ECXAMTL

Package: DSS Extracts

Routine: ECXAMTL


Information

ECXAMTL ;ALB/JAM - MTL Extract Audit Report; May 24, 1999 ;10/22/13 17:31

Source Information

Source file <ECXAMTL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
DSS Extracts 4 PROCESS^ECXAMTL  MTL^ECXDVSN2  AUDIT^ECXKILL  (AUDIT,DEVICE)^ECXUTLA  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  

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 MTL SOURCE AUDIT  ECXAMTL  
Event Capture 1 ECX MTL SOURCE AUDIT  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for MTL extract audit report
PROCESS ;process data in file #727.812
PRINT ;print the MTL audit report
P1 ;print ASI and GAF records
HEADER ;header and page control
H1

External References

Name Field # of Occurrence
^%DT PROCESS+5, PROCESS+6
DD^%DT PROCESS+8
NOW^%DTC PROCESS+8
HOME^%ZIS EN+24
^%ZISC EN+23
$$S^%ZTLOAD PRINT+4
$$GET1^DIQ PROCESS+17
^DIR HEADER+4
PROCESS^ECXAMTL EN+22
MTL^ECXDVSN2 EN+11
AUDIT^ECXKILL EN+11, EN+19, EN+25, PROCESS+30
AUDIT^ECXUTLA EN+7
DEVICE^ECXUTLA EN+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Setup for ",ECXHEAD," Extract Audit Report --",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,?5,"Try again later... exiting.",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: ?5,NAM,?32,$J(INSTOT,8),!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?5,LN,!,?5,"Total",?30,$J(PITOT,10),!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?5,LN,!,?5,"Total: ",GAFTOT,!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?5,LN,!
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: ?29,$J(ASI(CLS),8)," ",ASI(CLS,0)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?50,$J(ASISP(SPC),8)," ",ASISP(SPC,0)
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: ?5,LN,!,?27,$J(ASITOT,10),?48,$J(ASISPTOT,10)," ","Total"
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: ?5,NAM,?14,$E(SSN,$L(SSN)-3,$L(SSN))
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: ?21,DATE,?36,$S(CLS=1:"Full",CLS=2:"Lite",CLS=3:"F-up",CLS=4:"ASI-MV",1:""),?57,SPC,!
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: ?21,DATE,?36,$P(DATND,U,2),!
  • Line Location: P1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXARRAY("EXTRACT")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Facility: "_$P(ECXDIV(DIV),U)
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: " ("_$P(ECXDIV(DIV),U,4)_")",?68,"Page: "_PG
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!,CNT,".",?5
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: "Psych Instruments segment",!!
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: ND," segment",!!
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: ?5,"Name",?14,"SSN",?21
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: "Interview",?36,"Class",?54,"Special"
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: "Date",?36,"Clinician"
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !,?5,LN,!
  • Line Location: H1+7
Routine Call
  • DIR
  • Line Location:
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(727.812 - [#727.812] PROCESS+10, PROCESS+11
^TMP($J PROCESS+3!, PROCESS+25, PROCESS+26*, PROCESS+27*, PROCESS+28, PROCESS+29*, PRINT+12, PRINT+15, PRINT+16, PRINT+21
PRINT+22, PRINT+23, P1+2

Label References

Name Line Occurrences
H1 PRINT+13
HEADER PRINT+11, PRINT+13, PRINT+17, PRINT+19, PRINT+27, PRINT+30, PRINT+32, P1+4
P1 PRINT+23
PRINT PROCESS+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PROCESS+8
>> %DT PROCESS+5*
%X EN+1~
%Y EN+1~
ASI PROCESS+1~, PROCESS+18*, PROCESS+22, PRINT+1~
ASI( PRINT+8*, PRINT+9*, PRINT+33, PRINT+34, PRINT+35, P1+9*
ASISP PRINT+1~
ASISP( PRINT+8*, PRINT+10*, PRINT+36, PRINT+37, PRINT+38, P1+9*
ASISP(0 PRINT+11*
ASISPTOT PRINT+2~, PRINT+5*, PRINT+38*, PRINT+40
ASITOT PRINT+2~, PRINT+5*, PRINT+35*, PRINT+40
CLS PRINT+1~, PRINT+30*, PRINT+31, PRINT+33*, PRINT+34, PRINT+35, P1+6*, P1+7, P1+8*, P1+9
CNT PRINT+1~, PRINT+5*, PRINT+13*, H1+1
DATE P1+1~, P1+3*, P1+7, P1+11
DATND PROCESS+1~, PROCESS+22*, PROCESS+26, PROCESS+29, P1+1~, P1+2*, P1+6, P1+11
DAY PROCESS+1~, PROCESS+13*, PROCESS+14, PROCESS+25, PROCESS+26, PROCESS+28, PROCESS+29, PRINT+1~, PRINT+22*, PRINT+23*
P1+2, P1+3
DIR HEADER+4!
DIR(0 HEADER+4*
DIV PRINT+1~, PRINT+5*, HEADER+10, HEADER+11, HEADER+12, HEADER+13, HEADER+14
>> ECXALL EN+10*, EN+11
>> ECXARRAY EN+7
>> ECXARRAY("END" PROCESS+6, HEADER+8
>> ECXARRAY("EXTRACT" PROCESS+3, HEADER+7
>> ECXARRAY("START" PROCESS+5, HEADER+8
>> ECXARRAY("TYPE" HEADER+6
ECXAUD EN+4*, EN+7, EN+8!
ECXDESC EN+13*, EN+16, EN+21!
>> ECXDIV EN+11
>> ECXDIV( HEADER+10, HEADER+11*, HEADER+12*, HEADER+13, HEADER+14
>> ECXDIV("" PRINT+5
>> ECXEND PROCESS+6*, PROCESS+14
ECXERR EN+3*, EN+7, EN+8!, EN+11
ECXHEAD EN+4*, EN+5, EN+7, EN+8!, HEADER+6
ECXPGM EN+13*, EN+16, EN+21!
>> ECXRUN PROCESS+8*, HEADER+9
ECXSAVE EN+16, EN+21!
ECXSAVE("ECXALL" EN+14*
ECXSAVE("ECXARRAY(" EN+15*
ECXSAVE("ECXDIV(" EN+14*
ECXSAVE("ECXHEAD" EN+14*
ECXSAVE("POP" EN+17
ECXSAVE("ZTSK" EN+20
>> ECXSTART PROCESS+5*, PROCESS+14
EXN PROCESS+1~, PROCESS+3*, PROCESS+10
GAFTOT PRINT+1~, PRINT+27, P1+12*
I PRINT+1~, PRINT+8*, PRINT+9, PRINT+10, PRINT+31*
IEN PROCESS+1~, PROCESS+10*, PROCESS+11
INSTOT PRINT+1~, PRINT+16*, PRINT+17, PRINT+18
IO EN+23, PRINT+3
IO(0 EN+23
IOF HEADER+5
IOSL PRINT+13, PRINT+17, PRINT+19, PRINT+27, PRINT+30, PRINT+32, P1+4
IOST HEADER+2, HEADER+5
JJ HEADER+1~, HEADER+3*
LN PRINT+1~, PRINT+5*, PRINT+20, PRINT+27, PRINT+30, PRINT+40, H1+7
MTLDAT PROCESS+1~, PROCESS+11*, PROCESS+13, PROCESS+15, PROCESS+16, PROCESS+18
MTLDAT1 PROCESS+1~, PROCESS+11*, PROCESS+18
NAM PRINT+1~, PRINT+13*, PRINT+15*, PRINT+16, PRINT+17, PRINT+21*, PRINT+22, PRINT+23, P1+2, P1+4
NAME PROCESS+1~, PROCESS+15*, PROCESS+25, PROCESS+26, PROCESS+28, PROCESS+29
ND PRINT+1~, PRINT+12*, PRINT+14, PRINT+15, PRINT+16, PRINT+21, PRINT+22, PRINT+23, PRINT+26, PRINT+29
P1+2, P1+5, P1+10, H1H1+2, H1+3, H1+5, H1+6
NODE PROCESS+2~, PROCESS+20*, PROCESS+22, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29
PG PRINT+2~, PRINT+5*, HEADER+4, HEADER+5*, HEADER+14
PITOT PRINT+1~, PRINT+18*, PRINT+20
PROV PROCESS+1~, PROCESS+16*, PROCESS+17*, PROCESS+22
QFL PRINT+1~, PRINT+5*, PRINT+12, PRINT+13, PRINT+15, PRINT+17, PRINT+19, PRINT+21, PRINT+22, PRINT+23
PRINT+24, PRINT+27, PRINT+30, PRINT+31, PRINT+32, PRINT+40, P1+4, HEADER+2, HEADER+4*
SPC PROCESS+1~, PROCESS+18*, PROCESS+22, PRINT+1~, PRINT+30*, PRINT+31, PRINT+36*, PRINT+37, PRINT+38, P1+6*
P1+7, P1+8*, P1+9
SS HEADER+1~, HEADER+3*
SSN PROCESS+1~, PROCESS+15*, PROCESS+25, PROCESS+26, PROCESS+28, PROCESS+29, PRINT+1~, PRINT+21*, PRINT+22*, PRINT+23
P1+2, P1+4
TSTNAM PROCESS+1~, PROCESS+15*, PROCESS+20, PROCESS+25, PROCESS+26, PROCESS+27
TSTSC PROCESS+1~, PROCESS+18*, PROCESS+22
U PROCESS+13, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+22, P1+6, P1+11, HEADER+10, HEADER+11, HEADER+12
HEADER+13, HEADER+14
>> X PROCESS+5*, PROCESS+6*
>> Y PROCESS+5, PROCESS+6, PROCESS+8*, HEADER+4
>> ZTQUEUED PRINT+4
ZTREQ PRINT+4!
>> ZTSTOP PRINT+4*
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 |  Local Variables  | All