Routine: AGED13

Information

AGED13 ; IHS/ASDS/EFG - EDIT PAGE 6 - VETERAN'S INFO ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS Patient Registration	6	L11^AG0 (,UPDATE1)^AGED READ^AGED1 ^AGED8 ^AGEDBEA VERIF^AGUTILS
VA Fileman	4	DD^%DT ^DIE $$GET1^DIQ ^DIR

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Patient Registration	4	AGED11 AGED4B AGED8 AGEDBEA

Entry Points

Name	Comments	DBIA/ICR reference
EDIT
NONE	;
DISAB	;RATED DISABILITIES
END
VACARD	;DOES PATIENT HAVE A VALID VA CARD
READ
SVCSEP	;LAST SERVICE SEPARATION DATE
CLMNUM	;CLAIM NUMBER
VET	;VETERAN FIELD
SVCBR	;LAST SERVICE BRANCH FIELD
1	;
VIETSVC	;VIETNAM SERVICE INDICATED
ADD	;EP - ADD A PATIENT
SVCCON	;SERVICE CONNECTED
VAR	;
TOOYUNG(AGDA,X)	;
SVCENT	;LAST SERVICE ENTRY DATE
DRAW	;EP

External References

Name	Field # of Occurrence
DD^%DT	DRAW+21
L11^AG0	ADD+13
^AGED	VAR+6, DRAW+5
UPDATE1^AGED	VAR+33, READ+11, ADD+12
READ^AGED1	VAR+28, READ+5
^AGED8	END+7
^AGEDBEA	END+5
VERIF^AGUTILS	VAR+18, DRAW+28
^DIE	VET+6, VET+12, SVCBR+5, SVCENT+5, SVCSEP+5, VIETSVC+5, SVCCON+5, CLMNUM+5, DISAB+5, VACARD+5 , VACARD+15, VACARD+35, EDIT+3
$$GET1^DIQ	VAR+15, DRAW+13
^DIR	VACARD+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AG,".",?(40-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : " Line Location: VAR+14
Function Call: WRITE	Prompt: AGVETFLD,?50,"Obtained on " Line Location: VAR+16
Function Call: WRITE	Prompt: Y Line Location: VAR+16
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: VAR+17
Function Call: WRITE	Prompt: !!,AGLINE("EQ") Line Location: VAR+19
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+30
Function Call: WRITE	Prompt: !!,AGLINE("EQ") Line Location: READ+2
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: READ+7
Function Call: WRITE	Prompt: *7," Must be VETERAN. Edit #1 first." Line Location: READ+8
Function Call: WRITE	Prompt: !,AG,".",?(40-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : " Line Location: DRAW+12
Function Call: WRITE	Prompt: AGVETFLD,?50,"Obtained on " Line Location: DRAW+14
Function Call: WRITE	Prompt: Y Line Location: DRAW+14
Function Call: WRITE	Prompt: $E(AGVETFLD,1,37),! Line Location: DRAW+16
Function Call: WRITE	Prompt: ?43,$E(AGVETFLD,38,60) Line Location: DRAW+16
Function Call: WRITE	Prompt: AGVETFLD Line Location: DRAW+17
Function Call: WRITE	Prompt: AGVETFLD Line Location: DRAW+19
Function Call: WRITE	Prompt: ?49,"DATE OBTAINED: ",Y Line Location: DRAW+22
Function Call: WRITE	Prompt: ?48,"TOLD HOW TO OBTAIN VA CARD? " Line Location: DRAW+24
Function Call: WRITE	Prompt: "NO" Line Location: DRAW+25
Function Call: WRITE	Prompt: "YES" Line Location: DRAW+26
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: DRAW+27
Function Call: WRITE	Prompt: !!,"This service entry date would make the patient too young for service.",!,"DOB ",Y,!,*7 Line Location: TOOYUNG+3
Routine Call	DIE Line Location: VET+6 VET+12 SVCBR+5 SVCENT+5 SVCSEP+5 VIETSVC+5 SVCCON+5 CLMNUM+5 DISAB+5 VACARD+5 VACARD+15 VACARD+35 EDIT+3
Routine Call	DIR Line Location: VACARD+29

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	VAR+8!, VAR+16, DRAW+6!, DRAW+14, DRAW+20, DRAW+21, DRAW+23, DRAW+25, DRAW+26, VACARD+8 , VACARD+9, VACARD+10, VACARD+18, VACARD+19, VACARD+21, VACARD+22, VACARD+23, VACARD+25, VACARD+26
^DD(	VAR+14, DRAW+12
^DD("DD"	VAR+16, DRAW+14, TOOYUNG+3
^DPT - [#2]	VAR+2, VAR+8!, READ+8, DRAW+6!, TOOYUNG+2, EDIT+1!, EDIT+2, ADD+2, ADD+11
^DPT("APOS"	VAR+8!, DRAW+6!, EDIT+1!, ADD+11!
^UTILITY("DIQ1"	VAR+9!, END!, DRAW+7!

Label References

Name	Line Occurrences
@(	VAR+30, VAR+32, READ+7, READ+10
CLMNUM	ADD+8
DISAB	ADD+9
DRAW	READ
END	VAR+29, READ+6
READ	VAR+2, READ+7, READ+8
SVCBR	ADD+3
SVCCON	ADD+7
SVCENT	ADD+4
SVCSEP	ADD+5
VACARD	VACARD+30, ADD+10
VAR	VAR+30, VAR+34, READ+12
VET	ADD+1
VIETSVC	ADD+6

Naked Globals

Name	Field # of Occurrence
^("VET"	EDIT+1!, ADD+2, ADD+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	VAR+10, VAR+14, END!, DRAW+8, DRAW+12, DRAW+14, DRAW+15, DRAW+18, DRAW+20, DRAW+23
AG("ED"	VAR+30, READ+7
AG("N"	VAR+3, VAR+10, VAR+22, VAR+30, VAR+32, READ+4, READ+7, READ+10, DRAW+1, DRAW+8
AG("PG"	VAR+1, DRAW+3
AG("SEL"	VAR+32, READ+10, EDIT, EDIT+1, EDIT+2
AGDA	TOOYUNG~, TOOYUNG+2
AGI	VAR+32, READ+10, END!
>> AGLINE("-"	VAR+17, DRAW+27
>> AGLINE("EQ"	VAR+19, READ+2
AGSCRN	VAR+11, VAR+12, VAR+13, END!, DRAW+9, DRAW+10, DRAW+11, EDIT, ADD+11!
>> AGSEENLY	VAR+20, READ+1, END+4
AGVETFLD	VAR+15, VAR+16, END!, DRAW+13, DRAW+14, DRAW+15, DRAW+16, DRAW+17, DRAW+18, DRAW+19
>> AGXTERN	VAR+30, READ+7, END+3
AGY	VAR+31, VAR+32, READ+9, READ+10, END!
DA	VAR+4, END!, DRAW+2, VET+3, VET+10, SVCBR+3, SVCENT+3, SVCSEP+3, VIETSVC+3, SVCCON+3* , CLMNUM+3, DISAB+3, VACARD+3, VACARD+13, VACARD+33, EDIT
>> DFN	VAR+2, VAR+4, VAR+8, VAR+15, VAR+16, VAR+33, READ+8, READ+11, DRAW+2, DRAW+6 , DRAW+13, DRAW+14, DRAW+20, DRAW+21, DRAW+23, DRAW+25, DRAW+26, VET+3, VET+10, SVCBR+3 , SVCENT+3, SVCSEP+3, VIETSVC+3, SVCCON+3, CLMNUM+3, DISAB+3, VACARD+3, VACARD+8, VACARD+9, VACARD+10 , VACARD+13, VACARD+18, VACARD+19, VACARD+21, VACARD+22, VACARD+23, VACARD+25, VACARD+26, VACARD+33, EDIT , EDIT+1, EDIT+2, ADD+2, ADD+11, ADD+12
>> DFOUT	VAR+29, READ+6, END+2
DIC	VAR+12, VAR+14, VAR+15, END!, DRAW+10, DRAW+12, DRAW+13, VACARD+37!
DIE	END!, VET+2, VET+9, SVCBR+2, SVCENT+2, SVCSEP+2, VIETSVC+2, SVCCON+2, CLMNUM+2, DISAB+2* , VACARD+2, VACARD+12, VACARD+32, VACARD+37!, EDIT
DIE("NO^"	VET+5*
DIR	VAR+21!, READ+3!, END+5!, END+6!, VACARD+29!
DIR("?"	VAR+23, VAR+24, VAR+25, VAR+26, VAR+27*
DIR("A"	VAR+22, READ+4, VACARD+28*
DIR(0	VACARD+27*
>> DIROUT	VAR+29, READ+6
DLOUT	VAR+29, READ+6, END!
DQOUT	VAR+30, READ+7, END!
DR	VAR+13, VAR+14, VAR+15, END!, DRAW+11, DRAW+12, DRAW+13, VET+4, VET+11, SVCBR+4* , SVCENT+4, SVCSEP+4, VIETSVC+4, SVCCON+4, CLMNUM+4, DISAB+4, VACARD+4, VACARD+14, VACARD+34, EDIT
DTOUT	VAR+29, READ+6, END!
DUOUT	VAR+29, READ+6, END+5, VET+1!, VET+7, SVCBR+1!, SVCBR+6, SVCENT+1!, SVCENT+6, SVCSEP+1! , SVCSEP+6, VIETSVC+1!, VIETSVC+6, SVCCON+1!, SVCCON+6, CLMNUM+1!, CLMNUM+6, DISAB+1!, DISAB+6, VACARD+1~ , VACARD+6, VACARD+11~, VACARD+16, VACARD+31~, VACARD+36*
DUZ(2	VAR+33, READ+11, ADD+12
L	TOOYUNG+1~, TOOYUNG+2*
ROUTID	VAR+5, END+1!, DRAW+4
U	VAR+12, VAR+13, VAR+14, VAR+16, DRAW+10, DRAW+11, DRAW+12, DRAW+14, DRAW+20, DRAW+21 , DRAW+23, DRAW+25, DRAW+26, VACARD+8, VACARD+9, VACARD+10, VACARD+18, VACARD+19, VACARD+21, VACARD+22 , VACARD+23, VACARD+25, VACARD+26, EDIT
X	TOOYUNG~, TOOYUNG+3!
>> Y	VAR+16, VAR+30, VAR+31, READ+7, READ+8, READ+9, DRAW+14, DRAW+21, DRAW+22, VET+7 , SVCBR+6, SVCENT+6, SVCSEP+6, VIETSVC+6, SVCCON+6, CLMNUM+6, DISAB+6, VACARD+6, VACARD+16, VACARD+30 , VACARD+36, TOOYUNG+2, TOOYUNG+3, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9 , ADD+10

Marked Items

Name	Field # of Occurrence
$T(	VAR+5, DRAW+4
$T(@1+AG	VAR+11, DRAW+9

Customize PDF page

Package: IHS Patient Registration

Routine: AGED13

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

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