Routine: RAPRI

Information

RAPRI ;HISC/CAH,GJC AISC/DMK-Display Common Procedures ;3/12/98 11:26

Source Information

Source file <RAPRI.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	5	^DIC DQ^DICQ ^DIR ^DIWP ^DIWW
Radiology Nuclear Medicine	4	$$EOS^RAPRI EN1^RAUTL17 ORDPRC1^RAUTL2 $$DIVSION^RAUTL6
Kernel	2	HOME^%ZIS $$UP^XLFSTR
Order Entry Results Reporting	1	READ^ORUTL

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RA DISPLAY COMMON PROCEDURES RACTOE RACTQE RAORD1 RAPRI

Name	Comments	DBIA/ICR reference
DISP	;Display list of common procedures - called from RAORD1
HELP	; Called from ADDORD1^RAORD1
BROAD()	; Checks if the 'Detailed Procedure Required' field on the Rad/Nuc Med ; Division file is 'yes', and the procedure type is 'Broad'. ; Variables: Y-the ien of the procedure in file 71 ; RALIFN-ien of patient location in file 44 (set in RAORD1) ; Return: 0 if invalid procedure, 1 if valid procedure
Q
DISPQ
EN2	;Rad/Nuc Med Procedure Message Display ; Quit if you've seen these messages before. Value altered in the ; following routines: ADDORD+1^RAORD1 & DISP+12^RAORDU1
LOOKUP	;Lookup procedure - called from RAORD1
DISP1
TOTAL
EOS()	; End of screen message, 'Press return to continue'
GET(DA)	;Get the IEN for the procedure. Used in input transform

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DISP1+1
Function Call: WRITE	Prompt: !?80-$L(X)\2,X,!?80-$L(X)\2,$TR($J("",$L(X))," ","-") Line Location: DISP1+2
Function Call: WRITE	Prompt: !?1,I,") ",$P(RAPRC(I),"^") Condition for execution: RAPRC(I)]"" Line Location: DISP1+5
Function Call: WRITE	Prompt: ?44,(I+RASEQ),") ",$P(RAPRC(I+RASEQ),"^") Line Location: DISP1+5
Function Call: WRITE	Prompt: ! Line Location: LOOKUP+8
Function Call: READ	Timeout: 3 Variable: X Line Location: Q+6
Function Call: WRITE	Prompt: !!,*7,"Unable to process this request due to an invalid procedure.",! Line Location: Q+6
Function Call: WRITE	Prompt: !!?2,"To select a commonly ordered procedure, enter a number from the display above." Line Location: HELP+9
Function Call: WRITE	Prompt: !!?2,"To select procedures other than those listed above, enter the procedure name,",!?2,"synonym, or CPT number.",!!?2,"You may enter a single procedure or multiple procedures separated by commas." Line Location: HELP+10
Function Call: WRITE	Prompt: !?2,"To see a list of all selectable procedures, enter '??'.",! Line Location: HELP+11
Function Call: WRITE	Prompt: !!,*7,"NOTE: The following special requirements apply to this procedure: ",RAPRI("X"),! Line Location: EN2+8
Function Call: WRITE	Prompt: @IOF Line Location: EN2+12
Function Call: WRITE	Prompt: !,X Line Location: EN2+13
Function Call: WRITE	Prompt: @IOF Line Location: EN2+22
Function Call: WRITE	Prompt: @IOF Line Location: EN2+26
Function Call: READ	Timeout: DTIME Variable: RAJUNK Line Location: EN2+30
Function Call: WRITE	Prompt: ! Line Location: EN2+30
Function Call: WRITE	Prompt: !,"Press RETURN to continue" Line Location: EN2+30
Function Call: READ	Prompt: "Press return to continue " Formatting: !!?5 Timeout: DTIME Variable: X Line Location: EOS+3
Routine Call	%ZIS Line Location: DISP1+1
Routine Call	DIC Line Location: LOOKUP+11
Routine Call	DIR Line Location: Q+7 HELP+12

Name	Line Occurrences (* Changed, ! Killed)
^RA(79 - [#79]	BROAD+5
^RA(79.2 - [#79.2]	DISP1+2
^RAMIS(71 - [#71]	Q, Q+2, EN2+6, EN2+9, EN2+10, EN2+17, EN2+18, EN2+21, EN2+23, TOTAL+2 , BROAD+5
^RAMIS(71.3 - [#71.3]	DISP1, TOTAL+2
^RAMIS(71.4 - [#71.4]	EN2+11, EN2+13
^RAO(75.1 - [#75.1]	GET+2
^UTILITY($J	EN2+20!

Name	Line Occurrences
$$BROAD	LOOKUP+7
DISPQ	DISP+1, DISP1
EN2	Q+2
Q	LOOKUP+7
TOTAL	DISP1+4

Name	Field # of Occurrence
^(	TOTAL+2
^(0	TOTAL+2

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPRI

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
HOME^%ZIS	DISP1+1
^DIC	LOOKUP+11
DQ^DICQ	HELP+7
^DIR	Q+7, HELP+12
^DIWP	EN2+23
^DIWW	EN2+27
READ^ORUTL	EOS+6
$$EOS^RAPRI	EN2+12, EN2+22, EN2+26
EN1^RAUTL17	DISP+1
ORDPRC1^RAUTL2	Q+4
$$DIVSION^RAUTL6	BROAD+5
$$UP^XLFSTR	EN2+17

Name	Field # of Occurrence
D	HELP+3~*
DA	GET~, GET+2
DIC	LOOKUP+8~, HELP+3~, HELP+6
DIC("S"	LOOKUP+9, LOOKUP+10, LOOKUP+11!, HELP+6*
DIC("W"	HELP+7*
DIC(0	LOOKUP+8, HELP+6
DIR	Q+7!, HELP+12!
DIR("A"	Q+7*
DIR(0	Q+7, HELP+12
DISYS	DISPQ!
DIW	EN2+19~
DIWF	EN2+19~, EN2+20*
DIWL	EN2+19~, EN2+20*
DIWR	EN2+19~, EN2+20*
>> DR	EN2+30
DT	BROAD+5
DTIME	EN2+30, EOS+3
DZ	HELP+3~, HELP+6*
I	DISP1+3, DISP1+5, DISPQ!, EN2+7~, EN2+9, EN2+10, TOTAL~, TOTAL+1, TOTAL+2
II	DISP1+3*, DISPQ!
IOF	DISP1+1, EN2+5, EN2+12, EN2+22, EN2+26
IOSL	EN2+12, EN2+22, EN2+26, EN2+30
J	TOTAL~
K	TOTAL~, TOTAL+1, TOTAL+2
L	TOTAL~, TOTAL+1*
POP	DISPQ!
>> RACNT	DISP1, LOOKUP+7, TOTAL+1, TOTAL+2*, TOTAL+3, TOTAL+4
>> RADFN	Q+3
RADIC	HELP+3~
RADIC("S"	HELP+4*, HELP+6
RADIC("S1"	HELP+5*, HELP+6
>> RAIMGTYI	DISP+1*, DISP1, DISP1+2, TOTAL+2
>> RAJ	Q+6
RAJUNK	EN2+30*!
>> RALIFN	BROAD+5
>> RAOUT	Q+7*
>> RAPKG	EOS+2
>> RAPRC(	DISP1+3, DISP1+5, LOOKUP+7, TOTAL+2
>> RAPRI	Q*, Q+1, Q+2, Q+6, EN2+6, EN2+9, EN2+10, EN2+17, EN2+18, EN2+21 , EN2+23
>> RAPRI("X"	Q*, EN2+8
>> RAREASK	Q+6*
>> RARX	Q+6, HELP+1
>> RAS3	Q+3*
RASEQ	DISP1+5, DISPQ!, TOTAL+3, TOTAL+4
>> RASTOP	EN2+4*
RAX	EN2+7~, EN2+10, EN2+11, EN2+13, EN2+19~, EN2+20, EN2+21*, EN2+23
RAXIT	EN2+5~, EN2+9, EN2+12, EN2+21, EN2+22, EN2+25, EN2+26, EN2+27, EN2+29
U	DISP1+2, GET+2
X	DISP1+2, LOOKUP+7, LOOKUP+11, Q, Q+1, Q+6, EN2+7~, EN2+13, EN2+19~, EN2+23* , EOS+1~, EOS+3, EOS+6, EOS+8
Y	DISP+1, LOOKUP+7, LOOKUP+8~, LOOKUP+11, Q, Q+7, BROAD+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed