Routine: AG3A

Information

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

Source Information

Source file <AG3A.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IHS Patient Registration	4	EDCOM^AG2B (ADDR2,ADDR3)^AGED1 $$ISREQ^AGFLDREQ UPDTHADD^AGUTILS
VA Fileman	3	^DIE $$GET1^DIQ ^DIR

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Patient Registration	3	AG1 AG3 AGED1
Emergency Room	1	AMERVSIT

Entry Points

Name	Comments	DBIA/ICR reference
S2	;
S1	;
COB	;EP - City of Birth.
END2	;
ALLADDR4
ALLADDR5
ALLADDR6
SOB	;EP - State Of Birth.
ALLADDR1
ALLADDR2
ALLADDR3
ALLADDR	;EP - EDIT ALL ADDRESSES - CONFIRM TO ADD TO PRVIOUS ADDRESS MULTIPLE
ALLADDR7
ASKADD	;EP - ADD ADDRESS AS HISTORICAL
END	;
ZIP	;EP - Mailing Zip.
ALIAS	;ENTER OTHER NAMES
STATE	;EP - Mailing State.
HPH	;EP - Home Phone #.
CITY	;EP - Mailing City.
ST	;EP - Mailing Street Address.
SSN	;EP - Social Security Number.
NOSSN	;EP
OPH	;EP - Office Phone #.
PRES	;EP - Patient Residence

External References

Name	Field # of Occurrence
EDCOM^AG2B	CITY+12
ADDR2^AGED1	ALLADDR2
ADDR3^AGED1	ALLADDR3
$$ISREQ^AGFLDREQ	SSN+11, ST+3, CITY+3, STATE+4, ZIP+5, HPH+3
UPDTHADD^AGUTILS	ASKADD+10
^DIE	SSN+26, SSN+34, NOSSN+14, END+1
$$GET1^DIQ	ALLADDR+3, ALLADDR+4, ALLADDR+5, ALLADDR+6, ALLADDR+7, ALLADDR+8, ALLADDR+9, ALLADDR7+1, ALLADDR7+2, ALLADDR7+3 , ALLADDR7+4, ALLADDR7+5, ALLADDR7+6, ALLADDR7+7, ST+1, ST+6, CITY+1, CITY+6, STATE+1, STATE+7 , ZIP+1, ZIP+8, HPH+1, HPH+6
^DIR	SSN+18, NOSSN+7, ASKADD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,!!!?5,"************************ SSN MISSING *************************" Line Location: NOSSN+1
Function Call: WRITE	Prompt: !?5,"The SSN is Required, Please indicate the Reason for Non-collection." Line Location: NOSSN+2
Function Call: WRITE	Prompt: !?16,"(If the SSN is known, press RETURN to enter it)" Line Location: NOSSN+3
Function Call: WRITE	Prompt: !!,"Adding to PREVIOUS MAIL ADDRESSES FIELD...." Line Location: ASKADD+9
Function Call: WRITE	Prompt: 7,!!,"** If you changed the city, you may need to change the" Line Location: CITY+9
Function Call: WRITE	Prompt: !,"*** Community of Residence fields shown below." Line Location: CITY+10
Function Call: WRITE	Prompt: !,"*** If not, just press RETURN to continue.",! Line Location: CITY+11
Function Call: WRITE	Prompt: ! Line Location: S1+4
Function Call: WRITE	Prompt: ! Line Location: S2+4
Routine Call	DIE Line Location: SSN+26 SSN+34 NOSSN+14 END+1
Routine Call	DIR Line Location: SSN+18 NOSSN+7 ASKADD+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SSN+3, SSN+4, SSN+5, SSN+30
^AUTTSSN - [#9999999.78]	SSN+4, SSN+5
^DPT - [#2]	SSN+2, SSN+22, SSN+29

Label References

Name	Line Occurrences
CITY	ALLADDR4
END	SSN+21, COB+3, SOB+3, PRES+3, ST+5, CITY+5, STATE+6, ZIP+7, HPH+5, OPH+3 , ALIAS+5
HPH	ALLADDR7
NOSSN	SSN+29
S1	PRES+1
S2	SSN+10, COB+1, SOB+1, ST+2, CITY+2, STATE+2, ZIP+2, HPH+2, OPH+1, ALIAS+1
SSN	NOSSN+10
ST	ALLADDR1
STATE	ALLADDR5
ZIP	ALLADDR6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGOLD("SSN"	SSN+2*, SSN+22, SSN+27!
AGVERFY	SSN+1~, SSN+6, SSN+14
>> DA	SSN+24, SSN+32, NOSSN+12, S1+3, S2+3*
>> DFN	SSN+2, SSN+3, SSN+4, SSN+5, SSN+22, SSN+24, SSN+29, SSN+30, SSN+32, NOSSN+12 , ALLADDR+3, ALLADDR+4, ALLADDR+5, ALLADDR+6, ALLADDR+7, ALLADDR+8, ALLADDR+9, ALLADDR7+1, ALLADDR7+2, ALLADDR7+3 , ALLADDR7+4, ALLADDR7+5, ALLADDR7+6, ALLADDR7+7, ASKADD+10, ST+1, ST+6, CITY+1, CITY+6, STATE+1 , STATE+7, ZIP+1, ZIP+8, HPH+1, HPH+6, S1+3, S2+3
DFOUT	ASKADD+2~
>> DIE	SSN+23, SSN+31, NOSSN+11, S1+2, S2+2*
>> DIE("NO^"	SSN+11, ST+3, CITY+3, STATE+4, ZIP+5, HPH+3
DIR	SSN+16!, NOSSN+4!, NOSSN+8!, ASKADD+3!
DIR("A"	NOSSN+6, ASKADD+5
DIR("B"	ASKADD+6*
DIR(0	SSN+17, NOSSN+5, ASKADD+4*
>> DIROUT	NOSSN+10
>> DIRUT	NOSSN+10
>> DPTFLAG	ZIP+3
DR	SSN+11, SSN+12, SSN+25, SSN+33, NOSSN+13, COB+2, SOB+2, PRES+2, ST+3, ST+4 , CITY+3, CITY+4, STATE+3, STATE+4, STATE+5, ZIP+3, ZIP+5, ZIP+6, HPH+3, HPH+4 , OPH+2, ALIAS+2!, ALIAS+3
DR(2	ALIAS+4*
DTOUT	ASKADD+2~, ASKADD+8, CITY+8
DUOUT	SSN+28, ASKADD+2~, ASKADD+8, S1+1!, S2+1!, END+2*
NEWADDR2	ALLADDR+2~, ALLADDR7+2*, ASKADD+1
NEWADDR3	ALLADDR+2~, ALLADDR7+3*, ASKADD+1
NEWCITY	ALLADDR+2~, ALLADDR7+4, ASKADD+1, CITY+6
NEWHPH	ALLADDR+2~, ALLADDR7+7, ASKADD+1, HPH+6
NEWST	ALLADDR+2~, ALLADDR7+1, ASKADD+1, ST+6
NEWSTATE	ALLADDR+2~, ALLADDR7+5, ASKADD+1, STATE+7
NEWZIP	ALLADDR+2~, ALLADDR7+6, ASKADD+1, ZIP+8
OLDADDR2	ALLADDR+1~, ALLADDR+4*, ASKADD+1
OLDADDR3	ALLADDR+1~, ALLADDR+5*, ASKADD+1
OLDCITY	ALLADDR+1~, ALLADDR+6, ASKADD+1, CITY+1
OLDHPH	ALLADDR+1~, ALLADDR+9, ASKADD+1, HPH+1
OLDST	ALLADDR+1~, ALLADDR+3, ASKADD+1, ST+1
OLDSTATE	ALLADDR+1~, ALLADDR+7, ASKADD+1, STATE+1
OLDZIP	ALLADDR+1~, ALLADDR+8, ASKADD+1, ZIP+1
U	SSN+2, SSN+3, SSN+4, SSN+5, SSN+29, SSN+30
>> Y	NOSSN+9, NOSSN+13, ASKADD+8, END+2

Customize PDF page

Package: IHS Patient Registration

Routine: AG3A

Call Graph Total: 7

Caller Graph Total: 4