Routine: ABMRSPIN

Package	Total	Call Graph
Third Party Billing	5	WHD^ABMDRHD PAZ^ABMDRUTL ($$SDT,$$SDTO)^ABMDUTL (APPROVAL,VISIT)^ABMRSPI1 $$TRIM^ABMUTLP
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Third Party Billing	1	ABMRSTIN

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
DDIR	;
COMPUTE	;
VTYP	;
DTYP	;
PGS	;
SUMMARY	;
START	;
CLMSTAT	;
HDB	;
INS	;EP
RTYP	;EP
PRINT	;
DT	;EP
SEL	;
HD	;
SUB	;

External References

Name	Field # of Occurrence
^%ZIS	SEL+39
HOME^%ZIS	SEL+46, SEL+52
^%ZISC	SEL+51, PRINT+45, SUMMARY+16
^%ZTLOAD	SEL+43
WHD^ABMDRHD	HDB+1
PAZ^ABMDRUTL	PRINT+46, HD+1
$$SDT^ABMDUTL	SEL+29, PRINT+1
$$SDTO^ABMDUTL	PRINT+34
APPROVAL^ABMRSPI1	COMPUTE+6
VISIT^ABMRSPI1	COMPUTE+4
$$TRIM^ABMUTLP	SEL+31
^DIC	INS+8
$$GET1^DIQ	INS+12, INS+13
^DIR	SEL+34, INS+16, DDIR+2, DTYP+7, DTYP+12, CLMSTAT+9, PGS+5, RTYP+5
^XBFMK	INS+5, INS+15, DT+1, CLMSTAT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will look through claims/bills based on the selection criteria" Line Location: SEL+5
Function Call: WRITE	Prompt: !,"chosen and report any claims that match. This report is meant as a tool for the" Line Location: SEL+6
Function Call: WRITE	Prompt: !,"user to identify potential bills that can be split for further billing due to" Line Location: SEL+7
Function Call: WRITE	Prompt: !,"multiple entries in V-files." Line Location: SEL+8
Function Call: WRITE	Prompt: !!,"NOTE: all prompts are required" Line Location: SEL+9
Function Call: WRITE	Prompt: ! Line Location: SEL+10
Function Call: WRITE	Prompt: !!,"You selected: " Line Location: SEL+25
Function Call: WRITE	Prompt: !?3,"Insurers: " Line Location: SEL+26
Function Call: WRITE	Prompt: !?6,$P($G(^AUTNINS(ABMI,0)),U) Line Location: SEL+28
Function Call: WRITE	Prompt: !?3,$S(ABMY("DT")="V":"Visit",1:"Approval")_" Dates: ",$$SDT^ABMDUTL(ABMY("DT",1))_" to "_$$SDT^ABMDUTL(ABMY("DT",2)) Line Location: SEL+29
Function Call: WRITE	Prompt: !?3,"Claim Status: " Line Location: SEL+30
Function Call: WRITE	Prompt: !?6,$$TRIM^ABMUTLP($P(ABMY("STA","NM"),",",ABMI),"L") Line Location: SEL+31
Function Call: WRITE	Prompt: !?3,"Check pages: "_$E($TR(ABMY("PGS"),"^",","),2,($L(ABMY("PGS"))-1)) Line Location: SEL+32
Function Call: WRITE	Prompt: !?3,"Report Type: "_$S(ABMY("RTYP")=2:"Statistical Summary Only",1:"Brief Listing"),!! Line Location: SEL+33
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: SEL+44
Function Call: WRITE	Prompt: !!?5,"Report queued to run on ",ZTSK," #" Line Location: SEL+45
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+17
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+21
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+41
Function Call: WRITE	Prompt: !?44,"======" Line Location: PRINT+43
Function Call: WRITE	Prompt: !?35,"Total:",?45,$FN(ABM("CNT"),",",0) Line Location: PRINT+44
Function Call: WRITE	Prompt: " (cont)" Line Location: SUMMARY+8
Function Call: WRITE	Prompt: !?65,"======" Line Location: SUMMARY+14
Function Call: WRITE	Prompt: !?58,"Total:",?65,$FN(ABM("CNT"),",",0) Line Location: SUMMARY+15
Function Call: WRITE	Prompt: !?63," - - PAGE - - ",!,"ST",?4,"O/S",?9,"Patient",?21,"HRN",?28,"Active Insurer",?41,"Claim#",?53,"Visit Dt",?63,"D",?67,"E",?71,"F",?75,"H",! Line Location: HDB+2
Function Call: WRITE	Prompt: !,"Location",?40,"Visit Type",?65,"# Claims",! Line Location: HDB+3
Function Call: WRITE	Prompt: "-" Line Location: HDB+4
Function Call: WRITE	Prompt: !?3,"Visit Location: ",ABMP("VLOC") Line Location: LOC+1
Function Call: WRITE	Prompt: !?5,"Visit Type: ",ABMP("VTYP") Line Location: VTYP+1
Function Call: WRITE	Prompt: !?46,"------" Line Location: SUB+2
Function Call: WRITE	Prompt: !?37,"Subtotal:",?50,$FN(ABM("SUBCNT"),",",0) Line Location: SUB+3
Function Call: WRITE	Prompt: !!,"Insurers selected here MUST be the active insurer in order for claims/bills" Line Location: INS+2
Function Call: WRITE	Prompt: !,"to display on the report!",! Line Location: INS+3
Function Call: WRITE	Prompt: !!," ============ Entry of ",Y," Range =============",! Line Location: DTYP+4
Function Call: WRITE	Prompt: ! Line Location: DTYP+10
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DTYP+16
Routine Call	%ZIS Line Location: SEL+46 SEL+52
Routine Call	DIC Line Location: INS+8
Routine Call	DIR Line Location: SEL+34 INS+16 DDIR+2 DTYP+7 DTYP+12 CLMSTAT+9 PGS+5 RTYP+5
Routine Call	%ZIS Line Location: SEL+39

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTNINS - [#9999999.18]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	SEL+28, PRINT+6
^TMP("ABM-SPIN"	START+3!, PRINT+13, PRINT+19, PRINT+23, PRINT+25, PRINT+26, SUMMARY+4, SUMMARY+10, SUMMARY+12, SUMMARY+13 , COMPUTE+3!
^TMP("ABM-SPIN-CNT"	START+3!
^TMP("ABM-SPIN-DATA"	START+3!, COMPUTE+2!

Label References

Name	Line Occurrences
CLMSTAT	SEL+16
COMPUTE	SEL+49
DDIR	DT+6
DT	SEL+14, DTYP+8, DTYP+14, DTYP+16
DTYP	DT+3, DT+4
DTYP2	DT+7
HD	PRINT+17, PRINT+21, PRINT+41, SUMMARY+8
HDB	PRINT+10, SUMMARY+1
INS	SEL+11
LOC	PRINT+16, PRINT+17, PRINT+41, SUMMARY+8
PGS	SEL+19
PRINT	SEL+50
RTYP	SEL+22
SEL	SEL+36
SUB	PRINT+42
SUMMARY	PRINT+9
VTYP	PRINT+20, PRINT+21, PRINT+41

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	SEL+38*
ABM	SEL+1!
ABM("CNT"	PRINT+12, PRINT+40, PRINT+44, SUMMARY+3, SUMMARY+13, SUMMARY+15
ABM("DT"	DT+3
ABM("HD"	SEL+3, SEL+4, PRINT+1, PRINT+2, PRINT+3, PRINT+6
ABM("L"	PRINT+12, SUMMARY+3
ABM("PG"	PRINT+7, HDB+1
ABM("RTYP"	RTYP+9*
ABM("STA"	DT+4, DT+7
ABM("SUBCNT"	PRINT+12, PRINT+39, SUMMARY+3, SUB+1, SUB+3, SUB+4
ABM("V"	PRINT+12, SUMMARY+3
>> ABMI	SEL+27, SEL+28, SEL+31, PRINT+4, PRINT+6*
>> ABMITMP	INS+14*, INS+18
>> ABMJ	PRINT+5, PRINT+6
>> ABMMENU	START+2*, SEL+3, SEL+4
>> ABMP("CDFN"	PRINT+24, PRINT+25, PRINT+26
>> ABMP("RTN"	START+1*
>> ABMP("SDT"	PRINT+22, PRINT+23, PRINT+25, PRINT+26, PRINT+34
>> ABMP("TYP"	DT+6
>> ABMP("VLOC"	PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+19, PRINT+23, PRINT+25, PRINT+26, SUMMARY+2, SUMMARY+4 , SUMMARY+5, SUMMARY+6, SUMMARY+7, SUMMARY+10, SUMMARY+12, SUMMARY+13, LOC+1
>> ABMP("VTYP"	PRINT+18, PRINT+19, PRINT+23, PRINT+25, PRINT+26, SUMMARY+9, SUMMARY+10, SUMMARY+11, SUMMARY+12, SUMMARY+13 , VTYP+1
>> ABMPREC	PRINT+26*, PRINT+27, PRINT+28, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+35, PRINT+36, PRINT+37 , PRINT+38
>> ABMSSTAT	PRINT+28*, PRINT+29
>> ABMSTRG	PGS+1*
ABMY	SEL+1!
ABMY("DT"	SEL+15, SEL+29, PRINT+1, COMPUTE+4, COMPUTE+6, DT+2!, DTYP+2, DTYP+9, DTYP+15*, DTYP+16 , CLMSTAT+2, CLMSTAT+5
ABMY("INS"	SEL+12, SEL+28, PRINT+3, PRINT+6, INS+1!, INS+19, INS+20
ABMY("PGS"	SEL+20, SEL+32, PRINT+2, PGS+7, PGS+8, PGS+9
ABMY("RTYP"	SEL+3, SEL+23, SEL+33, PRINT+9, HDB+2, RTYP+8*
ABMY("STA"	SEL+17, SEL+31, CLMSTAT+11, CLMSTAT+12, CLMSTAT+13
>> DIC	INS+6*
>> DIC(0	INS+7*
DIR	SEL+34!, INS+16!, DTYP+13!, CLMSTAT+14!, RTYP+1!, RTYP+6!
DIR("A"	SEL+34, INS+16, DDIR+1, DTYP+5, DTYP+11, CLMSTAT+4, CLMSTAT+7, PGS+3, RTYP+3*
DIR("B"	RTYP+4*
DIR(0	SEL+34, INS+16, DT+5, DDIR+4, DTYP+6, CLMSTAT+3, CLMSTAT+6, PGS+2, RTYP+2
DIROUT	SEL+2!, SEL+13, SEL+18, SEL+21, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23 , PRINT+25, PRINT+41, SUMMARY+8, HD+1, INS+4, INS+9, INS+12, DDIR+3, CLMSTAT+8, CLMSTAT+10
DIRUT	SEL+2!, SEL+13, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23, PRINT+25, PRINT+41 , SUMMARY+8, HD+1, INS+4, INS+9, INS+12, DDIR+3, DTYP+1, DTYP+8, DTYP+14, CLMSTAT+8 , CLMSTAT+10, RTYP+7
DTOUT	SEL+2!, SEL+13, SEL+18, SEL+21, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23 , PRINT+25, PRINT+41, SUMMARY+8, HD+1, INS+4, INS+9, INS+12
DUOUT	SEL+2!, SEL+13, SEL+18, SEL+21, SEL+35, PRINT+13, PRINT+17, PRINT+19, PRINT+21, PRINT+23 , PRINT+25, PRINT+41, SUMMARY+8, HD+1, INS+4, INS+9, INS+12
>> I	HDB+4*
IO	SEL+48
IO("Q"	SEL+40, SEL+47!
IOSL	PRINT+17, PRINT+21, PRINT+41, SUMMARY+8
>> POP	SEL+39
U	SEL+28, PRINT+6, PRINT+27, PRINT+28, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+35, PRINT+36 , PRINT+37, PRINT+38
>> X	INS+4
>> XQY0	SEL+41
>> Y	SEL+36, INS+4, INS+10, INS+12, INS+13, INS+14, INS+17, INS+18, INS+19, DT+3 , DT+4, DDIR+4, DTYP+2, DTYP+3*, DTYP+4, DTYP+5, DTYP+9, DTYP+15, CLMSTAT+11, CLMSTAT+12 , PGS+4, PGS+6, PGS+7, PGS+8, RTYP+8
>> Y(0	CLMSTAT+13, RTYP+9
>> ZTDESC	SEL+41*
>> ZTRTN	SEL+41*
>> ZTSAVE("ABM*"	SEL+42*
>> ZTSK	SEL+44, SEL+45

Customize PDF page

Package: Third Party Billing

Routine: ABMRSPIN

Information

Source Information

Call Graph

Call Graph Total: 12

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: