Routine: ABMELGCK

Information

ABMELGCK ; IHS/SD/SDR - Recreate cancelled claim from PCC ;

Source file <ABMELGCK.m>

Package	Total	Call Graph
Third Party Billing	3	ELG^ABMDLCK $$CDT^ABMDUTL $$VTYP^ABMDVCK1
VA Fileman	2	^DIC $$GET1^DIQ

Name	Comments	DBIA/ICR reference
Q
START	;EP

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: START+20
Function Call: WRITE	Prompt: !,"For patient ",$P($G(^DPT(ABMPDFN,0)),U),", for visit ",$$CDT^ABMDUTL($P($G(^AUPNVSIT(ABMVDFN,0)),U)),! Line Location: START+21
Function Call: WRITE	Prompt: "PRIORITY",?9,"INSURER",?37,"VTYP",?42,"STATUS",?53,"REASON UNBILLABLE",! Line Location: START+23
Function Call: WRITE	Prompt: "-" Line Location: START+24
Function Call: WRITE	Prompt: ! Line Location: START+25
Function Call: WRITE	Prompt: !! Line Location: START+41
Routine Call	DIC Line Location: START+4 START+10

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCS - [#9002274.02]	START+37, START+46
^AUPNVSIT - [#9000010]	START+14, START+15, START+16, START+21
^AUTNINS - [#9999999.18]	START+32
^DPT - [#2]	START+21

Name	Line Occurrences
Q	START+5, START+11
START	START+48

Name	Field # of Occurrence
>> A	START+24*
>> ABMA	START+44, START+45, START+46
>> ABMCLN	START+16*, START+33
ABME	START+27!, START+42
ABME(	START+40*, START+45
>> ABMINS	START+29, START+30, START+32, START+33, START+35, START+37, START+39, START+40
>> ABML	START+17*, START+18
>> ABML(	START+28, START+30, START+35, START+37, START+39, START+40
>> ABMP("VDT"	START+14*
>> ABMPDFN	START+6*, START+18, START+21
>> ABMPRI	START+26, START+28, START+30, START+31, START+35, START+37, START+39, START+40
>> ABMSERVC	START+15*, START+33
ABMV	Q!
>> ABMVDFN	START+12*, START+14, START+15, START+16, START+18, START+21, START+33
>> ABMVDT	START+14*, START+18
DIC	START+1, START+7, Q!
DIC("S"	START+3, START+9
DIC(0	START+2, START+8
DIE	Q!
DR	Q!
U	START+14, START+15, START+16, START+21, START+32, START+35, START+37, START+39, START+40, START+46
>> Y	START+5, START+6, START+11, START+12