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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Dietetics 3 (DTP,EN2,SITE,TR)^FH  ^FHNU3  (RDA,TOT)^FHNU9  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 2 ^%DT  ^DIC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Dietetics 4 FHNU2  FHNU3  FHNU8  FHPRC11  

Entry Points

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

External References

Name Field # of Occurrence
^%DT F1+1
^%ZIS S0+3
^%ZISC S0+5
^DIC GET, F0
DTP^FH F1+1
EN2^FH S0+4
SITE^FH HEAD+1
TR^FH S0
^FHNU3 F1+1, F5
RDA^FHNU9 F8+1, F11+1
TOT^FHNU9 F1+1
KILL^XUSCLEAN KIL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+0
Function Call: READ
  • Prompt: "Do you wish a detailed analysis? Y// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SUM
  • 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
Routine Call
  • DIC
  • Line Location:
    • GET
    • F0
Routine Call
  • %ZIS
  • Line Location:
    • S0+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(112.2 - [#112.2] Classic Fileman Calls
^FHUM - [#112.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("BRK" S0+5
^%ZOSF("NBRK" S0+5
^FH(112.2 - [#112.2] HEAD+3
^TMP($J F5, F6, F7, F7+1, F8, F9, F10, F10+1, F11, KIL+1!

Label References

Name Line Occurrences
F0 F0
F1 S0+5
F11 F9
F5 F11+1
F6 F7+3
F8 F6
F9 F10+1
GET GET
HD1 F6+1, F7, F7+1, F8
HD2 F9+1, F10, F10+1, F11
HEAD F6+1, F7, F7+1, F8, F9+1, F10, F10+1, F11
KIL GET, F0, S0, S0+3, S0+4, S0+5
L1 L1+2
LIS F7, F7+1, F8, F10, F10+1, F11
S0 S0

Naked Globals

Name Field # of Occurrence
^( F7, F10
^(1 F7, F10
^(2 F7, F7+1, F8, F10, F10+1, F11
^(3 F7, F7+1, F8, F10, F10+1, F11
^(4 F7, F7+1, F8, F10, F10+1, F11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT F1+1*
%ZIS S0+3*!, S0+5!
D F1+1!
>> DAY F1+1*, F5*, F6, F7, F7+1, F8, F9, F10, F10+1, F11
, HD1, HD2
>> DEC L1*, L1+2
DIC GET!*, F0!*
DIC("A" F0*
DIC("S" GET*
DIC(0 GET*, F0*
DT F1+1*
DTIME S0
>> DTOUT GET, F0
>> DTP F1+1*, HEAD+3
>> FHLST S0+4*
>> FHPGM S0+4*
IO S0+5
IO("Q" S0+4
IOF HEAD+1
IOP S0+3!, S0+5!
IOSL F7, F7+1, F8, F10, F10+1, F11
IOST HEAD+1
>> ITM L1*, L1+1
>> KK F7+2*, F8+2*, LIS+1*, L1*
>> MEAL F5*, F6*, F6+1, F7, F7+1, F8+4*, F9*, F9+1, F10, F10+1
, HD1+1, HD2+1
>> MENU GET*
>> MNAM GET*, HEAD+4
>> NEW F5*, F6+1, F8+4*, F9+1, HEAD+4*
>> NM F7*, F10*
>> NODE L1*, L1+1
>> NUT L1, HD1+3*, HD2+2*
>> PG F1+1*, HEAD+1*, HEAD+2
>> POP S0+3
>> RDA F0*, HEAD+3
>> SITE HEAD+3
>> SITE(1 HEAD+2
>> SIZ L1*, L1+2
>> SUM S0*, S0+1*, F1+1
T F1+1!
>> TYP GET*
U GET, HEAD+3
>> X GET, F0, S0*, F1+1*
>> X0 F7*, F10*
>> X1 F7*, F7+1*, F7+2, F8*, F8+2, F8+3, F10*, F10+1*, F11*, L1+1
>> X2 F7*, F7+1*, F8*, F10*, F10+1*, F11*, L1+1
>> X3 F7*, F7+1*, F8*, F10*, F10+1*, F11*, L1+1
>> X4 F7*, F7+1*, F8*, F10*, F10+1*, F11*, L1+1
>> Y GET, F0, F1+1
>> Y(0 GET
>> Z1 F7+2*, F8+2*, L1+1*, L1+2*
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 |  Naked Globals |  Local Variables |  All