Routine: RAUTL8

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ ^DIR
Radiology Nuclear Medicine	3	CONTRAST^RAUTL2 VARACC^RAUTL6 ($$DPDT,$$PTAGE,$$PTSEX)^RAUTL8
Kernel	2	($$DT,$$FMDIFF)^XLFDT $$UP^XLFSTR
Adverse Reaction Tracking	1	$$ORCHK^GMRAOR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Radiology Nuclear Medicine	23	EXAMINATIONS RACMP1 RACTEX7 RACTOE3 RACTRG11 RACTTK2 RAMAG03C RAORD1A RAORD3 RAORD6 RAPROD RAREG2 RARIC1 RART1 RART3 RARTE RARTE6 RARTR RARTR0 RARTR3 RASTED RASTREQ RAUTL8

Entry Points

Name	Comments	DBIA/ICR reference
STAT
PSRS()	; do not enter secondary into primary interpreting staff screen ; called from input transform ^DD(70.03,15,0)
S2
ASKPREG()	;RA5.099 - Evaluate the conditions to present the PREGNANCY
PRSCR(RADFN,RADTI,RACNI,RAFRMT)	;return pregnancy screen
STATSEL	;Select one or more order statuses
PRC1	; Check for C.M. reaction on this patient ; +X is the IEN of the Rad/Nuc Med Procedure in file 71 ; RA572 - Changed next line to preserve variables
PRC
MES1	; display procedure acceptance message
GMRAOR(RADA2)	;look for a contrast media reaction
SCRN(RADA,RARS,Y,RALVL)	; check if the primary or secondary int'ng staff ; or resident has access to a location or locations which have ; an imaging type which match the imaging type of the examination. ; This screen will also check the classification of the individual to ; ensure that they are active and valid for the field being edited.
ASK	; Prompt user for yes/no response
PTSEX(DFN)	;return pt sex, added by p#99
PRACTO(RADFN)	;returns previous active order IEN of file #75.1 or null if no previous order
ASK1
CMEDIA(RADFN,RADTI,RACNI)	;return the CM used with an exam
PRCEXA(RADFN)	;return a previous case exam
EN(X,FLD,RA)	;Input transform screen for Primary Staff, Primary Res
ASKSEX()	;RA5.099 - Determine the sex of the patient by asking the user.
PTAGE(DFN,RADTST)	;return pt age, added by p#99
S()	; do not enter primary OR SAME SEC in secondary interpreting resident
PRRS()	; do not enter secondary into primary interpreting resident screen ; called from input transform ^DD(70.03,12,0)
DPDT(RAPRC,RAY)	; Check for registration of duplicate procedures on the same ; date/time. Called from PRC above. ; INPUT VARIABLES ; 'RAPRC' --> IEN of the procedure (71) ; 'RAY' --> DA array i.e, DA, DA(1), & DA(2) ; OUTPUT VARIABLES ; 'RAFLG' --> RAFLG=1 procedure registered for this date/time ; --> RAFLG=0 initial registration for procedure@date/time
SSR()	; do not enter primary OR SAME SEC in secondary interpreting staff
PRSCOM(RADFN,RADTI,RACNI)	;return pregnancy screen comment
SSR2
PAOE()	;Entry point to enter Pregnancy field of file 75.1. This label is being called from

Name	Field # of Occurrence
EN^DDIOL	PRC1+7, PRC1+8, ASK+1, ASK1+3
$$EXTERNAL^DILFD	CMEDIA+6
$$GET1^DIQ	PRACTO+6
GETS^DIQ	PRSCR+8, PRSCOM+7, ASKPREG+14
^DIR	STAT, PAOE+5, ASKSEX+19
$$ORCHK^GMRAOR	GMRAOR+2
CONTRAST^RAUTL2	PRC1+4
VARACC^RAUTL6	SCRN+27
$$DPDT^RAUTL8	PRC+1
$$PTAGE^RAUTL8	ASKPREG+13
$$PTSEX^RAUTL8	ASKPREG+19, ASKPREG+24
DEM^VADPT	PTAGE+7, PTSEX+4
$$DT^XLFDT	PTAGE+6
$$FMDIFF^XLFDT	PTAGE+8
$$UP^XLFSTR	MES1+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select statuses to include on report.",! Line Location: STATSEL+8
Function Call: WRITE	Prompt: !?5,$J(X1,2,0)_" "_RAORST(X1) Line Location: STATSEL+8
Function Call: WRITE	Prompt: !," ?? Sorry, invalid status selection. Please try again.",! Line Location: STAT+2
Routine Call	DIR Line Location: STAT PAOE+5 ASKSEX+19

