Routine: AG71A1

Package	Total	Call Graph
Kernel	4	$$HTE^XLFDT $$ADD^XPDMENU (BMES,MES)^XPDUTL SETUP^XQALERT
IHS Patient Registration	2	$$INSTALLD^AG71ENV ^AGCNVROI
MailMan	1	^XMD
VA Fileman	1	^DIK

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
PRVT	;CLEAR ANY PRIVATE ELIG RECORDS MISSING INSURER POINTER
PAT	;CLEAN UP D X-REF IN PATIENT FILE
SINGLE(K)	;EP - Get holders of a single key K.
INSURER	;EP - CAN WE INCLUDE THIS IN AG PATCH 1??
REDO	;
RRE	;FIX "B" X-REF ENTRIES WITH NO ZERO RECORD
MCD	;CLEAR MCD RECORDS MISSING .01 FIELD
TS
STATEMSG(ARRAY,LN)	;EP - SEND MSG ABOUT MEDICAID ENTRIES MISSING STATE FIELD
GUAR1(PATPTR)	;EP - DELETE GUARANTOR ENTRIES WITH MISSING GUARANTORS OR DATES
GUAR	;CLEAR GUARANTOR RECORDS WITH INCOMPETE ENTRIES
VAALERT	;EP - SEND VA ALERT IF WANTED
MAIL	;Send install mail message.
POST	;EP - From KIDS.
OPTRES(AGM)	;
MCR	;

External References

