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

Package: Dietetics

Routine: FHORT5


Information

FHORT5 ; HISC/REL/NCA/RVD - Tubefeeding Reports ;3/1/04 13:31

Source Information

Source file <FHORT5.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (EN2,TR)^FH  Q1^FHORT5A  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Dietetics 5 FHORT5S  FHORTF5  FHORTF5C  FHORTF5L  FHORTF5P  

Entry Points

Name Comments DBIA/ICR reference
PULL ; Product Pick List
ALL ; Print All Reports
KIL
LAB ; Print Tubefeed Labels
A1
A0
A3
COST ; Print Tubefeed Cost Report
A5
A4
A6
PREP ; Print Preparation Report Only
A2

External References

Name Field # of Occurrence
^%ZIS A6+1
^%ZISC A6+3
^DIC A1+1, A2+2
^DIR A5
EN2^FH A6+2
TR^FH A0, A1, A2+1, A4, A5+2
Q1^FHORT5A A6+3
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select C=COMMUNICATION OFFICE or L=LOCATION: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: FHXX
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: *7,"Enter C or L"
  • Line Location: A0+1
Function Call: READ
  • Prompt: "Select LOCATION (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: A1+0
Function Call: READ
  • Prompt: "Select COMMUNICATION OFFICE (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: A2+1
Function Call: READ
  • Prompt: "Consolidated Report Only? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: A4+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: A4+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A5+0
Function Call: READ
  • Prompt: "Do you want multiple labels? N// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: A5+2
Function Call: WRITE
  • Prompt: *7," Enter YES or NO"
  • Line Location: A5+2
Function Call: WRITE
  • Prompt: !!,"The report requires a 132 column printer.",!
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A6+1
Routine Call
  • DIC
  • Line Location:
    • A1+1
    • A2+2
Routine Call
  • DIR
  • Line Location:
    • A5
Routine Call
  • %ZIS
  • Line Location:
    • A6+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.6 - [#119.6] Classic Fileman Calls
^FH(119.73 - [#119.73] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(119.73 - [#119.73] A2
^TMP($J KIL!

Label References

Name Line Occurrences
A0 ALL+1, PREP+1, COST+1, LAB+1, PULL+1, A0+1
A1 A1+1
A2 A0+2, A2+2
A3 A1+2, A2
A4 A4
A5 A3, A5+2
A6 A3, A4+1
KIL A0, A1, A2+1, A4, A5+2, A6+1, A6+2, A6+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS A6+1!*, A6+3!
%ZIS("A" A6+1*
DIC A1+1!*, A2+2!*
DIC(0 A1+1*, A2+2*
DIR A5!
DIR("A" A5*
DIR("B" A5*
DIR(0 A5*
>> DIRUT A5+1
DTIME A0, A1, A2+1, A4, A5+2
>> FHLST A6+2*
>> FHOPT ALL+1*, PREP+1*, COST+1*, LAB+1*, PULL+1*, A3, A6, A6+1
>> FHP A1*, A1+1*, A2*, A2+1*, A2+2*, A3
>> FHPGM A6+2*
>> FHXX A0*, A0+1, A0+2, A1*, A2+1*
IO A6+3
IO("Q" A6+2
IOP A6+1!, A6+3!
LABSTART A5!, A5+1*
>> MUL A3*, A5+3*
>> POP A6+1
>> SUM A3*, A4+1*
>> WRD A1*, A1+1*, A2+1*
>> X A0*, A1*, A2+1*, A2+2, A4*, A4+1, A5+2*, A5+3
>> Y A1+1, A2+2, A5+1
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