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

Package: Dietetics

Routine: FHPRC10


Information

FHPRC10 ; HISC/NCA - Meal Analysis ;3/6/95 15:41

Source Information

Source file <FHPRC10.m>

Entry Points

Name Comments DBIA/ICR reference
GET
ED
E1 ; Enter/Edit Day
E2 ; Enter/Edit Meal #
R0 ; Edit Meal File
S1 ; Edit Production Diet
R1 ; Edit Recipe and Portion
R2
R3 ; Select RDA Category
F1
S3
PAT
P1
P2
KIL ; Kill all Used Variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to EDIT this Menu? NO// "
  • Variable: YN
  • Timeout: DTIME
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: READ
  • Formatting: !
  • Prompt: "Select DAY #: "
  • Variable: DAY
  • Timeout: DTIME
  • Line Location: E1+1
Function Call: WRITE
  • Prompt: *7," Enter a Day # from 1-7"
  • Line Location: E1+3
Function Call: READ
  • Formatting: !
  • Prompt: "Select MEAL #: "
  • Variable: MEAL
  • Timeout: DTIME
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: *7," Enter a Meal # from 1-6"
  • Line Location: E2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R0+3
Function Call: WRITE
  • Prompt: !,"Select Meal: ",$S($P($G(^FH(116.1,+S1,0)),"^",1)'="":$P(^FH(116.1,+S1,0),"^",1)_" // ",1:"") R X:DTIME G:'$T!(X["^")
  • Line Location: R0+3
Function Call: WRITE
  • Prompt: " Meal Deleted"
  • Line Location: R0+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Recipe: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: *7,!,"Enter amount of serving portion. Enter 0 to omit recipe;",!,"otherwise enter a number greater than 0 but less than 9999."
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: R3+1
Function Call: WRITE
  • Prompt: *7,!!?5," [ Patient has expired. ]"
  • Line Location: F1+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish a detailed analysis? Y// "
  • Variable: SUM
  • Timeout: DTIME
  • Line Location: S3+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: S3+0
Function Call: WRITE
  • Prompt: !!,"The Analysis requires a 132 column printer.",!
  • Line Location: S3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S3+3
Function Call: WRITE
  • Prompt: !,"Request Queued",!
  • Line Location: S3+8
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

FileMan Files Accessed Via FileMan Db Call

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