Routine: ABMDLCPT

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$VERSION^XPDUTL
Third Party Billing	3	WHD^ABMDRHD PAZ^ABMDRUTL $$EN^ABMVDF
VA Fileman	2	GETS^DIQ ^DIR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: W1+0
Function Call: WRITE	Prompt: !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",! Line Location: W1+4
Function Call: WRITE	Prompt: !!,$$EN^ABMVDF("HIN"),"E N D O F R E P O R T",$$EN^ABMVDF("HIF"),! Line Location: PRQUE+6
Function Call: WRITE	Prompt: ! Line Location: SET+18
Function Call: WRITE	Prompt: !," (cont)" Line Location: SET+19
Function Call: WRITE	Prompt: !,"CPT CODE",?10,"SHORT DESCRIPTION",?55,"INACTIVE FLAG",?65,"COOR. DX" Line Location: HDB+3
Routine Call	DIR Line Location: SEL+3 SEL+11
Routine Call	%ZIS Line Location: W1+2

FileNo	Call Tags
^ICPT - [#81]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABMDPARM(	W1+4
^ICPT - [#81]	PRQUE+3, SET+2
^ICPT(9999999999	SEL+14

Name	Field # of Occurrence
>> %ZIS	W1+1*
>> %ZIS("B"	W1+1*
ABM	XIT+2!, QUE+3*
ABM("HD"	PRQUE+2, PRQUE+3
ABM("ION"	W1+3*
ABM("PG"	PRQUE+1, HDB+1
>> ABMCD	SET+15, SET+16, SET+17, SET+18
>> ABMFROM	SEL+6, SEL+7, PRQUE+3, SET+1, SET+2*, SET+9, SET+10, SET+11
>> ABMIEN	SET+11*, SET+12, SET+13, SET+14
>> ABMTO	SEL+13, SEL+14, PRQUE+3, SET+2
ABMZ	SET+3!
ABMZ(	SET+16, SET+17, SET+18
ABMZ(81	SET+12, SET+13, SET+14
DA	SEL!, SEL+8!
DIC	SEL!, SEL+8!
DIE	SEL!, SEL+8!
DIR	SEL!, SEL+3!, SEL+8!, SEL+11!
DIR("A"	SEL+2, SEL+10
DIR(0	SEL+1, SEL+9
>> DIROUT	SEL+4, SEL+12, SET+2, SET+19
>> DIRUT	SET+19
DR	SEL!, SEL+8!
>> DTOUT	SEL+4, SEL+12, SET+2, SET+19
>> DUOUT	SEL+4, SEL+12, SET+2, SET+19
DUZ(2	W1+4
IO	W1+2, W1+4
IO("Q"	W1+3, QUE!
IO("S"	W1+4
IO(0	W1+4
ION	W1+3
IOSL	SET+19
IOST	W1+4
>> POP	W1+2
U	ABMDLCPT+3*, W1+4, PRQUE+3
X	SEL!, SEL+5, SEL+8!
Y	SEL!, SEL+5*, SEL+6, SEL+8!, SEL+13
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSAVE(	QUE+3*
>> ZTSK	QUE+4