Routine: AGED5

Package	Total	Call Graph
IHS Patient Registration	8	YN^AG (ADDNEW,STATE)^AG5 ^AGDICLK UPDATE1^AGED READ^AGED1 EDIT^AGED51 ($$DTEST,VERIF)^AGUTILS $$S^AGVDF
VA Fileman	5	DD^%DT NOW^%DTC ^DIE EN^DIQ1 ^DIR

Package	Total	Caller Graph
IHS Patient Registration	5	AG5 AGED51 AGEL2 AGEL5 AGELUP4
PCC New Encounter Form	1	VENPCCD1
Third Party Billing	1	ABMDTEL

Entry Points

Name	Comments	DBIA/ICR reference
EDIT1	;
L3B
OPTION	;
L3A
EDIT	;
UPDATE	;EP
L6
READ	;
L4	;
L2
L3
VAR	;EP
END
DELETE
DELETE1
HDR	;

External References

Name	Field # of Occurrence
DD^%DT	L3A+3
NOW^%DTC	DELETE1+1
YN^AG	HDR+26
ADDNEW^AG5	VAR+4, HDR+29
STATE^AG5	HDR+1
^AGDICLK	L3B+3, L3B+9, L3B+12, L3B+15, L3B+19, L3B+25, L3B+37, L3B+42
UPDATE1^AGED	UPDATE+5
READ^AGED1	HDR+22, L4+1
EDIT^AGED51	EDIT1+4
$$DTEST^AGUTILS	HDR+10
VERIF^AGUTILS	L3B+45
$$S^AGVDF	HDR+2
^DIE	DELETE1+15, UPDATE+4
EN^DIQ1	L3B+31
^DIR	L4+1, DELETE+4, READ+3

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+3
Function Call: WRITE	Prompt: ?36,"MEDICAID" Line Location: HDR+4
Function Call: WRITE	Prompt: ?80-$L($P(^DIC(4,DUZ(2),0),U)),$P(^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+9
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(DFN) Line Location: HDR+10
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+11
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+14
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+15
Function Call: WRITE	Prompt: !! Line Location: HDR+20
Function Call: WRITE	Prompt: !?3,"STATE NUMBER" Line Location: L2+2
Function Call: WRITE	Prompt: ?27,"(updated) ELIG DATE COVERAGE ELIG END" Line Location: L2+3
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: L2+4
Function Call: WRITE	Prompt: !,"1.",?4,$P($G(^DIC(5,AG("STATE"),0)),U,2),?9,$P($G(^AUPNMCD(AGELPTR,0)),U,3) Line Location: L3A+0
Function Call: WRITE	Prompt: ?25,"(",Y,")" Line Location: L3A+4
Function Call: WRITE	Prompt: !!,"3. ","MEDICAID NAME: ",$G(AG("LKPRINT")) Line Location: L3B+13
Function Call: WRITE	Prompt: ?44,"4. ","MED. DATE OF BIRTH: ",AG("LKPRINT") Line Location: L3B+23
Function Call: WRITE	Prompt: !,"5. ","PRIM CARE PROV: ",AG("LKPRINT") Line Location: L3B+26
Function Call: WRITE	Prompt: !,"6. ","GROUP NAME: ",?44,"GROUP NUMBER: " Line Location: L3B+28
Function Call: WRITE	Prompt: !,"7. ","PLAN NAME: ",AG(9000004,DA,.11,"E") Line Location: L3B+33
Function Call: WRITE	Prompt: !,"8. ","RATE CODE: ",AG(9000004,DA,.12,"E") Line Location: L3B+34
Function Call: WRITE	Prompt: !,"9. ","CC ON FILE: ",AG("LKPRINT") Line Location: L3B+38
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: L3B+44
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: L3B+46
Function Call: WRITE	Prompt: *7 Line Location: L4+13
Function Call: WRITE	Prompt: !!!,"The account is deleted.",!,"Press RETURN to continue..." Line Location: DELETE1+15
Routine Call	DIE Line Location: DELETE1+15 UPDATE+4
Routine Call	DIR Line Location: L4+1 DELETE+4 READ+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMCD - [#9000004]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12, DELETE1+13*
^AUPNMCD - [#9000004]	HDR+1, L3, L3A, L3A+1, L3A+2, DELETE1+8, DELETE1+10, DELETE1+12, DELETE1+13, EDIT1+2 , EDIT1+3
^AUPNMCD("AB"	HDR+18, HDR+27
^AUPNPAT - [#9000001]	HDR+13
^DIC(4 - [#4]	HDR+5
^DIC(5 - [#5]	L3A
^XUSEC("AGZMGR"	L4+2, L4+4, L4+7

Label References

Name	Line Occurrences
@(	HDR+25, L4+8
DELETE	L4+7
DELETE1	DELETE+6
EDIT	L4+11
END	OPTION+2, HDR+24, L4+1, L4+9, DELETE+5
HDR	VAR+3
L2	HDR+18
L4	L3+1, L4+12
L6	L4+9, L4+11
READ	L4+6
VAR	HDR+24, HDR+26, HDR+30, L4+13, L6+1

Naked Globals

Name	Field # of Occurrence
^(	DELETE1+9*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DELETE1+2
AG	END+1!
AG("DRENT"	L3B+2, L3B+8
AG("DRENT1"	END+1!
AG("ED"	HDR+25, L4+8
AG("EDIT"	VAR+4, HDR+16!, HDR+28, L4+10, L6*
AG("ERR"	HDR+24
AG("I"	L3B+1*, L3B+2, L3B+6, L3B+8
AG("LKDATA"	END+2!
AG("LKERR"	L3B+1, L3B+4, END+2!
AG("LKPRINT"	L3B+7, L3B+10, L3B+13, L3B+17, L3B+20, L3B+21, L3B+23, L3B+26, L3B+38, L3B+39 , L3B+43, END+2!
AG("MCD"	HDR+17!, EDIT1+1*, EDIT1+2, EDIT1+3, END+3!, UPDATE+1
AG("MNUM"	EDIT1+3*
AG("PG"	VAR+1*
AG("STATE"	L2+1, L3, L3+1, L3A, EDIT1+2*, END+2!
AG("STPTR"	HDR+1*!
AG("SUBSCRPT"	DELETE1, DELETE1+5, DELETE1+7*, DELETE1+10, DELETE1+12, DELETE1+13, DELETE1+14!
AG("TOT"	L2!, L2+1, L3+2, DELETE, DELETE+6
AG(9000004	L3B+33, L3B+34
>> AGADDINS	VAR+3
>> AGCHRT	HDR+11
AGDELETE	VAR+6!, DELETE1+16*
AGDOB	L3B+16, L3B+17, L3B+20, L3B+21, L3B+22!
AGDTS	DELETE1+2*, DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12, DELETE1+13, END+4!
>> AGELPTR	HDR+1, L3, L3A, L3A+1, L3A+2, L3B, L3B+11, L3B+18, L3B+24, L3B+36 , L3B+41, DELETE1+8, DELETE1+10, DELETE1+12, DELETE1+13, DELETE1+15, EDIT1+1
>> AGELSTS	HDR+13*, HDR+14
AGL	L3B+7, END+2!
>> AGLINE("-"	HDR+6*, L2+4, L3B+44
>> AGLINE("EQ"	HDR+7*, HDR+8, HDR+15, L3B+46
AGNUM	END+2!
AGNXTSUB	DELETE1, DELETE1+4, DELETE1+5, DELETE1+6, DELETE1+14!
>> AGOPT(4	OPTION+1, OPTION+2
>> AGPAT	HDR+9
>> AGSEENLY	OPTION+1, VAR+2, HDR+3, HDR+19, L4+1
>> AGTOUT	END*
>> AGXTERN	HDR+25, L4+8, END+5
>> AGZ("I"	DELETE1+4*
D0	HDR+17!
DA	HDR+17!, L3B, L3B+11, L3B+14, L3B+18, L3B+24, L3B+33, L3B+34, L3B+36, L3B+41* , DELETE1+8, DELETE1+11, DELETE1+12, DELETE1+13, DELETE1+15, END+1!, UPDATE+1*, UPDATE+5
>> DFN	HDR+10, HDR+13, HDR+18, HDR+27, L3B+14, DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12 , DELETE1+13, UPDATE+5
DFOUT	VAR+5, HDR+26, L4+10, READ+1!, READ+5*
DIC	L3B, L3B+11, L3B+14, L3B+18, L3B+24, L3B+30, L3B+35, L3B+40, END+1!
>> DIE	DELETE1+15, UPDATE+3
DIQ	L3B+29*, L3B+32!
DIQ(0	L3B+29*
DIR	HDR+17!, HDR+23!, DELETE+5!, EDIT+1!
DIR("A"	HDR+21, L4+3, L4+5, DELETE+1
DIR("B"	DELETE+3*
DIR(0	DELETE+2, READ+2
DIROUT	L4+9, END+6!, READ+1!
DLOUT	VAR+5, HDR+24, L4+9, READ+1!, READ+6*
DQOUT	HDR+26, READ+1!, READ+8*
DR	L3B+2, L3B+8, L3B+11, L3B+14, L3B+18, L3B+24, L3B+30, L3B+36, L3B+41, DELETE1+15 , END+1!, UPDATE+2*
DRENT	END+1!
DT	DELETE1+13, UPDATE+2
DTIME	DELETE1+15
DTOUT	VAR+5, HDR+26, L4+9, END, READ+1!, READ+4
DUOUT	VAR+5, HDR+24, L4+9, END+6!, READ+1!, READ+7*
DUZ	L4+2, L4+4, L4+7
DUZ(2	HDR+5, DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12, DELETE1+13, UPDATE+5
U	HDR+1, HDR+5, HDR+13, L3, L3A, L3A+1, L3A+2, L3B+7, DELETE1+10, DELETE1+12 , DELETE1+13, EDIT1+2, EDIT1+3
>> X	DELETE1+15*
Y	HDR+24, HDR+26, L3A+2, L3A+4, L4+7, L4+9, L4+11, L4+12, DELETE, DELETE+5 , END+4!, READ+5, READ+6, READ+7, READ+8

Customize PDF page

Package: IHS Patient Registration

Routine: AGED5

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: