Routine: ABMTPYMT

Package	Total	Call Graph
Third Party Billing	5	^ABMDRDBQ PAZ^ABMDRUTL $$SDT^ABMDUTL GETFACS^ABMMUMUP EN^ABMVDF
VA Fileman	4	NOW^%DTC ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
INSTYPE	;
VTYP	;SELECT VISIT TYPES
TSUB	;
PRINT	;
CLIN	;SELECT CLINICS
DT	;
DATA	;
HD	;
HDR	;
SEL	;
C	;;CHAMPUS
COMPUTE	;EP - Entry Point for Setting up Data
D	;;MEDICAID FI
G	;;GUARANTOR
F	;;FRATERNAL ORG
I	;;BENEFICIARY
H	;;HMO
K	;;KIDSCARE (CHIP)
M	;;MEDICARE SUPPL.
N	;;NON-BENEFICIARY
P	;;PRIVATE
R	;;MEDICARE FI
T	;;THIRD PARTY LIABILITY
W	;;WORKMEN'S COMP
V	;;VETERANS ADMINISTRATION
MD	;;MEDICARE PART D
INSURER	;
BILL	;EP for checking Bill File data parameters
MH	;;MEDICARE HMO
INS	;
VIS	;
VSUB	;
TRIBE	;

External References

Name	Field # of Occurrence
NOW^%DTC	HDR+4
^ABMDRDBQ	DT+42
PAZ^ABMDRUTL	HD+1
$$SDT^ABMDUTL	PRINT+22, HDR+6
GETFACS^ABMMUMUP	SEL+2
EN^ABMVDF	HDR+1
^DIC	SEL+45, INSURER+8, CLIN+7, VTYP+7
$$GET1^DIQ	SEL+5, SEL+6, DATA+5, BILL+20, PRINT+20
^DIR	SEL+18, SEL+31, DT+6, DT+11, DT+21, DT+31, INSTYPE+9
^XBFMK	SEL+14, SEL+41, INSURER+4, INSTYPE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SEL+11
Function Call: WRITE	Prompt: ! Line Location: SEL+39
Function Call: WRITE	Prompt: !!," ============ Entry of Visit Date Range =============",! Line Location: DT+3
Function Call: WRITE	Prompt: ! Line Location: DT+9
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DT+15
Function Call: WRITE	Prompt: ! Line Location: DT+24
Function Call: WRITE	Prompt: ! Line Location: INSURER+2
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+8
Function Call: WRITE	Prompt: !!?48,"============",?62,"============" Line Location: PRINT+33
Function Call: WRITE	Prompt: !?30,"Report Totals",?48,$J($FN(ABMBILLT,",",2),12),?62,$J($FN(ABMPAIDT,",",2),12) Line Location: PRINT+34
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: ABM("HD",0),?$S($D(ABM(132)):103,1:48) Line Location: HDR+5
Function Call: WRITE	Prompt: Y," Page ",ABM("PG") Line Location: HDR+5
Function Call: WRITE	Prompt: !,"for Visit Dates from ",$$SDT^ABMDUTL(ABMY("DT",1))," to ",$$SDT^ABMDUTL(ABMY("DT",2)) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Billing Location: ",$P($G(^AUTTLOC(DUZ(2),0)),U,2) Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Function Call: WRITE	Prompt: "=" Line Location: HDR+9
Function Call: WRITE	Prompt: !,"PATIENT",?28,"CLAIM",?37,"DOS",?48,"AMOUNT BILLED",?62,"AMOUNT PAID",! Line Location: HDR+10
Function Call: WRITE	Prompt: "=" Line Location: HDR+11
Function Call: WRITE	Prompt: ! Line Location: HDR+12
Function Call: WRITE	Prompt: !,"Location: ",$P(ABM("TXT"),U) Line Location: LOC+1
Function Call: WRITE	Prompt: ! Line Location: VIS+1
Function Call: WRITE	Prompt: ?5,"Clinic: ",$P(^DIC(40.7,$P(ABM("TXT"),U,3),0),U) Line Location: VIS+2
Function Call: WRITE	Prompt: ?5,"Visit Type: ",$P(^ABMDVTYP($P(ABM("TXT"),U,3),0),U) Line Location: VIS+3
Function Call: WRITE	Prompt: !?48,"============",?62,"============" Line Location: VSUB+1
Function Call: WRITE	Prompt: !?30 Line Location: VSUB+2
Function Call: WRITE	Prompt: ?5,"Clinic" Line Location: VSUB+3
Function Call: WRITE	Prompt: ?5,"Visit Type" Line Location: VSUB+4
Function Call: WRITE	Prompt: " Totals",?48,$J($FN(ABMBILLV,",",2),12),?62,$J($FN(ABMPAIDV,",",2),12) Line Location: VSUB+5
Function Call: WRITE	Prompt: !?7,"Insurer: " Line Location: INS+1
Function Call: WRITE	Prompt: !?7,"Insurer Type: " Line Location: INS+2
Function Call: WRITE	Prompt: $P(ABM("TXT"),U,4) Line Location: INS+3
Function Call: WRITE	Prompt: !!?3,"Tribe: ",$P(ABM("TXT"),U,2) Line Location: TRIBE+1
Function Call: WRITE	Prompt: !?48,"============",?62,"============" Line Location: TSUB+1
Function Call: WRITE	Prompt: !?30,"Tribe Totals",?48,$J($FN(ABMBILLS,",",2),12),?62,$J($FN(ABMPAIDS,",",2),12) Line Location: TSUB+2
Routine Call	DIC Line Location: SEL+45 INSURER+8 CLIN+7 VTYP+7
Routine Call	DIR Line Location: SEL+18 SEL+31 DT+6 DT+11 DT+21 DT+31 INSTYPE+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^ABMDVTYP - [#9002274.8]	Classic Fileman Calls
^AUTTTRI - [#9999999.03]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	GET1^DIQ
^AUTNINS - [#9999999.18]	Classic Fileman Calls, GET1^DIQ
^AUTTINTY - [#9999999.181]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	COMPUTE+3, COMPUTE+5, BILL+1, BILL+2, BILL+4, BILL+5, BILL+8, BILL+9, BILL+10, BILL+11 , BILL+12, BILL+14, BILL+25, BILL+27, BILL+29, BILL+30, PRINT+21, PRINT+23, PRINT+25, PRINT+26 , PRINT+27
^ABMDVTYP - [#9002274.8]	VIS+3
^ABMMUPRM(1	SEL+7
^AUPNPAT - [#9000001]	BILL+13
^AUTNINS - [#9999999.18]	DATA+7, BILL+16
^AUTTLOC - [#9999999.06]	HDR+7
^AUTTTRI - [#9999999.03]	DATA+8
^DD("DD"	HDR+5
^DIC(4 - [#4]	DATA+2
^DIC(40.7 - [#40.7]	VIS+2
^TMP("ABM-TPYMT"	COMPUTE+1!, DATA+10*, PRINT+7, PRINT+35!

Label References

Name	Line Occurrences
BILL	DATA+1
CLIN	DT+34
DATA	COMPUTE+5
DT	DT+7, DT+13, DT+15
HD	PRINT+8
HDR	PRINT+2
INS	PRINT+15
INSTYPE	SEL+35
INSURER	SEL+34
LOC	PRINT+9
TRIBE	PRINT+10, PRINT+11
TSUB	PRINT+10, PRINT+32
VIS	PRINT+13, PRINT+14
VSUB	PRINT+10, PRINT+13, PRINT+31
VTYP	DT+35

Naked Globals

Name	Field # of Occurrence
^(1	BILL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR+5
ABM	ABMTPYMT+4!, COMPUTE+4, COMPUTE+5, DATA+10, BILL+1, BILL+2, BILL+4, BILL+5, BILL+8, BILL+9 , BILL+10, BILL+11, BILL+12, BILL+14, BILL+25, BILL+27, BILL+29, BILL+30, HDR+9, HDR+11
ABM("C"	DATA+9, BILL+5*, BILL+7
ABM("D"	DATA+10, BILL+14*, BILL+15
ABM("HD"	DT+37, HDR+3, HDR+5
ABM("I"	DATA+5, DATA+6, DATA+7, DATA+10, BILL+11, BILL+15, BILL+16, BILL+18, BILL+20, PRINT+3* , PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+19*
ABM("L"	DATA+2, DATA+10, BILL+10, BILL+15, BILL+17, PRINT+3, PRINT+9, PRINT+10, PRINT+16*
ABM("P"	DATA+10, BILL+12*, BILL+13, BILL+15
ABM("PD"	DATA+10, BILL+24, BILL+30, BILL+31
ABM("PG"	PRINT+1, HD+2, HDR+5
ABM("QUIT"	BILL+22!
ABM("S"	DATA+9, DATA+10, PRINT+9, PRINT+10, PRINT+13, PRINT+14, PRINT+18
ABM("SD"	COMPUTE+2, COMPUTE+3, COMPUTE+5
ABM("SUBR"	COMPUTE+1*
ABM("T"	PRINT+3, PRINT+9, PRINT+10, PRINT+11, PRINT+17*
ABM("TRIBE"	DATA+8, DATA+10, BILL+13, BILL+21
ABM("TXT"	PRINT+3, PRINT+7, PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19 , PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29 , PRINT+30, LOC+1, VIS+2, VIS+3, INS+3, TRIBE+1
ABM("V"	DATA+9, BILL+4, BILL+6, PRINT+3
ABM(132	HDR+5
>> ABMBILLS	PRINT+4, PRINT+25, TSUB+2, TSUB+3*
>> ABMBILLT	PRINT+5, PRINT+27, PRINT+34
>> ABMBILLV	PRINT+6, PRINT+26, VSUB+5, VSUB+6*
>> ABMCNT	SEL+3, SEL+4, SEL+5, SEL+6, SEL+7, SEL+8, SEL+9, SEL+10, SEL+23, SEL+24
>> ABMDIR	SEL+3, SEL+5, SEL+6, SEL+10, SEL+15, SEL+16
ABMF	SEL+12!, SEL+16
ABMF(	SEL+21, SEL+24
ABMFANS	SEL+12!, SEL+20*, SEL+21, SEL+22
>> ABMFLIST(	SEL+4, SEL+5, SEL+6, SEL+7, SEL+21, SEL+24
>> ABMFLIST(99999	SEL+8
ABMFQHC	SEL+3, SEL+7, SEL+10, SEL+25!
>> ABMP("HIT"	DATA+1, BILL+23, BILL+25, BILL+31
>> ABMPAIDS	PRINT+4, PRINT+28, TSUB+2, TSUB+3*
>> ABMPAIDT	PRINT+5, PRINT+30, PRINT+34
>> ABMPAIDV	PRINT+6, PRINT+29, VSUB+5, VSUB+6*
>> ABMPIEN	BILL+26, BILL+27, BILL+29, BILL+30
>> ABMQ("NS"	DT+40*
>> ABMQ("RC"	DT+38*
>> ABMQ("RP"	DT+41*
>> ABMQ("RX"	DT+39*
>> ABMTOT	SEL+9*, SEL+13, SEL+21, SEL+22
ABMY	ABMTPYMT+4!
ABMY("ALL"	DT+22*
ABMY("CLIN"	CLIN+1!, CLIN+6, CLIN+9*, CLIN+10, BILL+7, BILL+8
ABMY("DT"	DT+2, DT+8, DT+14*, DT+15, COMPUTE+2, COMPUTE+3, HDR+6
ABMY("INS"	SEL+28!, SEL+34, INSURER+7, INSURER+10, INSURER+11*, DATA+7, BILL+18, INS+1
ABMY("ITYP"	SEL+28!, SEL+35, INSTYPE+8, INSTYPE+12, INSTYPE+14*, DATA+3, BILL+20, INS+2
ABMY("LOC"	BILL+17
ABMY("POST"	DT+23*, BILL+25, BILL+31
ABMY("SORT"	DT+33*, DT+34, CLIN+11!, VTYP+11!, DATA+9, VIS+2, VIS+3, VSUB+3, VSUB+4
ABMY("TRIBE"	SEL+38!, SEL+44, SEL+47, SEL+48, BILL+21
ABMY("VTYP"	VTYP+1!, VTYP+6, VTYP+9*, VTYP+10, BILL+6, BILL+9
DIC	SEL+42, INSURER+5, CLIN+2, CLIN+13!, VTYP+2, VTYP+13!
DIC("A"	SEL+44, INSURER+7, CLIN+4, CLIN+6, VTYP+4, VTYP+6
DIC(0	SEL+43, INSURER+6, CLIN+3, VTYP+3
DIR	SEL+18!, SEL+28!, SEL+32!, DT+12!, DT+17!, DT+26!, INSTYPE+10!
DIR("?"	DT+30*
DIR("A"	SEL+17, SEL+30, DT+4, DT+10, DT+19, DT+28, INSTYPE+7*
DIR("B"	DT+20, DT+29, INSTYPE+8*
DIR(0	SEL+15, SEL+16, SEL+29, DT+5, DT+18, DT+27, INSTYPE+4, INSTYPE+6
>> DIROUT	SEL+13, SEL+19, SEL+33, SEL+40, DT+32, INSURER+3, INSTYPE+2, INSTYPE+11, PRINT+7, PRINT+8 , HD+1
>> DIRUT	SEL+13, SEL+19, SEL+33, SEL+40, DT+1, DT+7, DT+13, DT+32, INSURER+3, INSTYPE+2 , INSTYPE+11
>> DTOUT	SEL+13, SEL+19, SEL+40, INSURER+3, INSTYPE+2, PRINT+7, PRINT+8, HD+1
>> DUOUT	SEL+13, SEL+19, SEL+40, INSURER+3, INSTYPE+2, CLIN+11, VTYP+11, PRINT+7, PRINT+8, HD+1
DUZ(2	COMPUTE+3, COMPUTE+5, BILL+1, BILL+2, BILL+4, BILL+5, BILL+8, BILL+9, BILL+10, BILL+11 , BILL+12, BILL+14, BILL+25, BILL+27, BILL+29, BILL+30, PRINT+21, PRINT+23, PRINT+25, PRINT+26 , PRINT+27, HDR+7
IOSL	PRINT+8
U	DATA+2, DATA+7, DATA+8, DATA+10, BILL+4, BILL+5, BILL+8, BILL+9, BILL+10, BILL+11 , BILL+12, BILL+13, BILL+14, BILL+29, BILL+30, PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+16 , PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26 , PRINT+27, PRINT+28, PRINT+29, PRINT+30, HDR+7, LOC+1, VIS+2, VIS+3, INS+3, TRIBE+1
>> Y	SEL+13, SEL+20, SEL+34, SEL+35, SEL+40, SEL+46, SEL+48, DT+8, DT+14, DT+22 , DT+23, DT+33, INSURER+3, INSURER+9, INSURER+11, INSTYPE+2, INSTYPE+13, INSTYPE+14, CLIN+5, CLIN+8 , CLIN+9, VTYP+5, VTYP+8, VTYP+9, HDR+5

Marked Items

Name	Field # of Occurrence
$T(@ABM(1)	DATA+6

Customize PDF page

Package: Third Party Billing

Routine: ABMTPYMT

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items