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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAUTL8

Package: Radiology Nuclear Medicine

Routine: RAUTL8


Information

RAUTL8 ;HISC/CAH-Utility routines ;14 Mar 2019 4:11 PM

Source Information

Source file <RAUTL8.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 EN^DDIOL  $$EXTERNAL^DILFD  ($$GET1,GETS)^DIQ  ^DIR  
Radiology Nuclear Medicine 3 CONTRAST^RAUTL2  VARACC^RAUTL6  ($$DPDT,$$PTAGE,$$PTSEX)^RAUTL8  
Kernel 2 ($$DT,$$FMDIFF)^XLFDT  $$UP^XLFSTR  
Adverse Reaction Tracking 1 $$ORCHK^GMRAOR  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Radiology Nuclear Medicine 19 RACMP1  RACTRG5  RAMAG03C  RAORD1A  RAORD3  RAORD6  RAPROD  RAREG2  
RARIC1  RART1  RART3  RARTE  RARTE6  RARTR  RARTR0  RARTR3  
RASTED  RASTREQ  RAUTL8  

Entry Points

Name Comments DBIA/ICR reference
PRC
PRC1 ; Check for C.M. reaction on this patient
; +X is the IEN of the Rad/Nuc Med Procedure in file 71
; RA*5*72 - Changed next line to preserve variables
ASK ; Prompt user for yes/no response
ASK1
MES1 ; display procedure acceptance message
STATSEL ;Select one or more order statuses
STAT
S() ; do not enter primary OR SAME SEC in secondary interpreting resident
S2
SSR() ; do not enter primary OR SAME SEC in secondary interpreting staff
SSR2
PRRS() ; do not enter secondary into primary interpreting resident screen
; called from input transform ^DD(70.03,12,0)
PSRS() ; do not enter secondary into primary interpreting staff screen
; called from input transform ^DD(70.03,15,0)
EN(X,FLD,RA) ;Input transform screen for Primary Staff, Primary Res
DPDT(RAPRC,RAY) ; Check for registration of duplicate procedures on the same
; date/time. Called from PRC above.
; INPUT VARIABLES
; 'RAPRC' --> IEN of the procedure (71)
; 'RAY' --> DA array i.e, DA, DA(1), & DA(2)
; OUTPUT VARIABLES
; 'RAFLG' --> RAFLG=1 procedure registered for this date/time
; --> RAFLG=0 initial registration for procedure@date/time
SCRN(RADA,RARS,Y,RALVL) ; check if the primary or secondary int'ng staff
; or resident has access to a location or locations which have
; an imaging type which match the imaging type of the examination.
; This screen will also check the classification of the individual to
; ensure that they are active and valid for the field being edited.
CMEDIA(RADFN,RADTI,RACNI) ;return the CM used with an exam
GMRAOR(RADA2) ;look for a contrast media reaction
PTAGE(DFN,RADTST) ;return pt age, added by p#99
PTSEX(DFN) ;return pt sex, added by p#99
PRSCR(RADFN,RADTI,RACNI,RAFRMT) ;return pregnancy screen
PRSCOM(RADFN,RADTI,RACNI) ;return pregnancy screen comment
PRCEXA(RADFN) ;return a previous case exam
PRACTO(RADFN) ;returns previous active order IEN of file #75.1 or null if no previous order
PAOE() ;Entry point to enter Pregnancy field of file 75.1. This label is being called from
ASKSEX() ;RA*5.0*99 - Determine the sex of the patient by asking the user.
ASKPREG() ;RA*5.0*99 - Evaluate the conditions to present the PREGNANCY

External References

Name Field # of Occurrence
EN^DDIOL PRC1+7, PRC1+8, ASK+1, ASK1+3
$$EXTERNAL^DILFD CMEDIA+6
$$GET1^DIQ PRACTO+6
GETS^DIQ PRSCR+8, PRSCOM+7
^DIR STAT, PAOE+5, ASKSEX+13
$$ORCHK^GMRAOR GMRAOR+2
CONTRAST^RAUTL2 PRC1+4
VARACC^RAUTL6 SCRN+27
$$DPDT^RAUTL8 PRC+1
$$PTAGE^RAUTL8 ASKPREG+25
$$PTSEX^RAUTL8 ASKPREG+26
DEM^VADPT PTAGE+7, PTSEX+4
$$DT^XLFDT PTAGE+6
$$FMDIFF^XLFDT PTAGE+8
$$UP^XLFSTR MES1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select statuses to include on report.",!
  • Line Location: STATSEL+8
Function Call: WRITE
  • Prompt: !?5,$J(X1,2,0)_" "_RAORST(X1)
  • Line Location: STATSEL+8
Function Call: WRITE
  • Prompt: !," ?? Sorry, invalid status selection. Please try again.",!
  • Line Location: STAT+2
Routine Call
  • DIR
  • Line Location:
    • STAT
    • PAOE+5
    • ASKSEX+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GETS^DIQ
