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 ; 06 Oct 2013 11:07 AM

Source Information

Source file <RAUTL8.m>

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

Caller Graph Total: 23

Package Total Caller Graph
Radiology Nuclear Medicine 23 EXAMINATIONS  RACMP1  RACTEX7  RACTOE3  RACTRG11  RACTTK2  RAMAG03C  RAORD1A  
RAORD3  RAORD6  RAPROD  RAREG2  RARIC1  RART1  RART3  RARTE  
RARTE6  RARTR  RARTR0  RARTR3  RASTED  RASTREQ  RAUTL8  

Entry Points

Name Comments DBIA/ICR reference
STAT
PSRS() ; do not enter secondary into primary interpreting staff screen
; called from input transform ^DD(70.03,15,0)
S2
ASKPREG() ;RA*5.0*99 - Evaluate the conditions to present the PREGNANCY
PRSCR(RADFN,RADTI,RACNI,RAFRMT) ;return pregnancy screen
STATSEL ;Select one or more order statuses
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
PRC
MES1 ; display procedure acceptance message
GMRAOR(RADA2) ;look for a contrast media reaction
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.
ASK ; Prompt user for yes/no response
PTSEX(DFN) ;return pt sex, added by p#99
PRACTO(RADFN) ;returns previous active order IEN of file #75.1 or null if no previous order
ASK1
CMEDIA(RADFN,RADTI,RACNI) ;return the CM used with an exam
PRCEXA(RADFN) ;return a previous case exam
EN(X,FLD,RA) ;Input transform screen for Primary Staff, Primary Res
ASKSEX() ;RA*5.0*99 - Determine the sex of the patient by asking the user.
PTAGE(DFN,RADTST) ;return pt age, added by p#99
S() ; do not enter primary OR SAME SEC in secondary interpreting resident
PRRS() ; do not enter secondary into primary interpreting resident screen
; called from input transform ^DD(70.03,12,0)
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
SSR() ; do not enter primary OR SAME SEC in secondary interpreting staff
PRSCOM(RADFN,RADTI,RACNI) ;return pregnancy screen comment
SSR2
PAOE() ;Entry point to enter Pregnancy field of file 75.1. This label is being called from

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, ASKPREG+14
^DIR STAT, PAOE+5, ASKSEX+19
$$ORCHK^GMRAOR GMRAOR+2
CONTRAST^RAUTL2 PRC1+4
VARACC^RAUTL6 SCRN+27
$$DPDT^RAUTL8 PRC+1
$$PTAGE^RAUTL8 ASKPREG+13
$$PTSEX^RAUTL8 ASKPREG+19, ASKPREG+24
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+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GETS^DIQ
70.3225 EXTERNAL^DILFD
^RARPT - [#74] GETS^DIQ
^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, ASKPREG+19
^RADPT - [#70] PRC, PRC1+6, S+2, S+3, S+4, S2, S2+1, S2+2, SSR+2, SSR+3
, SSR+4, SSR2, SSR2+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+12~
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, S2, S2+1, S2+2, SSR2, SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+4~
, EN+11*, GMRAOR+1~
DA(1 PRC1+6, S+2, S+3, S+4, S2, S2+1, S2+2, SSR+2, SSR+3, SSR+4
, SSR2, SSR2+1, SSR2+2, PRRS+2, PSRS+2, EN+11*
DA(2 PRC, PRC1+3, PRC1+6, S+2, S+3, S+4, S2, S2+1, S2+2, SSR+2
, SSR+3, SSR+4, SSR2, SSR2+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+12~
DIETMP GMRAOR+1~
DIEXREF GMRAOR+1~
DIFLD GMRAOR+1~
DIIENS GMRAOR+1~
DIOV GMRAOR+1~
DIP GMRAOR+1~
DIR STAT!, PAOE+3~, ASKSEX+16~
DIR("?" ASKSEX+18*
DIR("A" PAOE+5*, ASKSEX+17*
DIR("B" PAOE+4*, ASKSEX+16*
DIR(0 STAT*, PAOE+3*, ASKSEX+16*
DIROUT PAOE+3~, PAOE+6, ASKSEX+16~
DIRUT PAOE+3~, PAOE+6, ASKSEX+16~, ASKSEX+20
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 ASK1, MES1+1
DTOUT PAOE+3~, PAOE+6, ASKSEX+16~
DUOUT PAOE+3~, PAOE+6, ASKSEX+16~
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
>> RA0(17 ASKPREG+13
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+13, ASKPREG+19, ASKPREG+24
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+12~
RAFLG DPDT+8~*, DPDT+10, DPDT+15*, DPDT+17
RAFRMT PRSCR~, PRSCR+8, PRSCR+9
RAGE ASKPREG+12~, ASKPREG+13*, ASKPREG+19, ASKPREG+24
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
>> RAMDIV ASKPREG+19
>> 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*
RARS SCRN~, SCRN+17
RAS CMEDIA+3~*, CMEDIA+6*, CMEDIA+7
RAST STATSEL+7!, STAT+1*, STAT+2*, STAT+3, ASKPREG+12~, ASKPREG+15*, ASKPREG+24
RAST(74 ASKPREG+15
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+13*, ASKSEX+16~*, ASKSEX+20, ASKPREG+12~*, ASKPREG+19, ASKPREG+24*, ASKPREG+26
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
, ASKPREG+19
VA PTAGE+4~, PTSEX+4~
VADM PTAGE+4~, PTSEX+4~
VADM(3 PTAGE+8
VADM(5 PTSEX+6
VAERR PTAGE+4~, PTSEX+4~, ASKPREG+12~
X PRC, PRC+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+16~, ASKPREG+12~
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+13, ASKSEX+14, ASKSEX+16, ASKSEX+20, ASKPREG+12, ASKPREG+13*, ASKPREG+14, ASKPREG+15
Y(0 STAT, STAT+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