Routine: AGSAMPG

Package	Total	Call Graph
IHS VA Utilities	1	^XBSITE

Entry Points

Name	Field # of Occurrence
^XBSITE	AGSAMPG+3

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?10,"* GENERATE RANDOM SAMPLE OF PATIENTS *",!! Line Location: AGSAMPG+2
Function Call: WRITE	Prompt: !!,?10,"ENTER SAMPLE SIZE BETWEEN 1 AND 1000 " Line Location: A1+0
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+0
Function Call: WRITE	Prompt: !! Line Location: A1+1
Function Call: WRITE	Prompt: $J(AGV("SEL")+1,5),". ",$J(AGV("TDIG"),2),?18,AGHRN,?28,$P(^DPT(XX,0),U),! Line Location: RES2+13
Function Call: WRITE	Prompt: !!,"NUMBER OF RECORDS EXAMINED = ",$J(AGV("TRY"),5),!!,"NUMBER OF RECORDS SELECTED = ",$J(AGV("SEL"),5) Line Location: B9+0
Function Call: WRITE	Prompt: !,"The USER has not been set - please set it thru the KERNEL " Line Location: NOUSER+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: READ+0
Function Call: READ	Timeout: 5 Variable: Y Line Location: READ+0

Name	Line Occurrences (* Changed, ! Killed)
^AGSAMPLE(	RES2+11, RES2+14*
^AGSAMPLE(0	AGSAMPG+4*
^AUPNPAT - [#9000001]	B0, B0+1, ELIG+2, ELIG+3, ELIG+4, RES+1, RES1+1, RES2+1, RES2+2, RES2+3 , RES2+4, RES2+5
^AUPNPAT(0	A1+1
^AUTTAREA - [#9999999.21]	RES2+4
^AUTTBEN - [#9999999.25]	ELIG+3
^AUTTCOM - [#9999999.05]	RES2+2, RES2+3, RES2+4, RES2+5
^AUTTLOC - [#9999999.06]	RES2+6
^AUTTSU - [#9999999.22]	RES2+5
^AUTTTRI - [#9999999.03]	ELIG+2
^DPT - [#2]	RES2+13, RES2+14

Name	Line Occurrences
A1	A1
B0	B0, B0+1, ELIG+2, ELIG+5, RES+1, RES2, RES2+1, RES2+2, RES2+3, RES2+7 , RES2+11, RES2+15
B9	RES2+9
NOUSER	AGSAMPG+3
READ	A1, READ
RES1	RES1+2
RES2	RES1+1

Name	Field # of Occurrence
AGHRN	B0+1*, RES2+11, RES2+13, RES2+14, B9+1!
AGLEN	B0+1*, B9+1!
AGRANGE	A1+1*, B0, B9+1!
AGS	RES+2, RES1+1, RES1+2, RES2*, RES2+1, RES2+2, RES2+3, RES2+4, RES2+5, RES2+8!
AGS1	RES+2, RES1+2, RES2, RES2+8!
AGSBEN	ELIG+1, ELIG+3, ELIG+5, ELIG+6!
AGSBLOOD	ELIG+1, ELIG+4, ELIG+5, ELIG+6!
AGSLOC	RES+2, RES2+6, RES2+7, RES2+8!
AGSRES	RES+2, RES2+4, RES2+5*, RES2+7, RES2+8!
AGSTRIBE	ELIG+1, ELIG+2, ELIG+5, ELIG+6!
>> AGTMP	AGSAMPG+4*
>> AGV("SEL"	A1+1, RES2+13, RES2+14, RES2+15, B9, B9+1!
>> AGV("SIZE"	A1+1*, RES2+15, B9+1!
>> AGV("SKIP"	A1+1, RES2+9, RES2+10, RES2+12*, B9+1!
>> AGV("TDIG"	B0+1*, RES2+11, RES2+13, RES2+14, B9+1!
>> AGV("TRY"	A1+1, B0, B9, B9+1!
DFOUT	READ!, READ+1*
DLOUT	READ!, READ+1*
DQOUT	READ!, READ+1*
DTIME	READ
DTOUT	READ!*
DUOUT	READ!, READ+1*
DUZ	AGSAMPG+3
DUZ(2	AGSAMPG+3, AGSAMPG+4, B0, B0+1, RES2+6
IOF	AGSAMPG+2
U	A1+1, B0+1, ELIG+2, ELIG+3, ELIG+4, RES2+1, RES2+2, RES2+3, RES2+4, RES2+5 , RES2+6, RES2+13, RES2+14
>> XX	B0*, B0+1, ELIG+2, ELIG+3, ELIG+4, RES+1, RES1+1, RES2+1, RES2+2, RES2+3 , RES2+4, RES2+5, RES2+13, RES2+14
>> Y	A1, A1+1, READ, READ+1