70.3225 EXTERNAL^DILFD
^RAO(75.1 - [#75.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN+10, EN+12
^DD(75.1 STATSEL+7
^RA(72 - [#72] DPDT+14
^RA(79 - [#79] PRC1+6
^RADPT - [#70] PRCPRC1+6, S+2, S+3, S+4, S2S2+1, S2+2, SSR+2, SSR+3
, SSR+4, SSR2SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+8, EN+14!, EN+17, EN+18
, EN+21*, DPDT+10, DPDT+12, DPDT+13, SCRN+23, SCRN+24, SCRN+25, SCRN+26, CMEDIA+4, CMEDIA+5
, PRCEXA+5
^RAMIS(71 - [#71] PRC1+10
^RAO(75.1 - [#75.1] PRACTO+5
^VA(200 - [#200] SCRN+17
^XUSEC("RA ALLOC" SCRN+19

Label References

Name Line Occurrences
$$GMRAOR PRC1+3
ASK PRC+2
ASK1 ASK1+3
MES1 PRC1+10, MES1+4
PRC1 PRC
S2 S+1, S+2
SSR2 SSR+1, SSR+2
STAT STAT+2

Naked Globals

Name Field # of Occurrence
^("RA" SCRN+17
^(2 EN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PTAGE+4~, PTSEX+4~, ASKPREG+24~
D GMRAOR+1~
D0 EN+11*, GMRAOR+1~
D1 EN+11*, GMRAOR+1~
D2 EN+11*, GMRAOR+1~
D3 EN+11*, GMRAOR+1~
DA PRC+1, S2S2+1, S2+2, SSR2SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+4~
, EN+11*, GMRAOR+1~
DA(1 PRC1+6, S+2, S+3, S+4, S2S2+1, S2+2, SSR+2, SSR+3, SSR+4
SSR2SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+11*
DA(2 PRCPRC1+3, PRC1+6, S+2, S+3, S+4, S2S2+1, S2+2, SSR+2
, SSR+3, SSR+4, SSR2SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+11*
DA(3 S+1, S+2, S+3, S+4, SSR+1, SSR+2, SSR+3, SSR+4, EN+11*
DC GMRAOR+1~
DD GMRAOR+1~
DEL EN+4~, EN+6*, EN+14*, EN+16, EN+19
DFN GMRAOR+1~, PTAGE~, PTSEX~
DG GMRAOR+1~
DH GMRAOR+1~
DI GMRAOR+1~
DIC GMRAOR+1~
DIE GMRAOR+1~
DIEDA GMRAOR+1~
DIEL GMRAOR+1~
DIERR ASKPREG+24~
DIETMP GMRAOR+1~
DIEXREF GMRAOR+1~
DIFLD GMRAOR+1~
DIIENS GMRAOR+1~
DIOV GMRAOR+1~
DIP GMRAOR+1~
DIR STAT!, PAOE+3~, ASKSEX+10~
DIR("?" ASKSEX+12*
DIR("A" PAOE+5*, ASKSEX+11*
DIR("B" PAOE+4*, ASKSEX+10*
DIR(0 STAT*, PAOE+3*, ASKSEX+10*
DIROUT PAOE+3~, PAOE+6, ASKSEX+10~
DIRUT PAOE+3~, PAOE+6, ASKSEX+10~, ASKSEX+14
DK GMRAOR+1~
DL GMRAOR+1~
DLAYGO GMRAOR+1~
DM GMRAOR+1~
DN GMRAOR+1~
DOV GMRAOR+1~
DP GMRAOR+1~
DQ GMRAOR+1~
DR GMRAOR+1~
DT SCRN+17
DTIME ASK1MES1+1
DTOUT PAOE+3~, PAOE+6, ASKSEX+10~
DUOUT PAOE+3~, PAOE+6, ASKSEX+10~
FLD EN~, EN+5, EN+6, EN+7
HDR EN+4~, EN+17*, EN+19
HDR(3 EN+18*, EN+20*, EN+21
HDR(4 EN+19*, EN+20*, EN+21
I STATSEL+7*, STAT+1*, STAT+3*, STAT+4!
IEN EN+4~, EN+6*, EN+8*, EN+11, EN+14
NODE EN+4~, EN+5*, EN+7, EN+8, EN+14, EN+17, EN+18, EN+21
RA EN~, EN+8, EN+11, EN+14, EN+17, EN+18, EN+21
RA(1 EN+8, EN+11, EN+14, EN+17, EN+18, EN+21
RA(2 EN+8, EN+11, EN+14, EN+17, EN+18, EN+21
RA7002 SCRN+20~, SCRN+23*, SCRN+24*, SCRN+25*, SCRN+26*, SCRN+28
RA72 DPDT+8~, DPDT+13*, DPDT+14
RA72(3 DPDT+14*, DPDT+15
RA751IEN PRACTO+3~, PRACTO+5*, PRACTO+6
RA751PR PRACTO+3~, PRACTO+4*, PRACTO+5, PRACTO+6*, PRACTO+7
RABDT DPDT+8~, DPDT+9*
RACCESS SCRN+20~
RACCESS( SCRN+28
RACIEN DPDT+8~, DPDT+12*, DPDT+13
RACNI CMEDIA~, CMEDIA+4, CMEDIA+5, PRSCR~, PRSCR+7, PRSCOM~, PRSCOM+6
RACNIEN PRCEXA+4~, PRCEXA+5*, PRCEXA+6
RADA SCRN~
RADA(1 SCRN+23, SCRN+25, SCRN+26
RADA(2 SCRN+23, SCRN+24, SCRN+25, SCRN+26
RADA(3 SCRN+23, SCRN+24, SCRN+25
RADA2 GMRAOR~, GMRAOR+2
RADAYS PTAGE+4~, PTAGE+8*, PTAGE+10
RADFN CMEDIA~, CMEDIA+4, CMEDIA+5, PRSCR~, PRSCR+7, PRSCOM~, PRSCOM+6, PRCEXA~, PRCEXA+5, PRACTO~
, PRACTO+5, ASKPREG+25, ASKPREG+26
RADTI CMEDIA~, CMEDIA+4, CMEDIA+5, PRSCR~, PRSCR+7, PRSCOM~, PRSCOM+6
RADTIEN PRCEXA+4~, PRCEXA+5*, PRCEXA+6
RADTST PTAGE~, PTAGE+6*, PTAGE+8
RADUP PRC+1~*, PRC+2
RAEDT DPDT+8~, DPDT+9*, DPDT+10
RAERR ASKPREG+24~
RAFLG DPDT+8~*, DPDT+10, DPDT+15*, DPDT+17
RAFRMT PRSCR~, PRSCR+8, PRSCR+9
RAGE ASKPREG+24~, ASKPREG+25*, ASKPREG+26
RAGMRAOR PRC1+3~*
RAI MES1+3!, DPDT+8~, DPDT+9*, DPDT+10*, DPDT+11, DPDT+12, DPDT+13, CMEDIA+3~*, CMEDIA+4*, CMEDIA+5
RAI(0 CMEDIA+5*, CMEDIA+6
RAIENS PRSCR+6~, PRSCR+7*, PRSCR+8, PRSCR+9, PRSCOM+5~, PRSCOM+6*, PRSCOM+7, PRSCOM+8
RALVL SCRN~, SCRN+22, SCRN+26
>> RANO( STATSEL+7
RAORST STATSEL+7!
RAORST( STATSEL+7*, STATSEL+8, STAT+1, STAT+3!
>> RAORSTS STATSEL+7*
RAOUT PRSCR+6~, PRSCOM+5~
RAOUT( PRSCR+9, PRSCOM+8
RAPMSG PRC1+6*, PRC1+7, PRC1+9!, ASK1+3!
RAPMSG(1 ASK1+3*
RAPMSG(2 ASK1+3*
RAPRC DPDT~, DPDT+10, DPDT+12
>> RAPREG PAOE+4, PAOE+7*
>> RAQRYST ASKPREG+27
RARS SCRN~, SCRN+17
RAS CMEDIA+3~*, CMEDIA+6*, CMEDIA+7
RAST STATSEL+7!, STAT+1*, STAT+2*, STAT+3
RASTX STAT+1*, STAT+4!
RAX ASK+1~, ASK1*, ASK1+1*, ASK1+2, ASK1+3, MES1+1*, MES1+2*, MES1+3!
RAXSAVE PTAGE+4~, PTAGE+5*, PTAGE+9, PTSEX+4~*, PTSEX+5
RAY DPDT~, ASKSEX+10~*, ASKSEX+14, ASKPREG+24~*, ASKPREG+26*, ASKPREG+27*, ASKPREG+28
RAY(1 DPDT+9, DPDT+11
RAY(2 DPDT+10, DPDT+12, DPDT+13
RAYSAVE PTAGE+4~, PTAGE+5*, PTAGE+9, PTSEX+4~*, PTSEX+5
SAVEX EN+4~, EN+5*, EN+11, EN+23
SUBDD EN+4~, EN+6*, EN+7, EN+10, EN+12
U PRC1+10, STATSEL+7, EN+19, EN+21, DPDT+13, DPDT+14, SCRN+17, CMEDIA+5, PTSEX+6, PRCEXA+6
VA PTAGE+4~, PTSEX+4~
VADM PTAGE+4~, PTSEX+4~
VADM(3 PTAGE+8
VADM(5 PTSEX+6
VAERR PTAGE+4~, PTSEX+4~, ASKPREG+24~
X PRCPRC+1, PRC+2, PRC1+4, PRC1+10, ASK1+2!, MES1+3!, STATSEL+7*, STAT+4!, S+1
, SSR+1, EN~, EN+5, EN+7, EN+8, EN+11*, EN+23*, GMRAOR+1~, PTAGE+5, PTAGE+9*
, PTSEX+4, PTSEX+5*, PAOE+3~, ASKSEX+10~, ASKPREG+24~
X1 STATSEL+7*, STATSEL+8*, STAT+4!
X2 STATSEL+7*, STAT+4!
XREF EN+4~, EN+9*, EN+10*, EN+12
Y S+3, S+4, S2+1, S2+2, SSR+3, SSR+4, SSR2+1, SSR2+2, PRRS+2, PSRS+2
, SCRN~, SCRN+17, SCRN+19, SCRN+27, SCRN+28, GMRAOR+1~, PTAGE+5, PTAGE+9*, PTSEX+4, PTSEX+5*
, PAOE+3~, PAOE+7, ASKSEX+10, ASKSEX+14, ASKPREG+24
Y(0 STATSTAT+1
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 |  Naked Globals |  Local Variables  | All