Routine: ADEMDEL

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DIVISION NOT SET IN USER FILE -- CONTACT SITE MANAGER OR ISC" Line Location: ADEMDEL+8
Function Call: WRITE	Prompt: !,"DIVISION SET TO ZERO (UNIVERSAL). DIVISION MUST BE SET TO ONE OF THE ",!,"SITES IN THE DENTAL SITE PARAMETER FILE. -- CONTACT SITE MANAGER" Line Location: ADEMDEL+9
Function Call: WRITE	Prompt: !?5,"--No changes made" Line Location: TWO+4
Function Call: WRITE	Prompt: !,"*PATIENT NOT ON ",ADESUBN," LIST",7 Line Location: TWO+5
Function Call: WRITE	Prompt: !?5,"--DELETED" Line Location: TWO+6
Routine Call	DIE Line Location: CRE+9 DEST

FileNo	Call Tags
^ADEFOL - [#9002003.2]	Classic Fileman Calls
^ADEPAT - [#9002010.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ADEFOL - [#9002003.2]	DEL+4
^ADEFOL("TYPE"	D1, D1+1
^ADEPAT - [#9002010.2]	CRE+1, CRE+6, CRE+7, CRE+10
^ADEUTL("ADELOCK"	THREE!

Name	Field # of Occurrence
>> %	D1+2*
ADEADAT	END!, DEL+5*, CRE+8
ADEFUNC	ADEMDEL+7*, END!
ADEINT	TWO+1*!
ADELIN	ADEMDEL+5*, END!
ADEMDEL	TWO+1*!
ADEMDFN	TWO+3!, TWO+4, TWO+5, THREE!, END!, DEL+2, DEL+4, D1+1, D1+2*, DEST
ADENEWM	END!
ADENOD	END!, DEL+4*, DEL+5
ADEPAT	THREE, END!, D1, D1+1, CRE+1, CRE+4, CRE+6, CRE+7, CRE+10
ADEREC	ADEMDEL+5, ADEMDEL+6, END!
ADEREF	ADEMDEL+5, ADEMDEL+6, END!
ADESUB	END!, D1, D1+1, CRE+8
ADESUBN	TWO+5, END!
ADETYP	ADEMDEL+6*, END!, D1, D1+1
ADEWAI	ADEMDEL+5, ADEMDEL+6, END!
DA	CRE+3!, CRE+6, CRE+7, CRE+10, DEST*
DA(1	CRE+4*
DD	CRE+1!
DIC	CRE+1*, CRE+3!
DIC(0	CRE+1*
DIE	CRE+3!, CRE+5, DEST
>> DINUM	CRE+1*
DO	CRE+1!
DR	CRE+3!, CRE+8, DEST
DT	CRE+8
DUZ(2	ADEMDEL+8, ADEMDEL+9
U	DEL+5, CRE+6, CRE+10
X	CRE+1*, CRE+3!
Y	ONE+3, TWO+1, CRE+3!

Information

Name	Comments	DBIA/ICR reference
EN
END
DEST
THREE
TWO	;------->LOOK UP A PATIENT
DEL	;EP
CRE	;CREATE ENTRY IN PATIENT FILE IF DOESN'T EXIST
ONE	;------->RESET CONSTANT FOLLOWUP SUBTYPE IF CALLED EXTERNALLY ; TYPE SET BY CALLING OPTION ; RETURN ADESUB=DFN IN ^ADETYP(
D1