Routine: ABMDTCPT

Information

ABMDTCPT ; IHS/ASDST/DMJ - Table Maintenance of CPT CODES ;

Source file <ABMDTCPT.m>

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

Name	Comments	DBIA/ICR reference
EDIT	;S DA=ABM("DFN"),DIE="^ICPT(",DR="W !;2R" D ^ABMDDIE G KILL:$D(Y)!$D(ABM("DIE-FAIL")) ;abm2.63 NOHEAT
PAZ
KILL
ADD
XIT
ENT
SEL

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SEL+0
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: *7,!!,"The CPT CODE '",X,"' already exists!" Line Location: ADD+2
Function Call: WRITE	Prompt: !!?10,*7,"ERROR: Improper Format, code must be 5 or 6 Alphanumeric Characters." Line Location: ADD+4
Function Call: WRITE	Prompt: !,*7 Line Location: ADD+5
Function Call: WRITE	Prompt: !,"OK, adding..." Line Location: ADD+6
Function Call: WRITE	Prompt: *7,!!,"ERROR: CPT CODE ENTRY NOT CREATED!",! Line Location: ADD+9
Function Call: WRITE	Prompt: ! Line Location: PAZ+0
Function Call: WRITE	Prompt: !!,*7,"<Data Incomplete: Entry Deleted>" Line Location: KILL+0
Routine Call	DIC Line Location: SEL ADD+8
Routine Call	DIR Line Location: ADD+1 ADD+5 PAZ

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ICPT("B"	ADD+2

Name	Field # of Occurrence
ABM	ENT!, ADD*, XIT!
ABM("DFN"	SEL+3, ADD, ADD+1, ADD+5, ADD+7, ADD+10, EDIT+2, EDIT+7
ABM("LOCK"	ADD*
ABM("MODE"	SEL+3, ADD, EDIT+1, KILL
ABM("PROT"	SEL+4
>> DA	EDIT+7*
>> DA(1	EDIT+2*
DD	EDIT+3!
DIC	SEL!, ADD+8, EDIT+2*, EDIT+4, XIT!
DIC("A"	SEL*
DIC(0	SEL, ADD+8, EDIT+2*
DIE	SEL+6, EDIT+6, XIT!, KILL
>> DIK	KILL*
DINUM	EDIT+3!
DIR	ADD+1!, ADD+5!, PAZ!
DIR("A"	ADD+1, ADD+5
DIR(0	ADD+1, ADD+5, PAZ*
>> DIRUT	ADD+1
DO	EDIT+3!
DR	SEL+6!, EDIT+8
>> DTOUT	SEL+1, ADD+5
>> DUOUT	SEL+1, ADD+5
>> X	SEL+1, ADD+1, ADD+2, ADD+3, ADD+7*
>> Y	SEL+2, SEL+3, ADD+5, ADD+9, ADD+10, EDIT+1