Routine: AG8B

Information

AG8B ; IHS/ASDS/EFG - NEXT OF KIN DATA ENTRY ;

Source file <AG8B.m>

Package	Total	Call Graph
IHS Patient Registration	1	READ^AG
VA Fileman	1	^DIE

Package	Total	Caller Graph
IHS Patient Registration	1	AG8

Name	Comments	DBIA/ICR reference
NKST	;EP - NOK STATE
NAMED
END
NKRELD	;CALLED FROM DGDDC RTN WHICH IS CALLED BY XREF ON FIELD .211 OF ^DPT
S2
S1
NKREL	;EP - NOK RELATIONSHIP
QUES
SAME
NKCITY	;EP - NOK CITY
NKZIP	;EP - NOK ZIP
NKPH	;EP - NOK PHONE #
NAME1
NKSTR	;EP - NOK STREET
SAME1	;
NKNAME	;EP - NOK NAME

Name	Field # of Occurrence
READ^AG	NAME1+1
^DIE	NAME1+4, END, SAME1+4, SAME1+5, SAME1+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Name of NEXT-OF-KIN (NOK).",!," (if same as Emerg. Contact, enter SAME): " Line Location: NAME1+0
Function Call: WRITE	Prompt: AG("EMNM"),"// " Condition for execution: $D(AG("EMNM")) Line Location: NAME1+0
Function Call: WRITE	Prompt: ! Line Location: S1+0
Function Call: WRITE	Prompt: ! Line Location: S2+0
Function Call: WRITE	Prompt: !!,"Enter the next-of-kin's full name.",!! Line Location: QUES+0
Function Call: WRITE	Prompt: !!,*7,"EMERGENCY CONTACT NOT ON FILE.",! Line Location: SAME+1
Routine Call	DIE Line Location: NAME1+4 END SAME1+4 SAME1+5 SAME1+7

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	NAME1+6, SAME1+7, NKRELD+1
^DPT - [#2]	NAME1+6, NAMED, SAME, SAME1+1

Name	Line Occurrences
END	NKREL+1, NKSTR+1, NKCITY+1, NKST+1, NKZIP+4, NKPH+1
NAME1	NAME1+4
NAMED	NAME1
NKNAME	QUES, SAME+1
QUES	NAME1+1
S1	NKREL+1
S2	NAME1+2, NKSTR+1, NKCITY+1, NKST+1, NKZIP+1, NKPH+1
SAME	NAME1+1
SAME1	SAME

Name	Field # of Occurrence
>> AG("EMNM"	NAME1, NAMED!*
AGDR	SAME1+6!
AGDR(1	SAME1+2*, SAME1+4
AGDR(2	SAME1+3*, SAME1+5
AGS	SAME1+6!
AGS(	SAME1+1*
AGS(1	SAME1+2
AGS(10	SAME1+3
AGS(2	SAME1+2
AGS(3	SAME1+2
AGS(4	SAME1+2
AGS(5	SAME1+2
AGS(6	SAME1+3
AGS(7	SAME1+3
AGS(8	SAME1+3
AGS(9	SAME1+3
>> DA	S1, S2, SAME1+4, SAME1+5, SAME1+7*, NKRELD+1
>> DFN	NAME1+6, S1, S2, NAMED, SAME, SAME1+1, SAME1+4, SAME1+5, SAME1+7
>> DFOUT	NAME1+1
DIC	SAME1+4!, SAME1+5!, SAME1+7!
>> DIE	S1, S2, SAME1+4, SAME1+5, SAME1+7*
>> DLOUT	NAME1+1
>> DPTFLAG	NKZIP+2
>> DQOUT	NAME1+1
DR	NAME1+3, NKREL+1, NKSTR+1, NKCITY+1, NKST+1, NKZIP+2, NKZIP+3, NKPH+1, SAME1+4!, SAME1+5! , SAME1+7*
>> DTOUT	NAME1+1
DUOUT	NAME1+1, S1!, S2!, END*
>> I	SAME1+1*
U	NAME1+6, NAMED, SAME, SAME1+7
>> XDRMRG	NKRELD+1
>> Y	NAME1+1, NAME1+3, NAME1+4, END