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 |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: RAUTL12

Package: Radiology Nuclear Medicine

Routine: RAUTL12


Information

RAUTL12 ;HISC/CAH,FPT,GJC-Utility Routine ; Oct 18, 2019@10:38:15

Source Information

Source file <RAUTL12.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Radiology Nuclear Medicine 2 EN1^RASELCT  PROCMSG^RAUTL5  
Kernel 1 $$NOW^XLFDT  
Registration 1 INP^VADPT  
VA FileMan 1 ^DIR  

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: 25

Package Total Caller Graph
Radiology Nuclear Medicine 25 RACNLU  RAEDCN  RAEDPT  RAFLM1  RAHLO  RALWKL3  RAMAINP  RAMAINP1  
RAMIS  RAORD1  RAPERR  RAPRC  RAPSET  RAPTLU  RART  RARTE  
RARTE1  RARTE4  RARTE5  RARTR0  RARTRPV  RARTRPV1  RASTED  RASYS  
RAWKL1  

Entry Points

Name Comments DBIA/ICR reference
IMGTY(X,Y,Z) ; Determines the Imaging Type
; 'X' -> either 'e', 'l', or 'p'
; 'e' means we determine the Imaging Type from the 'Registered
; Exams' multiple in Rad/Nuc Med Patient file (70)
; 'l' means that we determine the Imaging Type from data in the
; Imaging Locations file (79.1)
; 'p' means that we determine the Imaging Type from data in the
; Rad/Nuc Med Procedures file (71)
LOCK(X,Y) ; Lock the data global
; 'X' is the global root
; 'Y' is the record number
; KLM/163 - remove setting of RADUZ and ^TMP("RAD LOCS"
UNLOCK(X,Y) ; Unlock the data global
EXTRA(RAQI) ;Input is RAQI (Modifier)
DESDT(RAPRI) ; Obtain 'Date Desired (NOT appt date)' by DIR call.
; Input: IEN of procedure
; The 'Date Desired' is passed back in internal format.
; 75.1 -> Rad Orders File Fld 21 -> Date desired
PTLOC() ; Current patient location. Used for entry: 'CURRENT PATIENT
; LOCATION' in the Label Print Fields file. (78.7)
; 'X' is the patient's DFN. DFN must be a positive integer.
IMG() ; Select one/many/all imaging types. This code will be used for ALL
; the options under the Procedure File Listings option as exported by
; Rad/Nuc Med version 5. I-Types are not screened.
; Passes back '1' if I-Type(s) are selected, '0' if nothing selected.
LOC(RAX) ; Select one/many/all imaging locations. L-Types are not
; screened. Passes back '1' if L-Type(s) are selected, '0' if nothing
; selected. Used for the option: 'Location Parameter List' (4^RASYS)

External References

Name Field # of Occurrence
^DIR DESDT+10
EN1^RASELCT IMG+7, LOC+7
PROCMSG^RAUTL5 DESDT+5
INP^VADPT PTLOC+9
$$NOW^XLFDT PTLOC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"This record is being edited by another user."
  • Line Location: LOCK+9
Function Call: WRITE
  • Prompt: !?5,"Try again later!",$C(7)
  • Line Location: LOCK+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: IMG+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOC+7
Routine Call
  • DIR
  • Line Location:
    • DESDT+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.1 - [#79.1] IMGTY+19
^RA(79.2 - [#79.2] IMGTY+16, IMGTY+20, IMGTY+24
^RADPT - [#70] IMGTY+15, PTLOC+7, PTLOC+16
^RAMIS(71 - [#71] IMGTY+23
^RAMIS(71.2 - [#71.2] EXTRA+3
^RAO(75.1 - [#75.1] PTLOC+17
^SC - [#44] PTLOC+17
^TMP($J IMG+8, LOC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PTLOC+3~
%H PTLOC+3~
%I PTLOC+3~
A IMGTY+13~, IMGTY+15*, IMGTY+19*, IMGTY+23*, PTLOC+3~, PTLOC+17*
B IMGTY+13~, IMGTY+15*, IMGTY+16, IMGTY+19*, IMGTY+20, IMGTY+23*, IMGTY+24, PTLOC+3~, PTLOC+17*, PTLOC+18
, PTLOC+19
C PTLOC+3~, PTLOC+17*, PTLOC+18
DFN PTLOC+3~, PTLOC+7*, PTLOC+8
DIR DESDT+4~
DIR("?" DESDT+7*, DESDT+8*, DESDT+9*
DIR(0 DESDT+10*
DIROUT DESDT+4~
DIRUT DESDT+4~
DTOUT DESDT+4~, DESDT+11
DUOUT DESDT+4~, DESDT+11
>> ORL DESDT+5
>> ORNP DESDT+5
>> ORVP DESDT+5
>> RABILAT EXTRA+3*
>> RACNI PTLOC+16
>> RADFN PTLOC+7, PTLOC+16
RADIC IMG+4~, IMG+5*, IMG+7, LOC+3~, LOC+4*, LOC+7
RADIC("A" IMG+6*, LOC+5*
RADIC("B" IMG+6*, LOC+5*
RADIC("S" LOC+6*
RADIC(0 IMG+5*, LOC+4*
>> RADTI PTLOC+16
RALCKFLG LOCK+4~, LOCK+6*, LOCK+8*, LOCK+15
>> RAOR EXTRA+3*
>> RAPKG DESDT+5
>> RAPORT EXTRA+3*
RAPRI DESDT~, DESDT+5
RAQI EXTRA~, EXTRA+3*
RAQUIT IMG+4~, LOC+3~
RAUTIL IMG+4~, IMG+7*, LOC+3~, LOC+7*
RAX LOC~, LOC+6
RAXYZ IMGTY+13~, IMGTY+16*, IMGTY+20*, IMGTY+24*, IMGTY+26
U IMGTY+15, IMGTY+16, IMGTY+19, IMGTY+20, IMGTY+23, IMGTY+24, EXTRA+3
VAERR PTLOC+3~
VAIN PTLOC+3~
VAIN(4 PTLOC+10, PTLOC+11
X IMGTY~, IMGTY+14, IMGTY+18, IMGTY+22, LOCK~, LOCK+6, UNLOCK~, UNLOCK+3, DESDT+4~, PTLOC+3~
, PTLOC+16*, PTLOC+17, IMG+4~, LOC+3~
XY LOCK+4~, LOCK+6*, LOCK+7, UNLOCK+2~, UNLOCK+3*
Y IMGTY~, IMGTY+15, IMGTY+19, IMGTY+23, LOCK~, LOCK+6, UNLOCK~, UNLOCK+3, DESDT+4~, DESDT+6
, DESDT+11*, DESDT+13, PTLOC+3~, PTLOC+4*, PTLOC+10, PTLOC+11*, IMG+4~, LOC+3~
Y1 PTLOC+3~, PTLOC+4*, PTLOC+5
Y2 PTLOC+3~, PTLOC+4*, PTLOC+6
Y3 PTLOC+3~, PTLOC+5*, PTLOC+7
Y4 PTLOC+3~, PTLOC+6*, PTLOC+7
Y5 PTLOC+3~, PTLOC+7*, PTLOC+8, PTLOC+11, PTLOC+18
Z IMGTY~, IMGTY+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All