Routine: FHASM1

Information

FHASM1 ; HISC/REL - Nutrition Assessment ;1/25/00 12:08

Source Information

Source file <FHASM1.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Dietetics	7	TR^FH (,ASK)^FHASM2 (A,K)^FHASM2D SDAT^FHASM7 ^FHOMDPA PATNAME^FHOMUTL CUR^FHORD7
VA Fileman	3	^%DT ^DIC ^DIK
Kernel	2	$$FMADD^XLFDT KILL^XUSCLEAN
General Medical Record - Vitals	1	EN6^GMRVUTL

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Dietetics	10	FHASM1 FHASM2 FHASM2A FHASM2B FHASM2C FHASM2D FHASM3 FHASM5 FHASM6 FHASM7

Entry Points

External References

Name	Field # of Occurrence
^%DT	FHASM1+2, CRE+6, F2, F6+5
^DIC	F4+2
^DIK	STA+15
TR^FH	TR+1
^FHASM2	F8
ASK^FHASM2	STA+14
A^FHASM2D	F5+3
K^FHASM2D	H1
SDAT^FHASM7	KIL+4, ASKUS+3
^FHOMDPA	F1+1
PATNAME^FHOMUTL	STA+1
CUR^FHORD7	F1+18
EN6^GMRVUTL	F4+6
$$FMADD^XLFDT	F3
KILL^XUSCLEAN	F1+1, F1+3, STA+14, KIL+6, PAT, P1, P2, ASKUS, ASKUS+2, ASKUS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"N U T R I T I O N A S S E S S M E N T",!! Line Location: FHASM1+2
Function Call: WRITE	Prompt: *7,!!?5," [ Patient has expired. ]" Line Location: F1+3
Function Call: WRITE	Prompt: ", " Line Location: F1+31
Function Call: WRITE	Prompt: ?65,"Deleted..." Line Location: STA+15
Function Call: WRITE	Prompt: !!,"Creating new Assessment...",! Line Location: CRE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: F4A+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: F5+1
Function Call: WRITE	Prompt: !!,"Weight: " Line Location: F5+1
Function Call: WRITE	Prompt: KIL Condition for execution: WGT'="" WGT_" lbs","// " R X:DTIME G:'$T!(X["^") Line Location: F5+1
Function Call: WRITE	Prompt: ! Line Location: F6+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: F7+0
Function Call: WRITE	Prompt: !!,"Usual Weight: " Line Location: F7+0
Function Call: WRITE	Prompt: KIL Condition for execution: UWGT'="" UWGT_" lbs","// " R X:DTIME G:'$T!(X["^") Line Location: F7+0
Function Call: WRITE	Prompt: !!,"Enter height as: 6' 2"" or 74"" or 74IN or 6FT 2 IN or 30CM" Line Location: HGP+1
Function Call: WRITE	Prompt: !,"Add an S if height is stated rather than measured." Line Location: HGP+2
Function Call: WRITE	Prompt: !,"Add a K if value is a Knee Height measurement." Line Location: HGP+3
Function Call: WRITE	Prompt: !,"Height should be between 12"" and 96"" (8')." Line Location: HGP+4
Function Call: WRITE	Prompt: !!,"Enter Weight as 150# or 150# 6OZ or 800G or 70KG" Line Location: WGP+1
Function Call: WRITE	Prompt: !,"Add an S if weight is stated rather than measured." Line Location: WGP+2
Function Call: WRITE	Prompt: !,"Enter an A to determine weight anthropometrically." Line Location: WGP+3
Function Call: WRITE	Prompt: !,"Weight should be between 0 Lbs and 750 Lbs." Line Location: WGP+4
Function Call: READ	Prompt: "Enter Patient's Name: " Formatting: !! Timeout: DTIME Variable: NAM Line Location: PAT+0
Function Call: WRITE	Prompt: *7,!?5,"Enter Patient's Name to be printed on the report." Line Location: PAT+1
Function Call: READ	Prompt: "Sex: " Formatting: ! Timeout: DTIME Variable: SEX Line Location: P1+0
Function Call: WRITE	Prompt: *7," Enter M or F" Line Location: P1+0
Function Call: READ	Prompt: "Age: " Formatting: ! Timeout: DTIME Variable: AGE Line Location: P2+0
Function Call: WRITE	Prompt: !?5,"Enter Age Less Than 124 in Years or Months (followed by M) but Not Both" Line Location: P2+1
Function Call: READ	Prompt: "Do you wish to SAVE this Assessment Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKUS+0
Function Call: WRITE	Prompt: *7,!," Answer YES or NO" Line Location: ASKUS+1
Routine Call	DIC Line Location: F4+2

FileNo	Call Tags
^FH(119.73 - [#119.73]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	F1+3, F1+17
^DPT("CN"	F1+17
^FH(118.2 - [#118.2]	F1+30, F1+31
^FH(119.6 - [#119.6]	F1+16
^FH(119.9 - [#119.9]	F3A+1, F4+1
^FHPT - [#115]	F1+22, F1+24, F1+25, F1+26, F1+27, F1+28, STA+3, STA+4, STA+6, STA+7 , STA+9, STA+10, STA+12, F3, F3A+2, SVAR+1, SVAR+2, SVAR+9, SVAR+14, SVAR+15 , SVAR+18
^FHPT("AW"	F1+15
^TMP("FH"	F1+11!

Label References

Name	Line Occurrences
ASKUS	KIL+2, KIL+3, ASKUS+1
CRE	STA+13
F1	STA+15
F2	P2+2
F3	F3
F3A	STA+16
F4	F3A+2
F4A	F4A+1
F5	F4A, F5+3, F5+4
F6	F5+3, F6+5
F7	F6, F7+1
F8	F7
H1	HGT+2, HGT+3, HGT+4, HGT+7
H2	HGT+5, HGT+9
HGP	F4A+1
HGT	F4A+1
KIL	F4A, F5+1, F6+5, F7
P1	STA+16, CRE+4, CRE+7, P1
P2	P2+1
PAT	PAT+1
SVAR	STA+16
TR	F4A+1, WGT+1, P1, P2, ASKUS+1
W1	WGT+2, WGT+3, WGT+4, WGT+5, WGT+6, WGT+8, WGT+10
WGP	F5+4, F7+1
WGT	F5+4, F7+1

Name	Field # of Occurrence
^(	F1+29, F3A+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FHASM1+2, CRE+6, F2, F6+1, F6+5!, F8!
%DT("A"	F6+1*
%DT("B"	F6+4*
%DT(0	F6+5*
A1	F8!, HGT+1, HGT+2, HGT+3, HGT+4, HGT+6, HGT+8, HGT+10, WGT+1, WGT+2 , WGT+3, WGT+4, WGT+5, WGT+7, WGT+9, WGT+11
>> ACIR	F1+6, F1+8, SVAR+10*
>> ACIRP	F1+6, F1+8, SVAR+11*
>> ADM	F1+4, F1+17, F1+18, F1+21, F1+22, F1+24, F1+25, F1+26, F1+27, F1+28
>> ADT	F1+5, STA+16, CRE+6, F2, F3, SVAR+3
>> AGE	F1+5, STA+2, STA+16, CRE+5, CRE+7, F5+3, F5+4, PAT, P2, P2+1 , SVAR+3*
>> AMP	F1+5, SVAR+5
>> ASN	F1+4*
>> BFAMA	F1+6, F1+8, SVAR+11*
>> BFAMAP	F1+6, F1+8, SVAR+11*
>> BMI	F1+5, F1+8, SVAR+7*
>> BMIP	F1+5, F1+8, SVAR+7*
>> CCIR	F1+6, F1+8, SVAR+11*
>> CCIRP	F1+6, F1+8, SVAR+11*
>> CENB	F1+9, SVAR+12
>> CERBO	F1+9, SVAR+12
>> CFRB	F1+9, SVAR+13
>> CFRBO	F1+9, SVAR+13
>> CIBW	F1+9, SVAR+12
>> CPRBO	F1+9, SVAR+13
>> DA	STA+15*
>> DA(1	STA+15*
>> DEWGT	F1+6*
>> DFN	F1+2, F1+3, F1+14, F1+17, F3, F4+6, PAT
DIC	F4+2!*
DIC(0	F4+2*
>> DIK	STA+15*
>> DNWGT	F1+9*
DT	FHASM1+2*
DTIME	F4A, F5+1, F7, PAT, P1, P2, ASKUS
>> DTOUT	F6+5
>> DTP	F1+4, F6+2, F6+3*, F6+4
DUZ	F1+10
>> DWGT	F1+5, F5+6, F6+2, F6+3, F6+6, SVAR+4
>> EKKG	F1+8, SVAR+13
>> EXT	F1+4*
>> FHA	STA+9*, STA+10, STA+12
>> FHA0	SVAR+2*, SVAR+3, SVAR+4, SVAR+5, SVAR+6, SVAR+7, SVAR+8
>> FHA1	SVAR+9*, SVAR+10, SVAR+11, SVAR+12, SVAR+13
>> FHA3	SVAR+15*, SVAR+16, SVAR+17
>> FHADI	SVAR+18*, SVAR+19, SVAR+20
>> FHAGE	STA+2, CRE+4, CRE+5
>> FHALL	F1+1*
>> FHAP	F3A+1*
>> FHAPP	F1+6, SVAR+14
>> FHASK	F1+4, STA+15, STA+16, CRE+2
>> FHASS	F1+4, STA+7, STA+11
>> FHASSD	STA+10*, STA+11
>> FHAST	F1+7, STA+8, STA+11, STA+12, STA+13
>> FHCAS	F1+4, STA+4, STA+5, STA+6, STA+7, STA+13, STA+15, STA+16, SVAR+2, SVAR+9 , SVAR+14, SVAR+15, SVAR+18
>> FHCASD	F1+4, STA+6
>> FHCFRBO	F1+4*
>> FHCLI	F1+5, F1+10, F1+16*
>> FHCM	F1+4*
>> FHCOMM	F4+1, F4+4
>> FHDFN	F1+1, F1+15, F1+22, F1+24, F1+25, F1+26, F1+27, F1+28, STA+3, STA+4 , STA+6, STA+7, STA+9, STA+10, STA+12, STA+15, F3, F3A+2, PAT*, SVAR+1 , SVAR+2, SVAR+9, SVAR+14, SVAR+15, SVAR+18
>> FHDIDI	F1+7, F1+19, F1+20, SVAR+20*
>> FHDINA	F1+9, SVAR+16
>> FHDINF	F1+7, SVAR+19
>> FHDINFD	F1+7, SVAR+19
>> FHDIPL	F1+7, SVAR+19
>> FHDIPLD	F1+7, SVAR+19
>> FHDIST	F1+7, SVAR+20
>> FHDITF	F1+7, SVAR+20
>> FHDITFCM	F1+7, F1+25
>> FHDITFDT	F1+7, F1+24
>> FHDITFKC	F1+7, F1+27
>> FHDITFML	F1+7, F1+26
>> FHDITFPR	F1+31
>> FHDITFPR(	F1+30*, F1+31
>> FHDVHGT	F1+7*
>> FHDVWGT	F1+9, F4+6, F5+6, F6+2
>> FHEDU	F1+6, SVAR+16
>> FHEF	F1+4*
>> FHFDC	F1+8*
>> FHFDCSV	F1+8, SVAR+17
>> FHFEC	F1+4, SVAR+16
>> FHFFC	F1+4*
>> FHFPC	F1+4, SVAR+16
>> FHFUD	F1+7, SVAR+20
>> FHFUDS	F1+8, SVAR+20
>> FHHWF	F1+4, F4A+2, F5+3, F5+5, F6
>> FHKCAL	F1+4*
>> FHLOC	F1+4, F1+15, F1+16
>> FHPL	F1+9, SVAR+17
>> FHPLXSV	F1+5*
>> FHPTNM	CRE+5, F3A+1
>> FHQTALL	F1+11*
>> FHQUIT	F1+4*, STA+14, KIL+2
>> FHSEX	CRE+4, CRE+5
>> FHSPC	F1+6, SVAR+17
>> FHTUN	F1+31*
>> FHU	F3A+1*, F3A+3, HGT+2, WGT+2
>> FHVHGT	F1+7, F4+6, F4+7
>> FHVWGT	F1+9, F4+6, F5
>> FHYN	F1+9, SVAR+16
>> FLD	F1+5, SVAR+6
>> FRM	F1+5, SVAR+5
>> GMRVSTR	F4+6*
>> H1	F4A, F4A+3
>> HGP	F1+5, F3A+2, F3A+3, F4A+3, SVAR+4
>> HGT	F1+5, F3A+2, F3A+3, F4+7, F4A, F4A+3, SVAR+3*
>> I	F1+15*
>> IBW	F1+5, SVAR+5
IOF	FHASM1+2
K	F8!, HGT+6, HGT+7, HGT+8, WGT+7, WGT+8, WGT+9
>> KCAL	F1+5, SVAR+6
>> KNEE	F1+4*
>> NAM	CRE+5, F3A+1, PAT*, PAT+1
>> NB	F1+6, SVAR+8
>> NOW	F1+6, SVAR+8
>> NWGT	F1+9*
>> PCTB	F1+9, SVAR+12
>> PID	PAT*
>> PRO	F1+5, SVAR+6
>> RC	F1+5, SVAR+6
>> SCA	F1+6, F1+8, SVAR+10*
>> SCAP	F1+6, F1+8, SVAR+10*
>> SEF	F1+9, SVAR+13
>> SEX	F1+5, STA+16, CRE+5, CRE+7, PAT, P1, P1+1, SVAR+3
>> TF	F1+22*, F1+23, F1+24, F1+25, F1+26, F1+27, F1+28
>> TF2	F1+28*, F1+29
>> TSF	F1+6, F1+8, SVAR+10*
>> TSFP	F1+6, F1+8, SVAR+10*
>> TUN	F1+29*, F1+30
U	F1+16, F1+24, F1+25, F1+26, F1+27, STA+4, STA+6, STA+7, STA+10, F4+1 , KIL+3, SVAR+3, SVAR+4, SVAR+5, SVAR+6, SVAR+7, SVAR+8, SVAR+10, SVAR+11, SVAR+12 , SVAR+13, SVAR+16, SVAR+17, SVAR+19, SVAR+20
>> UWGT	F1+5, F7, F7+2, SVAR+5*
>> WARD	F1+6, F1+17
>> WCCM	F1+9, SVAR+12
>> WGP	F1+5, F5+3, F5+6, SVAR+4
>> WGT	F1+5, F5, F5+1, F5+3, F5+5, F5+6, SVAR+4*
X	FHASM1+2, CRE+6, F2, F4+6, F4A, F5+1, F5+2, F5+3, F6+5, F7* , F8!, HGT+1, HGT+2, HGT+3, HGT+4, HGT+5, HGT+6, HGT+7, HGT+8, HGT+9 , H1, H2+1, WGT+1, WGT+2, WGT+3, WGT+4, WGT+5, WGT+6, WGT+7, WGT+8 , WGT+9, WGT+10, W1+1, KIL+3, P1, P2, ASKUS, ASKUS+1, ASKUS+2
>> X1	F1+8, F1+18, F3A+3, F4+7, F4A, F4A+2
>> X2	F1+8, F3A+3
>> XD	F1+5, SVAR+7
>> XX	F3A+2*
Y	FHASM1+2, F1+13, F1+19, F1+29, F1+30, F1+32!, CRE+6, F2, F4+3, F4+4 , F4A+1, F4A+2, F4A+3, F5+3, F5+4, F5+5, F5+6, F6+5, F6+6, F7+1 , F7+2, F8!, HGT+1, HGT+2, HGT+3, HGT+4, HGT+5, HGT+6, HGT+9, HGT+10 , H2, H2+1, WGT+1, WGT+2, WGT+3, WGT+4, WGT+5, WGT+6, WGT+7, WGT+10 , WGT+11, W1, W1+1*
>> Y0	F4A, F4A+3, H2+1, W1+1*
>> Y1	F4A+3, F5+6, H2+1, W1+1

Customize PDF page

Package: Dietetics

Routine: FHASM1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PAT
CRE	;create new assessment
F3A	;start here if edit
TR	; Translate Lower to Upper Case
SVAR	;set variables of incomplete assessment.
ASKUS
P2
P1
STA	;if pt has Work in Progress assessment, ask user to Edit or Create or Delete Assessment.
HGT	; Convert Height to inches
HGP	; Height Help
WGT	; Convert Weight to lbs.
WGP	; Weight help
F1	; Select Patient
F2
F3
F4	; If Multidivisional site Select Communications Office
F5
F6
F7
F8
H1
F4A
H2
W1
KIL	; Final variable kill