Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call