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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHADR4

Package: Dietetics

Routine: FHADR4


Information

FHADR4 ; HISC/NCA - Annual Nutrition Status Summary ;9/10/93 14:44

Source Information

Source file <FHADR4.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Dietetics 2 HDR2^FHADR3A  (HDR,Q2)^FHADRPT  
VA FileMan 1 C^%DTC  

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 FHADRPT  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Process Screening
Q11 ; T1(1-4) have tabulated statuses for the quarters
; T1(5) is final Total
Q2 ; Tabulate status
EN2 ; Print Summary
LP
HDR ; Print Heading for Nutrition Statuses Summary

External References

Name Field # of Occurrence
C^%DTC Q11+3
HDR2^FHADR3A HDR+1
HDR^FHADRPT HDR+1
Q2^FHADRPT Q1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?13,"TOTAL",?67
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: $J($S($P(T1(5),"^",I):$P(T1(5),"^",I),1:""),5)_$J("",7)
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: ?117,$J($S(XX:XX,1:""),5)
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !,?13,TIT,?67
  • Line Location: LP+0
Function Call: WRITE
  • Prompt: $S($P(T1(I),"^",K):$J($P(T1(I),"^",K),5),1:$J("",5))_$J("",7)
  • Line Location: LP+1
Function Call: WRITE
  • Prompt: ?117,$S($P(T1(K),"^",11):$J($P(T1(K),"^",11),5,0),1:$J("",5))
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: !,?13,"%",?67
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: $S($P(T1(I),"^",K+5):$J($P(T1(I),"^",K+5),5,1),1:$J("",5))_$J("",7)
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: ?117,$S(X6:$J(X6,5,1),1:$J("",5)),!
  • Line Location: LP+5
Function Call: WRITE
  • Prompt: !!!,?14,"NUTRITION STATUS SUMMARY"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?67,"Avg",?79,"Avg",?91,"Avg",?103,"Avg",?117,"YTD"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?13,"Status",?65,"1st Qtr 2nd Qtr 3rd Qtr 4th Qtr Tot Avg",!
  • Line Location: HDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(115.4 - [#115.4] EN2+4
^FH(117 - [#117] Q2+2

Label References

Name Line Occurrences
EN2 Q1+4
HDR EN2+1
LP EN2+4
Q11 Q1+3
Q2 Q11+3

Naked Globals

Name Field # of Occurrence
^(1 Q2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D1 Q11+3*, Q2+2
>> EDT Q11+2, Q11+3
>> FHYR Q1+3
>> FIN Q11+3*, Q11+4, Q2+6*
>> I EN2+5*, LP+1*, LP+3*
>> J EN2+2*, EN2+3*
>> K Q1+2*, Q11+5*, Q11+6*, Q2+4*, Q2+7*, EN2+2*, EN2+4*, LP+1, LP+2, LP+3
, LP+4
>> L Q2+4*
>> L1 Q11+3*
>> LIN HDR+1
M Q1+1!, Q11+3*, Q2+7*, EN2+7!
N Q1+1!, Q11+3*, Q11+5, Q2+4*, EN2+7!
>> ND Q11+3*, Q11+5, Q11+7, Q2+5*
>> PRE Q1+3*
>> QR Q1+3*
>> QTR Q1+3*, Q11+5, Q11+6
S Q1+1!, EN2+7!
S( Q1+2*, Q2+4*, Q2+7
>> SDT Q11+2, Q11+3
T1 Q1+1!, EN2+7!
T1( Q1+2*, Q11+5*, Q11+6*, EN2+2*, EN2+3, LP+1, LP+2, LP+3, LP+4
T1(5 Q11+5*, Q11+6, EN2+5
>> TD Q1+1*, Q11+7*
>> TIT EN2+4*, LP
>> TOT Q2+1*, Q2+4*, Q2+5, Q2+6
>> X Q11+3, Q2+6*, Q2+7*
>> X1 Q11+3*
>> X2 Q11+3*
>> X4 Q2+2*
>> X5 Q2+2*, Q2+3, Q2+4
>> X6 LP+4*, LP+5
>> XX Q1+1*, EN2+3*, EN2+6, LP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All