Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RADD3

Package: Radiology Nuclear Medicine

Routine: RADD3


Information

RADD3 ;HISC/SWM-Radiology Data Dictionary Utility Routine ;9/11/97 16:23

Source Information

Source file <RADD3.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 5

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
; RA*5*65 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All