Routine: AGED10A

Package	Total	Call Graph
IHS Patient Registration	6	(,UPDATE1)^AGED $$CLANG^AGED10B ^AGED11A (EDITCHEK,FETCHERR)^AGEDERR ($$PHRAP,$$PHRHP)^AGPHROPT $$RACE^AGUTL
VA Fileman	4	FILE^DICN (,FILE)^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Patient Registration	2	AGED11A AGEDERR2

Entry Points

Name	Comments	DBIA/ICR reference
DRAW	;EP
PREF	; EP - Edit PREFERRED METHOD prompt
END	;
MTYPE(MIEN)	;EP - EDIT Migrant Worker Type prompt
HTYPE1	;
READ	;EP
HOM	;EP - EDIT Homeless prompts
HOM1	;
MIG	;EP - EDIT Migrant Worker prompts
CMIG(AGPATDFN)	;Return the patients most recent Migrant information
1	;
MTYPE1	;
MIG1	;
KILL
PERM	; EP - Edit GENERIC HEALTH PERMISSION prompt
VAR
CHOM(AGPATDFN)	;Return the patients most recent Homeless information
HTYPE(HIEN)	;EP - EDIT Homeless Type prompt

External References

Name	Field # of Occurrence
^AGED	DRAW+13
UPDATE1^AGED	VAR+41
$$CLANG^AGED10B	DRAW+62, DRAW+69
^AGED11A	END+2
EDITCHEK^AGEDERR	DRAW+135
FETCHERR^AGEDERR	DRAW+133
$$PHRAP^AGPHROPT	DRAW+120
$$PHRHP^AGPHROPT	DRAW+121
$$RACE^AGUTL	DRAW+53
FILE^DICN	MIG1+24, HOM1+24
^DIE	MTYPE1+10, HTYPE1+9, PERM+6, PREF+8
FILE^DIE	MIG1+28, HOM1+28
$$GET1^DIQ	DRAW+46, DRAW+98, DRAW+102, DRAW+110, DRAW+113, DRAW+116, DRAW+126, DRAW+128, MTYPE1+5, MTYPE1+13 , CMIG+8, CMIG+9, CMIG+10, CMIG+11, HTYPE1+4, HTYPE1+12, CHOM+8, CHOM+9, CHOM+10, CHOM+11
^DIR	READ+7, MIG1+10, HOM1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+13
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: VAR+20
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("E") Line Location: VAR+35
Function Call: WRITE	Prompt: !!,"Invalid entry - Enter a line number or line numbers separated by a ',' to edit" Line Location: VAR+38
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+24
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+25
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+26
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+27
Function Call: WRITE	Prompt: ?38,CLLST,". ",LBL,": " Line Location: DRAW+36
Function Call: WRITE	Prompt: !,CLLST,". ",LBL,$E(DOTS,1,22-$L(LBL)),": " Line Location: DRAW+37
Function Call: WRITE	Prompt: ?38,CLLST,". ",LBL,": " Line Location: DRAW+39
Function Call: WRITE	Prompt: !,CLLST,". ",LBL,$S(AG=11:"",1:$E(DOTS,1,22-$L(LBL))),": " Line Location: DRAW+40
Function Call: WRITE	Prompt: $E($G(ETHNIC),1,25) Line Location: DRAW+47
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,DFN,DR) Line Location: DRAW+51
Function Call: WRITE	Prompt: $S(+RACE>1:"MORE THAN ONE RACE",1:$P(RACE,"^",2)) Line Location: DRAW+56
Function Call: WRITE	Prompt: $E($P($P(LNG,U,2),":",2),1,21) Line Location: DRAW+63
Function Call: WRITE	Prompt: ?50,"Interpreter required? ",$P($P(LNG,U,3),":",2) Line Location: DRAW+65
Function Call: WRITE	Prompt: !,?5,"Other languages spoken: ",$P(LNG,U,5) Line Location: DRAW+66
Function Call: WRITE	Prompt: $P($P($$CLANG^AGED10B(AGPATDFN),U,4),":",2) Line Location: DRAW+69
Function Call: WRITE	Prompt: $P($P(MIG,U,3),":",2) Line Location: DRAW+75
Function Call: WRITE	Prompt: ?32,"Type: ",$E($P($P(MIG,U,4),":",2),1,23) Line Location: DRAW+76
Function Call: WRITE	Prompt: ?63 Line Location: DRAW+77
Function Call: WRITE	Prompt: $J("(upd "_UPD_")",17) Condition for execution: UPD]"" Line Location: DRAW+77
Function Call: WRITE	Prompt: $P($P(HOM,U,3),":",2) Line Location: DRAW+83
Function Call: WRITE	Prompt: ?32,"Type: ",$E($P($P(HOM,U,4),":",2),1,23) Line Location: DRAW+84
Function Call: WRITE	Prompt: ?63 Line Location: DRAW+85
Function Call: WRITE	Prompt: $J("(upd "_UPD_")",17) Condition for execution: UPD]"" Line Location: DRAW+85
Function Call: WRITE	Prompt: ?25,ACCESS Line Location: DRAW+105
Function Call: WRITE	Prompt: ?32,"Where: ",$E(WHERE,1,23) Line Location: DRAW+106
Function Call: WRITE	Prompt: ?63 Line Location: DRAW+107
Function Call: WRITE	Prompt: $J("(upd "_LSTUPD_")",17) Condition for execution: LSTUPD]"" Line Location: DRAW+107
Function Call: WRITE	Prompt: $$GET1^DIQ(9000001,DFN_",",1802) Line Location: DRAW+110
Function Call: WRITE	Prompt: $$GET1^DIQ(9000001,DFN_",",4001) Line Location: DRAW+113
Function Call: WRITE	Prompt: $$GET1^DIQ(9000001,DFN_",",4002) Line Location: DRAW+116
Function Call: WRITE	Prompt: $$PHRAP^AGPHROPT(DFN) Line Location: DRAW+120
Function Call: WRITE	Prompt: $$PHRHP^AGPHROPT(DFN) Line Location: DRAW+121
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,DFN_",",DR,"E") Line Location: DRAW+125
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,DFN_",",DR,"E") Line Location: DRAW+126
Function Call: WRITE	Prompt: ?40,"/ ",$$GET1^DIQ(9000001,DFN_",",8701,"E") Line Location: DRAW+127
Function Call: WRITE	Prompt: ?40,"/ ",$$GET1^DIQ(9000001,DFN_",",8701,"E") Line Location: DRAW+128
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+130
Function Call: WRITE	Prompt: *7,!!,"Use only pages 1 through 10." Line Location: READ+18
Function Call: WRITE	Prompt: "?? Required" Line Location: MIG1+15
Function Call: WRITE	Prompt: "?? Required" Line Location: MTYPE1+15
Function Call: WRITE	Prompt: "?? Required" Line Location: HOM1+15
Function Call: WRITE	Prompt: "?? Required" Line Location: HTYPE1+14
Routine Call	DIE Line Location: MTYPE1+10 HTYPE1+9 PERM+6 PREF+8
Routine Call	DIE Line Location: MIG1+28 HOM1+28
Routine Call	DIR Line Location: READ+7 MIG1+10 HOM1+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
2.06	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
9000001.81	GET1^DIQ
9000001.811	GET1^DIQ
9000001.84	GET1^DIQ
9000001.85	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DRAW+94, DRAW+96, DRAW+101, MIG1+23, CMIG+5, CMIG+6, HOM1+23, CHOM+5, CHOM+6
^DD("DD"	DRAW+104, CMIG+7, CHOM+7
^DPT - [#2]	DRAW+45

Label References

Name	Line Occurrences
$$CHOM	DRAW+82, HOM1+4
$$CMIG	DRAW+74, MIG1+4
@(	VAR+32, VAR+40
DRAW	VAR+7
END	VAR+23, VAR+26
HOM1	HOM1+31
HTYPE	HOM1+34
HTYPE1	HTYPE1+13
KILL	VAR+19, VAR+29, VAR+32, VAR+35, VAR+42, END+1, END+2, END+3
MIG1	MIG1+31
MTYPE	MIG1+34
MTYPE1	MTYPE1+14
READ	VAR+18
VAR	VAR+19, VAR+29, VAR+35, VAR+38, VAR+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCESS	DRAW+89~, DRAW+90, DRAW+98, DRAW+105
AG	VAR~, KILL!, DRAW+15*, DRAW+24, DRAW+25, DRAW+27, DRAW+30, DRAW+31, DRAW+32, DRAW+34 , DRAW+39, DRAW+40, DRAW+44, DRAW+52, DRAW+60, DRAW+69, DRAW+72, DRAW+80, DRAW+88, DRAW+110 , DRAW+113, DRAW+116, DRAW+120, DRAW+121, DRAW+126, DRAW+128
AG("E"	VAR+18, VAR+35, VAR+39, DRAW+8, DRAW+9, DRAW+10*
AG("ED"	VAR+32, READ+16, READ+17, READ+20!, READ+22, READ+23, READ+24, READ+25, READ+26, READ+27 , READ+28, READ+29, READ+30*
AG("ER"	VAR+15!
AG("ERR"	VAR+29, READ+21*
AG("N"	DRAW+6*, DRAW+15
AG("PG"	DRAW+4*, DRAW+133
AG("SEL"	VAR+39*, VAR+40
AGI	VAR~, VAR+39*, KILL!
>> AGLINE("-"	DRAW+24, DRAW+25, DRAW+27, DRAW+130
>> AGLINE("EQ"	VAR+13
>> AGOPT("ESCAPE"	VAR+19, VAR+23
>> AGOPT(22	DRAW+8, DRAW+27, DRAW+30, DRAW+126, DRAW+128
>> AGOPT(26	DRAW+9, DRAW+24, DRAW+31, DRAW+72
>> AGOPT(27	DRAW+10, DRAW+24, DRAW+32, DRAW+80
AGPATDFN	DRAW+62, DRAW+69, DRAW+74, DRAW+82, MIG1+4, MIG1+19, MIG1+23, MIG1+25, MTYPE1+5, MTYPE1+7 , MTYPE1+13, CMIG~, CMIG+5, CMIG+6, CMIG+8, CMIG+9, CMIG+10, CMIG+11, HOM1+4, HOM1+19 , HOM1+23, HOM1+25, HTYPE1+4, HTYPE1+6, HTYPE1+12, CHOM~, CHOM+5, CHOM+6, CHOM+8, CHOM+9 , CHOM+10, CHOM+11
AGSCRN	DRAW+17~, DRAW+18*, DRAW+19, DRAW+20, DRAW+21
>> AGSEENLY	VAR+10
>> AGSELECT	DRAW+134
>> AGXTERN	VAR+32, END+1
AGY	VAR~, VAR+36*, VAR+38, VAR+39, KILL!
AHOM	HOM1+1~, HOM1+31!
AHOM(	HOM1+26, HOM1+27
AMIG	MIG1+1~, MIG1+31!
AMIG(	MIG1+26, MIG1+27
CALLS	DRAW+1~, DRAW+3*, DRAW+34
CHTYP	HTYPE1+1~, HTYPE1+4*, HTYPE1+13!
CLLST	VAR~, KILL!, DRAW+11, DRAW+34, DRAW+39, DRAW+40
CLLST(	VAR+40, DRAW+34*
CMTYP	MTYPE1+2~, MTYPE1+5*, MTYPE1+14!
DA	MIG1+1~, MIG1+25, MIG1+26, MIG1+27, MIG1+31!, MTYPE1+2~, MTYPE1+8, MTYPE1+14!, HOM1+1~, HOM1+25* , HOM1+26, HOM1+27, HOM1+31!, HTYPE1+1~, HTYPE1+7, HTYPE1+13!, PERM+2~, PERM+4, PREF+2~, PREF+4*
DA(1	MIG1+19, MIG1+25, MIG1+26, MIG1+27, HOM1+19, HOM1+25, HOM1+26, HOM1+27
DD	MIG1+24!, HOM1+24!
DEF	MIG1+1~, MIG1+4, MIG1+5, MIG1+6, MIG1+7, MIG1+16, MIG1+31!, HOM1+4, HOM1+5, HOM1+6* , HOM1+7, HOM1+16, HOM1+31*
>> DFN	VAR+41, DRAW+45, DRAW+46, DRAW+53, DRAW+94, DRAW+96, DRAW+98, DRAW+101, DRAW+102, DRAW+110 , DRAW+113, DRAW+116, DRAW+120, DRAW+121, DRAW+126, DRAW+128, DRAW+134, PERM+4, PREF+4
DFOUT	VAR~, VAR+26, END+1, KILL!, READ+9*
DIC	DRAW+17~, DRAW+20, DRAW+126, MIG1+1~, MIG1+19, MIG1+31!, HOM1+1~, HOM1+19*, HOM1+31!
DIC("P"	MIG1+22, HOM1+22
DIC(0	MIG1+20, HOM1+20
DIE	MTYPE1+2~, MTYPE1+7, MTYPE1+14!, HTYPE1+1~, HTYPE1+6, HTYPE1+13!, PERM+2~, PERM+3, PREF+2~, PREF+3
DIR	VAR~, VAR+18!, KILL!, MIG1+1~, MIG1+31!, HOM1+1~, HOM1+31!
DIR("?"	READ+1, READ+2, READ+3, READ+4, READ+5*
DIR("A"	VAR+18, MIG1+10, HOM1+10*
DIR("B"	MIG1+7, HOM1+7
DIR(0	READ+6, MIG1+9, HOM1+9*
DIROUT	VAR~, VAR+23*, VAR+26, END+1, KILL!, MIG1+11, HOM1+11
DIRUT	VAR~, KILL!
DLAYGO	MIG1+1~, MIG1+22, MIG1+31!, HOM1+1~, HOM1+22, HOM1+31!
DLOUT	VAR~, VAR+26, KILL!, READ+10*
DO	MIG1+24!, HOM1+24!
DOTS	VAR~, VAR+4*, KILL!, DRAW+40
DQOUT	VAR~, VAR+35, KILL!, READ+12*
DR	DRAW+17~, DRAW+21, DRAW+126, MTYPE1+2~, MTYPE1+9, MTYPE1+14!, HTYPE1+1~, HTYPE1+8, HTYPE1+13!, PERM+2~ , PERM+5, PREF+2~, PREF+7*
DT	MIG1+21, HOM1+21
DTOUT	VAR~, VAR+26, END+1, KILL!, READ+8, MIG1+11, MTYPE1+2~, MTYPE1+11, MTYPE1+14!, HOM1+11 , HTYPE1+1~, HTYPE1+10, HTYPE1+13!
DUOUT	VAR~, VAR+26, END+2, KILL!, READ+11*, MIG1+11, HOM1+11
DUZ(2	VAR+41, DRAW+134
ERROR	MIG1+1~, MIG1+31!, HOM1+1~, HOM1+31!
ETHNIC	DRAW+45~, DRAW+46, DRAW+47
HDT	CHOM+2~, CHOM+4, CHOM+5, CHOM+6, CHOM+7, CHOM+13
HDTX	CHOM+2~, CHOM+4, CHOM+7, CHOM+13
HIEN	HOM1+1~, HOM1+25, HOM1+31!, HOM1+34, HTYPE~, HTYPE1+4, HTYPE1+7, HTYPE1+12, CHOM+2~, CHOM+4 , CHOM+6*, CHOM+8, CHOM+9, CHOM+10, CHOM+11, CHOM+13
HOM	DRAW+81~, DRAW+82, DRAW+83, DRAW+84, DRAW+85, HOM1+1~, HOM1+12, HOM1+16, HOM1+26, HOM1+27 , HOM1+31!, HOM1+34
HSTS	CHOM+2~, CHOM+4, CHOM+8, CHOM+13
HSTSX	CHOM+2~, CHOM+4, CHOM+10, CHOM+13
HTYP	HOM1+1~, HOM1+5, HOM1+27, HOM1+31!, HTYPE1+1~, HTYPE1+12, HTYPE1+13!, CHOM+2~, CHOM+4, CHOM+9 , CHOM+13
HTYPX	CHOM+2~, CHOM+4, CHOM+11, CHOM+13
LBL	DRAW+17~, DRAW+19*, DRAW+39, DRAW+40
LNG	DRAW+61~, DRAW+62*, DRAW+63, DRAW+65, DRAW+66
LSTREC	DRAW+89~, DRAW+96*, DRAW+97, DRAW+98, DRAW+101, DRAW+102
LSTUPD	DRAW+89~, DRAW+90, DRAW+94, DRAW+95, DRAW+96, DRAW+104*, DRAW+107
MDT	CMIG+2~, CMIG+4, CMIG+5, CMIG+6, CMIG+7, CMIG+13
MDTX	CMIG+2~, CMIG+4, CMIG+7, CMIG+13
MIEN	MIG1+1~, MIG1+25, MIG1+31!, MIG1+34, MTYPE~, MTYPE1+5, MTYPE1+8, MTYPE1+13, CMIG+2~, CMIG+4 , CMIG+6*, CMIG+8, CMIG+9, CMIG+10, CMIG+11, CMIG+13
MIG	DRAW+73~, DRAW+74, DRAW+75, DRAW+76, DRAW+77, MIG1+1~, MIG1+12, MIG1+16, MIG1+26, MIG1+27 , MIG1+31!, MIG1+34
MSTS	CMIG+2~, CMIG+4, CMIG+8, CMIG+13
MSTSX	CMIG+2~, CMIG+4, CMIG+10, CMIG+13
MTYP	MIG1+1~, MIG1+5, MIG1+27, MIG1+31!, MTYPE1+2~, MTYPE1+13, MTYPE1+14!, CMIG+2~, CMIG+4, CMIG+9 , CMIG+13
MTYPX	CMIG+2~, CMIG+4, CMIG+11, CMIG+13
MYERRS	VAR~, KILL!, DRAW+133, DRAW+135
MYERRS("C"	VAR+19
MYVARS	VAR~, KILL!, DRAW+135
MYVARS("DFN"	DRAW+134*
MYVARS("FINDCALL"	DRAW+134*
MYVARS("SELECTION"	DRAW+134*
MYVARS("SITE"	DRAW+134*
OLNG	DRAW+61~, DRAW+62
PAGE	VAR+32~*!
RACE	DRAW+53~*, DRAW+54, DRAW+56
ROUTID	VAR~, VAR+3*, KILL!
U	DRAW+19, DRAW+20, DRAW+21, DRAW+63, DRAW+65, DRAW+66, DRAW+69, DRAW+75, DRAW+76, DRAW+77 , DRAW+83, DRAW+84, DRAW+85, MIG1+5, MIG1+6, CMIG+13, HOM1+5, HOM1+6, CHOM+13
UPD	DRAW+73~, DRAW+77, DRAW+81~, DRAW+85
WHERE	DRAW+89~, DRAW+90, DRAW+101, DRAW+102*, DRAW+106
WIEN	DRAW+89~, DRAW+101*, DRAW+102
X	MIG1+1~, MIG1+21, MIG1+31!, HOM1+1~, HOM1+21, HOM1+31!
Y	VAR~, VAR+19, VAR+23, VAR+26, VAR+35, VAR+36, KILL!, DRAW+89~, DRAW+104, READ+9 , READ+10, READ+11, READ+12, READ+13, READ+14, READ+15, READ+16, MIG1+1~, MIG1+12, MIG1+25 , MIG1+31!, MTYPE1+2~, MTYPE1+11, MTYPE1+14!, CMIG+2~, CMIG+7, HOM1+1~, HOM1+12, HOM1+25, HOM1+31! , HTYPE1+1~, HTYPE1+10, HTYPE1+13!, CHOM+2~, CHOM+7

Customize PDF page

Package: IHS Patient Registration

Routine: AGED10A

Information

Source Information

Call Graph

Call Graph Total: 10

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

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	VAR+3
$T(@1+AG	DRAW+18