Routine: RAUTL13

Information

RAUTL13 ;HISC/CAH-Utility OMA Loc selector, Pt Loc change, Submit-to loc scrn ;9/5/96 07:52

Source file <RAUTL13.m>

Package	Total	Call Graph
Radiology Nuclear Medicine	1	EN1^RASELCT
Registration	1	INP^VADPT

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RAORD7 RAORD7A RAORD8 RAORDP RAREG

Name	Comments	DBIA/ICR reference
OMA	;Select One/Many/All locations within current imaging type
SUBMITQ(DA,Y)	;Called from file 71.3, field 8 (imaging location) screen ; returns 1 if location being screened has same imaging type as ; the common procedure. ; DA is the IEN of file 71.3, Y is the IEN of the entry in file ; 79.1 that is being screened.
Q
IPOPQ
INLO(X)	; Determine if the Imaging Location is inactive ; Pass in the IEN of the Imaging Location (most of the time +RAMLC) ; Pass back '1' if inactive, '0' if active.
SUBMIT(DA,Y)	;Called from file 75.1, field 20 (imaging location) screen ; returns 1 if location being screened has same imaging type as ; procedure ordered. ; DA is the IEN of file 75.1, Y is the IEN of the entry in file ; 79.1 that is being screened.
IPOP	;Determine if current pt loc is different than requesting loc
OP

Name	Field # of Occurrence
EN1^RASELCT	OMA+19
INP^VADPT	IPOP+14

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not have access to any Imaging Locations. See your ADPAC." Line Location: OMA+10

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	IPOP+11, IPOP+14
^RA(79.1 - [#79.1]	SUBMIT+5, SUBMIT+7, SUBMITQ+6, INLO+3
^RA(79.2 - [#79.2]	SUBMIT+8, SUBMITQ+7
^RAMIS(71 - [#71]	SUBMIT+9, SUBMITQ+9
^RAMIS(71.3 - [#71.3]	SUBMITQ+8
^RAO(75.1 - [#75.1]	SUBMIT+9
^SC - [#44]	IPOP+10, IPOP+11
^TMP($J	OMA+11!, OMA+21, Q!

Name	Line Occurrences
IPOPQ	IPOP+15, IPOP+17, IPOP+18
OP	IPOP+15

Name	Field # of Occurrence
^(0	IPOP+10

Name	Field # of Occurrence
DA	SUBMIT~, SUBMIT+9, SUBMITQ~, SUBMITQ+8
>> DFN	IPOP+14*
I	OMA+21*, Q!
J	OMA+21*, Q!
RAARRY	OMA+15~, OMA+16*, OMA+19, Q!
RACIPOP	IPOP+14*, OP, OP+1, IPOPQ!
>> RADFN	IPOP+14
RADIC	OMA+15~, OMA+16*, OMA+19, Q!
RADIC("A"	OMA+17*
RADIC("S"	OMA+18*
RADIC(0	OMA+16*
>> RAIMGTY	OMA+18
RAIN44	IPOP+14*, IPOP+17, IPOP+18, IPOPQ!
RAIPLOC	IPOP+14*, IPOP+15, OP!, IPOPQ!
RAIPLOCN	IPOP+14*, IPOP+17, IPOP+18, OP!, IPOPQ!
RALOC	IPOPQ!, SUBMIT+6~, SUBMIT+7, SUBMIT+8, SUBMIT+10, SUBMITQ+5~, SUBMITQ+6, SUBMITQ+7, SUBMITQ+10
RALOC(	OMA+21*
>> RALOC1	OMA+14
RALOCI	SUBMIT+6~, SUBMIT+8, SUBMITQ+5~, SUBMITQ+7
>> RALOCN	IPOP+17, IPOP+18, OP, OP+1
>> RANOSCRN	OMA+18
>> RAORD0	IPOP+10
RAPROC	SUBMIT+6~, SUBMIT+9, SUBMITQ+5~, SUBMITQ+8, SUBMITQ+9
RAPROCI	SUBMIT+6~, SUBMIT+9, SUBMIT+10, SUBMITQ+5~, SUBMITQ+9, SUBMITQ+10
RARIPOP	IPOP+11!*, OP, OP+1, IPOPQ!
RARLOC	IPOP+10*, IPOP+11, IPOP+17, IPOP+18, IPOPQ!
RARLOCN	IPOP+10*, IPOP+18!, OP!
RAUTIL	OMA+15~, OMA+16*, OMA+19, Q!
U	IPOP+10, IPOP+14, SUBMIT+5, SUBMIT+8, SUBMIT+9, SUBMIT+10, SUBMITQ+7, SUBMITQ+8, SUBMITQ+9, SUBMITQ+10 , INLO+3
VAIN	IPOPQ!
VAIN(4	IPOP+14
X	IPOP+11*, IPOPQ!, INLO~, INLO+3
Y	SUBMIT~, SUBMIT+5, SUBMIT+7, SUBMITQ~, SUBMITQ+6