Routine: MCORMN01

Package	Total	Caller Graph
Medicine	2	MCORMN MCORMN0

Entry Points

Name	Comments	DBIA/ICR reference
MSH(PROC,SAP,SNF,RAP,RNF,MST,PCI,VID)	;MSH Messaging Line
OBX2(UNT,RNG)	; ODX Messaging Line
CONVERT(FILETYPE,RST)	;Convert Fileman to HL7
OBR1(SDATE,MCPROC,REC,FILE)	; OBX Messaging Line
PID(DFN)	;PID Messaging Line
OBX1(FILETYPE,VTI,OBI,OSI,OBR)	; ODX Messaging Line

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is not a valid entry point" Line Location: MCORMN01+2

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	OBR1+5
^MCAR(697.2 - [#697.2]	OBR1+2, OBR1+3

Name	Line Occurrences
$$CONVERT	MSH+3, PID+3, PID+4, OBX1+2, OBR1+7

Name	Field # of Occurrence
%	MSH+1~, MSH+3
%I	MSH+1~
DFN	PID~
DOB	PID+1~, PID+4*, PID+7
FILE	OBR1~
FILETYPE	OBX1~, OBX1+2, CONVERT~, CONVERT+3, CONVERT+5
LOOP	PID+1~, OBR1+1~
>> MCFILE	OBR1+5
MCPROC	OBR1~, OBR1+2
MSH	MSH+1~, MSH+3, MSH+4, MSH+5, MSH+6, MSH+7
MST	MSH~, MSH+5
>> MSTR	MSH+4
OBI	OBX1~, OBX1+4
OBR	OBX1~, OBX1+2*, OBX1+4
OBX	OBX1+1~, OBX1+3, OBX1+4, OBX1+5, OBX2+1~, OBX2+2, OBX2+3, OBX2+4
OSI	OBX1~, OBX1+4
PCI	MSH~, MSH+6
PID	PID+1~, PID+6, PID+7, PID+8
PROC	MSH~, MSH+4
PTN	PID+1~, PID+3*, PID+7
RAP	MSH~, MSH+5
REC	OBR1~, OBR1+5
RNF	MSH~, MSH+5
RNG	OBX2~, OBX2+3
RST	CONVERT~, CONVERT+2, CONVERT+4, CONVERT+5
SAP	MSH~, MSH+4
SDATE	OBR1~, OBR1+7
SEX	PID+1~, PID+5*, PID+7
SNF	MSH~, MSH+4
SSN	PID+1~, PID+3*, PID+6
>> ST(1	MSH+3, MSH+4, MSH+5, MSH+6, PID+6, PID+7, OBX1+3, OBX1+4, OBX2+3, OBR1+7 , OBR1+8
>> ST(2	MSH+4
STAT	OBR1+1~, OBR1+5, OBR1+6, OBR1+8
STR	OBR1+1~, OBR1+7, OBR1+8, OBR1+9
TEMP	OBR1+1~, OBR1+7, CONVERT+1~, CONVERT+2, CONVERT+4, CONVERT+5, CONVERT+6
TMP	OBR1+1~, OBR1+2, OBR1+3, OBR1+4*, OBR1+8
U	PID+3, PID+4, PID+5, OBR1+3, OBR1+5
UNT	OBX2~, OBX2+3
VADM	PID+1~
VADM(1	PID+3
VADM(2	PID+3
VADM(3	PID+4
VADM(5	PID+5
VID	MSH~, MSH+6
VTI	OBX1~, OBX1+3
Y	MSH+1~