Routine: FHOMRO1

Package	Total	Call Graph
Dietetics	10	(DTP,TR)^FH (CPRSF,PPRSF,SFEVNT)^FHNO7 ^FHOMDPA ORD^FHOMRE1 (CHK1,CHK2,KILL,SETORX,SOSFFP)^FHOMRO2 ^FHOMRO3 DISP^FHOMRR1 (DIETLST,EXMSG,MSHOM,OKMSG,OUTLOC,PATNAME,RMBED,UPDMSG,UPXMSG)^FHOMUTL (CPRSO,PPRSO,SOEVNT)^FHSPED EVSEND^FHWOR
VA Fileman	6	DD^%DT (C,DOW,H,NOW)^%DTC ^DIC FILE^DICN ^DIE ^DIR
Kernel	2	($$FMTE,$$FMTHL7)^XLFDT $$PATCH^XPDUTL

Package	Total	Caller Graph
Dietetics	2	FHOMRO FHOMWOR

Name	Comments	DBIA/ICR reference
DIETORD	;
SETNODE	;
DAYCHK	;
EDIT	;
SHDAYS	;
MULTDT	;
DAYS	;
MSG1	;
CHECK	;
OUTLOC	;Prompt for outpatient location - screen for ONLY Outpatient Locations
DATE	;
SET	;
END	;Kill local variables before exiting
ED100	;Backdoor message to update file #100 with an edited RM order
EDT1
ORDEDT	;
CHECKSM	; Check if the OP has an existing SM for this date/meal
PREV	;
UPD100	;Backdoor message to update file #100 with a new RM order
ORDER	;
SETEDT	;

External References

Name	Field # of Occurrence
DD^%DT	DATE+3, DATE+8, EDT1+2
C^%DTC	FHOMRO1+6, DATE+5, DAYS+9, SETNODE+3, SETNODE+5
DOW^%DTC	SETNODE+7
H^%DTC	DAYS+9
NOW^%DTC	FHOMRO1+6, DATE+5, EDIT+1
^DIC	DIETORD+5, EDT1+11, OUTLOC+4
FILE^DICN	SET+8
^DIE	SET+11, SETEDT+2
^DIR	ORDEDT+3, DATE+1, DATE+6, DAYS+3, DAYS+7, DAYS+10, EDT1
DTP^FH	MSG1+2
TR^FH	DAYCHK+1
CPRSF^FHNO7	SET+5
PPRSF^FHNO7	SET+14
SFEVNT^FHNO7	SETNODE+14
^FHOMDPA	FHOMRO1+4
ORD^FHOMRE1	DAYS+20
CHK1^FHOMRO2	DAYS+12
CHK2^FHOMRO2	DAYS+16
KILL^FHOMRO2	END+1
SETORX^FHOMRO2	SETNODE+10
SOSFFP^FHOMRO2	SETNODE+12
^FHOMRO3	MULTDT+2
DISP^FHOMRR1	EDIT+2
DIETLST^FHOMUTL	DIETORD+2, EDT1+8
EXMSG^FHOMUTL	ORDER+1, DIETORD+1, DIETORD+6, DIETORD+7, DATE+2, DATE+7, DAYS+3, DAYS+7, DAYS+11
MSHOM^FHOMUTL	UPD100+2, ED100+2
OKMSG^FHOMUTL	DAYS+15
OUTLOC^FHOMUTL	ORDER+1
PATNAME^FHOMUTL	PREV+4
RMBED^FHOMUTL	ORDER+2
UPDMSG^FHOMUTL	SETEDT+2
UPXMSG^FHOMUTL	EDT1+6, EDT1+7, EDT1+12, EDT1+13
CPRSO^FHSPED	SET+4
PPRSO^FHSPED	SET+13
SOEVNT^FHSPED	SETNODE+13
EVSEND^FHWOR	UPD100+16, ED100+10
$$FMTE^XLFDT	PREV+4
$$FMTHL7^XLFDT	UPD100+9, UPD100+10, ED100+4
$$PATCH^XPDUTL	UPD100+1, ED100+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"UNKNOWN SELECTION !" Line Location: FHOMRO1+5
Function Call: WRITE	Prompt: !!,"This person has an existing outpatient diet order." Line Location: ORDEDT+1
Function Call: WRITE	Prompt: ! Line Location: ORDER+1
Function Call: WRITE	Prompt: ! Line Location: ORDER+2
Function Call: WRITE	Prompt: !!,"NO DEFAULT OUTPATIENT DIET SET!!",! Line Location: DIETORD+2
Function Call: WRITE	Prompt: " ",Y Line Location: DATE+3
Function Call: WRITE	Prompt: " ",Y Line Location: DATE+8
Function Call: WRITE	Prompt: ! Line Location: DAYS+8
Function Call: WRITE	Prompt: !!!?5,"No meals ordered!",! Line Location: DAYS+14
Function Call: WRITE	Prompt: !!," Mon Tues Wed Thur Fri Sat Sun" Line Location: SHDAYS+1
Function Call: WRITE	Prompt: !," M T W R F S X" Line Location: SHDAYS+2
Function Call: WRITE	Prompt: !!,"Enter string of characters for desired days of week: e.g., MWF",! Line Location: SHDAYS+3
Function Call: WRITE	Prompt: !!,"Please enter the desired days of the week.",! Line Location: DAYCHK+6
Function Call: WRITE	Prompt: !!,"This patient already has a Special Meal ordered for " Line Location: MSG1+1
Function Call: WRITE	Prompt: DTP," " Line Location: MSG1+2
Function Call: WRITE	Prompt: $S(FHMEAL="B":"Breakfast",FHMEAL="N":"Noon",1:"Evening"),! Line Location: MSG1+3
Function Call: WRITE	Prompt: !,Y,! Line Location: EDT1+2
Function Call: WRITE	Prompt: !!?3,"The selected order has been cancelled!",! Line Location: EDT1+4
Function Call: WRITE	Prompt: !!,"NO DEFAULT OUTPATIENT DIET SET!!",! Line Location: EDT1+8
Function Call: WRITE	Prompt: ! Line Location: SETEDT+1
Function Call: WRITE	Prompt: !!,"The selected location does not have an Associated Hospital Location." Line Location: OUTLOC+6
Routine Call	DIE Line Location: SET+11 SETEDT+2
Routine Call	DIC Line Location: DIETORD+5 EDT1+11 OUTLOC+4
Routine Call	DIR Line Location: ORDEDT+3 DATE+1 DATE+6 DAYS+3 DAYS+7 DAYS+10 EDT1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(111 - [#111]	DIETORD+3, EDT1+9, UPD100+8, UPD100+15, ED100+6
^FH(119.6 - [#119.6]	DIETORD+1, DATE+4, EDT1+7, OUTLOC+6
^FHPT - [#115]	FHOMRO1+5, DAYS+17, DAYS+18, DAYS+19, SETNODE+1, PREV+1, PREV+2, PREV+3, CHECK+1, CHECK+2 , CHECKSM+2, CHECKSM+3, CHECKSM+4, CHECKSM+5, EDT1+4, EDT1+5, EDT1+9, ED100+3, ED100+5

Label References

Name	Line Occurrences
CHECK	FHOMRO1+6
CHECKSM	DAYS+9
DATE	DIETORD+1
DAYCHK	DAYS+4
DAYS	DAYS+4
ED100	SETEDT+2
EDIT	ORDEDT+6
EDT1	EDT1+4
END	FHOMRO1+7, FHOMRO1+8
MSG1	DAYS+9
MULTDT	DIETORD+1, EDT1+7
ORDEDT	FHOMRO1+7
ORDER	FHOMRO1+8, ORDEDT+5
OUTLOC	EDT1+6
PREV	SET+1
SET	SETNODE+8
SETEDT	EDT1+7
SETNODE	DAYS+13
SHDAYS	DAYS+1
UPD100	DAYS+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FHOMRO1+6, DATE+5, EDIT+1
>> %Y	DAYS+9
>> ADM	SET+12*
>> CCC	SETNODE+3, SETNODE+5
>> CONT	DAYS+11*
>> DA	SET+10, SET+12, EDT1+3, EDT1+4, EDT1+5, EDT1+9, SETEDT+1
>> DA(1	SET+6, SET+9, EDT1+3*
>> DFN	UPD100+2, ED100+2
DIC	DIETORD+4!, SET+6!, EDT1+10!, OUTLOC+2!
DIC("A"	DIETORD+4, EDT1+10, OUTLOC+3*
DIC("B"	DIETORD+5, EDT1+11, OUTLOC+2*
DIC("S"	DIETORD+5, EDT1+11, OUTLOC+4*
DIC(0	DIETORD+4, SET+7, EDT1+10, OUTLOC+2
DIE	SET+9!, EDT1+3
DIR	ORDEDT+2!, DATE+1!, DATE+6!, DAYS+2!, DAYS+5!, DAYS+10!, EDT1!
DIR("A"	ORDEDT+3, DATE+1, DATE+6, DAYS+2, DAYS+5, DAYS+10, EDT1*
DIR("B"	DAYS+10*
DIR(0	ORDEDT+2, DATE+1, DATE+6, DAYS+2, DAYS+6, DAYS+10, EDT1*
>> DIRUT	ORDEDT+4, DATE+2, DATE+7, DAYS+3, DAYS+7, EDT1+1
DO	SET+6!
>> DR	SET+11, SETEDT+1
DT	DAYS+9, DAYS+12, CHECKSM+2, MSG1+2
>> DTP	MSG1+2*
>> DUOUT	DIETORD+6, EDT1+12, OUTLOC+5
>> ENDL	SETNODE+4, SETNODE+6
>> ENDT	DATE+8*, DAYS+9, SETNODE+6, UPD100+9, UPD100+11
>> FH1	UPD100+4*
>> FHACT	SETNODE+10*
>> FHADSFF	SETNODE+1*
>> FHCUT	DATE+5*, DATE+6
>> FHD0	MULTDT+3*
>> FHDAYS	DAYS+4, DAYS+9, SETNODE+8, DAYCHK+1, DAYCHK+2, UPD100+4, UPD100+11
>> FHDEF	DIETORD+2, DIETORD+3, DIETORD+5, EDT1+8, EDT1+9, EDT1+11
>> FHDEF2	EDT1+9*
>> FHDFN	FHOMRO1+4, FHOMRO1+5, DAYS+17, DAYS+18, DAYS+19, SETNODE+1, SET+6, SET+9, PREV+1, PREV+2 , PREV+3, CHECK+1, CHECK+2, CHECKSM+2, CHECKSM+3, CHECKSM+4, CHECKSM+5, EDT1+3, EDT1+4, EDT1+5 , EDT1+9, ED100+3, ED100+5
>> FHDI(	MULTDT+3
>> FHDI(0	MULTDT+2
>> FHDIET	FHOMRO1+3, DIETORD+8, SETNODE+11, MULTDT+1, EDT1+7, EDT1+14*, UPD100+8, UPD100+13, UPD100+14, ED100+6 , ED100+9
>> FHDIETX(	FHOMRO1+3, MULTDT+1, MULTDT+2, MULTDT+3, EDT1+14*, UPD100+15
>> FHDIETX(1	DIETORD+1, EDT1+7
>> FHDPATT	SETNODE+11, MULTDT+1, MULTDT+3*
>> FHDTRLE	EDIT+1*
>> FHDX	FHOMRO1+3, MULTDT+1, MULTDT+2, MULTDT+3, EDT1+14*
>> FHEL	DAYS+20*
>> FHEXST	FHOMRO1+7, CHECK+1, CHECK+2
>> FHHL7	PREV+4
>> FHIFLG	DAYS+1, DAYS+4, DAYCHK+2, DAYCHK+3, DAYCHK+4*, DAYCHK+6
>> FHLIST(	EDT1+2, EDT1+3
>> FHLOC	ORDER+1, DIETORD+1, DATE+4, EDT1+6, EDT1+7, OUTLOC+1, OUTLOC+6
>> FHLPT	EDT1+5*, OUTLOC+2
>> FHLTFLG	DAYS+16*, DAYS+17
>> FHMAX	DATE+4*, DATE+5
>> FHMEAL	DAYS+8, DAYS+18, PREV+2, PREV+6, CHECKSM+3, MSG1+3, EDT1+5, UPD100+7, UPD100+11, ED100+7
>> FHMPNUM	SETNODE+1, SETNODE+2, UPD100+11
>> FHMSG1	FHOMRO1+4, DAYS+15
>> FHNOW	FHOMRO1+6*, CHECK+1, CHECK+2
>> FHODAYS	UPD100+3, UPD100+5, UPD100+6*, UPD100+12
>> FHODNM	UPD100+8, UPD100+13, UPD100+15, ED100+6*, ED100+9
>> FHOENDT	UPD100+9, UPD100+12, ED100+3, ED100+4*, ED100+8
>> FHOMEAL	UPD100+7, UPD100+13, UPD100+15, ED100+7, ED100+9
>> FHOPTY	SETNODE+10*
>> FHORN	SET+10, ED100+5, ED100+8
>> FHOSTDT	DATE+3, UPD100+9, UPD100+11, UPD100+12, ED100+3, ED100+4, ED100+8
>> FHOTDAY	UPD100+10*, UPD100+12
>> FHOUT	OUTLOC+1*
>> FHPREDT	PREV+4*, PREV+7
>> FHPREVML	SET+1, PREV+1, PREV+8
>> FHPTNM	PREV+5
>> FHRMDT	DAYS+20, CHECK+2
>> FHRNUM	DAYS+17, DAYS+18, DAYS+19, PREV+1, PREV+2, PREV+3, CHECK+2*
>> FHSETFLG	DAYS+14, SETNODE+2, SET+2
>> FHSMYES	DAYS+9, CHECKSM+1, CHECKSM+6
>> FHTDTMP	DAYS+12*, DAYS+16
>> FHTODAY	DATE+5*, DAYS+12, DAYS+17, DAYS+20, UPD100+10
>> FHZ	CHECKSM+2*, CHECKSM+3, CHECKSM+4, CHECKSM+5
>> FHZDA	SETEDT+1*, ED100+3, ED100+5
>> FILL	UPD100+11, UPD100+12, ED100+5, ED100+8
>> K	DAYCHK+2*
>> M	UPD100+4*
MSG	UPD100+2!, ED100+2!
MSG(	UPD100+15*
MSG(4	UPD100+12, ED100+8
MSG(5	UPD100+13, ED100+9
>> N	UPD100+4, UPD100+5, UPD100+15*
N1	UPD100+3!
N1(	UPD100+4*, UPD100+5
>> NUM	EDT1
ODAYS	SETNODE+3!
ODAYS(	SETNODE+8*
>> ORDNUM	EDT1+2*, EDT1+3
>> STDT	DATE+3, DATE+6, DAYS+9, DAYS+12, SETNODE+3, SETNODE+5, SETNODE+6, SETNODE+7, SETNODE+8, SET+6 , PREV+1, PREV+4, EDIT+1*
>> STDTMP	DAYS+12*, DAYS+16
U	DIETORD+1, DIETORD+3, DATE+4, DAYS+18, DAYS+19, PREV+2, PREV+3, CHECK+2, CHECKSM+3, CHECKSM+4 , CHECKSM+5, EDT1+2, EDT1+3, EDT1+4, EDT1+5, EDT1+7, EDT1+9, UPD100+8, UPD100+15, ED100+3 , ED100+5, ED100+6
>> X	FHOMRO1+6, DATE+5, DAYS+9, SETNODE+3, SETNODE+5, SETNODE+7, DAYCHK+1*
>> X1	FHOMRO1+6, DATE+5, DAYS+9, SETNODE+3, SETNODE+5, DAYCHK+2, DAYCHK+3, DAYCHK+5*
>> X2	FHOMRO1+6, DATE+5, DAYS+9, SETNODE+3, SETNODE+5*
>> Y	ORDEDT+5, ORDEDT+6, DIETORD+7, DIETORD+8, DATE+3, DATE+8, DAYS+4, DAYS+8, DAYS+11, SETNODE+8 , SET+6, SET+8, SET+10, EDT1+2, EDT1+13, EDT1+14, OUTLOC+5, OUTLOC+6
>> Z	DAYCHK+2*, DAYCHK+3, DAYCHK+4, DAYCHK+5

Customize PDF page

Package: Dietetics

Routine: FHOMRO1

Information

Source Information

Call Graph

Call Graph Total: 18

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

Local Variables

Legend: