Routine: AGED6PD

Package	Total	Call Graph
IHS Patient Registration	6	UPDATE1^AGED (EDITCHEK,FETCHERR)^AGEDERR EDITPOLM^AGEDPRVI $$ISACTIVE^AGINS ($$DTEST,$$UPDTSEL,PROGVIEW,VERIF)^AGUTILS $$S^AGVDF
VA Fileman	5	(,LIST)^DIC ^DIE ^DIK $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	2	AG6 AGED6

Entry Points

Name	Comments	DBIA/ICR reference
EDITNAME(ID0,ID1)	;EP - EDIT MEDICARE NAME
SHOWNEW(DATESORT)	;EP
HDR	;
GETDATES(ID0)	;EP - GET THE DTS USING LIST^DIC
CLEAN(ID0)	;EP - CLEAN EMPTY RECORD. IF NO PRIVATE INSURER HAS BEEN ENTERED,
EN(COMPIEN)	;EP - CALLED BY AGED6
GETAW	;EP - DISPLAY THE SCREEN
EDITPLAN(ID0,ID1)	;EP - EDIT PLAN
1	;
EDITEXP(ID0,ID1)	;EP - EDIT EXPIRATION DATE
EDITDOB(ID0,ID1)	;EP - EDIT DOB
DRAW	;EP - MAIN SCREEN DRAW
END	;EP - CLEAN UP THE VARS
EFFDT(ID0,ID1)	;EP - EDIT EFFECTIVE DATE
EDITCOP(COVPTR)	;EP - EDIT CO-PAY
EDITDED(COVPTR)	;EP - EDIT DEDUCTIBLE
VAR	;
ALLTERM	;EP
CLEANZER(ID0)	;EP - CLEAN ZERO NODE WITH NO INFOR
EDITSTBN(COVPTR)	;EP - EDIT START BENEFIT
EDITPC(ID0,ID1)	;EP - EDIT PERSON CODE
WMSG	;EP - DISP THIS MSG IF THIS IS A NEW ENTRY
EDIT	;EP
EDITGRP(ID0,ID1)	;EP - EDIT GROUP NAME
EDITGEN(ID0,ID1)	;EP - EDIT GENDER
EDITCOV(ID0,ID1)	;EP - EDIT COVERAGE TYPE PTR
DATESORT(RESULT)	;EP - TAKE LIST RETURNED BY FILE^DIC AND SORT IT
EDITID(ID0,ID1)	;EP - EDIT ID NUmber
ADDEFF(ID0)	;EP - ADD/EDIT NEW EFFECTIVE DATE

External References

Name	Field # of Occurrence
UPDATE1^AGED	EDIT+20
EDITCHEK^AGEDERR	GETAW+59
FETCHERR^AGEDERR	GETAW+56
EDITPOLM^AGEDPRVI	EDIT+14
$$ISACTIVE^AGINS	SHOWNEW+18, SHOWNEW+19, ALLTERM+13, ALLTERM+14
$$DTEST^AGUTILS	HDR+19
$$UPDTSEL^AGUTILS	EDIT+19
PROGVIEW^AGUTILS	HDR+11
VERIF^AGUTILS	GETAW+60
$$S^AGVDF	HDR+8
^DIC	ADDEFF+7
LIST^DIC	GETDATES+4
^DIE	EDITNAME+6, EDITGEN+6, EDITID+6, EDITDOB+6, EDITPC+6, EDITCOV+6, EFFDT+15, EDITEXP+6, EDITGRP+6, EDITPLAN+6
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+40, GETAW+48, GETAW+49
^DIR	VAR+3, VAR+10, EDIT+4

Interaction Calls

Name	Line Occurrences
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+12
Function Call: WRITE	Prompt: !,"COMMAND "_Y_" UNKNOWN!" Line Location: VAR+17
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: EDIT+7
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: EDIT+11
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HDR+8
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+12
Function Call: WRITE	Prompt: ?36,"Railroad Pharmacy" Line Location: HDR+13
Function Call: WRITE	Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: HDR+14
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+17
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+18
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(ID0) Line Location: HDR+19
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+20
Function Call: WRITE	Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")" Line Location: HDR+23
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+24
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: $J($$GET1^DIQ(DIC,D0,DR,FLAG),10,2) Line Location: GETAW+48
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR,FLAG) Line Location: GETAW+49
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+54
Function Call: WRITE	Prompt: ! Line Location: SHOWNEW+12
Function Call: WRITE	Prompt: ! Line Location: ALLTERM+7
Function Call: WRITE	Prompt: !,"Editing Pharmacy Railroad Part D Eligibility record" Line Location: WMSG+1
Function Call: WRITE	Prompt: !,"SPECIFICATIONS NOT YET PROVIDED!" Line Location: EDITSTBN+2
Function Call: WRITE	Prompt: !,"SPECIFICATIONS NOT YET PROVIDED!" Line Location: EDITDED+2
Function Call: WRITE	Prompt: !,"SPECIFICATIONS NOT YET PROVIDED!" Line Location: EDITCOP+2
Routine Call	DIC Line Location: GETDATES+4
Routine Call	DIE Line Location: EDITNAME+6 EDITGEN+6 EDITID+6 EDITDOB+6 EDITPC+6 EDITCOV+6 EFFDT+15 EDITEXP+6 EDITGRP+6 EDITPLAN+6
Routine Call	DIC Line Location: ADDEFF+7
Routine Call	DIR Line Location: VAR+3 VAR+10 EDIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9000005.11	LIST^DIC
^AUPNPRVT - [#9000006]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HDR+2, HDR+4, HDR+22
^AUPNPRVT - [#9000006]	CLEAN+2
^AUPNRRE - [#9000005]	GETAW+37, GETAW+39, EFFDT+3, EFFDT+18
^AUTTPIC(37	GETAW+44, GETAW+45
^DD(	GETAW+21, GETAW+22
^DD("DD"	SHOWNEW+13, SHOWNEW+16, ALLTERM+8, ALLTERM+11
^DIC(4 - [#4]	HDR+14
^DPT - [#2]	HDR+1
^XUSEC("AGZMGR"	VAR+6, EFFDT+2

Label References

Name	Line Occurrences
@(	EDIT+15
ALLTERM	SHOWNEW+4
CLEAN	VAR+13
CLEANZER	CLEAN+2
DATESORT	GETDATES+5
DRAW	VAR+2
EDIT	VAR+15, VAR+16
EDITEXP	EFFDT+18
EFFDT	ADDEFF+10
GETAW	DRAW+2
GETDATES	GETAW+47
HDR	DRAW+1
SHOWNEW	DATESORT+14
VAR	VAR+12, VAR+15, VAR+16, VAR+18

Naked Globals

Name	Field # of Occurrence
^(0	HDR+4

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("AUPN"	HDR+3, HDR+4
AG("C"	EDIT+15, GETAW+1!, GETAW+17*, GETAW+53
AG("N"	EDIT+2, EDIT+3, EDIT+11, EDIT+13, GETAW+53*
AG("PG"	EN+4*, GETAW+56
AG("SEL"	EDIT+13*, EDIT+14, EDIT+15
>> AGCHRT	HDR+2*, HDR+20
>> AGELP("INS"	GETAW+40*
>> AGELSTS	HDR+22*, HDR+23
AGI	EDIT+13*, EDIT+21!
>> AGINS	EDIT+19
>> AGINSPTR	GETAW+30
>> AGLINE("-"	HDR+5, HDR+15, GETAW+54
>> AGLINE("EQ"	VAR+4, HDR+6, HDR+16, HDR+17, HDR+24
>> AGLINE("PGLN"	HDR+7*
>> AGOPT("ESCAPE"	VAR+11, EDIT+5, EDIT+7, EDIT+8
>> AGPAT	HDR+1*, HDR+18
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+12, EDIT+7, HDR+12
>> AGSELECT	EDIT+19*, HDR+10, GETAW+58
AGY	EDIT+12*, EDIT+13, EDIT+21!
CALLER	EN+6*, END+2!
>> CAPDENT	GETAW+10*, GETAW+21, GETAW+22
>> CAPTION	GETAW+5*, GETAW+6, GETAW+21, GETAW+22
>> CHOICES	EDIT+6*, EDIT+14
COMPIEN	EN~, EN+2, EN+3, EDIT+17*, EDIT+19
COVPTR	GETAW+39*, GETAW+44, EDITSTBN~, EDITDED~, EDITCOP~
CVG	DATESORT+2~, DATESORT+7, DATESORT+8, DATESORT+10, DATESORT+11, SHOWNEW+1~, SHOWNEW+9, ALLTERM+4*
>> D0	GETAW+26, GETAW+27, GETAW+28, GETAW+30, GETAW+38, GETAW+40, GETAW+42, GETAW+44, GETAW+46, GETAW+48 , GETAW+49, GETAW+50*
DA	CLEANZER+1!, CLEANZER+2, END+1!, EDITNAME+1!, EDITNAME+3, EDITNAME+7!, EDITGEN+1!, EDITGEN+3, EDITGEN+7!, EDITID+1! , EDITID+3, EDITID+7!, EDITDOB+1!, EDITDOB+3, EDITDOB+7!, EDITPC+1!, EDITPC+3, EDITPC+7!, EDITCOV+1!, EDITCOV+3* , EDITCOV+7!, ADDEFF+1!, ADDEFF+9!, EFFDT+1!, EFFDT+4, EFFDT+16, EFFDT+17!, EDITEXP+1!, EDITEXP+3, EDITEXP+7! , EDITGRP+1!, EDITGRP+3, EDITGRP+7!, EDITPLAN+1!, EDITPLAN+3, EDITPLAN+7!, EDITSTBN+1!, EDITSTBN+3!, EDITDED+1!, EDITDED+3! , EDITCOP+1!, EDITCOP+3!
DA(1	EDITNAME+2, EDITNAME+4, EDITGEN+2, EDITGEN+4, EDITID+2, EDITID+4, EDITDOB+2, EDITDOB+4, EDITPC+2, EDITPC+4 , EDITCOV+2, EDITCOV+4, ADDEFF+3, ADDEFF+5, EFFDT+5, EFFDT+6, EDITEXP+2, EDITEXP+4, EDITGRP+2, EDITGRP+4 , EDITPLAN+2*, EDITPLAN+4
DATE	SHOWNEW+1~, SHOWNEW+6, SHOWNEW+7, SHOWNEW+8, SHOWNEW+9, SHOWNEW+10, SHOWNEW+11, ALLTERM+1, ALLTERM+2, ALLTERM+3 , ALLTERM+4, ALLTERM+5, ALLTERM+6
DATE1	SHOWNEW+1~, SHOWNEW+8, SHOWNEW+11, ALLTERM+3, ALLTERM+6
DATESORT	DATESORT+2~, DATESORT+14, SHOWNEW~
DATESORT(	DATESORT+10, DATESORT+11, SHOWNEW+4, SHOWNEW+5, SHOWNEW+7, SHOWNEW+8, SHOWNEW+9, ALLTERM+2, ALLTERM+3, ALLTERM+4
DATESORT("O"	DATESORT+12, SHOWNEW+4
DATESORT("T"	DATESORT+13
>> DEFEDDT	DATESORT+12, DATESORT+13, SHOWNEW+19, ALLTERM+14, ADDEFF+2
>> DFN	HDR+22
DFOUT	EDIT+10, END+1!
DIC	END+1!, GETAW+7, GETAW+21, GETAW+22, GETAW+27, GETAW+30, GETAW+37, GETAW+38, GETAW+39, GETAW+40 , GETAW+42, GETAW+43, GETAW+47, GETAW+48, GETAW+49, EDITNAME+1!, EDITNAME+7!, EDITGEN+1!, EDITGEN+7!, EDITID+1! , EDITID+7!, EDITDOB+1!, EDITDOB+7!, EDITPC+1!, EDITPC+7!, EDITCOV+1!, EDITCOV+7!, ADDEFF+1!, ADDEFF+5, ADDEFF+9! , EFFDT+1!, EFFDT+17!, EDITEXP+1!, EDITEXP+7!, EDITGRP+1!, EDITGRP+7!, EDITPLAN+1!, EDITPLAN+7!, EDITSTBN+1!, EDITSTBN+3! , EDITDED+1!, EDITDED+3!, EDITCOP+1!, EDITCOP+3!
DIC("B"	ADDEFF+2*
DIC("S"	GETAW+41, ADDEFF+6
DIC(0	ADDEFF+4*
DIDEL	EFFDT+1!, EFFDT+2*
DIE	EDITNAME+1!, EDITNAME+4, EDITNAME+7!, EDITGEN+1!, EDITGEN+4, EDITGEN+7!, EDITID+1!, EDITID+4, EDITID+7!, EDITDOB+1! , EDITDOB+4, EDITDOB+7!, EDITPC+1!, EDITPC+4, EDITPC+7!, EDITCOV+1!, EDITCOV+4, EDITCOV+7!, ADDEFF+1!, ADDEFF+9! , EFFDT+1!, EFFDT+6, EFFDT+17!, EDITEXP+1!, EDITEXP+4, EDITEXP+7!, EDITGRP+1!, EDITGRP+4, EDITGRP+7!, EDITPLAN+1! , EDITPLAN+4, EDITPLAN+7!, EDITSTBN+1!, EDITSTBN+3!, EDITDED+1!, EDITDED+3!, EDITCOP+1!, EDITCOP+3!
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+3!, VAR+5!, EDIT+1!
DIR("A"	VAR+3, VAR+7, VAR+9, EDIT+2
DIR(0	VAR+3, VAR+8, VAR+9, EDIT+3
>> DIROUT	VAR+14
DLOUT	EDIT+9, END+1!
DQOUT	EDIT+11, END+1!
DR	END+1!, GETAW+8, GETAW+21, GETAW+22, GETAW+30, GETAW+33, GETAW+34, GETAW+37, GETAW+39, GETAW+40 , GETAW+47, GETAW+48, GETAW+49, EDITNAME+1!, EDITNAME+5, EDITNAME+7!, EDITGEN+1!, EDITGEN+5, EDITGEN+7!, EDITID+1! , EDITID+5, EDITID+7!, EDITDOB+1!, EDITDOB+5, EDITDOB+7!, EDITPC+1!, EDITPC+5, EDITPC+7!, EDITCOV+1!, EDITCOV+5 , EDITCOV+7!, ADDEFF+1!, ADDEFF+9!, EFFDT+1!, EFFDT+12, EFFDT+14, EFFDT+17!, EDITEXP+1!, EDITEXP+5, EDITEXP+7! , EDITGRP+1!, EDITGRP+5, EDITGRP+7!, EDITPLAN+1!, EDITPLAN+5*, EDITPLAN+7!, EDITSTBN+1!, EDITSTBN+3!, EDITDED+1!, EDITDED+3! , EDITCOP+1!, EDITCOP+3!
DR(2	EFFDT+13, EFFDT+14
DT	GETAW+44
>> DT1	GETAW+43, GETAW+44, GETAW+45, GETAW+46
DTOUT	VAR+14, EDIT+10, END+1!
>> DUOUT	VAR+14, EDIT+9
DUZ	VAR+6, HDR+11, EFFDT+2
DUZ(2	EDIT+20, HDR+2, HDR+14, GETAW+58
EFFDT	DATESORT+2~, DATESORT+6, DATESORT+10, DATESORT+11, SHOWNEW+1~, SHOWNEW+10, SHOWNEW+11, SHOWNEW+13, SHOWNEW+18, SHOWNEW+19 , ALLTERM+5, ALLTERM+6*, ALLTERM+8, ALLTERM+13, ALLTERM+14
ENDDT	DATESORT+2~, DATESORT+5, DATESORT+9, DATESORT+10, DATESORT+11, SHOWNEW+1~, SHOWNEW+10, SHOWNEW+11, SHOWNEW+16, SHOWNEW+18 , SHOWNEW+19, ALLTERM+5, ALLTERM+6*, ALLTERM+11, ALLTERM+13, ALLTERM+14
ERROR	GETDATES+1!
>> EXECUTE	GETAW+13*, GETAW+36, GETAW+50
EXIT	VAR+1!, EDIT+5, EFFDT+19
>> FIELDS	GETDATES+3*, GETDATES+4
>> FLAG	GETAW+29, GETAW+30, GETAW+40, GETAW+48, GETAW+49
>> FLAGS	GETDATES+2*, GETDATES+4
>> GRPPTR	GETAW+39*, GETAW+42
ID0	EN+2*, VAR+13, EDIT+17, EDIT+20, CLEAN~, CLEAN+2, CLEANZER~, CLEANZER+2, END+2!, HDR+1 , HDR+2, HDR+4, HDR+19, GETAW+26, GETAW+37, GETAW+39, GETAW+47, GETAW+57, GETDATES~, GETDATES+4 , EDITNAME~, EDITNAME+2, EDITGEN~, EDITGEN+2, EDITID~, EDITID+2, EDITDOB~, EDITDOB+2, EDITPC~, EDITPC+2 , EDITCOV~, EDITCOV+2, ADDEFF~, ADDEFF+3, ADDEFF+10, EFFDT~, EFFDT+3, EFFDT+5, EFFDT+18, EDITEXP~ , EDITEXP+2, EDITGRP~, EDITGRP+2, EDITPLAN~, EDITPLAN+2
ID1	EN+3*, EDIT+17, END+2!, GETAW+28, GETAW+37, GETAW+39, EDITNAME~, EDITNAME+3, EDITGEN~, EDITGEN+3 , EDITID~, EDITID+3, EDITDOB~, EDITDOB+3, EDITPC~, EDITPC+3, EDITCOV~, EDITCOV+3, EFFDT~, EFFDT+4 , EFFDT+18, EDITEXP~, EDITEXP+3, EDITGRP~, EDITGRP+3, EDITPLAN~, EDITPLAN+3
IEN	EFFDT+1!, EFFDT+3*
>> ITEMNUM	GETAW+11*, GETAW+17, GETAW+19, GETAW+20
MYERRS	GETAW+55!, GETAW+56, GETAW+59
MYERRS("C"	VAR+12, EDIT+7
MYVARS	GETAW+55!, GETAW+59
MYVARS("DFN"	GETAW+57*
MYVARS("FINDCALL"	GETAW+57*
MYVARS("SELECTION"	GETAW+58*
MYVARS("SITE"	GETAW+58*
NEWENTRY	END+2!, GETAW+25, GETAW+59
>> NEWLINE	GETAW+9*, GETAW+18
ONLYONE	EFFDT+1!, EFFDT+3*, EFFDT+7
PIECE	GETAW+32~, GETAW+34*, GETAW+35, GETAW+36, GETAW+50, GETAW+51, GETAW+52!
>> PLANPTR	GETAW+37*, GETAW+38
>> POLMEMBS	EDIT+14
POLPTR	END+2!
>> POSTEXEC	GETAW+16*, GETAW+51
>> PRECAPEX	GETAW+15*, GETAW+21, GETAW+22
>> PREEXEC	GETAW+14*, GETAW+35
REC	END+2!, DATESORT+3, DATESORT+4, DATESORT+5, DATESORT+6, DATESORT+7, SHOWNEW+1~, SHOWNEW+3, SHOWNEW+12, SHOWNEW+20 , ALLTERM+7, ALLTERM+15*
RESULT	GETDATES+1!, GETDATES+5, DATESORT~
RESULT("DILIST"	DATESORT+4, DATESORT+5, DATESORT+6, DATESORT+7
>> ROUTID	EN+5, HDR+9
SPECSUB	DATESORT+2~, DATESORT+9, DATESORT+10, DATESORT+11, SHOWNEW+1~, SHOWNEW+2, SHOWNEW+4, SHOWNEW+5, SHOWNEW+7, SHOWNEW+8 , SHOWNEW+9, SHOWNEW+10, ALLTERM+2, ALLTERM+3, ALLTERM+4, ALLTERM+5
>> SUBS	HDR+10*, HDR+11
>> TAGCALL	GETAW+12*, GETAW+17
U	EDIT+19, HDR+1, HDR+2, HDR+10, HDR+14, HDR+22, GETAW+5, GETAW+7, GETAW+8, GETAW+9 , GETAW+10, GETAW+11, GETAW+12, GETAW+21, GETAW+22, GETAW+37, GETAW+39, DATESORT+10, DATESORT+11, DATESORT+13 , SHOWNEW+8, SHOWNEW+9, ALLTERM+3, ALLTERM+4
VDR	GETAW+33*, GETAW+34, GETAW+52!
WDA	END+2!
WDT	END+2!
Y	VAR+11, VAR+12, VAR+13, VAR+15, VAR+16, VAR+17, EDIT+5, EDIT+6, EDIT+7, EDIT+8 , EDIT+9, EDIT+11, EDIT+12, END+1!, SHOWNEW+13, SHOWNEW+14, SHOWNEW+16, SHOWNEW+17, ALLTERM+8, ALLTERM+9 , ALLTERM+11, ALLTERM+12, ADDEFF+8, ADDEFF+10

Customize PDF page

Package: IHS Patient Registration

Routine: AGED6PD

Information

Source Information

Call Graph

Call Graph Total: 11

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

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	EN+5, HDR+9
$T(@1+AG	GETAW+3