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

Package: DSS Extracts

Routine: ECXAADM


Information

ECXAADM ;ALB/JAP - ADM Extract Audit Report ;3/13/19 10:40

Source Information

Source file <ECXAADM.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
DSS Extracts 5 PROCESS^ECXAADM  ADM^ECXDVSN  AUDIT^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  (AUDIT,DEVICE,WARDS)^ECXUTLA  
VA FileMan 5 (,DD)^%DT  NOW^%DTC  ($$GET1,EN)^DIQ  EN^DIQ1  ^DIR  
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 ADM SOURCE AUDIT  ECXAADM  
Event Capture 1 ECX ADM SOURCE AUDIT  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for ADM extract audit report
PROCESS ;process data in file #727.802
PRINT ;print the admission data by division and ward order
HEAD ;173 header for missing wards, treating specialties, and ASIH OTHER FACILITY
HEADER ;header and page control

External References

Name Field # of Occurrence
^%DT EN+23, PROCESS+5
DD^%DT PROCESS+7
NOW^%DTC PROCESS+7
HOME^%ZIS EN+47
^%ZISC EN+46
$$S^%ZTLOAD PROCESS+29, PROCESS+31, PROCESS+36, PRINT+4
$$GET1^DIQ PRINT+58
EN^DIQ PRINT+73
EN^DIQ1 EN+10
^DIR EN+15, PRINT+77, HEADER+4
PROCESS^ECXAADM EN+45
ADM^ECXDVSN EN+25
AUDIT^ECXKILL EN+21, EN+28, EN+37, EN+42, EN+48, PROCESS+42
$$EXPORT^ECXUTL1 EN+32
EXPDISP^ECXUTL1 EN+36
AUDIT^ECXUTLA EN+7
DEVICE^ECXUTLA EN+39
WARDS^ECXUTLA PROCESS+9
$$RJ^XLFSTR PRINT+19, PRINT+27, PRINT+32, PRINT+40

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+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,?5,WRDNM,?45,$$RJ^XLFSTR(WRDTOT,5," ")
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+76
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+77
Function Call: WRITE
  • Prompt: !,?2,"NAME",?8,"PATIENT DFN",?25,"FACILITY",?45,"ADMISSION DATE",?63,"ASIH OTHER FAC"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?2,"====",?8,"===========",?25,"========",?45,"==============",?63,"=============="
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXEXT
  • 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: !,"Medical Center Division: "_$P(ECXDIV(DIV),U,2)_" ("_$P(ECXDIV(DIV),U,3)_")",?68,"Page: "_PG
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"Medical Center Division: "_$P(ECXDIV(DIV),U,2)_" ("_$P(ECXDIV(DIV),U,3)_")"_" <"_DSSID_">",?68,"Page: "_PG
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!,?5,"Ward <DSS Dept.>",?40,"# of Admissions"
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+15
Routine Call
  • DIR
  • Line Location:
    • EN+15
    • PRINT+77
    • HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+47

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
^DG(43 - [#43] Classic Fileman Calls
^ECX(727.1 - [#727.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(727.802 - [#727.802] PROCESS+14, PROCESS+15, PRINT+57
^TMP($J EN+33!, EN+34*, PROCESS+2!, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+21*, PROCESS+24*, PROCESS+25*, PROCESS+33
PROCESS+34*, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PRINT+10*, PRINT+12, PRINT+13, PRINT+20*, PRINT+24*
PRINT+31*, PRINT+36, PRINT+38, PRINT+47*, PRINT+50*, PRINT+51*, PRINT+52*, PRINT+53*, PRINT+54*, PRINT+56
PRINT+59*

Label References

Name Line Occurrences
HEAD PRINT+55, PRINT+64
HEADER PRINT+8, PRINT+18, PRINT+25, PRINT+28, PRINT+30, PRINT+37, PRINT+64
PRINT PROCESS+41
PROCESS EN+35

Naked Globals

Name Field # of Occurrence
^( PROCESS+12, PROCESS+33, PRINT+13
^("ASIH" PROCESS+25*
^("MISTRT" PROCESS+24*
^("MISWRD" PROCESS+21*
^(0 PROCESS+15
^(1 PROCESS+40*, PRINT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PROCESS+7
%X EN+1~
%Y EN+1~
ADMDT PRINT+2~, PRINT+57*, PRINT+59, PRINT+61
ASIH PROCESS+1~, PROCESS+15*, PROCESS+25, PROCESS+26
CNT PROCESS+1~, PROCESS+3*, PROCESS+28*, PROCESS+29
DA EN+1~, EN+10*, PRINT+1~, PRINT+73*
DATA PRINT+1~, PRINT+13*, PRINT+14, PRINT+57*, PRINT+58, PRINT+59, PRINT+60, PRINT+62, PRINT+63
DATA1 PRINT+1~, PRINT+13!*, PRINT+17!, PRINT+22, PRINT+23
DATE PROCESS+1~, PROCESS+15*, PROCESS+17*, PROCESS+18
DIC EN+1~, EN+10*, PRINT+1~, PRINT+73*
DIQ EN+1~, EN+10*
DIQ(0 EN+10*
DIR EN+1~, EN+15!, PRINT+1~, PRINT+77!, HEADER+1~, HEADER+4!
DIR("A" EN+14*
DIR("B" EN+15*
DIR(0 EN+14*, PRINT+77*, HEADER+4*
DIRUT EN+1~, EN+16, PRINT+2~, HEADER+1~
DIV PROCESS+1~, PROCESS+11*, PROCESS+12, PROCESS+33*, PROCESS+34, PROCESS+37*, PROCESS+38, PROCESS+39, PROCESS+40, PRINT+5*
PRINT+6*, PRINT+7, PRINT+9, PRINT+12, PRINT+13, PRINT+31, PRINT+32, PRINT+37*, HEADER+6, HEADER+12
HEADER+13
DIVNM PRINT+1~, PRINT+7*, PRINT+10, PRINT+20
DR EN+1~, EN+10*, PRINT+1~, PRINT+73*
DSSID HEADER+1~, HEADER+6*, HEADER+12, HEADER+13
DTOUT EN+1~, PRINT+2~, HEADER+1~
DUOUT EN+1~, PRINT+2~, HEADER+1~
>> ECX(43 EN+11, EN+12
>> ECXALL EN+11*, EN+18*, EN+25, PROCESS+9
>> ECXARRAY EN+7
>> ECXARRAY("DEF" PROCESS+4, PRINT+73
>> ECXARRAY("END" EN+23, PROCESS+5, PRINT+10, PRINT+20, PRINT+70, HEADER+10
>> ECXARRAY("EXTRACT" PROCESS+4
>> ECXARRAY("START" EN+23, PROCESS+5, PRINT+10, PRINT+20, PRINT+70, HEADER+10
>> ECXARRAY("TYPE" PRINT+68, HEADER+8
>> ECXAUD EN+4*, EN+7
>> ECXDEF PROCESS+4*
ECXDESC EN+30*, EN+39, EN+44!
>> ECXDIV EN+25, PROCESS+9
>> ECXDIV( PRINT+7, PRINT+31, PRINT+32, PRINT+37*, HEADER+6, HEADER+12, HEADER+13
>> ECXEND EN+23*, EN+25, PROCESS+5*, PROCESS+18
>> ECXERR EN+2*, EN+7, EN+8, EN+16*, EN+19, EN+25, EN+26
>> ECXEXT PROCESS+4*, PROCESS+14, PRINT+20, PRINT+69, HEADER+9
>> ECXHEAD EN+4*, EN+5, EN+7, EN+14, PRINT+68, HEADER+8
ECXPGM EN+30*, EN+39, EN+44!
ECXPORT EN+1~, EN+32*, PROCESS+42, PRINT+8, PRINT+10, PRINT+18, PRINT+19, PRINT+20, PRINT+24, PRINT+30
PRINT+31, PRINT+37, PRINT+39, PRINT+46, PRINT+55, PRINT+59, PRINT+65
>> ECXRUN PROCESS+7*, PRINT+71, HEADER+11
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+23*, EN+25, PROCESS+5*, PROCESS+18
FAC PRINT+2~, PRINT+58*, PRINT+59, PRINT+60
GRPNM PRINT+1~, PRINT+23*, PRINT+24, PRINT+27
GRPTOT PRINT+1~, PRINT+23*, PRINT+24, PRINT+27
GTOT PROCESS+1~
GTOT( PROCESS+11*, PROCESS+37*, PROCESS+39*, PRINT+6, PRINT+9, PRINT+31, PRINT+32
IEN PROCESS+1~, PROCESS+14*, PROCESS+15, PROCESS+21, PROCESS+24, PROCESS+25, PRINT+2~, PRINT+56*, PRINT+57
IO EN+46, PRINT+3
>> IO(0 EN+46
IOF PRINT+67, PRINT+74, HEADER+7
IOSL PRINT+18, PRINT+25, PRINT+28, PRINT+30, PRINT+64
IOST PRINT+66, PRINT+75, HEADER+2, HEADER+7
JJ PRINT+1~, PRINT+76*, HEADER+1~, HEADER+3*
LN PRINT+1~, PRINT+5*, PRINT+72, HEADER+15
MISTYPE PRINT+1~, PRINT+36*, PRINT+37, PRINT+38, PRINT+40, PRINT+47, PRINT+56
NOTE PROCESS+1~, PRINT+35*, PRINT+41*, PRINT+48*
ORDER PROCESS+1~, PROCESS+11*, PROCESS+12*, PROCESS+33*, PROCESS+34, PROCESS+38*, PROCESS+39, PROCESS+40, PRINT+12*, PRINT+13
PRINT+17
PG PRINT+1~, PRINT+5*, PRINT+67*, PRINT+71, HEADER+4, HEADER+7*, HEADER+12, HEADER+13
QFLG PRINT+1~, PRINT+5*, PRINT+6, PRINT+8, PRINT+12, PRINT+18, PRINT+22, PRINT+25, PRINT+28, PRINT+30
PRINT+34, PRINT+36, PRINT+37, PRINT+56, PRINT+64, PRINT+75, HEADER+2, HEADER+4*, HEADER+5
QQFLG PROCESS+1~, PROCESS+3*, PROCESS+14, PROCESS+29*
RCNT EN+1~, EN+34*, PRINT+10*, PRINT+20*, PRINT+24*, PRINT+31*, PRINT+47*, PRINT+49*, PRINT+50*, PRINT+51*
PRINT+52, PRINT+53*, PRINT+54*, PRINT+59*
SORD PROCESS+1~
SS PRINT+1~, PRINT+76*, HEADER+1~, HEADER+3*
STOT PROCESS+1~, PROCESS+38*, PROCESS+39*, PROCESS+40*
STOT( PROCESS+12*
TL PROCESS+1~
TL( PROCESS+11*, PROCESS+28*, PROCESS+32, PROCESS+34
>> TOT PROCESS+39*
TSV PROCESS+1~, PROCESS+15*, PROCESS+23, PROCESS+26
U PROCESS+11, PROCESS+15, PROCESS+33, PROCESS+34, PROCESS+39, PROCESS+40, PRINT+7, PRINT+10, PRINT+14, PRINT+20
PRINT+23, PRINT+24, PRINT+31, PRINT+32, PRINT+47, PRINT+57, PRINT+58, PRINT+59, PRINT+60, PRINT+62
PRINT+63, HEADER+6, HEADER+12, HEADER+13
W PROCESS+1~, PROCESS+10*, PROCESS+11, PROCESS+32*, PROCESS+33, PROCESS+34
WARD PROCESS+1~, PROCESS+15*, PROCESS+20, PROCESS+26, PROCESS+28
WRDNM PRINT+1~, PRINT+14*, PRINT+19, PRINT+20
WRDTOT PRINT+1~, PRINT+14*, PRINT+17, PRINT+19, PRINT+20, PRINT+38*, PRINT+40, PRINT+47
X EN+1~, EN+23*, PROCESS+1~, PROCESS+5*
Y EN+1~, EN+18, EN+23, PROCESS+1~, PROCESS+5, PROCESS+7*, HEADER+4
>> ZTQUEUED PROCESS+29, PROCESS+31, PROCESS+36, PRINT+4
ZTREQ PROCESS+29!, PROCESS+31!, PROCESS+36!, PRINT+4!
>> ZTSTOP PROCESS+29*, PROCESS+31*, PROCESS+36*, 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 |  Naked Globals |  Local Variables  | All