Routine: AG71A4

Package	Total	Call Graph
Kernel	4	$$HTE^XLFDT $$ADD^XPDMENU ($$LAST,BMES,MES)^XPDUTL SETUP^XQALERT
IHS Patient Registration	3	$$INSTALLD^AG71ENV ^AGCNVROI UPDTHADD^AGUTILS
VA Fileman	3	^DIC ^DIE ^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.
ADDHIST	;EP - ADD FIRST HISTORICAL ENTRY
RRE	;FIX "B" X-REF ENTRIES WITH NO ZERO RECORD
TS
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.
SETDEF	;EP - SET DEFAULTS IN NEW PARAMETERS
OPTRES(AGM)	;
MCR	;

External References

Name	Field # of Occurrence
$$INSTALLD^AG71ENV	POST+48, POST+53
^AGCNVROI	POST+6
UPDTHADD^AGUTILS	ADDHIST+5
^DIC	POLHOLD+14, ADDMAN+12, ADDMAN+16, ADDMAN+20, ADDMAN+22
^DIE	POLHOLD+20, POLHOLD+28, POLHOLD+36, SETDEF+7
^DIK	INSURER+10, PRVT+7, PRVT+9, REDO+3, REDO+9
$$HTE^XLFDT	TS
^XMD	MAIL+11
$$ADD^XPDMENU	OPTRES+5
$$LAST^XPDUTL	POST+42
BMES^XPDUTL	POST+1, POST+6, POST+8, POST+11, POST+14, POST+17, POST+20, POST+23, POST+26, POST+29 , POST+32, POST+35, POST+40, POST+49, POST+51, POST+57, POST+61, 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 SETDEF+7
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
^AGFAC - [#9009061]	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, SETDEF+3
^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, ADDHIST+4
^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, ADDHIST+3
^TMP("AG71MS"	MAIL+2!, MAIL+3, MAIL+4, MAIL+8*, MAIL+12!
^XTMP("AG71"	OPTRES+3, OPTRES+5
^XTMP("XPDI"	MAIL+8
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
$$PATCH	POST+6
ADDHIST	POST+44
ADDMAN	POST+36
GUAR	POST+27
GUAR1	GUAR+3
INSURER	POST+18
MAIL	POST+50, POST+59
MCD	POST+12
MCR	POST+15, POST+21
OPTRES	POST+55
PAT	POST+30
POLHOLD	POST+33
PRVT	POST+9
REDO	REDO+6
RRE	POST+24
SETDEF	POST+46
SINGLE	MAIL+10
TS	POST+1, POST+6, POST+8, POST+11, POST+14, POST+17, POST+20, POST+23, POST+26, POST+29 , POST+32, POST+35, POST+40, POST+49, POST+51, POST+55, POST+57, POST+61

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIL+7, MAIL+8, MAIL+10, PATCH+2~, PATCH+7, PATCH+8
AG	OPTRES+2~, OPTRES+4, OPTRES+5
AGERRLST	MAIL+6!, MCD+2!
AGERRLST(	MCD+8*
AGI	OPTRES+2~, OPTRES+5*
AGM	OPTRES~, OPTRES+1, OPTRES+3, OPTRES+5
>> CNT	MAIL+5*, MAIL+8
>> 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!, SETDEF+1!, SETDEF+4
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 , SETDEF+1!
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! , SETDEF+1!, SETDEF+5
DIFROM	MAIL+1~
DIK	INSURER+9!, INSURER+10, PRVT+7, PRVT+9, REDO+3!, REDO+9!*
DINUM	ADDMAN+1!
DIR	INSURER+9!, SETDEF+1!
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!, SETDEF+6
DUZ	MAIL+9
DUZ(2	MCD+8
>> DUZ2	ADDMAN+2, ADDMAN+3, ADDMAN+4, ADDMAN+7, SETDEF+2, SETDEF+3, SETDEF+4
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, 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
MCDNUM	MCD+3~
PADFN	ADDHIST+1~
>> PATDFN	ADDHIST+2, ADDHIST+3, ADDHIST+4, ADDHIST+5
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, POLHOLD+4, POLHOLD+5, POLHOLD+6, POL+4, POL+6, POL+7, POL+8
X	POST+42, 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+9*
XMSUB	MAIL+1~, MAIL+9*
XMTEXT	MAIL+1~, MAIL+9*
XMY	MAIL+1~
XMY(	MAIL+9, SINGLE+4
XMY(1	MAIL+9*
>> XPDA	MAIL+8
>> XPDBLD	MAIL+8
>> XQA("AG MAIL	GROUP" , VAALERT+2*
>> XQAMSG	VAALERT+1*
Y	SINGLE+1~, SINGLE+2, SINGLE+4, POLHOLD+15

Marked Items

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

Customize PDF page

Package: IHS Patient Registration

Routine: AG71A4

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