Routine: RADD2

Package	Total	Call Graph
VA Fileman	2	EN^DDIOL FILE^DIE
Kernel	1	MES^XPDUTL
Order Entry Results Reporting	1	NOTE^ORX3

Package

Total

Call Graph

VA Fileman

EN^DDIOL FILE^DIE

Kernel

MES^XPDUTL

Order Entry Results Reporting

NOTE^ORX3

Package	Total	Caller Graph
Radiology Nuclear Medicine	7	^RARPT DEFAULT RADIOPHARMACEUTICALS RACTOE4 RACTQE2 RACTTK8 RAMAIN2 ^RAO(75.1
IHS VA Support Files	1	DEFAULT RADIOPHARMACEUTICALS

Package

Total

Caller Graph

Radiology Nuclear Medicine

^RARPT DEFAULT RADIOPHARMACEUTICALS RACTOE4 RACTQE2 RACTTK8 RAMAIN2 ^RAO(75.1

IHS VA Support Files

DEFAULT RADIOPHARMACEUTICALS

Entry Points

Name	Comments	DBIA/ICR reference
USUAL(RADA,RAX)	; To insure that the USUAL DOSE value falls between the ; HIGH ADULT DOSE and the LOW ADULT DOSE. ; Input Variables: ; RADA -> top level/sub-file level IEN's ; RAX -> value input by the user ; Output Variable: $S(1: value is accepted, 0: value not accepted)
EN1(RAX,RAY)	; Input transform for the .01 field (Procedure) for the Rad/Nuc ; Med Common Procedure file i.e, ^RAMIS(71.3 ; Procedure must not have an inactive date before today in file 71 ; Procedure in file 71 must have same imaging type as the one ; selected before editing this record in file 71.3 ; If 'Parent' type procedure, it must have at least 1 descendent ; 'RAX' is the value of the .01 field in ^RAMIS(71.3, ; 'RAY' are ien's of entries in ^RAMIS(71,
RANGE(RADA)	; Determine the range in which the 'USUAL DOSE' must fall ; Input Variables: ; RADA -> top level/sub-file level IEN's ; Output Variable: ; RANGE -> the range in which the 'USUAL DOSE' must fall
CH(RAY,RAX)	; This subroutine will fire off the 'Radiology Request Cancel ; /Hold' notification as defined in the 'OE/RR NOTIFICATIONS' file. ; Only if request is either cancelled or held. Called from the set ; logic of the 'ACHN' xref in ^DD(75.1,5) field definition.
MEDOSE(RAY,RADT)	; Determine if this individual (RAY) is authorized to ; administer medications. Called from ^DD(70.15,4,12.1) ; Input : RAY (pnt to 200) - the individual being checked at the moment ; RADT - Date of the examination ; Output: '1' - user is authorized to administer medications, else '0'
INACOM(RAD0)	; Check inactive date on the Rad/Nuc Med Procedure file (71) ; for the Common Procedure before setting our inactive procedure to ; active. Called from the 'RA COMMON PROCEDURE EDIT' input template. ; Option: Common Procedure Enter/Edit (13^RAMAIN2) ; Input : RAD0-ien of Rad/Nuc Med Common Procedure ; Output: if Common cannot be re-activated, reset the 'Inactive' field ; to 'yes'.
EN2()	; called from ^DD(74,0,"ID","WRITE") ; display long case #'s in the same print set as current record
PRIDXIXK(DA,X)	;This subroutine executes the KILL logic for the 'new style' AD cross-

Name	Field # of Occurrence
EN^DDIOL	USUAL+14
FILE^DIE	INACOM+10, PRIDXIXK+7
NOTE^ORX3	CH+19
MES^XPDUTL	INACOM+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RADPT("AD"	PRIDXIXK+8!
^RAMIS(71 - [#71]	EN1+9, CH+16, INACOM+7, USUAL+8, RANGE+6
^RAMIS(71.3 - [#71.3]	INACOM+7
^RAO(75.1 - [#75.1]	CH+14
^RARPT - [#74]	EN2+5
^VA(200 - [#200]	MEDOSE+6, MEDOSE+7, MEDOSE+8, MEDOSE+10
^XUSEC("ORELSE"	MEDOSE+9
^XUSEC("ORES"	MEDOSE+9

Name	Field # of Occurrence
^("I"	EN1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CH+10~
C	CH+10~
D	CH+10~
D0	CH+10~
DA	CH+10~, PRIDXIXK~, PRIDXIXK+5, PRIDXIXK+6
DA(1	PRIDXIXK+5, PRIDXIXK+6
DA(2	PRIDXIXK+5, PRIDXIXK+6
DC	CH+10~
DDER	CH+10~
DE	CH+10~
DG	CH+10~
DH	CH+10~
DI	CH+10~
DIC	CH+10~
DIE	CH+10~
DIEDA	CH+10~
DIEL	CH+10~
DIFLD	CH+10~
DIP	CH+10~
DIW	CH+10~
DIWT	CH+10~
DK	CH+11~
DL	CH+11~
DM	CH+11~
DN	CH+11~
DP	CH+11~
DQ	CH+11~
DR	CH+11~
DT	EN1+9, INACOM+8
DU	CH+11~
DV	CH+11~
DW	CH+11~
I	CH+11~
J	CH+11~
N	CH+11~
ORBPMSG	CH+11~, CH+17*
ORBXDATA	CH+11~, CH+18*
ORIFN	CH+11~, CH+18*
ORNOTE	CH+11~
ORNOTE(26	CH+18*
ORVP	CH+11~, CH+16*
RA1	EN2+2~, EN2+3, EN2+5
RA2	EN2+2~, EN2+3, EN2+5, EN2+6
RA7108	USUAL+8~, USUAL+9, RANGE+5~, RANGE+6, RANGE+7
RA751	CH+12~, CH+14*, CH+15, CH+16, CH+18
RACNI	PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8
RAD0	INACOM~, INACOM+7, INACOM+10
RADA	USUAL~, USUAL+8, RANGE~, RANGE+6
RADA(1	USUAL+8, RANGE+6
RADFN	CH+12~, CH+15, CH+16, CH+18, PRIDXIXK+4~, PRIDXIXK+5, PRIDXIXK+8
RADT	MEDOSE~, MEDOSE+14
RADTI	PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8
RAFDA	INACOM+9~, PRIDXIXK+4~
RAFDA(	INACOM+10, PRIDXIXK+6
RAH	USUAL+8~, USUAL+9, USUAL+10, USUAL+11, USUAL+13, RANGE+5~, RANGE+7, RANGE+8, RANGE+9
RAIENS	PRIDXIXK+4~, PRIDXIXK+6*
>> RAIMGTYI	EN1+8, EN1+9
RAINA	INACOM+7~*, INACOM+8
RAL	USUAL+8~, USUAL+9, USUAL+10, USUAL+11, USUAL+13, RANGE+5~, RANGE+7, RANGE+8, RANGE+9
RAMSG	INACOM+9~, INACOM+14
RAMSG(1	INACOM+10*
RAMSG(2	INACOM+11*
RAMSG(3	INACOM+12*
RAMSG(4	INACOM+13*
RAMSG(5	INACOM+14*
RAMSG(6	INACOM+14*
RANME	CH+12~
RAOIFN	CH+12~, CH+15*, CH+18
RAOLP	CH+12~
RAOPTN	CH+12~
RAORDS	CH+12~
RAOREA	CH+12~
RAOSTS	CH+12~
RAPARENT	CH+12~
RAPRC	CH+13~, CH+16*, CH+17
RARRY	USUAL+12~, USUAL+14
RARRY(1	USUAL+12, USUAL+13
RAUTH	MEDOSE+10~*, MEDOSE+14
RAX	EN1~, CH~, CH+9, CH+17, USUAL~, USUAL+7, USUAL+11, PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8
RAXIT	CH+13~
RAY	EN1~, EN1+9, CH~, CH+9, CH+14, CH+15, MEDOSE~, MEDOSE+6, MEDOSE+7, MEDOSE+8 , MEDOSE+9, MEDOSE+10
U	EN1+9
X	CH+13~, PRIDXIXK~, PRIDXIXK+5
Y	CH+13~, EN2+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RADD2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: