Routine: AG3

Package	Total	Call Graph
IHS Patient Registration	5	(CITY,COB,HPH,OPH,SOB,SSN,ST,STATE,ZIP)^AG3A ^AG4 (MSGPH,WEB)^AGED1 ALIAS^AGOPT2 UPDTHADD^AGUTILS
VA Fileman	2	^DIE ^DIR

Package

Total

Call Graph

(CITY,COB,HPH,OPH,SOB,SSN,ST,STATE,ZIP)^AG3A ^AG4 (MSGPH,WEB)^AGED1 ALIAS^AGOPT2 UPDTHADD^AGUTILS

^DIE ^DIR

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

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>This option asks all questions one after the other with no escaping<<",!! Line Location: AG3+3
Function Call: WRITE	Prompt: !,"Without a Social Security Number a BIC cannot be issued - try again!" Line Location: L1+1
Function Call: WRITE	Prompt: !! Line Location: L10+2
Function Call: WRITE	Prompt: !,$G(NEWST) Line Location: L10+3
Function Call: WRITE	Prompt: !,$G(NEWCITY),",",$G(NEWSTATE)," ",$G(NEWZIP) Line Location: L10+4
Function Call: WRITE	Prompt: !,$G(NEWHPH) Line Location: L10+5
Function Call: WRITE	Prompt: !! Line Location: L10+6
Function Call: WRITE	Prompt: !!,"Adding to PREVIOUS MAIL ADDRESSES FIELD...." Line Location: L10+14
Routine Call	DIE Line Location: ASKMSTAT+5
Routine Call	DIR Line Location: L10+12

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

Name	Field # of Occurrence
>> AGOPT(14	L1+1
>> AGOPT(3	L12OPT
>> AGPATDFN	ASKMSTAT+4
DA	ASKMSTAT+1!, ASKMSTAT+4*
>> DFN	L10+15
DFOUT	L10+7~, S1!
DIC	ASKMSTAT+1!
DIE	ASKMSTAT+1!, ASKMSTAT+2*
DIR	ASKMSTAT+1!, L10+8!
DIR("A"	L10+10*
DIR("B"	L10+11*
DIR(0	L10+9*
>> DIROUT	ASKMSTAT+6
>> DIRUT	L10+13
DLOUT	S1!
DQOUT	S1!
DR	ASKMSTAT+1!, ASKMSTAT+3*
DTOUT	ASKMSTAT+6, L10+7~, L10+13, S1!
DUOUT	L1, L1+1, ASKMSTAT+6, L4+1, L5, L6+1, L7, L8, L9, L10 , L10+7~, L10+13, L11, L11A, L12OPT, L12OPT+1, S1!
>> NEWCITY	L10+4
>> NEWHPH	L10+5
>> NEWST	L10+3
>> NEWSTATE	L10+4
>> NEWZIP	L10+4
>> X	L1+1, L6+1
>> Y	L10+13

Information