Routine: PXRMTXCS

Information

PXRMTXCS ; SLC/PKR - Taxonomy code search routines. ;07/24/2013

Source file <PXRMTXCS.m>

Package	Total	Call Graph
Clinical Reminders	1	($$GETCSYS,$$VCODE,CODESYSL)^PXRMLEX
Lexicon Utility	1	$$CSYS^LEXU
VA Fileman	1	^DIR

Package	Total	Caller Graph
Clinical Reminders	1	PXRMTAXL

Name	Comments	DBIA/ICR reference
GCODE
CSEARCH(CODESYS,CODE,NFOUND,TAXLIST)	; Search all taxonomies to see if they
SEARCH	; Let the user input a code then search all taxonomies to determine

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GCODE+0
Function Call: WRITE	Prompt: !,CODE," is not a valid code, try again." Line Location: GCODE+6
Function Call: WRITE	Prompt: !,"Searching for ",CODESYSP," code ",CODE Line Location: GCODE+10
Function Call: WRITE	Prompt: !,CODE," is not used in any taxonomies." Line Location: GCODE+12
Function Call: WRITE	Prompt: !,CODESYSP," ",CODE," is used in the following taxonomies:" Line Location: GCODE+13
Function Call: WRITE	Prompt: !," ",TAX Line Location: GCODE+15
Routine Call	DIR Line Location: GCODE+1

Name	Line Occurrences (* Changed, ! Killed)
^PXD(811.2 - [#811.2]	CSEARCH+5, CSEARCH+6, CSEARCH+7

Name	Line Occurrences
CSEARCH	GCODE+11
GCODE	GCODE+6, GCODE+12, GCODE+16

Name	Field # of Occurrence
CODE	CSEARCH~, CSEARCH+7, SEARCH+2~, GCODE+3*, GCODE+5, GCODE+6, GCODE+7, GCODE+10, GCODE+11, GCODE+12 , GCODE+13
CODESYS	CSEARCH~, CSEARCH+7, SEARCH+2~, GCODE+7*, GCODE+9, GCODE+11
CODESYSL	SEARCH+2~, SEARCH+4
CODESYSP	SEARCH+2~, GCODE+9*, GCODE+10, GCODE+13
DATA	SEARCH+2~
DIR	SEARCH+2~
DIR("A"	SEARCH+6*
DIR(0	SEARCH+5*
DIRUT	SEARCH+2~, GCODE+2
DTOUT	SEARCH+2~
DUOUT	SEARCH+2~
IEN	CSEARCH+2~, CSEARCH+6*, CSEARCH+7
NAME	CSEARCH+2~, CSEARCH+4, CSEARCH+5, CSEARCH+6, CSEARCH+7
NFOUND	CSEARCH~, CSEARCH+4, CSEARCH+7, SEARCH+2~, GCODE+11, GCODE+12
RESULT	SEARCH+3~
TAX	SEARCH+3~, GCODE+14, GCODE+15
TAXLIST	CSEARCH~, CSEARCH+3!, SEARCH+3~, GCODE+11
TAXLIST(	CSEARCH+7*, GCODE+15
U	GCODE+9
VALID	SEARCH+3~, GCODE+5*, GCODE+6
Y	SEARCH+3~, GCODE+3