Routine: AGED6

Package	Total	Call Graph
IHS Patient Registration	12	(ADDCOV,ADDNEW)^AG6 ^AGDICLK UPDATE1^AGED READ^AGED1 $$USED^AGED51 (,E5)^AGED61 EN^AGED6PD (EDITCHEK,FETCHERR)^AGEDERR $$ISREQ^AGFLDREQ ($$DTEST,$$UPDTSEL,PROGVIEW)^AGUTILS $$GETRRE^AGUTL $$S^AGVDF
VA Fileman	5	DD^%DT 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	AG6 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	;
L5A
EDIT
NOPARTAB(DFN)	;EP - DETERMINE IF PATIENT ALREADY HAS EITHER RR PART A OR B
PRINT	;
AGREASON	;
L5
PATCH
L6
VAR	;
L7
ELIG	;
L6A
L6B
EN(AGSELECT)	;EP
KILL	;

External References

Name	Field # of Occurrence
DD^%DT	DISP+10
NOW^%DTC	PATCH
ENDR^%ZISS	L5A+9
KILL^%ZISS	L5A+9
ADDCOV^AG6	L6
ADDNEW^AG6	NONE+5
^AGDICLK	DISP+24, DISP+28, DISP+35, DISP+51, DISP+58, DISP+65, DISP+70, L6A+12, PRINT+5, PRINT+15 , PRINT+21, PRINT+27, PRINT+32
UPDATE1^AGED	NONE+7, L6, L7
READ^AGED1	ELIG+40, KILL+5, KILL+6
$$USED^AGED51	L5A+6
^AGED61	L7
E5^AGED61	L6
EN^AGED6PD	L6A+5
EDITCHEK^AGEDERR	ELIG+39
FETCHERR^AGEDERR	ELIG+37
$$ISREQ^AGFLDREQ	DISP+56
$$DTEST^AGUTILS	HDR+11
$$UPDTSEL^AGUTILS	ELIG+35
PROGVIEW^AGUTILS	HDR+3
$$GETRRE^AGUTL	DISP+46, L6, PATCH+5
$$S^AGVDF	HDR+2
^DIK	CLEANZER+2, END+2, KILL+4, KILL+27
$$GET1^DIQ	ELIG+22, ELIG+24, ELIG+25, ELIG+26, ELIG+27
^DIR	ELIG+40, EDIT+8, L5A+2, L6B+5, KILL+3, KILL+13, KILL+24
$$DIR^XBDIR	L5A+11
HELP^XBHELP	L5A+9

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: ?30,"RAILROAD RETIREMENT" 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(DFN) 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: "================================== RAILROAD PART A AND B DATA ONLY =======================" Line Location: HDR+17
Function Call: WRITE	Prompt: !,"PATIENT MUST HAVE RAILROAD PART A OR B BEFORE ADDING PART D" Line Location: NONE+4
Function Call: WRITE	Prompt: !,"No eligibility date was entered!" Line Location: NONE+6
Function Call: WRITE	Prompt: !,"1.MSP Patient(Y/N) : " Line Location: DISP+6
Function Call: WRITE	Prompt: $P($G(AGMSP),U,3) Line Location: DISP+7
Function Call: WRITE	Prompt: ?30,"Date signature obtained: " Line Location: DISP+8
Function Call: WRITE	Prompt: Y Line Location: DISP+11
Function Call: WRITE	Prompt: !,?2,"MSP Reason : " Line Location: DISP+12
Function Call: WRITE	Prompt: AGMSPR Line Location: DISP+19
Function Call: WRITE	Prompt: !,"2.QMB/SLMB : " Line Location: DISP+23
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+25
Function Call: WRITE	Prompt: !,"3.Med. Release Date: " Line Location: DISP+27
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+29
Function Call: WRITE	Prompt: ! Line Location: DISP+30
Function Call: WRITE	Prompt: "." Line Location: DISP+31
Function Call: WRITE	Prompt: "........................ RAILROAD PART A AND B DATA ONLY ........................" Line Location: DISP+32
Function Call: WRITE	Prompt: ?4,"4.Railroad Name : ",$G(AG("LKPRINT")) Line Location: DISP+36
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+41
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+45
Function Call: WRITE	Prompt: ?49,"5.Railroad Number: ",$$GETRRE^AGUTL(AGPATDFN) Line Location: DISP+46
Function Call: WRITE	Prompt: ! Line Location: DISP+47
Function Call: WRITE	Prompt: ?4,"6.Prim. Care Prv: " Line Location: DISP+50
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+52
Function Call: WRITE	Prompt: ?49,"7.Date of Birth : " Line Location: DISP+59
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+60
Function Call: WRITE	Prompt: ! Line Location: DISP+61
Function Call: WRITE	Prompt: ?4,"8.CC on file : " Line Location: DISP+64
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+66
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: DISP+71
Function Call: WRITE	Prompt: !! Line Location: DISP+72
Function Call: WRITE	Prompt: ?5,"ELIG DATE BEGIN",?29,"(updated)",?42,"Cov",?47,"Plan Name",?70,"ELIG END",! Line Location: DISP+74
Function Call: WRITE	Prompt: "." Line Location: DISP+75
Function Call: WRITE	Prompt: ?26,$$GET1^DIQ(9000005,AGPATDFN_",",.07,"E") Line Location: ELIG+24
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: ELIG+30
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: ! Line Location: EDIT+17
Function Call: WRITE	Prompt: !,"You must enter from 1 - ",$G(AG("N")) Line Location: L5A+14
Function Call: WRITE	Prompt: !,"Use ""A"" to Add an eligibility date." Line Location: L6A+8
Function Call: WRITE	Prompt: !,$S(DR=.01:" 9. ELIGIBILITY DATE: ",DR=.03:"10. COVERAGE TYPE: ",DR=.02:"11. ELIG. END DATE : ") Line Location: L6A+11
Function Call: WRITE	Prompt: AG("LKPRINT") Line Location: L6A+13
Function Call: WRITE	Prompt: !! Line Location: L6B+1
Function Call: WRITE	Prompt: !,"Use the numbers 9, 10, or 11.",! 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")+8,".",?6,AG("LKPRINT") Line Location: PRINT+6
Function Call: WRITE	Prompt: ?26,"("_AG("LKPRINT")_")" Line Location: PRINT+11
Function Call: WRITE	Prompt: ?26,"("_AG("LKPRINT")_")" Line Location: PRINT+16
Function Call: WRITE	Prompt: ?43,AG("LKPRINT") Line Location: PRINT+23
Function Call: WRITE	Prompt: ?48,$E($G(AG("LKPRINT")),1,18) Line Location: PRINT+28
Function Call: WRITE	Prompt: ?68,AG("LKPRINT"),! Line Location: PRINT+34
Function Call: WRITE	Prompt: !!,"The COMPLETE eligibility record has been deleted" Line Location: KILL+4
Function Call: WRITE	Prompt: !!,"Delete which of these coverages? (9 - ",AG("I")+8,") " Line Location: KILL+5
Function Call: WRITE	Prompt: !!,"To delete an eligibility record, enter a number from 9 to ",AG("I")+8,". (Press RETURN for ""NO DELETE"".)" Line Location: KILL+6
Function Call: WRITE	Prompt: !!,"That eligibility record is deleted." Line Location: KILL+28
Routine Call	DIR Line Location: ELIG+40 EDIT+8 L5A+2 L6B+5 KILL+3 KILL+13 KILL+24

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNRRE - [#9000005]	Classic Fileman Calls, GET1^DIQ
9000005.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	PATCH+1, PATCH+5, PATCH+6
^AUPNMSP - [#9000037]	DISP+4
^AUPNMSP("C"	DISP+2, DISP+3
^AUPNPAT - [#9000001]	HDR+14
^AUPNRRE - [#9000005]	NONE+6, NOPARTAB+3, NOPARTAB+4, NOPARTAB+5, ELIG+20, L5A+6, END+2, KILL+9, KILL+18, PATCH+2 , PATCH+3, PATCH+5, PATCH+6
^DIC(4 - [#4]	HDR+6
^XUSEC("AGZMGR"	EDIT+2, EDIT+4, EDIT+9, EDIT+10

Label References

Name	Line Occurrences
$$NOPARTAB	NONE+4
CLEANZER	NONE+6
DISP	HDR+20
EDIT	EDIT+10, EDIT+19, L5A+14
END	ELIG+40, EDIT+18, L5A+13, KILL+4, KILL+5
KILL	EDIT+9, KILL+6
L5A	L6A+8
L6	EDIT+16
L6B	L6B+13
L7	L6A
NONE	ELIG+41
PATCH	KILL+4, KILL+25
VAR	NONE+9, EDIT+18, L5A+4, L5A+11, L6, L6A+5, L6B+6, L6B+11, L6B+12, L7+1 , END+3, KILL+3, KILL+13, KILL+18, KILL+29

Naked Globals

Name	Field # of Occurrence
^(	PATCH+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PATCH
ADDCHK	NONE+6!, END+2!
AG	END+5!
AG(	ELIG+28*, L6A+3, L6A+8, L6A+10, PRINT+1, PRINT+20, PRINT+26, PRINT+31
AG("COUNT"	KILL+8, KILL+9, KILL+10, KILL+11, KILL+12!
AG("COV"	L6*
AG("CTR"	DISP+75*
AG("DELELIG"	KILL+8, KILL+11, KILL+14, KILL+15!
AG("DRENT1"	L6A+10, END+5!, PRINT+1, PRINT+20, PRINT+26, PRINT+31*
AG("EDIT"	HDR+19!, NONE+2, L6
AG("ERR"	EDIT+18
AG("I"	PRINT+1, PRINT+6, PRINT+12, PRINT+20, PRINT+26, PRINT+31, KILL+2, KILL+3, KILL+4, KILL+5 , KILL+6, KILL+13, KILL+14, KILL+18, KILL+26, PATCH+3, PATCH+5, PATCH+6
AG("INDEX"	L5A+5*
AG("LKERR"	DISP+25, DISP+29, DISP+52, DISP+60, DISP+66, DISP+71, L6A+13, END+6!
AG("LKPRINT"	DISP+25, DISP+29, DISP+36, DISP+52, DISP+60, DISP+66, DISP+67, DISP+71, L6A+13, END+6! , PRINT+6, PRINT+16, PRINT+23, PRINT+28, PRINT+34
AG("N"	ELIG+18, ELIG+29, L5A+14
AG("PG"	VAR+1*, ELIG+37
AG("SEL"	L5A+5, L5A+6, L6A, L6A+3, L6A+8, L6A+10, L6B+14, KILL+8, KILL+9, KILL+11 , KILL+12!
AGBILL	L5A+6*, L5A+7, L5A+10!, L5A+12!
>> AGCHRT	HDR+12
AGDTS	PATCH*, PATCH+1, PATCH+5, PATCH+6, PATCH+7!
>> AGELSTS	HDR+14*, HDR+15
>> AGINS	ELIG+35
AGL	END+5!
>> AGLINE("-"	HDR+7*, ELIG+30
>> AGLINE("EQ"	HDR+8*, HDR+9
AGMSP	DISP+1!, DISP+4*, DISP+7, DISP+9, DISP+13
AGMSPDT	DISP+1!, DISP+2*, DISP+3
AGMSPFLG	DISP+14, DISP+15, DISP+17, DISP+18*, DISP+20!
AGMSPIEN	DISP+1!, DISP+3*, DISP+4
AGMSPR	DISP+1!, DISP+13, DISP+18, DISP+19
AGMSPRT	DISP+14, DISP+15, DISP+20!
>> AGOPT("ESCAPE"	L5A+3, END+3, END+4
>> AGPAT	HDR+10
>> AGPATDFN	DISP+46, ELIG+20, ELIG+21, ELIG+24
>> AGSEENLY	HDR+4, NONE+1, ELIG+40, END+2, END+3
AGSELECT	EN~, EN+1, HDR+3, ELIG+35, ELIG+38
AGTEST	DISP+16*, DISP+17, DISP+18, DISP+20!
>> AGTOUT	END+1*
>> AGTYPE	NONE+4
>> AGXTERN	END+7
>> AUPNPAT	DISP+2, DISP+3, ELIG+38, L6A+3
>> CNT	ELIG+20*, ELIG+22, ELIG+23, ELIG+28, ELIG+29, KILL+2
>> COMPIEN	ELIG+35, L6A+3*, L6A+4, L6A+5
>> COVTYP	L6, L6A+4, L6A+5
DA	HDR+18, CLEANZER+1!, CLEANZER+2, END+2, END+5!, PRINT+4, PRINT+14, KILL+4, KILL+26*
DA(1	KILL+8, KILL+9, KILL+18, KILL+26
DFN	HDR+11, HDR+14, HDR+18, NONE+4, NONE+6, NONE+7, NOPARTAB~, NOPARTAB+3, NOPARTAB+4, NOPARTAB+5 , ELIG+38, L5A+6, L6, L7, END+2, PRINT+4, PRINT+14, KILL+4, KILL+8, KILL+26 , PATCH+1, PATCH+2, PATCH+3, PATCH+5, PATCH+6
DFOUT	EDIT+6!, EDIT+12, L5, L5A+13, L6B+3!, L6B+7, L6B+11, END+5!, KILL+5
DIC	DISP+22, DISP+26, DISP+34, DISP+49, DISP+55, DISP+63, DISP+68, L6A+7, END+5!, PRINT+3* , PRINT+13, PRINT+19
DIE	END+5!
DIE("NO^"	DISP+56*
DIK	CLEANZER+1!, CLEANZER+2, END+2, KILL+4, KILL+26
DIR	EDIT!, L6B!, END+9!, KILL+1!, KILL+3!, KILL+7!, KILL+13!, KILL+22!
DIR("A"	EDIT+3, EDIT+5, L5A+1, L6B+2, KILL+3, KILL+13
DIR("B"	KILL+3, KILL+13
DIR(0	EDIT+7, L6B+4, KILL+3, KILL+13, KILL+23*
DIROUT	EDIT+6!, EDIT+18, L6B+3!, END+8!
DLOUT	EDIT+6!, EDIT+13, EDIT+18, L6B+3!, L6B+8, L6B+11, END+5!, KILL+5
DQOUT	EDIT+6!, EDIT+15, L5A+14, L6B+3!, L6B+10, END+5!, KILL+6
DR	DISP+22, DISP+26, DISP+34, DISP+49, DISP+56, DISP+57, DISP+63, DISP+68, L6A+9, L6A+11 , END+5!, PRINT+4, PRINT+14, PRINT+20, PRINT+26, PRINT+31
DRENT	END+5!
DT	PATCH+6
DTOUT	EDIT+6!, EDIT+11, 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+6!, EDIT+14, EDIT+18, L5A+13, L6B+3!, L6B+9, L6B+11, END+8!, KILL+5
DUZ	HDR+3, EDIT+2, EDIT+4, EDIT+9, EDIT+10
DUZ(2	HDR+6, NONE+7, ELIG+38, L6, L7, PATCH+1, PATCH+5, PATCH+6
>> IENS	ELIG+21*, ELIG+22, ELIG+25, ELIG+26, ELIG+27
MYERRS	ELIG+36!, ELIG+37, ELIG+39
MYERRS("C"	END+3
MYVARS	ELIG+36!, ELIG+39
MYVARS("DFN"	ELIG+38*
MYVARS("FINDCALL"	ELIG+38*
MYVARS("SELECTION"	ELIG+38*
MYVARS("SITE"	ELIG+38*
>> NEWENTRY	EN+1, NONE+8, ELIG+35, ELIG+41
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+3, HDR+6, HDR+14, NOPARTAB+4, NOPARTAB+5, DISP+7, DISP+9, DISP+13, ELIG+35, L5A+6 , L6A+4, KILL+18, PATCH+3, PATCH+5, PATCH+6
WD0	CLEANZER~, CLEANZER+2
>> X	L5A+8*
Y	DISP+9, DISP+11, EDIT+9, EDIT+10, EDIT+12, EDIT+13, EDIT+14, EDIT+15, EDIT+16, EDIT+18 , EDIT+19, L5A, L5A+3, L5A+4, L5A+5, L5A+14, L6, L6A+8, L6B+7, L6B+8 , L6B+9, L6B+10, L6B+13, L6B+14, END+3, END+4, END+6!, KILL+3, KILL+4*, KILL+6 , KILL+9, KILL+11, KILL+13

Marked Items

Name	Field # of Occurrence
$T(	HDR+1
$T(AGREASON+AGMSPRT	DISP+16, DISP+18

Customize PDF page

Package: IHS Patient Registration

Routine: AGED6

Information

Source Information

Call Graph

Call Graph Total: 20

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