Routine: FHOMRA1

Package	Total	Call Graph
Dietetics	4	SETAET^FHOMRO2 DISP^FHOMRR1 (EXMSG,GETOPT,MSHOM,OKMSG)^FHOMUTL (EVSEND,SEND)^FHWOR
VA Fileman	3	(C,NOW)^%DTC ^DIE ^DIR
Kernel	2	($$FMTE,$$FMTHL7)^XLFDT $$PATCH^XPDUTL

Package

Total

Call Graph

SETAET^FHOMRO2 DISP^FHOMRR1 (EXMSG,GETOPT,MSHOM,OKMSG)^FHOMUTL (EVSEND,SEND)^FHWOR

(C,NOW)^%DTC ^DIE ^DIR

($$FMTE,$$FMTHL7)^XLFDT $$PATCH^XPDUTL

Package	Total	Caller Graph
Dietetics	2	FHOMRA FHOMWOR

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SET	;
END	;
CHK	;
AO1
HL7SET	; ; Entry point for AO's placed from CPRS/OERR
UPD100	;Backdoor message to update file #100 with a new AO order

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AO1+0
Function Call: WRITE	Prompt: !!?3,"The selected order(s) have been cancelled!",! Line Location: AO1+3
Function Call: WRITE	Prompt: ! Line Location: AO1+4
Function Call: WRITE	Prompt: ! Line Location: AO1+7
Function Call: WRITE	Prompt: ! Line Location: AO1+9
Function Call: WRITE	Prompt: !?3,"The order for ",$E(FHDTX,1,12)," has been cancelled -- not ordered!" Line Location: CHK+1
Routine Call	DIE Line Location: SET+4
Routine Call	DIR Line Location: AO1 AO1+4 AO1+8

Name	Line Occurrences (* Changed, ! Killed)
^FHPT - [#115]	AO1+2, CHK+1, HL7SET+3

Name	Field # of Occurrence
>> %	SET+1
A	AO1+2, AO1+10, END+1!
>> DA	SET+3*
>> DA(1	SET+3*
>> DFN	UPD100+2
DIE	SET+3!*
DIR	AO1!, AO1+4!, AO1+7!
DIR("A"	AO1, AO1+4, AO1+7*
DIR("B"	AO1+7*
DIR(0	AO1, AO1+4, AO1+7*
>> DIRUT	AO1+1, AO1+5, AO1+8
>> DR	SET+4*
>> ENDT	HL7SET+3
>> FHACT	SET+5*
>> FHAET	SET+5*
FHC	AO1+2, AO1+10, END+1!
>> FHCAN1	AO1+2*, AO1+3
FHCLST	AO1+1*, AO1+2, AO1+10, END+1!
>> FHCOM	HL7SET+2, HL7SET+5
>> FHDFN	AO1+2, CHK+1, SET+3, HL7SET+3
>> FHDTX	CHK+1*
FHFIND	FHOMRA1+3, END+1!
>> FHLIST(	AO1+2, AO1+10
>> FHMSG1	FHOMRA1+3*
>> FHODT	UPD100+3*, UPD100+4
>> FHOPTY	SET+5*
>> FHORN	SET+2*, HL7SET+5
>> FHRMDT	HL7SET+3*
FHRNUM	AO1+2, AO1+10, CHK+1, SET+3, END+1!, HL7SET+3*, HL7SET+4, HL7SET+5, UPD100+3
FHTEXT	AO1+6, SET+5, END+1!, HL7SET+2, UPD100+5
FHTODAY	SET+1*, END+1!, UPD100+4
>> FILL	HL7SET+5, UPD100+3, UPD100+4
MSG	UPD100+2!
MSG(4	UPD100+4*
MSG(5	UPD100+5*
NUM	FHOMRA1+4!, AO1, AO1+2, AO1+10, END+1!
>> STDT	HL7SET+2
>> STDT1	HL7SET+2*, HL7SET+3
U	AO1+2, CHK+1, UPD100+3
>> X	HL7SET+2
>> X1	HL7SET+2*
>> X2	HL7SET+2*
>> Y	AO1+1, AO1+6, AO1+8

Information