Routine: AGMANERS

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC EN^DDIOL ^DIE ^DIR
IHS Patient Registration	4	CHKRHI^AG $$CHKDEATH^AGEDERR ADDNAM^AGNAMCHG $$S^AGVDF
IHS Patient	1	NAME^AUPNPED

Package

Total

Call Graph

^%DT NOW^%DTC EN^DDIOL ^DIE ^DIR

CHKRHI^AG $$CHKDEATH^AGEDERR ADDNAM^AGNAMCHG $$S^AGVDF

NAME^AUPNPED

Package	Total	Caller Graph
Emergency Room	1	AMERAGED

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
END
NAME(AMERDFN)	;EP - From UPDATPAT^AMERVSIT
EDIT	;
DIEAUPN(DA,DR)	; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE PATIENT FILE
FILE	;EP
DIEDPT(DA,DR)	; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE VA PATIENT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$S^AGVDF("RVN"),$$S^AGVDF("BLN"),"This patient has Restricted Health Information",$$S^AGVDF("BLF"),$$S^AGVDF("RVF") Line Location: EDIT+6
Function Call: WRITE	Prompt: !!?5,"**** ALERT: DATE OF DEATH ON FILE FOR THIS PATIENT!!" Line Location: EDIT+9
Function Call: WRITE	Prompt: !!,*7,"CANNOT DELETE PATIENTS THROUGH THIS ROUTINE." Line Location: EDIT+16
Routine Call	DIE Line Location: FILE+5 DIEAUPN+5
Routine Call	DIR Line Location: EDIT+13 EDIT+36

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	EDIT+42, END+2, END+3, END+4
^AUPNPAT - [#9000001]	EDIT+42*, DIEAUPN+4, DIEAUPN+6
^AUTTSITE(1	END+2
^DPT - [#2]	EDIT+2, EDIT+30, FILE+4, FILE+6
^XTMP("AGHL7"	EDIT+32*
^XTMP("AGHL7AG"	EDIT+33*

Name	Field # of Occurrence
%	EDIT+23, FILE+1~, DIEAUPN+1~
>> AG("NAMFAIL"	EDIT+25
>> AG("NEWNAME"	EDIT+17!, EDIT+19*, EDIT+21!, EDIT+28
>> AG("OLDNAME"	EDIT+22*, EDIT+30, EDIT+34, EDIT+40
AGDTS	EDIT+23, EDIT+42, END+1, END+2, END+3, END+4, END+5!
>> AGPTPG	END+2
>> AGTDS	END+1
AMERDFN	NAME~, NAME+2, EDIT+2, EDIT+3
AMERONAM	EDIT+1~, EDIT+2*, EDIT+12, EDIT+15, EDIT+22
D	FILE+2~, DIEAUPN+2~
D0	FILE+2~, DIEAUPN+2~
DA	EDIT+26!, EDIT+27, EDIT+29, EDIT+32, EDIT+33, EDIT+40, EDIT+41, EDIT+42*, EDIT+43, DIEDPT~ , FILE+4, FILE+6, FILE+7!, DIEAUPN~, DIEAUPN+4, DIEAUPN+6, DIEAUPN+7!
>> DFN	EDIT+3*, EDIT+9, EDIT+10, EDIT+27, EDIT+30, EDIT+40, EDIT+42, END+2, END+3, END+4
DI	FILE+2~, DIEAUPN+2~
DIC	EDIT+1~, EDIT+26!, FILE+2~, DIEAUPN+2~
DICR	FILE+2~, DIEAUPN+2~
DIE	EDIT+26!, EDIT+39, FILE+2~, FILE+3, FILE+7!, DIEAUPN+2~, DIEAUPN+3*, DIEAUPN+7!
DIG	FILE+2~, DIEAUPN+2~
DIH	FILE+2~, DIEAUPN+2~
DIR	EDIT+13!
DIR("?"	EDIT+11*
DIR("A"	EDIT+11, EDIT+34
DIR("B"	EDIT+12, EDIT+35
DIR(0	EDIT+11, EDIT+35
DIU	FILE+2~, DIEAUPN+2~
DIV	FILE+2~, DIEAUPN+2~
DIW	FILE+2~, DIEAUPN+2~
DQ	FILE+2~, DIEAUPN+2~
DR	EDIT+26!, EDIT+28, EDIT+29, EDIT+40, EDIT+41, EDIT+42*, EDIT+43, DIEDPT~, FILE+7!, DIEAUPN~ , DIEAUPN+7!
DR(2	EDIT+40*
DTOUT	EDIT+14!, EDIT+37!
DUOUT	EDIT+14!, EDIT+37!
DUZ	EDIT+42
DUZ(2	EDIT+32, EDIT+33, EDIT+42, END+2, END+3, END+4
>> RHIFLAG	EDIT+5, EDIT+6
U	EDIT+2, EDIT+30, EDIT+42
X	EDIT+18, EDIT+21, EDIT+29, EDIT+41, END+1, FILE+1~, FILE+8, DIEAUPN+1~
Y	EDIT+14!, EDIT+15, EDIT+18, EDIT+19, EDIT+26!, EDIT+37!, EDIT+38, END+1, FILE+1~, DIEAUPN+1~

Information