Routine: AGFACE7

Package	Total	Call Graph
VA Fileman	4	DD^%DT EN^DIQ1 ^DIWP ^DIWW
IHS Patient Registration	2	^AGDICLK HDR^AGFACE

Package

Total

Call Graph

DD^%DT EN^DIQ1 ^DIWP ^DIWW

Name	Comments	DBIA/ICR reference
1	;;^20^^1901;^13^^.325;^9^^.326;^4^^.327;^8^^.32101;^16^^.301;^22^^.313
VET	;VETERAN
ELIG	;ELIGIBILITY FOR CARE
PVT	;I $P(AGL,U)]"",$D(^AUTNINS($P(AGL,U),0)) Q:(($P(AGL,U,7)]"")&(+$P(AGL,U,7)<DT)) W !,$E($P(^AUTNINS($P(AGL,U),0),U),1,29),?29,$E($P(AGL,U,2),1,26),?46 S Y=$P(AGL,U,6) D DD^%DT W Y S Y=$P(AGL,U,7) D DD^%DT W ?60,Y
SPEMP	;SPOUSE'S EMPLOYER
EMP	;PATIENT'S EMPLOYER

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: ELIG+1
Function Call: WRITE	Prompt: !,$E($P(^AUTNINS($P(AGL,U),0),U),1,29),?29,$E($P(AGL,U,2),1,26),?46 Line Location: PVT+0
Function Call: WRITE	Prompt: Y Line Location: PVT+0
Function Call: WRITE	Prompt: Y Line Location: PVT+0
Function Call: WRITE	Prompt: ?29,AGPH Line Location: PVT+6
Function Call: WRITE	Prompt: ?29,$P($G(^AUPN3PPH(AGPH,0)),U,4) Line Location: PVT+9
Function Call: WRITE	Prompt: Y Line Location: PVT+10
Function Call: WRITE	Prompt: ?60,Y Line Location: PVT+10
Function Call: WRITE	Prompt: !,AG("-") Line Location: VET+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PVT+9
^AUPNPAT - [#9000001]	AGFACE7+9, AGFACE7+14, EMP+1, SPEMP+1
^AUPNPRVT - [#9000006]	AGFACE7+2, AGFACE7+5, PVT+5, PVT+8
^AUTNEMPL - [#9999999.75]	EMP+3, SPEMP+3
^AUTNINS - [#9999999.18]	PVT+2, PVT+3
^DD(2	VET+8
^DIC(4 - [#4]	AGFACE7+14
^DIC(5 - [#5]	EMP+7, SPEMP+7
^DPT - [#2]	AGFACE7+7
^TMP($J	ELIG+1!
^UTILITY("DIQ1"	VET+3!, VET+10, VET+11!, VET+12!

Name	Line Occurrences
PVT	AGFACE7+5
VET	AGFACE7+7

Name	Field # of Occurrence
^("VET"	AGFACE7+7

Name	Field # of Occurrence
>> AG	AGFACE7+5, PVT+5, PVT+8, VET+6, VET+7
>> AG(	EMP+4, EMP+6, SPEMP+4, SPEMP+6
>> AG("-"	AGFACE7+4, AGFACE7+13, EMP+5, SPEMP+5, ELIG+1, VET+2
>> AG("DRENT"	ELIG+1!
>> AG("LKERR"	ELIG+1
>> AG("LKPRINT"	ELIG+1
>> AG(0	EMP+3, EMP+4, SPEMP+3, SPEMP+4
>> AG(1	AGFACE7+8, AGFACE7+9, AGFACE7+13, AGFACE7+15!, EMP+5, SPEMP+5
>> AG(4	EMP+7, SPEMP+7
>> AG(5	EMP+8, SPEMP+8
>> AG(6	EMP+9, SPEMP+9
AGEMPIEN	EMP+1, EMP+3, EMP+11!, SPEMP+1, SPEMP+3, SPEMP+11!
>> AGL	AGFACE7+5*, PVT+2, PVT+3, PVT+10
>> AGOPT(14	ELIG+1
AGPH	PVT+4~, PVT+5, PVT+6, PVT+7, PVT+8, PVT+9
>> AGQUIT	AGFACE7+3, AGFACE7+6, AGFACE7+9, AGFACE7+11, AGFACE7+12, AGFACE7+16, EMP+2, EMP+10, SPEMP+2, SPEMP+10 , VET+1
AGSCRN	VET+5*, VET+7, VET+12!
>> DA	AGFACE7+5, AGFACE7+8, ELIG+1, VET+5, VET+10
>> DFN	AGFACE7+2, AGFACE7+5, AGFACE7+7, AGFACE7+8, AGFACE7+9, AGFACE7+14, EMP+1, SPEMP+1, ELIG+1, PVT+5 , PVT+8, VET+5
DIC	AGFACE7+5, AGFACE7+8, ELIG+1, VET+4!, VET+5, VET+13!
DIE	VET+4!, VET+13!
DIQ	VET+4!, VET+13!
DIR	VET+4!, VET+13!
DIWF	ELIG+1*, ELIG+2!
DIWL	ELIG+1*, ELIG+2!
DIWR	ELIG+1*, ELIG+2!
DR	AGFACE7+5, AGFACE7+8, ELIG+1, VET+4!, VET+7, VET+8, VET+10, VET+12!, VET+13!
DT	PVT+2
DUZ(2	AGFACE7+10
I	AGFACE7+9~, AGFACE7+10, AGFACE7+14, EMP+4~, EMP+6, SPEMP+4~, SPEMP+6*
IOSL	AGFACE7+3, AGFACE7+11, EMP+2, SPEMP+2, VET+1
U	AGFACE7+14, EMP+1, EMP+4, EMP+7, SPEMP+1, SPEMP+4, SPEMP+7, PVT+2, PVT+3, PVT+5 , PVT+8, PVT+9, PVT+10, VET+7, VET+8
X	ELIG+1, VET+7, VET+8, VET+12!
>> Y	PVT+10*

Information