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

Package: DSS Extracts

Routine: ECXWRD


Information

ECXWRD ;BIR/CML,ALB/JAP Print Active Wards for Fiscal Year ;11/8/17 14:59

Source Information

Source file <ECXWRD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
START ;
CHK ;has this ward been active?
; output
; X = 1 if inactive (out-of-service), 0 otherwise
HDR ;header and page control
GETSTAT(DIVNUM,STATNO,FACNUM) ; 181 - Added the following sections
GETOFAC(HDR,OFAC) ;181

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option prints a list of all wards that were active at any time"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"during FY",FY,". The list is sorted by Medical Center Division and displays"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"the pointer to the Hospital Location file (#44) and DSS Department data"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"if available."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"This report requires a print width of 132 characters.",!!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"NO DATA FOUND FOR THIS REPORT"
  • Line Location: START+35
Function Call: WRITE
  • Prompt: !?5,$E(ECXWDN,1,20),?30,ECXDEPT,?45,$P(DATA,U,1),?60,$E($P(DATA,U,2),1,18),?80,$P(DATA,U,3)
  • Line Location: START+44
Function Call: WRITE
  • Prompt: !
  • Line Location: START+49
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y!($E(IOST)="C")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Active Wards for FY",FY,!,"Printed on ",HDT,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Expected Divisions with Active Ward/s: ",ECXHDR,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?30,"DSS",?45,"Pointer",?60,"Ward",?80,"Ward"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?5,"WARD",?30,"Department",?45,"to File #44",?60,"Service",?80,"Specialty"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HDR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call