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

Package: Radiology Nuclear Medicine

Routine: RAMAIN2


Information

RAMAIN2 ;HISC/GJC - Radiology Utility File Maintenance (Part Two) ; May 31, 2024@14:28:03

Source Information

Source file <RAMAIN2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCEE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: VALIDITY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: 131+3
Function Call: WRITE
  • Prompt: !?5,"This record is currently being edited by another user."
  • Line Location: 131+8
Function Call: WRITE
  • Prompt: !?5,"Try again later!",$C(7)
  • Line Location: 131+9
Function Call: WRITE
  • Prompt: !!?5,"Resequencing the Rad/Nuc Med Common Procedure List"
  • Line Location: RESEQ+6
Function Call: WRITE
  • Prompt: " Done!"
  • Line Location: RESEQ+19
Function Call: WRITE
  • Prompt: !!?3,"Deleting default radiopharmaceuticals for this procedure...",!
  • Line Location: DELRADE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls
^RAMIS(71.3 - [#71.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call