Routine: AGED4

Package	Total	Call Graph
IHS Patient Registration	11	(ADDCOV,ADDNEW)^AG4 ^AGDICLK UPDATE1^AGED READ^AGED1 (,E6)^AGED41 EN^AGED4PD $$USED^AGED51 (EDITCHEK,FETCHERR)^AGEDERR ($$DTEST,$$UPDTSEL,PROGVIEW)^AGUTILS $$GETMCR^AGUTL $$S^AGVDF
VA Fileman	4	NOW^%DTC ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
Kernel	1	(ENDR,KILL)^%ZISS

Package	Total	Caller Graph
IHS Patient Registration	3	AG4 AGED4A AGED4A01
PCC New Encounter Form	1	VENPCCD1
Third Party Billing	1	ABMDTEL

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
NONE	;
CLEANZER(WD0)	;EP - CLEAN ZERO NODE WITH NO DATES
END	;EP
HDR	;
NOPARTAB(AGPATDFN)	;EP - AG7.11 ITEM 2 DETERMINE IF PATIENT ALREADY HAS EITHER MCR PART A OR B
EDIT
PRINT	;
L5
PATCH
L6
VAR	;
L7
ELIG	;
L6A
ABN(DAX)	;
L6B
EN(AGSELECT)	;EP
IMPMSG(DAX)	;GET LAST DATE ENTERED FOR IMPORTANT MESSAGE FROM MEDICARE
12	;
KILL	;

External References

Name	Field # of Occurrence
NOW^%DTC	PATCH
ENDR^%ZISS	L5+14
KILL^%ZISS	L5+14
ADDCOV^AG4	L6
ADDNEW^AG4	NONE+6
^AGDICLK	DISP+3, DISP+7, DISP+15, DISP+28, DISP+32, DISP+37, DISP+42, L6A+14, PRINT+4, PRINT+14 , PRINT+20, PRINT+26, PRINT+30
UPDATE1^AGED	NONE+8, L6, L7
READ^AGED1	ELIG+44, KILL+5, KILL+6
^AGED41	L7
E6^AGED41	L6
EN^AGED4PD	L6A+8
$$USED^AGED51	L5+11
EDITCHEK^AGEDERR	ELIG+43
FETCHERR^AGEDERR	ELIG+38
$$DTEST^AGUTILS	HDR+11
$$UPDTSEL^AGUTILS	ELIG+36
PROGVIEW^AGUTILS	HDR+3
$$GETMCR^AGUTL	DISP+24, L6, PATCH+5
$$S^AGVDF	HDR+2
^DIK	CLEANZER+2, END+2, KILL+4, KILL+26
$$GET1^DIQ	ELIG+22, ELIG+24, ELIG+25, ELIG+26, ELIG+27
^DIR	ELIG+44, EDIT+10, L5+8, L6B+5, KILL+3, KILL+13, KILL+23
$$DIR^XBDIR	L5+16
HELP^XBHELP	L5+14

Interaction Calls

Name	Line Occurrences
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+4
Function Call: WRITE	Prompt: ?36,"MEDICARE" Line Location: HDR+5
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+6
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+9
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+10
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(AGPATDFN) Line Location: HDR+11
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+12
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+15
Function Call: WRITE	Prompt: "================================== MEDICARE PART A AND B DATA ONLY =======================" Line Location: HDR+17
Function Call: WRITE	Prompt: !,"PATIENT MUST HAVE MEDICARE PART A OR B BEFORE ADDING PART D" Line Location: NONE+4
Function Call: WRITE	Prompt: !,"No eligibility date was entered!" Line Location: NONE+7
Function Call: WRITE	Prompt: !,"1.Med. Release Date: " Line Location: DISP+2
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+4
Function Call: WRITE	Prompt: !,"2.QMB/SLMB : " Line Location: DISP+6
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+8
Function Call: WRITE	Prompt: !,"3.IMP MSG FORM MCR SIG OBTAINED: ",$$IMPMSG(DA) Line Location: DISP+9
Function Call: WRITE	Prompt: !,"4.ADVANCE BENEFICIARY NOTICE: ",$$ABN(DA) Line Location: DISP+10
Function Call: WRITE	Prompt: ! Line Location: DISP+11
Function Call: WRITE	Prompt: "." Line Location: DISP+12
Function Call: WRITE	Prompt: "........................ MEDICARE PART A AND B DATA ONLY ........................" Line Location: DISP+13
Function Call: WRITE	Prompt: ?4,"5.Medicare Name : ",$G(AG("LKPRINT")) Line Location: DISP+16
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+20
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+23
Function Call: WRITE	Prompt: ?49,"6.Medicare Number: ",$$GETMCR^AGUTL(AGPATDFN) Line Location: DISP+24
Function Call: WRITE	Prompt: ! Line Location: DISP+25
Function Call: WRITE	Prompt: ?4,"7.Prim. Care Prv: " Line Location: DISP+27
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+29
Function Call: WRITE	Prompt: ?49,"8.Date of Birth : " Line Location: DISP+31
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+33
Function Call: WRITE	Prompt: ! Line Location: DISP+34
Function Call: WRITE	Prompt: ?4,"9.CC on file : " Line Location: DISP+36
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+38
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+43
Function Call: WRITE	Prompt: !! Line Location: DISP+44
Function Call: WRITE	Prompt: ?5,"ELIG DATE BEGIN",?29,"(updated)",?42,"Cov",?47,"Plan Name",?70,"ELIG END",! Line Location: DISP+46
Function Call: WRITE	Prompt: "." Line Location: DISP+47
Function Call: WRITE	Prompt: ?26,$$GET1^DIQ(9000003,AGPATDFN_",",.07,"E") Line Location: ELIG+24
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: ELIG+30
Function Call: WRITE	Prompt: ! Line Location: EDIT+20
Function Call: WRITE	Prompt: !,"You must enter from 1 - ",$G(AG("N")) Line Location: L5+19
Function Call: WRITE	Prompt: !,$S(DR=.01:" 10. ELIGIBILITY DATE: ",DR=.03:"11. COVERAGE TYPE: ",DR=.02:"12. ELIG. END DATE : ") Line Location: L6A+13
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: L6A+15
Function Call: WRITE	Prompt: !! Line Location: L6B+1
Function Call: WRITE	Prompt: !,"Use the numbers 10, 11, or 12.",! Line Location: L6B+13
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: END+3
Function Call: WRITE	Prompt: AG("I")+9,".",?6,AG("LKPRINT") Line Location: PRINT+5
Function Call: WRITE	Prompt: ?26,"("_AG("LKPRINT")_")" Line Location: PRINT+9
Function Call: WRITE	Prompt: ?26,"("_AG("LKPRINT")_")" Line Location: PRINT+15
Function Call: WRITE	Prompt: ?43,AG("LKPRINT") Line Location: PRINT+22
Function Call: WRITE	Prompt: ?48,$E($G(AG("LKPRINT")),1,18) Line Location: PRINT+27
Function Call: WRITE	Prompt: ?68,AG("LKPRINT"),! Line Location: PRINT+32
Function Call: WRITE	Prompt: !!,"The COMPLETE eligibility record has been deleted" Line Location: KILL+4
Function Call: WRITE	Prompt: !!,"Delete which of these coverages? (10 - ",AG("I")+9,") " Line Location: KILL+5
Function Call: WRITE	Prompt: !!,"To delete an eligibility record, enter a number from 10 to ",AG("I")+9,". (Press RETURN for ""NO DELETE"".)" Line Location: KILL+6
Function Call: WRITE	Prompt: !!,"That Eligibility record is deleted." Line Location: KILL+27
Routine Call	DIR Line Location: ELIG+44 EDIT+10 L5+8 L6B+5 KILL+3 KILL+13 KILL+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMCR - [#9000003]	Classic Fileman Calls, GET1^DIQ
9000003.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	PATCH+1, PATCH+5, PATCH+6
^AUPNMCR - [#9000003]	NONE+7, NOPARTAB+3, NOPARTAB+4, NOPARTAB+5, ELIG+20, L5+11, END+2, IMPMSG+2, ABN+2, KILL+9 , KILL+17, PATCH+2, PATCH+3, PATCH+5, PATCH+6
^AUPNPAT - [#9000001]	HDR+14
^DD("DD"	IMPMSG+5, ABN+5
^DIC(4 - [#4]	HDR+6
^XUSEC("AGZMGR"	EDIT+4, EDIT+6, EDIT+12, EDIT+13

Label References

Name	Line Occurrences
$$ABN	DISP+10
$$IMPMSG	DISP+9
$$NOPARTAB	NONE+4
CLEANZER	NONE+7
DISP	HDR+20
EDIT	EDIT+13, EDIT+22, L5+19
END	ELIG+44, EDIT+21, L5+18, KILL+4, KILL+5
KILL	EDIT+12, KILL+6
L6	EDIT+19
L6B	L6B+13
L7	L6A
NONE	ELIG+45
PATCH	KILL+4, KILL+24
VAR	NONE+10, EDIT+21, L5+9, L5+16, L6, L6A+8, L6B+6, L6B+11, L6B+12, L7+1 , END+3, KILL+3, KILL+13, KILL+17, KILL+28

Naked Globals

Name	Field # of Occurrence
^(	PATCH+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PATCH
ADDCHK	NONE+7!, END+2!
>> AG(	ELIG+28*, L6A+6, L6A+12, PRINT+1, PRINT+19, PRINT+25, PRINT+29
>> AG("COUNT"	KILL+8, KILL+9, KILL+10, KILL+11, KILL+12!
>> AG("COV"	L6*
>> AG("CTR"	DISP+47*
>> AG("DELELIG"	KILL+8, KILL+11, KILL+14, KILL+15!
>> AG("DRENT1"	L6A+12, END+5!, PRINT+1, PRINT+19, PRINT+25, PRINT+29*
>> AG("EDIT"	HDR+19!, NONE+2, L6
>> AG("ERR"	EDIT+21
>> AG("I"	PRINT+1, PRINT+5, PRINT+11, PRINT+19, PRINT+25, PRINT+29, KILL+2, KILL+3, KILL+4, KILL+5 , KILL+6, KILL+13, KILL+14, KILL+17, KILL+25, PATCH+3, PATCH+5, PATCH+6
>> AG("INDEX"	L5+10*
>> AG("LKERR"	DISP+4, DISP+8, DISP+29, DISP+33, DISP+38, DISP+43, L6A+15, END+6!
>> AG("LKPRINT"	DISP+4, DISP+8, DISP+16, DISP+29, DISP+33, DISP+38, DISP+39, DISP+43, L6A+15, END+6! , PRINT+5, PRINT+15, PRINT+22, PRINT+27, PRINT+32
>> AG("N"	ELIG+18, ELIG+29, L5+7, L5+19
>> AG("PG"	VAR+1*, ELIG+38
>> AG("SEL"	L5+10, L5+11, L6A, L6A+6, L6A+12, L6B+14, KILL+8, KILL+9, KILL+11, KILL+12!
AGBILL	L5+11*, L5+12, L5+15!, L5+17!
>> AGCHRT	HDR+12
AGDTS	PATCH*, PATCH+1, PATCH+5, PATCH+6, PATCH+7!
>> AGELSTS	HDR+14*, HDR+15
AGIEN	IMPMSG+1~, IMPMSG+2, IMPMSG+3, IMPMSG+4, ABN+1~, ABN+2, ABN+3, ABN+4
>> AGINS	ELIG+36
AGL	END+5!
>> AGLINE("-"	HDR+7*, ELIG+30
>> AGLINE("EQ"	HDR+8*, HDR+9
>> AGOPT("ESCAPE"	EDIT+11, END+3, END+4
>> AGPAT	HDR+10
AGPATDFN	HDR+11, HDR+14, HDR+18, NONE+4, NONE+7, NONE+8, NOPARTAB~, NOPARTAB+3, NOPARTAB+4, NOPARTAB+5 , DISP+24, ELIG+20, ELIG+21, ELIG+24, ELIG+41, L5+11, L6, L6A+6, L7, END+2 , PRINT+3, PRINT+13, KILL+4, KILL+8, KILL+17, KILL+25, PATCH+1, PATCH+2, PATCH+3, PATCH+5 , PATCH+6
>> AGSEENLY	HDR+4, NONE+1, ELIG+44, END+2, END+3
AGSELECT	EN~, EN+1, ELIG+36, ELIG+42
>> AGTOUT	END+1*
>> AGTYPE	NONE+4
>> AGXTERN	END+7
>> CNT	ELIG+20*, ELIG+22, ELIG+23, ELIG+28, ELIG+29, KILL+2
>> COMPIEN	ELIG+36, L6A+6*, L6A+7, L6A+8
>> COVTYP	L6, L6A+7, L6A+8
DA	HDR+18, CLEANZER+1!, CLEANZER+2, DISP+9, DISP+10, END+2, END+5!, PRINT+3, PRINT+13, KILL+4 , KILL+25*
DA(1	KILL+8, KILL+9, KILL+25
DAX	IMPMSG~, IMPMSG+2, ABN~, ABN+2
DFOUT	EDIT+8!, EDIT+15, L5, L5+18, L6B+3!, L6B+7, L6B+11, END+5!, KILL+5
DIC	DISP+1, DISP+5, DISP+14, DISP+26, DISP+30, DISP+35, DISP+40, L6A+10, END+5!, PRINT+2* , PRINT+12, PRINT+18
DIE	END+5!
DIK	CLEANZER+1!, CLEANZER+2, END+2, KILL+4, KILL+25
DIR	EDIT!, L6B!, END+9!, KILL+1!, KILL+3!, KILL+7!, KILL+13!, KILL+21!
DIR("?"	EDIT+1, EDIT+2, EDIT+3, L5+2, L5+3, L5+4, L5+5, L5+6
DIR("A"	ELIG+44, EDIT+5, EDIT+7, L5+7, L6B+2, KILL+3, KILL+13*
DIR("B"	KILL+3, KILL+13
DIR(0	EDIT+9, L6B+4, KILL+3, KILL+13, KILL+22*
DIROUT	EDIT+8!, EDIT+21, L6B+3!, END+8!
DLOUT	EDIT+8!, EDIT+16, EDIT+21, L6B+3!, L6B+8, L6B+11, END+5!, KILL+5
DQOUT	EDIT+8!, EDIT+18, L5+19, L6B+3!, L6B+10, END+5!, KILL+6
DR	DISP+1, DISP+5, DISP+14, DISP+26, DISP+30, DISP+35, DISP+40, L6A+11, L6A+13, END+5! , PRINT+3, PRINT+13, PRINT+19, PRINT+25, PRINT+29*
DRENT	END+5!
DT	PATCH+6
DTOUT	EDIT+8!, EDIT+14, L5, L6B+3!, L6B+6, L6B+12, END+1, END+5!, KILL+5
DTREC	NOPARTAB+1~, NOPARTAB+2, NOPARTAB+3, NOPARTAB+4, NOPARTAB+5
DUOUT	EDIT+8!, EDIT+17, EDIT+21, L5+18, L6B+3!, L6B+9, L6B+11, END+8!, KILL+5
DUZ	HDR+3, EDIT+4, EDIT+6, EDIT+12, EDIT+13
DUZ(2	HDR+6, NONE+8, ELIG+42, L6, L7, PATCH+1, PATCH+5, PATCH+6
>> IENS	ELIG+21*, ELIG+22, ELIG+25, ELIG+26, ELIG+27
MYERRS	ELIG+37!, ELIG+38, ELIG+43
MYERRS("C"	END+3
MYVARS	ELIG+37!, ELIG+43
MYVARS("DFN"	ELIG+41*
MYVARS("FINDCALL"	ELIG+42*
MYVARS("SELECTION"	ELIG+42*
MYVARS("SITE"	ELIG+42*
>> NEWENTRY	EN+1, NONE+9, ELIG+36, ELIG+43, ELIG+45
NOPARTAB	NOPARTAB+1~, NOPARTAB+2, NOPARTAB+3, NOPARTAB+4, NOPARTAB+5*, NOPARTAB+6
>> REC	ELIG+19, ELIG+20, ELIG+21, ELIG+28
>> ROUTID	HDR+1*
U	HDR+6, HDR+14, NOPARTAB+4, NOPARTAB+5, ELIG+36, L5+11, L6A+7, KILL+17, PATCH+5, PATCH+6
WD0	CLEANZER~, CLEANZER+2
X	L5+13*, IMPMSG+1~, ABN+1~
Y	EDIT+11, EDIT+12, EDIT+13, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+19, EDIT+21, EDIT+22 , L5+1, L5+9, L5+10, L5+19, L6, L6B+7, L6B+8, L6B+9, L6B+10, L6B+13 , L6B+14, END+3, END+4, END+6!, IMPMSG+1~, IMPMSG+4, IMPMSG+6, ABN+1~, ABN+4, ABN+6 , KILL+3, KILL+4*, KILL+6, KILL+9, KILL+11, KILL+13

Customize PDF page

Package: IHS Patient Registration

Routine: AGED4

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 5

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