Routine: ATXPVT

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC YN^DICN DT^DICRW ^DIE
Taxonomy	1	^ATXTSK

Package	Total	Caller Graph
Taxonomy	1	ATXRCH

Entry Points

Name	Comments	DBIA/ICR reference
A
ZTM	;ENTRY POINT FOR TASKMAN
DATES	;ENTER RANGE OF VISIT DATES
PAT	;CREATES NODES FOR LINKAGE TO V POV FILE
DFNS	;GET LO AND HIGH DFNS FOR THIS TAXONOMY
POV	;CREATES NODES FOR LINKAGE TO V POV FILE
EOJ	;
GETVAL	;GET RANGE OF DFNS
LOOP	;GET DFNS FROM V POV FILE FOR THIS ICD CODE DFN
START	;
SORTEMP	; ENTRY POINT - CREATES SORT TEMPLATE
TEST	;SEE IF USER HATTED OUT OF [ATXDEL]
ASKED
ASKBD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Taxonomy currently",^(+Y)," Try later.",! Line Location: START+3
Function Call: WRITE	Prompt: !,$C(7),"No ICD codes entered in this taxonomy!" Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: SORTEMP+1
Function Call: WRITE	Prompt: !!,$C(7),"You cannot store results in a template used only for sort purposes." Line Location: SORTEMP+3
Function Call: WRITE	Prompt: !!,$C(7),"Results already stored in this template. Do you want to have",!,"the stored data deleted" Line Location: SORTEMP+5
Function Call: WRITE	Prompt: !!,"Enter a range of visit dates from which to extract entries:" Line Location: DATES+1
Function Call: WRITE	Prompt: !,"Beginning and ending dates must be prior to today, and beginning date",!,"must precede ending date.",! Line Location: ASKED+1
Function Call: WRITE	Prompt: !!,"There ",$S(ATXCNT'=1:"were ",1:"was "),ATXCNT,$S(ATXCNT'=1:" entries",1:" entry")," in the ",$P(^DIBT(ATXTMP,0),U)," template." Line Location: DFNS+3
Routine Call	DIE Line Location: SORTEMP+8
Routine Call	DIC Line Location: START+1 SORTEMP+1

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	START+4, DFNS+1
^AUPNVPOV - [#9000010.07]	LOOP+4, PAT+2
^AUPNVPOV("AD"	LOOP+4
^AUPNVSIT("B"	LOOP+4
^DIBT(	SORTEMP+3, SORTEMP+4, SORTEMP+5, SORTEMP+6, TEST+2!, DFNS+2, DFNS+3, DFNS+4, POV+2, PAT+2*
^ICD9("BA"	GETVAL+2, GETVAL+4
^TMP("ATXSEARCH"	DFNS+5!, GETVAL+1!, GETVAL+2*, LOOP+4
^TMP("ATXTAX"	START+3

Name	Field # of Occurrence
%	SORTEMP+5, SORTEMP+6, SORTEMP+7, SORTEMP+8, EOJ+2!
%DT	ASKBD, ASKED, EOJ+2!
%DT("A"	ASKBD, ASKED
ATXBDT	ASKBD*, ASKED+1, LOOP+3, EOJ+1!
ATXCNT	DFNS+2*, DFNS+3, DFNS+4, EOJ+1!
ATXDFN	GETVAL+2, GETVAL+4, EOJ+1!
ATXDOLO	DFNS+2*, EOJ+1!
ATXDTE	EOJ+1!
ATXEDT	ASKED*, ASKED+1, LOOP+4, EOJ+1!
ATXFIL	ATXPVT+4*, EOJ+1!
ATXHI	EOJ+1!
>> ATXHIV	DFNS+1*, GETVAL+3, GETVAL+4
ATXL	ATXPVT+6, DFNS+1, GETVAL+4, LOOP+4, EOJ+1!
ATXLO	EOJ+1!
ATXLOV	DFNS+1, GETVAL+2, GETVAL+3, GETVAL+4, EOJ+1!
>> ATXPAT	DFNS+6, LOOP+4, PAT+2*
ATXPV	LOOP+2, LOOP+4, POV+2, PAT+2, EOJ+1!
ATXSS	DFNS+1*, EOJ+1!
ATXSTP	EOJ+1!
ATXTMP	SORTEMP+2*, SORTEMP+3, SORTEMP+4, SORTEMP+5, SORTEMP+6, SORTEMP+8, TEST+2, DFNS+2, DFNS+3, DFNS+4 , POV+2, PAT+2, EOJ+1!
ATXTP	ATXPVT+6, ATXPVT+7, START+2, SORTEMP+1, ASKED+3, EOJ+1!
ATXTSK	ASKED+3, POV+1, PAT+1, EOJ+1!
ATXVDFN	LOOP+4*, EOJ+1!
>> ATXVIS	LOOP+3, LOOP+4
ATXX	START+5*, DFNS+1, EOJ+1!
ATXY	TEST+1!
>> DA	SORTEMP+8*
DIC	START+1!, SORTEMP+1!
DIC("A"	SORTEMP+1*
DIC("DR"	START+1, SORTEMP+1
DIC("S"	SORTEMP+1*
DIC(0	START+1, SORTEMP+1
DIE	SORTEMP+8*!
>> DLAYGO	SORTEMP+1*
>> DR	SORTEMP+8*
DT	ASKED+1
>> L	DFNS+2*
U	ATXPVT+4*, ASKBD, ASKED, DFNS+1, DFNS+3, PAT+2
>> X	ASKBD, ASKED
>> Y	ATXPVT+6, START+2, START+3, START+4, START+5, SORTEMP+1, SORTEMP+2, SORTEMP+3, SORTEMP+7, SORTEMP+9 , TEST+1, TEST+2, ASKBD, ASKED
>> ZTQUEUED	ZTM+2
>> ZTREQ	ZTM+2*