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

Package: DSS Extracts

Routine: ECXUTLA


Information

ECXUTLA ;ALB/JAP - Utilities for Audit Reports ;3/9/16 16:18

Source Information

Source file <ECXUTLA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
DSS Extracts 4 ^ECXKILL  ^ECXTRAC  ECXDEF^ECXUTL2  RANGE^ECXUTLA  
VA FileMan 4 (,DD)^%DT  ^DIC  EN^DIQ1  ^DIR  
Kernel 2 ^%ZIS  ^%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: 27

Package Total Caller Graph
DSS Extracts 27 ECXAADM  ECXADEN  ECXAECQ  ECXAECS  ECXALAB  ECXAMOV  ECXAMTL  ECXANUR  
ECXANUT  ECXAPAS  ECXAPRO  ECXAPRO2  ECXARAD  ECXASUR  ECXATRT  ECXBSC  
ECXCPRO  ECXLARA  ECXLBBC  ECXLPRO  ECXRACPT  ECXSADEN  ECXSARAD  ECXSARXS  
ECXSASUR  ECXUTLA  ECXWRD  

Entry Points

Name Comments DBIA/ICR reference
AUDIT(ECXHEAD,ECXERR,ECXARRAY,ECXAUD) ;set audit report parameters
; input
; ECXHEAD = extract HEADER CODE (required)
; (from file #727.1, field #7)
; ECXERR = passed-by-reference variable (required)
; ECXARRAY = passed-by-reference array (required)
; ECXAUD = 0/1 (optional)
; 0 --> extract audit (default)
; 1 --> SAS audit
; output
; ECXARRAY = array of audit parameters
; ECXARRAY("DEF") = ien of extract type in file #727.1
; ECXARRAY("TYPE") = print name for extract; field #7 in file #727.1
; ECXARRAY("EXTRACT") = ien of extract in file #727
; ECXARRAY("START") = start date for extract audit
; ECXARRAY("END") = end date for extract audit
; ECXARRAY("ERUN") = date on which extract was generated
; ECXARRAY("DIV") = ien of station if file #4
; error CODE
; ECXERR = 1, if input problem occurs
; 0, otherwise
RANGE(ECXSTART,ECXEND,ECXERR) ;determine date range for extract audit report
; input
; ECXSTART = start date of extract in file #727 (required)
; passed by reference
; ECXEND = end date of extract in file #727 (required)
; passed by reference
; ECXERR = passed by reference (required)
; output
; ECXSTART = user selected start date
; ECXEND = user selected end date
; error CODE
; ECXERR = 1, if input problem occurs
; 0, otherwise
DEVICE(ZTRTN,ZTDESC,ZTSAVE) ;get print device and optionally task to background
; input
; ZTRTN = line^routine; task entry point (required)
; variable for %ZTLOAD
; ZTDESC = task description (required)
; variable for %ZTLOAD
; ZTSAVE = array; passed by reference (required)
; variables for %ZTLOAD
; output
; ZTSAVE = returns ZTSAVE("POP"),ZTSAVE("ZTSK")
WARDS(ECXALL,ECXDIV) ;get wards for selected divisions
; input
; ECXALL = 1/0 (optional)
; 1==> user selected all divisions OR
; facility is non-divisional
; 0==> user selected some divisions
; if ECXALL not defined, then assume 1
; ECXDIV = array of divisions selected (optional)
; passed by reference array containing
; selected divisions;
; if ECXALL=1, then ECXDIV array isn't
; required; information for all wards will be obtained
; if ECXALL=0, then only wards for divisions in ECXDIV
; output
; ^TMP($J,"ECXWARD", contains ward name, division, g&l order
; ^TMP($J,"ECXORDER", contains ward grouping info
SASHEAD(ECXFL,ECXHEAD,ECXDIV,ECXARRAY,ECXPG,ECXTAB) ;header and page control
RUN ;154 Section allows extract to be run from within audit report

External References

Name Field # of Occurrence
^%DT RANGE+18, RANGE+19, RANGE+27, RANGE+42
DD^%DT RANGE+34, RANGE+49
^%ZIS DEVICE+16
^%ZTLOAD DEVICE+23
^DIC AUDIT+27, AUDIT+32
EN^DIQ1 AUDIT+35
^DIR AUDIT+45, SASHEAD+14, RUN+15
^ECXKILL RUN+20
^ECXTRAC RUN+20
ECXDEF^ECXUTL2 RUN+18
RANGE^ECXUTLA AUDIT+53

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"Extract: ",ECXARR(727,ECXDA,2,"E")," #",ECXDA
  • Line Location: AUDIT+36
Function Call: WRITE
  • Prompt: !!,?5,"Start date: ",ECXARR(727,ECXDA,3,"E")
  • Line Location: AUDIT+37
Function Call: WRITE
  • Prompt: !,?5,"End date: ",ECXARR(727,ECXDA,4,"E")
  • Line Location: AUDIT+38
Function Call: WRITE
  • Prompt: !,?5,"# of Records: ",ECXARR(727,ECXDA,5,"E")
  • Line Location: AUDIT+39
Function Call: WRITE
  • Prompt: !,?5,"Station: ",ECXARR(727,ECXDA,15,"E")
  • Line Location: AUDIT+40
Function Call: WRITE
  • Prompt: !!,?5,"You can narrow the date range, if you wish.",!
  • Line Location: RANGE+22
Function Call: WRITE
  • Prompt: !,?5,"The Start Date can't be earlier than ",ECXSTART,","
  • Line Location: RANGE+23
Function Call: WRITE
  • Prompt: !,?5,"or later than ",ECXEND,".",!
  • Line Location: RANGE+24
Function Call: WRITE
  • Prompt: !!,?5,"The End Date can't be earlier than ",ECXSTART
  • Line Location: RANGE+37
Function Call: WRITE
  • Prompt: !,?5,"(the Start Date you selected), or later than ",ECXEND,".",!
  • Line Location: RANGE+38
Function Call: WRITE
  • Prompt: !
  • Line Location: SASHEAD+13
Function Call: WRITE
  • Prompt: !,"SAS Audit Report for "_ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract"
  • Line Location: SASHEAD+17
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXARRAY("EXTRACT")
  • Line Location: SASHEAD+18
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: SASHEAD+19
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: SASHEAD+20
Function Call: WRITE
  • Prompt: !,"Division/Site: "_$P(ECXDIV(ECXFL),U,2)_" ("_ECXFL_")",?68,"Page: "_ECXPG
  • Line Location: SASHEAD+21
Function Call: WRITE
  • Prompt: !,"Division/Site: "_"Unknown",?68,"Page: "_ECXPG
  • Line Location: SASHEAD+22
Function Call: WRITE
  • Prompt: !!,"Feeder",?12,"Feeder Location",!,"Location",?12,"Name",?ECXTAB,"Feeder Key",?68,"Quantity"
  • Line Location: SASHEAD+23
Function Call: WRITE
  • Prompt: !!,"Feeder Location",?ECXTAB,"Feeder Key",?68,"Quantity"
  • Line Location: SASHEAD+24
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: SASHEAD+25
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+2
Routine Call
  • DIC
  • Line Location:
    • AUDIT+27
    • AUDIT+32
Routine Call
  • DIR
  • Line Location:
    • AUDIT+45
    • SASHEAD+14
    • RUN+15
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECX(727 - [#727] Classic Fileman Calls
^ECX(727.1 - [#727.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WARDS+22, WARDS+23, WARDS+25, WARDS+29, WARDS+31
^ECX(727.1 - [#727.1] AUDIT+24
^ECX(727.4 - [#727.4] WARDS+25
^TMP($J WARDS+18!, WARDS+32*, WARDS+33*, WARDS+36, WARDS+39*, WARDS+40*

Label References

Name Line Occurrences
RUN AUDIT+33

Naked Globals

Name Field # of Occurrence
^(1 WARDS+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT RANGE+16~, RANGE+26*, RANGE+41*
%DT("A" RANGE+26*, RANGE+41*
%DT("B" RANGE+26*, RANGE+41*
%DT(0 RANGE+26*, RANGE+41*
>> %ZIS DEVICE+16*
DA AUDIT+22~, AUDIT+34*
DATA WARDS+17~, WARDS+36*, WARDS+37
DATEA RANGE+16~, RANGE+18*, RANGE+26, RANGE+31*, RANGE+34, RANGE+44
DATEB RANGE+16~, RANGE+19*, RANGE+29, RANGE+41, RANGE+46*, RANGE+49
DEPT WARDS+17~, WARDS+25*, WARDS+32, WARDS+37*, WARDS+38
DIC AUDIT+22~, AUDIT+26*, AUDIT+28!, AUDIT+31*, AUDIT+34*
DIC("S" AUDIT+31*
DIC(0 AUDIT+26*, AUDIT+31*
DIQ AUDIT+22~, AUDIT+34*
DIQ(0 AUDIT+34*
DIR AUDIT+22~, SASHEAD+14!, RUN+1~, RUN+15!
DIR("A" AUDIT+45*, RUN+3*, RUN+4*, RUN+5*, RUN+6*, RUN+7*, RUN+8*, RUN+9*, RUN+10*, RUN+11*
, RUN+12*, RUN+13*, RUN+14*
DIR("B" AUDIT+45*, RUN+15*
DIR(0 AUDIT+45*, SASHEAD+14*, RUN+15*
DIRUT AUDIT+22~, AUDIT+46
DIV WARDS+17~, WARDS+23*, WARDS+24, WARDS+32, WARDS+37*, WARDS+39, WARDS+40
>> DR AUDIT+34*
DTOUT AUDIT+22~, AUDIT+33, RANGE+16~, RANGE+27, RANGE+42, RUN+1~
DUOUT AUDIT+22~, AUDIT+33, RUN+1~
ECFILE RUN+1~, RUN+18, RUN+19
ECGRP RUN+1~, RUN+18
ECHEAD RUN+1~, RUN+17*, RUN+18
ECPACK RUN+1~, RUN+18
ECPIECE RUN+1~, RUN+18
ECRTN RUN+1~, RUN+18
ECVER RUN+1~, RUN+18
ECXALL WARDS~, WARDS+20*, WARDS+24
ECXARR AUDIT+22~
ECXARR(727 AUDIT+36, AUDIT+37, AUDIT+38, AUDIT+39, AUDIT+40, AUDIT+42, AUDIT+44, AUDIT+49, AUDIT+50
ECXARRAY AUDIT~, AUDIT+54!, SASHEAD~
ECXARRAY("DEF" AUDIT+49*
ECXARRAY("DIV" AUDIT+49*
ECXARRAY("END" AUDIT+50*, AUDIT+53, AUDIT+56*, SASHEAD+19
ECXARRAY("ERUN" AUDIT+50*
ECXARRAY("EXTRACT" AUDIT+49*, SASHEAD+18
ECXARRAY("START" AUDIT+50*, AUDIT+53, AUDIT+56*, SASHEAD+19
ECXARRAY("TYPE" AUDIT+49*, SASHEAD+17
ECXAUD AUDIT~, AUDIT+29, AUDIT+33, AUDIT+52
ECXAUDIT RUN+1~, RUN+17*
ECXDA AUDIT+22~, AUDIT+34*, AUDIT+36, AUDIT+37, AUDIT+38, AUDIT+39, AUDIT+40, AUDIT+42, AUDIT+44, AUDIT+49
, AUDIT+50
ECXDIV WARDS~, SASHEAD~
ECXDIV( WARDS+24, SASHEAD+21, SASHEAD+22
ECXEND AUDIT+22~, AUDIT+53*, AUDIT+56, RANGE~, RANGE+19, RANGE+24, RANGE+30, RANGE+32!, RANGE+38, RANGE+41
, RANGE+47!, RANGE+49*
ECXERR AUDIT~, AUDIT+23*, AUDIT+24*, AUDIT+25, AUDIT+27*, AUDIT+29*, AUDIT+30, AUDIT+33*, AUDIT+46*, AUDIT+47
, AUDIT+53, AUDIT+54, AUDIT+55, RANGE~, RANGE+17*, RANGE+25, RANGE+27*, RANGE+28, RANGE+32, RANGE+33
, RANGE+40, RANGE+42*, RANGE+43, RANGE+47, RANGE+48
ECXFL SASHEAD~, SASHEAD+21, SASHEAD+22
ECXHEAD AUDIT~, AUDIT+24, AUDIT+29, AUDIT+40, SASHEAD~, SASHEAD+17, SASHEAD+23, SASHEAD+24, RUN+14, RUN+17
ECXPG SASHEAD~, SASHEAD+16*, SASHEAD+21, SASHEAD+22
>> ECXRUN SASHEAD+20
ECXSTART AUDIT+22~, AUDIT+53*, AUDIT+56, RANGE~, RANGE+18, RANGE+23, RANGE+26, RANGE+32!, RANGE+34*, RANGE+37
, RANGE+45, RANGE+47!
ECXTAB SASHEAD~, SASHEAD+11*, SASHEAD+23, SASHEAD+24
ECXTYPE AUDIT+22~, AUDIT+28*, AUDIT+49
GROUP WARDS+17~, WARDS+31!*, WARDS+33, WARDS+40*
HIEN WARDS+17~, WARDS+29*, WARDS+32, WARDS+33, WARDS+35*, WARDS+36*, WARDS+39, WARDS+40
IEN WARDS+17~, WARDS+22*, WARDS+23, WARDS+25, WARDS+29, WARDS+31, WARDS+32
IO("Q" DEVICE+16!, DEVICE+21
IOF SASHEAD+16
IOST SASHEAD+12, SASHEAD+16
JJ SASHEAD+9~, SASHEAD+13*
LN SASHEAD+9~, SASHEAD+10*, SASHEAD+25
N AUDIT+22~, AUDIT+24*, AUDIT+26
NAME WARDS+17~, WARDS+25*, WARDS+32, WARDS+37*, WARDS+38
NAMEDEPT WARDS+17~, WARDS+38*, WARDS+39
NM WARDS+17~, WARDS+21*, WARDS+22*
ORDER WARDS+17~, WARDS+25*, WARDS+27*, WARDS+32, WARDS+37*, WARDS+39, WARDS+40
ORDX WARDS+17~, WARDS+21*, WARDS+27*
OUT RANGE+16~, RANGE+17*, RANGE+25, RANGE+31*, RANGE+39*, RANGE+40, RANGE+46*
>> PG SASHEAD+14
POP DEVICE+11~, DEVICE+17, DEVICE+18, DEVICE+20
>> QFLG SASHEAD+14*, SASHEAD+15
SS SASHEAD+9~, SASHEAD+13*
U AUDIT+28, AUDIT+49, WARDS+23, WARDS+25, WARDS+29, WARDS+31, WARDS+32, WARDS+37, WARDS+39, WARDS+40
, SASHEAD+21
WARD WARDS+17~
X AUDIT+22~, AUDIT+26*, AUDIT+28!, RANGE+16~, RANGE+18*, RANGE+19*, RUN+1~
Y AUDIT+22~, AUDIT+27, AUDIT+28!, AUDIT+33, AUDIT+34, AUDIT+46, RANGE+16~, RANGE+18, RANGE+19, RANGE+27
, RANGE+29, RANGE+31, RANGE+34*, RANGE+42, RANGE+44, RANGE+46, RANGE+49*, SASHEAD+14, RUN+1~, RUN+16
Y(0 AUDIT+28
ZTDESC DEVICE~, DEVICE+14
ZTRTN DEVICE~, DEVICE+14
ZTSAVE DEVICE~, DEVICE+14
ZTSAVE("POP" DEVICE+12*, DEVICE+14*, DEVICE+17*, DEVICE+27*, DEVICE+31*
ZTSAVE("ZTREQ" DEVICE+22*
ZTSAVE("ZTSK" DEVICE+12*, DEVICE+26*, DEVICE+30*
ZTSK DEVICE+11~, DEVICE+24, DEVICE+25, DEVICE+26, DEVICE+28
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