Routine: AGBIC2B

Package	Total	Call Graph
VA Fileman	3	(,DD)^%DT ^DIC ^DIE
IHS Patient Registration	2	(READ,YN)^AG ^AGBIC2C

Package	Total	Caller Graph
IHS Patient Registration	3	AG2B AGBIC2 AGBIC2P

Entry Points

Name	Comments	DBIA/ICR reference
COMMVER	;EP
DEF1	;
MSG1	;
L3A	;
CKHSDA	;
CKPREV	;
CKPRVER	;
L4	;
EDCOM	;EP - Edit Communities.
L2	;
L3	;
SETPRV	;
L1	;
END	;
STCOMVER	;
E1	;
S1	;
DEF	;
E2	;

External References

Name	Field # of Occurrence
^%DT	L3A+15
DD^%DT	DEF1+4
READ^AG	L1+4, L3+5, MSG1+4, COMMVER+5
YN^AG	CKHSDA+6, CKPRVER+4
^AGBIC2C	COMMVER+13
^DIC	L2+4, L3A+6, MSG1+10, E1+5, E2+6
^DIE	L4+7, STCOMVER+3, SETPRV+3, E1+10, E2+13, COMMVER+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter PRESENT COMMUNITY: " Line Location: L1+2
Function Call: WRITE	Prompt: !!,"When did the patient move to this community? " Line Location: L3+2
Function Call: WRITE	Prompt: "( ""B"" = ""at BIRTH"" ) ",!," DATE: " Line Location: L3+3
Function Call: WRITE	Prompt: !,*7,"There is no DATE-OF-BIRTH on file.",! Line Location: L3A+9
Function Call: WRITE	Prompt: !!,"This patient's CURRENT COMMUNITY is " Line Location: CKPREV+3
Function Call: WRITE	Prompt: !,"Enter any other COMMUNITY lived in since 09/16/88: " Line Location: MSG1+1
Function Call: WRITE	Prompt: !!,$P(^AUTTCOM($P(Y,U),0),U)," is not within a HSDA!" Line Location: MSG1+13
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: !!,"Has this COMMUNITY been VERIFIED? (Y/N): " Line Location: COMMVER+3
Routine Call	DIE Line Location: L4+7 STCOMVER+3 SETPRV+3 E1+10 E2+13 COMMVER+12
Routine Call	DIC Line Location: L2+4 L3A+6 MSG1+10 E1+5 E2+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	L4+1!, L4+2, L4+3, DEF+2, DEF+3, DEF+5, DEF+6, DEF1+2, DEF1+3, COMMVER+2
^AUTTCOM - [#9999999.05]	L2+8, MSG1+12, MSG1+13, DEF+8, DEF+9, DEF+11, E2+7, E2+8, E2+9
^AUTTCTY - [#9999999.23]	L2+8, MSG1+12

Label References

Name	Line Occurrences
CKHSDA	CKHSDA+5
CKPREV	CKPRVER+2
CKPRVER	CKPRVER+3
COMMVER	CKHSDA+3, CKPRVER+1
DEF	L1+3
DEF1	L3+4
END	L1+5, L3A+18, STCOMVER+4, CKPREV+1, CKPREV+2, MSG1+5, MSG1+11, SETPRV+4
L1	L2+5, L3+7, L3A+17
L2	L1+6
L3	L3A+19, CKHSDA+4
L3A	L3+8
MSG1	MSG1+12
S1	STCOMVER+1, SETPRV+1
STCOMVER	CKHSDA+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	L3A+13*
>> %DT(0	L3A+14*, L3A+16!
>> AG("2BPREV"	MSG1+3, MSG1+6!, E2+7, E2+8
>> AG("BIRTH"	L3+1!, L3A+2*, L3A+11!, CKPREV+1, END+1!
>> AG("CDATE"	L3A+20, L4+2, L4+3, CKPREV+2, DEF+3, DEF+4, DEF+5, DEF+6, DEF1+2, DEF1+3
>> AG("CITY"	L2+7, L4+6, E2+3, E2+8*, E2+12
>> AG("COMAGED1"	COMMVER+7*, COMMVER+11
>> AG("COMM"	L1+1!, CKHSDA+1, CKHSDA+7, STCOMVER+2, STCOMVER+4, MSG1+2, CKPRVER+5, SETPRV+2, END+2!
>> AG("COMMVER"	END+1!, COMMVER+1, COMMVER+2, COMMVER+4, COMMVER+6
>> AG("CPTR"	L2+6, L4+3, DEF+6, DEF+7, DEF+8, DEF+9, DEF+11
>> AG("DRENT"	E2+1*
>> AG("EDIT"	L1+6, L3+1!, L3+8, L3A+18, DEF+1!, DEF+10, DEF1+1!, DEF1+6
>> AG("HSDA"	L1+1!, L2+8, CKHSDA+2, CKPREV+4, END+1!, E2+9
>> AG("LKDATA"	L3A+7, L3A+8, E2+7, E2+8, E2+9
>> AG("LKERR"	L3A+8
>> AG("PRVCM"	L1+1!, L1+6, L1+7, END+1!, DEF+11*
>> AG("PRVDT"	L3+1!, L3+8, L3+9, END+1!, DEF1+7*
>> AG("SEL"	COMMVER+8
>> AGOPT(14	COMMVER+8
>> DA	L3A+4, L4+5, E1+6, E2+5, E2+11, COMMVER+10
>> DFN	L3A+4, L4+1, L4+2, L4+3, L4+5, DEF+2, DEF+3, DEF+5, DEF+6, DEF1+2 , DEF1+3, E1+4, E2+5, E2+11, COMMVER+2, COMMVER+10
DFOUT	L1+5, L3+6, MSG1+5, S1+1!
DIC	L2+1, L3A+3, MSG1+7, END+2!, E1+2, E2+4*
DIC("S"	E1+1!
DIC(0	L2+2, MSG1+8
>> DIE	L4+4, E1+7, E2+10, COMMVER+9
DLOUT	L1+6, L1+8, L3+8, L3+10, S1+1!, COMMVER+6
DQOUT	L1+8, L3+10, S1+1!
>> DR	L3A+5, L4+6, STCOMVER+2, SETPRV+2, E1+3, E1+8, E2+2, E2+12, COMMVER+11*
>> DR(2	E1+9*
DT	L4+3
DTOUT	L1+5, L3+6, MSG1+5, S1+1!
DUOUT	L1+5, L3+7, CKHSDA+4, MSG1+5, CKPRVER+2, S1+1!
U	L2+7, L2+8, L4+3, MSG1+12, MSG1+13, DEF+3, DEF+6, DEF+9, DEF+11, DEF1+3 , E2+8, E2+9, COMMVER+2
>> X	L2+3, L3A+12, L3A+17, L3A+18, MSG1+9, E1+4
>> Y	L1+7, L1+8, L2+3, L2+5, L2+6, L2+7, L2+8, L3+9, L3+10, L3A+1 , L3A+7, L3A+8, L3A+10, L3A+12, L3A+19, L3A+20, CKHSDA+5, CKHSDA+7, MSG1+9, MSG1+11 , MSG1+12, MSG1+13, CKPRVER+2, CKPRVER+3, DEF1+3, DEF1+5, DEF1+7, E1+6, COMMVER+6, COMMVER+7

Customize PDF page

Package: IHS Patient Registration

Routine: AGBIC2B

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: