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

Package: Dietetics

Routine: FHASM1


Information

FHASM1 ; HISC/REL - Nutrition Assessment ;1/25/00 12:08

Source Information

Source file <FHASM1.m>

Entry Points

Name Comments DBIA/ICR reference
F1 ; Select Patient
STA ;if pt has Work in Progress assessment, ask user to Edit or Create or Delete Assessment.
CRE ;create new assessment
F2
F3
F3A ;start here if edit
F4 ; If Multidivisional site Select Communications Office
F4A
F5
F6
F7
F8
HGT ; Convert Height to inches
H1
H2
HGP ; Height Help
WGT ; Convert Weight to lbs.
W1
WGP ; Weight help
TR ; Translate Lower to Upper Case
KIL ; Final variable kill
PAT
P1
P2
SVAR ;set variables of incomplete assessment.
ASKUS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?20,"N U T R I T I O N A S S E S S M E N T",!!
  • Line Location: FHASM1+2
Function Call: WRITE
  • Prompt: *7,!!?5," [ Patient has expired. ]"
  • Line Location: F1+3
Function Call: WRITE
  • Prompt: ", "
  • Line Location: F1+31
Function Call: WRITE
  • Prompt: ?65,"Deleted..."
  • Line Location: STA+15
Function Call: WRITE
  • Prompt: !!,"Creating new Assessment...",!
  • Line Location: CRE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: F4A+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: !!,"Weight: "
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: KIL
  • Condition for execution: WGT'="" WGT_" lbs","// " R X:DTIME G:'$T!(X["^")
  • Line Location: F5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: F6+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: !!,"Usual Weight: "
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: KIL
  • Condition for execution: UWGT'="" UWGT_" lbs","// " R X:DTIME G:'$T!(X["^")
  • Line Location: F7+0
Function Call: WRITE
  • Prompt: !!,"Enter height as: 6' 2"" or 74"" or 74IN or 6FT 2 IN or 30CM"
  • Line Location: HGP+1
Function Call: WRITE
  • Prompt: !,"Add an S if height is stated rather than measured."
  • Line Location: HGP+2
Function Call: WRITE
  • Prompt: !,"Add a K if value is a Knee Height measurement."
  • Line Location: HGP+3
Function Call: WRITE
  • Prompt: !,"Height should be between 12"" and 96"" (8')."
  • Line Location: HGP+4
Function Call: WRITE
  • Prompt: !!,"Enter Weight as 150# or 150# 6OZ or 800G or 70KG"
  • Line Location: WGP+1
Function Call: WRITE
  • Prompt: !,"Add an S if weight is stated rather than measured."
  • Line Location: WGP+2
Function Call: WRITE
  • Prompt: !,"Enter an A to determine weight anthropometrically."
  • Line Location: WGP+3
Function Call: WRITE
  • Prompt: !,"Weight should be between 0 Lbs and 750 Lbs."
  • Line Location: WGP+4
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 Less Than 124 in Years or Months (followed by M) but Not Both"
  • Line Location: P2+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to SAVE this Assessment Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKUS+0
Function Call: WRITE
  • Prompt: *7,!," Answer YES or NO"
  • Line Location: ASKUS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.73 - [#119.73] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call