Routine: RORP001

Information

RORP001 ;HCIOFO/SG - PATCH ROR*1.5*1 INSTALLATION ROUTINE ; 7/18/06 9:38am

Source file <RORP001.m>

Package	Total	Call Graph
Clinical Case Registries	6	DSPSTK^RORERR ($$CHKOPT,$$CP,ABTMSG,ALERT)^RORKIDS ($$OPEN,CLOSE)^RORLOG (LD79951,LDPRT)^RORPUT02 GETPARM^RORRP038 $$REGIEN^RORUTL02

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The DUZ variable must be defined!",! Line Location: RORP001+7
Function Call: WRITE	Prompt: !!,"You must have the ROR VA IRM security key!",! Line Location: RORP001+10

Name	Line Occurrences (* Changed, ! Killed)
^XUSEC("ROR VA IRM"	RORP001+9

Name	Line Occurrences
ERROR	POS+17, POS+21, POS+24, POS+27

Name	Field # of Occurrence
DA	POS+5~
DUZ	RORP001+6, RORP001+9, ERROR+2
RC	RORP001+4~, POS+5~
>> REGNAME	ERROR+2
RORBUF	PTR+1~, PTR+3, PTR+4
RORBUF(0	PTR+4!
RORERROR	POS+1~
RORHIV	POS+5~, POS+17, POS+18
RORLOG	POS+2~
RORPARM	POS+3~
RORPARM("DEVELOPER"	POS+6*
RORPARM("ERR"	POS+7*
RORPARM("KIDS"	ERROR+3, POS+8*
RORPARM("LOG"	POS+9*
TMP	ERROR+1~, ERROR+2, ERROR+3, ERROR+4, POS+5~, POS+12!, POS+13*, POS+14!, PTR+1~
TMP("VA HIV"	POS+12*
U	POS+18
>> XPDABORT	RORP001+6, RORP001+9, RORP001+15, ERROR+1
>> XPDDIQ("XPZ1"	RORP001+17*
>> XPDENV	RORP001+13
>> XPDGREF	PTR+4
>> XPDNM	POS+13, POS+30
>> ZTQUEUED	ERROR+2