Routine: AGKPAT

Information

AGKPAT ; IHS/ASDS/EFG - DELETE PATIENT ;

Source file <AGKPAT.m>

Package	Total	Call Graph
IHS Patient Registration	4	(PTLK,READ,YN)^AG ^AGDICLK INITL^AGMAN ^AGVAR
VA Fileman	4	NOW^%DTC WAIT^DICD ^DIE ^DIK

Package	Total	Caller Graph
IHS Patient Registration	4	AG0 AG2 AGBIC2 AGBIC2P

Name	Comments	DBIA/ICR reference
A
B	;Set DPSC Flags.
END
B2
NODFN1
L4
DFN	;EP - With Pre-Defined Patient.
NODFNA
L1
Z1	;EP - Find and Kill ^AGPATCH entries.
NODFN	;EP - Without Pre-Defined Patient, FROM OTHER SYSTEMS.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You wish to delete """,AG("NAME"),""".",!," CORRECT? (Y/N) : " Line Location: NODFN1+0
Function Call: WRITE	Prompt: !,"No deletion has occurred - undefined patient." Line Location: DFN+1
Function Call: WRITE	Prompt: !!,*7,"Patient not registered at this facility." Line Location: A+0
Function Call: WRITE	Prompt: !!,"The ",$P(^DPT(DFN,0),U)," file is deleted.",!! Line Location: B2+0
Routine Call	DIE Line Location: L4

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	Z1+1!, B+1, B+2
^AUPNMCD("B"	L1+1, L4
^AUPNPAT - [#9000001]	A, Z1+1, B+1
^DD(2	A+1
^DPT - [#2]	NODFNA+2, B+2, B2

Name	Field # of Occurrence
>> %	B+1
AG	A+1*, END!
AG("DRENT1"	A*
AG("EDIT"	L1!
AG("INITL"	B+2
AG("LKERR"	A
AG("NAME"	NODFNA+2*, NODFN1
AG("PTR"	L1*
AG("Z3"	Z1+1*
AGDATE	END!, Z1+1*
>> AGDENT	A+2
AGDTS	END!, B+1*, B+2
DA	A, A+2, L1, L4, END!
DA(1	A+2*
DFN	NODFNA+1, NODFNA+2, DFN+1, A, A+2, L1, L1+1, L4, END!, Z1+1 , B+1, B+2, B2
>> DFOUT	NODFN1
DIC	A*, END!
DIC("W"	NODFNA*
DIE	L4*, END!
>> DIK	A+2, L1
>> DLOUT	NODFN1
>> DQOUT	NODFN1
DR	A, L4, END!
>> DTOUT	NODFN1
>> DUOUT	NODFN1
DUZ(2	A, A+2, Z1+1, B+1, B+2
IEN	L4*, END!
U	NODFNA+2, Z1+1, B+1, B+2, B2
>> Y	NODFN1, NODFN1+1, B+1