Routine: ABMDTLAB

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
START2	;
START	; EP
DEL	;Delete entry if both CPT codes not entered

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Deleting" Line Location: DEL+1
Routine Call	DIE Line Location: START2+38 DEL+5
Routine Call	DIC Line Location: START2+8
Routine Call	DIR Line Location: START2+17 START2+22 START2+30

FileNo	Call Tags
^ABMDCPT - [#9002274.37]	GET1^DIQ

Name	Line Occurrences
DEL	START2+13, START2+23, START2+31
START2	START+1

Name	Field # of Occurrence
>> ABMDA	START2+10*, START2+21, START2+29, START2+36, DEL+3
>> ABMDEL	START2+23, START2+31
>> ABMH	START2+33*, START2+37
>> ABML	START2+25*, START2+26, START2+37
>> ABMNEW	START2+11*, START2+13, START2+23, START2+31
>> DA	START2+36, DEL+3
>> DIC	START2+2*, START2+35, DEL+2
>> DIC("A"	START2+4*
>> DIC("S"	START2+5*
>> DIC("W"	START2+6*
>> DIC(0	START2+3*
>> DIE	START2+35, DEL+2
DIR	START2+12!, START2+34!
DIR("?"	START2+16, START2+20, START2+28*
DIR("A"	START2+15, START2+19, START2+27*
DIR("B"	START2+21, START2+29
DIR(0	START2+14, START2+18, START2+26*
>> DLAYGO	START2+7*
>> DR	START2+37, DEL+4
DTOUT	START+1, START2+1!, START2+9, START2+13
DUOUT	START+1, START2+1!, START2+9, START2+13
U	START2+11
>> Y	START+1, START2+9, START2+10, START2+11, START2+13, START2+23, START2+24, START2+25, START2+31, START2+32 , START2+33