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

Package: DSS Extracts

Routine: ECXAMOV


Information

ECXAMOV ;ALB/JAP - MOV Extract Audit Report ;3/13/19 09:33

Source Information

Source file <ECXAMOV.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
DSS Extracts 5 PROCESS^ECXAMOV  MOV^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  ($$LJ,$$REPEAT,$$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 MOV SOURCE AUDIT  ECXAMOV  
Event Capture 1 ECX MOV SOURCE AUDIT  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for MOV extract audit report
PROCESS ;process data in file #727.808
PRINT ;print the movement data by division and ward order
HEAD ;header for missing wards
HEADER ;header and page control
LEGEND ;print legend for each report type

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+35, PROCESS+37, PRINT+4
$$GET1^DIQ PRINT+77
EN^DIQ PRINT+93
EN^DIQ1 EN+10
^DIR EN+15, PRINT+96, HEADER+5
PROCESS^ECXAMOV EN+45
MOV^ECXDVSN EN+24
AUDIT^ECXKILL EN+21, EN+27, EN+34, EN+42, EN+48, PROCESS+50
$$EXPORT^ECXUTL1 EN+29
EXPDISP^ECXUTL1 EN+33
AUDIT^ECXUTLA EN+7
DEVICE^ECXUTLA EN+39
WARDS^ECXUTLA PROCESS+9
$$LJ^XLFSTR PRINT+23
$$REPEAT^XLFSTR PRINT+15, PRINT+55
$$RJ^XLFSTR PRINT+28, PRINT+31, PRINT+41, PRINT+44, PRINT+53, PRINT+56, PRINT+71, HEADER+19, HEADER+20

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+35
Function Call: WRITE
  • Prompt: !!,?5,"The format of this report requires a page or screen",!,?5,"width of 132 characters.",!
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,?18,$E(LN,1,113)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,"Ward group "_GRPNM_" subtotals:",!
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !!,"Division "_$P(ECXDIV(DIV),U,2)_" Grand Totals:",!
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: ?TAB,$$RJ^XLFSTR(LINETOT,5," ")
  • Line Location: PRINT+56
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+95
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+96
Function Call: WRITE
  • Prompt: !,?2,"NAME",?8,"PATIENT DFN",?25,"FACILITY",?45,"ADMISSION DATE",?65,"ASIH OTHER FACILITY"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?2,"====",?8,"===========",?25,"========",?45,"==============",?65,"==================="
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXEXT
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"Medical Center Division: "_$P(ECXDIV(DIV),U,2)_" ("_$P(ECXDIV(DIV),U,3)_")",?120,"Page: "_PG
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,"Medical Center Division: "_$P(ECXDIV(DIV),U,2)_" ("_$P(ECXDIV(DIV),U,3)_")"_" <"_DSSID_">",?120,"Page: "_PG
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: "Ward <DSS Dept.>",?TAB,"MAS Movement ("_TNM_") Types",!
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: "Ward",?TAB,"MAS Movement ("_TNM_") Types",!
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: ?TAB,$$RJ^XLFSTR(MOV,5," ")
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: ?TAB,$$RJ^XLFSTR("Total",5," ")
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !!,TNM_" Movements Legend --"
  • Line Location: LEGEND+3
Function Call: WRITE
  • Prompt: !,MOV,?4,"= ",$E(MOVNM,1,32)
  • Line Location: LEGEND+5
Function Call: WRITE
  • Prompt: ?41,MOV,?44,"= ",$E(MOVNM,1,32)
  • Line Location: LEGEND+6
Function Call: WRITE
  • Prompt: ?81,MOV,?84,"= ",$E(MOVNM,1,32)
  • Line Location: LEGEND+7
Routine Call
  • DIR
  • Line Location:
    • EN+15
    • PRINT+96
    • HEADER+5
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)
^DG(405.2 - [#405.2] PROCESS+11, PROCESS+12
^ECX(727.808 - [#727.808] PROCESS+22, PROCESS+23, PRINT+76
^TMP($J EN+30!, PROCESS+2!, PROCESS+13*, PROCESS+15, PROCESS+16, PROCESS+17*, PROCESS+19, PROCESS+29*, PROCESS+31, PROCESS+32*
PROCESS+33, PROCESS+38, PROCESS+39, PROCESS+40*, PROCESS+43!, PROCESS+44, PROCESS+46!, PROCESS+47*, PRINT+9*, PRINT+10*
PRINT+11, PRINT+14*, PRINT+15*, PRINT+17, PRINT+18, PRINT+26*, PRINT+27, PRINT+29*, PRINT+30*, PRINT+37*
PRINT+40, PRINT+42*, PRINT+43*, PRINT+49*, PRINT+52, PRINT+54*, PRINT+55*, PRINT+59, PRINT+61, PRINT+63*
PRINT+64*, PRINT+65*, PRINT+66*, PRINT+67*, PRINT+68*, PRINT+69*, PRINT+75, PRINT+79*, HEADER+19, LEGEND+4
LEGEND+5, LEGEND+6, LEGEND+7

Label References

Name Line Occurrences
HEAD PRINT+74, PRINT+84
HEADER PRINT+7, PRINT+24, PRINT+34, PRINT+36, PRINT+38, PRINT+45, PRINT+48, PRINT+50, PRINT+61, PRINT+84
LEGEND+2
LEGEND PRINT+57
PRINT PROCESS+48
PROCESS EN+32

Naked Globals

Name Field # of Occurrence
^( PROCESS+19, PROCESS+33, PROCESS+38, PROCESS+39, PRINT+18, LEGEND+6, LEGEND+7
^("MISWRD" PROCESS+29*
^(1 PRINT+18

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+76*, PRINT+79, PRINT+81
CNT PROCESS+1~, PROCESS+3*, PROCESS+35*
DA EN+1~, EN+10*, PRINT+2~, PRINT+93*
DATA PROCESS+1~, PROCESS+12*, PROCESS+23*, PRINT+1~, PRINT+18*, PRINT+19, PRINT+26, PRINT+28, PRINT+76*, PRINT+77
PRINT+79, PRINT+80, PRINT+82, PRINT+83
DATA1 PRINT+1~, PRINT+18!*, PRINT+33, PRINT+34, PRINT+41
DATE PROCESS+1~, PROCESS+23*, PROCESS+25*, PROCESS+26
DIC EN+1~, EN+10*, PRINT+2~, PRINT+93*
DIQ EN+1~, EN+10*
DIQ(0 EN+10*
DIR EN+1~, EN+15!, PRINT+2~, PRINT+96!, HEADER+5!
DIR("A" EN+14*
DIR("B" EN+15*
DIR(0 EN+14*, PRINT+96*, HEADER+5*
DIRUT EN+16, PRINT+2~
DIV PROCESS+1~, PROCESS+16*, PROCESS+19, PROCESS+20, PROCESS+33*, PROCESS+34, PROCESS+39*, PROCESS+40, PROCESS+43, PROCESS+44
PROCESS+46, PROCESS+47, PRINT+5*, PRINT+6*, PRINT+11, PRINT+14, PRINT+17, PRINT+18, PRINT+26, PRINT+48
PRINT+49, PRINT+53, PRINT+60*, HEADER+7, HEADER+13, HEADER+14
DIVTOT PRINT+1~, PRINT+7*, PRINT+11*, PRINT+12
DR EN+1~, EN+10*, PRINT+2~, PRINT+93*
DSSID HEADER+1~, HEADER+7*, HEADER+13, HEADER+14
DTOUT PRINT+2~
DUOUT PRINT+2~
>> ECX(43 EN+11, EN+12
>> ECXALL EN+11*, EN+18*, EN+24, PROCESS+9
>> ECXARRAY EN+7
>> ECXARRAY("DEF" PROCESS+4, PRINT+93
>> ECXARRAY("END" EN+23, PROCESS+5, PRINT+90, HEADER+11
>> ECXARRAY("EXTRACT" PROCESS+4
>> ECXARRAY("START" EN+23, PROCESS+5, PRINT+90, HEADER+11
>> ECXARRAY("TYPE" PRINT+88, HEADER+9
>> ECXAUD EN+4*, EN+7
>> ECXDEF PROCESS+4*
ECXDESC EN+36*, EN+39, EN+44!
>> ECXDIV EN+24, PROCESS+9
>> ECXDIV( PRINT+14, PRINT+26, PRINT+48, PRINT+49, PRINT+60*, HEADER+7, HEADER+13, HEADER+14
>> ECXEND EN+23*, EN+24, PROCESS+5*, PROCESS+26
>> ECXERR EN+2*, EN+7, EN+8, EN+16*, EN+19, EN+24, EN+25
>> ECXEXT PROCESS+4*, PROCESS+22, PRINT+14, PRINT+26, PRINT+89, HEADER+10
>> ECXHEAD EN+4*, EN+5, EN+7, EN+14, PRINT+88, HEADER+9
ECXPGM EN+36*, EN+39, EN+44!
ECXPORT EN+1~, EN+29*, PROCESS+49, PRINT+8, PRINT+13, PRINT+25, PRINT+26, PRINT+28, PRINT+29, PRINT+30
PRINT+31, PRINT+35, PRINT+36, PRINT+37, PRINT+41, PRINT+42, PRINT+43, PRINT+44, PRINT+46, PRINT+48
PRINT+49, PRINT+53, PRINT+54, PRINT+55, PRINT+62, PRINT+70, PRINT+74, PRINT+78, PRINT+84, PRINT+85
HEADER+2
>> ECXRUN PROCESS+7*, PRINT+91, HEADER+12
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+23*, EN+24, PROCESS+5*, PROCESS+26
FAC PRINT+2~, PRINT+77*, PRINT+79, PRINT+80
GRPNM PRINT+1~, PRINT+34*, PRINT+36, PRINT+37
GRPTOT PRINT+1~, PRINT+41*, PRINT+42
GTOT PROCESS+1~, PRINT+53*, PRINT+54
GTOT( PROCESS+16*, PROCESS+33*, PRINT+6, PRINT+11, PRINT+53
IEN PROCESS+1~, PROCESS+22*, PROCESS+23, PROCESS+29, PRINT+2~, PRINT+74*, PRINT+75*, PRINT+76
IO EN+46, PRINT+3
IO(0 EN+46
IOF PRINT+87, HEADER+8
IOSL PRINT+24, PRINT+34, PRINT+36, PRINT+38, PRINT+45, PRINT+48, PRINT+50, PRINT+84, LEGEND+2
IOST PRINT+57, PRINT+86, PRINT+94, HEADER+3, HEADER+8
JJ PROCESS+1~, PROCESS+11*, PROCESS+12, PROCESS+13, PROCESS+14*, PROCESS+16*, PROCESS+20*, PROCESS+40*, PROCESS+47*, PRINT+1~
PRINT+95*, HEADER+1~, HEADER+4*
LINETOT PROCESS+1~, PROCESS+40*, PROCESS+43, PRINT+25*, PRINT+28*, PRINT+30, PRINT+31, PRINT+39*, PRINT+41*, PRINT+43
PRINT+44, PRINT+51*, PRINT+53*, PRINT+55, PRINT+56
LN PRINT+1~, PRINT+5*, PRINT+35, PRINT+92, HEADER+21
MOV PROCESS+1~, PROCESS+11*, PROCESS+14, PROCESS+16, PROCESS+20, PROCESS+40, PROCESS+47, PRINT+7*, PRINT+11*, PRINT+27*
PRINT+28, PRINT+40*, PRINT+41, PRINT+52*, PRINT+53, HEADER+18*, HEADER+19*, LEGEND+1~, LEGEND+4*, LEGEND+5
LEGEND+6*, LEGEND+7*
MOVNM LEGEND+1~, LEGEND+5*, LEGEND+6*, LEGEND+7*
NM PROCESS+12*, PROCESS+13, PRINT+1~
ORDER PROCESS+1~, PROCESS+18*, PROCESS+19*, PROCESS+20, PROCESS+33*, PROCESS+34, PROCESS+39*, PROCESS+40, PROCESS+43, PROCESS+44
PROCESS+46, PROCESS+47, PRINT+17*, PRINT+18
PG PRINT+1~, PRINT+5*, PRINT+87*, PRINT+91, HEADER+5, HEADER+8*, HEADER+13, HEADER+14
QFLG PRINT+1~, PRINT+5*, PRINT+6, PRINT+7, PRINT+17, PRINT+24, PRINT+33, PRINT+34, PRINT+36, PRINT+38
PRINT+45, PRINT+47, PRINT+48, PRINT+50, PRINT+75, PRINT+84, PRINT+94, HEADER+2, HEADER+5*, HEADER+6
QQFLG PROCESS+1~, PROCESS+3*, PROCESS+22, PROCESS+35*
RCNT EN+1~, EN+31*, PRINT+9*, PRINT+10*, PRINT+14*, PRINT+15*, PRINT+26, PRINT+29, PRINT+30*, PRINT+37*
PRINT+42, PRINT+43*, PRINT+49*, PRINT+54, PRINT+55*, PRINT+63*, PRINT+64*, PRINT+65*, PRINT+66*, PRINT+67*
PRINT+68*, PRINT+69*, PRINT+79*
SORD PROCESS+1~, PROCESS+34*
SS PRINT+1~, PRINT+95*, HEADER+1~, HEADER+4*
STOT PROCESS+1~
STOT( PROCESS+20*, PROCESS+34*, PROCESS+47
TAB PRINT+25*, PRINT+28*, PRINT+31*, PRINT+39*, PRINT+41*, PRINT+44*, PRINT+51*, PRINT+53*, PRINT+56*, HEADER+1~
HEADER+15*, HEADER+16, HEADER+17, HEADER+18*, HEADER+19*, HEADER+20*
TL PROCESS+1~, PROCESS+14*, PROCESS+17
TL( PROCESS+38*, PROCESS+40, PROCESS+41!
TMOV PROCESS+1~, PROCESS+23*, PROCESS+32, PROCESS+33, PROCESS+34
TNM PRINT+1~, PRINT+7*, PRINT+14, PRINT+16, HEADER+16, HEADER+17, LEGEND+3
TYPE PROCESS+12*, PROCESS+13, PRINT+2~, PRINT+7*, PRINT+9, PRINT+10, PRINT+11, PRINT+20, PRINT+21, PRINT+25
PRINT+27, PRINT+37, PRINT+39, PRINT+40, PRINT+51, PRINT+52, PRINT+60*, HEADER+15, HEADER+16, HEADER+17
HEADER+18, HEADER+19, LEGEND+4, LEGEND+5, LEGEND+6, LEGEND+7
U PROCESS+12, PROCESS+14, PROCESS+16, PROCESS+20, PROCESS+23, PROCESS+32, PROCESS+33, PROCESS+34, PROCESS+39, PROCESS+40
PROCESS+47, PRINT+11, PRINT+14, PRINT+19, PRINT+26, PRINT+28, PRINT+29, PRINT+30, PRINT+34, PRINT+41
PRINT+42, PRINT+43, PRINT+48, PRINT+49, PRINT+53, PRINT+54, PRINT+55, PRINT+63, PRINT+76, PRINT+77
PRINT+79, PRINT+80, PRINT+82, PRINT+83, HEADER+7, HEADER+13, HEADER+14
W PROCESS+1~, PROCESS+15*, PROCESS+16, PROCESS+17, PROCESS+38*, PROCESS+39, PROCESS+40, PROCESS+41
W1 PRINT+2~, PRINT+22*, PRINT+23
W2 PRINT+2~, PRINT+22*, PRINT+23
WARD PROCESS+1~, PROCESS+23*, PROCESS+28, PROCESS+31, PROCESS+32, PROCESS+33
WRDNM PRINT+1~, PRINT+19*, PRINT+20*, PRINT+22, PRINT+23*, PRINT+25
WRDTOT PRINT+1~, PRINT+28*, PRINT+29, PRINT+61*, PRINT+63, PRINT+71
X EN+1~, EN+23*, PROCESS+1~, PROCESS+5*
Y EN+1~, EN+18, EN+23, PROCESS+1~, PROCESS+5, PROCESS+7*, HEADER+5
>> ZTQUEUED PROCESS+35, PROCESS+37, PRINT+4
ZTREQ PROCESS+35!, PROCESS+37!, PRINT+4!
>> ZTSTOP PROCESS+35*, PROCESS+37*, 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