Routine: ACPTP1A

Entry Points

Name	Comments	DBIA/ICR reference
XREF	;RE-CROSS REFERENCE FILE
HREAD	;READ HCPCS FILE
ONE	;one record
START	;START HERE
DOTS(X)	;EP - WRITE OUT A DOT EVERY HUNDRED
MSG	;display message
NEW	;new hcpcs code
TXT	;text lines
OPEN	;open host file
DIR	;ASK DIRECTORY WHERE FILES WERE LOADED
DESC	;STRIP TRAILING BLANKS FROM DESCRIPTION FIELD

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ACPTVDF("IOF") Line Location: START+3
Function Call: WRITE	Prompt: !!,"HCPCS Version 2.05 Install",! Line Location: START+4
Function Call: WRITE	Prompt: !,"Installing ",$E(ACPTYR,1,3)+1700," HCPCS codes.",! Line Location: START+7
Function Call: WRITE	Prompt: !,"Could not open HCPCS file." Line Location: START+9
Function Call: WRITE	Prompt: !!,"INSTALL COMPLETE",!! Line Location: START+12
Function Call: WRITE	Prompt: !,"Reading HCPCS Codes File.",! Line Location: HREAD+1
Function Call: WRITE	Prompt: ! Line Location: DIR+1
Function Call: WRITE	Prompt: !,"WILL NOW RE-INDEX CPT FILE (this will take awhile).",! Line Location: XREF+1
Function Call: WRITE	Prompt: $$EN^ACPTVDF("RVN") Line Location: MSG+4
Function Call: WRITE	Prompt: $$EN^ACPTVDF("RVF") Line Location: MSG+6
Routine Call	DIR Line Location: START+6 START+13 DIR+4
Routine Call	DIE Line Location: ONE+10

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	DIR+6, DIR+10
^ICPT - [#81]	ONE+6, ONE+7, ONE+8, ONE+9!, NEW+2, NEW+4*
^ICPT("B"	ONE+3, ONE+4, NEW+3*

Name	Field # of Occurrence
>> A	ONE+1, ONE+2, DESC+2*, DESC+3, DESC+4
ACPT	START+14!
>> ACPTCD	HREAD+4*, HREAD+5, ONE+3, ONE+4, NEW+1, NEW+2, NEW+3
>> ACPTCNT	HREAD+2*, HREAD+7
ACPTCSV	HREAD+10!
ACPTDESC	HREAD+9!, ONE+1, ONE+2, DESC+1, DESC+6, DESC+7*
>> ACPTFL	OPEN+2*, OPEN+3
ACPTFLAG	HREAD+10!
>> ACPTIEN	ONE+4, ONE+5, ONE+6, ONE+7, ONE+8, ONE+9, ONE+10, NEW+1, NEW+2, NEW+3 , NEW+4
ACPTLD	HREAD+9!
ACPTLD(1	ONE+2*
>> ACPTPTH	OPEN+3, DIR+14*
ACPTREC	HREAD+3*, HREAD+4, HREAD+10!, ONE+1, ONE+2
ACPTSD	HREAD+9!, ONE+1*, ONE+6
ACPTTXT	MSG+1, MSG+2*, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7!
ACPTWORD	DESC+4*, DESC+5, DESC+7, DESC+8!
ACPTYR	START+2*, START+7, START+14!, NEW+4
>> DIK	XREF+2*
DIR	START+6!, START+14!, DIR+4!
DIR("A"	DIR+2*
DIR("B"	DIR+3*
DIR(0	START+6, START+13, DIR+2*
>> DIRUT	DIR+5
DT	START+1*
>> DTOUT	DIR+5
>> DUOUT	DIR+5
I	DESC+2~, DESC+3~, DESC+4, DESC+6, MSG+1*
IO	HREAD+3
IO(0	START+9, HREAD+1, DOTS+1
>> POP	START+9
X	START+1, DOTS~, DOTS+2
>> Y	START+6, DIR+7, DIR+8, DIR+9, DIR+11, DIR+12, DIR+13, DIR+14

Name	Field # of Occurrence
$T(TXT+I	MSG+2