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

Package: Dietetics

Routine: FHMASE1


Information

FHMASE1 ; HISC/AAC - Multidivisional Encounter Statistics ;10/14/03 11:57

Source Information

Source file <FHMASE1.m>

Entry Points

Name Comments DBIA/ICR reference
IND ;List Encounters
COM ; List Encounters for a clinician
A0
A1
F0
F1
F2
KIL ;
DT ; Get From/To Dates
D1
D2
N2 ;Get Communications Office
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Print report for all Communications Offices Y or N: "
  • Variable: ZCO
  • Timeout: DTIME
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Statistics for ALL Clinicians? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Break-down by Clinician? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F0+0
Function Call: READ
  • Formatting: !!
  • Prompt: "List Individual Patient Encounters? N// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F1+0
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: *7," [Cannot Start after Today!] "
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: *7," [End before Start?] "
  • Line Location: D2+1
Function Call: WRITE
  • Prompt: *7," [Must Not enter date greater than Today!] "
  • Line Location: D2+2

FileMan Files Accessed Via FileMan Db Call

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