FileNo	Call Tags
70.03	GETS^DIQ
70.3225	EXTERNAL^DILFD
^RARPT - [#74]	GETS^DIQ
^RAO(75.1 - [#75.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN+10, EN+12
^DD(75.1	STATSEL+7
^RA(72 - [#72]	DPDT+14
^RA(79 - [#79]	PRC1+6, ASKPREG+19
^RADPT - [#70]	PRC, PRC1+6, S+2, S+3, S+4, S2, S2+1, S2+2, SSR+2, SSR+3 , SSR+4, SSR2, SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+8, EN+14!, EN+17, EN+18 , EN+21*, DPDT+10, DPDT+12, DPDT+13, SCRN+23, SCRN+24, SCRN+25, SCRN+26, CMEDIA+4, CMEDIA+5 , PRCEXA+5
^RAMIS(71 - [#71]	PRC1+10
^RAO(75.1 - [#75.1]	PRACTO+5
^VA(200 - [#200]	SCRN+17
^XUSEC("RA ALLOC"	SCRN+19

Name	Line Occurrences
$$GMRAOR	PRC1+3
ASK	PRC+2
ASK1	ASK1+3
MES1	PRC1+10, MES1+4
PRC1	PRC
S2	S+1, S+2
SSR2	SSR+1, SSR+2
STAT	STAT+2

Name	Field # of Occurrence
^("RA"	SCRN+17
^(2	EN+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PTAGE+4~, PTSEX+4~, ASKPREG+12~
D	GMRAOR+1~
D0	EN+11*, GMRAOR+1~
D1	EN+11*, GMRAOR+1~
D2	EN+11*, GMRAOR+1~
D3	EN+11*, GMRAOR+1~
DA	PRC+1, S2, S2+1, S2+2, SSR2, SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+4~ , EN+11*, GMRAOR+1~
DA(1	PRC1+6, S+2, S+3, S+4, S2, S2+1, S2+2, SSR+2, SSR+3, SSR+4 , SSR2, SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+11*
DA(2	PRC, PRC1+3, PRC1+6, S+2, S+3, S+4, S2, S2+1, S2+2, SSR+2 , SSR+3, SSR+4, SSR2, SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+11*
DA(3	S+1, S+2, S+3, S+4, SSR+1, SSR+2, SSR+3, SSR+4, EN+11*
DC	GMRAOR+1~
DD	GMRAOR+1~
DEL	EN+4~, EN+6, EN+14, EN+16, EN+19
DFN	GMRAOR+1~, PTAGE~, PTSEX~
DG	GMRAOR+1~
DH	GMRAOR+1~
DI	GMRAOR+1~
DIC	GMRAOR+1~
DIE	GMRAOR+1~
DIEDA	GMRAOR+1~
DIEL	GMRAOR+1~
DIERR	ASKPREG+12~
DIETMP	GMRAOR+1~
DIEXREF	GMRAOR+1~
DIFLD	GMRAOR+1~
DIIENS	GMRAOR+1~
DIOV	GMRAOR+1~
DIP	GMRAOR+1~
DIR	STAT!, PAOE+3~, ASKSEX+16~
DIR("?"	ASKSEX+18*
DIR("A"	PAOE+5, ASKSEX+17
DIR("B"	PAOE+4, ASKSEX+16
DIR(0	STAT, PAOE+3, ASKSEX+16*
DIROUT	PAOE+3~, PAOE+6, ASKSEX+16~
DIRUT	PAOE+3~, PAOE+6, ASKSEX+16~, ASKSEX+20
DK	GMRAOR+1~
DL	GMRAOR+1~
DLAYGO	GMRAOR+1~
DM	GMRAOR+1~
DN	GMRAOR+1~
DOV	GMRAOR+1~
DP	GMRAOR+1~
DQ	GMRAOR+1~
DR	GMRAOR+1~
DT	SCRN+17
DTIME	ASK1, MES1+1
DTOUT	PAOE+3~, PAOE+6, ASKSEX+16~
DUOUT	PAOE+3~, PAOE+6, ASKSEX+16~
FLD	EN~, EN+5, EN+6, EN+7
HDR	EN+4~, EN+17*, EN+19
HDR(3	EN+18, EN+20, EN+21
HDR(4	EN+19, EN+20, EN+21
I	STATSEL+7, STAT+1, STAT+3*, STAT+4!
IEN	EN+4~, EN+6, EN+8, EN+11, EN+14
NODE	EN+4~, EN+5*, EN+7, EN+8, EN+14, EN+17, EN+18, EN+21
RA	EN~, EN+8, EN+11, EN+14, EN+17, EN+18, EN+21
RA(1	EN+8, EN+11, EN+14, EN+17, EN+18, EN+21
RA(2	EN+8, EN+11, EN+14, EN+17, EN+18, EN+21
>> RA0(17	ASKPREG+13
RA7002	SCRN+20~, SCRN+23, SCRN+24, SCRN+25, SCRN+26, SCRN+28
RA72	DPDT+8~, DPDT+13*, DPDT+14
RA72(3	DPDT+14*, DPDT+15
RA751IEN	PRACTO+3~, PRACTO+5*, PRACTO+6
RA751PR	PRACTO+3~, PRACTO+4, PRACTO+5, PRACTO+6, PRACTO+7
RABDT	DPDT+8~, DPDT+9*
RACCESS	SCRN+20~
RACCESS(	SCRN+28
RACIEN	DPDT+8~, DPDT+12*, DPDT+13
RACNI	CMEDIA~, CMEDIA+4, CMEDIA+5, PRSCR~, PRSCR+7, PRSCOM~, PRSCOM+6
RACNIEN	PRCEXA+4~, PRCEXA+5*, PRCEXA+6
RADA	SCRN~
RADA(1	SCRN+23, SCRN+25, SCRN+26
RADA(2	SCRN+23, SCRN+24, SCRN+25, SCRN+26
RADA(3	SCRN+23, SCRN+24, SCRN+25
RADA2	GMRAOR~, GMRAOR+2
RADAYS	PTAGE+4~, PTAGE+8*, PTAGE+10
RADFN	CMEDIA~, CMEDIA+4, CMEDIA+5, PRSCR~, PRSCR+7, PRSCOM~, PRSCOM+6, PRCEXA~, PRCEXA+5, PRACTO~ , PRACTO+5, ASKPREG+13, ASKPREG+19, ASKPREG+24
RADTI	CMEDIA~, CMEDIA+4, CMEDIA+5, PRSCR~, PRSCR+7, PRSCOM~, PRSCOM+6
RADTIEN	PRCEXA+4~, PRCEXA+5*, PRCEXA+6
RADTST	PTAGE~, PTAGE+6*, PTAGE+8
RADUP	PRC+1~*, PRC+2
RAEDT	DPDT+8~, DPDT+9*, DPDT+10
RAERR	ASKPREG+12~
RAFLG	DPDT+8~, DPDT+10, DPDT+15, DPDT+17
RAFRMT	PRSCR~, PRSCR+8, PRSCR+9
RAGE	ASKPREG+12~, ASKPREG+13*, ASKPREG+19, ASKPREG+24
RAGMRAOR	PRC1+3~*
RAI	MES1+3!, DPDT+8~, DPDT+9, DPDT+10, DPDT+11, DPDT+12, DPDT+13, CMEDIA+3~, CMEDIA+4, CMEDIA+5
RAI(0	CMEDIA+5*, CMEDIA+6
RAIENS	PRSCR+6~, PRSCR+7, PRSCR+8, PRSCR+9, PRSCOM+5~, PRSCOM+6, PRSCOM+7, PRSCOM+8
RALVL	SCRN~, SCRN+22, SCRN+26
>> RAMDIV	ASKPREG+19
>> RANO(	STATSEL+7
RAORST	STATSEL+7!
RAORST(	STATSEL+7*, STATSEL+8, STAT+1, STAT+3!
>> RAORSTS	STATSEL+7*
RAOUT	PRSCR+6~, PRSCOM+5~
RAOUT(	PRSCR+9, PRSCOM+8
RAPMSG	PRC1+6*, PRC1+7, PRC1+9!, ASK1+3!
RAPMSG(1	ASK1+3*
RAPMSG(2	ASK1+3*
RAPRC	DPDT~, DPDT+10, DPDT+12
>> RAPREG	PAOE+4, PAOE+7*
RARS	SCRN~, SCRN+17
RAS	CMEDIA+3~, CMEDIA+6, CMEDIA+7
RAST	STATSEL+7!, STAT+1, STAT+2, STAT+3, ASKPREG+12~, ASKPREG+15*, ASKPREG+24
RAST(74	ASKPREG+15
RASTX	STAT+1*, STAT+4!
RAX	ASK+1~, ASK1, ASK1+1, ASK1+2, ASK1+3, MES1+1, MES1+2, MES1+3!
RAXSAVE	PTAGE+4~, PTAGE+5, PTAGE+9, PTSEX+4~, PTSEX+5
RAY	DPDT~, ASKSEX+13, ASKSEX+16~, ASKSEX+20, ASKPREG+12~, ASKPREG+19, ASKPREG+24, ASKPREG+26
RAY(1	DPDT+9, DPDT+11
RAY(2	DPDT+10, DPDT+12, DPDT+13
RAYSAVE	PTAGE+4~, PTAGE+5, PTAGE+9, PTSEX+4~, PTSEX+5
SAVEX	EN+4~, EN+5*, EN+11, EN+23
SUBDD	EN+4~, EN+6*, EN+7, EN+10, EN+12
U	PRC1+10, STATSEL+7, EN+19, EN+21, DPDT+13, DPDT+14, SCRN+17, CMEDIA+5, PTSEX+6, PRCEXA+6 , ASKPREG+19
VA	PTAGE+4~, PTSEX+4~
VADM	PTAGE+4~, PTSEX+4~
VADM(3	PTAGE+8
VADM(5	PTSEX+6
VAERR	PTAGE+4~, PTSEX+4~, ASKPREG+12~
X	PRC, PRC+1, PRC+2, PRC1+4, PRC1+10, ASK1+2!, MES1+3!, STATSEL+7, STAT+4!, S+1 , SSR+1, EN~, EN+5, EN+7, EN+8, EN+11, EN+23, GMRAOR+1~, PTAGE+5, PTAGE+9 , PTSEX+4, PTSEX+5*, PAOE+3~, ASKSEX+16~, ASKPREG+12~
X1	STATSEL+7, STATSEL+8, STAT+4!
X2	STATSEL+7*, STAT+4!
XREF	EN+4~, EN+9, EN+10, EN+12
Y	S+3, S+4, S2+1, S2+2, SSR+3, SSR+4, SSR2+1, SSR2+2, PRRS+2, PSRS+2 , SCRN~, SCRN+17, SCRN+19, SCRN+27, SCRN+28, GMRAOR+1~, PTAGE+5, PTAGE+9, PTSEX+4, PTSEX+5 , PAOE+3~, PAOE+7, ASKSEX+13, ASKSEX+14, ASKSEX+16, ASKSEX+20, ASKPREG+12, ASKPREG+13*, ASKPREG+14, ASKPREG+15
Y(0	STAT, STAT+1

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL8

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 23

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: