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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: FHNU2

Package: Dietetics

Routine: FHNU2


Information

FHNU2 ; HISC/REL/NCA - Analyze Menu ;3/6/95 15:53

Source Information

Source file <FHNU2.m>

Entry Points

Name Comments DBIA/ICR reference
GET
F0
S0
F1 ; Print Nutrient Menu Analysis
F5
F6
F7
F8
F9
F10
F11
LIS ; List nutrient values
L1
KIL ; Final Variable Kill
HEAD ; Print Header
HD1
HD2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish a detailed analysis? Y// "
  • Variable: SUM
  • Timeout: DTIME
  • Line Location: S0+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: S0+0
Function Call: WRITE
  • Prompt: !!,"The Analysis requires a 132 column printer.",!
  • Line Location: S0+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S0+3
Function Call: WRITE
  • Prompt: !,$J(NM,5)," ",$P(X0,"^",1),?24,$J($P(X0,"^",2),5,0)
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: !!?7,"Meal Total",?29
  • Line Location: F7+1
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: F7+2
Function Call: WRITE
  • Prompt: !!,"Daily Total",?29
  • Line Location: F8+0
Function Call: WRITE
  • Prompt: !,"% DRI",?29
  • Line Location: F8+1
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: F8+2
Function Call: WRITE
  • Prompt: !,$J(NM,5),?12
  • Line Location: F10+0
Function Call: WRITE
  • Prompt: !!?3,"Total",?12
  • Line Location: F10+1
Function Call: WRITE
  • Prompt: !!,"Daily Total",?12
  • Line Location: F11+0
Function Call: WRITE
  • Prompt: !,"% DRI",?12
  • Line Location: F11+1
Function Call: WRITE
  • Prompt: Z1
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,"Station #: ",SITE(1),?44,"E N E R G Y / N U T R I E N T A N A L Y S I S",?124,"Page ",PG
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"Station Name: ",SITE,?61,DTP,?110,"DRI: ",$P(^FH(112.2,RDA,0),U,1)
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?(132-$L(MNAM)\2),MNAM
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!,"Day ",DAY,?24,"Quant Energ Pro CHO Fat Sod Pot Calc Phos Iron Zinc Mag Man Cop Sel DFib"
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: ?27,"Gm KCal Gm Gm Gm Mg Mg Mg Mg Mg Mg Mg Mg Mg Mcg Gm",!
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !!,"Day ",DAY,?18,"K A C E Rib Thi Nia B6 B12 Fol Pant Chol 18C2 18C3 Mono PuFA SaFa"
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: ?16,"Mcg RE Mg Mg Mg Mg Mg Mg Mcg Mcg Mg Mg Gm Gm Gm Gm Gm",!
  • Line Location: HD2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(112.2 - [#112.2] Classic Fileman Calls
^FHUM - [#112.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call