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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Dietetics 2 (DTP,SITE)^FH  DRUG^FHASM4  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHASM7  FHASMR  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC EN+1
DTP^FH EN+5, EN1, EN1+3, EN1+5, EN1+9, FLG7+4, DCOM+1, LAB, HEAD+2
SITE^FH FOOT+3
DRUG^FHASM4 DRU+2

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
  • Prompt: "Press RETURN to continue. "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: YN
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] FOOT+5
^FH(115.3 - [#115.3] DRU+20
^FH(115.4 - [#115.4] DRU+21
^FH(118.2 - [#118.2] EN1+13
^FH(119.9 - [#119.9] Q4+3
^FHPT - [#115] EN1+10, EN1+11, DIA+3, DIA+14, DIA+15, DIA+16, DIA+17, DIA+18, DIA+19, DCOM+6
, DCOM+7
^VA(200 - [#200] DCOM+7

Label References

Name Line Occurrences
DCOM DRU+22
DIA EN+6
FLG7 EN1+1
FOOT Q6, HF+1
HEAD EN+3, HF+1
HF FLG7+19, Q4, Q4+4, DRU+19, DCOM+6, LAB+1
LAB Q4+2
PAUSE FOOT+1, PAUSE+1
Q4 FLG7+19
Q6 DRU+18, DCOM+8

Naked Globals

Name Field # of Occurrence
^(3 Q4+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1!
>> ACIR FLG7+18, FLG7+21
>> ACIRP FLG7+21
>> ADT EN+5
>> AGE EN+4
>> AMP FLG7+14
>> ANS EN+1*, FLG7+19, Q4, Q4+4, DRU+19, DCOM+6, LAB+1, HF+1, PAUSE+1*
>> APP DRU+19
>> ASN EN+2*, EN1+10, EN1+11, DIA+3, DIA+14, DIA+15, DIA+16, DIA+17, DIA+18, DIA+19
, DCOM+6, DCOM+7
>> BFAMA FLG7+23
>> BFAMAP FLG7+23
>> BMI FLG7+16
>> CCIR FLG7+18, FLG7+24
>> CCIRP FLG7+24
>> DFN FOOT+5, FOOT+6
DT HEAD+2
DTIME PAUSE+1
DTP EN+5*, EN1*, EN1+3*, EN1+5*, EN1+9*, EN1+16!, FLG7+4*, FLG7+5, DCOM+1*, DCOM+2
, LAB*, LAB+2, HEAD+2*, HEAD+3
>> DWGT FLG7+4
>> EXT FLG7+18*, FLG7+19
>> FH7FLG EN1+1
FHASTFZN EN1+11*, EN1+12, EN1+16!
>> FHCAS EN+2
>> FHDFN EN1+10, EN1+11, DIA+3, DIA+14, DIA+15, DIA+16, DIA+17, DIA+18, DIA+19, DCOM+6
, DCOM+7
>> FHDIA DIA+3*, DIA+4, DIA+5, DIA+6, DIA+7, DIA+8, DIA+9, DIA+10, DIA+11, DIA+12
, DIA+13
>> FHFEC DRU+10
>> FHFPC DRU+13
FHI DRU+5*, DRU+9!
FHJ DRU+5*, DRU+6, DRU+9!
FHRDIDI EN+6*, EN1+7, EN1+16!, DIA+10*
>> FHRDINA EN+6*, EN1+4, DIA+17*
FHRDINF EN+6*, EN1+6, EN1+16!, DIA+6*
FHRDINFD EN+6*, EN1+3, EN1+5, EN1+16!, DIA+7*
FHRDIPL EN+6*, EN1+2, EN1+16!, DIA+4*
FHRDIPLD EN+6*, EN1, EN1+16!, DIA+5*
FHRDIST EN+6*, DIA+9*, DCOM+3, DCOM+4!
FHRDITF EN+6*, EN1+16!
FHRDITFC EN+6*, EN1+15, EN1+16!, DIA+14*
FHRDITFD EN+6*, EN1+8, EN1+9, EN1+16!, DIA+11*
FHRDITFK EN+6*, EN1+14, EN1+16!, DIA+13*
FHRDITFM EN+6*, EN1+14, EN1+16!, DIA+12*
FHRDNWGT EN+6*, FLG7+8!
FHREDU EN+6*, DRU+7!, DIA+18*
FHRFDC EN+6*, DRU+8, DRU+9!, DIA+19*
FHRFEC EN+6*, DRU+10*, DRU+12, DRU+16!, DIA+15*
FHRFPC EN+6*, DRU+13*, DRU+15, DRU+16!, DIA+16*
FHRFUD EN+6*, DIA+8*, DCOM+1, DCOM+4!
FHRNWGT EN+6*, FLG7+6, FLG7+8!
>> FHTUN EN1+10*, EN1+11
>> FHU FLG7+1, FLG7+3, FLG7+10, FLG7+13
>> FLD DRU+17
>> FRM FLG7+15
>> HGP FLG7+1
>> HGT FLG7
>> IBW FLG7+11*, FLG7+12, FLG7+13
IOF HEAD+1, HEAD+2
IOSL EN+3, DCOM+8, FOOT+2
IOST EN+3, DCOM+8, HEAD+1, FOOT+1, PAUSE+1
>> K Q4+2*, DCOM+6*, LAB, LAB+2
>> KCAL DRU+11, DRU+14
>> KK DCOM+8*, FOOT+2*
>> LN EN+3*, HEAD+3, FOOT+3, FOOT+7
>> LRTST( Q4+2, LAB, LAB+2
>> N Q4+4*, DRU+11, DRU+14
>> N1 Q4+2*, Q4+3, LAB*
>> NAM EN+4, FOOT+3
>> NB DRU+11
>> NOW EN+1*
>> PG EN+3*, HEAD+2*, HEAD+3
>> PID FOOT+4
>> PRO Q4+4, DRU+14
>> PRT DRU+18
PSCA DRU+3, DRU+9!
PSCA( DRU+5
PSD DRU+9!
>> PX DRU+2*
>> QUA EN1+12*, EN1+13
>> RC DRU+21
>> RIBW FLG7+11
>> S1 EN+3*, FLG7+19, Q4, Q4+4, DRU+19, DCOM+6, LAB+1
>> SCA FLG7+18, FLG7+22
>> SCAP FLG7+22
>> SEX EN+4
>> SIGN DCOM+7*
>> SITE FOOT+3
>> STR EN1+12*, EN1+13
>> TNM EN1+12*, EN1+13
>> TSF FLG7+18, FLG7+20
>> TSFP FLG7+20
U EN1+12, DIA+4, DIA+5, DIA+6, DIA+7, DIA+8, DIA+9, DIA+10, DIA+11, DIA+12
, DIA+13, DIA+14, DIA+15, DIA+16, DIA+17, DIA+18, DIA+19, DCOM+7
>> UL DCOM+9*
>> UWGT FLG7+9, FLG7+10
>> W1 FOOT+5*, FOOT+6*
>> WGP FLG7+3
>> WGT FLG7+2, FLG7+10, FLG7+13
>> X1 FLG7*, FLG7+1, FLG7+2*, FLG7+3, FLG7+6*, FLG7+9*, FLG7+10, FLG7+12*, FLG7+13, LAB*
>> X2 FLG7*, FLG7+1, FLG7+2*, FLG7+3, FLG7+6*, FLG7+9*, FLG7+10, FLG7+12*, FLG7+13
>> XD DRU+20
>> YN PAUSE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All