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