Routine: FHOMUTL

Package	Total	Call Graph
VA Fileman	4	DD^%DT NOW^%DTC ^DIC ^DIR
Dietetics	3	(SITE,TR)^FH PID^FHDPA ^FHOMDPA
Kernel	1	$$FMTHL7^XLFDT

Package

Total

Call Graph

VA Fileman

DD^%DT NOW^%DTC ^DIC ^DIR

Dietetics

(SITE,TR)^FH PID^FHDPA ^FHOMDPA

Kernel

$$FMTHL7^XLFDT

Package	Total	Caller Graph
Dietetics	82	FHASM1 FHASMR FHASN4 FHASN6 FHASN71 FHASP FHASXR FHBIR FHCTF3 FHCTF4 FHCTF5 FHDCR11 FHDCR1A FHDCR1D FHDMP FHDPGM FHDPSM FHDSSAPI FHMTK1A FHMTK5 FHMTKO FHNO2 FHNO21 FHNO31 FHNO7 FHNO8 FHOMCBRP FHOMDMP FHOMDPA FHOMELT FHOMGC1 FHOMGP1 FHOMGR1 FHOMPP FHOMRA1 FHOMRBL1 FHOMRBLD FHOMRC1 FHOMRC2 FHOMRE1 FHOMRL1 FHOMRMD FHOMRO1 FHOMRP1 FHOMRR1 FHOMRT1 FHOMSA1 FHOMSP1 FHOMSR1 FHOMSS1 FHOMSS2 FHOMTK1 FHOMTK2 FHORC1 FHORC2 FHORC3 FHORD10 FHORD11 FHORD13 FHORD41 FHORD5 FHORD6 FHORD7 FHORD81 FHORD9 FHORD92 FHORDR FHORE21 FHORT5A FHORX1 FHORX1A FHORX1B FHPRF1 FHPST2 FHSELA1 FHSP FHSP1 FHSP11 FHWADM FHWORR FHWTRN FHXDB2

Package

Total

Caller Graph

Dietetics

FHASM1  FHASMR  FHASN4  FHASN6  FHASN71  FHASP  FHASXR  FHBIR
FHCTF3  FHCTF4  FHCTF5  FHDCR11  FHDCR1A  FHDCR1D  FHDMP  FHDPGM
FHDPSM  FHDSSAPI  FHMTK1A  FHMTK5  FHMTKO  FHNO2  FHNO21  FHNO31
FHNO7  FHNO8  FHOMCBRP  FHOMDMP  FHOMDPA  FHOMELT  FHOMGC1  FHOMGP1
FHOMGR1  FHOMPP  FHOMRA1  FHOMRBL1  FHOMRBLD  FHOMRC1  FHOMRC2  FHOMRE1
FHOMRL1  FHOMRMD  FHOMRO1  FHOMRP1  FHOMRR1  FHOMRT1  FHOMSA1  FHOMSP1
FHOMSR1  FHOMSS1  FHOMSS2  FHOMTK1  FHOMTK2  FHORC1  FHORC2  FHORC3
FHORD10  FHORD11  FHORD13  FHORD41  FHORD5  FHORD6  FHORD7  FHORD81
FHORD9  FHORD92  FHORDR  FHORE21  FHORT5A  FHORX1  FHORX1A  FHORX1B
FHPRF1  FHPST2  FHSELA1  FHSP  FHSP1  FHSP11  FHWADM  FHWORR
FHWTRN  FHXDB2

Entry Points

Name	Comments	DBIA/ICR reference
CONVC	;Convert Amount/Unit in file 118.2, from "C" to "ML".
DIETVER	;Verify that diet selected is from the allowable diets in 119.9
OKMSG	;Display message stating meal ordered successfully
UPXMSG	;
RMBED	;Prompt for outpatient room-bed - must be set up for Outpatient Location
DIV	;ask for Communication office if Multi-division.
SMSTAT	;Status of last special meal request
MONUM	;Prompt for number of monitors to display
PATNAME	;Get name and demographics of patient/new person
C1
ENDATE	;Prompt for end date
DIETLST	;Build list
DIETMSG	;Display message
CK
MSHOM	;Code MSG for outpatient orders
RANGE	;Check for validity of range of numbers entered
GTFHDFN	;Get FHDFN, given DFN
MSHCA	;Code Cancel/Discontinue for outpatient orders
MSHSS	;Code MSG for outpatient send status messages
EXMSG	;Display message stating meal NOT ordered
STDATE	;Prompt for start date (if FHPSDT="N" do not allow past dates)
GETZN	;Get first piece of zero node in 115
D2
OUTLOC	;Prompt for outpatient location - screen for ONLY Outpatient Locations
UPDMSG	;
GETOPT	;Select outpatient for recurring meals
TYPE	;
DIETHLP	;Display allowable diets from 119.9

External References

Name	Field # of Occurrence
DD^%DT	STDATE+1, STDATE+4, ENDATE+1, ENDATE+3
NOW^%DTC	STDATE+1, ENDATE+1, PATNAME+15, MSHCA+1
^DIC	D2+1, OUTLOC+4, RMBED+8
^DIR	STDATE+4, ENDATE+2, GTFHDFN+1, MONUM+3
SITE^FH	MSHOM+1, MSHCA+1, MSHSS+1
TR^FH	D2, RANGE+1
PID^FHDPA	PATNAME+8
^FHOMDPA	GETOPT+1
$$FMTHL7^XLFDT	MSHCA+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Select COMMUNICATION OFFICE (or ALL): ALL// " Formatting: !! Timeout: DTIME Variable: X Line Location: D2+0
Function Call: WRITE	Prompt: " ",Y Line Location: STDATE+4
Function Call: WRITE	Prompt: " ",Y Line Location: ENDATE+3
Function Call: WRITE	Prompt: !!,"The selected location does not have an Associated Hospital Location. To set",!,"the Associated Hospital Location use option ENTER/EDIT NUTRITION LOCATIONS." Line Location: OUTLOC+7
Function Call: WRITE	Prompt: !!,"No OUTPATIENT LOCATION selected" Line Location: RMBED+2
Function Call: WRITE	Prompt: !!,"DFN '",ZZDFN,"' NOT FOUND IN FILE 2",! Line Location: GTFHDFN+3
Function Call: WRITE	Prompt: !!,"NO CORRESPONDING FHDFN" Line Location: GTFHDFN+4
Function Call: WRITE	Prompt: !!," NAME: ",$P($G(^DPT(ZZDFN,0)),U,1) Line Location: GTFHDFN+5
Function Call: WRITE	Prompt: !?2,"DFN: ",ZZDFN,!,"FHDFN: ",FHDFN,! Line Location: GTFHDFN+6
Function Call: WRITE	Prompt: !!,"NO RECURRING MEALS FOR THIS PERSON" Line Location: GETOPT+3
Function Call: WRITE	Prompt: ! Line Location: GETOPT+4
Function Call: WRITE	Prompt: *7," ==> NOT ALLOWED",! Line Location: DIETVER+2
Function Call: WRITE	Prompt: !?3,"You must select from the diets set up in the Site Parameters:" Line Location: DIETMSG+1
Function Call: WRITE	Prompt: !?3,$P($G(^FH(111,AB,0)),U) Line Location: DIETMSG+2
Function Call: WRITE	Prompt: ! Line Location: DIETMSG+3
Function Call: WRITE	Prompt: !!?3,FHMSGML," NOT ordered!",! Line Location: EXMSG+2
Function Call: WRITE	Prompt: !!?3,FHMSGML," ordered for ",FHPTNM,"...",! Line Location: OKMSG+2
Function Call: WRITE	Prompt: !!?3,"Recurring meal NOT updated! ",! Line Location: UPXMSG+1
Function Call: WRITE	Prompt: !!?3,"Recurring meal updated for ",FHPTNM,"...",! Line Location: UPDMSG+1
Function Call: WRITE	Prompt: !," Enter numbers or range or ALL (E.G., 1,3,4 or 3-5 or 1,3-5)" Line Location: C1+0
Function Call: WRITE	Prompt: ! Line Location: MONUM+1
Routine Call	DIC Line Location: D2+1 OUTLOC+4 RMBED+8
Routine Call	DIR Line Location: STDATE+4 ENDATE+2 GTFHDFN+1 MONUM+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GTFHDFN+3, GTFHDFN+5, PATNAME+3, PATNAME+9, MSHOM+3, MSHCA+4, MSHSS+3
^FH(111 - [#111]	DIETLST+6, DIETMSG+2
^FH(118.2 - [#118.2]	CONVC+1, CONVC+2, CONVC+4*
^FH(119.6 - [#119.6]	OUTLOC+6, OUTLOC+7, RMBED+3, RMBED+4, RMBED+5, MSHOM+4, MSHOM+5
^FH(119.73 - [#119.73]	DIV+3
^FH(119.9 - [#119.9]	DIV+4, DIETLST+1, DIETLST+2
^FHPT - [#115]	GETOPT+2, GETOPT+3, GETZN+1, SMSTAT+1, SMSTAT+3
^FHPT("B"	GTFHDFN+2
^SC - [#44]	MSHOM+6
^VA(200 - [#200]	PATNAME+4, PATNAME+12, PATNAME+14

Name	Line Occurrences
C1	CK, CK+1
CK	RANGE+4
D2	D2+1
DIETLST	DIETVER+1, DIETHLP+1
DIETMSG	DIETVER+2, DIETHLP+1
GETZN	PATNAME+2
MONUM	MONUM+5
PATNAME	OKMSG+2, UPDMSG+1
STDATE	GETOPT+4
TYPE	EXMSG+1, OKMSG+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PATNAME+16, MSHCA+1
>> A	DIETLST+3*
>> AB	DIETLST+3, DIETLST+4, DIETLST+5, DIETLST+6, DIETMSG+2
>> ACT	MSHCA+1*, MSHCA+6
>> BID	PATNAME+10
>> DATE	MSHCA+5*, MSHCA+6
>> DFN	PATNAME+2, PATNAME+7, PATNAME+9, MSHOM+3, MSHCA+4, MSHSS+3
DIC	D2+1!, OUTLOC+2!, RMBED+6!*
DIC("A"	OUTLOC+3, RMBED+7
DIC("S"	OUTLOC+4, RMBED+8
DIC(0	D2+1, OUTLOC+2, RMBED+6*
DIR	STDATE+2!, ENDATE+1!, GTFHDFN+1!, MONUM+1!
DIR("?"	MONUM+1*
DIR("A"	STDATE+2, ENDATE+2, MONUM+2*
DIR("B"	STDATE+2, ENDATE+2, GTFHDFN+1, MONUM+3
DIR(0	STDATE+3, ENDATE+2, GTFHDFN+1, MONUM+2
>> DIRUT	STDATE+4, ENDATE+3, GTFHDFN+1, MONUM+4
DT	SMSTAT+2
DTIME	D2
>> DUOUT	OUTLOC+5, RMBED+9
DUZ	MSHCA+6
>> ENDT	ENDATE+1, ENDATE+3
FH	DIV+1~, DIV+3*
>> FHAF	CONVC+3*, CONVC+4
>> FHAGE	PATNAME+15, PATNAME+16
>> FHAS	CONVC+3*, CONVC+4
>> FHAU	CONVC+2*, CONVC+3
>> FHBID	PATNAME+2, PATNAME+10, PATNAME+13*
>> FHCATXT	MSHCA+2*, MSHCA+6
>> FHCLST	RANGE+1, RANGE+5, C1*
>> FHCOMM	OUTLOC+6, OUTLOC+7
>> FHDEF	DIETLST+2*
>> FHDFN	GTFHDFN+2*, GTFHDFN+4, GTFHDFN+6, GETOPT+1, GETOPT+2, GETOPT+3, GETZN+1, SMSTAT+1, SMSTAT+3
>> FHDIET	DIETVER+1, DIETVER+2*
FHDIETS	DIETLST+1!
FHDIETS(	DIETVER+1, DIETLST+5*, DIETMSG+2
>> FHDOB	PATNAME+2, PATNAME+9, PATNAME+14*, PATNAME+16
>> FHDTDF	STDATE+1, STDATE+2, ENDATE+1, ENDATE+2
>> FHFIND	GETOPT+1, GETOPT+2, GETOPT+3, GETOPT+4
>> FHII	CONVC+1*, CONVC+2, CONVC+4
>> FHLOC	OUTLOC+1, OUTLOC+6, OUTLOC+7*, RMBED+2, RMBED+3, RMBED+4, RMBED+5, MSHOM+4, MSHOM+5
>> FHMSG1	TYPE+1
>> FHMSGML	EXMSG+2, OKMSG+2, TYPE+1*
>> FHNOW	MSHCA+1*, MSHCA+5
>> FHNUM	RANGE+1, RANGE+2, RANGE+3, MONUM+1, MONUM+4, MONUM+5, MONUM+6
>> FHOLOC	MSHOM+4, MSHOM+5, MSHOM+6, MSHOM+7
>> FHOLOCNM	MSHOM+6*, MSHOM+7
>> FHORN	MSHCA+6, MSHSS+4
>> FHOUT	OUTLOC+1*
>> FHPCZN	GETZN+1*, GETZN+2
>> FHPSDT	STDATE+3
>> FHPTNM	PATNAME+3, PATNAME+4, OKMSG+2, UPDMSG+1
>> FHRMBD	RMBED+1, RMBED+10
>> FHRMBI	RMBED+4*, RMBED+5
>> FHRMBPT	RMBED+5*
>> FHRMBSL	RMBED+1*
>> FHRMBSL(	RMBED+5*
FHSCNT	DIV+1~, DIV+3*, DIV+4, D2
>> FHSEX	PATNAME+2, PATNAME+9, PATNAME+14*
FHSITE	DIV+2!, DIV+3, D2!, D2+1*
FHSITENM	DIV+2!, DIV+3, D2!, D2+1
>> FHSMNUM	SMSTAT+1*, SMSTAT+2, SMSTAT+3
>> FHSPDTS	DIETLST+1, DIETLST+6
>> FHSSN	PATNAME+8, PATNAME+12, PATNAME+13
>> FHSTAT	SMSTAT+1, SMSTAT+2, SMSTAT+3*
>> FHSTTS	MSHSS+4
>> FHZ115	GTFHDFN+2*
>> FILE	PATNAME+3, PATNAME+4, PATNAME+6, PATNAME+11, GETZN+1*
>> FILL	MSHCA+6, MSHSS+4
>> FLG	RANGE+1, RANGE+3, RANGE+4, C1
>> IEN	PATNAME+3, PATNAME+4, PATNAME+7, PATNAME+12, PATNAME+14, GETZN+2*
>> IEN200	PATNAME+12*
>> K	RANGE+3*
>> K1	RANGE+3, RANGE+4, RANGE+5, CK, CK+2
>> K2	RANGE+4*, RANGE+5, CK+1, CK+2
>> K3	RANGE+5*
MSG	MSHCA+1!
MSG(1	MSHOM+2, MSHCA+3, MSHSS+2*
MSG(2	MSHOM+3, MSHCA+4, MSHSS+3*
MSG(3	MSHOM+7, MSHCA+6, MSHSS+4*
>> NUM	RANGE+2, CK, CK+1
>> PID	PATNAME+8
>> SITE(1	MSHOM+2, MSHCA+3, MSHSS+2
SPD	DIETLST+1!*, DIETLST+3
>> STDT	STDATE+1, STDATE+4, ENDATE+2, GETOPT+4
U	DIV+3, DIV+4, D2+1, OUTLOC+6, RMBED+5, GTFHDFN+5, PATNAME+3, PATNAME+4, PATNAME+9, PATNAME+12 , PATNAME+14, GETZN+1, DIETLST+1, DIETLST+2, DIETLST+3, DIETLST+6, DIETMSG+2, SMSTAT+3, MSHOM+6, CONVC+2 , CONVC+4
X	D2!, D2+1, STDATE+1, ENDATE+1, RANGE+1
>> Y	D2+1, STDATE+1, STDATE+4, ENDATE+1, ENDATE+3, OUTLOC+5, OUTLOC+6, RMBED+9, RMBED+10, GTFHDFN+1 , MONUM+5
>> ZZDFN	GTFHDFN+1*, GTFHDFN+2, GTFHDFN+3, GTFHDFN+5, GTFHDFN+6

Customize PDF page

Package: Dietetics

Routine: FHOMUTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 82

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: