Routine: ABMDIPS

Information

ABMDIPS ; IHS/ASDST/DMJ - GENERATE BILLS FOR PHYSICIAN IP SVCS. ;

Source Information

Source file <ABMDIPS.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Third Party Billing	6	$$CPT^ABMCVAPI $$ADD^ABMDBAD1 ^ABMDBLK ($$SDT,EOP)^ABMDUTL $$ONE^ABMFEAPI $$EN^ABMVDF
VA Fileman	6	^%DT (,NOW)^%DTC ^DIC ^DIE IX1^DIK ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
MED	;file entry under misc svcs
CODE	;enter procedure code
BFILE	;file in 3P TX STATUS file
PAY	;enter payer
NB	;enter new batch in file 9002274.6
REV	;revenue code
PHY	;enter physician
ONE	;process one bill
DUP	;check for duplicate bill
START	;START
RATE	;get rate
SET	;set some variables
NBILL	;create bill in bill file
UNIT	;enter units
EXP	;mode of export
ASK	;ask look-up method
IND	;process one at a time
BY	;bypass with different ien
LOOP	;LOOP HERE
HDR	;screen header

External References

Name	Field # of Occurrence
^%DT	LOOP+5
^%DTC	UNIT+1
NOW^%DTC	NB+4
$$CPT^ABMCVAPI	CODE+2
$$ADD^ABMDBAD1	NBILL+23
^ABMDBLK	IND+2
$$SDT^ABMDUTL	ONE+4, ONE+5
EOP^ABMDUTL	PAY+13, ASK+9
$$ONE^ABMFEAPI	RATE+5
$$EN^ABMVDF	START+2, START+5, HDR+1
^DIC	PAY+4, CODE+7, EXP+5, REV+7, PHY+9, NB+5, BFILE+7
^DIE	NB+12
IX1^DIK	MED+4
^DIR	RATE+8, ASK+4, BY+8, UNIT+4, NBILL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: START+2
Function Call: WRITE	Prompt: !!,"This option will generate 3P Bills" Line Location: START+3
Function Call: WRITE	Prompt: !,"for inpatient physician services.",! Line Location: START+4
Function Call: WRITE	Prompt: !,$$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF"),"To use this option an inpatient bill must already exist" Line Location: START+5
Function Call: WRITE	Prompt: !,"in 3P Bill File.",!! Line Location: START+6
Function Call: WRITE	Prompt: !!,"Begin Loop",! Line Location: LOOP+1
Function Call: WRITE	Prompt: !,$P(ABMZERO,U),?10,$P(^DPT(ABMPAT,0),U) Line Location: ONE+3
Function Call: WRITE	Prompt: ?40,$$SDT^ABMDUTL($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),7)),U)) Line Location: ONE+4
Function Call: WRITE	Prompt: ?55,$$SDT^ABMDUTL($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),7)),"^",2)) Line Location: ONE+5
Function Call: WRITE	Prompt: ! Line Location: PHY+1
Function Call: WRITE	Prompt: !!,"Bill NOT created." Line Location: NBILL+24
Function Call: WRITE	Prompt: !!,"Bill # ",ABMBNAME," created" Line Location: NBILL+26
Function Call: WRITE	Prompt: !!,*7,"Bill NOT added to 3P TX STATUS FILE",! Line Location: BFILE+8
Function Call: WRITE	Prompt: " - added to batch # ",ABMBATCH,! Line Location: BFILE+9
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HDR+1
Function Call: WRITE	Prompt: !,"BILL #" Line Location: HDR+3
Function Call: WRITE	Prompt: ?10,"PATIENT" Line Location: HDR+4
Function Call: WRITE	Prompt: ?40,"ADMIT DATE" Line Location: HDR+5
Function Call: WRITE	Prompt: ?55,"DISCHARGE DATE" Line Location: HDR+6
Function Call: WRITE	Prompt: !,ABM("EQ"),! Line Location: HDR+7
Routine Call	DIE Line Location: NB+12
Routine Call	DIC Line Location: PAY+4 CODE+7 EXP+5 REV+7 PHY+9 NB+5 BFILE+7
Routine Call	DIR Line Location: RATE+8 ASK+4 BY+8 UNIT+4 NBILL+8

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^ICPT - [#81]	Classic Fileman Calls
^ABMDEXP - [#9002274.08]	Classic Fileman Calls
^ABMDTXST - [#9002274.6]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls
^AUTTREVN - [#9999999.72]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+25, NBILL+28, NBILL+29* , NBILL+30, NBILL+31, MED+1, MED+2, MED+3*, SET+1, SET+3, DUP+2, DUP+3, DUP+4 , DUP+5, DUP+7
^ABMDEXP - [#9002274.08]	EXP+7, NB+11
^ABMDFEE(1	RATE+2
^ABMDTMP("IPSVC"	LOOP+7, BY+6*
^ABMDTXST - [#9002274.6]	BFILE+6
^ABMNINS(	PAY+9
^AUTNINS - [#9999999.18]	PAY+6, PAY+7
^DPT - [#2]	ONE+3
^VA(200 - [#200]	PHY+6

Name	Line Occurrences
@(	ASK+8
BFILE	ONE+13
DUP	NBILL+2
HDR	ONE+2
NB	ONE+10
NBILL	ONE+11
ONE	BY+5, IND+5
PHY	ONE+8
SET	BY+3, IND+4
UNIT	ONE+9

Name	Field # of Occurrence
^(0	BFILE+6*
^(7	SET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NB+4
>> %DT	LOOP+4*
>> %DT("A"	LOOP+2*
>> %DT("B"	LOOP+3*
ABM	ASK+10!
ABM(	ASK+8
ABM("EQ"	HDR+2*, HDR+7
ABM(1	ASK+6*
ABM(2	ASK+7*
>> ABM1	NBILL+23
>> ABM1(	NBILL+9, NBILL+10, NBILL+11, NBILL+12, NBILL+13, NBILL+14, NBILL+15, NBILL+16, NBILL+17, NBILL+18 , NBILL+19, NBILL+20, NBILL+21, NBILL+22
>> ABMAPOK	MED+3*
ABMBATCH	ASK+10!, ONE+10, NB+7*, NB+8, NBILL+20, BFILE+4, BFILE+9
>> ABMBDFN	NBILL+23*
ABMBNAME	ASK+10!, NBILL+25*, NBILL+26, BFILE+3
>> ABMCNT	ONE+1, ONE+7, PHY+3, PHY+4
ABMCODE	CODE+1, CODE+2, CODE+6, CODE+8*, RATE+2, ASK+10!, MED+2
>> ABMDA	RATE+2*, RATE+3, RATE+5
ABMDICSV	ASK+10!
>> ABMDPV	DUP+5*, DUP+6
ABMDTF	ASK+10!, UNIT+1, SET+3*, DUP+4
ABMDTT	ASK+10!, UNIT+1, SET+3*
ABMDUP	ASK+10!, NBILL+2, DUP+1!, DUP+8*
>> ABMI	RATE+1*, RATE+2, RATE+5
ABMI0	PAY+9*, PAY+10, CODE+1, EXP+1, REV+2, ASK+10!
>> ABMINAME	PAY+7*, PAY+11, LOOP+7, BY+6
ABMINS	PAY+5*, PAY+6, PAY+7, PAY+9, ASK+10!, BY+1, NB+10, NBILL+14, DUP+7
>> ABMITYP	PAY+6*, NB+10
ABMMOE	EXP+1, EXP+2, EXP+5, EXP+6, EXP+7, ASK+10!, NB+10, NB+11, NBILL+12
>> ABMP("BDFN"	LOOP+7, BY+1, BY+2, BY+6, IND+1, IND+3, ONE+4, ONE+5, PHY+3, PHY+4 , PHY+5, NBILL+28, NBILL+29, SET+1, SET+3
>> ABMP("VDT"	CODE+2, RATE+5
ABMPAT	ASK+10!, ONE+3, SET+2*, DUP+2
ABMPHY	ASK+10!, PHY+2!, PHY+3, PHY+4, PHY+5, PHY+6, PHY+11, NBILL+31, DUP+6
ABMQUIT	START+1!, ASK+10!, BY+1, BY+9!, IND+6!, ONE+6, ONE+8, ONE+9, ONE+10, PHY+10* , UNIT+6, NB+6
>> ABMRATE	RATE+5, RATE+7, RATE+9, NBILL+21, NBILL+22, MED+2
ABMRVCD	REV+2, REV+3, REV+7, ASK+10!, MED+2
>> ABMSDT	LOOP+6*, BY+2
>> ABMUB	EXP+7*, REV+1
ABMUNIT	ASK+10!, UNIT+5*, UNIT+6, NBILL+21, NBILL+22, MED+2
>> ABMZERO	BY+4, ONE+3, NBILL+10, NBILL+11, NBILL+16, SET+1*, SET+2
DA	ONE+12, NB+8*, NBILL+1!, NBILL+24, NBILL+25, NBILL+29, NBILL+30, NBILL+31, MED+1, MED+2 , MED+3
DA(1	BFILE+4*, BFILE+6
DIC	PAY+1!, PAY+3, CODE+3!, CODE+4, EXP+4!, REV+5!, ASK+10!, PHY+2!, PHY+7, NB+1! , NB+2, NB+9, BFILE+1!, BFILE+5*
DIC("A"	CODE+5, REV+6, PHY+8*
DIC("B"	PAY+2, CODE+6, PHY+6*
DIC(0	PAY+3, CODE+4, EXP+4, REV+5, PHY+7, NB+3, BFILE+2*
>> DIE	NB+9*
>> DIK	MED+4*
DIR	RATE+8!, ASK+4!, BY+8!, UNIT+4!, NBILL+8!
DIR("A"	RATE+6, ASK+2, ASK+9, BY+7, UNIT+3, NBILL+6
DIR("B"	RATE+7, ASK+3, UNIT+1, NBILL+7
DIR(0	RATE+8, ASK+1, BY+7, UNIT+2, NBILL+8*
>> DR	NB+10, NB+11
DT	RATE+5, NBILL+18
DUZ	NB+10, NBILL+17
DUZ(2	PAY+9, BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+25, NBILL+28 , NBILL+29, NBILL+30, NBILL+31, MED+1, MED+2, MED+3, BFILE+6, SET+1, SET+3, DUP+2 , DUP+3, DUP+4, DUP+5, DUP+7
I	NBILL+27~, NBILL+28, NBILL+29, DUP+2~, DUP+3, DUP+4, DUP+5, DUP+7
IOSL	ONE+2
U	PAY+6, PAY+7, CODE+2, RATE+5, BY+2, ONE+3, ONE+4, PHY+5, PHY+6, NBILL+25 , SET+3, DUP+4, DUP+5
>> X	UNIT+1, NB+4, BFILE+3
>> X1	UNIT+1*
>> X2	UNIT+1*
>> Y	PAY+4, PAY+5, CODE+7, CODE+8, RATE+9, EXP+5, REV+7, ASK+5, ASK+8, LOOP+6 , BY+9, PHY+10, PHY+11, UNIT+5, NB+6, NB+7, NBILL+2, BFILE+8

Customize PDF page

Package: Third Party Billing

Routine: ABMDIPS

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: