Routine: RAO7PC1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	(CASE,EN2,SETDATA)^RAO7PC1A CASE^RAO7PC2 SVTCOM^RAUTL11

Package	Total	Caller Graph
Order Entry Results Reporting	10	ORCDRA ORCDRA1 ORCHTAB1 ORDV08 ORQ21 ORQQRA ORWDRA ORWDRA32 ORWDXM2 ORWRA
Radiology Nuclear Medicine	2	RAO7PC3 RAORD6
IHS Electronic Health Record	1	BEHOOGP

Entry Points

Name	Comments	DBIA/ICR reference
SS
EN2(RADFN)	;
CASE(RAOIFN,RARRAY)	; Return the case numbers and the total number of ; case numbers associated with a particular order. ; Input: RAOIFN-order ien (75.1) ; RARRAY-data storage (local array) ; Return: RATTL-n^x where n is the number of cases in the array ; x=PRINTSET if a single report covers many cases. ; -1 if error (invalid order ien) ; -2 no registered case to date -OR- case(s) cancelled ; If -1 or -2, second piece of RATTL gives the reason ; RARRAY-local data array, array_name(case #)
DEL(X)	; Determine the delimiter used to seperate the data ; Input: 'X'-> data seperated by a delimiter (first & second pieces ; will follow null)
EN30(RAOIFN)	; DBIA#2266 - Return narrative text for exam(s). To be used ; with the EN3 entry point above. ; Input: RAOIFN -> the ien of Rad/Nuc Med Order
EN1(RADFN,RABDT,RAEDT,RAEXN,RACINC)	;
EN4(RABBRV,RAARY)	; Return Imaging Locations ; Input: RABBRV-> Abbreviation for I-Type RAARY-> data storage array
EN3(X)	; DBIA#2265 - Return narrative text for exam(s) ; Input: ; X-> Exam id in one of two forms: ; 1) Pat. DFN^inv. exam date^Case IEN ; Retrieves a single report for a single exam ; 2) Pat. DFN^inv. exam date^ ; Retrieves all reports for a set of exams ordered on one order

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN4+17
^RA(79 - [#79]	EN4+17
^RA(79.1 - [#79.1]	EN4+11, EN4+12, EN4+13
^RA(79.2 - [#79.2]	EN4+10
^RADPT - [#70]	EN1+51, EN3+47, SS+2, EN30+9
^RADPT("AO"	EN30+5, EN30+7, EN30+8, EN30+12
^RAO(75.1 - [#75.1]	EN30+4
^SC - [#44]	EN4+15
^TMP($J	EN1+43!, EN3+42!

Name	Line Occurrences
$$DEL	EN3+42
EN3	EN30+10, EN30+13

Name	Field # of Occurrence
RAARY	EN4~, EN4+8, EN4+19
RABBRV	EN4~, EN4+7, EN4+10
RABDT	EN1~, EN1+37, EN1+42, EN1+44*, EN1+49
RABNOR	EN1+45~
RABNORMR	EN1+47~
RACIEN	EN3+45~, EN3+46*, SS
RACINC	EN1~, EN1+41*
RACNI	EN30+6~, EN30+12*, EN30+13
RACNST	EN1+45~, EN1+48*, EN1+49
RACNT	EN1+45~, EN1+50*
RACPT	EN1+45~
RACSE	EN1+45~
RADFN	EN1~, EN1+37, EN1+51, EN2~, EN2+17, EN3+45~, EN3+46, EN3+47, SS, SS+2 , SS+4, EN30+6~, EN30+7, EN30+8, EN30+9, EN30+10, EN30+12, EN30+13
RADIAG	EN1+45~
RADIV	EN4+9~, EN4+17, EN4+18, EN4+19
RADIV(4	EN4+17*, EN4+18
RADIV(79	EN4+12*, EN4+17, EN4+19
RADTI	EN30+6~, EN30+8*, EN30+9, EN30+10, EN30+12, EN30+13
RAEDT	EN1~, EN1+37, EN1+42, EN1+44*, EN1+49
RAEXN	EN1~, EN1+38, EN1+43*
RAEXNP	EN1+38~*
RAIBDT	EN1+45~, EN1+49, EN1+51
RAIEDT	EN1+45~, EN1+49*, EN1+51
RAILOC	EN1+45~
RAINVXDT	EN3+45~, EN3+46*, EN3+47, SS, SS+2, SS+4
RAITY	EN1+45~, EN4+9~, EN4+10*, EN4+11
RALOC	EN4+9~, EN4+15, EN4+16, EN4+19
RALOC(0	EN4+13*, EN4+14, EN4+15
RANO	EN1+46~
RAOIFN	EN30~, EN30+3, EN30+4, EN30+5, EN30+7, EN30+8, EN30+12, CASE~
RAPRC	EN1+46~
RAPSET	EN3+45~, SS+5
RAREX	EN1+46~
RARPT	EN1+46~
RARPTST	EN1+46~
RARRAY	CASE~
RASHOCAN	EN1+47~
RATTL	CASE+10~*, CASE+11
RAU	EN3+42!*, EN3+43!, EN3+44, EN3+46, EN3+47!
RAX	EN4+9~, EN4+11*, EN4+12, EN4+13, EN4+19
RAXAM	EN1+47~
RAXID	EN1+47~
RAXIT	EN1+47~, EN1+50*, EN1+51
RAXSET	EN30+6~, EN30+9*, EN30+10
RAXSTAT	EN1+47~
U	EN4+15, EN4+17, EN4+18, EN4+19
X	EN3~, EN3+42, EN3+44, EN3+46, DEL~, DEL+4
Y	EN3+45~, SS+1, SS+2, SS+3, SS+4, DEL+3~, DEL+4*, DEL+5
Z	DEL+3~, DEL+4*, DEL+5