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: RABWORD1

Package: Radiology Nuclear Medicine

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All