Routine: RAPTLU

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Radiology Nuclear Medicine	6	^RADPA ($$SSANVAL,$$USESSAN)^RAHLRU1 ($$SSN,D)^RAUTL $$IMGTY^RAUTL12 EN1^RAUTL20 ASK^RAUTL4
VA Fileman	4	^DIE DT^DIO2 $$GET1^DIQ ^DIR
Adverse Reaction Tracking	2	$$ORCHK^GMRAOR ($$RACHK,$$RADD)^GMRARAD
Kernel	1	HOME^%ZIS
Uncategorized	1	ESC^RTRD

Package

Total

Call Graph

Radiology Nuclear Medicine

^RADPA ($$SSANVAL,$$USESSAN)^RAHLRU1 ($$SSN,D)^RAUTL $$IMGTY^RAUTL12 EN1^RAUTL20 ASK^RAUTL4

VA Fileman

^DIE DT^DIO2 $$GET1^DIQ ^DIR

Adverse Reaction Tracking

$$ORCHK^GMRAOR ($$RACHK,$$RADD)^GMRARAD

Kernel

HOME^%ZIS

Uncategorized

ESC^RTRD

Package	Total	Caller Graph
Radiology Nuclear Medicine	8	RA PTEDIT RACNLU RAEDPT RAERRPT RAPROQ RAPROS RART1 RART2
IHS View Patient Record	1	BVPRP

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA PTEDIT RACNLU RAEDPT RAERRPT RAPROQ RAPROS RART1 RART2

IHS View Patient Record

BVPRP

Entry Points

Name	Comments	DBIA/ICR reference
CASE	;
PTUPD	;Update Patient Info
PTUPDH2	;
PTUPDH3
PTUPDX
PTUPD0
Q
PRT	; Screen only if entered through Rad/Nuc Med
PTUPDH1
SEL2	; per RACNLU, check loc access, need split For Loop,swm080398
SEL	;
IMGDISP(RARPT)	; Display "i" if an image is associated with the Rad/Nuc Med ; Report. Called from RAPROS - Exam Profile (Selected Sort) ; Input : RARPT - ien of the report ; Output: "i" if an image exists, else null ("")
HD	;

External References

