Routine: RAUTL4

Information

RAUTL4 ;HISC/CAH,FPT,GJC AISC/SAW-Utility Routine ;2/9/98 12:37

Source Information

Source file <RAUTL4.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	$$UP^XLFSTR
MailMan	1	^XMD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 15

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

Entry Points

Name	Comments	DBIA/ICR reference
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.
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)
CHK
INCR(X)	; increment a variable by one
PARSE	; Parse out the list of numbers entered by the user.
EN1	;ENTRY POINT FOR INPUT TRANSFORM FOR FIELD 5, FILE 74
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
EXIT
EX
ASK	;Prompt for range of entries, parse response
COMMA(Y)	; If the last character in a string is a comma, strip it off ; example: 1-100, becomes 1-100
EMAIL	; Sent the message off to the req. physician

External References

Name	Field # of Occurrence
^DIR	USRSEL+14
$$UP^XLFSTR	UPPER+1
^XMD	EMAIL+6

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
^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+6!
^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

Name	Field # of Occurrence
>> DA	EN1+1, EN1+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, ENV+3
RA	COMMA+2~*, COMMA+3
RA0	EN1+5*, EN1+6, EN1+7, EN1+8, EXIT!
>> RA74IEN	EMAIL+5
>> RAACNT	INCR+1*, INCR+2
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
>> RAIMGTY	ENV+3
>> RAMDIV	ENV+3
>> RAMDV	ENV+3
>> RAMLC	ENV+3
>> RAPAR	PARSE+1*, PARSE+2, CHK
>> RARPHYS	EMAIL+6
>> 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!
U	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9
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~
XMDUZ	EMAIL+3~*
XMSUB	EMAIL+3~, EMAIL+5*
XMTEXT	EMAIL+3~, EMAIL+4*
XMY	EMAIL+3~
XMY(	EMAIL+6*
>> XPDNM	ENV+4
Y	ASK+12, UPPER+1, USRSEL+5~, USRSEL+14, USRSEL+19, USRSEL+20, COMMA~, COMMA+2, COMMA+3

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL4

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed