Routine: ABMDRSEL

Package	Total	Call Graph
VA Fileman	3	C^%DTC ^DIC ^DIR
Third Party Billing	1	(PTYP,RFOR,RTYP)^ABMDRSL2

Package	Total	Caller Graph
Third Party Billing	17	ABMDBRUN ABMDCCL ABMDFPRT ABMDICST ABMDRAGE ABMDRAL ABMDRAPP ABMDRBR ABMDRDX ABMDRPR ABMDRPT ABMDRPX ABMDRST ABMDRSU ABMDRXC ABMESTAT ABMRDNYD

Entry Points

Name	Comments	DBIA/ICR reference
VTYP	;SELECT VISIT TYPES
PARM	; ; Choose additional exclusion parameters
INS	;
REASON	; select reasons (for cancelled and pending claim reports)
XIT2	;
XIT	;
CLIN	;SELECT CLINICS
LOOP	; ; Display current exclusion parameters

External References

Name	Field # of Occurrence
C^%DTC	ABMDRSEL+31, ABMDRSEL+35
PTYP^ABMDRSL2	PARM+17
RFOR^ABMDRSL2	PARM+16
RTYP^ABMDRSL2	PARM+19
^DIC	CLIN+7, VTYP+7, REASON+7
^DIR	PARM+12, INS+5, XIT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the EXPORT to:",!?3,"=======================================================================" Line Location: LOOP+3
Function Call: WRITE	Prompt: !?3,"- Visit Location.....: ",$P(^DIC(4,ABMY("LOC"),0),U) Line Location: LOOP+4
Function Call: WRITE	Prompt: !?3,"- Billing Entity.....: ",$P(^AUTNINS(ABMY("INS"),0),U) Line Location: LOOP+5
Function Call: WRITE	Prompt: !?3,"- Billing Entity.....: ",$P(^DPT(ABMY("PAT"),0),U) Line Location: LOOP+6
Function Call: WRITE	Prompt: !?3,"- Billing Entity.....: ",ABMY("TYP","NM") Line Location: LOOP+7
Function Call: WRITE	Prompt: " to: " Line Location: LOOP+14
Function Call: WRITE	Prompt: !?3,"- Status Updater.....: ",$P($G(^VA(200,$G(ABMY("STATUS UPDATER")),0)),U) Line Location: LOOP+15
Function Call: WRITE	Prompt: !?3,"- Approving Official.: ",$P(^VA(200,ABMY("APPR"),0),U) Line Location: LOOP+16
Function Call: WRITE	Prompt: !?3,"- Cancelling Official.: ",$P(^VA(200,ABMY("CANC"),0),U) Line Location: LOOP+17
Function Call: WRITE	Prompt: !?3,"- Closing Official.: ",$P(^VA(200,ABMY("CLOS"),0),U) Line Location: LOOP+18
Function Call: WRITE	Prompt: !?3,"- Claim Status.......: ",ABM("STA","NM") Line Location: LOOP+19
Function Call: WRITE	Prompt: !?3,"- Provider...........: ",$P(^VA(200,ABMY("PRV"),0),U) Line Location: LOOP+20
Function Call: WRITE	Prompt: !?3,"- Eligibility Status.: ",ABMY("PTYP","NM") Line Location: LOOP+21
Function Call: WRITE	Prompt: !?3,"- Diagnosis Code from: ",ABMY("DX",1)," to: ",ABMY("DX",2)," (",$S($D(ABMY("DX","ALL")):"Check All Diagnosis",1:"Primary Diagnosis Only"),")" Line Location: LOOP+22
Function Call: WRITE	Prompt: !?3,"- Diagnosis (ICD-9) Code from: ",ABM("DX",1)," to: ",ABM("DX",2)," (",$S($D(ABMY("DX","ALL")):"Check All Diagnosis",1:"Primary Diagnosis Only"),")" Line Location: LOOP+23
Function Call: WRITE	Prompt: !?3,"- Diagnosis (ICD-10) Code from: ",ABM("DX",3)," to: ",ABM("DX",4)," (",$S($D(ABMY("DX10","ALL")):"Check All Diagnosis",1:"Primary Diagnosis Only"),")" Line Location: LOOP+24
Function Call: WRITE	Prompt: !?3,"- CPT Range from.....: ",ABMY("PX",1)," to: ",ABMY("PX",2) Line Location: LOOP+25
Function Call: WRITE	Prompt: !?3,"- Report Type........: ",ABM("RTYP","NM") Line Location: LOOP+26
Function Call: WRITE	Prompt: !?3,"- Output Type........: ",ABM("RFOR","NM") Line Location: LOOP+27
Function Call: WRITE	Prompt: !,?7,"Write file to ",ABM("RPATH")_ABM("RFN") Line Location: LOOP+28
Function Call: WRITE	Prompt: !!?5,"You can RESTRICT the REPORT to either a SPECIFIC INSURER or",!?5,"else a TYPE of INSURER (i.e. PRIVATE INSURANCE, MEDICAID...).",! Line Location: INS+1
Function Call: WRITE	Prompt: ! Line Location: XIT+2
Routine Call	DIC Line Location: CLIN+7 VTYP+7 REASON+7
Routine Call	DIR Line Location: PARM+12 INS+5 XIT+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	LOOP+5
^DIC(4 - [#4]	LOOP+4
^DPT - [#2]	LOOP+6
^VA(200 - [#200]	LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+20

Label References

Name	Line Occurrences
@(	PARM+15, PARM+18, INS+7
CLIN	XIT+11
LOOP	PARM+15, PARM+16, PARM+17, PARM+18, PARM+19, INS+8
REASON	XIT+11, XIT+13
VTYP	XIT+13
XIT	LOOP+2, PARM+14, INS+6
XIT2	XIT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM("APPR"	ABMDRSEL+17
>> ABM("CANC"	ABMDRSEL+18, PARM+4, PARM+15
>> ABM("CLOS"	ABMDRSEL+19, PARM+4, PARM+15
>> ABM("DX"	LOOP+23, LOOP+24
>> ABM("NODX"	PARM+8, PARM+9, PARM+18
>> ABM("NOSTAT"	PARM+6
>> ABM("OVER-DUE"	ABMDRSEL+20, ABMDRSEL+22, ABMDRSEL+26
>> ABM("REASON"	XIT+11, XIT+13, REASON+2
>> ABM("RFN"	LOOP+28
>> ABM("RFOR"	LOOP+27, LOOP+28, PARM+7, PARM+16
>> ABM("RPATH"	LOOP+28
>> ABM("RTYP"	LOOP+26, PARM+9, XIT+1
>> ABM("STA"	LOOP+19, PARM+4, PARM+15
ABMY	ABMDRSEL+14!
ABMY("APPR"	ABMDRSEL+17*, LOOP+16
ABMY("CANC"	ABMDRSEL+18*, LOOP+17
ABMY("CLIN"	CLIN+1!, CLIN+6, CLIN+9*, CLIN+10
ABMY("CLOS"	ABMDRSEL+19*, LOOP+18
ABMY("DT"	ABMDRSEL+21, ABMDRSEL+23, ABMDRSEL+24, ABMDRSEL+25, ABMDRSEL+27, ABMDRSEL+28, ABMDRSEL+32, ABMDRSEL+36, LOOP+8, LOOP+12 , LOOP+14
ABMY("DX"	LOOP+23, LOOP+24
ABMY("DX10"	LOOP+24
ABMY("I"	XIT2+1!
ABMY("INS"	LOOP+5
ABMY("LOC"	LOOP+4
ABMY("PAT"	LOOP+6
ABMY("PRV"	LOOP+20
ABMY("PTYP"	LOOP+21
ABMY("PX"	LOOP+25
ABMY("REASON"	REASON+1!, REASON+6, REASON+9*, REASON+10
ABMY("SORT"	XIT+10*, XIT+11, XIT+13, CLIN+11!, VTYP+11!, REASON+11!
ABMY("STATUS	UPDATER" , LOOP+15
ABMY("TYP"	LOOP+7
ABMY("VTYP"	VTYP+1!, VTYP+6, VTYP+9*, VTYP+10
ABMY("X"	ABMDRSEL+16*, LOOP+14, XIT2+1!
DIC	ABMDRSEL+14!, CLIN+2, CLIN+13!, VTYP+2, VTYP+13!, REASON+2*, REASON+13!
DIC("A"	CLIN+4, CLIN+6, VTYP+4, VTYP+6, REASON+4, REASON+6
DIC(0	CLIN+3, VTYP+3, REASON+3*
DIR	ABMDRSEL+14!, PARM+2!, PARM+13!, XIT+3!, XIT2+1!
DIR("?"	PARM+11, XIT+7
DIR("A"	PARM+10, INS+3, XIT+5*
DIR("B"	INS+4, XIT+6
DIR(0	PARM+3, PARM+4, PARM+6, PARM+7, PARM+8, PARM+9, INS+2, XIT+4
>> DIROUT	LOOP+2, PARM+14, INS+8, XIT+1, XIT+9
>> DIRUT	PARM+14, INS+6, XIT+9
DT	ABMDRSEL+24, ABMDRSEL+25, ABMDRSEL+27, ABMDRSEL+28, ABMDRSEL+29, ABMDRSEL+33
>> DTOUT	LOOP+2, INS+8, XIT+1
>> DUOUT	LOOP+2, INS+8, XIT+1, CLIN+11, VTYP+11, REASON+11
U	ABMDRSEL+15*, LOOP+4, LOOP+5, LOOP+6, LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+20
>> X	ABMDRSEL+32, ABMDRSEL+36, LOOP+14*
>> X1	ABMDRSEL+29, ABMDRSEL+33
>> X2	ABMDRSEL+30, ABMDRSEL+34
>> Y	PARM+15, PARM+16, PARM+17, PARM+18, INS+7, XIT+10, CLIN+5, CLIN+8, CLIN+9, VTYP+5 , VTYP+8, VTYP+9, REASON+5, REASON+8, REASON+9

Customize PDF page

Package: Third Party Billing

Routine: ABMDRSEL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: