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

Package: Dietetics

Routine: FHNU3


Information

FHNU3 ; HISC/REL/NCA - Weekly Summary ;2/15/95 16:08

Source Information

Source file <FHNU3.m>

Entry Points

Name Comments DBIA/ICR reference
T1
T2
T3
T4
LIS ; List nutrient values
L1
AVG ; Get averages

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Station #: ",SITE(1),?43,"E N E R G Y / N U T R I E N T S U M M A R Y",?124,"Page ",PG
  • Line Location: FHNU3+3
Function Call: WRITE
  • Prompt: !,"Station Name: ",SITE,?61,DTP,?110,"DRI: ",$P(^FH(112.2,RDA,0),U,1)
  • Line Location: FHNU3+4
Function Call: WRITE
  • Prompt: !?(132-$L(MNAM)\2),MNAM
  • Line Location: FHNU3+5
Function Call: WRITE
  • Prompt: !!,"Daily Totals",?20,"Energ Pro CHO Fat Sod Pot Calc Phos Iron Zinc Mag Man Cop Sel DFib K"
  • Line Location: FHNU3+6
Function Call: WRITE
  • Prompt: !?21,"KCal Gm Gm Gm Mg Mg Mg Mg Mg Mg Mg Mg Mg Mcg Gm Mcg",!
  • Line Location: FHNU3+7
Function Call: WRITE
  • Prompt: !?3,"Day ",DAY,?19
  • Line Location: T1+5
Function Call: WRITE
  • Prompt: !!,"Daily Average",?19
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !,"Average % DRI",?18
  • Line Location: T2+1
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: T2+2
Function Call: WRITE
  • Prompt: !!!!,"Daily Totals",?24,"A C E Rib Thi Nia B6 B12 Fol Pant Chol 18C2 18C3 Mono PuFa SaFa"
  • Line Location: T2+3
Function Call: WRITE
  • Prompt: !?23,"RE Mg Mg Mg Mg Mg Mg Mcg Mcg Mg Mg Gm Gm Gm Gm Gm",!
  • Line Location: T2+4
Function Call: WRITE
  • Prompt: !?3,"Day ",DAY,?18
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !!,"Daily Average",?18
  • Line Location: T4+0
Function Call: WRITE
  • Prompt: !,"Average % DRI",?17
  • Line Location: T4+1
Function Call: WRITE
  • Prompt: !!,"'+' following a daily value indicates that incomplete data exists.",!
  • Line Location: T4+3
Function Call: WRITE
  • Prompt: Z1
  • Line Location: L1+2
Info |  Source |  Entry Points |  Interaction Calls