Routine: AGEDPRV

Package	Total	Call Graph
IHS Patient Registration	9	UPDATE1^AGED (EDITCHEK,FETCHERR)^AGEDERR (CONFIRM,PUTPOLH)^AGEDPRV1 EDITPOLM^AGEDPRVI (ADDMEMB,DELMEM)^AGEDPRVP HDR^AGEDPRVU $$ISACTIVE^AGINS EN^AGPHADDR ($$UPDTSEL,$$UPPER,VERIF)^AGUTILS
VA Fileman	5	^DIC FILE^DICN ^DIK $$GET1^DIQ ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS Patient Registration	3	AG7 AGED4A AGED4A3

Entry Points

Name	Comments	DBIA/ICR reference
ADDINS(ID0,AGINSPTR)	;EP -
WMSG	;EP -
PULLPATI(NEWPH,X,PATPTR,SAME,EXIT,INSPTR)	;EP -
END	;EP -
CLEAN11(ID0,ID1)	;EP-
EDIT	;EP
CLEAN(ID0)	;EP -
GETAW(POLHPTR)	;EP -
DRAW(POLHPTR)	;EP -
ADDPOLH(PATPTR,AGINSPTR,EXIT,POLHPTR)	;EP - ADD POL HOLD
PHLOOKUP(X,NEWPH,AGINSPTR)	;EP -
EN(ID0,ID1,NEWENTRY,AGSELECT,AGINSPTR,POLHPTR,COVPTR)	;EP - CALLED BY AG7
1	;
NEWENTRY(ID0)	;EP -
ADDPOLH2
VAR	;
PTLOOKUP(X,NEWPH)	;EP -
POLMEM(POLHPTR,POLMCNT,POLMEMBS)	;EP - DISPLAY POLICY MEMBERS
CLEANZER(ID0)	;EP - CLEAN ZERO NODE

External References

Name	Field # of Occurrence
UPDATE1^AGED	EDIT+20
EDITCHEK^AGEDERR	EN+13, VAR+43, GETAW+59
FETCHERR^AGEDERR	EN+10, VAR+40, GETAW+56
CONFIRM^AGEDPRV1	ADDPOLH2+22, ADDPOLH2+26, ADDPOLH2+30
PUTPOLH^AGEDPRV1	PULLPATI+14
EDITPOLM^AGEDPRVI	EDIT+15
ADDMEMB^AGEDPRVP	VAR+13
DELMEM^AGEDPRVP	VAR+16
HDR^AGEDPRVU	DRAW+1
$$ISACTIVE^AGINS	VAR+36
EN^AGPHADDR	VAR+28
$$UPDTSEL^AGUTILS	EN+8, EN+27, VAR+38
$$UPPER^AGUTILS	ADDPOLH2+19
VERIF^AGUTILS	GETAW+60
^DIC	NEWENTRY+5, PHLOOKUP+6, PTLOOKUP+5
FILE^DICN	ADDINS+19
^DIK	CLEAN11+4, CLEANZER+2
$$GET1^DIQ	GETAW+37, GETAW+38, GETAW+39, GETAW+40, GETAW+43, GETAW+46, PULLPATI+6, PULLPATI+11
^DIR	VAR+3, VAR+8, EDIT+5, ADDINS+7, ADDPOLH2+13
$$FMTE^XLFDT	GETAW+38, GETAW+43, POLMEM+29, POLMEM+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+2
Function Call: WRITE	Prompt: !,"Entry could not be created." Line Location: EN+21
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+22
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+23
Function Call: WRITE	Prompt: !,"New entry not made" Line Location: EN+24
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+4
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!" Line Location: VAR+10
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: EDIT+8
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: EDIT+12
Function Call: WRITE	Prompt: !,CAPTION Line Location: GETAW+6
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+18
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+19
Function Call: WRITE	Prompt: $$FMTE^XLFDT($$GET1^DIQ(DIC,D0,DR,"I"),5) Line Location: GETAW+38
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR,"I") Line Location: GETAW+43
Function Call: WRITE	Prompt: ?62,"Date:",$$FMTE^XLFDT($$GET1^DIQ(DIC,D0,.16,"I"),5) Condition for execution: $$GET1^DIQ(DIC,D0,DR,"I")="Y" Line Location: GETAW+43
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR,FLAG) Line Location: GETAW+46
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+52
Function Call: WRITE	Prompt: !,"Entering new PRIVATE INSURANCE ELIGIBILITY record" Line Location: WMSG+1
Function Call: WRITE	Prompt: *7,!!,"WARNING: If you proceed you will be ADDING an Insurer that the Patient already",!," has an Eligibility Record for!" Line Location: ADDINS+5
Function Call: WRITE	Prompt: ! Line Location: ADDINS+7
Function Call: WRITE	Prompt: " (OK, then proceed with caution)" Condition for execution: Y=1 Line Location: ADDINS+7
Function Call: WRITE	Prompt: !!,"Enter the NAME of the POLICY HOLDER or the POLICY NUMBER if it already exists." Line Location: ADDPOLH2+2
Function Call: WRITE	Prompt: !?10,"(Enter 'SAME' if the PATIENT is the Policy Holder.)" Line Location: ADDPOLH2+3
Function Call: WRITE	Prompt: ! Line Location: ADDPOLH2+4
Function Call: WRITE	Prompt: !!!! Line Location: ADDPOLH2+19
Function Call: WRITE	Prompt: ! Line Location: ADDPOLH2+20
Function Call: WRITE	Prompt: !!,"No Hit Found in POLICY HOLDER file",!!,"Searching PATIENT file ...." Line Location: ADDPOLH2+23
Function Call: WRITE	Prompt: !!!! Line Location: ADDPOLH2+25
Function Call: WRITE	Prompt: !!!! Line Location: ADDPOLH2+26
Function Call: WRITE	Prompt: !!,"No Hit Found in PATIENT File for ",$G(TARGET),"!" Line Location: ADDPOLH2+27
Function Call: WRITE	Prompt: ! Line Location: ADDPOLH2+27
Function Call: WRITE	Prompt: !!,TARGET," is a non registered patient" Line Location: ADDPOLH2+29
Function Call: WRITE	Prompt: !,"THERE ARE NO POLICY MEMBERS FOR THIS ELIGIBLITY RECORD!" Line Location: POLMEM+3
Function Call: WRITE	Prompt: ?26,$E(AGPH,1,16) Line Location: POLMEM+23
Function Call: WRITE	Prompt: "-",THRU Line Location: POLMEM+32
Function Call: WRITE	Prompt: ?50,$C(124) Line Location: 1+2
Routine Call	DIC Line Location: NEWENTRY+5 PHLOOKUP+6 PTLOOKUP+5
Routine Call	DIR Line Location: VAR+3 VAR+8 EDIT+5 ADDINS+7 ADDPOLH2+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls
^AUPNPRVT - [#9000006]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	POLMEM+26
^AUPNPAT - [#9000001]	POLMEM+27
^AUPNPRVT - [#9000006]	CLEAN+1, POLMEM+8, POLMEM+9, POLMEM+22, POLMEM+25
^AUPNPRVT("C"	POLMEM+5, POLMEM+7, POLMEM+11!
^AUPNPRVT("I"	ADDINS+5
^AUTTRLSH - [#9999999.36]	POLMEM+16
^DD(	GETAW+21, GETAW+22
^DPT - [#2]	ADDPOLH2+19, ADDPOLH2+26, POLMEM+19

Label References

Name	Line Occurrences
@(	EDIT+16
ADDINS	EN+22
ADDPOLH	EN+5, EN+24
ADDPOLH2	ADDPOLH2+15
CLEAN	EN+22, EN+24, VAR+11, CLEAN11+5
CLEAN11	EN+2, EN+24
CLEANZER	CLEAN+1
DRAW	EN+19, VAR+2
EDIT	VAR+30
END	EN+2, EN+21, EN+22, EN+24, VAR+30
GETAW	DRAW+2
NEWENTRY	EN+21
PHLOOKUP	ADDPOLH2+22
POLMEM	GETAW+44
PTLOOKUP	ADDPOLH2+26
PULLPATI	ADDPOLH2+19, ADDPOLH2+26
VAR	VAR+10, VAR+13, VAR+14, VAR+46
WMSG	EN+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADA	END+2!
ADT	END+2!
AG	END+1!, GETAW+2*
AG("C"	EDIT+16, GETAW+1!, GETAW+17*, GETAW+51
AG("N"	EDIT+3, EDIT+4, EDIT+12, EDIT+14, GETAW+51*
AG("PG"	EN+10, EN+15*, VAR+40, GETAW+56
AG("SEL"	EDIT+14*, EDIT+15, EDIT+16
AGI	EDIT+14*, EDIT+21!
>> AGINS	EN+8, EN+27, VAR+38
AGINSPTR	EN~, EN+5, EN+8, EN+22, EN+24, EN+27, VAR+13, VAR+38, GETAW+29, ADDINS~ , ADDINS+5, ADDINS+15, ADDPOLH~, ADDPOLH2+22, PHLOOKUP~
>> AGLINE("-"	GETAW+52
>> AGLINE("EQ"	VAR+4
>> AGOPT("ESCAPE"	VAR+9, EDIT+6, EDIT+8, EDIT+9
AGPH	POLMEM+21~, POLMEM+22, POLMEM+23, POLMEM+24, POLMEM+25, POLMEM+26
AGSCRN	END+1!, GETAW+2, GETAW+3*, GETAW+4, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11 , GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+16
>> AGSEENLY	VAR+3, VAR+10, EDIT+8
AGSELECT	EN~, EN+8, EN+12, EN+27, VAR+38*, VAR+42, GETAW+58
AGY	EDIT+13*, EDIT+14, EDIT+21!
CALLER	EN+17*, END+2!
CANCELED	VAR+15!, VAR+16, VAR+17
>> CAPDENT	GETAW+10*, GETAW+21, GETAW+22
>> CAPTION	GETAW+5*, GETAW+6, GETAW+21, GETAW+22, GETAW+44
>> CHOICES	EDIT+7*, EDIT+15
CNT	POLMEM+1~, POLMEM+5*, POLMEM+17, POLMEM+18, POLMEM+33
>> COMPIEN	EN+7, EN+8, EN+26, EN+27, EN+28, VAR+33, VAR+35, VAR+38
COVPTR	EN~, GETAW+37*, GETAW+42
>> D0	GETAW+24, GETAW+25, GETAW+26, GETAW+29, GETAW+37, GETAW+38, GETAW+39, GETAW+40, GETAW+41, GETAW+42* , GETAW+43, GETAW+46, GETAW+48*
DA	CLEAN11+1!, CLEAN11+3, CLEANZER+1!, CLEANZER+2, END+1!, NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1!
DA(1	CLEAN11+2, CLEAN11+4, ADDINS+17, ADDINS+18
DELALL	VAR+14, VAR+15!, VAR+16, VAR+22
>> DFN	PHLOOKUP+5, PHLOOKUP+7, PTLOOKUP+4, PTLOOKUP+6
DFOUT	VAR+28!, EDIT+2!, EDIT+11, END+1!
DIC	END+1!, GETAW+7, GETAW+21, GETAW+22, GETAW+25, GETAW+29, GETAW+37, GETAW+38, GETAW+39, GETAW+40 , GETAW+41, GETAW+42, GETAW+43, GETAW+45, GETAW+46, NEWENTRY+1!, NEWENTRY+4, ADDINS+1!, ADDINS+18, PHLOOKUP+1! , PHLOOKUP+3, PTLOOKUP+1!, PTLOOKUP+3*
DIC("S"	ADDINS+16, PHLOOKUP+4
DIC(0	NEWENTRY+3, ADDINS+15, PHLOOKUP+2, PTLOOKUP+2
DIE	NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1!
DIK	CLEAN11+1!, CLEAN11+4, CLEANZER+1!, CLEANZER+2
DINUM	ADDINS+1!
DIR	VAR+3!, VAR+5!, EDIT+1!, NEWENTRY+1!, ADDINS+1!, ADDINS+7!, ADDPOLH2+4!, PHLOOKUP+1!, PTLOOKUP+1!
DIR("?"	ADDPOLH2+7, ADDPOLH2+8, ADDPOLH2+9, ADDPOLH2+10, ADDPOLH2+11*
DIR("??"	ADDPOLH2+12*
DIR("A"	VAR+3, VAR+6, EDIT+3, ADDINS+7, ADDPOLH2+5*
DIR(0	VAR+3, VAR+7, EDIT+4, ADDINS+7, ADDPOLH2+5*
DIROUT	VAR+12, VAR+28!, EDIT+2!, ADDPOLH2+16
DIRUT	ADDINS+6!, ADDINS+8
DLOUT	VAR+28!, EDIT+2!, EDIT+10, END+1!
DO	NEWENTRY+1!, ADDINS+1!
DOUBLE	ADDINS+2~, ADDINS+3, ADDINS+5
DQOUT	VAR+28!, EDIT+2!, EDIT+12, END+1!
DR	END+1!, GETAW+8, GETAW+21, GETAW+22, GETAW+31, GETAW+32, GETAW+38, GETAW+39, GETAW+40, GETAW+41 , GETAW+42, GETAW+43, GETAW+45, GETAW+46, NEWENTRY+1!, ADDINS+1!, PHLOOKUP+1!, PTLOOKUP+1!
DTOUT	VAR+12, VAR+28!, EDIT+2!, EDIT+11, END+1!, ADDINS+6!, ADDINS+8, ADDPOLH2+16
DUOUT	VAR+12, VAR+28!, EDIT+2!, EDIT+10, ADDINS+6!, ADDPOLH2+16
DUZ(2	EN+12, VAR+42, EDIT+20, GETAW+58, POLMEM+27
>> EXECUTE	GETAW+13*, GETAW+34, GETAW+48
EXIT	EN+1!, EN+2!, EN+5, EN+18, EN+21, EN+22, EN+24, VAR+30, EDIT+6, ADDPOLH~ , ADDPOLH2+1, ADDPOLH2+16, ADDPOLH2+19, ADDPOLH2+26, ADDPOLH2+31*, PULLPATI~, PULLPATI+14
FIELD	PULLPATI+1~, PULLPATI+4, PULLPATI+5, PULLPATI+6, PULLPATI+9, PULLPATI+10, PULLPATI+11, PULLPATI+14
FILE	PULLPATI+1~, PULLPATI+3, PULLPATI+5, PULLPATI+6, PULLPATI+8, PULLPATI+10, PULLPATI+11
>> FLAG	GETAW+27, GETAW+46, GETAW+47
FN	PULLPATI+1~, PULLPATI+2, PULLPATI+5, PULLPATI+6, PULLPATI+7, PULLPATI+10, PULLPATI+11, PULLPATI+12*
FROM	POLMEM+1~, POLMEM+14, POLMEM+29, POLMEM+31
>> FTARGET	ADDPOLH2+18*, ADDPOLH2+28
GLO	VAR+34~, VAR+35*, VAR+36, VAR+37!
>> GRPPTR	GETAW+40*, GETAW+41
ID0	EN~, EN+2, EN+5, EN+7, EN+11, EN+21, EN+22, EN+24, EN+26, EN+28 , VAR+11, VAR+13, VAR+33, VAR+41, EDIT+20, CLEAN11~, CLEAN11+2, CLEAN11+5, CLEAN~, CLEAN+1 , CLEANZER~, CLEANZER+2, END+2!, DRAW+1, GETAW+24, GETAW+57, NEWENTRY~, NEWENTRY+2, NEWENTRY+7*, ADDINS~ , ADDINS+5, ADDINS+17, ADDPOLH2+19, ADDPOLH2+26
ID1	EN~, EN+2, EN+7, EN+24, EN+26, EN+28, VAR+33, CLEAN11~, CLEAN11+3, END+2! , GETAW+26, ADDINS+20*, ADDPOLH2+19, ADDPOLH2+26
INSPTR	PULLPATI~, PULLPATI+14
>> ITEMNUM	GETAW+11*, GETAW+17, GETAW+19, GETAW+20
LASTDEL	VAR+14, VAR+15!, VAR+16, VAR+18
MYERRS	EN+9!, EN+10, EN+13, VAR+39!, VAR+40, VAR+43, GETAW+55!, GETAW+56, GETAW+59
MYERRS("C"	VAR+10, EDIT+8
MYVARS	EN+9!, EN+13, VAR+39!, VAR+43, GETAW+55!, GETAW+59
MYVARS("DFN"	EN+11, VAR+41, GETAW+57*
MYVARS("FINDCALL"	EN+11, VAR+41, GETAW+57*
MYVARS("SELECTION"	EN+12, VAR+42, GETAW+58*
MYVARS("SITE"	EN+12, VAR+42, GETAW+58*
NEWENTRY	EN~, EN+2, EN+18, EN+25*, END+2!, GETAW+23, GETAW+59
>> NEWLINE	GETAW+9*, GETAW+18
NEWPH	ADDPOLH2+22, ADDPOLH2+26, PHLOOKUP~, PHLOOKUP+9, PTLOOKUP~, PTLOOKUP+8, PULLPATI~, PULLPATI+6, PULLPATI+11, PULLPATI+14
>> NOPVTB	GETAW+37*
PATPTR	ADDPOLH~, ADDPOLH2+19, PULLPATI~, PULLPATI+14
PIECE	GETAW+30~, GETAW+32*, GETAW+33, GETAW+34, GETAW+48, GETAW+49, GETAW+50!
POL0	POLMEM+1~, POLMEM+8*, POLMEM+12
POL11	POLMEM+1~, POLMEM+9*, POLMEM+11, POLMEM+13, POLMEM+14, POLMEM+15, POLMEM+20
POLHPTR	EN~, EN+2, EN+5, EN+18, EN+24, VAR+1, VAR+2, VAR+13, VAR+16, VAR+28 , DRAW~, DRAW+2, GETAW~, GETAW+37, GETAW+39, GETAW+44, ADDPOLH~, ADDPOLH2+21!, ADDPOLH2+22, PULLPATI+14 , POLMEM~, POLMEM+3, POLMEM+5, POLMEM+7, POLMEM+11
POLMCNT	VAR+16, GETAW+44, GETAW+51, POLMEM~, POLMEM+33*
POLMEM	POLMEM+1~, POLMEM+4, POLMEM+5, POLMEM+7, POLMEM+8, POLMEM+9, POLMEM+11, POLMEM+16, POLMEM+18, POLMEM+22 , POLMEM+25, POLMEM+27
POLMEMBS	VAR+13, VAR+16!, EDIT+15, GETAW+44, POLMEM~, POLMEM+2!
POLMEMBS(	POLMEM+18*
POLMEMBS("SELF"	POLMEM+16*
POLPTR	END+2!
>> POSTEXEC	GETAW+16*, GETAW+49
>> PRECAPEX	GETAW+15*, GETAW+21, GETAW+22
>> PREEXEC	GETAW+14*, GETAW+33
>> PTPTR	POLMEM+12*, POLMEM+19
REC	END+2!
RECNO	POLMEM+1~, POLMEM+6, POLMEM+7, POLMEM+9, POLMEM+11, POLMEM+18, POLMEM+22, POLMEM+25
REGISTER	ADDPOLH2~, ADDPOLH2+1, ADDPOLH2+19, ADDPOLH2+22, ADDPOLH2+26, ADDPOLH2+28*
RELATION	POLMEM+1~, POLMEM+13, POLMEM+16, POLMEM+28
RET	ADDPOLH2+21!, ADDPOLH2+24!
>> ROUTID	EN+16*
SAME	ADDPOLH2~, ADDPOLH2+1, ADDPOLH2+19, ADDPOLH2+26*, PULLPATI~, PULLPATI+14
>> SHOWINAC	VAR+36*
>> TAGCALL	GETAW+12*, GETAW+17
TARGET	ADDPOLH2~, ADDPOLH2+18, ADDPOLH2+19, ADDPOLH2+22, ADDPOLH2+26, ADDPOLH2+27, ADDPOLH2+28, ADDPOLH2+29
>> TEMPDFN	PHLOOKUP+5, PHLOOKUP+7, PTLOOKUP+4, PTLOOKUP+6
THRU	POLMEM+1~, POLMEM+15, POLMEM+32
>> TMPEXIT	ADDPOLH2+26*
U	VAR+36, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+21, GETAW+22 , ADDPOLH2+19, ADDPOLH2+26, POLMEM+12, POLMEM+13, POLMEM+14, POLMEM+15, POLMEM+16, POLMEM+19, POLMEM+20, POLMEM+22 , POLMEM+25, POLMEM+26, POLMEM+27
VDR	GETAW+31*, GETAW+32, GETAW+50!
WDA	END+2!
WDT	END+2!
X	NEWENTRY+2, ADDINS+1!, ADDINS+15, ADDPOLH2+18, PHLOOKUP~, PHLOOKUP+8, PTLOOKUP~, PTLOOKUP+7, PULLPATI~
Y	EN+21, EN+22, VAR+9, VAR+10, VAR+11, VAR+13, VAR+14, VAR+28, VAR+30, EDIT+6 , EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+12, EDIT+13, END+1!, NEWENTRY+6, NEWENTRY+7, ADDINS+7 , ADDINS+8*, ADDINS+20, ADDPOLH2+15, ADDPOLH2+16, PHLOOKUP+8, PHLOOKUP+9, PTLOOKUP+7, PTLOOKUP+8

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDPRV

Information

Source Information

Call Graph

Call Graph Total: 15

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:

Marked Items

Name	Field # of Occurrence
$T(	EN+16
$T(@1+AG	GETAW+3