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	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

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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: