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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RABWORD

Call Graph Total: 6

Caller Graph Total: 3