Routine: AZAMED16

Information

AZAMED16 ; IHS/PHXAO/TMJ - -- Billing Dental ; [ 06/11/03 4:16 PM ]

Source file <AZAMED16.m>

Package	Total	Call Graph
VA Fileman	5	^%DT ^%DTC FILE^DICN ^DIE ^DIR

Name	Comments	DBIA/ICR reference
BD	; -- beginning date
URC()	; -- urc billing file
INP()	; -- inpatient
INPV()	; -- inpatient visit date
DT(Y)	;
MCRM()	; -- medicare eligible multiple ien
MCRE()	; -- medicare eligible end date
PRVM()	; -- private insurance eligible multiple ien
INPI()	; -- inpatient ien
ES()	; -- eligibility status
1	; -- create entry
MCDC()	; -- medicaid eligibility code
AV()	; -- visit same day
PRVE()	; -- private insurance eligible end date
PRV()	;
MCRB()	; -- medicare eligible eligibility
TN	; -- transmittal number
MCDE()	; -- medicaid eligible end date
LV	; -- loop visits
MCDM(X,Y)	; -- medicaid eligible multiple ien
ID(X)	; -- inverse date
MCRI()	; -- medicare eligible ien
A	; -- driver
CB()	; -- classification/beneficiary
PRVI()	; -- private insurance
ED	; -- end date
MCD(X,Y)	; -- medicaid eligible
ADA()	;
U21()	; -- under 21 years of age
2	; -- stuff additional fields
MCR()	; -- medicare eligible
MCDI()	; -- medicaid eligible ien
Q	; -- cleanup
MCDN()	; -- medicaid eligibility number
DS()	; -- day surgery
INPD()	; -- inpatient discharge date
PRVX()	; -- private insurance eligible

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCDC+1, MCDN+1, MCDM+1, MCDM+2, MCDE+1, MCD+1, MCD+2
^AUPNMCD("B"	MCDI+1
^AUPNMCR - [#9000003]	MCRM+1, MCRE+1, MCRB+1
^AUPNMCR("B"	MCRI+1
^AUPNPAT - [#9000001]	ES+1, CB+1
^AUPNPRVT - [#9000006]	PRVM+1, PRVE+1, PRV+1, PRV+2
^AUPNPRVT("B"	PRVI+1
^AUPNVDEN - [#9000010.05]	ADA+4
^AUPNVDEN("AD"	ADA+3
^AUPNVINP - [#9000010.02]	INPD+1, INPV+1
^AUPNVINP("AA"	INPI+1
^AUPNVSIT - [#9000010]	LV+3, INPV+1, DS+1
^AUPNVSIT("B"	LV+1, LV+2
^AUTTADA - [#9999999.31]	ADA+4
^DD("DD"	DT+1
^DIZ(1115238	1+1, URC+1, AV+1
^DPT - [#2]	U21+1

Name	Line Occurrences
$$ADA	LV+5
$$DS	LV+5
$$ID	INPI+1
$$INP	LV+5
$$INPD	INP+1
$$INPI	INP+1, INPD+1, INPV+1
$$INPV	INP+1
$$MCD	LV+5
$$MCDI	MCDC+1, MCDN+1, MCDM+1, MCDM+2, MCDE+1, MCD+1, MCD+2
$$MCDM	MCDC+1, MCDE+1
$$MCR	LV+5
$$MCRB	MCR+1
$$MCRE	MCR+1
$$MCRI	MCRM+1, MCRE+1, MCRB+1
$$MCRM	MCRE+1, MCRB+1, MCR+1
$$PRV	LV+5
$$PRVE	PRVX+1
$$PRVI	PRVM+1, PRVE+1
$$PRVM	PRVE+1, PRVX+1
$$U21	LV+5
1	LV+5
2	LV+5
BD	A+2
ED	A+3
LV	A+5
Q	A+2, A+3, A+4
TN	A+4

Name	Field # of Occurrence
>> %DT	BD+1, ED+1
>> %DT("A"	BD+1, ED+1
ADA	1+2~, ADA+2~, ADA+4, ADA+5, ADA+6, ADA+7*, ADA+8
BD	A+2, BD+1*, LV+1, Q+1!
DA	1+2~, 2+1*
DD	1+2!
DFN	LV+4*, MCDI+1, MCRI+1, INPI+1, U21+1, ES+1, CB+1, PRVI+1, AV+1, Q+1! , PRV+1, PRV+2
DIC	1+2~, 1+3*
DIC("DR"	1+4*
DIC(0	1+3, 2+1
DIE	1+2~, 2+1*
DINUM	1+2~, 1+3*
DIR	TN+1~
DIR("A"	TN+1*
DIR(0	TN+1*
DIRUT	A+4, Q+1!
DO	1+2!
DR	1+2~, 2+2, 2+3, 2+6, 2+7, 2+9*
DT	U21+1
DUZ(2	LV+3
ED	A+3, ED+1*, LV+1, Q+1!
FLG	ADA+2~, ADA+3, ADA+5, ADA+6*
IEN	LV+2*, LV+3, 1+1, 1+3, 2+1, URC+1, ADA+3, DS+1, Q+1!
IFN	ADA+2~, ADA+3, ADA+4
N	LV+3, LV+4, Q+1!, PRV+1~, PRV+2, PRV+3
T	TN+2*, Q+1!
U	LV+3, LV+4, MCDC+1, MCDN+1, MCDM+3, MCDE+1, MCD+3, MCRE+1, MCRB+1, INPV+1 , ADA+4, U21+1, DS+1, ES+1, CB+1, PRVE+1, PRV+2, PRV+3
VDT	LV+1*, LV+2, MCDM+3, MCD+3, MCRM+1, MCR+1, INP+1, INPI+1, PRVM+1, PRVX+1 , AV+1, Q+1!, PRV+2, PRV+3
X	BD+1, ED+1, TN+1~, 1+2~, 1+3, MCDM~, MCDM+1, MCDM+2, MCDM+4, MCD~ , MCD+1, MCD+2, ID~, ID+1, U21+1~, U21+2, PRV+1~, PRV+2
X1	U21+1~*
X2	U21+1~*
Y	BD+1, ED+1, TN+1~, TN+2, MCDM~, MCDM+1, MCDM+2, MCDM+3, MCD~, MCD+1 , MCD+2, MCD+3, MCD+4, DT~, DT+1, PRV+1~, PRV+4, PRV+5