Routine: ATXRCH

Information

ATXRCH ; IHS/OHPRD/TMJ - SEARCH TEMPLATE PT FILE W/ PAT TAX NAMES ;

Source file <ATXRCH.m>

Package	Total	Call Graph
VA Fileman	2	^DIC DT^DICRW
Taxonomy	1	SORTEMP^ATXPVT

Name	Comments	DBIA/ICR reference
A
ZTM	;ENTRY POINT FOR TASKMAN
DATE	;GET DATE FOR LINE USER+2
HELP	;
EOJ	;
SEARCH	;CREATES RESULT NODES AND SPECIFICATION NODES IN ^DIBT(ATXTMP,
START	;
USER	;INFORMS USER AS TO WHERE ENTRIES COMING FROM
ASK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Taxonomy currently",^(+Y)," Try later.",! Line Location: START+3
Function Call: WRITE	Prompt: !!,"Select, by number, one of the following: ",!!,1," " Line Location: ASK+0
Function Call: WRITE	Prompt: !,2," " Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Either select option one and a template will be automatically created or",!,"select option two and you will be able to enter a range of visit dates during",!,"which time patients who fall within the selected taxonomy were seen." Line Location: HELP+2
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: SEARCH+3
Routine Call	DIC Line Location: START+1

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

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	DATE+1
^ATXPAT - [#9002227]	START+4, SEARCH+2
^DD("DD"	DATE+1
^DIBT(	SEARCH+2, SEARCH+3, SEARCH+4
^TMP("ATXTAX"	START+3

Name	Field # of Occurrence
^(	START+3

Name	Field # of Occurrence
ATXCNT	SEARCH+1, SEARCH+2, SEARCH+3, SEARCH+4, EOJ+1!
ATXDATE	DATE+2*, EOJ+1!
ATXDFN	SEARCH+1, SEARCH+2, EOJ+1!
ATXFIL	ATXRCH+3*, EOJ+1!
ATXHI	EOJ+1!
ATXL	ATXRCH+5, SEARCH+2, EOJ+1!
ATXLO	EOJ+1!
ATXLOV	EOJ+1!
ATXO	EOJ+1!
ATXONE	USER+1*, ASK, EOJ+1!
ATXPAT	ATXRCH+6, START+4, START+6, ASK+2, EOJ+1!
ATXPCK	ASK*, ASK+1, ASK+2, ASK+3, ASK+4, EOJ+1!
ATXPV	EOJ+1!
ATXTMP	SEARCH+2, SEARCH+3, SEARCH+4, EOJ+1!
ATXTP	ATXRCH+5, ATXRCH+6, START+2, ASK+1, EOJ+1!
ATXTSK	ATXRCH+3*, ATXRCH+6, SEARCH+2, EOJ+1!
ATXTWO	USER+2*, ASK, EOJ+1!
ATXX	START+5*, DATE+1, SEARCH+2, EOJ+1!
ATXY	EOJ+1!
DIC	START+1*!
DIC("DR"	START+1*
DIC(0	START+1*
DTIME	ASK
IOF	HELP+1
U	ATXRCH+3*, DATE+1, SEARCH+3
>> Y	ATXRCH+5, START+2, START+3, START+4, START+5, DATE+1, DATE+2
>> ZTQUEUED	ZTM+2
>> ZTREQ	ZTM+2*