Routine: ABMDRBR2

Information

ABMDRBR2 ; IHS/ASDST/DMJ - Brief Claim List - 132 width ;

Package	Total	Call Graph
Third Party Billing	3	WHD^ABMDRHD PAZ^ABMDRUTL $$SDT^ABMDUTL

Name	Line Occurrences
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+6
Function Call: WRITE	Prompt: !?7,$S(ABMY("SORT")="C":"Clinic: "_$P(^DIC(40.7,$P(ABM("TXT"),U,2),0),U),1:"Visit Type: "_$P(^ABMDVTYP($P(ABM("TXT"),U,2),0),U)) Line Location: PRINT+12
Function Call: WRITE	Prompt: ?92,$$SDT^ABMDUTL($P(^(6),U,3)) Line Location: PRINT+25
Function Call: WRITE	Prompt: ?104,$E($P(^DIC(40.7,$P(ABM("C"),U,6),0),U),1,28) Line Location: PRINT+26
Function Call: WRITE	Prompt: ?100,$E($P(^ABMDVTYP($P(ABM("C"),U,7),0),U),1,30) Line Location: PRINT+27
Function Call: WRITE	Prompt: !?72,"======" Line Location: PRINT+31
Function Call: WRITE	Prompt: !?64,"Total:",?72,$FN(ABM("CNT"),",",0) Line Location: PRINT+32
Function Call: WRITE	Prompt: !,?72,"Claim",?81,"Visit",?90,"Discharge" Line Location: HDB+1
Function Call: WRITE	Prompt: !?3,"STA",?11,"Patient",?33,"HRN",?45,"Active Insurer",?72,"Number",?82,"Date",?92,"Date",?104,$S(ABMY("SORT")="V":"Clinic",1:"Visit Type") Line Location: HDB+3
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: HDB+4
Function Call: WRITE	Prompt: !!?3,"Visit Location: ",$P(ABM("TXT"),U) Line Location: LOC+0
Function Call: WRITE	Prompt: !?72,"------" Line Location: SUB+1
Function Call: WRITE	Prompt: !?61,"Subtotal:",?72,$FN(ABM("SUBCNT"),",",0) Line Location: SUB+2

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	PRINT+8, PRINT+16, PRINT+25
^ABMDVTYP - [#9002274.8]	PRINT+12, PRINT+27
^AUPNPAT - [#9000001]	PRINT+21
^AUTNINS - [#9999999.18]	PRINT+22
^DIC(40.7 - [#40.7]	PRINT+12, PRINT+26

Name	Field # of Occurrence
^(0	PRINT+21
^(6	PRINT+25

Name	Field # of Occurrence
>> ABM	PRINT+4, PRINT+5, PRINT+7
>> ABM("A"	PRINT+4*, PRINT+5
>> ABM("C"	PRINT+8*, PRINT+9, PRINT+21, PRINT+22, PRINT+24, PRINT+26, PRINT+27
>> ABM("CNT"	PRINT+3, PRINT+28, PRINT+32
>> ABM("L"	PRINT+3, PRINT+10, PRINT+11
>> ABM("LINE"	HDB+4*!
>> ABM("PG"	HDB*
>> ABM("PRINT"	PRINT+2
>> ABM("PRIVACY"	PRINT+1*
>> ABM("SUBCNT"	PRINT+3, PRINT+28, SUB, SUB+2, SUB+3*
>> ABM("T"	PRINT+7*
>> ABM("TXT"	PRINT+3, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+19, PRINT+23 , PRINT+25, LOC
>> ABM("V"	PRINT+3, PRINT+10, PRINT+12, PRINT+13*
>> ABMSTA	PRINT+16, PRINT+17, PRINT+18
>> ABMY("SORT"	PRINT+12, PRINT+26, HDB+3
>> DIROUT	PRINT+5, PRINT+6, PRINT+29, HD
>> DTOUT	PRINT+5, PRINT+6, PRINT+29, HD
>> DUOUT	PRINT+5, PRINT+6, PRINT+29, HD
DUZ(2	PRINT+8, PRINT+16, PRINT+21, PRINT+25
IO	PRINT+2
IOSL	PRINT+6
U	PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+19, PRINT+21, PRINT+22 , PRINT+23, PRINT+25, PRINT+26, PRINT+27, LOC