Routine: ABMRSCIN

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
Third Party Billing	2	PAZ^ABMDRUTL ($$SDT,$$SDTO)^ABMDUTL
IHS VA Utilities	1	^XBFMK

Name	Comments	DBIA/ICR reference
SDT	;EP
SAVE	;EP
DISPLAY	;EP
SPLITHOW	;EP
INS	;EP
START	;
PGS	;
END	;EP
INSCHK	;EP
SEL	;
PGCK	;EP
SEL2	;EP
SEL3	;EP

Name	Field # of Occurrence
PAZ^ABMDRUTL	SAVE+15, END+25
$$SDT^ABMDUTL	DISPLAY+3
$$SDTO^ABMDUTL	INSCHK+19, INSCHK+21, INSCHK+23, INSCHK+25
^DIC	INS+7
FILE^DICN	SAVE+13
^DIE	END+24
$$GET1^DIQ	INS+10, INS+11, INS+18
^DIR	SEL+24, SEL3+8, SEL3+17, SEL3+45, INS+14, INS+20, SDT+6, PGS+5, SPLITHOW+5, END+6 , END+14
^XBFMK	SEL3+12, SEL3+44, INS+4, INS+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option allows sites to have claims automatically split into" Line Location: SEL+5
Function Call: WRITE	Prompt: !,"multiple claims for billing. The split will occur when the claim" Line Location: SEL+6
Function Call: WRITE	Prompt: !,"generator runs. You can split each page of the claim editor into" Line Location: SEL+7
Function Call: WRITE	Prompt: !,"a new claim, or you can split each individual charge into a new" Line Location: SEL+8
Function Call: WRITE	Prompt: !,"claim. The pages available for splitting are 8D Medications," Line Location: SEL+9
Function Call: WRITE	Prompt: !,"8E Laboratory, 8F Radiology, or 8H HCPCS." Line Location: SEL+10
Function Call: WRITE	Prompt: !!,"NOTE: This option does NOT split claims that have a Service" Line Location: SEL+11
Function Call: WRITE	Prompt: !,"Category of Hospitalization (H) or In Hospital (I)." Line Location: SEL+12
Function Call: WRITE	Prompt: !!,"For example, if you have an outpatient visit with three medications" Line Location: SEL+13
Function Call: WRITE	Prompt: !,"and the setup is done so each charge is on its own claim, you will end" Line Location: SEL+14
Function Call: WRITE	Prompt: !,"up with" Line Location: SEL+15
Function Call: WRITE	Prompt: !,"4 claims --> 1 with the E&M code" Line Location: SEL+16
Function Call: WRITE	Prompt: !," --> 3 with one medication each" Line Location: SEL+17
Function Call: WRITE	Prompt: !!,"A different example, if you have an outpatient visit with four labs" Line Location: SEL+18
Function Call: WRITE	Prompt: !,"and the setup is for a page to be on its own claim, you will end up with" Line Location: SEL+19
Function Call: WRITE	Prompt: !,"2 claims --> 1 with the E&M code" Line Location: SEL+20
Function Call: WRITE	Prompt: !," --> 1 with all four lab codes" Line Location: SEL+21
Function Call: WRITE	Prompt: !!,"NOTE: all prompts are required" Line Location: SEL+22
Function Call: WRITE	Prompt: ! Line Location: SEL+23
Function Call: WRITE	Prompt: !!,"That entry has already been terminated and is therefore unselectable.",! Line Location: SEL3+21
Function Call: WRITE	Prompt: !! Line Location: SEL3+43
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 use this setup!",! Line Location: INS+3
Function Call: WRITE	Prompt: !!,"You selected a MEDICARE FI insurer type",! Line Location: INS+19
Function Call: WRITE	Prompt: !!,"There is already data setup for that insurer:" Line Location: INSCHK+5
Function Call: WRITE	Prompt: !!,"#",?4,"PAGE",?9,"START DT",?20,"SPLIT CLAIM HOW",?37,"END DATE",?50,"CREATED",?61,"BY",?68,"ENDED",?77,"BY" Line Location: INSCHK+6
Function Call: WRITE	Prompt: ! Line Location: INSCHK+28
Function Call: WRITE	Prompt: !,"Enter a start date. The DOS on a claim will be compared to this date" Line Location: SDT+1
Function Call: WRITE	Prompt: !,"to determine if it should be split or not. Claims with a DOS prior" Line Location: SDT+2
Function Call: WRITE	Prompt: !,"to this date will not split." Line Location: SDT+3
Function Call: WRITE	Prompt: !!,"You selected: " Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !?11,"Insurer: ",$P($G(^AUTNINS(ABMY("INS"),0)),U) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !?8,"Start Date: ",$$SDT^ABMDUTL(ABMY("DT",1)) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !?8,"Split page: ",$TR(ABMY("PGS"),"^","")_" "_$S(ABMY("PGS")["8D":"MEDICATIONS",ABMY("PGS")["8E":"LABORATORY",ABMY("PGS")["8F":"RADIOLOGY",ABMY("PGS")["8H":"HCPCS",1:"") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !?3,"Split claim how: "_$S(ABMY("SPLITHOW")=1:"1 Claim for each CHARGE",ABMY("SPLITHOW")=2:"1 Claim for each PAGE",1:"No, don't split the claim") Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !!,"Saving setup.." Line Location: SAVE+1
Function Call: WRITE	Prompt: !!,"Entry not saved." Line Location: SAVE+14
Function Call: WRITE	Prompt: !!,"Entry not terminated." Line Location: END+15
Function Call: WRITE	Prompt: !!,"Saving setup.." Line Location: END+18
Routine Call	DIE Line Location: END+24
Routine Call	DIC Line Location: INS+7
Routine Call	DIR Line Location: SEL+24 SEL3+8 SEL3+17 SEL3+45 INS+14 INS+20 SDT+6 PGS+5 SPLITHOW+5 END+6 END+14

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

Name	Line Occurrences (* Changed, ! Killed)
^ABMNINS(	SEL3+21, INSCHK+3, INSCHK+8, INSCHK+9, PGCK+4, PGCK+5, END+3
^AUTNINS - [#9999999.18]	DISPLAY+2
^DD(9002274.09	SAVE+6
^VA(200 - [#200]	INSCHK+24, INSCHK+26

Name	Line Occurrences
DISPLAY	SEL3+41
END	SEL3+24
INS	SEL2+1
INSCHK	SEL3+1
PGCK	SEL3+30
PGS	SEL3+28
SAVE	SEL3+48
SDT	SEL3+36
SEL2	SEL3+31, SEL3+47
SPLITHOW	SEL3+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	SEL+1!
ABM("HD"	SEL+3, SEL+4
ABMANS	SEL3+10*, SEL3+11, SEL3+21!, SEL3+24
>> ABMCRDT	INSCHK+14*, INSCHK+23
>> ABMCRU	INSCHK+15*, INSCHK+24
>> ABMEDT	INSCHK+13, INSCHK+21, END+9, END+22
>> ABMEFLG	SEL3+3, SEL3+21, SEL3+26, END+1*
>> ABMENDDT	INSCHK+16*, INSCHK+25
>> ABMENDDU	INSCHK+17*, INSCHK+26
>> ABMENTR	SEL3+20, SEL3+21, SEL3+23, END+3, END+20
>> ABMI	INSCHK+7, INSCHK+8, INSCHK+9, INSCHK+18
>> ABMICK	PGCK+3, PGCK+4, PGCK+5
>> ABMICNT	SEL3+11, SEL3+13, SEL3+23, INSCHK+2, INSCHK+27
ABMIFLG	SEL3+2, SEL3+26, INSCHK+1!, INSCHK+4*
>> ABMITMP	INS+12*, INS+16
>> ABMMENU	START+2*, SEL+3, SEL+4
>> ABMP("RTN"	START+1*
>> ABMPG	INSCHK+10*, INSCHK+18
>> ABMPGCK	SEL3+31, PGCK+1, PGCK+6
>> ABMREC	INSCHK+9*, INSCHK+10, INSCHK+11, INSCHK+12, INSCHK+13, INSCHK+14, INSCHK+15, INSCHK+16, INSCHK+17
>> ABMSDT	INSCHK+11*, INSCHK+19
>> ABMSPLHW	INSCHK+12*, INSCHK+20
>> ABMSTRG	PGS+1*
ABMY	SEL+1!
ABMY("DT"	SEL3+37, SDT+8*, DISPLAY+3, SAVE+8
ABMY("INS"	SEL2+2, SEL3+21, INS+1!, INS+17*, INS+18, INSCHK+3, INSCHK+8, INSCHK+9, PGCK+4, PGCK+5 , DISPLAY+2, SAVE+3, END+3, END+19
ABMY("PGCK"	PGCK+2*, PGCK+4
ABMY("PGS"	SEL3+29, PGS+2!, PGS+7*, PGCK+2, DISPLAY+4, SAVE+4
ABMY("RTYP"	SEL+3
ABMY("SPLITHOW"	SEL3+39, SPLITHOW+1!, SPLITHOW+8*, DISPLAY+5, SAVE+9
DA	SAVE+2!, END+2!, END+10!, END+20*
DA(1	SAVE+3, SAVE+5, END+19, END+21
DD	SAVE+12!
DIC	INS+5, SAVE+2!, SAVE+5, END+2!, END+10!
DIC("DR"	SAVE+8, SAVE+9, SAVE+10, SAVE+11
DIC("P"	SAVE+6*
DIC(0	INS+6, SAVE+7
DIE	SAVE+2!, END+2!, END+10!, END+21*
DIR	SEL+24!, SEL3+8!, SEL3+45!, INS+14!, INS+20!, END+2!, END+10!
DIR("A"	SEL+24, SEL3+6, SEL3+15, SEL3+16, SEL3+45, INS+14, INS+20, SDT+4, PGS+4, SPLITHOW+3 , END+4, END+5, END+12*
DIR("B"	SEL3+7, SPLITHOW+4, END+13*
DIR(0	SEL+24, SEL3+5, SEL3+13, SEL3+45, INS+14, INS+20, SDT+5, PGS+3, SPLITHOW+2, END+3 , END+11*
DIROUT	SEL+2!, SEL3+9, SEL3+18, SEL3+22, SEL3+25, SEL3+46, INS+10, SDT+7, SPLITHOW+7, END+7
DIRUT	SEL+2!, SEL3+9, SEL3+18, SEL3+22, SEL3+25, SEL3+46, INS+10, SDT+7, SPLITHOW+7, END+7
DO	SAVE+12!
DR	SAVE+2!, END+2!, END+10!, END+22, END+23
DTOUT	SEL+2!, SEL3+9, SEL3+18, SEL3+22, SEL3+25, SEL3+46, INS+10, SDT+7, SPLITHOW+7, END+7
DUOUT	SEL+2!, SEL3+9, SEL3+18, SEL3+22, SEL3+25, SEL3+46, INS+10, SDT+7, SPLITHOW+7, END+7
DUZ	SAVE+11, END+23
DUZ(2	SEL3+21, INSCHK+3, INSCHK+8, INSCHK+9, PGCK+4, PGCK+5, SAVE+5, END+3, END+21
U	SEL3+4, SEL3+21, INSCHK+10, INSCHK+11, INSCHK+12, INSCHK+13, INSCHK+14, INSCHK+15, INSCHK+16, INSCHK+17 , INSCHK+24, INSCHK+26, PGCK+5, DISPLAY+2, SAVE+6, END+3
X	SAVE+2!, SAVE+4*, END+2!, END+10!
Y	SEL+25, SEL3+4, SEL3+10, SEL3+19, SEL3+20, SEL3+47, INS+8, INS+10, INS+11, INS+12 , INS+15, INS+16*, INS+17, INS+21, SDT+8, PGS+6, PGS+7, SPLITHOW+6, SPLITHOW+8, SAVE+2! , SAVE+14, END+2!, END+8, END+9, END+10!, END+15

Customize PDF page

Package: Third Party Billing

Routine: ABMRSCIN

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: