Routine: FHORD4

Package	Total	Call Graph
Dietetics	5	(SITE,TR)^FH ^FHDPA (CUR,STR)^FHORD7 ^FHORX (CODE,ISO)^FHWOR61
VA Fileman	4	NOW^%DTC ^DIC ^DIE EN1^DIP
Kernel	2	^%ZIS $$FMTHL7^XLFDT

Package	Total	Caller Graph
Dietetics	4	FHORD4 FHORI1 FHORI2 FHWOR61

Entry Points

Name	Comments	DBIA/ICR reference
F1
F2
S2	;
S1
RSET
EN1	; Enter/Edit Isolation/Precaution Types
EN2	; List Isolation/Precaution Types
CAN	; Cancel Isolation
KIL
SETVAR	; Set Date in HL7 format
FIL	; File Isolation

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FHORD4+5
Function Call: READ	Prompt: "Patient is on CAFETERIA/DINING ROOM Service. Change to TRAY? YES// " Formatting: !! Timeout: DTIME Variable: X Line Location: S1+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: S1+1
Function Call: WRITE	Prompt: " ... done" Line Location: S2+1
Function Call: WRITE	Prompt: !!,"Isolation/Precaution Type is: ",$P($G(^FH(119.4,X,0)),"^",1) Line Location: F1+1
Function Call: READ	Prompt: "Do you wish to remove? (Y/N) " Formatting: !! Timeout: DTIME Variable: X Line Location: F2+0
Function Call: WRITE	Prompt: *7," Answer YES or NO" Line Location: F2+0
Function Call: WRITE	Prompt: " ...removed" Line Location: F2+1
Function Call: WRITE	Prompt: " ... no change made" Line Location: F2+2
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN2+1
Routine Call	DIE Line Location: EN1+2
Routine Call	DIC Line Location: FHORD4+5 EN1+1
Routine Call	%ZIS Line Location: RSET

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

Name	Line Occurrences (* Changed, ! Killed)
^FH(119.4 - [#119.4]	F1+1, FIL+1
^FHPT - [#115]	FHORD4+4, FHORD4+7, S1+2, F1, F2+1, FIL+1, CAN+1
^FHPT("AIS"	FIL+2*, CAN+1!
^XUSEC("FHMGR"	EN1+2

Name	Field # of Occurrence
^(0	CAN+1*

Name	Field # of Occurrence
%	FHORD4+3!
%DT	KIL!
%H	FHORD4+3!
%I	FHORD4+3!
%ZIS	RSET!
ADM	FHORD4+4, FHORD4+7, S1+2, F1, F2+1, FIL+1, FIL+2, CAN+1, KIL!, SETVAR+2
ALL	FHORD4+2*, KIL!
BY	KIL!, EN2+1*, RSET!
C	KIL!
COM	S1+3*, KIL!
D1	S1+3*, KIL!
D2	S1+3*, KIL!
D3	S1+3*, KIL!
D4	S1+3*, KIL!
DA	KIL!, EN1+2*!, RSET!
DFN	FHORD4+2, KIL!
DHD	KIL!, EN2+2*, RSET!
DIC	FHORD4+5!, KIL!, EN1+1!, EN2+1*, RSET!
DIC("DR"	EN1+1*
DIC(0	FHORD4+5, EN1+1
DIDEL	EN1+2*!
DIE	KIL!, EN1+1*, EN1+2!, RSET!
DLAYGO	EN1+1*!
DR	KIL!, EN1+2*!, RSET!
DT	S1+3*
DTIME	S1, F2
>> DTOUT	EN1+1
DUZ	EN1+2
>> EVT	FIL+3, CAN+2
FHDFN	FHORD4+2, FHORD4+4, FHORD4+7, S1+2, F1, F2+1, FIL+1, FIL+2, CAN+1, KIL!
FHDR	KIL!
FHDU	KIL!
>> FHIDT	SETVAR+1*
FHLD	KIL!
>> FHNOW	FHORD4+6*
FHOR	S1+2, KIL!
FHORD	KIL!
FHORN	F2+1*, KIL!
FHPV	KIL!
FHWF	KIL!
>> FILL	SETVAR+2*
FLDS	KIL!, EN2+1*, RSET!
FR	KIL!, EN2+2*, RSET!
I	KIL!
IOP	RSET*!
IS	FHORD4+5, FIL+1, FIL+3, CAN+1, CAN+2, KIL!, SETVAR+2
L	KIL!, EN2+1*, RSET!
NOW	FHORD4+3, FHORD4+6, S1+3, KIL!, SETVAR+1
POP	KIL!
TO	KIL!, EN2+2*, RSET!
TYP	FHORD4+7, S1+3, KIL!
WARD	KIL!
X	S1, S1+1, S1+2, S1+3, F1, F1+1, F2, F2+1, FIL+1*, KIL! , EN1+1, RSET!
X1	KIL!
Y	FHORD4+5, KIL!, EN1+1, EN1+2, RSET!