Routine: ABMDTCD

Information

ABMDTCD ; IHS/ASDST/DMJ - Table Maintenance of 3P CODES ;

Source file <ABMDTCD.m>

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIR
Third Party Billing	1	^ABMDDIE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ABMDTCD+7
Function Call: WRITE	Prompt: ! Line Location: SEL+8
Function Call: WRITE	Prompt: !! Line Location: EDIT+0
Function Call: WRITE	Prompt: !! Line Location: ADD+5
Function Call: WRITE	Prompt: !!?10,*7,"This CODE already exists!",!?5,"CODE: ",Y," - ",$P(^ABMDCODE($O(^(Y,"")),0),U,3) Line Location: ADD+11
Function Call: WRITE	Prompt: !! Line Location: ADD+13
Function Call: WRITE	Prompt: !! Line Location: ADD+19
Function Call: WRITE	Prompt: !!,"(Record has been Added)" Line Location: ADD+23
Function Call: WRITE	Prompt: !!,7,"* WARNING: Record was NOT Added! **" Line Location: ADD+24
Routine Call	DIC Line Location: EDIT
Routine Call	DIR Line Location: SEL+3 SEL+9 ADD+9 ADD+17

FileNo	Call Tags
^ABMDCODE - [#9002274.03]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCODE - [#9002274.03]	ADD+11
^ABMDCODE("AC"	ADD+11, ADD+21, ADD+22

Name	Field # of Occurrence
^(	ADD+11

Name	Field # of Occurrence
ABM	SEL+1!, SEL+5*, SEL+7, ADD+11, ADD+19, ADD+21, ADD+22, XIT!
ABM("D"	ADD*
ABM("D0"	ADD*
ABM("DIE-FAIL"	EDIT+4
ABM("DS"	ADD*
ABM("TITL"	SEL+7*, EDIT, ADD+2, ADD+16
ABM("Y"	ADD+12*, ADD+19, ADD+21, ADD+22
>> DA	EDIT+3*
DD	ADD+19!
DIC	EDIT!, ADD+19, XIT!
DIC("A"	EDIT*
DIC("DR"	ADD+19*
DIC("S"	EDIT*
DIC(0	EDIT, ADD+19
DIE	EDIT+4*, XIT!
DIR	SEL+1!, SEL+9!, ADD+1!, ADD+14!, XIT!
DIR("?"	ADD+2, ADD+3, ADD+4*
DIR("??"	ADD+8*
DIR("A"	SEL+3, SEL+9, ADD+7, ADD+16
DIR("B"	SEL+9*
DIR(0	SEL+2, SEL+9, ADD+6, ADD+15
>> DIROUT	SEL+4, SEL+10, ADD+10, ADD+18
>> DIRUT	SEL+4
DO	ADD+19!
DR	EDIT+4*!
>> DTOUT	SEL+10, EDIT+1, ADD+10, ADD+18
>> DUOUT	SEL+10, EDIT+1, ADD+10, ADD+18
U	ABMDTCD+6*, ADD+11
>> X	EDIT+1, ADD+10, ADD+18, ADD+19*
>> Y	SEL+5, SEL+10, EDIT+2, EDIT+3, ADD+11, ADD+12, ADD+16, ADD+18, ADD+20, ADD+21 , ADD+22