Routine: RABWORD1

Information

RABWORD1 ;HOIFO/MM-Radiology Billing Awareness ; 04 Apr 2014 6:53 AM

Source Information

Source file <RABWORD1.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Radiology Nuclear Medicine	3	FILEDX^RABWORD COMPLETE^RAPCE UNCOMPL^RAPCE1
DRG Grouper	1	$$ICDDX^ICDCODE
Kernel	1	$$PATCH^XPDUTL
VA Fileman	1	^DIK

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RABWORD RAO7NEW RAORDU1
Order Entry Results Reporting	1	ORWDBA7

Entry Points

Name	Comments	DBIA/ICR reference
SEND1
BADISP(RABWDX)	; Display ICD DX & SC/EI/MST/HNC answers from the Order.
PRIMDX
SENDCPRS(RAO)	; Send Billing Aware Ordering ICD Dx data to CPRS. ; Called from EN1+n^RAO7NEW. ; RABWDX1 variable comes from RAO7NEW routine.
GETCPRS	; Retrieve and Store Ordering ICD Dx data from CPRS DG1 & ZCL Segments. ; Called from EN1+n^RAO7RON.
CPRSUPD(RADFN,RAITEM,RAORIEN,RADX,RASCEI)	;Update Order DXs edited during SignOff in CPRS ; PFSS 1B Requirement 1 ; Radiology backdoor orders normally cannot be changed from CPRS GUI. ; The exceptions are TELEPHONE and VERBAL orders which were entered ; from "backdoor" Vista Radiology, and changed later in CPRS GUI. However, ; only the Diagnoses and Clinical Indicators for the order can be changed. ; The change from the CPRS GUI can occur before or after the exam has been ; completed.
SECDX
BARESP	; Display the SC/EC/EI/MST/HNC responses associated to each ICD Dx. ; Current Question Sequence is: SC, CV, AO, IR, SWAC, SHAD, MST, HNC

External References

Name	Field # of Occurrence
^DIK	CPRSUPD+22
$$ICDDX^ICDCODE	PRIMDX+2, SECDX+3, SEND1
FILEDX^RABWORD	CPRSUPD+30
COMPLETE^RAPCE	CPRSUPD+36
UNCOMPL^RAPCE1	CPRSUPD+35
$$PATCH^XPDUTL	SENDCPRS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(RAICD,U,4)," ",$P(RAICD,U,2) Line Location: PRIMDX+2
Function Call: WRITE	Prompt: !?5 Line Location: BARESP+7
Function Call: WRITE	Prompt: !?5 Line Location: BARESP+8
Function Call: WRITE	Prompt: ?40 Line Location: BARESP+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	SEND1
^RADPT - [#70]	CPRSUPD+36
^RADPT("AO"	CPRSUPD+32, CPRSUPD+33
^RAO(75.1 - [#75.1]	SENDCPRS+5, SENDCPRS+6, SENDCPRS+8, SENDCPRS+10, CPRSUPD+15, CPRSUPD+17, CPRSUPD+18, CPRSUPD+21, CPRSUPD+29

Label References

Name	Line Occurrences
BARESP	PRIMDX+3, SECDX+5
SEND1	SENDCPRS+8, SENDCPRS+10

Naked Globals

Name	Field # of Occurrence
^(	SENDCPRS+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CPRSUPD+20!, CPRSUPD+21, CPRSUPD+23!
DA(1	CPRSUPD+20*
DIK	CPRSUPD+20!*, CPRSUPD+23!
DT	PRIMDX+2, SECDX+3
I	SENDCPRS+4~, SEND1+4, SEND1+5, SEND1+7, GETCPRS+3~, GETCPRS+8
I0	BARESP+2~, BARESP+3*, BARESP+4
I1	BADISP+9~, SECDX, SECDX+1, SECDX+3
I2	BARESP+2~, BARESP+7, BARESP+8, BARESP+9
II	SENDCPRS+4~, SEND1+5*
RA1	BARESP+2~, BARESP+5, BARESP+6, BARESP+10, SENDCPRS+4~, SENDCPRS+6, SENDCPRS+9, SENDCPRS+10, GETCPRS+3~
RA1(	GETCPRS+8*
RA1(2	GETCPRS+9, GETCPRS+11, GETCPRS+12
RA1(3	GETCPRS+11, GETCPRS+12
RA2	SENDCPRS+4~, SENDCPRS+8, SENDCPRS+10, SEND1, SEND1+2, SEND1+5
RA2A	SENDCPRS+4~, SEND1+5*, SEND1+7
RABA	BARESP+2~, BARESP+4*, BARESP+5, BARESP+10
RABWDX	BADISP~, BADISP+8, CPRSUPD+28, CPRSUPD+37!
RABWDX(	SECDX+1, SECDX+3, BARESP+5, CPRSUPD+27*
RABWDX(1	PRIMDX, PRIMDX+2, PRIMDX+3
>> RABWDX1(	SEND1+2, SEND1+7
RACNI	CPRSUPD+13~, CPRSUPD+33, CPRSUPD+35, CPRSUPD+36
RACNT	BADISP+9~, PRIMDX+3, SECDX+5, BARESP+5, SENDCPRS+4~, SENDCPRS+7, SEND1+1, SEND1+2, SEND1+3, SEND1+7
RACNT1	SENDCPRS+4~, SENDCPRS+7, SEND1+3, SEND1+6*, SEND1+7
RACPRS	CPRSUPD+14~*
>> RADATA	GETCPRS+2, GETCPRS+5, GETCPRS+6, GETCPRS+8, GETCPRS+11, GETCPRS+12
RADFN	CPRSUPD~, CPRSUPD+17, CPRSUPD+18, CPRSUPD+30, CPRSUPD+32, CPRSUPD+33, CPRSUPD+35, CPRSUPD+36, CPRSUPD+37!
RADTI	CPRSUPD+13~, CPRSUPD+32, CPRSUPD+33, CPRSUPD+35, CPRSUPD+36
RADX	CPRSUPD~, CPRSUPD+37!
RADX(	CPRSUPD+26, CPRSUPD+27
RADXIN	CPRSUPD+13~, CPRSUPD+26, CPRSUPD+27
>> RAECH(1	SEND1+2
>> RAHDR	GETCPRS+4, GETCPRS+7
>> RAHLFS	SEND1+2, SEND1+7, GETCPRS+5, GETCPRS+6, GETCPRS+8
RAICD	PRIMDX+1~, PRIMDX+2, SECDX+3, SECDX+4
RAICD1	SENDCPRS+4~, SEND1*, SEND1+2
RAICD3	SENDCPRS+4~, SEND1*, SEND1+2
RAIND	BADISP+9~
RAIND(	BARESP+10
RAIND(2	BADISP+11*
RAIND(3	BADISP+11*
RAIND(4	BADISP+11*
RAIND(5	BADISP+12*
RAIND(6	BADISP+12*
RAIND(7	BADISP+12*
RAIND(8	BADISP+12*
RAIND(9	BADISP+12*
RAITEM	CPRSUPD~, CPRSUPD+15, CPRSUPD+16, CPRSUPD+17, CPRSUPD+18, CPRSUPD+20, CPRSUPD+21, CPRSUPD+29, CPRSUPD+30, CPRSUPD+32 , CPRSUPD+33, CPRSUPD+37!
RAMSG	CPRSUPD+13~, CPRSUPD+16, CPRSUPD+17, CPRSUPD+18*, CPRSUPD+19, CPRSUPD+38
>> RANEW(	GETCPRS+5, GETCPRS+6, GETCPRS+11, GETCPRS+12
RAO	SENDCPRS~, SENDCPRS+5, SENDCPRS+6, SENDCPRS+8, SENDCPRS+10
RAORIEN	CPRSUPD~, CPRSUPD+15, CPRSUPD+16, CPRSUPD+18, CPRSUPD+37!
RASCEI	CPRSUPD~, CPRSUPD+25, CPRSUPD+37!
RASCEII	CPRSUPD+13~, CPRSUPD+25*, CPRSUPD+27
RAUPD	CPRSUPD+13~, CPRSUPD+29, CPRSUPD+31
U	PRIMDX+2, SECDX+3, SECDX+4, BARESP+5, SEND1, SEND1+5, CPRSUPD+15, CPRSUPD+17, CPRSUPD+18, CPRSUPD+25 , CPRSUPD+29, CPRSUPD+36
>> Y	PRIMDX+4*
>> ZTQUEUED	CPRSUPD+34*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RABWORD1

Call Graph Total: 6

Caller Graph Total: 4