ECXUTLA ;ALB/JAP - Utilities for Audit Reports ;3/9/16 16:18
Source file <ECXUTLA.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ECX(727 - [#727] | Classic Fileman Calls |
^ECX(727.1 - [#727.1] | Classic Fileman Calls |