Routine: AG2B

Package	Total	Call Graph
VA Fileman	5	(,DD)^%DT ^DIC FILE^DICN ^DIE GETS^DIQ
IHS Patient Registration	4	READ^AG CMMNR^AGBIC2 (COMMVER,EDCOM)^AGBIC2B ^AGDICLK

Package	Total	Caller Graph
IHS Patient Registration	2	AG2 AG3A

Entry Points

Name	Comments	DBIA/ICR reference
DEF1	;
END	;
L3A	;
L4	;
EDCOM	;EP - Edit Communities (string in AGED1 and AGBICEDZ).
L2	;
L3	;
L1	;
E1	;
DEF	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter PRESENT COMMUNITY: " Line Location: L1+1
Function Call: WRITE	Prompt: !!,"When did the patient move to this community? " Line Location: L3+2
Function Call: WRITE	Prompt: "( ""B"" = ""at BIRTH"" ) " Line Location: L3+3
Function Call: WRITE	Prompt: !," DATE: " Line Location: L3+4
Function Call: WRITE	Prompt: !,*7,"There is no DATE-OF-BIRTH on file.",! Line Location: L3A+8
Function Call: WRITE	Prompt: $P(^AUTTCOM(AG("CPTR"),0),U),"//" Line Location: DEF+9
Function Call: WRITE	Prompt: !,Y,"// " Line Location: DEF1+5
Function Call: WRITE	Prompt: "?? Required" Line Location: E1+9
Routine Call	DIE Line Location: E1+6
Routine Call	DIC Line Location: L2+4

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls, GETS^DIQ
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DEF+2, DEF+3, DEF+5, DEF+6, DEF1+2, DEF1+3, E1+9
^AUTTCOM - [#9999999.05]	DEF+8, DEF+9

Name	Field # of Occurrence
>> %DT	L3A+11*
>> %DT(0	L3A+12*, L3A+14!
>> AG("CDATE"	L3A+16, L4+1, DEF+3, DEF+4, DEF+5, DEF+6, DEF1+2, DEF1+3
>> AG("CITY"	L2+7*
>> AG("CPTR"	L2+6, L4+1, DEF+6, DEF+7, DEF+8, DEF+9
>> AG("EDIT"	L1+5, L3+1!, L3+8, L3A+15, DEF+1!, DEF+10, DEF1+1!, DEF1+6
>> AG("LKDATA"	L3A+6, L3A+7
>> AG("LKERR"	L3A+7
>> AGOPT(14	EDCOM+1
>> DA	L3A+3, E1+3
>> DA(1	L4+1*
DD	L4+1!
>> DFN	L3A+3, L4+1, DEF+2, DEF+3, DEF+5, DEF+6, DEF1+2, DEF1+3, EDCOM+7, E1+3 , E1+9
>> DFOUT	L1+4, L3+7
>> DIC	L2+1, L3A+2, L4+1*
>> DIC("DR"	L4+1*
>> DIC("P"	L4+1*
>> DIC("S"	E1+1!
>> DIC(0	L2+2, L4+1
>> DIE	E1+2*
>> DINUM	L4+1*
>> DLOUT	L1+5, L1+6, L3+8, L3+9
DO	L4+1!
>> DQOUT	L1+6, L3+9
>> DR	L3A+4, E1+4
>> DR(2	E1+5*
DT	L4+1
>> DTOUT	L1+4, L3+7
>> DUOUT	L1+4, L3+8
U	L2+7, DEF+3, DEF+6, DEF+9, DEF1+3
>> X	L2+3, L3A+10, L3A+15, L4+1*
>> Y	L1+6, L2+3, L2+5, L2+6, L2+7, L3+9, L3A+1, L3A+6, L3A+7, L3A+9 , L3A+10, L3A+15, L3A+16, DEF1+3*, DEF1+5, E1+9