Routine: FHASMR1

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

Package	Total	Caller Graph
Dietetics	2	FHASM7 FHASMR

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

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

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

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

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*

Customize PDF page

Package: Dietetics

Routine: FHASMR1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: