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

Package: Dietetics

Routine: FHPRC11


Information

FHPRC11 ; HISC/NCA - Meal Analysis (cont.) ;2/15/95 16:10

Source Information

Source file <FHPRC11.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ; Print Meal Analysis
P1
P2
P3
P4
P5
P6
HEAD ; Print Header
HEAD1
HD1
HD2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Meal ",MEAL,!
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: Y,!,"Prod Diet: "
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: Y,!,"Prod Diet: "
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: !,$J(SVG,4)," ",RNAM,?24,$J($P(X0,"^",2),5,0)
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !!?7,"Recipe Total",?29
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: P2+5
Function Call: WRITE
  • Prompt: !!,"Daily Total",?29
  • Line Location: P3+0
Function Call: WRITE
  • Prompt: !,"% DRI",?29
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: P3+2
Function Call: WRITE
  • Prompt: !!,"Meal ",MEAL,!
  • Line Location: P5+1
Function Call: WRITE
  • Prompt: Y,!,"PD: "
  • Line Location: P5+1
Function Call: WRITE
  • Prompt: Y,!,"PD: "
  • Line Location: P5+1
Function Call: WRITE
  • Prompt: !,$E(RNAM,1,10),?12
  • Line Location: P5+3
Function Call: WRITE
  • Prompt: !!?3,"Total",?12
  • Line Location: P5+4
Function Call: WRITE
  • Prompt: !!,"Daily Total",?12
  • Line Location: P6+0
Function Call: WRITE
  • Prompt: !,"% DRI",?12
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: !,"Station #: ",SITE(1),?42,"A N A L Y S I S O F M E A L P O R T I O N",?124,"Page ",PG
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"Station Name: ",SITE,?57,DTP
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: ?110,"DRI: ",$P(^FH(112.2,RDA,0),U,1)
  • Condition for execution: RDA
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?(132-$L(MNAM)\2),MNAM
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?42,"A N A L Y S I S O F M E A L P O R T I O N",?124,"Page ",PG,!?57,DTP
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: !?(132-$L(MNAM)\2),MNAM
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !!,"Patient: ",NAM,?63,$S(SEX="M":"Male",1:"Female"),?124,"Age: ",AGE,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !
  • 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+2
Function Call: WRITE
  • Prompt: !
  • 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+2
Info |  Source |  Entry Points |  Interaction Calls