Routine: RADD3

Package	Total	Call Graph
VA Fileman	3	EN^DDIOL (,FILE,UPDATE)^DIE $$GET1^DIQ
Radiology Nuclear Medicine	2	$$EN1^RAPSAPI $$MIDNGHT^RAUTL5
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	^RA(79.1 DESCENDENTS ^RAMIS(71.3 RASTED
IHS VA Support Files	1	DESCENDENTS

Entry Points

Name	Comments	DBIA/ICR reference
SCRLOT()	;screen lot # from file 70.2
X7005(RADFN,RADTI,RACNI,RAMDV,RAQED,RASTI,RAWHO)	;update the EXAM ; STATUS TIMES (70.05) multiple. Called from RASTED (will be ; called from RAUTL1 in the future)
GETID(Y)	; Pass back a string of data which will be used as an ; identifier when lookups are done on the Imaging Locations (79.1) file ; Input : Y -> ien of entry in 79.1 ; Output: string of data relevent to the entry in file 79.1 ; Location I-type_"-"_Station # of Rad/Nuc Med Division
DELDESC(RAIEN)	; This sub-routine will determine if descendents can be ; deleted from parent procedures. If only one descendent exists, and ; the parent is on the common procedure list do not allow the deletion ; of the descendent. ; Input : RAIEN (the DA array for the Rad/Nuc Med Procedure file.) ; Output: 0 if ok to delete, 1 if not ok to delete ; Called from: ^DD(71.05,.01,"DEL",1,0) node
REACMMN(RADA)	; Check to see if a commom procedure can be re-activated. ; This sub-routine checks if this common is a parent w/o descendents. ; If true, this common procedure cannot be re-activated. ; Input : RADA - ien of the entry in 71.3 ; Output: 0 if ok to delete, 1 if not ok to delete ; Called from ^DD(71.3,4,"DEL",1,0)
A7007(RADFN,RADTI,RACNI,RAWHO,RATC)	; update the ACTIVITY LOG (70.07) ; multiple. Called from RASTED (will be called from RAUTL1 in the ; future)
U70033(RA18DFN,RA18DTI,RA18CNI,RA18ST)	;
PAIR	; ; called from file 71.9's field SOURCE ; SOURCE may be added normally via the "RA NM EDIT LOT" option, ; or it may be added via one of the 3 exam edits when the LOT ; prompt appears for the case's Radiopharm. This LOT prompt ; allows adding new LOT on-the-fly, which causes the LOT's ; associated SOURCE, EXPIRATION DATE, KIT # to be prompted ; and the current case's Radiopharm to be stuffed into the new LOT's ; Radiopharm field. The SOURCE field invokes this subroutine to: ; re-set DR string to stuff matching radiopharm ; not allow spacebar return for radioph ; RA565 removed the Fileman Identifier for file 79.1's RADIOPHARM ; so by default, the DR will just be "2;3;4;" without the "5;".

External References

Name	Field # of Occurrence
EN^DDIOL	DELDESC+17, REACMMN+10
^DIE	X7005+19
FILE^DIE	X7005+23, A7007+19, U70033+4
UPDATE^DIE	X7005+15, A7007+13
$$GET1^DIQ	GETID+7
$$EN1^RAPSAPI	PAIR+16
$$MIDNGHT^RAUTL5	X7005+14
$$NOW^XLFDT	X7005+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^RA(79.2 - [#79.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	PAIR+17!
^RA(79.1 - [#79.1]	GETID+5, GETID+6
^RADPTN - [#70.2]	SCRLOT+15
^RAMIS(71 - [#71]	DELDESC+10, REACMMN+7
^RAMIS(71.3 - [#71.3]	DELDESC+8, DELDESC+9, REACMMN+6
^RAMIS(71.9 - [#71.9]	PAIR+23, SCRLOT+15

Naked Globals

Name	Field # of Occurrence
^("NUC"	SCRLOT+15
^(0	SCRLOT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	X7005+11~, A7007+10~, U70033+1~
D	PAIR+22, PAIR+23, PAIR+24, X7005+11~, A7007+10~, U70033+1~
D0	X7005+11~, A7007+10~, U70033+1~
DA	PAIR+22, PAIR+23, SCRLOT+12, SCRLOT+15, X7005+11~, X7005+19*, A7007+10~, U70033+1~
DA(1	SCRLOT+12, SCRLOT+15
DIC	X7005+11~, A7007+10~, U70033+1~
DIE	PAIR+17, X7005+11~, X7005+18*, A7007+10~, U70033+1~
DQ	X7005+11~, A7007+10~, U70033+1~
DR	PAIR+17, X7005+11~, X7005+19, A7007+10~, U70033+1~
DUZ	PAIR+17
I	DELDESC+7~, DELDESC+10
RA0A	SCRLOT+13~, SCRLOT+15*, SCRLOT+16
RA0E	SCRLOT+13~, SCRLOT+15*, SCRLOT+16
RA0RAD	SCRLOT+13~, SCRLOT+15*, SCRLOT+16
RA1	PAIR+14~, PAIR+16, PAIR+17, PAIR+21, PAIR+23*
RA18CNI	U70033~, U70033+2
RA18DFN	U70033~, U70033+2
RA18DTI	U70033~, U70033+2
RA18FDA	U70033+1~
RA18FDA(	U70033+3*
RA18IENS	U70033+1~, U70033+2*, U70033+3
RA18ST	U70033~, U70033+3
RA2	PAIR+14~, PAIR+21, PAIR+23, PAIR+24, PAIR+25
RA3	PAIR+14~, PAIR+21*
RA713	DELDESC+7~, DELDESC+8, DELDESC+9, DELDESC+11, REACMMN+6~*, REACMMN+7
RA713(0	DELDESC+9*, DELDESC+11
RA791	GETID+5~
RA791("DIV"	GETID+6*, GETID+7
RA791(0	GETID+5*, GETID+7
RACNI	X7005~, X7005+13, X7005+18, X7005+20, A7007~, A7007+11, A7007+15
RADA	REACMMN~, REACMMN+6
RADFN	X7005~, X7005+13, X7005+18, X7005+20, A7007~, A7007+11, A7007+15
RADTI	X7005~, X7005+13, X7005+18, X7005+20, A7007~, A7007+11, A7007+15
RAFDA	X7005+11~, X7005+16!, A7007+10~, A7007+14!
RAFDA(	X7005+14, X7005+21, X7005+22, A7007+12, A7007+16, A7007+17, A7007+18*
RAIEN	DELDESC~, X7005+11~, A7007+10~
RAIEN(1	DELDESC+8, DELDESC+10, X7005+16, X7005+19, X7005+20, A7007+14, A7007+15
RAIENS	X7005+11~, X7005+13, X7005+14, X7005+16!, X7005+20, X7005+21, X7005+22, A7007+10~, A7007+11, A7007+12 , A7007+14!, A7007+15, A7007+16, A7007+17, A7007+18
RALOTEXP	SCRLOT+13~, SCRLOT+15*, SCRLOT+16
RALOTRAD	SCRLOT+13~, SCRLOT+15*, SCRLOT+16
RAMDV	X7005~, X7005+17
>> RAOPT("EDITCN"	PAIR+15
>> RAOPT("EDITPT"	PAIR+15
>> RAOPT("STATRACK"	PAIR+15
>> RAPSDRUG	PAIR+16, PAIR+17
RAQED	X7005~, X7005+12*, X7005+17
RARETURN	SCRLOT+13~, SCRLOT+14, SCRLOT+16, SCRLOT+17
RASTI	X7005~, X7005+21
RATC	A7007~, A7007+18
RATTL	DELDESC+7~, DELDESC+10, DELDESC+11
RATXT	DELDESC+14~, DELDESC+17, REACMMN+8~, REACMMN+10
RATXT(1	DELDESC+14, REACMMN+8
RATXT(2	DELDESC+15, REACMMN+9
RATXT(3	DELDESC+16, REACMMN+10
RATXT(4	DELDESC+17*
RATXT(5	DELDESC+17*
RAWHO	X7005~, X7005+22, A7007~, A7007+17
U	PAIR+23, PAIR+24, SCRLOT+15
X	PAIR+25!, X7005+11~, A7007+10~, U70033+1~
Y	PAIR+23, PAIR+24, SCRLOT+12, SCRLOT+15, GETID~, GETID+5, GETID+6, X7005+11~, A7007+10~, U70033+1~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RADD3

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: