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

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

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

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