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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RAUTL17

Package: Radiology Nuclear Medicine

Routine: RAUTL17


Information

RAUTL17 ;HISC/DAD-RAD/NUC MED COMMON PROCEDURE FILE (#71.3) UTILITIES ;19 Apr 2019 3:32 PM

Source Information

Source file <RAUTL17.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 4 RADD1  RAIPS165  RAMAIN2  RAPRI  

Entry Points

Name Comments DBIA/ICR reference
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
EN1EXIT
EN2(RAIMGTYI,RA71) ; *** Common procedure file error check
; Input: RAIMGTYI = IMAGING TYPE file (#79.2) IEN
; RA71 = PROCEDURE file (#71) IEN (Optional)
; Output: Number_of_Common_Proccedures ^ $S(Duplicate_Sequence#:1,1:0)
EN3(D0) ; *** imaging type of a procedure
; Input: RAD/NUC MED PROCEDURE file (#71) IEN
; Output: IMAGING TYPE file (#79.2) IEN
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)
EN6(RAIMGTYI,RA71) ; *** Common procedure file error messages
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
EN713(RAX) ;is this procedure from file 71 already a common procedure?

External References

Name Field # of Occurrence
EN^DDIOL EN6+19, EN713+5
^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, EN713+5
^RAMIS(71.3 - [#71.3] EN2+7, EN2+9, EN2+16, EN2+17, EN2+22, EN5+6*, EN5+7!, EN713+4

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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 EN6+5~, EN6+6*, DESC+15~*, DESC+21*, DESC+22
RA71 EN2~, EN2+14, EN2+16, EN6~, EN6+6
RA713 EN2+5~, EN2+8*, EN2+9*, EN2+11, EN2+15*, EN2+16*, EN2+17
RA713(0 EN2+17*
RACNT EN2+5~, EN2+6*, EN2+10*, EN2+25, EN6+5~, EN6+6*, EN6+7, EN6+13
RAD0 EN2+5~, 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
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*
RAX EN713~, EN713+4, EN713+5
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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All