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

Package: Dietetics

Routine: FHPRC12


Information

FHPRC12 ; HISC/NCA - Meal Analysis Summary ;2/15/95 16:11

Source Information

Source file <FHPRC12.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: READ
  • Timeout: "Male",1:"Female"),?124,"Age:
  • Line Location: FHPRC12+3
Function Call: WRITE
  • Prompt: !?45,"M E A L A N A L Y S I S S U M M A R Y",?124,"Page ",PG,!?57,DTP,!?(132-$L(MNAM)\2),MNAM,!!,"Patient: ",NAM,?63,$S(SEX="M":"Male",1:"Female"),?124,"Age: ",AGE
  • Line Location: FHPRC12+3
Function Call: WRITE
  • Prompt: !,"Station #: ",SITE(1),?45,"M E A L A N A L Y S I S S U M M A R Y",?124,"Page ",PG
  • Line Location: FHPRC12+4
Function Call: WRITE
  • Prompt: !,"Station Name: ",SITE,?57,DTP
  • Line Location: FHPRC12+5
Function Call: WRITE
  • Prompt: ?110,"DRI: ",$P(^FH(112.2,RDA,0),U,1)
  • Condition for execution: RDA
  • Line Location: FHPRC12+5
Function Call: WRITE
  • Prompt: !?(132-$L(MNAM)\2),MNAM
  • Line Location: FHPRC12+6
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: FHPRC12+8
Function Call: WRITE
  • Prompt: !?21,"KCal Gm Gm Gm Mg Mg Mg Mg Mg Mg Mg Mg Mg Mcg Gm Mcg",!
  • Line Location: FHPRC12+9
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