Routine: AGEDMCD1

Package	Total	Call Graph
IHS Patient Registration	3	$$ISACTIVE^AGINS ($$DTEST,PROGVIEW)^AGUTILS $$S^AGVDF
VA Fileman	1	LIST^DIC

Package	Total	Caller Graph
IHS Patient Registration	1	AGEDMCD

Entry Points

Name	Comments	DBIA/ICR reference
SHOWNEW(DATESORT)	;EP
GETDATES(WD0)	;EP - GET THE DTS USING LIST^DIC
HDR	;EP - CALLED BY AGEDMCD
DATESORT(RESULT)	;EP - TAKE LIST RETURNED BY FILE^DIC AND SORT IT
ALLTERM	;EP
DATESHOW(RESULT)	;

External References

Name	Field # of Occurrence
$$ISACTIVE^AGINS	DATESHOW+10, SHOWNEW+18, ALLTERM+13
$$DTEST^AGUTILS	HDR+19
PROGVIEW^AGUTILS	HDR+11
$$S^AGVDF	HDR+8
LIST^DIC	GETDATES+3

Interaction Calls

Name	Line Occurrences
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,"MEDICAID" 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(DFN) 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: !,?3,"NUMBER",?22,"(updated)",?39,"ELIG DATE",?53,"COVERAGE",?64,"ELIG END" Line Location: HDR+25
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: HDR+26
Function Call: WRITE	Prompt: ! Line Location: DATESHOW+4
Function Call: WRITE	Prompt: ?39,Y Line Location: DATESHOW+6
Function Call: WRITE	Prompt: ?59,RESULT("DILIST","ID",REC,.03) Line Location: DATESHOW+7
Function Call: WRITE	Prompt: ?71,Y Line Location: DATESHOW+9
Function Call: WRITE	Prompt: ?79,$S($$ISACTIVE^AGINS(RESULT("DILIST","ID",REC,.01),RESULT("DILIST","ID",REC,.02)):"A",1:"I") Line Location: DATESHOW+10
Function Call: WRITE	Prompt: ! Line Location: SHOWNEW+12
Function Call: WRITE	Prompt: ! Line Location: ALLTERM+7
Routine Call	DIC Line Location: GETDATES+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9000004.11	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HDR+2, HDR+4, HDR+22
^DD("DD"	DATESHOW+5, DATESHOW+8, SHOWNEW+13, SHOWNEW+16, ALLTERM+8, ALLTERM+11
^DIC(4 - [#4]	HDR+14
^DPT - [#2]	HDR+1

Label References

Name	Line Occurrences
ALLTERM	SHOWNEW+4
DATESORT	GETDATES+4
SHOWNEW	DATESORT+13

Naked Globals

Name	Field # of Occurrence
^(0	HDR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG("AUPN"	HDR+3, HDR+4
>> AG("EDIT"	HDR+28!
>> AGCHRT	HDR+2*, HDR+20
>> AGELSTS	HDR+22*, HDR+23
>> AGLINE("-"	HDR+5, HDR+15, HDR+26
>> AGLINE("EQ"	HDR+6, HDR+16, HDR+17, HDR+24
>> AGLINE("PGLN"	HDR+7*
>> AGPAT	HDR+1*, HDR+18
>> AGSEENLY	HDR+12
>> AGSELECT	HDR+10
CVG	DATESORT+2~, DATESORT+7, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+9, SHOWNEW+15, ALLTERM+4*, ALLTERM+10
>> DA	HDR+27*
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+13, SHOWNEW~
DATESORT(	DATESORT+9, DATESORT+10, SHOWNEW+4, SHOWNEW+5, SHOWNEW+7, SHOWNEW+8, SHOWNEW+9, ALLTERM+2, ALLTERM+3, ALLTERM+4
DATESORT("O"	DATESORT+11, SHOWNEW+4
DATESORT("T"	DATESORT+12
>> DEFEDDT	DATESORT+11, DATESORT+12
>> DFN	HDR+1, HDR+2, HDR+4, HDR+19, HDR+22, HDR+27
DUZ	HDR+11
DUZ(2	HDR+2, HDR+14
EFFDT	DATESORT+2~, DATESORT+6, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+10, SHOWNEW+11, SHOWNEW+13, SHOWNEW+18, ALLTERM+5 , ALLTERM+6*, ALLTERM+8, ALLTERM+13
ENDDT	DATESORT+2~, DATESORT+5, DATESORT+8, DATESORT+9, DATESORT+10, SHOWNEW+1~, SHOWNEW+10, SHOWNEW+11, SHOWNEW+16, SHOWNEW+18 , ALLTERM+5, ALLTERM+6*, ALLTERM+11, ALLTERM+13
>> FIELDS	GETDATES+2*, GETDATES+3
>> FLAGS	GETDATES+1*, GETDATES+3
REC	DATESHOW+1~, DATESHOW+2, DATESHOW+3, DATESHOW+4, DATESHOW+5, DATESHOW+7, DATESHOW+8, DATESHOW+10, DATESORT+3, DATESORT+4 , DATESORT+5, DATESORT+6, DATESORT+7, SHOWNEW+1~, SHOWNEW+3, SHOWNEW+12, SHOWNEW+19, ALLTERM+7, ALLTERM+14*
RESULT	GETDATES+4, DATESHOW~, DATESORT~
RESULT("DILIST"	DATESHOW+3, DATESHOW+5, DATESHOW+7, DATESHOW+8, DATESHOW+10, DATESORT+4, DATESORT+5, DATESORT+6, DATESORT+7
>> ROUTID	HDR+9*
SPECSUB	DATESORT+2~, DATESORT+8, DATESORT+9, DATESORT+10, 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
U	HDR+1, HDR+2, HDR+10, HDR+14, HDR+22, DATESORT+9, DATESORT+10, DATESORT+12, SHOWNEW+8, SHOWNEW+9 , ALLTERM+3, ALLTERM+4
WD0	GETDATES~, GETDATES+3
>> Y	DATESHOW+5, DATESHOW+6, DATESHOW+8, DATESHOW+9, SHOWNEW+13, SHOWNEW+14, SHOWNEW+16, SHOWNEW+17, ALLTERM+8, ALLTERM+9 , ALLTERM+11, ALLTERM+12

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDMCD1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

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