Name	Field # of Occurrence
HOME^%ZIS	SEL+2
^DIE	PTUPD+1
DT^DIO2	HD+3
$$GET1^DIQ	PRT+12
^DIR	PTUPD0+4
$$ORCHK^GMRAOR	PTUPD0+1
$$RACHK^GMRARAD	PTUPD0+6
$$RADD^GMRARAD	PTUPD0+7
^RADPA	PTUPD+1
$$SSANVAL^RAHLRU1	PRT+18
$$USESSAN^RAHLRU1	PRT+22, PRT+23, HD+5, HD+6, HD+7, HD+8
$$SSN^RAUTL	SEL+2
D^RAUTL	PRT+6
$$IMGTY^RAUTL12	PRT+1, PRT+11
EN1^RAUTL20	PRT+17
ASK^RAUTL4	SEL+10, PRT+24
ESC^RTRD	HD+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,$C(7),"No matches found!" Line Location: SEL+6
Function Call: WRITE	Prompt: !,RACNT,?3,$S(RAMEMLOW:"+",RAPRTSET:".",1:" "),?4,RACNDSP,?19,$$IMGDISP(RARPT),?21,$E(RAPRC,1,26),?49,RADTPRT,?59,$E(RASTP,1,8),?68,$E(RAELOC,1,12) Line Location: PRT+22
Function Call: WRITE	Prompt: !,RACNT,?5,$S(RAMEMLOW:"+",RAPRTSET:".",1:" "),?6,RACN,?11,$$IMGDISP(RARPT),?13,$E(RAPRC,1,26),?41,RADTPRT,?52,$E(RASTP,1,16),?69,$E(RAELOC,1,11) Line Location: PRT+23
Function Call: WRITE	Prompt: @IOF Line Location: PRT+24
Function Call: WRITE	Prompt: @IOF,?25,RAHEAD,!!,"Patient's Name: ",$E(RANME,1,20)," ",RASSN,?55,"Run Date: " Line Location: HD+3
Function Call: WRITE	Prompt: !!,"============================ Exam Procedure Profile ==========================" Line Location: HD+4
Function Call: WRITE	Prompt: !!?3,"Case No.",?21,"Procedure",?49,"Exam Dt",?59 Line Location: HD+5
Function Call: WRITE	Prompt: $S($D(RAREPORT):"Rpt",1:"Exam")," St",?68,"Imaging Loc" Line Location: HD+5
Function Call: WRITE	Prompt: !?3,"--------",?21,"-------------",?49,"---------",?59,"--------",?68,"-----------" Line Location: HD+6
Function Call: WRITE	Prompt: !!?3,"Case No.",?13,"Procedure",?41,"Exam Date",?52,"Status of " Line Location: HD+7
Function Call: WRITE	Prompt: $S($D(RAREPORT):"Report",1:"Exam"),?69,"Imaging Loc" Line Location: HD+7
Function Call: WRITE	Prompt: !?3,"--------",?13,"-------------",?41,"---------",?52,"----------------",?69,"-----------" Line Location: HD+8
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: PTUPD0+5
Function Call: WRITE	Prompt: !?5,"If this patient has had an allergic reaction to contrast medium, enter 'Y'" Line Location: PTUPDH1+0
Function Call: WRITE	Prompt: !?5,"for YES at this prompt. If not, enter 'N' for NO." Line Location: PTUPDH1+1
Function Call: WRITE	Prompt: !?5,"The value in this field is used to indicate if this Radiology" Line Location: PTUPDH2+1
Function Call: WRITE	Prompt: !?5,"/Nuclear Medicine patient has had an allergic reaction to the contrast" Line Location: PTUPDH2+2
Function Call: WRITE	Prompt: !?5,"medium during a Radiology/Nuclear Medicine procedure. It may contain a" Line Location: PTUPDH2+3
Function Call: WRITE	Prompt: !?5,"'Y' for YES, or 'N' for NO. If YES, then a warning message is" Line Location: PTUPDH2+4
Function Call: WRITE	Prompt: !?5,"displayed to the receptionist whenever this patient is" Line Location: PTUPDH2+5
Function Call: WRITE	Prompt: !?5,"registered for a procedure that may involve contrast material." Line Location: PTUPDH2+6
Function Call: WRITE	Prompt: !?5,"CHOOSE FROM:" Line Location: PTUPDH3+0
Function Call: WRITE	Prompt: !?5," Y YES" Line Location: PTUPDH3+1
Function Call: WRITE	Prompt: !?5," N NO" Line Location: PTUPDH3+2
Routine Call	%ZIS Line Location: SEL+2
Routine Call	DIE Line Location: PTUPD+1
Routine Call	DIR Line Location: PTUPD0+4

