Routine: ABMRSTIN

Package	Total	Call Graph
Third Party Billing	11	^ABMDEDIC PAZ^ABMDRUTL ($$SDT,$$SDTO)^ABMDUTL DATA2^ABMRSPI1 (CLMSTAT,COMPUTE,DT,INS,PGS)^ABMRSPIN (CLMDISP,SPLTCHK,VSTDISP)^ABMRSTI1 SPLITCLM^ABMRSTI2 (PRINT,PRINT2)^ABMRSTI3 INSSTMP^ABMRSTI4 $$TRIM^ABMUTLP $$EN^ABMVDF
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
IHS VA Utilities	1	^XBFMK
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
ASKDEL	;EP
AUTO	;
SPLITHOW	;EP
MANUAL2	;EP
MANUAL	;EP
START	;
PGS	;
PRINT	;EP
MANORAUT	;
SPLIT	;EP

Name	Field # of Occurrence
^%ZIS	PRINT+7
HOME^%ZIS	PRINT+14
^%ZTLOAD	PRINT+11
^ABMDEDIC	MANUAL2+1
PAZ^ABMDRUTL	MANUAL2+49, SPLIT+3, PRINT+17
$$SDT^ABMDUTL	AUTO+20
$$SDTO^ABMDUTL	MANUAL2+14
DATA2^ABMRSPI1	MANUAL2+5
CLMSTAT^ABMRSPIN	AUTO+8
COMPUTE^ABMRSPIN	AUTO+41
DT^ABMRSPIN	AUTO+5
INS^ABMRSPIN	AUTO+2
PGS^ABMRSPIN	AUTO+11
CLMDISP^ABMRSTI1	MANUAL2+23
SPLTCHK^ABMRSTI1	MANUAL2+22
VSTDISP^ABMRSTI1	MANUAL2+19
SPLITCLM^ABMRSTI2	MANUAL2+44, SPLIT+25
PRINT^ABMRSTI3	PRINT+16
PRINT2^ABMRSTI3	MANUAL2+48
INSSTMP^ABMRSTI4	MANUAL2+43, SPLIT+12
$$TRIM^ABMUTLP	AUTO+22
$$EN^ABMVDF	MANUAL2+46
^DIR	MANORAUT+4, MANUAL2+33, PGS+12, SPLITHOW+4, ASKDEL+4, AUTO+25, AUTO+32, SPLIT+5, PRINT+4
^XBFMK	MANORAUT+1, MANUAL2+32, MANUAL2+50, SPLITHOW+1, AUTO+43, SPLIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This menu option is going to take one claim and split it as many times as" Line Location: START+11
Function Call: WRITE	Prompt: !,"necessary to get either 1) one claim with one claim editor page of line items" Line Location: START+12
Function Call: WRITE	Prompt: !,"OR 2) one claim with 1 line item charge. The user will be prompted if they" Line Location: START+13
Function Call: WRITE	Prompt: !,"want the system to automatically find the claims, or if they would rather do" Line Location: START+14
Function Call: WRITE	Prompt: !,"it manually, one claim at a time. Either way, the user will get messages" Line Location: START+15
Function Call: WRITE	Prompt: !,"to the screen telling them the new claim numbers that generated based on" Line Location: START+16
Function Call: WRITE	Prompt: !,"their selection." Line Location: START+17
Function Call: WRITE	Prompt: !!,"This option should be used VERY CAUTIOUSLY since it could generate a LOT of" Line Location: START+18
Function Call: WRITE	Prompt: !,"claims based on how the prompts are answered." Line Location: START+19
Function Call: WRITE	Prompt: !! Line Location: MANUAL2+6
Function Call: WRITE	Prompt: !,"ST",?4,"SelectedClm#",?17,"HRN",?24,"Active Insurer",?40,"Visit Date",?51,"VTYP",?56,"Clinic",?65,"ServCat (VST)",! Line Location: MANUAL2+7
Function Call: WRITE	Prompt: "-" Line Location: MANUAL2+8
Function Call: WRITE	Prompt: !,$S(ABMCS="F":"FAB",ABMCS="E":"EDT",ABMCS="O":"ROL",ABMCS="C":"COM",ABMCS="P":"PEN",ABMCS="U":"UNB",ABMCS="X":"CLO",1:"") Line Location: MANUAL2+10
Function Call: WRITE	Prompt: ?4,ABMP("CDFN") Line Location: MANUAL2+11
Function Call: WRITE	Prompt: ?17,$P($G(^AUPNPAT($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),41,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2) Line Location: MANUAL2+12
Function Call: WRITE	Prompt: ?24,$E($P($G(^AUTNINS($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,8),0)),U),1,15) Line Location: MANUAL2+13
Function Call: WRITE	Prompt: ?40,$$SDTO^ABMDUTL($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,2)) Line Location: MANUAL2+14
Function Call: WRITE	Prompt: ?51,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,7) Line Location: MANUAL2+15
Function Call: WRITE	Prompt: ?56,$E($P($G(^DIC(40.7,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,6),0)),U),1,8) Line Location: MANUAL2+16
Function Call: WRITE	Prompt: ?65,$G(^TMP("ABM-SPIN",$J,"VSTS",ABMV))_" ("_ABMV_")",! Line Location: MANUAL2+18
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),! Line Location: MANUAL2+46
Function Call: WRITE	Prompt: "Split complete.",! Line Location: MANUAL2+47
Function Call: WRITE	Prompt: !!,"You selected: " Line Location: AUTO+16
Function Call: WRITE	Prompt: !?3,"Insurers: " Line Location: AUTO+17
Function Call: WRITE	Prompt: !?6,$P($G(^AUTNINS(ABMI,0)),U) Line Location: AUTO+19
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: AUTO+20
Function Call: WRITE	Prompt: !?3,"Claim Status: " Line Location: AUTO+21
Function Call: WRITE	Prompt: !?6,$$TRIM^ABMUTLP($P(ABMY("STA","NM"),",",ABMI),"L") Line Location: AUTO+22
Function Call: WRITE	Prompt: !?3,"Check pages: "_$E($TR(ABMY("PGS"),"^",","),2,($L(ABMY("PGS"))-1)) Line Location: AUTO+23
Function Call: WRITE	Prompt: !?3,"Report Type: "_$S(ABMY("RTYP")=2:"Statistical Summary Only",1:"Brief Listing"),!! Line Location: AUTO+24
Function Call: WRITE	Prompt: !!,"Now searching for claims that meet the selected criteria . . ." Line Location: AUTO+39
Function Call: WRITE	Prompt: !!,"OK, "_+$G(^TMP("ABM-SPIN-CNT",$J))_" claims were found to split." Line Location: SPLIT+1
Function Call: WRITE	Prompt: !! Line Location: SPLIT+2
Function Call: WRITE	Prompt: "Exiting option since no claims were found matching selected criteria." Line Location: SPLIT+3
Function Call: WRITE	Prompt: !!,"Splitting claims..." Line Location: SPLIT+13
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: PRINT+12
Function Call: WRITE	Prompt: !!?5,"Report queued to run on ",ZTSK," #" Line Location: PRINT+13
Routine Call	%ZIS Line Location: PRINT+14
Routine Call	DIR Line Location: MANORAUT+4 MANUAL2+33 PGS+12 SPLITHOW+4 ASKDEL+4 AUTO+25 AUTO+32 SPLIT+5 PRINT+4
Routine Call	%ZIS Line Location: PRINT+7

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	MANUAL2+9, MANUAL2+12, MANUAL2+13, MANUAL2+14, MANUAL2+15, MANUAL2+16, MANUAL2+22
^AUPNPAT - [#9000001]	MANUAL2+12
^AUTNINS - [#9999999.18]	MANUAL2+13, AUTO+19
^DIC(40.7 - [#40.7]	MANUAL2+16
^TMP("ABM-SPIN"	START+3!, MANUAL2+18, MANUAL2+51!, PGS+5, PGS+19, AUTO+40!, AUTO+44!, SPLIT+17, SPLIT+19, SPLIT+21 , SPLIT+23
^TMP("ABM-SPIN-CNT"	START+5!, MANUAL2+53!, AUTO+46!, SPLIT+1, SPLIT+3
^TMP("ABM-SPIN-DATA"	START+4!, MANUAL2+52!, AUTO+45!
^TMP("ABM-STIN"	START+6!, MANUAL2+42!, MANUAL2+54!, AUTO+47!, SPLIT+15!

Name	Line Occurrences
ASKDEL	MANUAL2+39, SPLIT+10
AUTO	MANORAUT+8, AUTO+36
MANUAL	MANORAUT+7, MANUAL2+31
MANUAL2	MANUAL2+25, MANUAL2+56
PGS	MANUAL2+35
PRINT	SPLIT+26
SPLIT	AUTO+42
SPLITHOW	MANUAL2+37, SPLIT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PRINT+6*
ABM	START+7!, MANUAL2+55!, AUTO+48!
ABM("HD"	START+9, START+10
>> ABMANS	AUTO+28, AUTO+33, AUTO+35, AUTO+36
>> ABMCDFN	MANUAL2+45*
ABMCK	MANUAL2+21!, MANUAL2+23, MANUAL2+31
>> ABMCS	MANUAL2+9*, MANUAL2+10
>> ABMDLT	ASKDEL+6*
>> ABMI	AUTO+18, AUTO+19, AUTO+22*
>> ABMMENU	START+2*, START+9, START+10
ABMP	MANUAL+1!
ABMP("CDFN"	MANUAL2+9, MANUAL2+11, MANUAL2+12, MANUAL2+13, MANUAL2+14, MANUAL2+15, MANUAL2+16, MANUAL2+22, MANUAL2+45, PGS+5 , PGS+19, SPLIT+22, SPLIT+23
ABMP("RTN"	START+1*
ABMP("VDETAIL"	SPLIT+24!
>> ABMPCNT	PGS+3, PGS+7, PGS+11
>> ABMPG	PGS+2, PGS+5, PGS+6, PGS+18, PGS+19, PGS+20
>> ABMSTRG	PGS+1*
>> ABMTPCNT	PGS+10, PGS+11, PGS+15
>> ABMV	MANUAL2+17, MANUAL2+18
>> ABMVDT	SPLIT+20, SPLIT+21, SPLIT+23
>> ABMVLOC	SPLIT+16, SPLIT+17, SPLIT+19, SPLIT+21, SPLIT+23
>> ABMVSTCK	MANUAL2+4*, MANUAL2+25
>> ABMVTYP	SPLIT+18, SPLIT+19, SPLIT+21, SPLIT+23
ABMY	START+7!, MANUAL2+55!, AUTO+48!
ABMY("DT"	AUTO+6, AUTO+20
ABMY("INS"	AUTO+3, AUTO+19
ABMY("PGS"	MANUAL2+3, MANUAL2+34!, MANUAL2+36, PGS+14, PGS+16, PGS+17!, PGS+20, PGS+21, ASKDEL+1, AUTO+12 , AUTO+14*, AUTO+23
ABMY("RTYP"	START+9, AUTO+1*, AUTO+24
ABMY("SPLIT"	MANORAUT+6*, MANORAUT+7, MANORAUT+8
ABMY("SPLITHOW"	MANUAL2+38, SPLITHOW+6*
ABMY("STA"	AUTO+9, AUTO+22
DA	AUTO+30!
DIC	AUTO+30!
DIE	AUTO+30!
DIR	MANUAL2+33!, ASKDEL+4!, AUTO+25!, AUTO+30!, AUTO+34!, SPLIT+5!, PRINT+4!
DIR("A"	MANORAUT+3, MANUAL2+33, PGS+9, SPLITHOW+3, ASKDEL+2, AUTO+25, SPLIT+5, PRINT+2, PRINT+3*
DIR("B"	ASKDEL+3*
DIR(0	MANORAUT+2, MANUAL2+33, PGS+4, PGS+6, PGS+8, SPLITHOW+2, ASKDEL+2, AUTO+25, AUTO+31, SPLIT+5 , PRINT+1*
DIROUT	START+8!, MANORAUT+5, MANUAL2+2, MANUAL2+41, SPLITHOW+5, ASKDEL+1, ASKDEL+5, AUTO+4, AUTO+7, AUTO+10 , AUTO+13, AUTO+26, SPLIT+7, SPLIT+9, SPLIT+11
DIRUT	START+8!, MANORAUT+5, MANUAL2+2, MANUAL2+41, SPLITHOW+5, ASKDEL+1, ASKDEL+5, AUTO+4, AUTO+7, AUTO+26 , SPLIT+7, SPLIT+9, SPLIT+11
DR	AUTO+30!
DTOUT	START+8!, MANORAUT+5, MANUAL2+2, MANUAL2+41, SPLITHOW+5, ASKDEL+1, ASKDEL+5, AUTO+4, AUTO+7, AUTO+10 , AUTO+13, AUTO+26, SPLIT+7, SPLIT+9, SPLIT+11
DUOUT	START+8!, MANORAUT+5, MANUAL2+2, MANUAL2+41, SPLITHOW+5, ASKDEL+1, ASKDEL+5, AUTO+4, AUTO+7, AUTO+10 , AUTO+13, AUTO+26, SPLIT+7, SPLIT+9, SPLIT+11
DUZ(2	MANUAL2+9, MANUAL2+12, MANUAL2+13, MANUAL2+14, MANUAL2+15, MANUAL2+16, MANUAL2+22
>> I	MANUAL2+8*
IO("Q"	PRINT+8, PRINT+15!
>> POP	PRINT+7
U	MANUAL2+9, MANUAL2+12, MANUAL2+13, MANUAL2+14, MANUAL2+15, MANUAL2+16, MANUAL2+22, AUTO+19
X	AUTO+30!
>> XQY0	PRINT+9
Y	MANORAUT+6, MANUAL2+31, PGS+11, PGS+13, PGS+14, SPLITHOW+5, SPLITHOW+6, ASKDEL+6, AUTO+28, AUTO+29 , AUTO+30!, AUTO+33, SPLIT+6, PRINT+5
>> ZTDESC	PRINT+9*
>> ZTRTN	PRINT+9*
>> ZTSAVE("ABM*"	PRINT+10*
>> ZTSK	PRINT+12, PRINT+13

Customize PDF page

Package: Third Party Billing

Routine: ABMRSTIN

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: