Routine: ABMDEADD

Information

ABMDEADD ; IHS/ASDST/DMJ - Add New Claim - Non PCC Option ;

Package	Total	Call Graph
Third Party Billing	4	^ABMDEAD2 ELG^ABMDLCK $$FINDOPEN^ABMUCUTL $$EN^ABMVDF
VA Fileman	2	^DIC ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ABMDEADD+11
Function Call: WRITE	Prompt: *7 Line Location: PAT+15
Function Call: WRITE	Prompt: *7 Line Location: CLN+4
Function Call: WRITE	Prompt: *7 Line Location: VTYP+4
Function Call: WRITE	Prompt: !!,"The following Claims already exist for this Patient on this date:" Line Location: CHK+11
Function Call: WRITE	Prompt: !!,"Claim",?8,"Location",?40,"Clinic",?62,"Visit Type",!,"-------------------------------------------------------------------------------" Line Location: CHK+12
Function Call: WRITE	Prompt: !!,"Checking eligibility..." Line Location: LCHK+1
Function Call: WRITE	Prompt: !!,"Insurance type undefined for this insurer.",! Line Location: TST+6
Function Call: WRITE	Prompt: !!,*7,"Claim ",$$EN^ABMVDF("RVN"),"NOT",$$EN^ABMVDF("RVF")," created.",! Line Location: TST+11
Function Call: WRITE	Prompt: *7,!!,"Claim Number: ",ABM," already exists with the Identifiers entered above!",!?5,"(NOTE: Use the EDIT CLAIM Option to Access Existing Claims)" Line Location: DUP+0
Routine Call	DIC Line Location: PAT+13 CLN+2 VTYP+3 TST+5
Routine Call	DIR Line Location: PAT+4 PAT+10 EDT+3 CHK+18 DDT+3 TST+4 DUP+1

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	CHK+1, CHK+2, CHK+4, CHK+6, CHK+7, CHK+14, CHK+15, CHK+16, CHK+17
^ABMDPARM(	PAT+2, PAT+6
^ABMDVTYP - [#9002274.8]	CHK+17
^AUTNINS - [#9999999.18]	TST+6
^DIC(4 - [#4]	CHK+15
^DIC(40.7 - [#40.7]	CHK+16
^DPT - [#2]	EDT+1

Name	Line Occurrences
CLN	CLN+4
DDT	CHK+10
DUP	CHK+9
VTYP	VTYP+4
XIT	PAT+14, PAT+15, CLN+3, VTYP+5, EDT+4, CHK+18, DDT, DUP+2

Name	Field # of Occurrence
ABM	PAT!, CHK+1, CHK+2, CHK+3, CHK+4, CHK+6, CHK+7, CHK+13, CHK+14, CHK+15 , CHK+16, CHK+17, XIT!, DUP
ABM(	CHK+3*, CHK+13
ABM("F1"	TST+4, TST+5, TST+6, TST+8, TST+9
ABM("TYP"	TST+6*, TST+7
ABM(0	CHK+10
ABMDUP	CHK+5, CHK+8, CHK+9, XIT!
ABME	XIT!
ABML	LCHK+3, TST+1, XIT!
ABML(""	TST+1
ABML(1	TST+7*
ABMP	PAT!, XIT!
ABMP("BTYP"	EDT+2
ABMP("CLN"	CLN+5*, CHK+7
ABMP("DDT"	EDT+6, DDT+4
ABMP("LDFN"	LOC*, CHK+6
ABMP("PDFN"	PAT+16*, EDT+1, CHK+1, LCHK+2
ABMP("VDFN"	LCHK+2
ABMP("VDT"	EDT+5*, CHK+2, DDT+1, LCHK+2
ABMP("VTYP"	VTYP+6*, EDT+2, EDT+6, CHK+4, CHK+5, DDT
>> ABMPDFN	LCHK+2*, LCHK+3
>> ABMUOPNS	PAT+6, PAT+7*, PAT+8
ABMV	XIT!
>> ABMVDFN	LCHK+2*, LCHK+3
>> ABMVDT	LCHK+2*, LCHK+3
ABMX	XIT!
>> AUPNLK("ALL"	XIT!
DIC	PAT+11!, CLN!, VTYP!, VTYP+3!, TST+5!, XIT!
DIC("A"	PAT+12, CLN+1, VTYP+1, TST+5
DIC("B"	CLN+1, VTYP
DIC("S"	VTYP+2, TST+5
DIC(0	PAT+11, CLN, VTYP, TST+5
DIR	PAT+4!, PAT+10!, EDT+1!, CHK+18!, DDT+1!, TST+4!, DUP+1!
DIR("A"	PAT+4, PAT+10, EDT+2, CHK+18, DDT+2, TST+4
DIR("B"	TST+4*
DIR(0	PAT+4, PAT+10, EDT+1, CHK+18, DDT+1, TST+4, DUP+1*
>> DIROUT	CLN+3, VTYP+5, EDT+4, DDT
>> DTOUT	PAT+14, CLN+3, VTYP+5, EDT+4, DDT
>> DUOUT	PAT+14, CLN+3, VTYP+5, EDT+4, DDT
DUZ	PAT+7
DUZ(2	PAT+2, PAT+6, LOC, CHK+1, CHK+2, CHK+4, CHK+6, CHK+7, CHK+14, CHK+15 , CHK+16, CHK+17
U	ABMDEADD+11*, PAT+2, PAT+6, EDT+1, CHK+2, CHK+4, CHK+6, CHK+7, CHK+15, CHK+16 , CHK+17, TST+6
>> X	PAT+14, CLN+4, VTYP+4
>> Y	PAT+15, PAT+16, CLN+5, VTYP+6, EDT+5, EDT+6, CHK+18, DDT+4, TST+4, TST+5 , TST+6, TST+7