Routine: LEXQCPA

Information

LEXQCPA ;ISL/KER - Query - CPT Procedures - Ask ;04/21/2014

Source file <LEXQCPA.m>

Package	Total	Caller Graph
Lexicon Utility	1	LEXQCP

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CPT+2
Function Call: WRITE	Prompt: ! Line Location: INC+4
Function Call: WRITE	Prompt: !,?5,"Answer 'Yes' to include active CPT Modifiers that are appropriate for" Line Location: INCH+2
Function Call: WRITE	Prompt: !,?5,"CPT code ",$P($G(LEXCPT),"^",2)," on ",$$SD($G(LEXCDT)) Line Location: INCH+3
Function Call: WRITE	Prompt: !,?5,"Answer 'Yes' to include active CPT Modifiers that are appropriate" Line Location: INCH+4
Function Call: WRITE	Prompt: !,?5,"for the CPT code, 'No' to exclude CPT Modifiers from the display" Line Location: INCH+5
Routine Call	DIC Line Location: CPT+3
Routine Call	DIR Line Location: INC+4

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls

Name	Line Occurrences
$$SD	INCH+3

Name	Field # of Occurrence
DIC	CPT+1~, CPT+2*
DIC("A"	CPT+2*
DIC(0	CPT+2*
DIR	INC+1~
DIR("?"	INC+3*
DIR("??"	INC+3*
DIR("A"	INC+2*
DIR("B"	INC+2*
DIR("PRE"	INC+3*
DIR(0	INC+2*
DIRB	INC+1~, INC+2, INC+4, INC+5
DIROUT	INC+1~, INC+4
DIRUT	INC+1~, INC+4
DTOUT	CPT+1~, CPT+3, CPT+4, INC+1~, INC+4
DUOUT	CPT+1~, CPT+4, INC+1~, INC+4
DUZ	INC+1, INC+5
ICPTVDT	CPT+1~*
LEXCDT	CPT+1, CPT+5, INCH+1, INCH+3, CLR+1~
LEXCP	CPT+1~, CPT+5*, CPT+6
LEXCPT	INCH+1, INCH+3, CLR+1~
LEXDTXT	CPT+1~, CPT+5, CPT+6
LEXEXIT	CPT+1, CPT+3, INC+1, INC+4, CLR+1~
LEXSO	CPT+1~, CPT+4*, CPT+5, CPT+7
LEXVDT	CPT+1~, CPT+5*
LEXVTXT	CPT+1~, CPT+6*, CPT+7
X	CPT~, CPT+3, CPT+4, CPT+5, CPT+7, CPT+8, CPT+9, INC~, INC+4, INC+5* , INC+6, SD~, SD+1
Y	CPT+1~, CPT+4, CPT+5, CPT+7, INC+1~, INC+4, INC+5
Y(0	CPT+5