Routine: RAREG4

Package	Total	Call Graph
Radiology Nuclear Medicine	2	$$PROC^RAREG1 (EXAMLOOP,EXAMSET,MEMSET,ORDER,XTRADESC)^RAREG2
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAREG1

Entry Points

Name	Comments	DBIA/ICR reference
PROCESS	; Process orders, register exams for both parent procedures ; and non-parent procedures.
PSETPNT	; Select an active parent printset procedure.
EXAM2
Q4	; Unlock the record at the "DT" level, kill variables
EXAM1

External References

Name	Field # of Occurrence
^DIC	PSETPNT+9
^DIR	EXAM1+5, EXAM2+5
$$PROC^RAREG1	PROCESS+8, PROCESS+14, EXAM1+2, EXAM1+13, EXAM2+2
EXAMLOOP^RAREG2	PROCESS+16, EXAM1+14
EXAMSET^RAREG2	PROCESS+16
MEMSET^RAREG2	PROCESS+16
ORDER^RAREG2	PROCESS+12, EXAM1+14
XTRADESC^RAREG2	EXAM1+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Current procedure for this order is ",$P($G(^RAMIS(71,$P(^RAO(75.1,+RAORDS(RA6),0),U,2),0)),U) Line Location: PSETPNT+3
Function Call: WRITE	Prompt: !!?5,"You may replace this with a Printset Parent Procedure",!?5,"of the same imaging type.",! Line Location: PSETPNT+4
Function Call: WRITE	Prompt: !!?5,"The selection is invalid.",!,*7 Line Location: PSETPNT+11
Function Call: WRITE	Prompt: !!?5,"Parent procedures may not be added to this visit.",$C(7) Line Location: PROCESS+5
Function Call: WRITE	Prompt: !!?5,"Parent procedure: ",$$PROC^RAREG1(RAPROC) Line Location: PROCESS+8
Function Call: WRITE	Prompt: !!?5,"Descendent procedure: ",RAPRC Line Location: PROCESS+15
Function Call: WRITE	Prompt: ! Line Location: EXAM1+5
Function Call: WRITE	Prompt: !!?5,"Procedure: ",$$PROC^RAREG1(RAPROCI) Line Location: EXAM1+13
Function Call: WRITE	Prompt: ! Line Location: EXAM2+5
Routine Call	DIC Line Location: PSETPNT+9
Routine Call	DIR Line Location: EXAM1+5 EXAM2+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RAMIS(71 - [#71]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RADPT - [#70]	Q4+1
^RAMIS(71 - [#71]	PSETPNT+3, PROCESS+4, PROCESS+7, PROCESS+10, PROCESS+13, EXAM1+1, EXAM1+2
^RAO(75.1 - [#75.1]	PSETPNT+3, PROCESS+3, EXAM2+2
^TMP($J	Q4+7!

Label References

Name	Line Occurrences
EXAM1	PROCESS+11
EXAM2	PROCESS+2

Naked Globals

Name	Field # of Occurrence
^("RAREG1"	Q4+7!
^(0	PSETPNT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q4+4!
%DT	Q4+4!
%Y	Q4+4!
A	Q4+4!
D0	Q4+4!
D1	Q4+4!
D2	Q4+4!
DA	Q4+4!
DIC	PSETPNT+5*, Q4+4!
DIC("A"	PSETPNT+7*
DIC("S"	PSETPNT+8*
DIC(0	PSETPNT+6*
DIE	Q4+4!
DIFLD	Q4+8!
DIK	Q4+8!
DIPGM	Q4+8!
DIR	EXAM1+5!, EXAM2+5!
DIR("A"	EXAM1+3, EXAM1+4, EXAM2+3, EXAM2+4
DIR("B"	EXAM1+4*
DIR(0	EXAM1+5, EXAM2+5
DIRUT	Q4+1!
DISYS	Q4+8!
DIV	Q4+4!
DK	Q4+8!
DL	Q4+8!
DM	Q4+8!
DQ	Q4+8!
DR	Q4+4!
>> DTOUT	EXAM1+6, EXAM2+6
>> DUOUT	EXAM1+6, EXAM2+6
GMRAL	Q4+4!
HLN	Q4+8!
HLRESLT	Q4+8!
HLSAN	Q4+8!
J	Q4+4!
NOW	Q4+4!
POP	Q4+4!
PY	Q4+1!
RA	EXAM1+1~, EXAM1+2, EXAM1+3, EXAM2+1~, EXAM2+2, EXAM2+3, Q4+1!
RA0	Q4+1!
RA2	Q4+1!
>> RA6	PSETPNT+2*, PSETPNT+3
RABED	Q4+1!
RACAT	Q4+1!
RACLNC	Q4+1!
RACN	Q4+1!
RACNI	PROCESS+16, Q4+1!
RACNICNT	Q4+1!
RACNT	Q4+1!
>> RADESC	PROCESS+9, PROCESS+10, PROCESS+13, EXAM1+1
RADFN	PROCESS+16, Q4+1, Q4+4!
RADIV	Q4+1!
RADPARFL	PSETPNT+11!, PROCESS+3, Q4+7!
RADPARPR	PSETPNT+10*, PROCESS+3, Q4+7!
RADT	Q4+1!
RADTE	Q4+1!
RADTE99	Q4+4!
RADTI	PROCESS+16, Q4+1!
RADUZ	Q4+1!
RAEXFM	Q4+1!
>> RAEXIT	PROCESS+10, EXAM1, EXAM1+6, EXAM1+9, EXAM2, EXAM2+6
RAEXLBLS	Q4+1!
RAFLH	Q4+1!
RAFLHCNT	Q4+1!
RAFLHFL	Q4+4!
RAFMT	Q4+1!
>> RAIMG1	PSETPNT+3*
RALIFN	Q4+2!
RALOC	Q4+2!
RANME	EXAM1+4, EXAM2+4, Q4+2!
RANOW	Q4+2!
RANS	Q4+2!
RANUM	Q4+2!
RANUMF	Q4+2!
RAOIFN	PROCESS+3, Q4+4!
RAOLP	EXAM2+1, Q4+2!
RAORDNUM	Q4+2!
RAORDS	Q4+2!
RAORDS(	PSETPNT+3, EXAM2+1
RAORDS(0	PSETPNT+2
RAORDS(1	PSETPNT+1
RAOSTS	Q4+2!
RAOUT	Q4+2!
RAP	Q4+2!
RAP0	Q4+2!
RAPHY	Q4+2!
RAPIFN	Q4+2!
RAPOP	Q4+4!
RAPRC	PROCESS+14*, PROCESS+15, Q4+2!
RAPRI	Q4+2!
>> RAPROC	PROCESS+3*, PROCESS+4, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+13, EXAM1+1, EXAM1+2, EXAM1+12
>> RAPROCI	PROCESS+13, PROCESS+14, EXAM1+12, EXAM1+13
RAPTFL	Q4+4!
RAPX	Q4+4!
RAQUIT	PROCESS+10, PROCESS+12, EXAM1+14, EXAM2, Q4+2!
RAR	Q4+2!
RARDTE	Q4+2!
RAREC	Q4+2!
RAREGFLG	Q4+2!
RARSH	Q4+2!
RASEL	Q4+4!
RASER	Q4+2!
RASET	Q4+2!
RASEX	Q4+4!
RASHA	Q4+2!
>> RASKIPIT	PROCESS+2, PROCESS+9, PROCESS+11, EXAM1+6, EXAM2+6*
RASX	Q4+2!
RATYPE	Q4+3!
RAVISIT1	Q4+3!
RAVLECNI	Q4+3!
RAVLEDTI	Q4+3!
>> RAVSTFLG	PROCESS+4
RAWARD	Q4+3!
RAX	Q4+3!
RAY	Q4+3!
RAZ	Q4+3!
RT	Q4+4!
RTDFN	Q4+4!
U	PSETPNT+3, PROCESS+3, PROCESS+4, PROCESS+7, PROCESS+13, EXAM1+2, EXAM2+2
VADMVT	Q4+3!
VAINDT	Q4+3!
X	Q4+4!
X0	Q4+8!
Y	PSETPNT+1*, PSETPNT+10, PSETPNT+11, EXAM1+6, EXAM2+6, Q4+4!
YY	Q4+3!
ZRACCESS	Q4+6!
ZRADTI	Q4+6!
ZRAIMGTY	Q4+6!
ZRAMDIV	Q4+6!
ZRAMDV	Q4+6!
ZRAMLC	Q4+6!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAREG4

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: