Routine: AG8A

Information

AG8A ; IHS/ASDS/EFG - ENTER & EDIT NON-MANDATORY DATA ;

Source file <AG8A.m>

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

Package	Total	Caller Graph
IHS Patient Registration	1	AG8

Name	Comments	DBIA/ICR reference
FSOB	;EP - FATHER'S STATE OF BIRTH
ECSTR	;EP - EMERG CONT STREET
REL	;EP - RELIGION
ECZIP	;EP - EMERG CONT ZIP
MNAME	;EP - MOTHER'S MAIDEN NAME
S1	;
ECST	;EP - EMERG CONT STATE
FEMP	;EP - FATHER'S EMPLOYER
SAME	;
MCOB	;EP - MOTHER'S CITY OF BIRTH
ECPH	;EP - EMERG CONT PHONE #
FCOB	;EP - FATHER'S CITY OF BIRTH
ECNAME	;EP - EMERG CONTACT NAME
MEMP	;EP - MOTHER'S EMPLOYER
FNAME	;EP - FATHER'S NAME
S2	;
END	;
ECCITY	;EP - EMERG CONT CITY
ECREL	;EP - EMERG CONT RELATIONSHIP
ECRELD	;CALLED FROM DGDDC RTN WHICH IS CALLED BY XREF ON FIELD .331 OF ^DPT
MSOB	;EP - MOTHER'S STATE OF BIRTH

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"(If the Emerg. Contact address is the patient's, enter SAME)" Line Location: ECSTR+3
Function Call: WRITE	Prompt: ! Line Location: S1+4
Function Call: WRITE	Prompt: ! Line Location: S2+4
Function Call: WRITE	Prompt: !,*7,"PATIENT'S ADDRESS NOT ON FILE",! Line Location: SAME+7
Routine Call	DIE Line Location: END+1

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	ECNAME+3, ECRELD+1
^DPT - [#2]	ECNAME+3, SAME+7, SAME+8, SAME+9, SAME+10, SAME+11, SAME+12, SAME+13

Name	Line Occurrences
ECSTR	SAME+7
END	REL+3, FNAME+3, FCOB+3, FSOB+3, FEMP+3, MNAME+3, MCOB+3, MSOB+3, MEMP+3, ECNAME+4 , ECREL+3, ECSTR+4, ECCITY+3, ECST+3, ECZIP+4, ECPH+3
S1	FCOB+1, FSOB+1, FEMP+1, MCOB+1, MSOB+1, MEMP+1, ECREL+1
S2	REL+1, FNAME+1, MNAME+1, ECNAME+1, ECSTR+1, ECCITY+1, ECST+1, ECZIP+1, ECPH+1
SAME	ECSTR+5

Name	Field # of Occurrence
>> AG("LKPRINT"	SAME+5, SAME+6
>> DA	S1+3, S2+3, SAME+1*
>> DFN	ECNAME+3, S1+3, S2+3, SAME+1, SAME+7, SAME+8, SAME+9, SAME+10, SAME+11, SAME+12 , SAME+13, ECRELD+1
>> DIC	SAME+3*
>> DIE	S1+2, S2+2
>> DPTFLAG	ECZIP+2
>> DR	REL+2, FNAME+2, FCOB+2, FSOB+2, FEMP+2, MNAME+2, MCOB+2, MSOB+2, MEMP+2, ECNAME+2 , ECREL+2, ECSTR+2, ECCITY+2, ECST+2, ECZIP+2, ECZIP+3, ECPH+2, SAME+2
DUOUT	ECSTR+5, S1+1!, S2+1!, END+2*
U	ECNAME+3, SAME+7, SAME+8, SAME+9, SAME+10, SAME+11, SAME+13
>> Y	END+2