Name	Field # of Occurrence
$$INSTALLD^AG71ENV	POST+33, POST+38
^AGCNVROI	POST+6
^DIK	INSURER+10, PRVT+7, PRVT+9, REDO+3, REDO+9
$$HTE^XLFDT	TS
^XMD	MAIL+15
$$ADD^XPDMENU	OPTRES+5
BMES^XPDUTL	POST+1, POST+5, POST+8, POST+11, POST+14, POST+18, POST+21, POST+24, POST+27, POST+30 , POST+34, POST+36, POST+42, POST+46, OPTRES+1, OPTRES+3, OPTRES+5
MES^XPDUTL	TS
SETUP^XQALERT	VAALERT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPRVT - [#9000006]	Classic Fileman Calls
^AUPNGUAR - [#9000043]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGEDERRS - [#9009061.5]	PRE+5!
^AUPNGUAR - [#9000043]	GUAR+3, REDO+1, REDO+6, REDO+7
^AUPNMCD - [#9000004]	MCD+5, MCD+7!, MCD+8
^AUPNMCR - [#9000003]	MCR+3!, MCR+5, MCR+6!
^AUPNMCR("B"	MCR+2, MCR+3!, MCR+6!
^AUPNPAT - [#9000001]	MCD+8, PAT+3
^AUPNPAT("D"	PAT+1, PAT+2, PAT+3!
^AUPNPRVT - [#9000006]	PRVT+3, PRVT+5, PRVT+6!, PRVT+7, PRVT+8, PRVT+12!
^AUPNPRVT("B"	PRVT+10, PRVT+11, PRVT+12!
^AUPNRRE - [#9000005]	RRE+4!, RRE+6, RRE+7!
^AUPNRRE("B"	RRE+3, RRE+4!, RRE+7!
^AUTNINS - [#9999999.18]	INSURER+2, INSURER+3!, INSURER+8
^AUTNINS("B"	INSURER+3!, INSURER+5, INSURER+7
^DPT - [#2]	MCD+8, PAT+3
^TMP("AG71MS"	MAIL+2!, MAIL+3, MAIL+4, MAIL+5, MAIL+6, MAIL+7, MAIL+12, MAIL+16!, STATEMSG+4*
^XTMP("AG71"	OPTRES+3, OPTRES+5
^XTMP("XPDI"	MAIL+12
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
GUAR	POST+28
GUAR1	GUAR+3
INSURER	POST+19
MAIL	POST+35, POST+44
MCD	POST+12
MCR	POST+15, POST+22
OPTRES	POST+40
PAT	POST+31
PRVT	POST+9
REDO	REDO+6
RRE	POST+25
SINGLE	MAIL+14
STATEMSG	MAIL+9
TS	POST+1, POST+5, POST+8, POST+11, POST+14, POST+18, POST+21, POST+24, POST+27, POST+30 , POST+34, POST+36, POST+40, POST+42, POST+46

Naked Globals

Name	Field # of Occurrence
^(	MAIL+12, OPTRES+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+11, MAIL+12, MAIL+14*
AG	OPTRES+2~, OPTRES+4, OPTRES+5
AGERRLST	MAIL+9, MAIL+10!, MCD+2!
AGERRLST(	MCD+8*
AGI	OPTRES+2~, OPTRES+5*
AGM	OPTRES~, OPTRES+1, OPTRES+3, OPTRES+5
ARRAY	STATEMSG~
ARRAY(	STATEMSG+3, STATEMSG+4
>> CNT	MAIL+8*, MAIL+9, MAIL+12
>> D1	PRVT+4, PRVT+5, PRVT+6, PRVT+7
DA	INSURER+9!, INSURER+10, PRVT+7, PRVT+9, REDO+3!, REDO+9!*
DA(1	PRVT+7, REDO+9
DFN	MCD+3~, MCD+8*
DIC	INSURER+9!, REDO+3!, REDO+9!
DIE	INSURER+9!, REDO+3!, REDO+9!
DIFROM	MAIL+1~
DIK	INSURER+9!, INSURER+10, PRVT+7, PRVT+9, REDO+3!, REDO+9!*
DIR	INSURER+9!
DR	INSURER+9!
DUZ	MAIL+13
DUZ(2	MCD+8
HRN	MCD+3~, PAT+1*, PAT+2, PAT+3
IEN	PRE+5, PRVT+11, PRVT+12, STATEMSG+1~, STATEMSG+2, STATEMSG+3, STATEMSG+4
K	SINGLE~, SINGLE+3, SINGLE+4
LN	STATEMSG~, STATEMSG+3*, STATEMSG+4
MCDNUM	MCD+3~
PATPTR	GUAR+1~, GUAR+2, GUAR+3, GUAR1~, REDO+1, REDO+3, REDO+6, REDO+7, REDO+9
>> RECIEN	INSURER+6, INSURER+7, INSURER+8, INSURER+10
>> RECNO	MCD+4, MCD+5, MCD+7, MCD+8, RRE+2, RRE+3, RRE+4, RRE+5, RRE+6, RRE+7 , MCR+1, MCR+2, MCR+3, MCR+4, MCR+5, MCR+6, INSURER+1, INSURER+2, INSURER+3, INSURER+4* , INSURER+5, INSURER+7, PAT+2, PAT+3, PRVT+2, PRVT+3, PRVT+5, PRVT+6, PRVT+7, PRVT+8 , PRVT+9, PRVT+10*, PRVT+11, PRVT+12
REDO	GUAR1+1~, REDO+5, REDO+6, REDO+9
ST	MCD+3~
SUB1	GUAR1+1~, REDO+1, REDO+2, REDO+5, REDO+6*, REDO+7, REDO+9
SUB11	GUAR1+1~, REDO+7*, REDO+8
U	OPTRES+5, MCD+7, MCD+8, RRE+4, RRE+7, MCR+3, MCR+6, INSURER+8, PRVT+6, PRVT+7 , PRVT+12, STATEMSG+4
XMDUZ	MAIL+1~, MAIL+13*
XMSUB	MAIL+1~, MAIL+13*
XMTEXT	MAIL+1~, MAIL+13*
XMY	MAIL+1~
XMY(	MAIL+13, SINGLE+4
XMY(1	MAIL+13*
>> XPDA	MAIL+12
>> XPDBLD	MAIL+12
>> XQA("AG MAIL	GROUP" , VAALERT+2*
>> XQAMSG	VAALERT+1*
Y	SINGLE+1~, SINGLE+2, SINGLE+4

Marked Items

Name	Field # of Occurrence
$T(	MAIL+13, VAALERT+1

Customize PDF page

Package: IHS Patient Registration

Routine: AG71A1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items