Routine: RAUTL17

Information

RAUTL17 ;HISC/DAD-RAD/NUC MED COMMON PROCEDURE FILE (#71.3) UTILITIES ;6/14/96 11:34

Source Information

Source file <RAUTL17.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	3	EN^DDIOL ^DIC $$GET1^DIQ

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RADD1 RAPRI ^RAMIS(71.3 RAMAIN2

Entry Points

Name	Comments	DBIA/ICR reference
EN2(RAIMGTYI,RAPROCD0)	; *** Common procedure file error check ; Input: IMAGING TYPE file (#79.2) IEN (RAIMGTYI) ; PROCEDURE file (#71) IEN (RAPROCD0) (Optional) ; Output: Number_of_Common_Proccedures ^ $S(Duplicate_Sequence#:1,1:0)
EN1EXIT
EN5(RAD0,RAIMGTYI,RASEQ,SK)	; *** Update ^RAMIS(71.3,"AA", xref ; Input: RAD0 = RAD/NUC MED COMMON PROCEDURE file (#71.3) IEN ; RAPRC = PROCEDURE file (#71) IEN ; RASEQ = Sequence number ; SK = Set/Kill flag: $S(SK="S":Set_xref,SK="K":Kill_xref)
EN1	; *** Get an imaging type ; Input: None ; Output: The variable 'Y' will be one of the following ; -1 = No imaging type selected (up-arrow, time-out, etc.) ; 0 = No active imaging types found ; IEN = IMAGING TYPE file (#79.2) IEN
EN3(D0)	; *** imaging type of a procedure ; Input: RAD/NUC MED PROCEDURE file (#71) IEN ; Output: IMAGING TYPE file (#79.2) IEN
DESC(RAD0,RAY)	; Detemine if a procedure qualifies as a descendent for this ; parent procedure. Descendent must be either a detailed or series ; type procedure, must be of same imaging type of the parent, and must ; not be inactive. Called from ^DD(71.05,.01,0) ; 'RAD0' ien of parent procedure in file 71 ; 'RAY' ien of pointed to procedure in file 71 ; Returns: 'RA' i.e, 0:invalid procedure, 1:valid procedure ; RAPARNT: zero node of parent procedure ; RAPARNT(12): i-type of parent procedure ; RADESC : zero node of descendent procedure ; RADESC("I"): inactivation date (if any) of descendent ; RADESC(6) : procedure type of descendent ; RADESC(12) : i-type of descendent procedure
EN6(RAIMGTYI,RAPROCD0)	; *** Common procedure file error messages

External References

Name	Field # of Occurrence
EN^DDIOL	EN6+19
^DIC	EN1+30
$$GET1^DIQ	EN1+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No 'active' imaging types were found. For an imaging" Line Location: EN1+18
Function Call: WRITE	Prompt: !?5,"type to be active it must be assigned to at least one" Line Location: EN1+19
Function Call: WRITE	Prompt: !?5,"imaging location and at least one procedure." Line Location: EN1+20
Function Call: WRITE	Prompt: !,"Select one of the following imaging types:" Line Location: EN1+25
Function Call: WRITE	Prompt: !?3,$$GET1^DIQ(79.2,RAI_",",.01) Line Location: EN1+26
Function Call: WRITE	Prompt: ! Line Location: EN1+30
Routine Call	DIC Line Location: EN1+30

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RA(79.2 - [#79.2]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.1 - [#79.1]	EN1+11
^RA(79.2 - [#79.2]	EN1+10
^RAMIS(71 - [#71]	EN1+11, EN3+3, DESC+14, DESC+16, DESC+17, DESC+19
^RAMIS(71.3 - [#71.3]	EN2+7, EN2+9, EN2+16, EN2+17, EN2+22, EN5+6*, EN5+7!

Label References

Name	Line Occurrences
$$EN2	EN6+6
EN1EXIT	EN1+17, EN1+23

Local Variables

Name	Field # of Occurrence
D0	EN3~, EN3+3
DIC	EN1+6~, EN1+28!*
DIC("A"	EN1+28*
DIC("S"	EN1+29*
DIC(0	EN1+28*
DT	DESC+20
RA	EN2+5~, EN2+17, EN6+5~, EN6+6, DESC+15~, DESC+21, DESC+22
RACNT	EN2+5~, EN2+6, EN2+10, EN2+25, EN6+5~, EN6+6*, EN6+7, EN6+13
RAD0	EN2+5~, EN2+8, EN2+9, EN2+11, EN2+15, EN2+16, EN2+17, EN5~, EN5+6, EN5+7 , DESC~, DESC+13, DESC+14, DESC+16
RADESC	DESC+15~, DESC+17*, DESC+18
RADESC("I"	DESC+19*, DESC+20
RADESC(12	DESC+18*, DESC+21
RADESC(6	DESC+17*, DESC+21
RADUP	EN2+5~, EN2+6, EN2+10, EN2+14, EN2+21, EN2+22, EN2+25, EN6+5~, EN6+6, EN6+7 , EN6+14
RAI	EN1+6~, EN1+9, EN1+26, DESC+15~, DESC+20*, DESC+21
RAIMGTYI	EN1+6~, EN1+9, EN1+10, EN1+11, EN1+12, EN1+15*, EN1+17, EN1+23, EN2~, EN2+7 , EN2+9, EN2+22, EN5~, EN5+5, EN5+6, EN5+7, EN6~, EN6+6
RAIMGTYI(	EN1+12*, EN1+23, EN1+26
RAIMGTYI(0	EN1+15
RAPARNT	DESC+15~, DESC+16*
RAPARNT(12	DESC+16*, DESC+21
RAPROCD0	EN2~, EN2+14, EN2+16, EN6~, EN6+6
RASEQ	EN2+5~, EN2+6, EN2+7, EN2+9, EN2+10, EN2+11, EN2+15!, EN2+17, EN2+18, EN2+20 , EN2+21*, EN2+22, EN5~, EN5+5, EN5+6, EN5+7
RASEQ(	EN2+10, EN2+11, EN2+18, EN2+21
RATXT	EN6+8~, EN6+19
RATXT(1	EN6+9*
RATXT(10	EN6+13*
RATXT(2	EN6+10*
RATXT(20	EN6+14*
RATXT(3	EN6+11*
RATXT(30	EN6+15*
RATXT(31	EN6+16*
RATXT(32	EN6+17*
RATXT(33	EN6+18*
RATXT(4	EN6+12*
RAY	DESC~, DESC+13, DESC+14, DESC+17, DESC+19
SK	EN5~, EN5+6, EN5+7
U	EN2+11, EN2+17, EN2+25, EN3+3, EN6+6, DESC+16, DESC+17, DESC+18, DESC+21
X	EN1+6~, EN6+7!
>> Y	EN1+17, EN1+23, EN1+30*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL17

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed