Routine: ABMZIPS

Information

ABMZIPS ;IHS/DSD/DMJ - GENERATE CLAIMS FOR AHCCCS PHYSICIAN IP SVCS. [ 05/01/98 11:11 AM ]

Source Information

Source file <ABMZIPS.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	6	^%DT (,NOW)^%DTC ^DIC ^DIE IX1^DIK ^DIR
Third Party Billing	4	$$ADD^ABMDBAD1 $$SDT^ABMDUTL $$^ABMVDF ^ABMZBDIC

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
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
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
$$ADD^ABMDBAD1	NBILL+24
$$SDT^ABMDUTL	ONE+4, ONE+5
$$^ABMVDF	START+2, START+5, HDR+1
^ABMZBDIC	IND+2
^DIC	PAY+4, CODE+4, PHY+9, NB+5, BFILE+7
^DIE	NB+11
IX1^DIK	MED+4
^DIR	RATE+7, ASK+4, BY+8, UNIT+4, NBILL+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$^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: !,$$^ABMVDF("RVN"),"NOTE:",$$^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,"^",1),?10,$P(^DPT(ABMPAT,0),"^",1) Line Location: ONE+3
Function Call: WRITE	Prompt: ?40,$$SDT^ABMDUTL($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),7)),"^",1)) 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+25
Function Call: WRITE	Prompt: !!,"Bill # ",ABMBNAME," created" Line Location: NBILL+27
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: $$^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+11
Routine Call	DIC Line Location: PAY+4 CODE+4 PHY+9 NB+5 BFILE+7
Routine Call	DIR Line Location: RATE+7 ASK+4 BY+8 UNIT+4 NBILL+9

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^ICPT - [#81]	Classic Fileman Calls
^ABMDTXST - [#9002274.6]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	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+6, NBILL+26, NBILL+29 , NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1, MED+2, MED+3, SET+1, SET+3, DUP+2 , DUP+3, DUP+4, DUP+5, DUP+7
^ABMDFEE(1	RATE+2, RATE+4
^ABMDTMP("IPSVC"	LOOP+7, BY+6*
^ABMDTXST - [#9002274.6]	BFILE+6
^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
^(8	NBILL+31*

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+9!
ABM(	ASK+8
ABM("EQ"	HDR+2*, HDR+7
ABM(1	ASK+6*
ABM(2	ASK+7*
>> ABM1	NBILL+24
>> ABM1(	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, NBILL+23
ABMBATCH	ASK+9!, ONE+10, NB+7*, NB+8, NBILL+21, BFILE+4, BFILE+9
>> ABMBDFN	NBILL+24*
ABMBNAME	ASK+9!, NBILL+26*, NBILL+27, BFILE+3
>> ABMCNT	ONE+1, ONE+7, PHY+3, PHY+4
ABMCODE	CODE+5*, RATE+2, ASK+9!, MED+2
>> ABMDA	RATE+2*, RATE+3, RATE+4
ABMDICSV	ASK+9!
>> ABMDPV	DUP+5*, DUP+6
ABMDTF	ASK+9!, UNIT+1, SET+3*, DUP+4
ABMDTT	ASK+9!, UNIT+1, SET+3*
ABMDUP	ASK+9!, NBILL+2, NBILL+6, DUP+1!, DUP+2, DUP+8*
>> ABMI	RATE+1*, RATE+2, RATE+4
>> ABMINAME	PAY+7*, LOOP+7, BY+6
ABMINS	PAY+5*, PAY+6, PAY+7, ASK+9!, BY+1, NB+10, NBILL+15, DUP+7
>> ABMITYP	PAY+6*, NB+10
>> 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+29, NBILL+30, SET+1, SET+3
ABMPAT	ASK+9!, ONE+3, SET+2*, DUP+2
ABMPHY	ASK+9!, PHY+2!, PHY+3, PHY+4, PHY+5, PHY+6, PHY+11, NBILL+33, DUP+6
ABMQUIT	START+1!, ASK+9!, BY+1, BY+9!, IND+6!, ONE+6, ONE+8, ONE+9, ONE+10, PHY+10* , UNIT+6, NB+6
>> ABMRATE	RATE+4, RATE+6, RATE+8, NBILL+22, NBILL+23, MED+2
>> ABMSDT	LOOP+6*, BY+2
ABMUNIT	ASK+9!, UNIT+5*, UNIT+6, NBILL+22, NBILL+23, MED+2
>> ABMZERO	BY+4, ONE+3, NBILL+11, NBILL+12, NBILL+17, SET+1*, SET+2
DA	ONE+12, NB+8*, NBILL+1!, NBILL+25, NBILL+26, NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1 , MED+2, MED+3
DA(1	BFILE+4*, BFILE+6
DIC	PAY+1!, PAY+3, CODE+1!, CODE+2, PHY+2!, PHY+7, NB+1!, NB+2, NB+9, BFILE+1! , BFILE+5*
DIC("A"	PHY+8*
DIC("B"	PAY+2, CODE+3, PHY+6*
DIC(0	PAY+3, CODE+2, PHY+7, NB+3, BFILE+2*
>> DIE	NB+9*
>> DIK	MED+4*
DIR	RATE+7!, ASK+4!, BY+8!, UNIT+4!, NBILL+9!
DIR("A"	RATE+5, ASK+2, BY+7, UNIT+3, NBILL+7*
DIR("B"	RATE+6, ASK+3, UNIT+1, NBILL+8
DIR(0	RATE+7, ASK+1, BY+7, UNIT+2, NBILL+9*
>> DR	NB+10*
DT	NBILL+19
DUZ	NB+10, NBILL+18
DUZ(2	BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+6, NBILL+26, NBILL+29 , NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1, MED+2, MED+3, BFILE+6, SET+1, SET+3 , DUP+2, DUP+3, DUP+4, DUP+5, DUP+7
I	NBILL+28~, NBILL+29, NBILL+30, DUP+2~, DUP+3, DUP+4, DUP+5, DUP+7, DUP+8
IOSL	ONE+2
>> X	UNIT+1, NB+4, BFILE+3
>> X1	UNIT+1*
>> X2	UNIT+1*
>> Y	PAY+4, PAY+5, CODE+4, CODE+5, RATE+8, 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: ABMZIPS

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: