Routine: GMTSFH

Package	Total	Call Graph
Health Summary	2	(REGDT4,REGDTM4)^GMTSU CKP^GMTSUP
Dietetics	1	^FHWHEA

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Controls branching and execution
DI	; Diet Orders
DICOM	; Writes comments for DI
TFCOM	; Writes comments for TF
WRAP	; Controls wrap-around feature for comments, etc.
NSWRT	; Writes Nutritional Status
SFWRT	; Writes Supplemental Feedings
EN	; Dietetic Encounters
TF	; Tubefeeding
TFWRT	; Writes tubefeeding
NS	; Nutritional status
SF	; Supplemental feeding
DIWRT	; Writes Diet Orders

External References

Name	Field # of Occurrence
^FHWHEA	MAIN+2
REGDT4^GMTSU	DIWRT+3, DIWRT+5, SFWRT+3, SFWRT+5, TFWRT+3, TFWRT+5, EN+6
REGDTM4^GMTSU	NSWRT+3
CKP^GMTSUP	DI+2, DI+3, DIWRT+6, DICOM+1, NS+3, NSWRT+4, SF+3, SFWRT+6, SFWRT+7, SFWRT+10 , SFWRT+13, TF+3, TFWRT+6, TFWRT+7, TFWRT+8, TFWRT+9, TFCOM+1, WRAP+2, EN+2, EN+7 , EN+8, EN+9, EN+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "DIETS:",! Line Location: DI+2
Function Call: WRITE	Prompt: "No diet orders available.",! Line Location: DI+3
Function Call: WRITE	Prompt: STRT_" - "_STP,?25 Line Location: DIWRT+6
Function Call: WRITE	Prompt: STR Line Location: DIWRT+8
Function Call: WRITE	Prompt: ! Line Location: DIWRT+10
Function Call: WRITE	Prompt: " Comments: " Line Location: DICOM+1
Function Call: WRITE	Prompt: $P(GMZ,U,4),! Line Location: DICOM+2
Function Call: WRITE	Prompt: ! Line Location: DICOM+3
Function Call: WRITE	Prompt: !,"NUTRITIONAL STATUS:",! Line Location: NS+3
Function Call: WRITE	Prompt: !,"SUPPLEMENTAL FEEDINGS:",! Line Location: SF+3
Function Call: WRITE	Prompt: STRT_" - "_STP,! Line Location: SFWRT+6
Function Call: WRITE	Prompt: STR,! Line Location: SFWRT+8
Function Call: WRITE	Prompt: ! Line Location: SFWRT+9
Function Call: WRITE	Prompt: STR,! Line Location: SFWRT+11
Function Call: WRITE	Prompt: ! Line Location: SFWRT+12
Function Call: WRITE	Prompt: STR,! Line Location: SFWRT+14
Function Call: WRITE	Prompt: ! Line Location: SFWRT+15
Function Call: WRITE	Prompt: !,"TUBE FEEDINGS:",! Line Location: TF+3
Function Call: WRITE	Prompt: STRT_" - "_STP,! Line Location: TFWRT+6
Function Call: WRITE	Prompt: ?12,"Product: ",$P(GMZ,U,3),! Line Location: TFWRT+7
Function Call: WRITE	Prompt: ?11,"Strength: ",$P(GMZ,U,4),?51,"Quantity: ",$P(GMZ,U,5),! Line Location: TFWRT+8
Function Call: WRITE	Prompt: ?9,"Daily CC's: ",$P(GMZ,U,6),?47,"Daily KCal's: ",$P(GMZ,U,7),! Line Location: TFWRT+9
Function Call: WRITE	Prompt: ?11,"Comments: " Line Location: TFCOM+1
Function Call: WRITE	Prompt: $P(GMZ,U,8),! Line Location: TFCOM+2
Function Call: WRITE	Prompt: ! Line Location: TFCOM+3
Function Call: WRITE	Prompt: $E(STR,1,TX-1),! Line Location: WRAP+1
Function Call: WRITE	Prompt: ?21,$E(STR,TX,$L(STR)) Line Location: WRAP+2
Function Call: WRITE	Prompt: !,"DIETETIC ENCOUNTERS:",! Line Location: EN+2
Function Call: WRITE	Prompt: STRT,?12,$P(GMZ,U,2),! Line Location: EN+7
Function Call: WRITE	Prompt: ?6,$P(GMZ,U,3),! Line Location: EN+8
Function Call: WRITE	Prompt: ?6,$P(GMZ,U,4),! Line Location: EN+9
Function Call: WRITE	Prompt: ?6,$G(^UTILITY($J,"NA",GMIDT,1)),! Line Location: EN+11
Function Call: WRITE	Prompt: ?6,"Comments:",! Line Location: EN+12
Function Call: WRITE	Prompt: ?6,$G(^UTILITY($J,"NA",GMIDT,I)),! Line Location: EN+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	MAIN+2, MAIN+3!, DI+3, DI+4, DIWRT+2, NS+1, NS+5, NSWRT+2, SF+1, SF+5 , SFWRT+2, TF+1, TF+5, TFWRT+2, EN+1, EN+3, EN+5, EN+10, EN+13

Label References

Name	Line Occurrences
@(	MAIN+2
DICOM	DIWRT+11
DIWRT	DI+4
NSWRT	NS+5
SFWRT	SF+5
TFCOM	TFWRT+10
TFWRT	TF+5
WRAP	DIWRT+9, DICOM+3, SFWRT+9, SFWRT+12, SFWRT+15, TFCOM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNTR	MAIN+3!, DI+1, DIWRT+1, NS+2, NSWRT+1, SF+2, SFWRT+1, TF+2, TFWRT+1, EN+1* , EN+4*
COL	MAIN+3!, DIWRT+9, DICOM+3, SFWRT+9, SFWRT+12, SFWRT+15, TFCOM+3, WRAP+1
GMI	MAIN+1~, MAIN+2*
GMIDT	DI+4~, DIWRT+2, NS+4~, NS+5, NSWRT+2, SF+4~, SF+5, SFWRT+2, TF+4~, TF+5 , TFWRT+2, EN+2~, EN+3, EN+5, EN+10, EN+13
>> GMTS1	DI+4, NS+5, SF+5, TF+5, EN+2
>> GMTS2	DI+4, NS+5, SF+5, TF+5, EN+3
>> GMTSNDM	MAIN+1, DI+1, NS+2, SF+2, TF+2, EN+1
>> GMTSQIT	DI+2, DI+3, DIWRT+6, DICOM+1, NS+3, NSWRT+4, SF+3, SFWRT+6, SFWRT+7, SFWRT+10 , SFWRT+13, TF+3, TFWRT+6, TFWRT+7, TFWRT+8, TFWRT+9, TFCOM+1, WRAP+2, EN+2, EN+7 , EN+8, EN+9, EN+13
GMW	DI+4~, NS+4~, SF+4~, TF+4~, EN+2~
GMZ	DIWRT+2~, DIWRT+3, DIWRT+4, DIWRT+5, DIWRT+7, DIWRT+10, DIWRT+11, DICOM+2, DICOM+3, NSWRT+2~ , NSWRT+3, NSWRT+5, SFWRT+2~, SFWRT+3, SFWRT+4, SFWRT+5, SFWRT+7, SFWRT+10, SFWRT+13, TFWRT+2~ , TFWRT+3, TFWRT+4, TFWRT+5, TFWRT+7, TFWRT+8, TFWRT+9, TFWRT+10, TFCOM+2, TFCOM+3, EN+5~* , EN+6, EN+7, EN+8, EN+9
I	EN+13~*
MAX	MAIN+1~*
STP	MAIN+3!, DIWRT+4, DIWRT+5, DIWRT+6, SFWRT+4, SFWRT+5, SFWRT+6, TFWRT+4, TFWRT+5, TFWRT+6
STR	MAIN+3!, DIWRT+7, DIWRT+8, DICOM+3, SFWRT+7, SFWRT+8, SFWRT+10, SFWRT+11, SFWRT+13, SFWRT+14 , TFCOM+3, WRAP+1, WRAP+2
STRT	MAIN+3!, DIWRT+3, DIWRT+6, NSWRT+3, NSWRT+5, SFWRT+3, SFWRT+6, TFWRT+3, TFWRT+6, EN+6* , EN+7
TX	MAIN+3!, WRAP+1*, WRAP+2
U	DIWRT+3, DIWRT+4, DIWRT+5, DIWRT+7, DIWRT+10, DIWRT+11, DICOM+2, DICOM+3, NSWRT+3, NSWRT+5 , SFWRT+3, SFWRT+4, SFWRT+5, SFWRT+7, SFWRT+10, SFWRT+13, TFWRT+3, TFWRT+4, TFWRT+5, TFWRT+7 , TFWRT+8, TFWRT+9, TFWRT+10, TFCOM+2, TFCOM+3, EN+6, EN+7, EN+8, EN+9
>> X	DIWRT+3, DIWRT+5, NSWRT+3, SFWRT+3, SFWRT+5, TFWRT+3, TFWRT+5, EN+6

Customize PDF page

Package: Health Summary

Routine: GMTSFH

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: