Routine: RABWUTL

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

RABWUTL ;HISC/SM - Billing Aware utilities ;3/24/04

Source Information

Source file <RABWUTL.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
DRG Grouper	1	$$ICDDX^ICDCODE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAORD3 RAORD6

Entry Points

Name	Comments	DBIA/ICR reference
ODX(RA)	;ordering diagnosis
GETDX	; get DX and Clin. Indicators from file 75.1
WRTDX	; write DX and Clin. Inds.

External References

Name	Field # of Occurrence
$$ICDDX^ICDCODE	WRTDX+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Ordering Diagnoses:" Line Location: WRTDX+2
Function Call: WRITE	Prompt: !?2,$P($$ICDDX^ICDCODE(+RAX(I)),U,2),?10,$P($$ICDDX^ICDCODE(+RAX(I)),U,4) Line Location: WRTDX+6
Function Call: WRITE	Prompt: !,?10,"Clinical Indicator(s): " Line Location: WRTDX+9
Function Call: WRITE	Prompt: $S(J=1:"SC",J=2:"AO",J=3:"IR",J=4:"SWAC",J=5:"MST",J=6:"HNC",J=7:"CV",1:"SHAD") Line Location: WRTDX+10
Function Call: WRITE	Prompt: "," Condition for execution: $P(X,U,J+1,8)["1" Line Location: WRTDX+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RAO(75.1 - [#75.1]	ODX+4, GETDX+1, GETDX+3, GETDX+5

Label References

Name	Line Occurrences
GETDX	ODX+5
WRTDX	ODX+6

Naked Globals

Name	Field # of Occurrence
^("BA"	GETDX+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> I	GETDX+2, GETDX+3, GETDX+5, WRTDX+3, WRTDX+4, WRTDX+6, WRTDX+7
>> J	WRTDX+10*
RA	ODX~, ODX+4, GETDX+1, GETDX+3, GETDX+5
>> RA1	GETDX+2, GETDX+4, GETDX+5
>> RA751	ODX+4*
>> RAORD0	ODX+4
>> RAX(	GETDX+5*, WRTDX+4, WRTDX+6, WRTDX+7
>> RAX(0	WRTDX+1
>> RAX(1	GETDX+1*
U	WRTDX+6, WRTDX+7, WRTDX+10
>> X	WRTDX+7*, WRTDX+8, WRTDX+10