Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (EN2,TR)^FH  Q1^FHMASE1A  
VA FileMan 2 ^%DT  ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASE1  

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 ;

External References

Name Field # of Occurrence
^%DT D1D2
^%ZIS F2+1
^%ZISC F2+3
^DIC A1N2+2
EN2^FH F2+2
TR^FH A0F0F1
Q1^FHMASE1A F2+3
KILL^XUSCLEAN KIL+1

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
Routine Call
  • DIC
  • Line Location:
    • A1
    • N2+2
Routine Call
  • %ZIS
  • Line Location:
    • F2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J KIL+1!

Label References

Name Line Occurrences
A0 FHMASE1+10, A0
A1 A1
COM FHMASE1+7, IND+4
D1 D1D1+1, D2+1, D2+2
D2 D2
DT FHMASE1+9, IND+6
F0 A0+1, F0
F1 IND+7, A1F1
KIL FHMASE1+9, IND+6, A0A1F0F1F2+1, F2+3
N2 COM+3, N2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT D1*, D2*
>> %DT("A" D1*, D2*
%ZIS F2+1!*, F2+3!
%ZIS("A" F2+1*
>> CO FHMASE1+6*, FHMASE1+8, IND+3*, IND+5, COM+1*, N2+2, N2+4*
>> CON N2+4*
>> CONAM COM+1*, N2+4*
>> CONAME COM+1*, N2+4*
>> CONUMX N2+4*
>> COXX COM+1*
DIC A1!*, N2+1*, N2+5!
DIC("A" A1*, N2+1*
DIC(0 A1*, N2+1*
DT D1+1, D2+2
DTIME COM+2, A0F0F1
>> DTOUT A1D1D2
DUZ IND+6
>> EDT D2*, D2+1, D2+2
>> FHLST F2+2*
>> FHPGM F2+2*
>> FHX1 IND+6*, A1*, F0+1*, F1F1+1
>> FHX2 IND+6*, A1*, F0+1*, F1+1*
>> HEADER FHMASE1+5*, IND+2*
IO F2+3
IO("Q" F2+2
IOP F2+1!, F2+3!
>> POP F2+1
>> SDT D1*, D1+1, D2+1
U FHMASE1+9, IND+6, F0F1D1D2
>> X FHMASE1+9, IND+6, A0*, A0+1, A1, F0*, F0+1, F1*, F1+1, D1*
, D2*
>> Y FHMASE1+6*, FHMASE1+8, IND+3*, IND+5, A1D1D2N2+2, N2+3, N2+4
N2+5
>> ZCO COM+1*, COM+2*, COM+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All