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

Package: Dietetics

Routine: FHASM2


Information

FHASM2 ; HISC/REL - Assessment (cont) ;5/14/93 10:03

Source Information

Source file <FHASM2.m>

Entry Points

Name Comments DBIA/ICR reference
FRM ; Calculate Frame Size
F1
IBW ; Target Body Weight
SEL
AMP
A1
A2
A3
A4
A5
A6
E ; Manual Entry of Target Weight
ASK ;ask user to edit or create assessment.
AAS ;ask user which assesment to edit or delete.
DCS
DCS1
PRTA ;print if there is a current assessment.

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FRM+1
Function Call: WRITE
  • Prompt: *7,!,"Value should be between 2 and 50cm.; press RETURN to bypass."
  • Line Location: FRM+5
Function Call: WRITE
  • Prompt: " ",$S(FRM="S":"Small",FRM="M":"Medium",1:"Large")," Frame"
  • Line Location: FRM+9
Function Call: WRITE
  • Prompt: !!,"Frame Size (SMALL,MEDIUM,LARGE) "_FRM
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: *7," Enter S, M or L"
  • Line Location: F1+4
Function Call: WRITE
  • Prompt: !!,"Calculation of Target Body Weight",!
  • Line Location: IBW+1
Function Call: WRITE
  • Prompt: !?10,"H Hamwi"
  • Line Location: IBW+2
Function Call: WRITE
  • Prompt: !?10,"M Metropolitan 83"
  • Line Location: IBW+3
Function Call: WRITE
  • Prompt: !?10,"S Spinal Cord Injury"
  • Line Location: IBW+3
Function Call: WRITE
  • Prompt: !?10,"M Metropolitan 83"
  • Line Location: IBW+4
Function Call: WRITE
  • Prompt: !?10,"S Spinal Cord Injury"
  • Line Location: IBW+4
Function Call: WRITE
  • Prompt: !?10,"G Geriatric"
  • Line Location: IBW+5
Function Call: WRITE
  • Prompt: !?10,"G Geriatric"
  • Line Location: IBW+6
Function Call: WRITE
  • Prompt: !?10,"P Pediatric"
  • Line Location: IBW+7
Function Call: WRITE
  • Prompt: !?10,"E Enter Manually"
  • Line Location: IBW+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Method: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: G
  • Condition for execution: CIBW'="" CIBW_" // " R X:DTIME I '$T!(X["^")
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: *7,!," You Must Choose from the List Above"
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,"Does Patient have an Amputation? "_FHAMP
  • Line Location: AMP+2
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: AMP+6
Function Call: WRITE
  • Prompt: !!,"Amputee Types: (may be multiple, e.g: 2,2,5)"
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !!?5,"1 Hand (0.7%)",?36,"2 Total Leg (16.1%)",!?5,"3 Total Arm (4.9%)",?36,"4 Foot (1.5%)"
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !?5,"5 Forearm and Hand (2.3%)",?36,"6 Calf and Foot (5.8%)"
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !!,"Total Amputee %: ",AMP
  • Line Location: A2+0
Function Call: READ
  • Formatting: !!?2
  • Prompt: "Amputee Types: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A2+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A3+0
Function Call: WRITE
  • Prompt: *7,!,"Total % of amputations should be .5% to 50%"
  • Line Location: A3+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A4+1
Function Call: WRITE
  • Prompt: *7,!!?5,"Enter a string of types (e.g: 1,1,4); no digit can exceed 6."
  • Line Location: A6+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E+1
Function Call: WRITE
  • Prompt: !!,"Enter Target Body Weight: "
  • Line Location: E+1
Function Call: WRITE
  • Prompt: S
  • Condition for execution: IBW'="" IBW_"lbs// " R X:DTIME I '$T!(X["^")
  • Line Location: E+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to Edit or Create or Delete Assessment? E// "
  • Variable: FHASK
  • Timeout: DTIME
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: *7,!?5,"Enter 'E' to Edit work in progress assessment or 'C' to Create new assessment or 'D' to Delete assessment!!"
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AAS+1
Function Call: WRITE
  • Prompt: !,"You can only access your own Work in Progress Assessment, unless you have an FHMGR key.",!
  • Line Location: AAS+7
Function Call: WRITE
  • Prompt: !!,"Last Assessment on File: ",$S($G(FHCASD):$E(DTP,1,9),1:"No Assessment")
  • Line Location: PRTA+1

FileMan Files Accessed Via FileMan Db Call

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