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

Package: Dietetics

Routine: FHNU8


Information

FHNU8 ; HISC/REL/NCA - Nutrient Intake Study ;11/16/93 09:52

Source Information

Source file <FHNU8.m>

Entry Points

Name Comments DBIA/ICR reference
F4
F5
F1
F2
Q1 ; Printing Nutrient Intake
C1
C2
C3
C4
KIL
HDR
RAT
PAT
P1
P2
HEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: F4+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F5+0
Function Call: WRITE
  • Prompt: *7,!!?5," [ Patient has expired. ]"
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: !!,"Day ",DAY
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: !," Meal ",MEAL,?7
  • Line Location: C2+1
Function Call: WRITE
  • Prompt: !!," Total",?8
  • Line Location: C3+0
Function Call: WRITE
  • Prompt: !," % DRI",?7
  • Line Location: C3+1
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: C3+2
Function Call: WRITE
  • Prompt: !!,"Day Avg."
  • Line Location: C4+0
Function Call: WRITE
  • Prompt: !," % DRI",?7
  • Line Location: C4+1
Function Call: WRITE
  • Prompt: $J($P(X1,"^",KK)*$S(KK=2:900,1:400)/Z1,7,0)
  • Line Location: C4+2
Function Call: WRITE
  • Prompt: !!,"'+' following a daily value indicates that incomplete data exists.",!
  • Line Location: C4+3
Function Call: WRITE
  • Prompt: @IOF,!!?19,"N U T R I E N T I N T A K E S T U D Y",!!
  • Line Location: HDR+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Patient's Name: "
  • Variable: NAM
  • Timeout: DTIME
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: *7,!?5,"Enter Patient's Name to be printed on the report."
  • Line Location: PAT+1
Function Call: READ
  • Formatting: !
  • Prompt: "Sex: "
  • Variable: SEX
  • Timeout: DTIME
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7," Enter M or F"
  • Line Location: P1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Age: "
  • Variable: AGE
  • Timeout: DTIME
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !?5,"Enter Age in years between 6 and 124"
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?19,"N U T R I E N T I N T A K E S T U D Y",?68,DTP,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Patient: ",NAM,?40,$S(SEX="M":"Male",1:"Female"),?70,"Age: ",AGE,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?9,"Energ Pro CHO Fat Sod Pot Calc Phos Chol H2O"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?10,"KCal Gm Gm Gm Mg Mg Mg Mg Mg Ml",!
  • Line Location: HEAD+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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call