Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  
MailMan 1 ^XMD  
Scheduling 1 ($$OUTPTAP,$$OUTPTPR)^SDUTL3  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Radiology Nuclear Medicine 17 RACTVR  RACTVR4  RACTWR  RACTWR2  RACTWR4  RAO7PC4  RAO7RON1  RAORDU1  
RAPTLU  RARTR  RARTR0  RARTR1  RARTR2  RARTR3  RARTST  RARTUTL  
^RAMIS(71.3  

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?

External References

Name Field # of Occurrence
^DIR USRSEL+14
$$OUTPTAP^SDUTL3 EMAIL+9
$$OUTPTPR^SDUTL3 EMAIL+9
$$UP^XLFSTR UPPER+1
^XMD EMAIL+10

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
Routine Call
  • DIR
  • Line Location:
    • USRSEL+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(74 EN1+14, EN1+15
^DPT - [#2] EMAIL+9
^RA(72 - [#72] ASKFILM+7, ASKFILM+9, ASKFILM+10, ASKFILM+12
^RA(79 - [#79] EN1+9
^RA(79.1 - [#79.1] EN1+2
^RADPT - [#70] EN1+2, EN1+3, EN1+4, EN1+5, EN1+9
^RAMIS(71 - [#71] EN1+5
^RARPT - [#74] EN1+1, EN1+9, EMAIL+5
^TMP($J ASK+11, ASK+12, CHK+5, EMAIL+2, EMAIL+10!
^VA(200 - [#200] EN1+6, EN1+7

Label References

Name Line Occurrences
$$COMMA USRSEL+19
$$USRSEL ASK+9
ASK ASK+11, PARSE+1, PARSE+3
CHK PARSE+1, PARSE+2
EX PARSE+1
EXIT EN1+2, EN1+3, EN1+4, EN1+7, EN1+8
PARSE PARSE+3

Naked Globals

Name Field # of Occurrence
^( EN1+9
^("RA" EN1+6
^(0 EN1+2, EN1+5
^(2 EN1+14, EN1+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA EN1+1, EN1+9
>> DFN EMAIL+8*, EMAIL+9
DIR USRSEL+5~
DIR("?" USRSEL+9*, USRSEL+12*
DIR("A" USRSEL+6*, USRSEL+7*
DIR(0 USRSEL+9*, USRSEL+12*
DIROUT USRSEL+5~
DIRUT USRSEL+5~
DTOUT USRSEL+5~, USRSEL+14
DUOUT USRSEL+5~, USRSEL+14
DUZ EMAIL+1, EMAIL+3~, ENV+3
RA COMMA+2~*, COMMA+3
RA0 EN1+5*, EN1+6, EN1+7, EN1+8, EXIT!
>> RA74(0 EMAIL+8
>> RA74IEN EMAIL+5
>> RAACNT INCR+1*, INCR+2
RAAP EMAIL+9*, EMAIL+11!
RABOOL USRSEL~, USRSEL+8
>> RACCESS( ENV+3
>> RACI EN1+3*, EN1+4, EN1+5
>> RACNI EN1+3
RACNT ASK+9, USRSEL~, USRSEL+7, USRSEL+9, USRSEL+12
RADASH PARSE+1*, PARSE+2, PARSE+3!, CHK
RADUP ASK+8!, EX
RADUP( CHK+6, CHK+7*
>> RAERR ASK+8*, PARSE+1, PARSE+3, CHK*, CHK+3*, CHK+5*, CHK+6*, EX
>> RAF1 ASK+9, ASK+11, ASK+12
>> RAI ASK+8*, PARSE+1*
RAIEN ASKFILM+6~, ASKFILM+10*, ASKFILM+12
>> RAIMGTY ENV+3
RAITYP ASKFILM~, ASKFILM+9, ASKFILM+10
>> RAMDIV ENV+3
>> RAMDV ENV+3
>> RAMLC ENV+3
RAORD ASKFILM+6~, ASKFILM+7*
>> RAPAR PARSE+1*, PARSE+2, CHK
RAPCP EMAIL+9*, EMAIL+11!
>> RARPHYS EMAIL+10
>> RASEL PARSE+1*, PARSE+2*, CHK+1, CHK+2, CHK+5, CHK+6, CHK+7
RAX EN1+1*, EN1+2, EN1+3, EN1+4, EN1+5, EN1+9, EN1+13, EXIT!
RAY EN1+5*, EN1+6*, EN1+7, EXIT!
RAY3 ASKFILM~, ASKFILM+7
U EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, EMAIL+8, EMAIL+9
, ASKFILM+7, ASKFILM+12
X EN1+2!, EN1+3, EN1+4!, EN1+7!, EN1+8!, EN1+9!, EN1+13, ASK+9*, ASK+11, ASK+12*
PARSE+1, EX*, UPPER+1, INCR~, INCR+1*, USRSEL+5~, ASKFILM+6~*, ASKFILM+9, ASKFILM+12*, ASKFILM+14
XMDUZ EMAIL+3~*
XMSUB EMAIL+3~, EMAIL+5*
XMTEXT EMAIL+3~, EMAIL+4*
XMY EMAIL+3~
XMY( EMAIL+9*, EMAIL+10*
>> XPDNM ENV+4
Y ASK+12*, UPPER+1*, USRSEL+5~, USRSEL+14*, USRSEL+19*, USRSEL+20, COMMA~, COMMA+2, COMMA+3, ASKFILM+6~
, ASKFILM+7*, ASKFILM+9*, ASKFILM+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All