Routine: RAREG

Package	Total	Call Graph
Radiology Nuclear Medicine	11	^RADEM2 ^RADPA $$STUB^RAEDCN1 $$USESSAN^RAHLRU1 ^RAPSET (KILL,SET)^RAPSET1 SET^RARD ^RAREG1 ^RASERV D^RAUTL $$INLO^RAUTL13
VA FileMan	3	^%DT C^%DTC ^DIR
Kernel	2	HOME^%ZIS ($$FMADD,$$NOW)^XLFDT

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RA ADDEXAM RA REG RAREG1

Entry Points

Name	Comments	DBIA/ICR reference
PAT
DT
DT1
ADD
ADD1
ADD2	;
Q
BACKDATE(RADT)	;

External References

Name	Field # of Occurrence
^%DT	DT+5, BACKDATE+3
C^%DTC	ADD1+9
HOME^%ZIS	PAT+16
^DIR	PAT+10, ADD1+8, ADD1+15
^RADEM2	PAT+17
^RADPA	PAT+16
$$STUB^RAEDCN1	ADD2+11
$$USESSAN^RAHLRU1	ADD1+10, ADD1+11, ADD2+3, ADD2+4
^RAPSET	PAT+12
KILL^RAPSET1	PAT+12
SET^RAPSET1	PAT
SET^RARD	ADD1+22
^RAREG1	DT1+15
^RASERV	DT1+14
D^RAUTL	ADD1+10, ADD1+11
$$INLO^RAUTL13	PAT+3
$$FMADD^XLFDT	DT+4
$$NOW^XLFDT	DT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Your current Imaging Location: '"_$P($G(RACCESS(DUZ,"LOC",+RAMLC)),U,2)_"' is inactive." Line Location: PAT+5
Function Call: WRITE	Prompt: !?3,"If you wish to register this patient for an exam, locations must be switched.",! Line Location: PAT+6
Function Call: WRITE	Prompt: ! Line Location: PAT+12
Function Call: WRITE	Prompt: !?3,*7,"A previous exam date does not exist for this patient!",! Line Location: PAT+17
Function Call: WRITE	Prompt: !,*7,"Patient already has exams (which may have been cancelled) for this date/time." Line Location: DT1+2
Function Call: WRITE	Prompt: !,"....use 'Add Exams to Last Visit' option, or enter a date/time a few minutes",!," earlier or later." Line Location: DT1+3
Function Call: WRITE	Prompt: *7,!,"?? Please try a different time of day (a few minutes later)." Line Location: DT1+8
Function Call: WRITE	Prompt: !,*7,"Someone else is now editing an exam for this patient on the date/time",!,"you selected. Please try entering a date/time a few minutes earlier or later." Line Location: DT1+12
Function Call: WRITE	Prompt: !?3,"Your current location is defined as: '" Line Location: ADD1+3
Function Call: WRITE	Prompt: $P($G(^SC(+$P($G(^RA(79.1,+RAMLC,0)),"^"),0)),"^")_"'." Line Location: ADD1+4
Function Call: WRITE	Prompt: !?3,"You must log into the '" Line Location: ADD1+5
Function Call: WRITE	Prompt: !?3,"to add exams to the last visit.",$C(7) Line Location: ADD1+7
Function Call: WRITE	Prompt: !!?3,*7,"Last visit was before yesterday. No adding exams allowed!" Line Location: ADD1+9
Function Call: WRITE	Prompt: !!,"Last Visit Date/Time: " Line Location: ADD1+10
Function Call: WRITE	Prompt: Y,!!?1,"Case No.",?18,"Procedure",?50,"Status",!?1,"----------------",?18,"---------",?50,"------" Line Location: ADD1+10
Function Call: WRITE	Prompt: !!,"Last Visit Date/Time: " Line Location: ADD1+11
Function Call: WRITE	Prompt: Y,!!?1,"Case No.",?10,"Procedure",?42,"Status",!?1,"--------",?10,"---------",?42,"------" Line Location: ADD1+11
Function Call: WRITE	Prompt: !!?2,"NOTE: Because all the cases within this exam date/time are" Line Location: ADD1+16
Function Call: WRITE	Prompt: !?8,"part of one order set, and a valid report has been filed" Line Location: ADD1+17
Function Call: WRITE	Prompt: !?8,"already, additional procedures may not be added to this visit." Line Location: ADD1+18
Function Call: WRITE	Prompt: !?8,"You must register the desired exam(s) at a later date/time." Line Location: ADD1+19
Function Call: WRITE	Prompt: !?1,RACNDSP,?18,$E($S($D(^RAMIS(71,+$P(Y,"^",2),0)):$P(^(0),"^"),1:"Unknown"),1,30),?50,$S($D(^RA(72,+$P(Y,"^",3),0)):$P(^(0),"^"),1:"Unknown") Line Location: ADD2+3
Function Call: WRITE	Prompt: !?3,$P(Y,"^"),?10,$E($S($D(^RAMIS(71,+$P(Y,"^",2),0)):$P(^(0),"^"),1:"Unknown"),1,30),?42,$S($D(^RA(72,+$P(Y,"^",3),0)):$P(^(0),"^"),1:"Unknown") Line Location: ADD2+4
Function Call: WRITE	Prompt: !!,"********************************************************" Line Location: BACKDATE+5
Function Call: WRITE	Prompt: !,"The Exam date entered is more than one year in the past." Line Location: BACKDATE+6
Function Call: WRITE	Prompt: !,"********************************************************" Line Location: BACKDATE+7
Routine Call	DIR Line Location: PAT+10 ADD1+8 ADD1+15
Routine Call	%ZIS Line Location: PAT+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(70	PAT+16
^DD(75.1	ADD2+5
^DIC(34 - [#34]	ADD2+6
^RA(72 - [#72]	ADD2+3, ADD2+4
^RA(79 - [#79]	DT
^RA(79.1 - [#79.1]	ADD1+2, ADD1+4, ADD1+6
^RADPT - [#70]	PAT+17, DT1+1, DT1+8, DT1+12, ADD1, ADD1+13, ADD2+6
^RAMIS(71 - [#71]	ADD2+3, ADD2+4
^RARPT - [#74]	ADD2+10
^SC - [#44]	ADD1+2, ADD1+4, ADD1+6, ADD2+7
^VA(200 - [#200]	ADD2+7
^XUSEC("RA MGR"	ADD1+9

Label References

Name	Line Occurrences
$$BACKDATE	DT+8
ADD1	PAT+17
ADD2	ADD1+13
DT	DT+5, DT+8, DT1+1, DT1+8, DT1+12
DT1	ADD1+23
PAT	ADD
Q	PAT+16, PAT+17, DT+2, ADD1+1, ADD1+9, ADD1+22

Naked Globals

Name	Field # of Occurrence
^(	PAT+17, ADD1+13
^("R"	ADD2+6
^(0	ADD1+2, ADD1+6, ADD1+13, ADD2+3, ADD2+4, ADD2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q!
%DT	DT+4*, DT+5!, Q!, BACKDATE+3!
%DT(0	DT+4*
%W	Q+1!
%X	Q+1!
%Y	Q+1!
%Y1	Q+1!
D	Q+1!
D3	Q+1!
DA	Q!
DDER	Q+1!
DDH	Q+1!
DFN	Q+1!
DI	Q+1!
DIC	Q!
DIC(0	PAT+16*
DIG	Q+1!
DIH	Q+1!
DIR	PAT+2!, PAT+10!, ADD1+8!, ADD1+15~
DIR("?"	PAT+9*
DIR("A"	PAT+8*
DIR("B"	PAT+7*
DIR(0	PAT+7, ADD1+8, ADD1+15*
DIROUT	PAT+2!, PAT+10!
DIRUT	PAT+2!, PAT+10!
DIU	Q+1!
DIW	Q+1!
DIWF	Q+1!
DIWI	Q+1!
DIWL	Q+1!
DIWR	Q+1!
DIWT	Q+2!
DIWTC	Q+2!
DIWX	Q+2!
DN	Q+2!
DT	ADD1+9
DTIME	DT+1, ADD1+20, BACKDATE+8
DTOUT	PAT+2!, PAT+10!
DUOUT	PAT+2!, PAT+10!
DUZ	PAT+5, ADD1+9
GMRAL	Q!
I	ADD1+13*, ADD2+5, ADD2+6, Q+2!
IOSL	ADD1+15
>> J	PAT+17*, ADD1, ADD1+13, ADD2+5, ADD2+6
POP	Q!
RA0	ADD1+12~
RA1	ADD1+12~, ADD1+14, ADD2+12
RA17	ADD1+12~, ADD2+9*, ADD2+10!, ADD2+11, ADD2+12!
RAANS	BACKDATE+1~, BACKDATE+8*, BACKDATE+9
RABED	DT1+14!, Q!
RACANC	Q+2!
RACAT	PAT+16, DT1+13, DT1+14, ADD2+5, ADD2+6, Q!
RACCESS	PAT+13!
RACCESS(	PAT+5
RACN0	Q+2!
RACNDSP	ADD2+1~, ADD2+2*, ADD2+3
RACON	BACKDATE+1~, BACKDATE+2, BACKDATE+9, BACKDATE+10
RACPT	Q+2!
RACPTNDE	Q+2!
RADFN	PAT+16*, PAT+17, DT1+1, DT1+8, DT1+12, ADD1, ADD1+13, ADD2+6, Q!
RADIRYN	PAT+2!, PAT+4!, PAT+11*, PAT+15!
RADIV	ADD2+5*, Q!
RADT	BACKDATE~, BACKDATE+4
RADTE	RAREG+4!, DT1*, DT1+8, Q!
RADTEBAD	DT!, DT1+8*, DT1+13!
RADTI	DT1*, DT1+1, DT1+12, Q!
RAEXIT	Q+2!
RAEXMDAT	BACKDATE+1~
RAHRS	DT~*, DT+4
RAHSMULT	Q+2!
RAI	Q+2!
RAINATVE	PAT+2!, PAT+3*, PAT+4!, PAT+15!
RALIFN	ADD2+5!, ADD2+7*, Q!
>> RAMDIV	DT
>> RAMLC	PAT+3, PAT+5, ADD1+1, ADD1+4
RAN	Q+3!
RANME	Q!
>> RANOW	DT+3*, DT1+13, DT1+14
RAOBR4	Q+3!
RAOIFN	Q!
RAPARENT	Q+3!
RAPIFN	ADD2+5!, ADD2+7*, Q!
RAPOP	PAT+17, Q!
RAPRCNDE	Q+3!
RAPROC	Q+3!
RAPROCI	Q+3!
RAPROCIT	Q+3!
RAPRV	Q+3!
RAPTFL	Q!
RARD	ADD1+22!
RARD("A"	ADD1+22*
RARD("B"	ADD1+22*
RARD(0	ADD1+22*
RARD(1	ADD1+22*
RARD(2	ADD1+22*
RARDTE	ADD2+5!, ADD2+7*, Q!
>> RAREC	ADD1+23*
RAREGFLG	PAT+16*, Q!
RARSH	ADD2+5!, ADD2+6*, Q!
RASER	DT1+14!, Q!
RASEX	Q!
RASHA	ADD2+5!, ADD2+6*, Q!
RASKIPIT	Q+3!
RASSAN	ADD2+1~*, ADD2+2
RATODAY	BACKDATE+1~, BACKDATE+3*, BACKDATE+4
RAVLECNI	ADD2+5!*, Q!
RAVLEDTI	ADD2+5!*, Q!
RAVSTFLG	PAT+16, PAT+17, DT1+1, ADD*, Q!
RAWARD	DT1+13, DT1+14!, ADD2+5, Q!
U	PAT+5, ADD1+14
VA	Q+4!
VADM	Q+4!
VAERR	Q+4!
X	PAT+11!, PAT+16!, DT+1, DT+2, DT+3, ADD1+9, ADD1+22, Q!, BACKDATE+3*
>> X1	ADD1+9*
>> X2	ADD1+9*
XQUIT	PAT!, PAT+4, PAT+13, Q!
Y	PAT+11!, PAT+16, DT+5, DT+8, DT1, ADD1+10, ADD1+11, ADD1+13, ADD1+14, ADD1+15 , ADD1+20~, ADD1+23, ADD2+1, ADD2+2, ADD2+3, ADD2+4, ADD2+5, ADD2+6, ADD2+7, ADD2+8 , ADD2+9, Q!, BACKDATE+1~, BACKDATE+3
Y(0	PAT+16
YY	ADD1*, ADD1+1, ADD1+2, ADD1+6, ADD1+9, ADD1+10, ADD1+11, ADD1+14, ADD1+23, ADD2+5 , Q!
Z	Q+4!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAREG

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: