Routine: RAO7OKR

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

RAO7OKR ;HISC/GJC-Receive OE/RR accept/reject msg (backdoor) ;1/5/95 08:54

Source Information

Source file <RAO7OKR.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Radiology Nuclear Medicine	2	EN1^RAO7UTL ($$EN2,$$EN3)^RAO7VLD
VA FileMan	1	FILE^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAO7RO

Entry Points

Name	Comments	DBIA/ICR reference
EN1(RAMSG)	; Pass in the message from OE/RR. Decipher information.
FILE(RAX,RAY)	; File data into 75.1 using FM21 DBS ; 'RAX' is placer order # (OE/RR), 'RAY' is filler order # (Rad) ; returns '0' for proper filing, '1' when an error is encountered
PID	; breakdown the 'PID' segment
ORC	; breakdown the 'ORC' segment ; RAORC1 will either be 'NA' number assigned, or 'DE' data errors

External References

Name	Field # of Occurrence
FILE^DIE	FILE+6
EN1^RAO7UTL	EN1+3
$$EN2^RAO7VLD	EN1+12
$$EN3^RAO7VLD	EN1+10

Label References

Name	Line Occurrences
$$FILE	EN1+14
@(	EN1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
RADATA	EN1+1~, EN1+6*, PID+1, ORC+2, ORC+3
RADBS	FILE+3~
RADBS("ERROR"	FILE+7
RAECH	EN1+1~
>> RAERR	EN1+2, EN1+10, EN1+12, EN1+14, FILE+7
RAFDA	FILE+3~
RAFDA(	FILE+5*
RAHLFS	EN1+2~, EN1+5, EN1+6, EN1+7, PID+1, ORC+2, ORC+3
RAMSG	EN1~
RAMSG(	EN1+4, EN1+5
RAORC1	EN1+1~, ORC+2*
RAORC16	EN1+1~, ORC+3*
RAORC2	EN1+1~, EN1+14, ORC+2*
RAORC3	EN1+1~, EN1+10, EN1+14, ORC+3*
RAPID3	EN1+1~, EN1+12, PID+1*
RAPID5	EN1+1~, EN1+12, PID+1*
RASEG	EN1+2~, EN1+5*, EN1+6, EN1+7
RAX	FILE~, FILE+5
RAY	FILE~, FILE+5
X	EN1+2~, EN1+4, EN1+5