Routine: ACPT28PD

Package	Total	Call Graph
Kernel	4	^%ZISC ($$STATUS,OPEN)^%ZISH $$UP^XLFSTR MES^XPDUTL
CPT Files	1	CLEAN^ACPT28P1

Package	Total	Caller Graph
CPT Files	1	ACPT28PA

Entry Points

Name	Comments	DBIA/ICR reference
MSG	; messages to display
TEXT(ACPTLONG)	; convert Long Description text to Word-Processing data type
T(TAG)
CLEAN(ACPTDESC,ACPTUP)	; clean up description field
LOADMOD	;load HCPCS modifiers from AMA HCPCS Modifiers file

Name	Line Occurrences (* Changed, ! Killed)
^AUTTCMOD - [#9999999.88]	LOADMOD+26, LOADMOD+32, LOADMOD+34, LOADMOD+36, LOADMOD+41!, LOADMOD+42*
^AUTTCMOD("B"	LOADMOD+23, LOADMOD+27*

Name	Field # of Occurrence
ACPTBRK	TEXT+13~, TEXT+18, TEXT+20, TEXT+23, TEXT+26, TEXT+28, TEXT+30*, TEXT+33, TEXT+34
ACPTCLN	CLEAN+8~, CLEAN+12, CLEAN+13*, CLEAN+16, CLEAN+18
ACPTCNT	LOADMOD+13~, LOADMOD+14, LOADMOD+44, TEXT+9~, TEXT+32*, TEXT+33, TEXT+36
ACPTCODE	LOADMOD+19~, LOADMOD+20*, LOADMOD+23, LOADMOD+25, LOADMOD+26, LOADMOD+27, LOADMOD+33
ACPTDESC	LOADMOD+29~, LOADMOD+30, LOADMOD+31, LOADMOD+32, CLEAN~, CLEAN+5, CLEAN+9, CLEAN+10, CLEAN+16
ACPTIEN	LOADMOD+22~, LOADMOD+23, LOADMOD+24, LOADMOD+25, LOADMOD+26, LOADMOD+27, LOADMOD+32, LOADMOD+34, LOADMOD+36, LOADMOD+41 , LOADMOD+42
ACPTLINE	LOADMOD+16~, LOADMOD+17*, LOADMOD+20, LOADMOD+30, LOADMOD+39
ACPTLONG	LOADMOD+38~, LOADMOD+39*, LOADMOD+40, LOADMOD+42, TEXT~, TEXT+7, TEXT+8!
ACPTLONG(	TEXT+33*
ACPTLONG(0	TEXT+36*
ACPTPIEC	CLEAN+9~*, CLEAN+10
>> ACPTPTH	LOADMOD+8
ACPTRY	TEXT+16~, TEXT+17, TEXT+18, TEXT+20, TEXT+21, TEXT+22, TEXT+23, TEXT+25, TEXT+26
ACPTSTRN	TEXT+7~, TEXT+11, TEXT+17, TEXT+21, TEXT+22, TEXT+25, TEXT+33, TEXT+34*
ACPTUP	CLEAN~, CLEAN+16
ACPTWORD	CLEAN+10~*, CLEAN+11, CLEAN+12
>> ACPTYR	LOADMOD+26
DT	TEXT+36
IO	LOADMOD+17
IO(0	LOADMOD+9, LOADMOD+44
POP	LOADMOD+7~, LOADMOD+10
TAG	T~
U	LOADMOD+26, LOADMOD+32, LOADMOD+33, LOADMOD+34, LOADMOD+36, TEXT+36

Name	Field # of Occurrence
$T(@TAG	T