Routine: AGPHADDR

Package	Total	Call Graph
IHS Patient Registration	5	UPDATE1^AGED UPDTERM^AGEDPRVP $$FINDPVT^AGINSUPD $$DTEST^AGUTILS $$S^AGVDF
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBCLS
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
IHS Patient Registration	2	AGEDPRV AGEL0A

Name	Comments	DBIA/ICR reference
MEMDOB	;MEMBER DOB
HDR	;
READ	;EP
ALLMBR	;GATHER FIELDS FOR ALL MEMBERS
MBRLBL	;FIND CORRECT FIELD LABEL FOR MEMBER LINE
FROM1	;EP
REL	;MEMBER RELATIONSHIP TO INSURED
HPHONE	;POLICY HOLDER'S PHONE #
HASTREET	;POLICY HOLDER'S STREET
ONEMBR	;GATHER FIELDS FOR ONE MEMBER
MEMNUM	;MEMBER #
ASK	;
HAZIP	;POLICY HOLDER'S ZIP CODE
DRAW	;EP
HASTATE	;POLICY HOLDER'S STATE
END	;K AG("PH9"),AG("PH11"),AG("PH12"),AG("PH13"),AG("PH14"),DTOUT,DUOUT,DLOUT,DFOUT,DQOUT
VAR	;
THRU	;MEMBER ELIGIBILITY END DATE
FROM	;MEMBER ELIGIBILITY DATE
HACITY	;POLICY HOLDER'S CITY
PERCOD	;MEMBER PERSON CODE
MBRSEL	;DETERMINE WHICH FIELD TO EDIT
FINDPH	;GATHER FIELDS FOR POLICY HOLDER
EN(POLHPTR)	;EP - DISPLAY/EDIT POLICY HOLDER ADDR/MEMBERS IHS/SD/TPF 9/15/2005 AG7.11

Name	Field # of Occurrence
HOME^%ZIS	HDR+1
UPDATE1^AGED	ASK+15
UPDTERM^AGEDPRVP	THRU+30
$$FINDPVT^AGINSUPD	DRAW+46
$$DTEST^AGUTILS	HDR+11
$$S^AGVDF	HDR+2
^DIE	HASTREET+7, HACITY+7, HASTATE+7, HAZIP+7, HPHONE+7, MEMNUM+7, REL+8, MEMDOB+6, FROM1+9, FROM1+25 , THRU+17, THRU+28, PERCOD+7
$$GET1^DIQ	DRAW+30, FROM1+14, FROM1+15, THRU+6, THRU+11, THRU+18
^DIR	READ+3, THRU+10
^XBCLS	VAR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"POLICY HOLDER UNDEFINED FOR THIS ENTRY!" Line Location: EN+1
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HDR+2
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+3
Function Call: WRITE	Prompt: ?31,"Policy Holder View" Line Location: HDR+4
Function Call: WRITE	Prompt: ?78-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: HDR+5
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+8
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+10
Function Call: WRITE	Prompt: ?36,$$DTEST^AGUTILS(DFN) Line Location: HDR+11
Function Call: WRITE	Prompt: ?55,"HRN:",AGCHRT Line Location: HDR+12
Function Call: WRITE	Prompt: ?66,$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PEND. VERIF",1:"NONE"),! Line Location: HDR+16
Function Call: WRITE	Prompt: AGLINE("EQ"),! Line Location: HDR+17
Function Call: WRITE	Prompt: !,"POLICY HOLDER : ",$P($G(^AUPN3PPH(AGELP("PH"),0)),U),! Line Location: DRAW+16
Function Call: WRITE	Prompt: !,"POLICY HOLDER : ",$P($G(^AUPN3PPH(POLHPTR,0)),U),! Line Location: DRAW+17
Function Call: WRITE	Prompt: !!,"POLICY MEMBER : ",$P($G(^DPT(AG("DFN"),0)),U) Line Location: DRAW+20
Function Call: WRITE	Prompt: " ( ",AG("HRN")," )",! Line Location: DRAW+22
Function Call: WRITE	Prompt: !,AG,". " Line Location: DRAW+24
Function Call: WRITE	Prompt: ?29,$$GET1^DIQ(DIC,DA,DR) Line Location: DRAW+30
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG Line Location: ASK+10
Function Call: WRITE	Prompt: *7,!!,"Use only pages 1 through 9." Line Location: READ+14
Function Call: WRITE	Prompt: *7,!!,"Eligibility Status must be entered." Line Location: READ+27
Function Call: WRITE	Prompt: ! Line Location: HASTREET+1
Function Call: WRITE	Prompt: ! Line Location: HACITY+1
Function Call: WRITE	Prompt: ! Line Location: HASTATE+1
Function Call: WRITE	Prompt: ! Line Location: HAZIP+1
Function Call: WRITE	Prompt: ! Line Location: HPHONE+1
Function Call: WRITE	Prompt: ?5,"HOLDER'S ADDRRESS-STREET...: " Line Location: MBRLBL+1
Function Call: WRITE	Prompt: ?5,"HOLDER'S ADDRRESS-CITY.....: " Line Location: MBRLBL+2
Function Call: WRITE	Prompt: ?5,"HOLDER'S ADDRRESS-STATE....: " Line Location: MBRLBL+3
Function Call: WRITE	Prompt: ?5,"HOLDER'S ADDRRESS-ZIP......: " Line Location: MBRLBL+4
Function Call: WRITE	Prompt: ?5,"HOLDER'S TELEPHONE NUMBER..: " Line Location: MBRLBL+5
Function Call: WRITE	Prompt: ?5,"MEMBER NUMBER.............: " Line Location: MBRLBL+6
Function Call: WRITE	Prompt: ?5,"RELATIONSHIP TO INSURED...: " Line Location: MBRLBL+7
Function Call: WRITE	Prompt: ?5,"POLICY MEMBER DOB.........: " Line Location: MBRLBL+8
Function Call: WRITE	Prompt: ?5,"FROM......................: " Line Location: MBRLBL+9
Function Call: WRITE	Prompt: ?5,"THRU......................: " Line Location: MBRLBL+10
Function Call: WRITE	Prompt: ?5,"PERSON CODE...............: " Line Location: MBRLBL+11
Function Call: WRITE	Prompt: ! Line Location: MEMNUM+1
Function Call: WRITE	Prompt: ! Line Location: REL+1
Function Call: WRITE	Prompt: ! Line Location: MEMDOB+1
Function Call: WRITE	Prompt: ! Line Location: FROM1+1
Function Call: WRITE	Prompt: ! Line Location: THRU+1
Function Call: WRITE	Prompt: ! Line Location: PERCOD+1
Routine Call	%ZIS Line Location: HDR+1
Routine Call	DIE Line Location: HASTREET+7 HACITY+7 HASTATE+7 HAZIP+7 HPHONE+7 MEMNUM+7 REL+8 MEMDOB+6 FROM1+9 FROM1+25 THRU+17 THRU+28 PERCOD+7
Routine Call	DIR Line Location: READ+3 THRU+10

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls
9000006.11	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	DRAW+17, FINDPH+9
^AUPNPAT - [#9000001]	HDR+15, DRAW+21, READ+11, READ+26
^AUPNPRVT - [#9000006]	REL+11, REL+13*
^AUPNPRVT("C"	ALLMBR+4, ALLMBR+7, ONEMBR+9
^DIC(4 - [#4]	HDR+5
^DPT - [#2]	HDR+9, DRAW+20
^UTILITY("DIQ1"	DRAW+4!

Name	Line Occurrences
@(	ASK+14
ALLMBR	EN+5
ASK	DRAW+31, DRAW+32, DRAW+38
DRAW	VAR+3
END	VAR+5
FINDPH	EN+4
FROM1	FROM1+14
HDR	VAR+2
MBRLBL	DRAW+29
MBRSEL	ASK+14
ONEMBR	EN+6
READ	ASK+7
REL	REL+11
VAR	VAR+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG	DRAW+7, DRAW+12, DRAW+13, DRAW+15, DRAW+17, DRAW+19, DRAW+24, DRAW+31, DRAW+37, DRAW+38 , DRAW+42*, ASK+2, ASK+10, ASK+14
>> AG("C"	ASK+11*, ASK+14
>> AG("DFN"	DRAW+9, DRAW+18, DRAW+19, DRAW+20, DRAW+21, DRAW+23, DRAW+44!
>> AG("ED"	READ+1!, READ+12, READ+13, READ+16!, READ+18, READ+19, READ+20, READ+21, READ+22, READ+23* , READ+24, READ+25
>> AG("ERR"	READ+1!, READ+17*
>> AG("FLDCNT"	EN+2!, DRAW+35, DRAW+38, ALLMBR+2, ALLMBR+8, ALLMBR+9, ALLMBR+10, ALLMBR+11, ALLMBR+12, ALLMBR+13* , ONEMBR+6, ONEMBR+10, ONEMBR+11, ONEMBR+12, ONEMBR+13, ONEMBR+14, ONEMBR+15*
>> AG("HOLD"	DRAW+10, DRAW+19, DRAW+23, DRAW+36, DRAW+41, DRAW+44!
>> AG("HRN"	DRAW+21*, DRAW+22, DRAW+44!
>> AG("ITEM"	DRAW+6!, MBRSEL+2*, MBRSEL+3
>> AG("LBL"	DRAW+28*, DRAW+44!, MBRLBL+1, MBRLBL+2, MBRLBL+3, MBRLBL+4, MBRLBL+5, MBRLBL+6, MBRLBL+7, MBRLBL+8 , MBRLBL+9, MBRLBL+10, MBRLBL+11
>> AG("MBR"	ALLMBR+1, ALLMBR+4, ALLMBR+7, ALLMBR+8, ALLMBR+9, ALLMBR+10, ALLMBR+11, ALLMBR+12, ALLMBR+13, ALLMBR+14! , ONEMBR+5*, ONEMBR+9, ONEMBR+10, ONEMBR+11, ONEMBR+12, ONEMBR+13, ONEMBR+14, ONEMBR+15, ONEMBR+16!
>> AG("MBRPTR"	ONEMBR+3, ONEMBR+4, ONEMBR+5
>> AG("MBRREC"	DRAW+6!, MBRSEL+1*, MBRSEL+2, MBRSEL+4, MEMNUM+3, MEMNUM+5, REL+3, REL+5, REL+11, REL+13 , MEMDOB+4, FROM1+4, FROM1+6, FROM1+14, FROM1+15, FROM1+21, THRU+4, THRU+13, THRU+15, THRU+22 , PERCOD+3, PERCOD+5
>> AG("MBRSEL"	DRAW+6!, ONEMBR+2*, ONEMBR+5
>> AG("ONEMBR"	DRAW+12, DRAW+31, DRAW+43!, ONEMBR+1*
>> AG("PG"	HDR+13
>> AG("PH11"	END+1!
>> AG("PH12"	END+1!
>> AG("PH13"	END+1!
>> AG("PH14"	END+1!
>> AG("PH9"	END+1!
>> AG("PHREC"	FINDPH+9*
>> AG("PREC"	ALLMBR+5, ALLMBR+7, ALLMBR+8, ALLMBR+9, ALLMBR+11, ALLMBR+12, ALLMBR+13, ALLMBR+14!, ONEMBR+7, ONEMBR+9 , ONEMBR+10, ONEMBR+11, ONEMBR+13, ONEMBR+14, ONEMBR+15, ONEMBR+16!
>> AG("REC"	DRAW+13*, DRAW+18, DRAW+25, DRAW+26, DRAW+27, DRAW+28, DRAW+44!
>> AG("RECCNT"	DRAW+11, DRAW+14, DRAW+31, DRAW+32*, DRAW+38, DRAW+43!
>> AG("REDFN"	DRAW+6!, MBRSEL+4*
>> AG("SEL"	ASK+14, MBRSEL+1, MBRSEL+3
>> AG("TMPMBR"	EN+3!, DRAW+12, DRAW+13, MBRSEL+1, FINDPH+10, FINDPH+11, FINDPH+12, FINDPH+13, FINDPH+14, FINDPH+15 , ALLMBR+8, ALLMBR+9, ALLMBR+10, ALLMBR+11, ALLMBR+12, ALLMBR+13, ONEMBR+10, ONEMBR+11, ONEMBR+12, ONEMBR+13 , ONEMBR+14, ONEMBR+15
>> AGCHRT	HDR+12
>> AGELP(	ONEMBR+4, ONEMBR+5
>> AGELP("PH"	THRU+30
>> AGELSTS	HDR+15*, HDR+16
AGI	DRAW+44!, ASK+14*, ASK+16!
>> AGLINE("-"	HDR+6*
>> AGLINE("EQ"	HDR+7*, HDR+8, HDR+17
AGNEWDT	THRU+3~, THRU+18*, THRU+20, THRU+24, THRU+30
AGOLDDT	THRU+3~, THRU+11*, THRU+20, THRU+30
>> AGPAT	HDR+9*, HDR+10
>> AGPATDFN	FROM1+19
>> AGSEENLY	VAR+4, END+4, HDR+3
>> AGSELECT	DRAW+46*
AGX	DRAW+34, DRAW+35, DRAW+37!, DRAW+40, DRAW+42!, DRAW+44!, ASK+13*
>> AGXTERN	END+2
AGY	DRAW+44!, ASK+12*, ASK+14, ASK+16!
DA	DRAW+1~, DRAW+3, DRAW+5!, DRAW+26, DRAW+30, DRAW+44!, HASTREET+2!, HASTREET+5, HASTREET+8!, HACITY+2! , HACITY+5, HACITY+8!, HASTATE+2!, HASTATE+5, HASTATE+8!, HAZIP+2!, HAZIP+5, HAZIP+8!, HPHONE+2!, HPHONE+5* , HPHONE+8!, MEMNUM+2!, MEMNUM+5, MEMNUM+8!, REL+2!, REL+5, REL+9!, MEMDOB+2!, MEMDOB+4, MEMDOB+7! , FROM1+3!, FROM1+6, FROM1+18!, FROM1+20!, FROM1+24, FROM1+26!, THRU+12!, THRU+15, THRU+19!, THRU+23! , THRU+27, THRU+29!, PERCOD+2!, PERCOD+5, PERCOD+8!
DA(1	MEMNUM+3, MEMNUM+4, REL+3, REL+4, FROM1+4, FROM1+5, THRU+13, THRU+14, PERCOD+3*, PERCOD+4
DD	MEMNUM+2!, REL+2!, MEMDOB+2!, FROM1+3!, THRU+12!, PERCOD+2!
>> DFN	HDR+9, HDR+11, HDR+15, ASK+15, READ+11, READ+26
DFOUT	VAR+6, DRAW+12, DRAW+33, DRAW+39, ASK+1!, ASK+9, READ+1!, READ+5*
DIC	DRAW+5!, DRAW+25*, DRAW+30, DRAW+44!, HASTREET+2!, HASTREET+8!, HACITY+2!, HACITY+8!, HASTATE+2!, HASTATE+8! , HAZIP+2!, HAZIP+8!, HPHONE+2!, HPHONE+8!, MEMNUM+2!, MEMNUM+8!, REL+2!, REL+9!, MEMDOB+2!, MEMDOB+7! , FROM1+3!, FROM1+18!, FROM1+20!, FROM1+26!, THRU+12!, THRU+19!, THRU+23!, THRU+29!, PERCOD+2!, PERCOD+8!
DIE	HASTREET+2!, HASTREET+3, HASTREET+8!, HACITY+2!, HACITY+3, HACITY+8!, HASTATE+2!, HASTATE+3, HASTATE+8!, HAZIP+2! , HAZIP+3, HAZIP+8!, HPHONE+2!, HPHONE+3, HPHONE+8!, MEMNUM+2!, MEMNUM+4, MEMNUM+8!, REL+2!, REL+4* , REL+9!, MEMDOB+2!, MEMDOB+3, MEMDOB+7!, FROM1+3!, FROM1+5, FROM1+18!, FROM1+20!, FROM1+23, FROM1+26! , THRU+12!, THRU+14, THRU+19!, THRU+23!, THRU+26, THRU+29!, PERCOD+2!, PERCOD+4, PERCOD+8!
DIR	ASK+1!, HASTREET+2!, HASTREET+8!, HACITY+2!, HACITY+8!, HASTATE+2!, HASTATE+8!, HAZIP+2!, HAZIP+8!, HPHONE+2! , HPHONE+8!, FROM1+20!, FROM1+26!, THRU+8!, THRU+23!, THRU+29!
DIR("A"	ASK+2, ASK+3
DIR(0	DRAW+31, DRAW+32, DRAW+38, READ+2, THRU+9*
DIROUT	END+3, READ+1!
DLOUT	VAR+5, END+1!, ASK+1!, ASK+8, READ+1!, READ+6*
DO	MEMNUM+2!, REL+2!, MEMDOB+2!, FROM1+3!, THRU+12!, PERCOD+2!
DQOUT	END+1!, ASK+1!, ASK+10, READ+1!, READ+8*
DR	DRAW+5!, DRAW+27, DRAW+30, DRAW+44!, HASTREET+2!, HASTREET+6, HASTREET+8!, HACITY+2!, HACITY+6, HACITY+8! , HASTATE+2!, HASTATE+6, HASTATE+8!, HAZIP+2!, HAZIP+6, HAZIP+8!, HPHONE+2!, HPHONE+6, HPHONE+8!, MEMNUM+2! , MEMNUM+6, MEMNUM+8!, REL+2!, REL+7, REL+9!, MEMDOB+2!, MEMDOB+5, MEMDOB+7!, FROM1+3!, FROM1+8 , FROM1+18!, FROM1+20!, FROM1+22, FROM1+26!, THRU+12!, THRU+16, THRU+19!, THRU+23!, THRU+24, THRU+25 , THRU+29!, PERCOD+2!, PERCOD+6*, PERCOD+8!
DTOUT	VAR+6, END+1!, DRAW+33, DRAW+39, ASK+9, READ+1!, READ+4
DUOUT	VAR+5, END+1!, DRAW+12, DRAW+33, DRAW+39, ASK+1!, ASK+8, READ+1!, READ+7*
DUZ(2	HDR+5, DRAW+21, ASK+15
GOFROM1	FROM1+13!, FROM1+14, FROM1+16*
IOF	HDR+1
POLHPTR	EN~, EN+1, DRAW+3, DRAW+9, DRAW+17, HASTREET+5, HACITY+5, HASTATE+5, HAZIP+5, HPHONE+5 , FINDPH+9, FINDPH+11, FINDPH+12, FINDPH+13, FINDPH+14, FINDPH+15, ALLMBR+4, ALLMBR+7, ONEMBR+9, FROM1+24 , THRU+27
>> POLMEMBS("SELF"	REL+11, FROM1+19, THRU+21, THRU+22
PRVTIEN	FROM1+2~, FROM1+21, THRU+3~, THRU+4, THRU+6, THRU+11, THRU+18
U	HDR+5, HDR+9, HDR+15, DRAW+17, DRAW+18, DRAW+20, DRAW+21, DRAW+25, DRAW+26, DRAW+27 , DRAW+28, READ+11, READ+26, MBRSEL+2, MBRSEL+4, ONEMBR+5, MEMNUM+3, MEMNUM+5, REL+3, REL+5 , REL+11, REL+13, MEMDOB+4, FROM1+4, FROM1+6, FROM1+14, FROM1+15, FROM1+21, THRU+4, THRU+13 , THRU+15, THRU+22, PERCOD+3, PERCOD+5
>> X	DRAW+37, DRAW+42
Y	EN+5, EN+6, ASK+1!, ASK+8, ASK+10, ASK+12, ASK+13, READ+5, READ+6, READ+7* , READ+8, READ+9, READ+10, READ+11, READ+12, READ+26, ONEMBR+2

Customize PDF page

Package: IHS Patient Registration

Routine: AGPHADDR

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: