Routine: RORP027

Package	Total	Call Graph
Kernel	2	(BMES,MES)^XPDUTL OWNSKEY^XUSRB
Clinical Case Registries	1	$$REGIEN^RORUTL02
VA FileMan	1	(FILE,UPDATE)^DIE

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; ; CHECK FOR ROR VA IRM KEY, ABORT IF USER DOES NOT POSSESS
POST	;
UPDLIST	;
REGS	; List of registries whose LIST ITEM entries should be added to file 799.1
LISTITEM	; Entries to add to file 799.1 text^group^code

Name	Field # of Occurrence
FILE^DIE	POST+13
UPDATE^DIE	UPDLIST+12
$$REGIEN^RORUTL02	POST+10, UPDLIST+3
BMES^XPDUTL	PRE+3, PRE+7, PRE+8, PRE+9, PRE+10, POST+2, POST+6, POST+19, POST+22, POST+23 , POST+25, POST+27, POST+29
MES^XPDUTL	POST+21, UPDLIST+21
OWNSKEY^XUSRB	PRE+4

Name	Line Occurrences (* Changed, ! Killed)
^ROR(799.1 - [#799.1]	UPDLIST+6

Name	Line Occurrences
UPDLIST	POST+26

Name	Field # of Occurrence
CT	POST+1~, POST+7, POST+14, POST+16, POST+18, POST+19, POST+20, UPDLIST+1~, UPDLIST+20*
DIERR	UPDLIST+7!, UPDLIST+13
DUZ	PRE+4
REGIEN	POST+1~, POST+10, POST+12, UPDLIST+1~, UPDLIST+3, UPDLIST+4, UPDLIST+6, UPDLIST+10, UPDLIST+15
REGNAME	POST+1~
ROR	POST+1~, POST+8*, POST+10, POST+14
ROR(	POST+10, POST+14
ROR(1	POST+4*
ROR(2	POST+4*
ROR(3	POST+4*
ROR(4	POST+4*
ROR(5	POST+5*
ROR(6	POST+5*
ROR(7	POST+5*
ROR(8	POST+5*
RORBUF	POST+1~, POST+9!, POST+10
RORBUF("DILIST"	POST+11
RORDATA	UPDLIST+1~, UPDLIST+5*, UPDLIST+6, UPDLIST+8, UPDLIST+9, UPDLIST+11, UPDLIST+17
RORERR	POST+1~, POST+7, POST+18, POST+22, UPDLIST+7!, UPDLIST+14!, UPDLIST+21
RORERR(	UPDLIST+20*
RORERR(1	UPDLIST+15*
RORERR(2	UPDLIST+16*
RORERR(3	UPDLIST+17*
RORERR(4	UPDLIST+18*
RORERR(5	UPDLIST+19*
RORFDA	POST+1~, POST+9!, UPDLIST+7!
RORFDA(	POST+12, UPDLIST+8, UPDLIST+9, UPDLIST+10, UPDLIST+11*
RORI	UPDLIST+1~, UPDLIST+2*
RORI1	UPDLIST+1~, UPDLIST+5*
RORKEYOK	PRE+2~, PRE+4
RORKEYOK(0	PRE+5
RORMSG	POST+1~, POST+19!, POST+21, UPDLIST+7!
RORMSG(	POST+14, POST+16, POST+18*
RORMSG("DIERR"	UPDLIST+20
RORMSG(1	POST+21*
RORMSGX	POST+1~, POST+9!, POST+15
RORREG	UPDLIST+1~, UPDLIST+2*, UPDLIST+3, UPDLIST+15
U	UPDLIST+2, UPDLIST+6, UPDLIST+8, UPDLIST+9, UPDLIST+11
>> XPDABORT	PRE+6*
Z	UPDLIST+1~, UPDLIST+20*

Name	Field # of Occurrence
$T(@(5)	UPDLIST+2, UPDLIST+5