Routine: RADD1

Package	Total	Call Graph
Radiology Nuclear Medicine	4	($$ACTCODE,$$NAMCODE)^RACPTMSC ($$VALADM,$$VOL)^RADD4 $$EN3^RAUTL17 XSEC^RAUTL20
VA Fileman	2	NOW^%DTC EN^DDIOL
Kernel	1	$$FMADD^XLFDT

Package

Total

Call Graph

Radiology Nuclear Medicine

($$ACTCODE,$$NAMCODE)^RACPTMSC ($$VALADM,$$VOL)^RADD4 $$EN3^RAUTL17 XSEC^RAUTL20

VA Fileman

NOW^%DTC EN^DDIOL

Kernel

$$FMADD^XLFDT

Package	Total	Caller Graph
Radiology Nuclear Medicine	13	RACTEX18 ^RARPT EXAM STATUS TIMES EXAMINATIONS RACTTK17 RACTVR RACTWR RACTWR2 RAEDCN RAEDPT ^RAMIS(71 RAPROD RARTR3

Package

Total

Caller Graph

Radiology Nuclear Medicine

RACTEX18 ^RARPT EXAM STATUS TIMES EXAMINATIONS RACTTK17 RACTVR RACTWR RACTWR2
RAEDCN RAEDPT ^RAMIS(71 RAPROD RARTR3

Entry Points

Name	Comments	DBIA/ICR reference
VOL(RAX)	; Validate the format of the value input for volume. ; RAX must be a number followed by a space then text -or- ; a number followed by text ; Input Variable : 'RAX'- user's input ; Output Variable: null if 'RAX' erroneous, formatted version of 'RAX'
NODEL	; Do not permit deletion of the PRIMARY DIAGNOSTIC CODE (70.03, ; 13), PRIMARY INTERPRETING RESIDENT (70.03,12) or PRIMARY ; INTERPRETING STAFF (70.03,15) if a SECONDARY DIAGNOSTIC CODE ; multiple (70.03,13.1) is associated with the exam record. ; ; P94: WRITE removed; EN^DDIOL added
CPTCHK(RADA)	; Check if the CPT code is inactive nationally. ; 'RADA' assume the value of +Y passed from the input xform, ^DD(71,9,0) ; quit if CPT code is active
SDC2	;
SDC3	;
SDC()	; do not enter primary into secondary diagnostic code field ; called from ^DD(70.14,.01,0) ; do not select inactive diagnostic code 12/23/96
PRCCPT()	; Displays the procedure type and CPT code if applicable. ; This code is called from ^DD(71,0,"ID","WRITE") and rtn RAPROD
VALADM(RAD0,Y,RADT,RAUTH)	;edit validation
PDC()	; do not enter secondary into primary diagnostic code field ; called from ^DD(70.03,13,0) ; do not select inactive diagnostic code 12/23/96
KILL
SCDTC	; status change date/time check ; called from ^DD(70.05,.01 ; if X is a date/time prior to the exam date/time, then set Y=0. ; if X is a over a minute in the future, then set Y=0. ; if X is missing the time portion, then set Y=0.
INDTCHK(RADA)	; Cannot inactivate a procedure if it is a common procedure ; with a valid sequence number. Code resides in ^DD(71,100,0)! ; 'RADA' is the ien of the procedure in file 71. if this procedure is ; a common procedure i.e, $D(^RAMIS(71.3,"B",RADA)) inform the user that ; the sequence number must be deleted. This relies on the "AA" xref in ; the Common Proc. file for the Sequence # fld (#3) 0 node, 4th pce.
SECXREF	; sets/kills 'ARES' & 'ASTF' x-refs for secondary resident/staff rads ; called from ^DD(74,5

Name	Field # of Occurrence
NOW^%DTC	SCDTC+13
EN^DDIOL	SCDTC+6, NODEL+11, INDTCHK+17, CPTCHK+7
$$ACTCODE^RACPTMSC	CPTCHK+4
$$NAMCODE^RACPTMSC	PRCCPT+9
$$VALADM^RADD4	VALADM+12
$$VOL^RADD4	VOL+5
$$EN3^RAUTL17	INDTCHK+9
XSEC^RAUTL20	SECXREF+11
$$FMADD^XLFDT	SCDTC+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	SCDTC+10
^RA(78.3 - [#78.3]	PDC+4, SDC+3
^RA(79.2 - [#79.2]	PRCCPT+6
^RADPT - [#70]	SECXREF+4, SECXREF+6, SECXREF+7, SECXREF+9, SCDTC+9, PDC+5, SDC+5, SDC+6, SDC2+2, SDC2+3 , SDC3+3, SDC3+4, NODEL+10
^RAMIS(71.3 - [#71.3]	INDTCHK+6, INDTCHK+7, INDTCHK+9
^RARPT - [#74]	SECXREF+3, SECXREF+10*!

Name	Line Occurrences
KILL	SECXREF+5, SECXREF+6, SECXREF+7
SDC2	SDC+4, SDC+5
SDC3	SDC2+1

Name	Field # of Occurrence
^(	SECXREF+9
^("I"	PRCCPT+2
^(0	SECXREF+3, PRCCPT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SCDTC+15
>> DA	SECXREF+3, SECXREF+10, PDC+5, SDC2+2, SDC2+3, SDC3+3, SDC3+4, NODEL+10
>> DA(1	SCDTC+9, PDC+5, SDC+5, SDC+6, SDC2+2, SDC2+3, SDC3+3, SDC3+4, NODEL+10
>> DA(2	SCDTC+9, SCDTC+11, PDC+5, SDC+5, SDC+6, SDC2+1, SDC2+2, SDC2+3, SDC3+2*, SDC3+3 , SDC3+4, NODEL+10
>> DA(3	SCDTC+9, SDC+4, SDC+5, SDC+6
DT	PRCCPT+3, PRCCPT+9, CPTCHK+4
RA	PRCCPT+2~, PRCCPT+3*, PRCCPT+8, INDTCHK+6~
RA("I"	PRCCPT+2*, PRCCPT+3
RA(0	PRCCPT+2, PRCCPT+4, PRCCPT+5, INDTCHK+7, INDTCHK+8
RA(10	PRCCPT+5, PRCCPT+6, PRCCPT+7*, PRCCPT+8
RA(12	PRCCPT+5*, PRCCPT+6
RA(4	INDTCHK+8*, INDTCHK+9
RA(6	PRCCPT+4*, PRCCPT+8
RA(9	PRCCPT+4*, PRCCPT+9
RACNIZ	SECXREF+4*, SECXREF+5, SECXREF+6, SECXREF+7, SECXREF+9, KILL!
RAD0	VALADM~
RADA	INDTCHK~, INDTCHK+6, INDTCHK+9, CPTCHK~, CPTCHK+4
>> RADFN	SDC3+1, SDC3+2
RADFNZ	SECXREF+3, SECXREF+4, SECXREF+6, SECXREF+7, SECXREF+9, KILL!
RADT	VALADM~
RADTHOLD	SCDTC+12*, SCDTC+16, SCDTC+17, SCDTC+18!
RADTIZ	SECXREF+4*, SECXREF+6, SECXREF+7, SECXREF+9, KILL!
RAIEN	INDTCHK+6~*, INDTCHK+7, INDTCHK+9
>> RAKILL	SECXREF+10
RAMULT	NODEL+10, NODEL+12!
RAORDNUM	SCDTC+7~, SCDTC+10*, SCDTC+11
RAPLUS1	SCDTC+7~, SCDTC+15*, SCDTC+16
>> RARAD	SECXREF+9*, SECXREF+10
RASECCHK	NODEL+10*, NODEL+11, NODEL+12!
RASECIEN	SECXREF+8, SECXREF+9, KILL!
RASECOND	SECXREF+7, SECXREF+9, KILL!
>> RASET	SECXREF+10
RASTATUS	SCDTC+7~, SCDTC+9*, SCDTC+10
RATXT	PRCCPT+2~, PRCCPT+8, PRCCPT+9*, PRCCPT+10, INDTCHK+10~, INDTCHK+17, CPTCHK+5~, CPTCHK+7
RATXT(1	INDTCHK+10, CPTCHK+5
RATXT(2	INDTCHK+11, CPTCHK+6
RATXT(3	INDTCHK+12, CPTCHK+7
RATXT(4	INDTCHK+13*
RATXT(5	INDTCHK+14*
RATXT(6	INDTCHK+15*
RATXT(7	INDTCHK+16*
RAUTH	VALADM~
RAX	VOL~
>> RAXREF	SECXREF+10
U	SCDTC+9, SCDTC+10, PDC+4, SDC+3, PRCCPT+4, PRCCPT+5, PRCCPT+6
X	SCDTC+5, SCDTC+6, SCDTC+11, SCDTC+12, SCDTC+17*, SDC+4, SDC2+1, INDTCHK+17!, CPTCHK+8!
Y	SCDTC+6, SCDTC+11, SCDTC+16*, PDC+4, PDC+5, SDC+3, SDC+6, SDC2+3, SDC3+4, VALADM~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RADD1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: