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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RABWORD

Package: Radiology Nuclear Medicine

Routine: RABWORD


Information

RABWORD ;HOIFO/JH&MM - Radiology Billing Awareness ; 04 Apr 2014 6:54 AM

Source Information

Source file <RABWORD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  (FILE,UPDATE)^DIE  ^DIR  
Kernel 1 $$ACTIVE^XUSER  
Radiology Nuclear Medicine 1 BADISP^RABWORD1  
Scheduling 1 CL^SDCO21  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RABWORD1  RAMAG02A  RAORD1  

Entry Points

Name Comments DBIA/ICR reference
DUPDX ; Check If A Duplicate ICD Dx Has Been Entered.
PFSS ; RAO is the IEN of file #75.1
; we need to make this call before testing for RABWDX because the GETACCT
; must be done regardless of presence of the RABWDX array
PROV() ; Validate for Provider Key, Active, and non-Terminated statuses.
; Original DIC("S") for Requesting Provider.
; Y = ien file #200
FILEDX(RADFN,RAO) ; Store SC/EI Fields in Order file #75.1
; Called from RAORD1 routine.
PRIMDX
ASKYN(RAQUES,RADEFLT,RAEXHELP) ; Ask Yes/No Questions
ASK(RADFN,RASDDT) ; Ask ICD DX & SC/EI/MST/HNC questions at time of Order.
SECDX
BAQUES ; Ask the SC/EI/MST/HNC questions associated to each ICD Dx.

External References

Name Field # of Occurrence
^DIC PRIMDX+9, SECDX+12
FILE^DIE FILEDX+8
UPDATE^DIE FILEDX+14
^DIR ASKYN+4
BADISP^RABWORD1 PRIMDX+2, SECDX+5
CL^SDCO21 BAQUES+3
$$ACTIVE^XUSER PROV+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SECDX+0
Function Call: WRITE
  • Prompt: !?5,"* Cannot Enter Duplicate ICD-9 Diagnosis *"
  • Line Location: SECDX+18
Routine Call
  • DIE
  • Line Location:
    • FILEDX+14
Routine Call
  • DIE
  • Line Location:
    • FILEDX+8
Routine Call
  • DIR
  • Line Location:
    • ASKYN+4
Routine Call
  • DIC
  • Line Location:
    • PRIMDX+9
    • SECDX+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] PRIMDX+5, SECDX+8
^SD(409.41 - [#409.41] BAQUES+8
^TMP("RACOPY" ASK+14, ASK+16, ASK+18, PRIMDX, PRIMDX+1, SECDX+1, SECDX+2, SECDX+4, SECDX+20!, BAQUES+14
, BAQUES+16, BAQUES+17
^XUSEC("PROVIDER" ASK+8, PROV+5

Label References

Name Line Occurrences
$$ASKYN BAQUES+18
BAQUES PRIMDX+14, SECDX+19
DUPDX SECDX+17
PFSS FILEDX+2

Naked Globals

Name Field # of Occurrence
^( ASK+18
^("BA" ASK+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC ASK+12~, PRIMDX+3*, SECDX+6*
DIC("A" PRIMDX+4*, SECDX+7*
DIC("B" PRIMDX+5*, PRIMDX+6*, SECDX+8*, SECDX+9*
DIC(0 PRIMDX+3*, SECDX+6*
DIR ASKYN+1~
DIR("??" ASKYN+2*
DIR("A" ASKYN+3*
DIR("B" ASKYN+4*
DIR(0 ASKYN+3*
DIRUT ASKYN+1~, ASKYN+6
DTOUT ASKYN+1~, ASKYN+6
DUOUT ASKYN+1~, ASKYN+6
DUZ ASK+8
I DUPDX+1~, DUPDX+2*
I11 ASK+12~, SECDX*, SECDX+8, SECDX+15, SECDX+18*, DUPDX+2
RA1 FILEDX+3~, FILEDX+5*, FILEDX+6, FILEDX+7, FILEDX+9*, FILEDX+10*, FILEDX+11, FILEDX+13
RA11 FILEDX+3~, FILEDX+6*, FILEDX+7
RA2 FILEDX+3~, FILEDX+12*, FILEDX+13
RABASEC ASK+12~*, SECDX+1, SECDX+2*, SECDX+3, SECDX+4
RABCOPY ASK+12~, ASK+17*, ASK+18*, PRIMDX+2, PRIMDX+6!, SECDX+5, SECDX+9!
RABCOPY(1 PRIMDX+1*, PRIMDX+6
RABCOPY(2 SECDX+4*, SECDX+9
>> RABWDX PRIMDX+17, FILEDX+2
>> RABWDX( ASK+18*, PRIMDX+14*, SECDX, SECDX+8, SECDX+15!, SECDX+19*, BAQUES+13, BAQUES+16, BAQUES+17, BAQUES+18*
, DUPDX+2, FILEDX+10, FILEDX+11, FILEDX+13
>> RABWDX(1 ASK+16*, PRIMDX+5, PRIMDX+16!, FILEDX+4, FILEDX+7
RACNT ASK+12~, ASK+17*, ASK+18*, PRIMDX+14*, SECDX+19*, BAQUES+13, BAQUES+16, BAQUES+17, BAQUES+18
>> RACRE PROV+3*, PROV+5*, PROV+6
RADEFLT BAQUES+1~, BAQUES+13*, BAQUES+14, BAQUES+16*, BAQUES+17*, BAQUES+18, ASKYN~, ASKYN+4
RADFN ASK~, BAQUES+3, FILEDX~
RADUP ASK+12~, SECDX+17*, SECDX+18, DUPDX+2*
RAEXHELP BAQUES+1~, BAQUES+10*, BAQUES+18, ASKYN~, ASKYN+2
RAFDA FILEDX+3~, FILEDX+8!, FILEDX+14!
RAFDA( FILEDX+4*, FILEDX+7*, FILEDX+11*, FILEDX+13*
RAI0 BAQUES+1~, BAQUES+7*
RAIEN FILEDX+3~, FILEDX+14!
RAKILL ASK+12!
RAMSG FILEDX+3~, FILEDX+8!, FILEDX+14!
RAO FILEDX~, FILEDX+4, FILEDX+7, FILEDX+11, FILEDX+13
RAQUES BAQUES+1~, BAQUES+8*, BAQUES+9*, BAQUES+18, ASKYN~, ASKYN+3
RAQUIT ASK+12~, PRIMDX+12*, PRIMDX+17, SECDX, SECDX+16*, BAQUES+7, ASKYN+5*
RASDCLY BAQUES+1~, BAQUES+2*, BAQUES+3
RASDCLY( BAQUES+7
RASDDT ASK~, BAQUES+3
RASEQ BAQUES+1~, BAQUES+6*, BAQUES+7
RASEQ1 BAQUES+1~, BAQUES+7*, BAQUES+8, BAQUES+9, BAQUES+10, BAQUES+11
RASEQ2 BAQUES+1~, BAQUES+11*, BAQUES+13, BAQUES+16, BAQUES+17, BAQUES+18
U ASK+16, ASK+18, PRIMDX+5, PRIMDX+6, PRIMDX+14, SECDX+8, SECDX+9, SECDX+19, BAQUES+8, BAQUES+13
, BAQUES+16, BAQUES+17, BAQUES+18, FILEDX+7, FILEDX+13
>> X PRIMDX+16, SECDX+15
>> Y PRIMDX+11*, PRIMDX+12, PRIMDX+13, PRIMDX+14*, SECDX+16, SECDX+19, ASKYN+5, ASKYN+6*, ASKYN+7, DUPDX+2
, PROV+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All