RAUTL8 ;HISC/CAH-Utility routines ;14 Mar 2019 4:11 PM
Source file <RAUTL8.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|