Routine: AG71A2

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

Entry Points

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

External References

Name	Field # of Occurrence
$$INSTALLD^AG71ENV	POST+45, POST+50
^AGCNVROI	POST+6
POLHCREF^AGDATA	POST+37
^DIC	POLHOLD+14, ADDMAN+12, ADDMAN+16, ADDMAN+20, ADDMAN+22
^DIE	POLHOLD+20, POLHOLD+28, POLHOLD+36
^DIK	INSURER+10, PRVT+7, PRVT+9, REDO+3, REDO+9
IXALL^DIK	REIN+5
$$HTE^XLFDT	TS
^XMD	MAIL+14
$$ADD^XPDMENU	OPTRES+5
BMES^XPDUTL	POST+1, POST+6, POST+8, POST+11, POST+14, POST+18, POST+21, POST+24, POST+27, POST+30 , POST+33, POST+36, POST+39, POST+46, POST+48, POST+54, POST+58, OPTRES+1, OPTRES+3, OPTRES+5
MES^XPDUTL	TS
SETUP^XQALERT	VAALERT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"INSURER NODE:",$G(^AUPNPRVT(POLM,11,REC,0)) Line Location: POL+7
Routine Call	DIE Line Location: POLHOLD+20 POLHOLD+28 POLHOLD+36
Routine Call	DIC Line Location: POLHOLD+14 ADDMAN+12 ADDMAN+16 ADDMAN+20 ADDMAN+22

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGEDERRS - [#9009061.5]	PRE+5!
^AGFAC - [#9009061]	ADDMAN+3, ADDMAN+4
^AUPN3PPH - [#9000003.1]	POLHOLD+3, POLHOLD+4, POLHOLD+5, POLHOLD+6
^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!, POL+4, POL+6, POL+7, POL+8
^AUPNPRVT("B"	PRVT+10, PRVT+11, PRVT+12!
^AUPNPRVT("C"	POL+1, POL+2, POL+3, POL+8!
^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
^DIC(9.4 - [#9.4]	PATCH+3, PATCH+4, PATCH+6, PATCH+7
^DPT - [#2]	MCD+8, PAT+3
^TMP("AG71MS"	MAIL+2!, MAIL+3, MAIL+4, MAIL+11, MAIL+15!, STATEMSG+4
^XTMP("AG71"	OPTRES+3, OPTRES+5
^XTMP("XPDI"	MAIL+11
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
$$PATCH	POST+6
ADDMAN	POST+40
GUAR	POST+28
GUAR1	GUAR+3
INSURER	POST+19
MAIL	POST+47, POST+56
MCD	POST+12
MCR	POST+15, POST+22
OPTRES	POST+52
PAT	POST+31
POLHOLD	POST+34
PRVT	POST+9
REDO	REDO+6
RRE	POST+25
SINGLE	MAIL+13
TS	POST+1, POST+6, POST+8, POST+11, POST+14, POST+18, POST+21, POST+24, POST+27, POST+30 , POST+33, POST+36, POST+39, POST+46, POST+48, POST+52, POST+54, POST+58

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIL+10, MAIL+11, MAIL+13, PATCH+2~, PATCH+7, PATCH+8
AG	OPTRES+2~, OPTRES+4, OPTRES+5
AGERRLST	MAIL+9!, 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+5*, MAIL+11
>> D1	PRVT+4, PRVT+5, PRVT+6, PRVT+7
DA	INSURER+9!, INSURER+10, PRVT+7, PRVT+9, REDO+3!, REDO+9!, POLHOLD+16!, POLHOLD+17, POLHOLD+24!, POLHOLD+25* , POLHOLD+32!, POLHOLD+33*, ADDMAN+1!
DA(1	PRVT+7, REDO+9, ADDMAN+4*, ADDMAN+6, ADDMAN+8
DA(2	ADDMAN+7*, ADDMAN+8
DD	ADDMAN+1!
DFN	MCD+3~, MCD+8*
DIC	INSURER+9!, REDO+3!, REDO+9!, POLHOLD+11!, POLHOLD+13, POLHOLD+16!, POLHOLD+24!, POLHOLD+32!, ADDMAN+1!, ADDMAN+8
DIC("DR"	ADDMAN+11, ADDMAN+15, ADDMAN+19*
DIC(0	ADDMAN+10, ADDMAN+14, ADDMAN+18*
DIE	INSURER+9!, REDO+3!, REDO+9!, POLHOLD+16!, POLHOLD+18, POLHOLD+24!, POLHOLD+26, POLHOLD+32!, POLHOLD+34*, ADDMAN+1!
DIFROM	MAIL+1~
DIK	REIN+3!, REIN+4, INSURER+9!, INSURER+10, PRVT+7, PRVT+9, REDO+3!, REDO+9!
DINUM	ADDMAN+1!
DIR	INSURER+9!
DO	ADDMAN+1!
DOB	POLHOLD+1~, POLHOLD+5*, POLHOLD+7, POLHOLD+21, POLHOLD+22, POLHOLD+23
DR	INSURER+9!, POLHOLD+16!, POLHOLD+19, POLHOLD+24!, POLHOLD+27, POLHOLD+32!, POLHOLD+35*, ADDMAN+1!
DUZ	MAIL+12
DUZ(2	MCD+8
>> DUZ2	ADDMAN+2, ADDMAN+3, ADDMAN+4, ADDMAN+7
HRN	MCD+3~, PAT+1*, PAT+2, PAT+3
I	PATCH+2~, PATCH+3*, PATCH+4, PATCH+6, PATCH+7
IEN	PRE+5, PRVT+11, PRVT+12, STATEMSG+1~, STATEMSG+2, STATEMSG+3, STATEMSG+4, POLHOLD+1~, POLHOLD+2, POLHOLD+3 , POLHOLD+4, POLHOLD+5, POLHOLD+6, POLHOLD+10, POLHOLD+17, POLHOLD+23, POLHOLD+25, POLHOLD+31, POLHOLD+33
J	PATCH+2~, PATCH+4*, PATCH+6, PATCH+7
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
>> POLH	POL+1*, POL+2, POL+3, POL+4, POL+5, POL+8
>> POLM	POL+2*, POL+3, POL+4, POL+5, POL+6, POL+7, POL+8
>> REC	POL+3*, POL+4, POL+5, POL+6, POL+7, POL+8
>> 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
SEX	POLHOLD+1~, POLHOLD+6*, POLHOLD+7, POLHOLD+29, POLHOLD+30, POLHOLD+31
ST	MCD+3~
STATE	POLHOLD+1~, POLHOLD+4*, POLHOLD+7, POLHOLD+8, POLHOLD+9, POLHOLD+10, POLHOLD+12
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, POLHOLD+4, POLHOLD+5, POLHOLD+6, POL+4, POL+6, POL+7, POL+8
X	POLHOLD+12, PATCH~, PATCH+1, PATCH+3, PATCH+4, PATCH+6, PATCH+7, PATCH+8, ADDMAN+9, ADDMAN+13 , ADDMAN+17, ADDMAN+21
XMDUZ	MAIL+1~, MAIL+12*
XMSUB	MAIL+1~, MAIL+12*
XMTEXT	MAIL+1~, MAIL+12*
XMY	MAIL+1~
XMY(	MAIL+12, SINGLE+4
XMY(1	MAIL+12*
>> XPDA	MAIL+11
>> XPDBLD	MAIL+11
>> XQA("AG MAIL	GROUP" , VAALERT+2*
>> XQAMSG	VAALERT+1*
Y	SINGLE+1~, SINGLE+2, SINGLE+4, POLHOLD+15

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AG71A2

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items