Routine: AGUTILS

Package	Total	Call Graph
VA Fileman	7	DD^%DT ^DIC ^DIE $$GET1^DIQ ^DIR ^DIWP ^DIWW
IHS Patient Registration	2	$$F111^AGAPIPAT ^AGINS
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMD

Package

Total

Call Graph

VA Fileman

DD^%DT ^DIC ^DIE $$GET1^DIQ ^DIR ^DIWP ^DIWW

IHS Patient Registration

$$F111^AGAPIPAT ^AGINS

Kernel

$$FMTE^XLFDT

MailMan

^XMD

Package	Total	Caller Graph
IHS Patient Registration	50	AG0 AG3 AG3A AG4 AG6 AG71A4 AG71A5 AGACT AGED AGED1 AGED11 AGED11A AGED13 AGED4 AGED42 AGED4A AGED4A1 AGED4PD AGED5 AGED6 AGED62 AGED6PD AGED7B AGED8 AGEDBEA AGEDBEB AGEDBEC AGEDBED AGEDBEE AGEDBEF AGEDBEG AGEDBEH AGEDERR2 AGEDGUAR AGEDIT AGEDMCD AGEDMCD1 AGEDPRV AGEDPRVB AGEDPRVP AGEDPRVU AGEDTPL AGEDWC AGEL1 AGELA AGELUP1 AGERRAU1 AGPHADDR AGRPTPDP AGSSSMR1
Patient Registration GUI	3	AGGRPTDP AGGUPMCD AGGWVAL

Package

Total

Caller Graph

IHS Patient Registration

AG0  AG3  AG3A  AG4  AG6  AG71A4  AG71A5  AGACT
AGED  AGED1  AGED11  AGED11A  AGED13  AGED4  AGED42  AGED4A
AGED4A1  AGED4PD  AGED5  AGED6  AGED62  AGED6PD  AGED7B  AGED8
AGEDBEA  AGEDBEB  AGEDBEC  AGEDBED  AGEDBEE  AGEDBEF  AGEDBEG  AGEDBEH
AGEDERR2  AGEDGUAR  AGEDIT  AGEDMCD  AGEDMCD1  AGEDPRV  AGEDPRVB  AGEDPRVP
AGEDPRVU  AGEDTPL  AGEDWC  AGEL1  AGELA  AGELUP1  AGERRAU1  AGPHADDR
AGRPTPDP  AGSSSMR1

Patient Registration GUI

AGGRPTDP AGGUPMCD AGGWVAL

Entry Points

Name	Comments	DBIA/ICR reference
VALPHONE	;EP - CHECK FOR VALID PHONE ENTRY
ACTPOLME(PH)	;EP - ARE THERE ACTIVE POLICY MEMBERS ASSOCIATED WITH THIS POLICY HOLDER?
UPDTEMAL(PATDFN)	;EP - UPDATE HISTORICAL EMAIL ADDRESS
AGE(AGPATDFN)	;EP - RETURN AGE
ISACTIVE(EFFDT,ENDDT)	;EP - DETERMINE WHETHER THE POLICY IS ACTIVE AS OF TODAY
PROGVIEW(DUZ,SUBS)	;EP - DISPLAYS PROGRAMMER INFORMATION ON SCREEN
SPOUSE	;EP
EMAIL	;EP - CHECK FOR VALID E-MAIL ADDRESS
FINDNEW(AGINSNN,COMPIEN,INSIEN)	;EP - AG7.11 IM18549 ORIGINALLY REPORTED AS
USED(DFN,AGINSPTR,AGP,AGDA,AGMCDDA)	;EP - Is this Eligibility date record used in a 3P Bill or Claim?
TESTAPI	;EP -
ALERTMSG(XMDUZ,XMY,XMSUB,XMTEXT)	;EP
CENTER(X)	;EP - CENTER TEXT
NEEDTOSQ(DFN,FAC)	;EP - DOES THE USER NEED TO SEQUENCE?
VERIF2	;EP - DO VERIFIED BY LINE FOR INSURANCE SUMMARY SCREEN
NOTELINE(FIELDNUM,FILENUM,D0,LENGTH)	;EP -
DTEST(AGDFN)	;EP - RETURNS THE "DATE ESTABLISHED" OR "DATE OF LAST REG. UPDATE" FOR DISPLAY
WRAP(X,DIWL,DIWF)	;EP - WRAP TEXT #DEV DISPLAY
ISNONIND(DFN)	;EP - CHECK IF 1111 FIELD CONTAINS "NON-INDIAN"
VERIF	;EP - DO VERIFIED BY LINE
PATSEQ(DFN)	;EP
ISMINOR(DFN)	;EP - CHECK IF PATIENT IS A MINOR <18
SEQMAN(FAC)	;EP - IS MANDATORY SEQUENCING TURNED ON?
UPDTSEL(AGINS,COMPIEN,INSIEN)	;EP - UPDATE SELECTION
UPDTHADD(PATDFN,FORCE)	;EP - UPDATE HISTORICAL ADDRESS FROM FILE #2 ADRESS FIELDS
UPPER(STR)	;EP - CHANGE LOWER TO UPPER
NOPOLMEM(PH)	;EP - RETURNS TRUE IF THERE ARE NO ACTIVE POLICY MEMBERS BESIDES POLICY HOLDER

External References

Name	Field # of Occurrence
DD^%DT	DTEST+3, DTEST+6
$$F111^AGAPIPAT	TESTAPI+1
^AGINS	UPDTSEL+2
^DIC	UPDTEMAL+7, UPDTHADD+9
^DIE	UPDTEMAL+21, UPDTHADD+53
$$GET1^DIQ	UPDTEMAL+15, UPDTHADD+19, UPDTHADD+20, UPDTHADD+21, UPDTHADD+22, UPDTHADD+23, UPDTHADD+25, UPDTHADD+26, NOTELINE+5, SPOUSE+4 , SPOUSE+5
^DIR	UPDTEMAL+12, UPDTHADD+14
^DIWP	WRAP+2
^DIWW	WRAP+3
$$FMTE^XLFDT	VERIF+2, VERIF2+2
^XMD	ALERTMSG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,XMMG Line Location: ALERTMSG+2
Function Call: WRITE	Prompt: !,"Last edited by: ",$P($G(^VA(200,$P($G(^AUPNPAT(DFN,0)),U,12),0)),U)," on ",$$FMTE^XLFDT($P($G(^AUPNPAT(DFN,0)),U,3),1) Line Location: VERIF+2
Function Call: WRITE	Prompt: !,"Last edited by: ",$P($G(^VA(200,$P(CATREC,U,9),0)),U)," on ",$$FMTE^XLFDT($P(CATREC,U,10),1) Line Location: VERIF2+2
Function Call: WRITE	Prompt: !,"\|--------------------PROGRAMMER INFORMATION VIEW-------------------------------\|" Line Location: PROGVIEW+4
Function Call: WRITE	Prompt: !,"\|ED SCR RTN=",$G(ROUTID),?25,"DFN=",$G(DFN),?79,"\|" Line Location: PROGVIEW+5
Function Call: WRITE	Prompt: !,"\|ED CHK SCR=",$G(AG("PG")),?25,"AUPNPAT=",$G(AUPNPAT),?79,"\|" Line Location: PROGVIEW+6
Function Call: WRITE	Prompt: !,"\|" Line Location: PROGVIEW+7
Function Call: WRITE	Prompt: ?79,"\|" Line Location: PROGVIEW+13
Function Call: WRITE	Prompt: !,"\|------------------------------------------------------------------------------\|" Line Location: PROGVIEW+14
Function Call: WRITE	Prompt: ! Line Location: PROGVIEW+15
Function Call: WRITE	Prompt: ?CENTER-($L(X)/2),X Line Location: CENTER+2
Routine Call	DIE Line Location: UPDTEMAL+21 UPDTHADD+53
Routine Call	DIC Line Location: UPDTEMAL+7 UPDTHADD+9
Routine Call	DIR Line Location: UPDTEMAL+12 UPDTHADD+14

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	USED+16, USED+17, USED+18, USED+20, USED+23, USED+25, USED+26
^ABMDCLM - [#9002274.3]	USED+34, USED+35, USED+37, USED+40, USED+42
^AGFAC - [#9009061]	SEQMAN+1
^AUPN3PPH - [#9000003.1]	ACTPOLME+8, NOPOLMEM+8
^AUPNICP("C"	PATSEQ+1
^AUPNPAT - [#9000001]	UPDTHADD+2, VERIF+1, VERIF+2, ISNONIND+2, DTEST+2, DTEST+5, SPOUSE+3, SPOUSE+5
^AUPNPAT("AG"	SPOUSE+1, SPOUSE+2
^AUPNPRVT - [#9000006]	ACTPOLME+7, NOPOLMEM+7
^AUPNPRVT("C"	ACTPOLME+4, ACTPOLME+6, NOPOLMEM+4, NOPOLMEM+6
^AUTTBEN - [#9999999.25]	ISNONIND+4
^DD(	NOTELINE+4
^DD(2	ISMINOR+3, AGE+1
^DIC(4 - [#4]	USED+26, USED+43
^DIC(5 - [#5]	UPDTHADD+24
^DPT - [#2]	SPOUSE+3
^UTILITY($J	WRAP+1!
^VA(200 - [#200]	VERIF+2, VERIF2+2
^XUSEC("AGZPROG"	PROGVIEW+1

Name	Line Occurrences
$$FINDNEW	UPDTSEL+10
$$ISACTIVE	ACTPOLME+13, NOPOLMEM+13
$$PATSEQ	NEEDTOSQ+2
$$SEQMAN	NEEDTOSQ+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	ACTPOLME+1~, ACTPOLME+3, ACTPOLME+4, ACTPOLME+6, ACTPOLME+15, ACTPOLME+16, NOPOLMEM+1~, NOPOLMEM+3, NOPOLMEM+4, NOPOLMEM+6 , NOPOLMEM+15, NOPOLMEM+16
ADDREC	UPDTEMAL+1~, UPDTEMAL+13, UPDTEMAL+17, UPDTHADD+3~, UPDTHADD+15, UPDTHADD+29
>> AG("PG"	PROGVIEW+6
AG13	USED+13~, USED+19, USED+20, USED+23, USED+25, USED+36, USED+37, USED+40, USED+42
AGBILL	USED+13~, USED+14, USED+17, USED+18, USED+20, USED+23, USED+25, USED+26, USED+32, USED+35 , USED+37, USED+40, USED+42, USED+43
>> AGCITY	UPDTHADD+22*, UPDTHADD+42
AGDA	USED~, USED+23, USED+40
AGDFN	DTEST~, DTEST+1, DTEST+2, DTEST+5
AGDUZ2	USED+13~, USED+14, USED+16, USED+17, USED+18, USED+20, USED+23, USED+25, USED+26, USED+32* , USED+34*, USED+35, USED+37, USED+40, USED+42, USED+43
AGEMAIL	UPDTEMAL+14~, UPDTEMAL+15*
>> AGHPHONE	UPDTHADD+26*, UPDTHADD+51
AGINS	UPDTSEL~
AGINSNN	UPDTSEL+10, FINDNEW~
AGINSPTR	USED~
AGMCDDA	USED~, USED+25, USED+42
>> AGOPT("AGE OF	MINOR" , ISMINOR+4
AGP	USED~, USED+23, USED+25, USED+40, USED+42
AGPATDFN	AGE~
AGPIECE	PROGVIEW+3~, PROGVIEW+10*, PROGVIEW+11
>> AGSELECT	UPDTSEL+10*, UPDTSEL+11
>> AGSTATE	UPDTHADD+23, UPDTHADD+24, UPDTHADD+45
AGSTR1	UPDTHADD+18~, UPDTHADD+19*, UPDTHADD+33
>> AGSTR2	UPDTHADD+20*, UPDTHADD+36
>> AGSTR3	UPDTHADD+21*, UPDTHADD+39
AGUSED	USED+13~, USED+14, USED+16, USED+17, USED+20, USED+26, USED+30, USED+32, USED+34, USED+35 , USED+37, USED+43, USED+47
>> AGZIP	UPDTHADD+25*, UPDTHADD+48
>> AUPNPAT	PROGVIEW+6
>> CATREC	VERIF2+1, VERIF2+2
>> CENTER	CENTER+1*, CENTER+2
CITY	UPDTHADD+18~
COMPIEN	UPDTSEL~, UPDTSEL+3, UPDTSEL+10, FINDNEW~, FINDNEW+7, FINDNEW+9
D0	NOTELINE~, NOTELINE+5, ISMINOR+2, AGE+1
DA	UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+17, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+29, UPDTHADD+54!
DA(1	UPDTEMAL+3, UPDTEMAL+4, UPDTEMAL+18, UPDTEMAL+19, UPDTHADD+5, UPDTHADD+6, UPDTHADD+30, UPDTHADD+31
DATALEN	NOTELINE+3~, NOTELINE+5, NOTELINE+6, NOTELINE+7, NOTELINE+8
DFN	PATSEQ~, PATSEQ+1, NEEDTOSQ~, NEEDTOSQ+2, VERIF+1, VERIF+2, PROGVIEW+5, ISNONIND~, ISNONIND+2, SPOUSE+2* , SPOUSE+3, SPOUSE+4, SPOUSE+5, ISMINOR~, ISMINOR+1, ISMINOR+2, AGE+1, USED~, USED+17, USED+35
DIC	UPDTEMAL+2!, UPDTEMAL+4, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+6, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+54!
DIC(0	UPDTEMAL+5, UPDTHADD+7
DIE	UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+19, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+31, UPDTHADD+54!
DIR	UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+54!
DIR(0	UPDTEMAL+11, UPDTHADD+13
DIWF	WRAP~
DIWL	WRAP~
DR	UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+20, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+33, UPDTHADD+34* , UPDTHADD+36, UPDTHADD+37, UPDTHADD+39, UPDTHADD+40, UPDTHADD+42, UPDTHADD+43, UPDTHADD+45, UPDTHADD+46, UPDTHADD+48, UPDTHADD+49 , UPDTHADD+51, UPDTHADD+52, UPDTHADD+54!
DT	UPDTEMAL+6, UPDTHADD+8, ISACTIVE+6, ISACTIVE+7, ISACTIVE+8
DUZ	PROGVIEW~, PROGVIEW+1
DUZ(2	SPOUSE+3, SPOUSE+5
>> EFFDATE	ACTPOLME+11, ACTPOLME+13, NOPOLMEM+11, NOPOLMEM+13
EFFDT	ISACTIVE~, ISACTIVE+2, ISACTIVE+6, ISACTIVE+7, ISACTIVE+8
>> EMP	SPOUSE+1*, SPOUSE+2
EMPL	SPOUSE+1!
EMPL(	SPOUSE+6*
>> ENDDATE	ACTPOLME+12, ACTPOLME+13, NOPOLMEM+12, NOPOLMEM+13
ENDDT	ISACTIVE~, ISACTIVE+2, ISACTIVE+3*, ISACTIVE+5, ISACTIVE+7, ISACTIVE+8
EXT	VALPHONE+1~
>> EXTENT	EMAIL+3*
FAC	SEQMAN~, SEQMAN+1, NEEDTOSQ~, NEEDTOSQ+2
FIELDNUM	NOTELINE~, NOTELINE+4, NOTELINE+5
FILENUM	NOTELINE~, NOTELINE+4, NOTELINE+5
FORCE	UPDTHADD~, UPDTHADD+1*, UPDTHADD+2, UPDTHADD+33, UPDTHADD+36, UPDTHADD+39, UPDTHADD+42, UPDTHADD+45, UPDTHADD+48, UPDTHADD+51
FOUND	FINDNEW+3~, FINDNEW+4, FINDNEW+5, FINDNEW+7, FINDNEW+9*
GOOD	VALPHONE+1~, VALPHONE+2, VALPHONE+6, VALPHONE+7, VALPHONE+8, VALPHONE+9, VALPHONE+10, VALPHONE+11, VALPHONE+12, VALPHONE+13*
HOST	EMAIL+1~, EMAIL+8*, EMAIL+13, EMAIL+14
HPHONE	UPDTHADD+18~
>> HRN	SPOUSE+5*, SPOUSE+6
INDENT	PROGVIEW+3~, PROGVIEW+8, PROGVIEW+11, PROGVIEW+12
>> INSGLO	FINDNEW+9
INSIEN	UPDTSEL~, UPDTSEL+10, FINDNEW~, FINDNEW+7, FINDNEW+9
IOM	CENTER+1
LABEL	NOTELINE+3~
>> LABELLEN	NOTELINE+4*, NOTELINE+8
LENGTH	NOTELINE~, NOTELINE+10
>> MEM	ACTPOLME+9, ACTPOLME+10, NOPOLMEM+9, NOPOLMEM+10
>> MS	SPOUSE+4*
NAME	EMAIL+1~, EMAIL+9*, EMAIL+11
OPENEND	ISACTIVE+1~, ISACTIVE+5*, ISACTIVE+6
PATDFN	UPDTEMAL~, UPDTEMAL+3, UPDTEMAL+15, UPDTEMAL+18, UPDTHADD~, UPDTHADD+2, UPDTHADD+5, UPDTHADD+19, UPDTHADD+20, UPDTHADD+21 , UPDTHADD+22, UPDTHADD+23, UPDTHADD+25, UPDTHADD+26, UPDTHADD+30
PH	ACTPOLME~, ACTPOLME+4, ACTPOLME+6, ACTPOLME+8, NOPOLMEM~, NOPOLMEM+4, NOPOLMEM+6, NOPOLMEM+8
PHPTR	ACTPOLME+1~, NOPOLMEM+1~
>> POLHOLD0	ACTPOLME+8, ACTPOLME+9, NOPOLMEM+8, NOPOLMEM+9
POLMEM	ACTPOLME+1~, ACTPOLME+2, ACTPOLME+4, ACTPOLME+6, ACTPOLME+7, ACTPOLME+10, NOPOLMEM+1~, NOPOLMEM+2, NOPOLMEM+4, NOPOLMEM+6 , NOPOLMEM+7, NOPOLMEM+10
PRVT0	ACTPOLME+1~, NOPOLMEM+1~
>> PRVT11	ACTPOLME+7, ACTPOLME+11, ACTPOLME+12, NOPOLMEM+7, NOPOLMEM+11, NOPOLMEM+12
PRVTINS	ACTPOLME+1~, ACTPOLME+5, ACTPOLME+6, ACTPOLME+7, NOPOLMEM+1~, NOPOLMEM+5, NOPOLMEM+6, NOPOLMEM+7
PTR	ISNONIND+1~, ISNONIND+2*, ISNONIND+3, ISNONIND+4
REC	FINDNEW+3~, FINDNEW+4, FINDNEW+5, FINDNEW+6, FINDNEW+7, FINDNEW+8, FINDNEW+9
>> REGPH	VALPHONE+3, VALPHONE+4, VALPHONE+5*, VALPHONE+6, VALPHONE+7, VALPHONE+8, VALPHONE+9, VALPHONE+10, VALPHONE+11, VALPHONE+12 , VALPHONE+13
>> RETURN	FINDNEW+4, FINDNEW+7, FINDNEW+9*, FINDNEW+11
>> ROUTID	PROGVIEW+5
>> SPACER	NOTELINE+9*, NOTELINE+11
>> SPEMP	SPOUSE+5*, SPOUSE+6
STATE	UPDTHADD+18~
STR	UPPER~, UPPER+1
STREET2	UPDTHADD+18~
STREET3	UPDTHADD+18~
STRING	NOTELINE+3~, NOTELINE+10*, NOTELINE+11
SUBS	PROGVIEW~, PROGVIEW+2*, PROGVIEW+9, PROGVIEW+10, PROGVIEW+11
>> TOTINDEN	NOTELINE+8*, NOTELINE+9
TRUE	NEEDTOSQ+1~, NEEDTOSQ+2*, NEEDTOSQ+3
U	SEQMAN+1, VERIF+1, VERIF+2, VERIF2+1, VERIF2+2, FINDNEW+6, FINDNEW+7, FINDNEW+8, FINDNEW+9, NOTELINE+4 , ISNONIND+2, ISNONIND+4, ACTPOLME+9, ACTPOLME+11, ACTPOLME+12, NOPOLMEM+9, NOPOLMEM+11, NOPOLMEM+12, DTEST+2, DTEST+5 , SPOUSE+3, SPOUSE+5, ISMINOR+3, AGE+1, USED+18, USED+23, USED+25, USED+26, USED+40, USED+42 , USED+43
X	UPDTEMAL+6, UPDTHADD+8, WRAP~, EMAIL+3, EMAIL+4!, EMAIL+5!, EMAIL+6!, EMAIL+7!, EMAIL+8, EMAIL+9 , EMAIL+11!, EMAIL+13!, EMAIL+14!, EMAIL+16!, EMAIL+17!, EMAIL+18!, EMAIL+19!, EMAIL+20!, EMAIL+21!, EMAIL+22! , EMAIL+23!, EMAIL+24!, EMAIL+25!, EMAIL+27!, EMAIL+28!, EMAIL+29!, EMAIL+30!, EMAIL+31!, EMAIL+32!, EMAIL+33! , EMAIL+34!, EMAIL+35!, EMAIL+36!, EMAIL+37!, EMAIL+38!, EMAIL+39!, VALPHONE+3, VALPHONE+4, VALPHONE+5, VALPHONE+15! , CENTER~, CENTER+2, ISMINOR+4, AGE+2, TESTAPI+1*
XMDUZ	ALERTMSG~
>> XMMG	ALERTMSG+2
XMSUB	ALERTMSG~
XMTEXT	ALERTMSG~
XMY	ALERTMSG~
Y	UPDTEMAL+8, UPDTEMAL+13, UPDTHADD+10, UPDTHADD+15, DTEST+2, DTEST+4, DTEST+5, DTEST+7, USED+13~
ZIP	UPDTHADD+18~

Customize PDF page

Package: IHS Patient Registration

Routine: AGUTILS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 53

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: