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

Package: Dietetics

Routine: FHASMR1


Information

FHASMR1 ; HISC/REL/NCA/JH - Assessment Report (cont) ;5/17/96 12:48

Source Information

Source file <FHASMR1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Print Report
EN1
FLG7
Q4
DRU ;pharmacy data.
DIA ;patch #8: adding diagnosis, follow-up date and status data.
DCOM ;print follow up date and status and comments
Q6
LAB
HF ; Do Header and Footer
HEAD ; Page Header
FOOT ; Page Footer
PAUSE ; Pause to Scroll

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,NAM,?40,$S(SEX="M":"Male",1:"Female"),?60,"Age ",AGE
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?25,"Date of Assessment: ",$E(DTP,1,9)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Diagnosis: ",$E(FHRDIPL,1,30)
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"Problem: ",$E(FHRDINA,1,30)
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"Additional Problem: ",$E(FHRDINF,1,30)
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"Current Diet: ",$E(FHRDIDI,1,33)
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: DTP
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: ?50,"Weight Taken: ",DTP
  • Line Location: FLG7+5
Function Call: WRITE
  • Prompt: ?50,"New Weight Taken: ",DTP
  • Line Location: FLG7+7
Function Call: WRITE
  • Prompt: !,"Usual Weight: "
  • Line Location: FLG7+10
Function Call: WRITE
  • Prompt: $S(FHU'="M":X1,1:X2)," (",$S(FHU'="M":X2,1:X1),")"
  • Condition for execution: UWGT
  • Line Location: FLG7+10
Function Call: WRITE
  • Prompt: ?50,"% Usual Wt: "
  • Line Location: FLG7+10
Function Call: WRITE
  • Prompt: $S(FHU'="M":X1,1:X2)," (",$S(FHU'="M":X2,1:X1),")"
  • Condition for execution: UWGT
  • Line Location: FLG7+10
Function Call: WRITE
  • Prompt: !,"Target Weight: ",$S(FHU'="M":X1,1:X2)," (",$S(FHU'="M":X2,1:X1),")"
  • Line Location: FLG7+13
Function Call: WRITE
  • Prompt: ?50,"% Target Wt: "
  • Line Location: FLG7+13
Function Call: WRITE
  • Prompt: $J(WGT/IBW*100,3,0),"%"
  • Condition for execution: IBW
  • Line Location: FLG7+13
Function Call: WRITE
  • Prompt: !?6,"Target weight adjusted for amputation"
  • Line Location: FLG7+14
Function Call: WRITE
  • Prompt: !,"Frame Size: ",$S(FRM="S":"Small",FRM="M":"Medium",FRM="L":"Large",1:"")
  • Line Location: FLG7+15
Function Call: WRITE
  • Prompt: ?50,"Body Mass Index: ",BMI
  • Line Location: FLG7+16
Function Call: WRITE
  • Prompt: !!?26,"Anthropometric Measurements",!?35,"%ile",?71,"%ile",!
  • Line Location: FLG7+19
Function Call: WRITE
  • Prompt: !?4,"Triceps Skinfold (mm)"
  • Line Location: FLG7+20
Function Call: WRITE
  • Prompt: ?31,$J(+TSF,3,0),?36,$J(TSFP,3)
  • Line Location: FLG7+20
Function Call: WRITE
  • Prompt: ?43,"Arm Circumference (cm)"
  • Line Location: FLG7+21
Function Call: WRITE
  • Prompt: ?67,$J(+ACIR,3,0),?72,$J(ACIRP,3)
  • Line Location: FLG7+21
Function Call: WRITE
  • Prompt: !?4,"Subscapular Skinfold (mm)"
  • Line Location: FLG7+22
Function Call: WRITE
  • Prompt: ?31,$J(+SCA,3,0),?36,$J(SCAP,3)
  • Line Location: FLG7+22
Function Call: WRITE
  • Prompt: ?43,"Bone-free AMA (cm2)"
  • Line Location: FLG7+23
Function Call: WRITE
  • Prompt: ?67,$J(+BFAMA,3,0),?72,$J(BFAMAP,3)
  • Line Location: FLG7+23
Function Call: WRITE
  • Prompt: !?4,"Calf Circumference (cm)"
  • Line Location: FLG7+24
Function Call: WRITE
  • Prompt: ?31,$J(+CCIR,3,0),?36,$J(CCIRP,3)
  • Line Location: FLG7+24
Function Call: WRITE
  • Prompt: !!?32,"Laboratory Data",!?5,"Test",?30,"Result units",?51,"Ref. range",?67,"Date"
  • Line Location: Q4+1
Function Call: WRITE
  • Prompt: !!?3,"No laboratory data available last ",$S($D(^FH(119.9,1,3)):$P(^(3),"^",2),1:90)," days"
  • Line Location: Q4+3
Function Call: WRITE
  • Prompt: !!?3,"Medications"
  • Line Location: DRU+1
Function Call: WRITE
  • Prompt: !!,"Educated on Food/Drug Interactions: ",$S(FHREDU="Y":"Yes",1:"No")
  • Line Location: DRU+7
Function Call: WRITE
  • Prompt: !,"FOOD/DRUG COMMENT: ",FHRFDC
  • Line Location: DRU+8
Function Call: WRITE
  • Prompt: !,"Protein Requirements: ",PRO," gm/day"
  • Line Location: DRU+14
Function Call: WRITE
  • Prompt: ?50,"NPC:N ",$J(KCAL-(PRO*4)/N,0,0),":1"
  • Condition for execution: N
  • Line Location: DRU+14
Function Call: WRITE
  • Prompt: !,"Fluid Requirements: ",FLD," ml/day"
  • Line Location: DRU+17
Function Call: WRITE
  • Prompt: !,"Nutrition Class: "
  • Line Location: DRU+20
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.3,XD,0)),"^",1)
  • Line Location: DRU+20
Function Call: WRITE
  • Prompt: !,"Nutrition Status: "
  • Line Location: DRU+21
Function Call: WRITE
  • Prompt: ?20,$P($G(^FH(115.4,RC,0)),"^",2)
  • Line Location: DRU+21
Function Call: WRITE
  • Prompt: !!,"Comments",!
  • Line Location: DRU+24
Function Call: WRITE
  • Prompt: !!,"Follow-up Date: ",DTP
  • Line Location: DCOM+2
Function Call: WRITE
  • Prompt: ?40,"Assessment Status: ",$S(FHRDIST="C":"Completed",FHRDIST="S":"Signed",FHRDIST="W":"Work in Progress",1:"")
  • Line Location: DCOM+3
Function Call: WRITE
  • Prompt: !!,"Comments:"
  • Line Location: DCOM+5
Function Call: WRITE
  • Prompt: !,^FHPT(FHDFN,"N",ASN,"X",K,0)
  • Line Location: DCOM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DCOM+8
Function Call: WRITE
  • Prompt: !?38,UL
  • Line Location: DCOM+9
Function Call: WRITE
  • Prompt: !?38,"Signature",?68,"Date"
  • Line Location: DCOM+9
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+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,LN,!,DTP,?29,"NUTRITION ASSESSMENT",?73,"Page ",PG,!,LN
  • 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: ?(80-$L(W1)\2),W1,?66,"(Vice SF 509)"
  • Line Location: FOOT+6
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: FOOT+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue. "
  • Variable: YN
  • 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