Routine: RAO7UTL1

Information

RAO7UTL1 ;HISC/GJC,FPT-Utilities for HL7 messages. ;9/14/98 08:00

Package	Total	Call Graph
Radiology Nuclear Medicine	1	$$DIAG^RAO7UTL

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RAO7CMP RAO7PURG RAO7RCH RAO7RO RAO7RON
Registration	1	VAFCSB

Name	Comments	DBIA/ICR reference
ABNOR(RAOIFN,RADFN,RADTI)	; test code to find 'Diagnostic Code' for ; descendents and adopted procedures. Called from RAO7CMP. ; 'RAOIFN'-> ien of file 75.1 ; 'RADFN' -> ien of the Rad/Nuc Med Patient ; 'RADTI' -> inverse date of the registered exam
BRKOUT	; Breakout the 'MSH', 'ORC' & 'PID' segments. ; Called from: RAO7RON & RAO7RCH
XAMDT(RADFN)	;Return exam date/time for interpreted non-cancelled case. The

Name	Field # of Occurrence
$$DIAG^RAO7UTL	ABNOR+10

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	XAMDT+12
^RA(79 - [#79]	BRKOUT+11
^RADPT - [#70]	ABNOR+8, XAMDT+8, XAMDT+10, XAMDT+11
^RADPT("AO"	ABNOR+5, ABNOR+7

Name	Field # of Occurrence
RABN	ABNOR+6~, ABNOR+7, ABNOR+10, ABNOR+12
RACNI	ABNOR+6~, ABNOR+7, ABNOR+8, ABNOR+10, XAMDT+9, XAMDT+10, XAMDT+11, XAMDT+16!
RADATA	BRKOUT+2~, BRKOUT+6*, BRKOUT+7, BRKOUT+8, BRKOUT+9
RADFN	ABNOR~, ABNOR+5, ABNOR+7, ABNOR+8, ABNOR+10, XAMDT~, XAMDT+8, XAMDT+10, XAMDT+11
>> RADIV(	BRKOUT+11, BRKOUT+12
RADTI	ABNOR~, ABNOR+5, ABNOR+7, ABNOR+8, ABNOR+10, XAMDT+8*, XAMDT+10, XAMDT+11, XAMDT+13, XAMDT+16!
RAHEAD	BRKOUT+2~, BRKOUT+4*, BRKOUT+5, BRKOUT+7, BRKOUT+8, BRKOUT+9
>> RAHLFS	BRKOUT+4, BRKOUT+6, BRKOUT+7, BRKOUT+8, BRKOUT+9
>> RAMSG(	BRKOUT+3, BRKOUT+4
>> RAMSH3	BRKOUT+7*, BRKOUT+11
RAOIFN	ABNOR~, ABNOR+5, ABNOR+7
>> RAORC2	BRKOUT+8*
>> RAORC3	BRKOUT+8*
>> RAPID3	BRKOUT+9*
>> RAPID5	BRKOUT+9*
RASEG	BRKOUT+2~, BRKOUT+4*, BRKOUT+6
RAX	XAMDT+11*, XAMDT+12, XAMDT+16!
RAXAM	ABNOR+6~
RAXAM(0	ABNOR+8*, ABNOR+9
RAXAMDT	XAMDT+7~, XAMDT+8, XAMDT+10, XAMDT+13, XAMDT+17
U	BRKOUT+11, XAMDT+11, XAMDT+12
X	BRKOUT+2~, BRKOUT+3, BRKOUT+4