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

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

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
Info |  Source |  Entry Points |  Interaction Calls