Routine: ACPTPST2

Information

ACPTPST2 ; IHS/ASDST/DMJ,SDR - CPT POST INIT ; [ 01/08/2004 10:18 AM ]

Source file <ACPTPST2.m>

Package	Total	Caller Graph
CPT Files	1	ACPTPOST

Name	Comments	DBIA/ICR reference
XREF	;EP - RE-CROSS REFERENCE FILE
START	;START HERE
UPC(X)	;EP - UPPER CASE
FIXCPT	; EP - removes entries where the .01 field is null and marked inactive
MOD	;EP - hcpcs modifier
DESC	;STRIP TRAILING BLANKS FROM DESCRIPTION FIELD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Reading HCPCS MODIFIER file, file name ",ACPTFL,! Line Location: MOD+3
Function Call: WRITE	Prompt: !,"Could not open hcpcs modifier file." Line Location: MOD+5
Function Call: WRITE	Prompt: !,"WILL NOW RE-INDEX CPT MODIFIERS FILE.",! Line Location: XREF+1

FileNo	Call Tags
^AUTTCMOD - [#9999999.88]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTTCMOD - [#9999999.88]	MOD+28, MOD+30, MOD+43!, MOD+44, MOD+45, MOD+47, MOD+49, MOD+50, MOD+51
^AUTTCMOD("B"	MOD+26, MOD+29*, MOD+32
^ICPT - [#81]	FIXCPT+2, FIXCPT+3, FIXCPT+5!

Name	Line Occurrences
$$UPC	MOD+50, DESC+8
DESC	MOD+24, MOD+25

Name	Field # of Occurrence
>> A	MOD+24, MOD+25, DESC+2*, DESC+3, DESC+4
>> ACPTCD	MOD+9, MOD+26, MOD+27, MOD+28, MOD+29, MOD+32, MOD+49, MOD+53, FIXCPT+3, FIXCPT+4
>> ACPTCNT	MOD+6*, MOD+52
ACPTCSV	MOD+2, MOD+53, MOD+56!
>> ACPTDA	FIXCPT+1, FIXCPT+2, FIXCPT+3, FIXCPT+5
>> ACPTDESC	MOD+24, MOD+25, DESC+1, DESC+6, DESC+7, DESC+8
>> ACPTFL	MOD+1*, MOD+3, MOD+4
ACPTFLAG	MOD+53*, MOD+56!
>> ACPTIEN	MOD+27, MOD+28, MOD+29, MOD+30, MOD+32, MOD+43, MOD+44, MOD+45, MOD+47, MOD+49 , MOD+50, MOD+51
ACPTLD	MOD+25*, MOD+44, MOD+55!
ACPTLNE	MOD+57!
>> ACPTPTH	MOD+4
ACPTSD	MOD+24*, MOD+47, MOD+55!
ACPTWORD	DESC+4*, DESC+5, DESC+7, DESC+9!
>> ACPTYR	MOD+30
>> DIK	XREF+2*
I	DESC+2~, DESC+3~, DESC+4, DESC+6
IO	MOD+7
IO(0	MOD+5
>> POP	MOD+5
U	MOD+50
X	MOD+7*, MOD+9, MOD+24, MOD+25, UPC~, UPC+2
Y	UPC+1~, UPC+2*, UPC+3