©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RABWORD1 ;HOIFO/MM-Radiology Billing Awareness ; 04 Apr 2014 6:53 AM
Source file <RABWORD1.m>
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 3 | RABWORD RAO7NEW RAORDU1 |
| Order Entry Results Reporting | 1 | ORWDBA7 |
| 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| 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 |
| Name | Line Occurrences |
|---|---|
| BARESP | PRIMDX+3, SECDX+5 |
| SEND1 | SENDCPRS+8, SENDCPRS+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SENDCPRS+10 |
| >> | 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* |