Routine: FHASM7

Package	Total	Call Graph
Dietetics	7	(DTP,TR)^FH FIL^FHASE3 (KIL,TR)^FHASM1 REC^FHASM3 ^FHASMR1 ^FHASMR2 DID^FHDPA
VA Fileman	7	^%DT NOW^%DTC ^DIC FILE^DICN ^DIE (,IX)^DIK EN^DIWE
Kernel	1	KILL^XUSCLEAN
Problem List	1	LIST^GMPLUTL2

Package	Total	Caller Graph
Dietetics	2	FHASM1 FHASM6

Entry Points

External References

Name	Field # of Occurrence
^%DT	FDT+24
NOW^%DTC	SDAT+7
^DIC	EC1, E5
FILE^DICN	SDAT+6, SDAT+24, E8+3
^DIE	SDAT+28
^DIK	E6+3
IX^DIK	SDAT+30
EN^DIWE	E5+2, E5+3
DTP^FH	DP1+4
TR^FH	EDU+5, FDT+3
FIL^FHASE3	E8+1
KIL^FHASM1	E31+1, E32, E33, E34, EDU+2, EDC+2, DP1+7, ANF+2, DNF+2, E4+2 , EC1, E5, FDT+24
TR^FHASM1	E31+1, E6+1
REC^FHASM3	SDAT+5
^FHASMR1	E31
^FHASMR2	E6+7
DID^FHDPA	E8+4
LIST^GMPLUTL2	DPL+1
KILL^XUSCLEAN	SDAT+1, E6, E6+3, KIL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Do you want to do a NITROGEN BALANCE? NO// " Formatting: !! Timeout: DTIME Variable: X Line Location: E31+1
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: E31+1
Function Call: READ	Prompt: "Enter Protein Intake (gm/24hr): " Formatting: !! Timeout: DTIME Variable: X1 Line Location: E32+0
Function Call: WRITE	Prompt: !?5,"Enter 0-200 grams of protein intake" Line Location: E32+1
Function Call: READ	Prompt: "Enter Urinary Nitrogen Output (gm/24hr): " Formatting: ! Timeout: DTIME Variable: X2 Line Location: E33+0
Function Call: WRITE	Prompt: !?5,"Enter 0-30 gms of Urinary Nitrogen output (24 hr UUN)" Line Location: E33+1
Function Call: READ	Prompt: "Enter Insensible Nitrogen Output (gm/24hr): 4// " Formatting: ! Timeout: DTIME Variable: X3 Line Location: E34+0
Function Call: WRITE	Prompt: !?5,"Insensible Nitrogen output should be between 0-10 grams" Line Location: E34+1
Function Call: WRITE	Prompt: !,"Nitrogen Balance: ",NB Line Location: E34+2
Function Call: WRITE	Prompt: "N//" Condition for execution: FHEDU="" Line Location: EDU+1
Function Call: WRITE	Prompt: *7,!,"Enter 'Y' for yes or 'N' for no." Line Location: EDU+6
Function Call: READ	Timeout: DTIME Variable: FHFDC Line Location: EDC+2
Function Call: WRITE	Prompt: " deleted..." Line Location: EDC+3
Function Call: WRITE	Prompt: *7,!,"Enter Food/Drug Comment or Hit Return to Accept or @ to Delete and cannot exceed 30 characters!!" Line Location: EDC+5
Function Call: READ	Timeout: DTIME Variable: FHDCH Line Location: DP1+7
Function Call: WRITE	Prompt: !!,"Diagnosis: " Line Location: DP1+7
Function Call: WRITE	Prompt: KIL^FHASM1 Condition for execution: FHDIPL'="" FHDIPL W "// " R FHDCH:DTIME S:FHDCH=U FHQUIT=1 G:'$T!(FHDCH["^") Line Location: DP1+7
Function Call: WRITE	Prompt: !!,*7,"Choose a number from the list or Hit Return to accept default!!",! Line Location: DP1+10
Function Call: READ	Timeout: DTIME Variable: AFDIA Line Location: ANF+2
Function Call: WRITE	Prompt: " deleted..." Line Location: ANF+3
Function Call: WRITE	Prompt: *7,!,"Enter patient's Problem or Hit Return to Accept or @ to Delete and cannot exceed 30 characters!!" Line Location: ANF+5
Function Call: READ	Timeout: DTIME Variable: NFDIA Line Location: DNF+2
Function Call: WRITE	Prompt: " deleted..." Line Location: DNF+3
Function Call: WRITE	Prompt: *7,!,"Enter Additional Problem of a patient or Hit Return to Accept or @ to Delete and cannot exceed 30 characters!!" Line Location: DNF+5
Function Call: READ	Timeout: DTIME Variable: APP Line Location: E4+2
Function Call: WRITE	Prompt: " deleted..." Line Location: E4+3
Function Call: WRITE	Prompt: *7,!,"Enter Physical Appearance of patient or Hit Return to Accept or @ to Delete and cannot exceed 60 characters." Line Location: E4+5
Function Call: WRITE	Prompt: ! Line Location: EC1+0
Function Call: WRITE	Prompt: ! Line Location: E5+0
Function Call: WRITE	Prompt: !!,"Comments:" Line Location: E5+1
Function Call: WRITE	Prompt: ! Line Location: FDT+24
Function Call: READ	Prompt: "Save as Work in Progress or Complete or Delete this assessment: W// " Formatting: !! Timeout: DTIME Variable: X Line Location: E6+0
Function Call: WRITE	Prompt: *7,!," Answer 'W' to file as Work in progress or 'C' to Complete and send to TIU or 'D' to Delete" Line Location: E6+2
Function Call: WRITE	Prompt: !!,"Deleted...",! Line Location: E6+3
Function Call: WRITE	Prompt: !!,"This Assessment has been saved as Work in Progress...",! Line Location: E6+4
Function Call: WRITE	Prompt: " and forwarded to TIU" Line Location: E6+11
Function Call: WRITE	Prompt: "...",! Line Location: E6+11
Routine Call	DIE Line Location: SDAT+28
Routine Call	DIC Line Location: EC1 E5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FHPT - [#115]	Classic Fileman Calls
^FH(115.3 - [#115.3]	Classic Fileman Calls
^FH(115.4 - [#115.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.011	SDAT+23
^DPT - [#2]	E6+7
^FH(115.4 - [#115.4]	FDT+3, E8
^FH(119.6 - [#119.6]	FDT+5, FDT+9, FDT+13, FDT+17
^FHPT - [#115]	E5+2, SDAT+2, SDAT+3, SDAT+10, SDAT+13, SDAT+14, SDAT+15, SDAT+16, SDAT+17, SDAT+18 , SDAT+19, SDAT+20, SDAT+32, SDAT+33, E7+1, E7+2, E8+2, E8+4, E6+4, E6+9* , E6+10*
^FHPT("E"	SDAT+29!
^TMP("FH"	E5+1!, E5+2*, E7, E7+1, E7+2
^TMP($J	E6+7!

Label References

Name	Line Occurrences
ANF	DP1+6, DP1+8, DP1+9, ANF+5
DNF	ANF+3, DNF+5
DP1	DP1+10
DPL	EDC+3
E31	E31+1
E32	E32+1
E33	E33+1
E34	E34+1
E35	E32, E33
E4	DNF+3, E4+5
E6	E6+2
E7	SDAT+31
E8	E7
E9	E8+1
EC1	E4+3
EDC	EDC+5
EDU	E31+2, EDU+6
FDT	E5+2, FDT+24
KIL	E31+2, E35

Naked Globals

Name	Field # of Occurrence
^(0	SDAT+2, SDAT+33, E8+2, E8+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SDAT+7
%DT	FDT+20!*, FDT+24!
%DT("A"	FDT+20*
%DT("B"	FDT+22*
%DT(0	FDT+23*
>> A2	SDAT+8*
>> ACIR	SDAT+12
>> ACIRP	SDAT+12
>> ADT	SDAT+6, SDAT+9, E8, E8+3
>> AFDIA	ANF+1, ANF+2, ANF+3, ANF+4*, ANF+5, ANF+6
>> AGE	SDAT+9
>> AMP	SDAT+9
>> APP	E4+1, E4+2, E4+3, E4+4*, E4+5, E4+6
>> ASE	E8+3*, E8+4
>> ASN	FHASM7+2, SDAT+5, SDAT+6*, SDAT+10, SDAT+13, SDAT+14, SDAT+15, SDAT+16, SDAT+17, SDAT+18 , SDAT+19, SDAT+20, SDAT+21, SDAT+25, SDAT+29, SDAT+30, SDAT+32, SDAT+33, E7+1, E7+2 , E6+3, E6+4, E6+9, E6+10
>> BFAMA	SDAT+12
>> BFAMAP	SDAT+12
>> BMI	SDAT+8*, SDAT+9
>> BMIP	SDAT+9
>> CCIR	SDAT+12
>> CCIRP	SDAT+12
>> CENB	SDAT+12
>> CERBO	SDAT+12
>> CFRB	SDAT+12
>> CFRBO	SDAT+12
>> CIBW	SDAT+12
>> CPRBO	SDAT+12
>> DA	SDAT+25, SDAT+30, E6+3*
>> DA(1	SDAT+4, SDAT+21, SDAT+22, SDAT+25, SDAT+27, SDAT+30, E8+3, E6+3
>> DA(2	SDAT+21, SDAT+22, SDAT+25, SDAT+27
DD	SDAT+4!, E8+3!
>> DFN	DPL+1, E8+1, E8+4, E6+7, E6+11
DIC	EC1!, E5!, E5+1, SDAT+4!, SDAT+21!, SDAT+22, E8+3!
DIC("B"	EC1, E5
DIC("P"	SDAT+23*
DIC("S"	E5*
DIC(0	EC1, E5, SDAT+4, SDAT+23, E8+3*
DIE	SDAT+25!, SDAT+27*
>> DIK	SDAT+30, E6+3
>> DIK(1	SDAT+30*
>> DINUM	SDAT+6, E8+3
>> DLAYGO	SDAT+4, E8+3
DO	SDAT+4!, SDAT+21!, E8+3!
>> DR	SDAT+28*
DT	FDT+21, FDT+23, SDAT+11
>> DTE	E8*
DTIME	E31+1, E32, E33, E34, EDU+1, EDC+2, DP1+7, ANF+2, DNF+2, E4+2 , E6
>> DTOUT	EC1, E5, FDT+24
>> DTP	DP1+4, DP1+5, FDT+1, FDT+6, FDT+7, FDT+10, FDT+11, FDT+14, FDT+15, FDT+18* , FDT+19, FDT+21, FDT+22
DUZ	SDAT+9, E8+4
>> DWGT	SDAT+9
>> DWPK	E5+1*
>> EKKG	SDAT+12
>> FH1	SDAT+26*
>> FH2	SDAT+26*
FH7FLG	E31*!
>> FHAPP	E4+1, E4+2, E4+3, E4+4, E4+6, SDAT+14
>> FHASK	E5+2, SDAT+1, SDAT+5, SDAT+6
>> FHASN1	SDAT+12*, SDAT+13
>> FHCAS	E5+2, SDAT+5
>> FHDCH	DP1+1, DP1+7, DP1+8, DP1+9, DP1+10, DP1+11
>> FHDD	FDT+1, FDT+5, FDT+6, FDT+7, FDT+9, FDT+10, FDT+11, FDT+13, FDT+14, FDT+15 , FDT+17*, FDT+18, FDT+19
>> FHDFN	E31+2, E35, E5+2, SDAT+2, SDAT+3, SDAT+4, SDAT+10, SDAT+13, SDAT+14, SDAT+15 , SDAT+16, SDAT+17, SDAT+18, SDAT+19, SDAT+20, SDAT+21, SDAT+25, SDAT+29, SDAT+30, SDAT+32 , SDAT+33, E7+1, E7+2, E8+2, E8+3, E8+4, E6+3, E6+4, E6+9, E6+10
>> FHDIACT	DPL+2, DPL+3, DP1, DP1+6
>> FHDIDI	SDAT+16
>> FHDINA	ANF+1, ANF+2, ANF+3, ANF+4, ANF+6, SDAT+15
>> FHDINF	DNF+1, DNF+2, DNF+3, DNF+4, DNF+6, SDAT+16
>> FHDINFD	SDAT+16
>> FHDIPL	DP1+7, DP1+9, DP1+11, SDAT+16
>> FHDIPLD	DP1+9, DP1+11, SDAT+16
>> FHDIST	SDAT+16
>> FHDITFCM	SDAT+19
>> FHDITFDT	SDAT+16
>> FHDITFKC	SDAT+18
>> FHDITFML	SDAT+17
>> FHDITFPR	SDAT+20
>> FHDITFPR(	SDAT+20, SDAT+26
>> FHDLI	DP1+3*, DP1+4, DP1+5
>> FHEDU	EDU+1, EDU+3, EDU+4, EDU+7*, SDAT+15
>> FHFDC	EDC+1, EDC+2, EDC+3, EDC+4*, EDC+5, EDC+6
>> FHFDCSV	EDC+1, EDC+2, EDC+3, EDC+4, EDC+6, SDAT+15
>> FHFEC	SDAT+15
>> FHFPC	SDAT+15
>> FHFUD	FDT+21, FDT+25, SDAT+11, SDAT+16, SDAT+29, SDAT+30
>> FHFUDS	SDAT+29
>> FHLOC	FDT+5, FDT+9, FDT+13, FDT+17
>> FHOUT	E6+7
>> FHPL	SDAT+15
>> FHPLIST	DPL+1
>> FHPLIST(	DP1+3, DP1+4, DP1+5, DP1+10, DP1+11
>> FHPLIST(0	DPL+3
>> FHQUIT	E32, E33, E34, EDC+2, DP1+7, ANF+2, DNF+2, E4+2
>> FHSPC	SDAT+15
>> FHTUN	SDAT+20*, SDAT+21, SDAT+26
>> FHWRD	E8+4
>> FHYN	SDAT+15
>> FLD	SDAT+9
>> FRM	SDAT+9
>> HGP	SDAT+9
>> HGT	SDAT+8, SDAT+9
>> IBW	SDAT+9
>> K	SDAT+32, E7+2
>> KCAL	SDAT+9
>> LRTST	SDAT+31
>> LRTST(	SDAT+32
>> N1	SDAT+32, SDAT+33, E7+2
>> NB	FHASM7+2, E34+2, SDAT+9
>> NFDIA	DNF+1, DNF+2, DNF+3, DNF+4*, DNF+5, DNF+6
>> NOW	SDAT+7*, SDAT+9
>> PCTB	SDAT+12
>> PRO	SDAT+9
>> PRT	FHASM7+2*
>> RC	E5*, FDT+2, FDT+3, SDAT+9, E8, E8+1, E8+4
>> S1	E8*
>> S2	E8*
>> S3	E8*
>> SCA	SDAT+12
>> SCAP	SDAT+12
>> SEF	SDAT+12
>> SEX	SDAT+9
>> TSF	SDAT+12
>> TSFP	SDAT+12
U	E32, E33, E34, DP1+4, DP1+5, DP1+7, DP1+11, FDT+3, FDT+5, FDT+9 , FDT+13, FDT+17, SDAT+12, SDAT+15, SDAT+16, SDAT+17, SDAT+18, SDAT+19, SDAT+23, SDAT+26 , E6+4, E6+9, E6+10
>> UWGT	SDAT+9
>> WARD	E6+7*, E6+11
>> WCCM	SDAT+12
>> WGP	SDAT+9
>> WGT	SDAT+8, SDAT+9
>> X	E31+1, E31+2, EDU+1, EDU+2, EDU+3, EDU+4, EDU+6, EDU+7, EC1, E5 , FDT+3, FDT+4, FDT+8, FDT+12, FDT+16, FDT+24, SDAT+6, SDAT+23, E8+3, E6* , E6+1*, E6+2, E6+3, E6+4, E6+5
>> X1	E32*, E32+1, E34+2
>> X2	E33*, E33+1, E34+2
>> X3	E34*, E34+1, E34+2
>> XD	EC1*, SDAT+9
>> Y	EC1, E5, FDT+24, FDT+25, SDAT+6, SDAT+9, SDAT+10, SDAT+21, SDAT+23, SDAT+24 , SDAT+25, E8+3

Customize PDF page

Package: Dietetics

Routine: FHASM7

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

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
EDC	;food/drug comment.
E35
E34
E33
E32
E31
DP1
KIL
ANF	;problem through NFS.
E6
SDAT	;create or update nutrition assessment and file to Progress Notes.
DNF	;aditional problem through NFS.
E9	;D P0^FHASMR
FDT	;enter follow-up date.
EC1
EDU	;
E5
E4	;
E7
DPL	;get diagnosis from Problem List package.
E8