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 ;12/20/04 12:55am

Source Information

Source file <RABWORD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 ^DIC  (FILE,UPDATE)^DIE  ^DIR  
Radiology Nuclear Medicine 2 FB^RABWIBB  BADISP^RABWORD1  
Integrated Billing 1 $$CIDC^IBBAPI  
Kernel 1 $$ACTIVE^XUSER  
Scheduling 1 CL^SDCO21  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 3 RABWORD1  RAMAG02A  RAORD1  
Imaging 1 MAGVIM08  

Entry Points

Name Comments DBIA/ICR reference
ASK(RADFN,RASDDT) ; Ask ICD DX & SC/EI/MST/HNC questions at time of Order.
; Called from BAQUES^RAORD1
PRIMDX
SECDX
BAQUES ; Ask the SC/EI/MST/HNC questions associated to each ICD Dx.
ASKYN(RAQUES,RADEFLT,RAEXHELP) ; Ask Yes/No Questions
DUPDX ; Check If A Duplicate ICD Dx Has Been Entered.
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.
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

External References

Name Field # of Occurrence
^DIC PRIMDX+7, SECDX+10
FILE^DIE FILEDX+8
UPDATE^DIE FILEDX+14
^DIR ASKYN+4
$$CIDC^IBBAPI ASK+3
FB^RABWIBB PFSS+3
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+15
Routine Call
  • DIC
  • Line Location:
    • PRIMDX+7
    • SECDX+10
Routine Call
  • DIE
  • Line Location:
    • FILEDX+8
Routine Call
  • DIE
  • Line Location:
    • FILEDX+14
Routine Call
  • DIR
  • Line Location:
    • ASKYN+4

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+6, ASK+8, ASK+10, PRIMDXPRIMDX+1, SECDX+1, SECDX+2, SECDX+4, SECDX+17!, BAQUES+14
BAQUES+16, BAQUES+17
^XUSEC("PROVIDER" ASK+2, PROV+5

Label References

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

Naked Globals

Name Field # of Occurrence
^( ASK+10
^("BA" ASK+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC ASK+4~, PRIMDX+3*, SECDX+6*
DIC("A" PRIMDX+4*, SECDX+7*
DIC("B" PRIMDX+5*, PRIMDX+6*, SECDX+8*, SECDX+9*
DIC("S" PRIMDX+7*, SECDX+10*
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+2
I DUPDX+1~, DUPDX+2*
I11 ASK+4~, SECDX*, SECDX+8, SECDX+12, SECDX+15*, 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+4~*, SECDX+1, SECDX+2*, SECDX+3, SECDX+4
RABCOPY ASK+4~, ASK+9*, ASK+10*, PRIMDX+2, PRIMDX+6!, SECDX+5, SECDX+9!
RABCOPY(1 PRIMDX+1*, PRIMDX+6
RABCOPY(2 SECDX+4*, SECDX+9
>> RABWDX PRIMDX+14, FILEDX+2
>> RABWDX( ASK+10*, PRIMDX+11*, SECDXSECDX+8, SECDX+12!, SECDX+16*, BAQUES+13, BAQUES+16, BAQUES+17, BAQUES+18*
DUPDX+2, FILEDX+10, FILEDX+11, FILEDX+13
>> RABWDX(1 ASK+8*, PRIMDX+5, PRIMDX+13!, FILEDX+4, FILEDX+7
RACNT ASK+4~, ASK+9*, ASK+10*, PRIMDX+11*, SECDX+16*, BAQUES+13, BAQUES+16, BAQUES+17, BAQUES+18
>> RACPRS PFSS+3
>> 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~, ASK+3, BAQUES+3, FILEDX~
RADUP ASK+4~, SECDX+14*, SECDX+15, 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+4!
RAMSG FILEDX+3~, FILEDX+8!, FILEDX+14!
RAO FILEDX~, FILEDX+4, FILEDX+7, FILEDX+11, FILEDX+13, PFSS+3
RAQUES BAQUES+1~, BAQUES+8*, BAQUES+9*, BAQUES+18, ASKYN~, ASKYN+3
RAQUIT ASK+4~, PRIMDX+9*, PRIMDX+14, SECDXSECDX+13*, 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+8, ASK+10, PRIMDX+5, PRIMDX+6, PRIMDX+11, SECDX+8, SECDX+9, SECDX+16, BAQUES+8, BAQUES+13
BAQUES+16, BAQUES+17, BAQUES+18, FILEDX+7, FILEDX+13
>> X PRIMDX+13, SECDX+12
>> Y PRIMDX+8*, PRIMDX+9, PRIMDX+10, PRIMDX+11*, SECDX+13, SECDX+16, 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