Routine: AGCVT3

Package

Total

Call Graph

^%DT ^DIC WAIT^DICD ^DIE ^DIR

^AGBIC2C $$S^AGVDF

SET^XBSITE

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!! Line Location: START+3
Function Call: WRITE	Prompt: ?31,"* AGCVT3 *",!! Line Location: START+4
Function Call: WRITE	Prompt: "This routine reads thru the PATIENT file, and,",! Line Location: START+5
Function Call: WRITE	Prompt: "if the BIC ELIGIBILITY STATUS does not exist, computes it." Line Location: START+6
Function Call: WRITE	Prompt: !!,"It will take about ",$J(+$P(^AUPNPAT(0),U,4)*(285/1077)/60,5,1)," minutes",! Line Location: START+7
Function Call: WRITE	Prompt: "to run this utility thru your ",$P(^AUPNPAT(0),U,4)," entries.",!! Line Location: START+8
Function Call: WRITE	Prompt: !! Line Location: USER+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Task Number = ",ZTSK,!!,"Press RETURN..." Line Location: DEV+1
Function Call: WRITE	Prompt: !!?25,"AGCVT3 SUCCCESSFULLY COMPLETED",!! Line Location: ENTRY+4
Function Call: WRITE	Prompt: DA Line Location: TEST+4
Routine Call	DIE Line Location: ENTRY+3
Routine Call	DIC Line Location: USER
Routine Call	DIR Line Location: START+13 QUE+5 READ+2
Routine Call	%ZIS Line Location: ENTRY+2 TEST+3

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV
^AUPNPAT - [#9000001]	ENTRY+3, TEST+4
^AUPNPAT(0	START+7, START+8, ENTRY+1, TEST+4
^AUTTLOC - [#9999999.06]	DEV

Name	Field # of Occurrence
^(	ENTRY+3, TEST+4
^(11	ENTRY+3, TEST+4*

Name	Field # of Occurrence
>> %DT	START+2*
AG	DEV+1!
AGHIDA	ENTRY+1, ENTRY+3, END!, TEST+4
AGIO	DEV+1!
AGQIO	DEV+1!
DA	ENTRY+3, END!, TEST+4
>> DFN	ENTRY+3*
DFOUT	START+9!, QUE+1!, READ!, READ+3*
DIC	USER*, FACILITY!, END!
DIC("A"	USER*
DIC(0	USER*
>> DIE	ENTRY+3*
DIR	START+9!, QUE+1!
DIR("A"	START+11, QUE+3
DIR("B"	START+12, QUE+4
DIR(0	START+10, QUE+2, READ+1*
DIROUT	START+9!, QUE+1!
DIRUT	START+9!, QUE+1!
DLOUT	START+9!, QUE+1!, READ!, READ+4*
DQOUT	START+9!, QUE+1!, READ!, READ+6*
DR	ENTRY+3*, END!
DT	START+2*
DTIME	START+1*, DEV+1
DTOUT	START+9!, QUE+1!, QUE+6, READ!
DUOUT	START+9!, QUE+1!, READ!, READ+5*
DUZ	USER*
DUZ(0	FACILITY+1*
DUZ(2	FACILITY*, DEV
DX	ENTRY+2, END!, TEST+3
DY	ENTRY+2, END!, TEST+3
G	DEV+1!
ION	ENTRY+2, TEST+3
>> IOP	ENTRY+2, TEST+3
U	START+7, START+8, DEV, ENTRY+1, ENTRY+3, TEST+4
>> X	START+2*
>> XY	TEST+4
>> Y	START+2, START+14, USER, QUE+6, QUE+7, DEV, DEV+1, READ+3, READ+4, READ+5* , READ+6*
ZTDESC	DEV*, DEV+1!
ZTIO	DEV*, DEV+1!
>> ZTQUEUED	ENTRY+2, ENTRY+4
ZTRTN	DEV*, DEV+1!
ZTSAVE	DEV*, DEV+1!
ZTSK	DEV+1!
ZTUCI	DEV*, DEV+1!

Information

Name	Comments	DBIA/ICR reference
END
FACILITY
READ
DEV
START	;
QUE	;
USER
TEST	;For testing, enter here to set all BIC ELIGIBILITY STATUS and
ENTRY	;EP - TaskMan.