RAUTL12 ;HISC/CAH,FPT,GJC-Utility Routine ; May 21, 2021@11:13:20
Source file <RAUTL12.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMGTY(X,Y,Z) | ; Determines the Imaging Type
; 'X' -> either 'e', 'l', or 'p' ; 'e' means we determine the Imaging Type from the 'Registered ; Exams' multiple in Rad/Nuc Med Patient file (70) ; 'l' means that we determine the Imaging Type from data in the ; Imaging Locations file (79.1) ; 'p' means that we determine the Imaging Type from data in the ; Rad/Nuc Med Procedures file (71) |
|
| LOCK(X,Y) | ; Lock the data global
; 'X' is the global root ; 'Y' is the record number ; KLM/163 - remove setting of RADUZ and ^TMP("RAD LOCS" |
|
| UNLOCK(X,Y) | ; Unlock the data global
|
|
| EXTRA(RAQI) | ;Input is RAQI (Modifier)
|
|
| DESDT(RAPRI) | ;Obtain 'Date Desired (NOT appt date)' by DIR call.
|
|
| PTLOC() | ; Current patient location. Used for entry: 'CURRENT PATIENT
; LOCATION' in the Label Print Fields file. (78.7) ; 'X' is the patient's DFN. DFN must be a positive integer. |
|
| IMG() | ; Select one/many/all imaging types. This code will be used for ALL
; the options under the Procedure File Listings option as exported by ; Rad/Nuc Med version 5. I-Types are not screened. ; Passes back '1' if I-Type(s) are selected, '0' if nothing selected. |
|
| LOC(RAX) | ; Select one/many/all imaging locations. L-Types are not
; screened. Passes back '1' if L-Type(s) are selected, '0' if nothing ; selected. Used for the option: 'Location Parameter List' (4^RASYS) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
