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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call