FileNo	Call Tags
^RADPT - [#70]	Classic Fileman Calls
^RARPT - [#74]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SEL2+2
^DISV(	CASE+2*
^DPT - [#2]	SEL+2
^RA(72 - [#72]	PRT+13, PRT+15
^RA(79 - [#79]	SEL2+2
^RA(79.1 - [#79.1]	PRT+7
^RA(79.2 - [#79.2]	SEL2+4, PRT+3
^RADPT - [#70]	CASE+2, SEL+5, SEL2+8, PRT+3, PRT+7, PRT+24
^RAMIS(71 - [#71]	PRT+6
^RARPT - [#74]	PRT+5, IMGDISP+4
^SC - [#44]	PRT+7
^TMP("MAG"	Q!
^TMP($J	SEL+2!, SEL2+6, PRT+9*

Name	Line Occurrences
$$IMGDISP	PRT+22, PRT+23
HD	PRT+21
PRT	SEL2+8
PTUPD0	PTUPD0+5
PTUPDH3	PTUPDH1+2, PTUPDH2+7
PTUPDX	PTUPD0+4, PTUPD0+5
Q	CASE+1
SEL	CASE+1
SEL2	SEL+5

Name	Field # of Occurrence
^(	SEL+5, SEL2+8
^(0	SEL+2, SEL+5, SEL2+8, PRT+6, PRT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PTUPDX!
%Y	PTUPDX!
ALLERGY	PTUPD0+1*, PTUPD0+2, PTUPD0+5, PTUPDX!
C	PTUPDX!
D	PTUPDX!
D0	PTUPDX!
DA	PTUPD+1*, PTUPD0+1, PTUPD0+6, PTUPD0+7, PTUPDX!
DE	PTUPDX!
DIC	PTUPD+1!, PTUPDX!
DIC(0	PTUPD+1*
DIE	PTUPD+1*, PTUPDX!
DIR	PTUPD0!, PTUPD0+4!, PTUPDX!
DIR("?"	PTUPD0+3*
DIR("??"	PTUPD0+3*
DIR("A"	PTUPD0*
DIR("B"	PTUPD0+2*
DIR(0	PTUPD0*
>> DIRUT	PTUPD0+4
DQ	PTUPDX!
DR	PTUPD+1*, PTUPDX!
DT	HD+3
DUZ	CASE+2
>> I	CASE+1*
IOF	PRT+24, HD+3
IOSL	PRT+24, HD+4
>> ORVP	SEL2+6, PRT+1
>> RACN	SEL2+8, PRT+4, PRT+6, PRT+9, PRT+19, PRT+23
RACNDSP	PRT+18~, PRT+19*, PRT+22
>> RACNI	CASE+2, SEL2+8*, PRT+9, PRT+18, PRT+24
RACNT	CASE+1, Q!, SEL+2, SEL+6, PRT+9, PRT+22, PRT+23
>> RADATE	PRT+6*, PRT+9
>> RADFN	CASE+2, SEL+2, SEL+5, SEL2+8, PRT+1, PRT+3, PRT+7, PRT+9, PRT+11, PRT+18 , PRT+24
>> RADIV	SEL2+1, SEL2+2, SEL2+3*, SEL2+6
>> RADTE	SEL+5*, PRT+6, PRT+9
>> RADTI	CASE+2, SEL+5*, SEL2+8, PRT+1, PRT+3, PRT+7, PRT+9, PRT+11, PRT+18, PRT+24
RADTPRT	Q!, PRT+6, PRT+7, PRT+22, PRT+23
>> RADUPSCN	SEL2+6
RAELOC	Q!, PRT+7, PRT+8, PRT+22, PRT+23
RAERR	Q!
>> RAF1	CASE+1
RAHDCNT	CASE+1~, HD+1, HD+2
>> RAHEAD	HD+3
RAIC	PTUPD+1!
>> RAIMAGE	SEL2+1, SEL2+4, SEL2+5*, SEL2+6
>> RAIMGTY	PRT+1
>> RAIMGTYI	PRT+11*, PRT+13
RAMEMLOW	PRT+17~, PRT+22, PRT+23
>> RANME	SEL+2*, PRT+9, HD+3
>> RANODE	SEL+5*, SEL2+1
>> RANOSCRN	SEL2+6, PRT+1
>> RAOPT("DOSAGE	TICKET" , PRT+1, PRT+3
>> RAOPT("UNCORR	ECTED REPORTS" , PRT+1, PRT+5
>> RAPRC	PRT+6*, PRT+9, PRT+22, PRT+23
RAPRTSET	PRT+17~, PRT+22, PRT+23
RAPTFL	PTUPDX!
>> RAREPORT	PRT+10, PRT+15, HD+5, HD+7
RARPT	PRT+4*, PRT+5, PRT+9, PRT+12, PRT+22, PRT+23, IMGDISP~, IMGDISP+4
RASSAN	PRT+18~*, PRT+19
>> RASSN	SEL+2*, PRT+9, HD+3
>> RAST	PRT+6*, PRT+9, PRT+13, PRT+15
RASTP	Q!, PRT+12, PRT+13, PRT+15*, PRT+22, PRT+23
RTESC	Q!, HD+4
RTFL	Q!, HD+3, HD+4
U	PRT+3, PRT+7
X	CASE+1, SEL+2, SEL+4, SEL+5, SEL+6, SEL+10, SEL2+8, PTUPD0+5, PTUPD0+6, PTUPD0+7* , PTUPDX!
Y	CASE+1, PRT+6, HD+3, PTUPD+1, PTUPD0+5, PTUPD0+6, PTUPD0+7, PTUPDX!
Y(0	CASE+2*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPTLU

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: