Routine: ABMMUFAC

Call Graph Total: 12

Package	Total	Call Graph
Third Party Billing	8	^ABMDRDBQ PAZ^ABMDRUTL ($$SDT,$$Y2KD2)^ABMDUTL (FACHOS,GETBILLS,LBK,VISITS)^ABMMUFC1 WRTSUMHO^ABMMUFC2 CLAIMS^ABMMUFC3 GETBILLS^ABMMUFC5 $$EN^ABMVDF
VA Fileman	2	NOW^%DTC ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

^ABMDRDBQ PAZ^ABMDRUTL ($$SDT,$$Y2KD2)^ABMDUTL (FACHOS,GETBILLS,LBK,VISITS)^ABMMUFC1 WRTSUMHO^ABMMUFC2 CLAIMS^ABMMUFC3 GETBILLS^ABMMUFC5 $$EN^ABMVDF

VA Fileman

NOW^%DTC ^DIR

IHS VA Utilities

^XBFMK

Kernel

^%ZTLOAD

Package	Total	Caller Graph
Third Party Billing	6	ABMMUFC1 ABMMUFC2 ABMMUFC3 ABMMUFC4 ABMMUFC5 ABMMUFC6

Package

Total

Caller Graph

Third Party Billing

ABMMUFC1 ABMMUFC2 ABMMUFC3 ABMMUFC4 ABMMUFC5 ABMMUFC6

Name	Comments	DBIA/ICR reference
WHD	;EP
FACHOS	;EP
WRTSUM	;
RTYPE	;sum or dtl?
QUE	;TASKMAN
SETCAT	;
HD
DTTYP	;
XIT2	;
XIT	;
FDT	;
GETTOTS	;
DTR	;
LBK	;
SEL	;Select device
GETLOCS	;

External References

Name	Field # of Occurrence
NOW^%DTC	WHD+3
^%ZTLOAD	QUE+5
^ABMDRDBQ	SEL+10, SEL+38
PAZ^ABMDRUTL	WRTSUM+28, HD
$$SDT^ABMDUTL	WHD+6, WHD+7
$$Y2KD2^ABMDUTL	FDT+4
FACHOS^ABMMUFC1	FACHOS+1
GETBILLS^ABMMUFC1	GETTOTS+15
LBK^ABMMUFC1	LBK+1
VISITS^ABMMUFC1	GETTOTS+18
WRTSUMHO^ABMMUFC2	WRTSUM+1
CLAIMS^ABMMUFC3	GETTOTS+16
GETBILLS^ABMMUFC5	GETTOTS+8
$$EN^ABMVDF	WHD+1
^DIR	DTTYP+7, FDT+5, DTR+4, DTR+9, RTYPE+6
^XBFMK	DTTYP+1, FDT+1, DTR+1, SEL+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will calculate the number of Covered Inpatient days for Medicare," Line Location: ABMMUFAC+9
Function Call: WRITE	Prompt: !,"Medicaid, and Private Insurance. Outpatient All-Inclusive Rate (AIR) bills are" Line Location: ABMMUFAC+10
Function Call: WRITE	Prompt: !,"counted. A report can be selected to view the bills used in the calculations." Line Location: ABMMUFAC+11
Function Call: WRITE	Prompt: !!! Line Location: ABMMUFAC+12
Function Call: WRITE	Prompt: ! Line Location: DTTYP+11
Function Call: WRITE	Prompt: ! Line Location: FDT+8
Function Call: WRITE	Prompt: ! Line Location: DTR+7
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DTR+13
Function Call: WRITE	Prompt: ! Line Location: RTYPE+1
Function Call: WRITE	Prompt: ?CENTER-($L("-- P R I V A T E I N S U R A N C E --")/2),"-- P R I V A T E I N S U R A N C E --" Line Location: WRTSUM+9
Function Call: WRITE	Prompt: ?CENTER-($L("-- M E D I C A R E --")/2),"-- M E D I C A R E --" Line Location: WRTSUM+10
Function Call: WRITE	Prompt: ?CENTER-($L("-- M E D I C A I D --")/2),"-- M E D I C A I D --" Line Location: WRTSUM+11
Function Call: WRITE	Prompt: ?CENTER-($L("-- K I D S C A R E / C H I P --")/2),"-- K I D S C A R E / C H I P --" Line Location: WRTSUM+12
Function Call: WRITE	Prompt: ?CENTER-($L("-- V E T E R A N S M E D I C A L B E N P R O G --")/2),"-- V E T E R A N S M E D I C A L B E N P R O G --" Line Location: WRTSUM+13
Function Call: WRITE	Prompt: ?CENTER-($L("-- O T H E R --")/2),"-- O T H E R --" Line Location: WRTSUM+14
Function Call: WRITE	Prompt: " (cont)" Line Location: WRTSUM+25
Function Call: WRITE	Prompt: !!,"(SUMMARY REPORT COMPLETE):" Line Location: WRTSUM+27
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),! Line Location: WHD+1
Function Call: WRITE	Prompt: ABM("LINE"),! Line Location: WHD+2
Function Call: WRITE	Prompt: ABM("HD",0),?$S($D(ABM(132)):103,1:48) Line Location: WHD+4
Function Call: WRITE	Prompt: Y,$S(ABMTYP="SUM":" Page "_ABM("PG"),1:"") Line Location: WHD+4
Function Call: WRITE	Prompt: !,"Billing Location: ",$P($G(^AUTTLOC(ABMPAR,0)),U,2) Line Location: WHD+10
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: WHD+11
Function Call: WRITE	Prompt: U_"HRN"_U_"VISIT"_U_"VISIT LOCATION" Line Location: WHD+17
Function Call: WRITE	Prompt: U_"HRN"_U_"VISIT"_U_"VISIT LOCATION"_U_"BILL TYPE"_U_"VISIT TYPE"_U_"ALL INSURER TYPES"_U_"ADMISSION TYPE" Line Location: WHD+18
Function Call: WRITE	Prompt: U_"VISIT"_U_"VISIT LOCATION" Line Location: WHD+19
Function Call: WRITE	Prompt: "-" Line Location: WHD+28
Routine Call	DIR Line Location: DTTYP+7 FDT+5 DTR+4 DTR+9 RTYPE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	WHD+10
^BAR(90052.05	GETLOCS+9, GETLOCS+10, GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+20, GETLOCS+21, GETLOCS+22
^DD("DD"	WHD+4
^TMP($J	ABMMUFAC+14!, ABMMUFAC+15!, XIT+1!, XIT+2!, WRTSUM+15, WRTSUM+16, WRTSUM+18, WRTSUM+19, WRTSUM+20, WRTSUM+21 , WRTSUM+22, WRTSUM+23, WRTSUM+24

Name	Line Occurrences
DTR	DTTYP+13, DTR+11, DTR+13
DTTYP	DTTYP+20
FACHOS	DTTYP+24
FDT	DTTYP+12
GETLOCS	DTTYP+19, GETTOTS+1
HD	WRTSUM+25
LBK	DTTYP+16
RTYPE	DTTYP+26
WHD	WRTSUM+4

Name	Field # of Occurrence
^(0	GETLOCS+15, GETLOCS+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WHD+4
>> ABM("HD"	WRTSUM+2, WHD+4, WHD+5, WHD+6, WHD+7, WHD+8, WHD+9
>> ABM("LINE"	WHD+2!*, WHD+11!
>> ABM("PG"	WRTSUM+3, WHD+4, WHD+12
>> ABM(132	WHD+2, WHD+4
ABMB	XIT+3!
ABMC	XIT+3!
>> ABMDTYP	DTTYP+9*, DTTYP+12, DTTYP+13, DTTYP+15, GETLOCS+1, GETLOCS+4, WHD+5, WHD+6, WHD+7
>> ABMDUZ2	GETTOTS+5, GETTOTS+12, GETTOTS+17, WRTSUM+29
>> ABMFFLG	SETCAT+6, SETCAT+7, SETCAT+11
>> ABMI	WHD+28*
>> ABMITYP	WRTSUM+6, WRTSUM+7, WRTSUM+9, WRTSUM+10, WRTSUM+11, WRTSUM+12, WRTSUM+13, WRTSUM+14, WRTSUM+15, WRTSUM+16 , WRTSUM+18, WRTSUM+19, WRTSUM+20, WRTSUM+21, WRTSUM+22, WRTSUM+23, WRTSUM+24
>> ABML	GETTOTS+4, GETTOTS+6, GETTOTS+7, GETTOTS+11, GETTOTS+13, GETTOTS+14, GETLOCS+19, GETLOCS+20, GETLOCS+23
>> ABMLOC(	GETTOTS+6, GETTOTS+13, GETLOCS+18, GETLOCS+23
ABMMFLG	XIT+3!
ABMP	ABMMUFAC+13!, XIT+3!
ABMP("BTYP"	SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8, SETCAT+9, SETCAT+10
ABMP("EDT"	GETLOCS+3, GETLOCS+6, GETLOCS+14, GETLOCS+21
ABMP("NEWBORN"	SETCAT+3, SETCAT+4
ABMP("RPT-CAT"	SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8, SETCAT+9, SETCAT+10, SETCAT+11 , SETCAT+12*
ABMP("SDT"	GETLOCS+2, GETLOCS+5, GETLOCS+15, GETLOCS+22
ABMP("SWINGBED"	SETCAT+2
ABMP("VTYP"	SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8
>> ABMPAR	DTTYP+20, GETLOCS+8, GETLOCS+9, GETLOCS+10, GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+17, GETLOCS+18, GETLOCS+20 , GETLOCS+21, GETLOCS+22, WHD+10
ABMPSFLG	GETLOCS+7!, GETLOCS+9, GETLOCS+16*
ABMPT	XIT+3!
ABMPTINA	XIT+3!
>> ABMQ("NS"	SEL+7, SEL+35
>> ABMQ("RC"	SEL+8, SEL+36
>> ABMQ("RP"	SEL+9, SEL+37
>> ABMQ("RX"	SEL+6, SEL+34
>> ABMSC	SETCAT+2, SETCAT+3, SETCAT+4, SETCAT+5, SETCAT+6, SETCAT+7, SETCAT+8, SETCAT+9, SETCAT+10
>> ABMSUMDT	RTYPE+8*, SEL+1, SEL+5, SEL+6, SEL+11, SEL+34
>> ABMTYP	WRTSUM+4*, WHD+4, WHD+13, WHD+20
ABMY	ABMMUFAC+13!, XIT+3!
ABMY("DT"	FDT+7, DTR+6, DTR+12*, DTR+13, GETLOCS+2, GETLOCS+3, GETLOCS+5, GETLOCS+6, WHD+5, WHD+6 , WHD+7
ABMY("FACHOS"	DTTYP+10*, GETTOTS+3, WRTSUM+1, WRTSUM+18, WHD+18, WHD+19, WHD+23, WHD+26
>> CENTER	WRTSUM+5*, WRTSUM+9, WRTSUM+10, WRTSUM+11, WRTSUM+12, WRTSUM+13, WRTSUM+14
DA	RTYPE+2!
DIC	RTYPE+2!
DIE	RTYPE+2!
DIR	DTR+10!, RTYPE+2!, RTYPE+6!
DIR("A"	DTTYP+3, FDT+2, DTR+2, DTR+8, RTYPE+4*
DIR("B"	DTTYP+6, FDT+4, RTYPE+5*
DIR(0	DTTYP+4, FDT+3, DTR+3, RTYPE+3
>> DIROUT	DTTYP+8, DTTYP+17, FDT+6, DTR+5, RTYPE+7, WRTSUM+25, WRTSUM+28, HD
>> DIRUT	DTTYP+8, DTTYP+17, FDT+6, DTR+5, DTR+11, RTYPE+7
DT	FDT+4
>> DTOUT	DTTYP+8, DTTYP+17, FDT+6, DTR+5, RTYPE+7, WRTSUM+25, WRTSUM+28, HD
>> DUOUT	DTTYP+8, DTTYP+17, FDT+6, DTR+5, RTYPE+7, WRTSUM+25, WRTSUM+28, HD
DUZ(2	GETTOTS+5, GETTOTS+7, GETTOTS+12, GETTOTS+14, GETTOTS+17, GETLOCS+10, GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+21 , GETLOCS+22, WRTSUM+29
IOM	WRTSUM+5
IOSL	WRTSUM+25
U	GETLOCS+13, GETLOCS+14, GETLOCS+15, GETLOCS+21, GETLOCS+22, WHD+10, WHD+15, WHD+16, WHD+18, WHD+19
X	RTYPE+2!
Y	DTTYP+9, FDT+7, DTR+6, DTR+12, RTYPE+2!, RTYPE+8, WHD+4*
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSAVE("ABM*"	QUE+3*
ZTSK	QUE+4!, QUE+6

Customize PDF page

Package: Third Party Billing

Routine: ABMMUFAC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: