RAMAIN2 ;HISC/GJC - Radiology Utility File Maintenance (Part Two) ; May 31, 2024@14:28:03
Source file <RAMAIN2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
2 | ;;Procedure Enter/Edit
; *** This subroutine once resided in RAMAIN i.e, '2^RAMAIN'. *** ; RA PROCEDURE option. |
|
PRCEE | ;PROCEDURE ENTER/EDIT subroutine
|
|
21 | ;ENTRY POINT FROM RANPRO, RA*5.0*127 (de-activation of LOINC) RA5p208
|
|
VALIDITY | ;Running validity check on CPT and stop codes.
|
|
13 | ;;Rad/Nuc Med Common Procedure File Enter/Edit
; RA COMMON PROCEDURE option RA5P158 |
|
131 | ||
Q13 | ||
RESEQ | ;Resequence the common procedure list
|
|
LOW(X) | ; Find the lowest available sequence number for a procedure within
; a specific Imaging Type. Seq. #'s range from 1 to 40. If the ; range changes in the DD i.e, ^DD(71.3,3, this code as well as the ; code if EN3^RAUTL18 must also be altered. ; If RAHIT is passed back as "", there is no available sequence number. |
|
VRDIO(RADA) | ; Validate the 'Usual Dose' field within the 'Default Radiopha-
; rmaceuticals' multiple. 'Usual Dose' must fall within the 'Low Adult ; Dose' & 'High Adult Dose' range. This subroutine will display the ; Radiopharmaceutical in question along with the values in question if ; inconsistencies are found. |
|
DELRADE(RADA) | ; Delete the Default Radiopharmaceuticals multiple
|
|
END | ;KILL LOGIC AND END ROUTINE
|
|
SCRN713(Y,RAIMGTYI) | ;screen common procedures by i-type
|
|
DICW713(RAX) | ;display the sequence number or a message is the sequence
|
|
KILLPRCEE | ;kill procedure enter/edit variables... RA5P214
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RAMIS(71 - [#71] | Classic Fileman Calls |
^RAMIS(71.3 - [#71.3] | Classic Fileman Calls |