Routine: ABMDE3C

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIK ^DIR
Third Party Billing	4	$$DX^ABMCVAPI $$PRVLKUP^ABMDFUTL $$HDT^ABMDUTL $$NPIUSAGE^ABMUTLF

Entry Points

Name	Comments	DBIA/ICR reference
42	; Vision Condition Info
EMCODE	;
24	;Admitting DX
25	; Supervising Prov (FL19)
26	; Date of Last X-Ray
27	;Referral Number
20	;HCFA-1500B BLOCK 19
21	;TYPE OF ADMISSION
22	;SOURCE OF ADMISSION
23	;DISCHARGE STATUS
44	;Ord/Ref/Sup Phys (FL17)
28	;Prior Authorization Number
29	;Homebound Indicator
40	;Patient Paid Amount
41	;Spinal Manipulation Cond Code
4
9
43	;Initial Treatment Date
39	;Property/Casualty Date of 1st contact
ESET
38	;Assumed/Relinquished Care Dates
11
10
13	;
12
15
14
17
16
19
18
31	;Delayed Reason Code
30	;Hospice Employed Provider
37	;Start/End Disability Dates
36	;Hearing and Vision Prescription Date
35	;In-House CLIA#
34	;Reference Lab CLIA#
33	;Other Dental Charges
32	;#Enclosures - Radiographs/Oral Images/Models

External References

Name	Field # of Occurrence
$$DX^ABMCVAPI	24+16
$$PRVLKUP^ABMDFUTL	44+1
$$HDT^ABMDUTL	9+1, 11+1, 10+1, 17+4
$$NPIUSAGE^ABMUTLF	12+4, 25+3
^DIC	42+12
FILE^DICN	EMCODE+5
^DIE	9, 9+1, 11, 11+1, 12, 12+1, 12+7, 12+11, 12+29, 12+33 , 12+37, 10, 10+1, 4+7, ESET, 14, 15, 16, 17, 17+2 , 17+3, 17+4, 18, 18+1, 19, 20+2, 21+1, 22+2, 23+1, 24+18 , 24+20, 25+1, 25+2, 25+5, 25+7, 26+1, 27+1, 28+1, 29+1, 30+1 , 31+1, 32+2, 32+3, 32+4, 33+1, 34+7, 35+1, 36+1, 37+2, 37+3 , 38+2, 38+3, 39+1, 40+1, 41+1, 41+3, 41+4, 42+5, 43+1, 44+2 , 44+3, 44+4, 44+6, 44+7
^DIK	4+9
^DIR	12+26, 4+3, 24+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 9+0
Function Call: WRITE	Prompt: *7,!!,"ERROR: Date can not be after the Visit Date (",$$HDT^ABMDUTL(ABMP("VDT")),")!" Line Location: 9+1
Function Call: WRITE	Prompt: ! Line Location: 11+0
Function Call: WRITE	Prompt: *7,!!,"ERROR: Date can not be after the Visit Date (",$$HDT^ABMDUTL(ABMP("VDT")),")!" Line Location: 11+1
Function Call: WRITE	Prompt: ! Line Location: 12+0
Function Call: WRITE	Prompt: ! Line Location: 10+0
Function Call: WRITE	Prompt: *7,!!,"ERROR: Date can not be after the Visit Date (",$$HDT^ABMDUTL(ABMP("VDT")),")!" Line Location: 10+1
Function Call: WRITE	Prompt: ! Line Location: 4+0
Function Call: WRITE	Prompt: ! Line Location: EMCODE+6
Function Call: WRITE	Prompt: ! Line Location: 14+0
Function Call: WRITE	Prompt: ! Line Location: 15+0
Function Call: WRITE	Prompt: ! Line Location: 16+0
Function Call: WRITE	Prompt: ! Line Location: 17+0
Function Call: WRITE	Prompt: *7,!!,"ERROR: Date can not be after the Visit Date (",$$HDT^ABMDUTL(ABMP("VDT")),")!" Line Location: 17+4
Function Call: WRITE	Prompt: ! Line Location: 18+0
Function Call: WRITE	Prompt: ! Line Location: 19+0
Function Call: WRITE	Prompt: !,?15,ABM("-") Line Location: 20+1
Function Call: WRITE	Prompt: !," CODING SYSTEM IS "_$S(ABMP("VDT")<ABMP("ICD10"):"ICD-9",1:"ICD-10")_" " Line Location: 24+1
Function Call: WRITE	Prompt: !,"Number of Enclosures: ",! Line Location: 32+1
Routine Call	DIE Line Location: 9 9+1 11 11+1 12 12+1 12+7 12+11 12+29 12+33 12+37 10 10+1 4+7 ESET 14 15 16 17 17+2 17+3 17+4 18 18+1 19 20+2 21+1 22+2 23+1 24+18 24+20 25+1 25+2 25+5 25+7 26+1 27+1 28+1 29+1 30+1 31+1 32+2 32+3 32+4 33+1 34+7 35+1 36+1 37+2 37+3 38+2 38+3 39+1 40+1 41+1 41+3 41+4 42+5 43+1 44+2 44+3 44+4 44+6 44+7
Routine Call	DIC Line Location: 42+12
Routine Call	DIR Line Location: 12+26 4+3 24+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABMDCLM - [#9002274.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	12+1, 12+12, 12+14, 12+15, 12+17, 12+18, 12+20, 12+21, 4+1, 4+7 , 4+8, EMCODE+4*, 22+1, 24+16, 41+3, 41+4, 44+1, 44+4, 44+5, 44+6 , 44+7
^ABMDCODE("AC"	4+9, EMCODE+2
^ABMDPARM(	34+3, 35+1
^ABMPTAX - [#9002274.95]	12+21
^ABMRLABS - [#9002274.35]	34+4
^AUTTVNDR - [#9999999.11]	34+5
^DD(9002274.3	42+11
^DIC(7 - [#7]	12+18
^USC(8932.1 - [#8932.1]	12+15

Label References

Name	Line Occurrences
10	10+1
11	11+1
17	17+4
9	9+1
EMCODE	4+6
ESET	EMCODE+7

Naked Globals

Name	Field # of Occurrence
^(5	22+1*
^(9	4+1, 4+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM("#"	9, 11, 12, 10, 4, 14, 15, 16, 17, 18 , 19, 20+2, 21+1, 22+2, 23+1, 24+15, 25+1, 25+2, 25+5, 25+7 , 26+1, 27+1, 28+1, 29+1, 30+1, 31+1, 33+1, 35+1, 36+1, 37+2 , 37+3, 38+2, 38+3, 39+1, 40+1, 41+1, 42+3, 43+1
>> ABM("-"	20+1*
>> ABM("PROVIDER"	44+1*, 44+2, 44+3
>> ABM("QU"	EMCODE+7, EMCODE+8
>> ABM("Y"	4+5*, 4+7
ABMDCLIA	34+1~, 34+3, 34+4, 34+5*, 34+6, 34+8!
>> ABMNPIU	12+4, 12+5, 12+8, 25+3, 25+4, 25+6
>> ABMP("CDFN"	9, 11, 12, 12+14, 12+15, 12+17, 12+18, 12+20, 12+21, 10 , 4+1, 4+7, 4+8, 4+9, EMCODE+3, EMCODE+6, 14, 15, 16, 17 , 18, 19, 20+2, 21+1, 22+1, 22+2, 23+1, 24+16, 24+18, 24+20 , 25+1, 25+2, 25+5, 25+7, 26+1, 27+1, 28+1, 29+1, 30+1, 31+1 , 32+2, 32+3, 32+4, 33+1, 34+2, 35+1, 36+1, 37+1, 38+1, 39+1 , 40+1, 41+1, 41+3, 41+4, 42+2, 42+8, 43+1, 44+1, 44+2, 44+3 , 44+4, 44+5, 44+6, 44+7
>> ABMP("ICD10"	24+1, 24+13, 24+14
>> ABMP("INS"	12+4, 25+3
>> ABMP("LDFN"	12+4, 25+3
>> ABMP("VDT"	9+1, 11+1, 10+1, 17+4, 24+1, 24+13, 24+14
>> ABMTXFLG	12+13, 12+16, 12+19, 12+22, 12+23, 12+30, 12+34, 12+38*
DA	9, 11, 12, 12+1, 12+12, 10, 4+7, 4+9, EMCODE+6, 14 , 15, 16, 17, 18, 19, 20+2, 21+1, 22+2, 23+1, 24+18 , 24+20, 25+1, 25+2, 25+5, 25+7, 26+1, 27+1, 28+1, 29+1, 30+1 , 31+1, 32+2, 32+3, 32+4, 33+1, 34+2, 35+1, 36+1, 37+1, 38+1 , 39+1, 40+1, 41+1, 42+2, 42+7!, 43+1, 44+2, 44+3, 44+4, 44+6* , 44+7*
DA(1	4+9, EMCODE+3, EMCODE+4, 42+8*, 42+9
DD	EMCODE+3!
DIC	EMCODE+3, EMCODE+5!, 42+7!, 42+9
DIC("P"	42+11*
DIC(0	EMCODE+3, 42+10
DIE	9, 11, 12, 10, 4+7, EMCODE+6, 14, 15, 16, 17 , 18, 19, 20+2, 21+1, 22+2, 23+1, 24+18, 24+20, 25+1, 25+2 , 25+5, 25+7, 26+1, 27+1, 28+1, 29+1, 30+1, 31+1, 32+2, 32+3 , 32+4, 33+1, 34+2, 35+1, 36+1, 37+1, 38+1, 39+1, 40+1, 41+1 , 42+1, 42+7!, 43+1, 44+2, 44+3, 44+4, 44+6, 44+7*
DIE("NO^"	44+6*
>> DIK	4+9*
>> DINUM	EMCODE+2*
DIR	12+26!, 4!, 4+3!, 24+11!, 42+7!
DIR("?"	4*
DIR("A"	12+25, 4, 24+15*
DIR("B"	4+1, 4+2, 24+16*
DIR("S"	24+13, 24+14
DIR(0	12+24, 4, 24+12*
>> DIROUT	4+4, 24+19
>> DIRUT	24+19
DO	EMCODE+3!
DR	9!, 9+1, 11!, 11+1, 12, 12+1, 12+6, 12+9, 12+10, 12+28 , 12+32, 12+36, 12+39!, 10!, 10+1, 4+7!, EMCODE+6, EMCODE+8, EMCODE+9, ESET! , 14!, 15!, 16!, 17!, 17+2, 17+3, 17+4, 18!, 18+1, 19! , 20+2!, 21+1, 22+2, 23+1, 24+11!, 24+18, 24+20, 25+1, 25+2, 25+5* , 25+7, 26+1, 27+1, 28+1, 29+1, 30+1, 31+1, 32+2, 32+3, 32+4 , 33+1, 34+6, 35+1, 36+1, 37+2, 37+3, 38+2, 38+3, 39+1, 40+1 , 41+1, 41+3, 41+4, 42+3, 42+4, 43+1, 44+2, 44+3, 44+4, 44+6 , 44+7*
>> DTOUT	4+4, 24+19
>> DUOUT	4+4, 24+19
DUZ(2	12+1, 12+12, 12+14, 12+15, 12+17, 12+18, 12+20, 12+21, 4+1, 4+7 , 4+8, EMCODE+4, 22+1, 24+16, 34+3, 35+1, 41+3, 41+4, 44+1, 44+4 , 44+5, 44+6, 44+7
U	12+1, 12+12, 12+14, 12+15, 12+17, 12+18, 12+20, 12+21, 4+1, 4+7 , 24+16, 34+3, 34+4, 34+5, 35+1, 41+3, 41+4, 42+11, 44+1, 44+2 , 44+3, 44+4, 44+5, 44+6, 44+7
X	9+1, 11+1, 12+1, 12+30, 12+34, 12+38, 10+1, EMCODE+2*, 17+1, 17+4 , 18+1, 24+11!, 24+18, 42+7!
Y	12+27, 12+31, 12+35, 4+5, 4+6, 24+11!, 24+20, 42+6, 42+7!

Customize PDF page

Package: Third Party Billing

Routine: ABMDE3C

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: