Routine: RAHLRS

Package	Total	Call Graph
Radiology Nuclear Medicine	4	^RACNLU (1,CANCEL,REG,RPT)^RAHLRPC SETVARS^RAPSET1 HLXMSG^RARTE5
VA Fileman	4	^%DT EN^DDIOL $$GET1^DIQ ^DIR

Package

Total

Call Graph

^RACNLU (1,CANCEL,REG,RPT)^RAHLRPC SETVARS^RAPSET1 HLXMSG^RARTE5

^%DT EN^DDIOL $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA HL7 MESSAGE RESEND

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SETVARS	; Setup key Rad/Nuc Med variables
RESEND(RADFN,RADTI,RACNI,QUIT)	; re-send exam message(s) to HL7 subscribers
OK(RADFN,RADTI,RACNI)	; Get User to confirm continue
RAED(RADFN,RADTI,RACNI)	; identify correct ^RAHLRPC entry point(s)
RACNLU(RADFN,RADTI,RACNI)	; Select Case Number

Name	Field # of Occurrence
^%DT	RESEND+5
EN^DDIOL	RESEND+11, RESEND+14, RESEND+18, RESEND+21, OK+7
$$GET1^DIQ	RAED+8, RAED+10, RAED+11, RAED+15, RAED+22, RAED+25, OK+4
^DIR	OK+9
^RACNLU	RACNLU+4
1^RAHLRPC	RESEND+19
CANCEL^RAHLRPC	RESEND+15
REG^RAHLRPC	RESEND+12
RPT^RAHLRPC	RESEND+24
SETVARS^RAPSET1	SETVARS+2, SETVARS+4
HLXMSG^RARTE5	RESEND+23

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	RAED+20, RAED+21
^RADPT - [#70]	RESEND+17*

Name	Field # of Occurrence
>> DIR("A"	OK+8*
>> DIR("B"	OK+9*
>> DIR(0	OK+9*
DT	RESEND+5*
DUZ	SETVARS+2, SETVARS+3
QUIT	RAHLRS+10, RAHLRS+11, RESEND~, RESEND+4, RESEND+8, RESEND+9
>> RACCESS(	SETVARS+2, SETVARS+3
RACNI	RAHLRS+6~, RAHLRS+10, RAHLRS+11, RACNLU~, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~, RAED+8 , OK~, OK+4
RADFN	RAHLRS+6~, RAHLRS+10, RAHLRS+11, RACNLU~, RACNLU+3*, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~ , RAED+8, OK~, OK+4
RADTI	RAHLRS+6~, RAHLRS+10, RAHLRS+11, RACNLU~, RACNLU+3*, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~ , RAED+8, OK~, OK+4
RAED	RESEND+2~, RESEND+7*, RESEND+10, RESEND+13, RESEND+16, RESEND+20
RAEXMDUN	RESEND+19~
RAEXST	OK+2~, OK+4*, OK+8
>> RAIMGTY	RAHLRS+8, SETVARS+4
RAIMTYP	RAED+3~, RAED+10*, RAED+20, RAED+21
RANOSCRN	RACNLU+2~*
RAORD	RAED+3~, RAED+11, RAED+13, RAED+20, RAED+21
RARPST	RESEND+2~, RESEND+23, RAED+4, RAED+25, RAED+26
RARPT	RAHLRS+6~, RAED+24, RAED+25
RASSSX	RESEND+2~
RASTAT	RAED+3~, RAED+4, RAED+8, RAED+10, RAED+11, RAED+15, RAED+21*, RAED+22
RETURN	RAED+3~, RAED+6, RAED+13, RAED+16, RAED+18, RAED+20, RAED+22, RAED+26*, RAED+28
X	RAHLRS+6~, RAHLRS+10, RACNLU+5, OK+2~, OK+6, OK+7
XQUIT	SETVARS+4!
>> Y	RESEND+5, OK+10, OK+11

Information