Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECX(727 - [#727] Classic Fileman Calls
^ECX(727.1 - [#727.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call