Routine: FHORDR

Information

FHORDR ; HISC/REL - Production Diet Recode ;3/28/95 12:09

Source file <FHORDR.m>

Package	Total	Call Graph
Dietetics	1	PATNAME^FHOMUTL

Package	Total	Caller Graph
Dietetics	4	FHORD1 FHX2 SINGULAR PRODUCTION DIETS ^FH(116.2

Name	Comments	DBIA/ICR reference
SET	; Rebuild 'AR' recode cross-reference
R1
S2
S1
INP	; Recode all inpatients
Z1
CODE	; Recode diet
REC
C1
MIS	; No recoding of diet order
Z2

Name	Field # of Occurrence
PATNAME^FHOMUTL	MIS+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P($G(^DPT(DFN,0)),"^",1),", Admission ",ADM,", Diet Order ",FHORD," not recoded" Line Location: MIS+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MIS+2
^FH(111 - [#111]	CODE+5
^FH(111.1 - [#111.1]	CODE+3, CODE+4
^FH(116.2 - [#116.2]	CODE+6, SET+1!, SET+3, S1, S1+1, S2
^FHPT - [#115]	C1*, Z1, Z2
^FHPT("AW"	INP+2

Name	Field # of Occurrence
^(	CODE+6, S1+1

Name	Field # of Occurrence
ADM	C1, MIS+2, INP+2*, INP+3!, Z1, Z2
C	REC*, INP+3!
D	INP+3!
DFN	MIS+1, MIS+2, INP+3!
FHDFN	C1, INP+2*, INP+3!, Z1, Z2
FHOR	CODE+1, CODE+3, CODE+5, INP+3!, Z2*
FHORD	C1, MIS+2, SET+3!, INP+3!, Z1*, Z2
FLG	FHORDR+2, CODE+7, INP+1, INP+3!
I	INP+3!
K1	CODE+5, CODE+6, SET+1*, SET+3!, S1, S1+1, S1+2, INP+3!
K2	REC, SET+3!, S1+1, INP+3!
LC	CODE+6, SET+2, SET+3!, S2*, INP+3!
M	CODE+5, REC, SET+1!, SET+2, SET+3!, S1*, S1+2, INP+3!
M(	SET+2, S1+2*
>> MP	CODE+3*, CODE+4
>> PDFLG	CODE+2, INP+1*
W1	INP+2*, INP+3!
X	CODE+6, SET+2, SET+3!, S1, S1+1, S1+2, S2, S2+1*, INP+3!
X1	CODE+6, REC, INP+3!
Z	CODE+1, CODE+4, CODE+5, CODE+6, CODE+7, C1, REC, R1, SET+2, SET+3! , S1+1, S2, S2+1, INP+3!, Z2*