Routine: ABMDRAPP

Package	Total	Call Graph
Third Party Billing	4	^ABMDRDBQ (,WHD)^ABMDRHD ^ABMDRSEL (PAZ,POUT)^ABMDRUTL
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;EP for printing data
XIT	;
COMPUTE	;EP - Entry Point for Setting up Data
HDB	;
HD	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J("",8-$L($P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),U))\2)_$P(^(0),U),?10,$E($P(^DPT($P(^(0),U,5),0),U),1,29) Line Location: PRINT+19
Function Call: WRITE	Prompt: ?41,$P(^ABMDEXP($P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),U,6),0),U) Line Location: PRINT+20
Function Call: WRITE	Prompt: ?53,$E($P(^AUTNINS($P(^ABMDBILL(DUZ(2),ABMP("BDFN"),0),U,8),0),U),1,27) Line Location: PRINT+21
Function Call: WRITE	Prompt: !," Bill",?42,"Export" Line Location: HDB+4
Function Call: WRITE	Prompt: !," Number",?17,"Patient",?43,"Mode",?58,"Billing Source" Line Location: HDB+5
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: HDB+6
Routine Call	DIR Line Location: ABMDRAPP+17

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15 , PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22
^ABMDEXP - [#9002274.08]	PRINT+20
^ABMDTXST - [#9002274.6]	PRINT+18
^AUTNINS - [#9999999.18]	PRINT+22
^DPT - [#2]	PRINT+19

Name	Field # of Occurrence
ABM	ABMDRAPP+13!
ABM("APPR"	ABMDRAPP+21*
ABM("HD"	ABMDRAPP+24*
ABM("I"	HDB+2*
ABM("NODX"	ABMDRAPP+20*
ABM("PG"	PRINT+2, HDB+1
>> ABMP("BDFN"	PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14 , PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22
>> ABMP("VAR"	ABMDRAPP+19*, ABMDRAPP+28
>> ABMQ("NS"	ABMDRAPP+27*
>> ABMQ("RC"	ABMDRAPP+28, ABMDRAPP+29
>> ABMQ("RP"	ABMDRAPP+28, ABMDRAPP+29
>> ABMQ("RX"	ABMDRAPP+26*
ABMY	ABMDRAPP+13!
ABMY("APPR"	PRINT+14
ABMY("DT"	PRINT+15, PRINT+16, PRINT+17, PRINT+18
ABMY("DX"	PRINT+11
ABMY("INS"	PRINT+13
ABMY("LOC"	PRINT+9
ABMY("PRV"	PRINT+10
ABMY("TYP"	PRINT+12
DIR	ABMDRAPP+13!
DIR("A"	ABMDRAPP+15*
DIR("B"	ABMDRAPP+16*
DIR(0	ABMDRAPP+14*
>> DIROUT	ABMDRAPP+18, ABMDRAPP+23, PRINT+5, PRINT+8, HD+2
>> DIRUT	ABMDRAPP+18
>> DTOUT	ABMDRAPP+23, PRINT+5, PRINT+8, HD+2
>> DUOUT	ABMDRAPP+23, PRINT+5, PRINT+8, HD+2
DUZ	ABMDRAPP+21
DUZ(2	PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15 , PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22
IO	PRINT+1
IOSL	PRINT+8
U	PRINT+4*, PRINT+7, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18 , PRINT+19, PRINT+20, PRINT+22
>> Y	ABMDRAPP+19