Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Dietetics 7 (DTP,TR)^FH  (KIL,TR,WGP,WGT)^FHASM1  ^FHASM2A  ^FHASM2B  ^FHASM2C  H^FHASM2D  ^FHASM3  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASM1  

Entry Points

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

External References

Name Field # of Occurrence
^DIC AAS+5, AAS+9
^DIR A2
DTP^FH PRTA+1
TR^FH ASK+4
KIL^FHASM1 FRM+1, F1+2, SEL, SEL+5, AMP+1, AMP+3, A2, A2+1, A3, A4+1
TR^FHASM1 F1+3, SEL+2, AMP+4
WGP^FHASM1 A4+3, E+3
WGT^FHASM1 A4+3, E+3
^FHASM2A SEL+5
^FHASM2B SEL+5
^FHASM2C SEL+5
H^FHASM2D SEL+5
^FHASM3 A5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Amputee Types: "
  • Formatting: !!?2
  • Timeout: DTIME
  • Variable: X
  • Line Location: A2+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A3+0
Function Call: WRITE
  • Prompt: *7,!,"Total % of amputations should be .5% to 50%"
  • Line Location: A3+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Do you want to Edit or Create or Delete Assessment? E// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: FHASK
  • 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
Routine Call
  • DIC
  • Line Location:
    • AAS+5
    • AAS+9
Routine Call
  • DIR
  • Line Location:
    • A2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FHPT - [#115] DCS, DCS+1, DCS+2, DCS+3, DCS1+1, DCS1+2, DCS1+3, DCS1+4, DCS1+5
^XUSEC("FHMGR" DCS, DCS+3, DCS1+2, DCS1+5

Label References

Name Line Occurrences
A2 A6
A3 A3+1
A4 A4+3
A5 AMP+8, A2, A4+2
A6 A2+2
AAS ASK+7, AAS+10
AMP AMP+6
ASK ASK+6
DCS1 PRTA+3
E SEL+5, E+3
F1 FRM+4, F1+4
FRM FRM+5
IBW FRM+9, SEL+5
PRTA ASK+1
SEL SEL+3

Naked Globals

Name Field # of Occurrence
^(0 DCS+1, DCS+2, DCS1+3, DCS1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE IBW+3, IBW+4, IBW+5, IBW+6, IBW+7
>> AMP AMP, AMP+8*, A2, A2+1*, A2+2*, A3, A3+2*
>> CIBW SEL, SEL+1, SEL+4*
>> DA AAS+2*
DIC AAS+2!*, AAS+5*, AAS+12!
DIC("A" AAS+6*
DIC("S" AAS+3*
DIC("W" AAS+4*, AAS+8*
DIC(0 AAS+2*, AAS+5*
DIR A2!
DIR("A" A2*
DIR("B" A2*
DIR(0 A2*
>> DIRUT A2
DTIME FRM+1, F1+1, SEL, AMP+2, A2+1, A3, A4+1, E+1, ASK+3
>> DTOUT AAS+9
>> DTP PRTA+1*
DUZ DCS, DCS+1, DCS+2, DCS+3, DCS1+2, DCS1+3, DCS1+4, DCS1+5
>> FHAMP AMP*, AMP+2, AMP+4, AMP+5*, AMP+6, AMP+8
>> FHASK ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6, ASK+7
>> FHASS PRTA+2
>> FHCAS AAS+11*, PRTA+2
>> FHCASD PRTA+1
>> FHDFN AAS+2, DCS, DCS+1, DCS+2, DCS+3, DCS1+1, DCS1+2, DCS1+3, DCS1+4, DCS1+5
>> FHDIC ASK+2, DCS*, DCS+1*, DCS+2*, DCS+3*, DCS1*, DCS1+2*, DCS1+3*, DCS1+4*, DCS1+5*
>> FHI9 DCS1+1*, DCS1+2, DCS1+3, DCS1+4, DCS1+5
>> FHQUIT F1+2*, SEL+5, AMP+1, AMP+3*, E+1*, ASK+3*, AAS+9*
>> FHU A4
>> FRM FRM+7*, FRM+8*, FRM+9, F1*, F1+1, F1+3, F1+5*
>> H1 IBW+2, IBW+3, IBW+4, IBW+5, IBW+6
>> HGT FRM+6
>> IBW SEL+5, A3+2*, A4, A4+4*, A5*, E+1, E+2, E+4*
>> K A2+2*
>> METH IBW+1*, IBW+2*, IBW+3*, IBW+4*, IBW+5*, IBW+6*, IBW+7*, IBW+8*, SEL+3, SEL+5*
>> RAT FRM+6*, FRM+7, FRM+8
>> SEX FRM+7, FRM+8, IBW+3, IBW+4, IBW+5, IBW+6
U DCS+1, DCS+2, DCS+3, DCS1+3, DCS1+4, DCS1+5
>> WCCM FRM+1, FRM+2, FRM+3*
>> WCIR FRM+6*
>> X FRM+1*, FRM+2*, FRM+3, FRM+4, FRM+5, FRM+6, F1+1*, F1+2, F1+3*, F1+4
, F1+5, SEL*, SEL+1*, SEL+3, SEL+4, SEL+5, AMP+2*, AMP+3, AMP+4*, AMP+5
, A2+1*, A2+2, A3*, A3+1, A3+2, A4+1*, A4+2, E+1*, E+2*, ASK+4*
, AAS+2*, AAS+9
>> X1 A4*, A4+1, A4+2
>> Y A2, A2+2*, A4+3, A4+4, E+3, E+4, AAS+10, AAS+11, DCS, DCS+1
, DCS+2, DCS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All