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
Print Page as PDF
Routine: RAUTL4

Package: Radiology Nuclear Medicine

Routine: RAUTL4


Information

RAUTL4 ;HISC/CAH,FPT,GJC AISC/SAW - Utility Routine ; Jan 05, 2022@16:30:37

Source Information

Source file <RAUTL4.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;ENTRY POINT FOR INPUT TRANSFORM FOR FIELD 5, FILE 74
EXIT
ASK ;Prompt for range of entries, parse response
PARSE ; Parse out the list of numbers entered by the user.
CHK
EX
UPPER ;Convert X to uppercase letters, return as Y
ORDEL ; Inform the 'Rad' user that the 'Order' field is null!
; Called from the [RA STATUS ENTRY] template.
EMAIL ; Sent the message off to the req. physician
ENV() ; Check the current environment the software is running under.
; If package is being installed DO NOT fire off message (0)
; If package wide variables are missing, DO NOT fire off message (0)
INCR(X) ; increment a variable by one
USRSEL(RABOOL,RACNT) ; Allows the user to select a number or list of
; numbers within a certain range.
; Vars: RABOOL=1 if a list of #'s can be entered i.e, 1-3,8 -or- 2,3,4
; =0 a single number is the only valid input
; RACNT=the upper value within the valid range of numbers
COMMA(Y) ; If the last character in a string is a comma, strip it off
; example: 1-100, becomes 1-100
ASKFILM(RAITYP,RAY3) ;do higher exam statuses have ASK FOR FILM DATA?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This Imaging Location does not allow the use of 'RELEASED/NOT VERIFIED' status!"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !?3,"Exam information is missing. Unable to continue."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !?3,"Staff review is required to verify this report!"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !?3,"You must have at least an interpreting 'resident' or 'staff' entered before you can verify this report!"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !?3,"An impression was not entered. Verifying is not allowed!"
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!?3,*7,"Item ",+X," is not a valid selection.",!
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !?3,*7,"Invalid range of numbers specified."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !?3,$C(7),"Item ",RASEL," is not a valid selection.",!
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," is not a valid selection.",!
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," was already selected.",!
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !!?5,"The value for the 'Order' field has been deleted, this"
  • Line Location: ORDEL+2
Function Call: WRITE
  • Prompt: !?5,"Examination Status is now inactive/invalid. Please use"
  • Line Location: ORDEL+3
Function Call: WRITE
  • Prompt: !?5,"the 'List Exams with Inactive/Invalid Statuses' option to"
  • Line Location: ORDEL+4
Function Call: WRITE
  • Prompt: !?5,"generate a report showing all inactive/invalid exams.",!,$C(7)
  • Line Location: ORDEL+5
Info |  Source |  Entry Points |  Interaction Calls