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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RADD1

Package: Radiology Nuclear Medicine

Routine: RADD1


Information

RADD1 ;HISC/FPT-Radiology Utility Routine ;6/2/98 16:17

Source Information

Source file <RADD1.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Radiology Nuclear Medicine 13 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

External References

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*!

Label References

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

Naked Globals

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All