Routine: RAHLRS1

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	^%DT (C,H)^%DTC $$GET1^DIQ ^DIR
Kernel	2	^%ZISC ^%ZTLOAD
Radiology Nuclear Medicine	2	(1,CANCEL,REG,RPT)^RAHLRPC SETVARS^RAPSET1
MailMan	1	^XMD

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RA HL7 RESEND BY DATE RANGE RAHLR RAHLRPC RAHLRPT RAMAGHL RARTE5

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA HL7 RESEND BY DATE RANGE RAHLR RAHLRPC RAHLRPT RAMAGHL RARTE5

Entry Points

Name	Comments	DBIA/ICR reference
GETSUB(APL,SUB,LINK)	;Get all subscribers (not associated with application)... To be excluded as recipients.. ; Get all logical links to be in business, so we can control flow of messages
GETHLP(RAEID,HLP,ADR)	; Get excluded subcribers set into HLP array
SETVARS	; Setup key Rad/Nuc Med variables
CHSUM	;CHECKSUM
RESEND(RADFN,RADTI,RACNI)	; re-send exam message(s) to HL7 subscribers ; for every 10 messages sent, make sure queue is not clogged... $$HANG
STOP	;
GETAP(XX)	;
1
2	;user selects the application
RAED(RADFN,RADTI,RACNI)	; identify correct ^RAHLRPC entry point(s)
GETSUM(RABD,RAED)	; Get number of exams for period called from RAHLR RAHLR1 RAHLRPT RAHLRPT1
HANG()	; scan all logical links to see if queue is bigger than 100
CHECK	;
TM	;Taskman Entry...

External References

Name	Field # of Occurrence
^%DT	1, 1+7, 2+17, RESEND+6
C^%DTC	1+4
H^%DTC	2+19
^%ZISC	STOP+1
^%ZTLOAD	2+21
$$GET1^DIQ	RAED+7, RAED+8, RAED+10, RAED+11, RAED+15, RAED+21, RAED+24, GETAP+11
^DIR	2+3
1^RAHLRPC	RESEND+17
CANCEL^RAHLRPC	RESEND+13
REG^RAHLRPC	RESEND+11
RPT^RAHLRPC	RESEND+21
SETVARS^RAPSET1	SETVARS+2, SETVARS+4
^XMD	2+33, TM+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option re-sends HL7 messages for a date range and for designated Recipients.",! Line Location: CHECK+2
Function Call: WRITE	Prompt: !,"It is strongly recommended you task this to run off hours.",!! Line Location: CHECK+3
Function Call: WRITE	Prompt: ! Line Location: 1+0
Function Call: WRITE	Prompt: ! Line Location: 1+7
Function Call: WRITE	Prompt: !!,"* Pick the application in which to send the radiology data *",!! Line Location: 1+13
Function Call: WRITE	Prompt: !," #",I," ",$O(XX(I,"")) Line Location: 1+14
Function Call: WRITE	Prompt: ! Line Location: 2+2
Function Call: WRITE	Prompt: !!,"The: ",$O(XX(+X,""))," will be the recipient" Line Location: 2+4
Function Call: WRITE	Prompt: !!,"Reviewing exams for selected time period... (This may take a few minutes)... " Line Location: 2+5
Function Call: WRITE	Prompt: !!,"No exams exist for selected period, change the time frame !!!" Line Location: 2+7
Function Call: WRITE	Prompt: ! Line Location: 2+7
Function Call: WRITE	Prompt: !!,"During this period of time ",Y," Exams were performed and app Run time= ",Y\5000," Hours." Line Location: 2+8
Function Call: WRITE	Prompt: ! Line Location: 2+17
Routine Call	DIR Line Location: 2+3

FileNo	Call Tags
70.03	GET1^DIQ
^RA(72 - [#72]	GET1^DIQ
^RARPT - [#74]	GET1^DIQ
^HL(771 - [#771]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	1+3, 1+10, 2+20
^HLMA("AC"	HANG+4
^ORD(101 - [#101]	GETAP+5, GETAP+6, GETAP+8, GETSUB+16, GETSUB+17, GETSUB+18, GETSUB+19
^RA(72 - [#72]	RAED+19, RAED+20
^RADPT - [#70]	TM+6, RESEND+2, RESEND+16*, GETSUM+6
^RADPT("AR"	TM+3, TM+4, TM+5, GETSUM+3, GETSUM+4, GETSUM+5

Name	Line Occurrences
$$GETAP	1+12
$$GETSUM	2+6
$$HANG	CHSUM+1
$$RAED	RESEND+8
1	2+7
CHSUM	RESEND+11, RESEND+13, RESEND+15, RESEND+21
GETSUB	2+10
RESEND	TM+6
SETVARS	CHECK+1
STOP	1+1, 1+8, 1+12, 2+18, TM+18

Name	Field # of Occurrence
^(	GETAP+6, GETSUB+17, GETSUM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	1!, 1+7!, 2+17!*
%DT("A"	1, 1+7, 2+17*
%DT("B"	1+7, 2+17
>> %H	2+19
>> %T	2+19
AA	GETHLP+1~, GETHLP+3*, GETHLP+5
ADR	GETHLP~, GETHLP+3
APL	GETSUB~
APL(	GETSUB+18
APL(0	GETSUB+13
DA	RAHLRS1+11~
DIC	RAHLRS1+11~
DIERR	GETAP+10~
>> DIR("?"	2+2*
>> DIR(0	2+1*
>> DIRUT	2+3
DT	RESEND+6*
DTIME	CHECK+4*
>> DTOUT	1+1, 1+8, 2+18
>> DUOUT	1+1, 1+8, 2+18
DUZ	SETVARS+2, SETVARS+3
HLP	GETHLP~
HLP("EXCLUDE	SUBSCRIBER" , GETHLP+1, GETHLP+4, GETHLP+5*
I	RAHLRS1+12~, 1+14, 2+1, GETHLP+1~, GETHLP+4, GETHLP+5, HANG+1~, HANG+3, HANG+4*
J	GETAP+2~, GETAP+9, GETAP+12, GETHLP+1~, GETHLP+5*
L	HANG+1~, HANG+2, HANG+3, HANG+4
LINK	GETSUB~
LINK(	GETSUB+19*
QUIT	RESEND+4~, HANG+1~, HANG+2, HANG+3, HANG+4, HANG+5
RABD	RAHLRS1+11~, 1+2, 1+4, 1+5, 2+6, TM+3, TM+4, TM+5, RESEND+4~, GETSUM~ , GETSUM+3*, GETSUM+4, GETSUM+5
>> RACCESS(	SETVARS+2, SETVARS+3
RACNI	RAHLRS1+11~, TM+6, RESEND~, RESEND+2, RESEND+8, RESEND+16, RAED~, RAED+7, RAED+8, GETSUM+1~ , GETSUM+6
RADFN	RAHLRS1+11~, TM+4, TM+5, TM+6, RESEND~, RESEND+2, RESEND+8, RESEND+16, RAED~, RAED+7 , RAED+8, GETSUM+1~, GETSUM+4, GETSUM+5, GETSUM+6
RADTI	RAHLRS1+11~, TM+5, TM+6, RESEND~, RESEND+2, RESEND+8, RESEND+16, RAED~, RAED+7, RAED+8 , GETSUM+1~, GETSUM+5, GETSUM+6
RAED	RAHLRS1+11~, 1+9, 1+11, 2+6, TM+3, GETSUM~, GETSUM+3
RAEDP80	RESEND+4~, RESEND+8*, RESEND+9, RESEND+10, RESEND+12, RESEND+14, RESEND+20
RAEID	GETHLP~, GETHLP+3
RAERR	GETAP+10~, GETAP+12
RAEXMDUN	RESEND+17~
>> RAIMGTY	CHECK+1, SETVARS+4
RAIMTYP	RAED+2~, RAED+10*, RAED+19, RAED+20
RALOCK	RAHLRS1+12~*
RAMPG	2+24~, 2+30, 2+31, TM+14, TM+15
RANOSEND	RESEND+21~
RAORD	RAED+2~, RAED+11, RAED+13, RAED+19, RAED+20
>> RAPICK	2+9*, RESEND+19
RARPST	RESEND+4~, RESEND+19, RAED+24*, RAED+25
RARPT	RAHLRS1+11~, RESEND+21~, RAED+2~, RAED+8*, RAED+24, RAED+25
RASHBD	RAHLRS1+11~, 1+3*, 2+28, TM+9
RASHED	RAHLRS1+11~, 1+10*, 2+28, TM+9
RASHTD	RAHLRS1+11~
RASHTM	RAHLRS1+11~, 2+20*, 2+27
RASSS	RAHLRS1+12~, 2+10
RASSS(	2+10*
RASSSL	RAHLRS1+12~, 2+10
RASSSL(	HANG+3
RASSSX	RAHLRS1+12~, 2+10
RASTAT	RAED+2~, RAED+3, RAED+7, RAED+10, RAED+11, RAED+15, RAED+20*, RAED+21
RASTIME	TM+1~, TM+2*
RASUM7	TM+1~, TM+2, TM+11, RESEND+11~, RESEND+13~, RESEND+17~, RESEND+21~, CHSUM+1, GETSUM+1~, GETSUM+2* , GETSUM+6*, GETSUM+7
RASUM7E	TM+1~, TM+2, TM+12, RESEND+3, RESEND+9*, RESEND+11~, RESEND+13~, RESEND+17~, RESEND+21~
RASUM7R	TM+1~, TM+2, TM+10, RESEND+11~, RESEND+13~, RESEND+17~, RESEND+21~, RAED+25
RAX	2+24~, TM+7!
RAX(1	2+25, TM+7
RAX(2	2+26, TM+8
RAX(3	2+27, TM+9
RAX(4	2+28, TM+10
RAX(5	TM+11*
RAXAMP80	RESEND+2~*, RESEND+3
RETURN	RAED+2~, RAED+5, RAED+13, RAED+15, RAED+17, RAED+19, RAED+21, RAED+25*, RAED+27
S	HANG+1~, HANG+3, HANG+4
SUB	GETSUB~
SUB(	GETSUB+18*
U	CHECK+4*, RESEND+3, GETAP+8, GETSUB+18, GETSUB+19
X	RAHLRS1+11~, RAHLRS1+12~, 1+4, 2+4, 2+9, 2+10, 2+19*
X(6	TM+12*
X1	1+4, GETAP+2~, GETAP+4, GETAP+5, GETAP+9, GETAP+11, GETAP+12, GETSUB+12~, GETSUB+15, GETSUB+16 , GETSUB+18
X11	GETAP+2~, GETAP+3, GETAP+4, GETAP+5, GETSUB+12~, GETSUB+14, GETSUB+15, GETSUB+16
X2	1+4, GETAP+2~, GETAP+5, GETAP+6, GETSUB+12~, GETSUB+16*, GETSUB+17, GETSUB+18
X3	GETAP+2~, GETAP+6, GETAP+7, GETAP+8, GETSUB+12~, GETSUB+17*
>> XMDUZ	2+31, TM+15
XMSUB	2+24~, 2+29, TM+13
XMTEXT	2+24~, 2+32, TM+16
XMY	2+24~
XMY(	2+31, TM+15
XQUIT	SETVARS+4!
XX	RAHLRS1+11~, 1+12!, GETAP~, GETSUB+12~, GETSUB+17, GETSUB+18, GETSUB+19, GETHLP+1~
XX(	1+14, 2+4, 2+9, 2+10, GETAP+12, GETHLP+4, GETHLP+5
XXX	GETAP+2~, GETAP+14
XXX(	GETAP+8*, GETAP+9
Y	1+1, 1+2, 1+3, 1+8, 1+9, 1+10, 2+6, 2+7, 2+8, 2+18 , 2+19, 2+20, RESEND+6, GETAP+10~, GETAP+11*, GETAP+12
YY	RAHLRS1+11~, 2+19*, 2+20
Z	GETAP+2~, GETAP+6!, GETAP+7
Z(	GETAP+6*, GETAP+7
Z1	GETAP+2~, GETAP+7!, GETAP+8*
>> ZTDESC	2+16*
>> ZTDTH	2+19*
>> ZTIO	2+15*
>> ZTRTN	2+16*
ZTSAVE	2+11!
ZTSAVE("RABD"	2+14*
ZTSAVE("RACNI"	2+15*
ZTSAVE("RADFN"	2+14*
ZTSAVE("RADTI"	2+15*
ZTSAVE("RAED"	2+14*
ZTSAVE("RAOPT("	2+12*
ZTSAVE("RAPICK"	2+13*
ZTSAVE("RASHBD"	2+15*
ZTSAVE("RASHED"	2+15*
ZTSAVE("RASSSL("	2+14*
ZTSAVE("RASSSX("	2+14*
>> ZTSK	2+22, 2+23, 2+25, TM+7

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAHLRS1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: