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
Print Page as PDF
Routine: FHASP

Package: Dietetics

Routine: FHASP


Information

FHASP ; HISC/REL - Nutrition Profile ;11/16/94 16:55

Source Information

Source file <FHASP.m>

Entry Points

Name Comments DBIA/ICR reference
P0
L0
Q0 ; Print Profile
Q1
LAB
HF ; Do Header and Footer
HEAD ; Page Header
FOOT ; Page Footer
PAUSE ; Pause For Scroll
KIL ; Final variable kill

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: !!,"Status: "
  • Line Location: Q0+5
Function Call: WRITE
  • Prompt: "Outpatient"
  • Line Location: Q0+5
Function Call: WRITE
  • Prompt: "Inpatient admitted ",DTP
  • Line Location: Q0+6
Function Call: WRITE
  • Prompt: !!,"Problem: ",FHPROB,!,"Additional Problem: ",FHADPROB
  • Line Location: Q0+14
Function Call: WRITE
  • Prompt: !!,"Nutrition Status: "
  • Line Location: Q0+15
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.4,RC,0)),"^",2)
  • Line Location: Q0+15
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.4,RC,0)),"^",2)
  • Line Location: Q0+15
Function Call: WRITE
  • Prompt: !!,"Allergies: "
  • Line Location: Q0+16
Function Call: WRITE
  • Prompt: !!?29,"Nutrition Assessments"
  • Line Location: Q0+17
Function Call: WRITE
  • Prompt: !!?5,"No assessments on file."
  • Line Location: Q0+18
Function Call: WRITE
  • Prompt: !!,"Recent Assessments:"
  • Line Location: Q0+19
Function Call: WRITE
  • Prompt: " ",$E(DTP,1,9)
  • Line Location: Q0+20
Function Call: WRITE
  • Prompt: !!,"Vitals Height: "
  • Line Location: Q0+29
Function Call: WRITE
  • Prompt: " (",FHX1,")"
  • Condition for execution: FHX2'="" FHX2 W:FHX1'=""
  • Line Location: Q0+29
Function Call: WRITE
  • Prompt: !,"Last Wt: "
  • Line Location: Q0+35
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: WGT
  • Line Location: Q0+35
Function Call: WRITE
  • Prompt: !,"Usual Wt: "
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: UWGT
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: ?40,"Last Wt/Usual Wt: "
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: UWGT
  • Line Location: Q0+37
Function Call: WRITE
  • Prompt: !,"Target Wt: "
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: IBW
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: ?40,"Last Wt/TBW: "
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: X2," (",X1,")"
  • Condition for execution: IBW
  • Line Location: Q0+39
Function Call: WRITE
  • Prompt: !,"Body Mass Index: ",BMI
  • Line Location: Q0+42
Function Call: WRITE
  • Prompt: ?40,"Date Taken: ",DTP
  • Line Location: Q0+43
Function Call: WRITE
  • Prompt: !!?5,"Nutrition Class: "
  • Line Location: Q0+44
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.3,XD,0)),"^",1)
  • Line Location: Q0+44
Function Call: WRITE
  • Prompt: !!?34,"Medications"
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !?5,FHCN3
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!?5,"No current medications in selected drug classes."
  • Line Location: Q1+5
Function Call: WRITE
  • Prompt: !!?32,"Laboratory Data"
  • Line Location: Q1+6
Function Call: WRITE
  • Prompt: !!?5,"No selected laboratory data available last ",$S($D(^FH(119.9,1,3)):$P(^(3),"^",2),1:90)," days."
  • Line Location: Q1+9
Function Call: WRITE
  • Prompt: !?5,"Test",?30,"Result units",?51,"Ref. range",?67,"Date",!
  • Line Location: LAB+1
Function Call: WRITE
  • Prompt: !?5,$P(LRTST(K),"^",1),?27,$P(LRTST(K),"^",6),?40,$P(LRTST(K),"^",4),?51,$P(LRTST(K),"^",5),?65,DTP
  • Line Location: LAB+3
Function Call: WRITE
  • Prompt: !,LN,!,DTP,?31,"NUTRITION PROFILE",?73,"Page ",PG,!,LN
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,NAM,?40,$S(SEX="M":"Male",SEX="F":"Female",1:""),?73,"Age ",AGE,!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,LN,!,NAM
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: ?(80-$L(SITE)\2),SITE,?67,"VAF 10-9034"
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: ?66,"(Vice SF 509)"
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: FOOT+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue. "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1
Info |  Source |  Entry Points |  Interaction Calls