Routine: PXCPTAPI

Information

PXCPTAPI ;ALB/EW - PCE CPT CODE API ; 9/3/99

Source file <PXCPTAPI.m>

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXCECPT PXCPTAPI

Name	Comments	DBIA/ICR reference
PROMPT
GETCODE(PXDFLT,PXCPTDT)	;Read in CPT Code
CPTHLP	;CPT code help text display
CPTMOD(PXIEN,PXMOD,PXHELP)	;Validate selected modifier
VALCPT(PXTEXT,PXCPTDT,PXVAL)	;
MODHLP	;CPT modifier help text display

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter CPT code or partial name for lookup." Line Location: CPTHLP+2
Function Call: WRITE	Prompt: !,"You can only enter a modifier that is valid for the selected CPT code." Line Location: MODHLP+3
Routine Call	DIC Line Location: VALCPT+18
Routine Call	DIR Line Location: PROMPT+6

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	CPTMOD+10, CPTMOD+11
^AUPNVSIT - [#9000010]	CPTMOD+12

Name	Line Occurrences
MODHLP	CPTMOD+14
PROMPT	PROMPT+9

Name	Field # of Occurrence
DIC	VALCPT+13~, VALCPT+15*
DIC("S"	VALCPT+17*
DIC(0	VALCPT+16*
DIR	PROMPT~
DIR("?"	PROMPT+3*
DIR("??"	PROMPT+4*
DIR("A"	PROMPT+2*
DIR("B"	PROMPT+5*
DIR(0	PROMPT+1*
DIRUT	PROMPT~, PROMPT+7, PROMPT+8
DTOUT	PROMPT~, PROMPT+8
DUOUT	PROMPT~, PROMPT+8
>> PXCPT	CPTMOD+10*, CPTMOD+13
PXCPTDT	GETCODE~, VALCPT~
PXDATA	PROMPT~, PROMPT+9, PROMPT+10
PXDFLT	GETCODE~, PROMPT+5
PXHELP	CPTMOD~, MODHLP+2
PXIEN	CPTMOD~, CPTMOD+10, CPTMOD+11
PXMOD	CPTMOD~, CPTMOD+13
PXSTAT	CPTMOD+9~, CPTMOD+13*, CPTMOD+14, CPTMOD+15
PXTEXT	VALCPT~, VALCPT+14, VALCPT+19
PXVAL	VALCPT~, VALCPT+19*
PXVST	CPTMOD+9~, CPTMOD+11*, CPTMOD+12
PXVSTDT	CPTMOD+9~, CPTMOD+12*, CPTMOD+13
U	CPTMOD+10, CPTMOD+11, CPTMOD+12
X	PROMPT~, PROMPT+7, VALCPT+13~, VALCPT+14*
Y	PROMPT~, PROMPT+8, VALCPT+13~, VALCPT+19, VALCPT+20