Routine: RAHLO4

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC FIND^DIC ^DIE ^DIK ($$GET1,GETS)^DIQ
Kernel	1	^%ZTLOAD
MailMan	1	^XMD
Radiology Nuclear Medicine	1	$$SSN^RAUTL

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RAHLBMS RAHLO RAHLO1 RAHLO2 RAHLTCPB RART

Entry Points

Name	Comments	DBIA/ICR reference
TASK	; Task ORU message
ISITDUP	; X1=last ien ^RARPT, X2=LAST IEN ^TMP, x21=first ien ^TMP
SETPHYS	;set Primary Resident or Staff, either piece 12 or piece 15 of case
UPMEM	;copy (prim:dx,stf,res),rpt ien to other members of same print set ; first clear those fields
KQ
KILSECDG	;kill secondary diagnoses nodes of this case
K1
KILL	; kill the RAHLD* variables
LSTPCE(X,DEL)	; given a string and a delimiter, return the last piece
VOICE	; voice dictation auto-print (background process)
CKDUPA	; if duplicate addendum, send msg to members of unverify rpt mailgroup
PCEXTR(RASUB,RASEG,RAPCE,RADEL)	; extract the right piece of data ; from the right data node ; input: RASUB-data node subscript ; RASEG-HL7 segment (minus the segment header) ; RAPCE-data's piece position ; RADEL-delimiter (field separator)

External References

Name	Field # of Occurrence
NOW^%DTC	CKDUPA+15
^%ZTLOAD	TASK+4, VOICE+6
FIND^DIC	CKDUPA+25
^DIE	UPMEM+4, UPMEM+6, SETPHYS+5
^DIK	K1+3
$$GET1^DIQ	VOICE+2, CKDUPA+17, CKDUPA+31, CKDUPA+40, CKDUPA+45, CKDUPA+48
GETS^DIQ	CKDUPA+28
$$SSN^RAUTL	CKDUPA+43
^XMD	CKDUPA+54

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^%ZIS(1 - [#3.5]	GET1^DIQ
^XMB(3.6 - [#3.6]	FIND^DIC, GETS^DIQ
^XMB(3.8 - [#3.8]	GET1^DIQ
^XMB(3.9 - [#3.9]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.1 - [#79.1]	VOICE+1, VOICE+2
^RADPT - [#70]	UPMEM+8*, KILSECDG+3, K1
^RARPT - [#74]	CKDUPA+3, CKDUPA+5, ISITDUP+4, ISITDUP+5, ISITDUP+9, ISITDUP+13
^TMP("RARPT-HL7"	PCEXTR+10, PCEXTR+12, PCEXTR+16, PCEXTR+18, PCEXTR+19, PCEXTR+20, PCEXTR+21, PCEXTR+33, PCEXTR+34
^TMP("RARPT-REC"	CKDUPA+37, ISITDUP+1, ISITDUP+6, ISITDUP+11, ISITDUP+13
^XMB(3.9 - [#3.9]	CKDUPA+16, CKDUPA+18

Label References

Name	Line Occurrences
$$LSTPCE	PCEXTR+21
ISITDUP	CKDUPA+3, CKDUPA+5
K1	K1+4
KILL	PCEXTR+8, PCEXTR+14, PCEXTR+16, PCEXTR+39
KQ	K1

Naked Globals

Name	Field # of Occurrence
^(0	ISITDUP+6, ISITDUP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	UPMEM+2!, UPMEM+6!, SETPHYS+3, SETPHYS+5!, K1+1*, KQ!
DA(1	UPMEM+2, UPMEM+3, SETPHYS+3, SETPHYS+4, KILSECDG+4*, K1+2
DA(2	UPMEM+2, UPMEM+3, SETPHYS+3, SETPHYS+4, KILSECDG+4*, K1+2
DA(3	KILSECDG+4*, K1+2
DEL	LSTPCE~, LSTPCE+1
DIE	UPMEM+2!, UPMEM+3, UPMEM+6!, SETPHYS+4
>> DIK	K1+2*
DR	UPMEM+2!, UPMEM+4, UPMEM+6!, SETPHYS+2*, SETPHYS+5!
I	PCEXTR+17, PCEXTR+18, PCEXTR+19, PCEXTR+20, PCEXTR+33, KILL+1!
I1	CKDUPA+2~, CKDUPA+3, CKDUPA+5, ISITDUP+4, ISITDUP+5, ISITDUP+9, ISITDUP+13
I2	CKDUPA+2~, CKDUPA+3, CKDUPA+5, ISITDUP+1, ISITDUP+6, ISITDUP+11, ISITDUP+13
II1	PCEXTR+10, PCEXTR+11, PCEXTR+12, PCEXTR+22, PCEXTR+24, PCEXTR+27, PCEXTR+29, PCEXTR+30, KILL+1!
MATCH	CKDUPA+2~
MSGTXT	CKDUPA+33~
MSGTXT(1	CKDUPA+37*
MSGTXT(10	CKDUPA+52*
MSGTXT(2	CKDUPA+38*
MSGTXT(3	CKDUPA+39*
MSGTXT(4	CKDUPA+42*
MSGTXT(5	CKDUPA+43*
MSGTXT(6	CKDUPA+44*
MSGTXT(7	CKDUPA+47*
MSGTXT(8	CKDUPA+50*
MSGTXT(9	CKDUPA+51*
N1	PCEXTR+33*, PCEXTR+34, KILL+1!
R0	CKDUPA+2~
R0("DILIST"	CKDUPA+26, CKDUPA+28, CKDUPA+30, CKDUPA+32
R1	CKDUPA+2~
R1(	CKDUPA+30, CKDUPA+32
R2	CKDUPA+2~
RA1	KILSECDG+5~, K1, K1+1
>> RA12	UPMEM+6
>> RA13	UPMEM+6
>> RA15	UPMEM+6
>> RACNI	UPMEM+2, UPMEM+8, SETPHYS+3, KILSECDG+1, KILSECDG+2, KILSECDG+3, KILSECDG+4, K1
RADEL	PCEXTR~, PCEXTR+6, PCEXTR+7, PCEXTR+8, PCEXTR+10, PCEXTR+12, PCEXTR+21, PCEXTR+22, PCEXTR+24, PCEXTR+27 , PCEXTR+29, PCEXTR+30, PCEXTR+34
>> RADFN	UPMEM+2, UPMEM+8, SETPHYS+3, KILSECDG+1, KILSECDG+2, KILSECDG+3, KILSECDG+4, K1, CKDUPA+40
>> RADPIECE	SETPHYS+1, SETPHYS+2
>> RADTI	UPMEM+2, UPMEM+8, SETPHYS+3, KILSECDG+1, KILSECDG+2, KILSECDG+3, KILSECDG+4, K1
>> RADUPA	CKDUPA+1, CKDUPA+5, ISITDUP+3, ISITDUP+15*
>> RAHL70	PCEXTR+6, PCEXTR+8, PCEXTR+10, PCEXTR+12, PCEXTR+14, PCEXTR+29, PCEXTR+32, PCEXTR+34*, PCEXTR+40
RAHL7ARY	PCEXTR+36!, KILL+1!
RAHL7ARY(	PCEXTR+24, PCEXTR+27, PCEXTR+29, PCEXTR+32
RAHL7CNT	PCEXTR+17, PCEXTR+24, PCEXTR+26, PCEXTR+27, PCEXTR+29, PCEXTR+30, PCEXTR+32, KILL+1!
RAHL7LST	PCEXTR+7, PCEXTR+21, PCEXTR+24, KILL+1!
RAHL7OFF	PCEXTR+6*, PCEXTR+7, PCEXTR+8, PCEXTR+9, PCEXTR+17, KILL+1!
RAHL7PRE	PCEXTR+20*, PCEXTR+21, KILL+1!
RAHL7SUB	PCEXTR+19*, PCEXTR+22, PCEXTR+24, PCEXTR+27, PCEXTR+29, PCEXTR+30, KILL+1!
RAHL7X	PCEXTR+6, PCEXTR+11, PCEXTR+12, PCEXTR+14, PCEXTR+18, PCEXTR+22, PCEXTR+29, PCEXTR+32*, PCEXTR+36, KILL+1!
>> RALONGCN	CKDUPA+18, CKDUPA+44
RAMES	VOICE+6!
>> RAMLC	VOICE+1, VOICE+2
>> RANOSEND	TASK+4
RAPCE	PCEXTR~, PCEXTR+8, PCEXTR+9, PCEXTR+10, PCEXTR+29, PCEXTR+30
>> RARPT	UPMEM+8, CKDUPA+3, CKDUPA+5, ISITDUP+4, ISITDUP+5, ISITDUP+9, ISITDUP+13
RASEG	PCEXTR~, PCEXTR+6, PCEXTR+7, PCEXTR+8, PCEXTR+10
RASUB	PCEXTR~, PCEXTR+10, PCEXTR+12, PCEXTR+16, PCEXTR+18, PCEXTR+19, PCEXTR+20, PCEXTR+21, PCEXTR+33, PCEXTR+34 , CKDUPA+37, ISITDUP+1, ISITDUP+6, ISITDUP+11, ISITDUP+13
RASV	VOICE+6!
RATDY	CKDUPA+15*, CKDUPA+17, CKDUPA+20!
>> RATRANSC	CKDUPA+48
>> RAVERF	SETPHYS+2, CKDUPA+45
U	VOICE+1, VOICE+2
X	LSTPCE~, LSTPCE+1, CKDUPA+15!, CKDUPA+30!, CKDUPA+31!, CKDUPA+32!, CKDUPA+34*!
X1	CKDUPA+2~, ISITDUP+2~, ISITDUP+4, ISITDUP+5, ISITDUP+7, ISITDUP+13, ISITDUP+14
X2	CKDUPA+2~, ISITDUP+2~, ISITDUP+6*, ISITDUP+7, ISITDUP+13, ISITDUP+14
X21	CKDUPA+2~, ISITDUP+2~, ISITDUP+6, ISITDUP+11, ISITDUP+13
X3	CKDUPA+2~, ISITDUP+2~, ISITDUP+7, ISITDUP+9, ISITDUP+13
X4	CKDUPA+2~, ISITDUP+2~, ISITDUP+9, ISITDUP+10, ISITDUP+11
>> XMATCH	CKDUPA+14, CKDUPA+16, CKDUPA+17, CKDUPA+19*, CKDUPA+21
XMB	CKDUPA+14, CKDUPA+16, CKDUPA+17, CKDUPA+18, CKDUPA+20!
XMDUZ	CKDUPA+33~, CKDUPA+36*
XMSUB	CKDUPA+2~, CKDUPA+8*, CKDUPA+16
XMTEXT	CKDUPA+33~, CKDUPA+53*
XMY	CKDUPA+33~
XMY(	CKDUPA+34*
XRADFN	CKDUPA+33~, CKDUPA+40, CKDUPA+41, CKDUPA+42
XRATRANS	CKDUPA+33~, CKDUPA+48, CKDUPA+49, CKDUPA+50
XRAVERF	CKDUPA+33~, CKDUPA+45, CKDUPA+46, CKDUPA+47
XX	ISITDUP+2~, ISITDUP+5*, ISITDUP+7
ZTDESC	TASK+1, TASK+5!, VOICE+5, VOICE+6!
ZTDTH	TASK+1, TASK+3, TASK+5!, VOICE+4*, VOICE+6!
ZTIO	TASK+1, TASK+5!, VOICE+2, VOICE+3, VOICE+6!
ZTRTN	TASK+1, TASK+5!, VOICE+4, VOICE+6!
ZTSAVE	TASK+5!, VOICE+6!
ZTSAVE("RACNI"	TASK+1*
ZTSAVE("RADFN"	TASK+1*
ZTSAVE("RADTI"	TASK+1*
ZTSAVE("RANOSEND"	TASK+4*
ZTSAVE("RARPT"	TASK+1, VOICE+4
ZTSK	VOICE+6!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLO4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: