Routine: ABMTALLY

Information

ABMTALLY ; IHS/SD/SDR - Monthly tally report - 8/19/2005 1:28:34 PM

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (CLOSE,OPEN)^%ZISH ^%ZTLOAD
Third Party Billing	3	$$SDT^ABMDUTL (OUTPUT,TRANS)^ABMTALL2 $$EN^ABMVDF
IHS Accounts Receivable	2	$$VAL^BAR3PINQ $$VAL^BARVPM
VA Fileman	2	^DIC ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Third Party Billing	1	ABMTALL2

Entry Points

Name	Comments	DBIA/ICR reference
XIT	;
LOC	;EP
COMPUTE	;
HDR	;
PARM	; ; Choose additional exclusion parameters
CHK
WHD	;EP for writing Report Header
QUE	;
CLIN	;SELECT CLINICS
OUTPUT	;
DT	;EP
SEL
GETSVCAT(ABMCAT)	;EP-GET THE FULL SERVICE CATEGORY NAME
LOOP	; ; Display current exclusion parameters

External References

Name	Field # of Occurrence
^%ZIS	QUE+12
HOME^%ZIS	QUE+21
^%ZISC	QUE+20
CLOSE^%ZISH	COMPUTE+123
OPEN^%ZISH	COMPUTE+119
^%ZTLOAD	QUE+16
$$SDT^ABMDUTL	HDR+5, HDR+6
OUTPUT^ABMTALL2	OUTPUT+1
TRANS^ABMTALL2	COMPUTE+105
$$EN^ABMVDF	WHD+1
$$VAL^BAR3PINQ	COMPUTE+90
$$VAL^BARVPM	COMPUTE+80
^DIC	LOC+7, CLIN+7
^DIR	QUE+24, PARM+6, DT+8, DT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:",!?3,"=======================================================================" Line Location: LOOP+4
Function Call: WRITE	Prompt: !?3,"- Visit Location.....: " Line Location: LOOP+5
Function Call: WRITE	Prompt: !?12,$P(^DIC(4,ABMI,0),U) Line Location: LOOP+8
Function Call: WRITE	Prompt: "ALL" Line Location: LOOP+9
Function Call: WRITE	Prompt: !?3,"- Date Range....:" Line Location: LOOP+10
Function Call: WRITE	Prompt: " to: " Line Location: LOOP+11
Function Call: WRITE	Prompt: !?3,"- Clinics...:" Line Location: LOOP+12
Function Call: WRITE	Prompt: !?12,$P(^DIC(40.7,ABMI,0),U) Line Location: LOOP+15
Function Call: WRITE	Prompt: "ALL" Line Location: LOOP+16
Function Call: WRITE	Prompt: ! Line Location: LOC+1
Function Call: WRITE	Prompt: !!," ============ Entry of ",Y," Range =============",! Line Location: DT+5
Function Call: WRITE	Prompt: ! Line Location: DT+11
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DT+17
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),! Line Location: WHD+1
Function Call: WRITE	Prompt: ?($S($D(ABM(132)):34,1:8)),"WARNING: Confidential Patient Information, Privacy Act Applies",! Line Location: WHD+2
Function Call: WRITE	Prompt: ABM("LINE"),! Line Location: WHD+3
Function Call: WRITE	Prompt: ABM("HD",0),?$S($D(ABM(132)):108,1:57) Line Location: WHD+4
Function Call: WRITE	Prompt: Y," Page ",ABM("PG") Line Location: WHD+4
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: WHD+7
Routine Call	%ZIS Line Location: QUE+21
Routine Call	DIC Line Location: LOC+7 CLIN+7
Routine Call	DIR Line Location: QUE+24 PARM+6 DT+8 DT+13
Routine Call	%ZIS Line Location: QUE+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMCCLMS(	COMPUTE+50, COMPUTE+52, COMPUTE+53, COMPUTE+56, COMPUTE+59, COMPUTE+61
^ABMDCLM - [#9002274.3]	COMPUTE+26, COMPUTE+28, COMPUTE+29, COMPUTE+32, COMPUTE+35, COMPUTE+37, COMPUTE+39
^ABMDPARM(	QUE+7
^AUPNVSIT - [#9000010]	COMPUTE+10, COMPUTE+13, COMPUTE+16, COMPUTE+18
^AUPNVSIT("B"	COMPUTE+7, COMPUTE+9
^AUTNINS - [#9999999.18]	COMPUTE+40, COMPUTE+41, COMPUTE+62, COMPUTE+63
^BARAC(	COMPUTE+76
^BARBL(	COMPUTE+72, COMPUTE+74, COMPUTE+75, COMPUTE+81, COMPUTE+84, COMPUTE+87, COMPUTE+92, COMPUTE+93
^BARTR(	COMPUTE+102
^DD("DD"	WHD+4
^DIC(4 - [#4]	QUE+6, LOOP+8, HDR+1
^DIC(40.7 - [#40.7]	LOOP+15
^TMP("ABM-TALLY"	COMPUTE+2!, COMPUTE+19, COMPUTE+21, COMPUTE+22, COMPUTE+45, COMPUTE+46, COMPUTE+67, COMPUTE+68, COMPUTE+94, COMPUTE+95* , COMPUTE+96, COMPUTE+97, COMPUTE+98, COMPUTE+99, COMPUTE+113, COMPUTE+114, COMPUTE+115, COMPUTE+116, COMPUTE+117, COMPUTE+118 , COMPUTE+124!

Label References

Name	Line Occurrences
@(	PARM+9
CHK	HDR+1, HDR+4, HDR+5, HDR+6
DT	DT+9, DT+15, DT+17
LOOP	SEL, PARM+9
OUTPUT	COMPUTE+122
QUE	SEL+3
XIT	LOOP+3, PARM+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	QUE+11*
>> %ZIS("B"	QUE+10*
>> %ZIS("HFSMODE"	QUE+9*
>> %ZIS("HFSNAME"	QUE+8*
ABM	ABMTALLY+16!
ABM("CONJ"	HDR+1, HDR+3, HDR+5, HDR+6, CHK, CHK+1
ABM("HD"	SEL+1, WHD+4, WHD+5, WHD+6, CHK, CHK+1*
ABM("LINE"	WHD+3!*, WHD+7!
ABM("LVL"	SEL+2, CHK, CHK+1
ABM("PG"	WHD+4
ABM("PRIVACY"	WHD+2
ABM("RTYP"	ABMTALLY+17, ABMTALLY+18
ABM("SUBR"	COMPUTE+1*
ABM("TXT"	HDR+1, HDR+4, HDR+5, HDR+6, CHK, CHK+1
ABM(1	COMPUTE+103, COMPUTE+108
ABM(132	WHD+2, WHD+3, WHD+4, CHK
ABM(2	COMPUTE+103, COMPUTE+109, COMPUTE+113, COMPUTE+114
ABM(3	COMPUTE+103, COMPUTE+110, COMPUTE+111*, COMPUTE+115, COMPUTE+116
ABM(4	COMPUTE+103, COMPUTE+112, COMPUTE+117, COMPUTE+118
>> ABMACCT	COMPUTE+76*, COMPUTE+77, COMPUTE+78
>> ABMACCTI	COMPUTE+75*, COMPUTE+76, COMPUTE+80
>> ABMACTI	COMPUTE+39, COMPUTE+40, COMPUTE+41, COMPUTE+42, COMPUTE+46, COMPUTE+61, COMPUTE+62, COMPUTE+63, COMPUTE+64, COMPUTE+68
>> ABMBDT	COMPUTE+71, COMPUTE+72, COMPUTE+74, COMPUTE+89
>> ABMBIEN	COMPUTE+73, COMPUTE+74, COMPUTE+75, COMPUTE+81, COMPUTE+84, COMPUTE+87, COMPUTE+90, COMPUTE+92, COMPUTE+93, COMPUTE+102
>> ABMBILL	COMPUTE+92*, COMPUTE+96, COMPUTE+97
>> ABMBLST	COMPUTE+90*, COMPUTE+91, COMPUTE+95, COMPUTE+96, COMPUTE+98, COMPUTE+113, COMPUTE+115, COMPUTE+117
ABMCAT	GETSVCAT~, GETSVCAT+1
>> ABMCATS	GETSVCAT+1
>> ABMCLMDT	COMPUTE+25, COMPUTE+26, COMPUTE+28, COMPUTE+44, COMPUTE+48, COMPUTE+50, COMPUTE+52, COMPUTE+66
>> ABMCLN	COMPUTE+13, COMPUTE+14, COMPUTE+15, COMPUTE+21, COMPUTE+22, COMPUTE+32, COMPUTE+33, COMPUTE+34, COMPUTE+46, COMPUTE+56* , COMPUTE+57, COMPUTE+58, COMPUTE+68, COMPUTE+84, COMPUTE+85*, COMPUTE+86, COMPUTE+95, COMPUTE+96, COMPUTE+98, COMPUTE+113 , COMPUTE+115, COMPUTE+117
>> ABMCLST	COMPUTE+37, COMPUTE+38, COMPUTE+46, COMPUTE+49*, COMPUTE+68
>> ABMCURR	COMPUTE+93*, COMPUTE+98, COMPUTE+99
>> ABMEDT	COMPUTE+5*, COMPUTE+7, COMPUTE+26, COMPUTE+50, COMPUTE+72, COMPUTE+104
>> ABMFILE	QUE+6*, QUE+8, QUE+19, COMPUTE+119
>> ABMI	LOOP+7, LOOP+8, LOOP+14, LOOP+15
>> ABMIEN	COMPUTE+27, COMPUTE+28, COMPUTE+29, COMPUTE+32, COMPUTE+35, COMPUTE+37, COMPUTE+39, COMPUTE+51, COMPUTE+52, COMPUTE+53 , COMPUTE+56, COMPUTE+59, COMPUTE+61
>> ABMINS	COMPUTE+78, COMPUTE+79, COMPUTE+95, COMPUTE+96, COMPUTE+98, COMPUTE+113, COMPUTE+115, COMPUTE+117
>> ABMITYP	COMPUTE+40, COMPUTE+43, COMPUTE+46, COMPUTE+62, COMPUTE+65, COMPUTE+68, COMPUTE+80*, COMPUTE+95, COMPUTE+96, COMPUTE+98 , COMPUTE+113, COMPUTE+115, COMPUTE+117
>> ABMPATH	QUE+7*, QUE+8, QUE+19, COMPUTE+119
>> ABMSCAT	COMPUTE+16, COMPUTE+17, COMPUTE+21, COMPUTE+22
>> ABMSDT	COMPUTE+4*, COMPUTE+6, COMPUTE+25, COMPUTE+48, COMPUTE+71, COMPUTE+104
>> ABMSTODT	COMPUTE+20, COMPUTE+21, COMPUTE+22, COMPUTE+44, COMPUTE+46, COMPUTE+66, COMPUTE+68, COMPUTE+89, COMPUTE+95, COMPUTE+96 , COMPUTE+98, COMPUTE+113, COMPUTE+115, COMPUTE+117
>> ABMTPB	COMPUTE+18*, COMPUTE+21
>> ABMTR("ADJ CA	T" , COMPUTE+106*, COMPUTE+107, COMPUTE+110, COMPUTE+112
>> ABMTR("CR-DB"	COMPUTE+108, COMPUTE+109, COMPUTE+110, COMPUTE+111, COMPUTE+112
>> ABMTR("T"	COMPUTE+107, COMPUTE+108, COMPUTE+109, COMPUTE+111, COMPUTE+112
>> ABMTR(1	COMPUTE+106
>> ABMTRIEN	COMPUTE+101, COMPUTE+102, COMPUTE+104
>> ABMVDT	COMPUTE+6, COMPUTE+7, COMPUTE+9, COMPUTE+20
>> ABMVIEN	COMPUTE+8, COMPUTE+9, COMPUTE+10, COMPUTE+13, COMPUTE+16, COMPUTE+18
>> ABMVL	COMPUTE+10, COMPUTE+11, COMPUTE+12, COMPUTE+21, COMPUTE+22, COMPUTE+29, COMPUTE+30, COMPUTE+31, COMPUTE+46, COMPUTE+53* , COMPUTE+54, COMPUTE+55, COMPUTE+68, COMPUTE+81, COMPUTE+82*, COMPUTE+83, COMPUTE+95, COMPUTE+96, COMPUTE+98, COMPUTE+113 , COMPUTE+115, COMPUTE+117
>> ABMVTYP	COMPUTE+35, COMPUTE+36, COMPUTE+46, COMPUTE+59, COMPUTE+60, COMPUTE+68, COMPUTE+87, COMPUTE+88, COMPUTE+95, COMPUTE+96 , COMPUTE+98, COMPUTE+113, COMPUTE+115, COMPUTE+117
ABMY	ABMTALLY+16!
ABMY("CLIN"	LOOP+13, LOOP+15, COMPUTE+15, COMPUTE+34, COMPUTE+58, COMPUTE+86, CLIN+1!, CLIN+6, CLIN+9*, CLIN+10
ABMY("DT"	LOOP+10, LOOP+11, COMPUTE+4, COMPUTE+5, DT+1!, DT+3, DT+10, DT+16*, DT+17, HDR+2 , HDR+5, HDR+6
ABMY("I"	XIT+1!
ABMY("LOC"	LOOP+6, LOOP+8, COMPUTE+12, COMPUTE+31, COMPUTE+55, COMPUTE+83, LOC+1!, LOC+6, LOC+9*, LOC+10 , HDR+1
ABMY("SORT"	LOC+11!, CLIN+11!
ABMY("X"	LOOP+2*, LOOP+11, XIT+1!
>> D0	COMPUTE+80*
DIC	LOC+1!, LOC+2, LOC+13!, CLIN+2, CLIN+13!
DIC("A"	LOC+4, LOC+6, CLIN+4, CLIN+6
DIC(0	LOC+3, CLIN+3
DIR	QUE+22!, PARM+2!, PARM+7!, DT+1!, DT+14!, XIT+1!
DIR("?"	PARM+5*
DIR("A"	PARM+4, DT+6, DT+12*
DIR(0	QUE+23, PARM+3, DT+7*
>> DIROUT	SEL, LOOP+3, PARM+8
>> DIRUT	PARM+8, DT+2, DT+9, DT+15
DT	QUE+6, WHD+4
>> DTOUT	SEL, LOOP+3
>> DUOUT	SEL, LOOP+3, LOC+11, CLIN+11
DUZ(2	QUE+6, QUE+7, COMPUTE+26, COMPUTE+28, COMPUTE+29, COMPUTE+32, COMPUTE+35, COMPUTE+37, COMPUTE+39, COMPUTE+50 , COMPUTE+52, COMPUTE+53, COMPUTE+56, COMPUTE+59, COMPUTE+61, COMPUTE+72, COMPUTE+74, COMPUTE+75, COMPUTE+76, COMPUTE+81 , COMPUTE+84, COMPUTE+87, COMPUTE+92, COMPUTE+93, COMPUTE+102
IO	COMPUTE+121
>> POP	QUE+13, COMPUTE+120
U	QUE+6, QUE+7, LOOP+8, LOOP+15, COMPUTE+10, COMPUTE+13, COMPUTE+16, COMPUTE+18, COMPUTE+29, COMPUTE+32 , COMPUTE+35, COMPUTE+37, COMPUTE+39, COMPUTE+40, COMPUTE+41, COMPUTE+53, COMPUTE+56, COMPUTE+59, COMPUTE+61, COMPUTE+62 , COMPUTE+63, COMPUTE+75, COMPUTE+76, COMPUTE+78, COMPUTE+81, COMPUTE+84, COMPUTE+87, COMPUTE+92, COMPUTE+93, COMPUTE+106 , HDR+1
>> X	LOOP+11*
>> Y	PARM+9, LOC+5, LOC+8, LOC+9, DT+4, DT+5, DT+6, DT+10, DT+16, CLIN+5 , CLIN+8, CLIN+9, WHD+4
>> ZTDESC	QUE+2*
>> ZTIO	QUE+14*
>> ZTRTN	QUE+1*
>> ZTSAVE("ABM*"	QUE+3*
ZTSK	QUE+4!, QUE+17, QUE+18

Customize PDF page

Package: Third Party Billing

Routine: ABMTALLY

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: