Routine: ACPT24P1

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC ^DIE (,IXALL)^DIK ^DIR
Kernel	2	^%ZISC ($$STATUS,OPEN)^%ZISH
CPT Files	1	$$EN^ACPTVDF

Entry Points

Name	Comments	DBIA/ICR reference
FINISH	;
HREAD	;READ HCPCS FILE
CAT2L	;
XREFM	;RE-CROSS REFERENCE FILE
UPKG	;update package file
START
DOTS(X)	;EP - WRITE OUT A DOT EVERY HUNDRED
CAT2S	;
FILE	;ASK FOR FILE NAME
MSG	;display message
TXT	;text lines
INA	;set date deleted for all codes
DIR	;ASK DIRECTORY WHERE FILES WERE LOADED
DESC	;STRIP TRAILING BLANKS FROM DESCRIPTION FIELD

External References

Name	Field # of Occurrence
NOW^%DTC	UPKG+5
^%ZISC	HREAD+38
$$STATUS^%ZISH	HREAD+8, HREAD+9
OPEN^%ZISH	HREAD+5
$$EN^ACPTVDF	MSG+4, MSG+6
^DIC	HREAD+28, FINISH+11, CAT2S+15, CAT2L+16, UPKG+16
^DIE	UPKG+11, UPKG+21
^DIK	INA+11
IXALL^DIK	XREFM+2
^DIR	START+8, DIR+4, FILE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"INSTALL COMPLETE",!! Line Location: START+7
Function Call: WRITE	Prompt: !!,"Updating Year Deleted Field.",! Line Location: INA+1
Function Call: WRITE	Prompt: !,"Installing ",$E(ACPTYR,1,3)+1700," HCPCS codes.",! Line Location: HREAD+3
Function Call: WRITE	Prompt: !,"Could not open HCPCS file." Line Location: HREAD+6
Function Call: WRITE	Prompt: !,"Reading HCPCS Codes File.",! Line Location: HREAD+7
Function Call: WRITE	Prompt: ! Line Location: DIR+1
Function Call: WRITE	Prompt: ! Line Location: FILE+1
Function Call: WRITE	Prompt: !!,"Updating Effective Date Field.",! Line Location: FINISH+2
Function Call: WRITE	Prompt: !,"WILL NOW RE-INDEX MODIFIER FILE.",! Line Location: XREFM+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	DIE Line Location: UPKG+11 UPKG+21
Routine Call	DIC Line Location: HREAD+28 FINISH+11 CAT2S+15 CAT2L+16 UPKG+16
Routine Call	DIR Line Location: START+8 DIR+4 FILE+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	DIR+6, DIR+10
^DD(81	HREAD+25, FINISH+8, CAT2S+12, CAT2L+13
^DIC(9.4 - [#9.4]	UPKG+7
^ICPT - [#81]	INA+2, INA+3, INA+4, INA+5, INA+6, HREAD+17, HREAD+19, HREAD+20, HREAD+31!, HREAD+32 , HREAD+33, HREAD+34, HREAD+35, FINISH+3, FINISH+4, CAT2S+4, CAT2S+5, CAT2S+6, CAT2S+7, CAT2S+16* , CAT2S+17, CAT2S+18, CAT2L+5, CAT2L+6, CAT2L+7, CAT2L+8, CAT2L+18!, CAT2L+19, CAT2L+20, CAT2L+21
^ICPT("B"	HREAD+15, HREAD+18*, HREAD+29

Label References

Name	Line Occurrences
CAT	CAT2S+19
DESC	HREAD+13, HREAD+14, CAT2S+1, CAT2L+4
DIR	START+2
DOTS	INA+12, HREAD+36, FINISH+12, CAT2L+22
FINISH	START+5
HREAD	START+4
INA	START+3
MSG	START+1
XREFM	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UPKG+6
>> A	HREAD+13, HREAD+14, DESC+2, DESC+3, DESC+4, CAT2S+1, CAT2L+4*
ACPT	START+9!
ACPTCD	HREAD+1!, HREAD+10*, HREAD+11, HREAD+12, HREAD+15, HREAD+16, HREAD+17, HREAD+18, HREAD+29, HREAD+37 , CAT2S+3, CAT2S+5, CAT2L+3, CAT2L+6
>> ACPTCDC	CAT2S+3, CAT2L+3
>> ACPTCDN	CAT2S+2, CAT2S+3, CAT2S+4, CAT2S+5, CAT2S+6, CAT2S+7, CAT2S+9, CAT2S+16, CAT2S+17, CAT2S+18 , CAT2S+19, CAT2L+2, CAT2L+3, CAT2L+5, CAT2L+6, CAT2L+7, CAT2L+8, CAT2L+10, CAT2L+18, CAT2L+19 , CAT2L+20, CAT2L+21
>> ACPTCNT	HREAD+8*, HREAD+36, CAT2L+22
ACPTCSV	HREAD+2, HREAD+11, HREAD+37, HREAD+40!
ACPTDESC	HREAD+1!, HREAD+13, HREAD+14, DESC+1, DESC+6, DESC+7*, CAT2S+16, CAT2L+20
>> ACPTEFDT	INA+6*, INA+7, INA+10
>> ACPTFL	HREAD+4, HREAD+5, FILE+5
ACPTFLAG	HREAD+1!, HREAD+11, HREAD+37, HREAD+40!
ACPTIEN	HREAD+1!, HREAD+16, HREAD+17, HREAD+18, HREAD+19, HREAD+20, HREAD+22, HREAD+29, HREAD+30, HREAD+31 , HREAD+32, HREAD+33, HREAD+34, HREAD+35
ACPTLD	HREAD+14*, HREAD+33, HREAD+39!
>> ACPTLN	CAT2L+1*, CAT2L+17, CAT2L+20, CAT2L+21
>> ACPTPTH	HREAD+5, DIR+14*
ACPTSD	HREAD+13*, HREAD+34, HREAD+39!
ACPTTO	START+3, INA+2, INA+13!, FINISH+1, FINISH+3, FINISH+13!
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*, START+9!, INA+4, HREAD+3, HREAD+19, CAT2S+6, CAT2S+7, CAT2L+7, CAT2L+8
>> DA	INA+10, UPKG+7, UPKG+8, UPKG+12, UPKG+18*
>> DA(1	INA+8, INA+9, HREAD+22, HREAD+23, FINISH+5, FINISH+6, CAT2S+9, CAT2S+10, CAT2L+10, CAT2L+11 , UPKG+12
DIC	HREAD+21!, HREAD+23, FINISH+6, CAT2S+8!, CAT2S+10, CAT2L+9!, CAT2L+11, UPKG+14*, UPKG+19
DIC("DR"	HREAD+27, FINISH+10, CAT2S+14, CAT2L+15
DIC("P"	HREAD+25, FINISH+8, CAT2S+12, CAT2L+13
DIC(0	HREAD+24, FINISH+7, CAT2S+11, CAT2L+12, UPKG+15*
>> DIE	UPKG+9, UPKG+19
>> DIK	INA+9, XREFM+2
DIR	START+9!, DIR+4!, FILE+3!
DIR("A"	DIR+2*
DIR("B"	DIR+3*
DIR(0	START+8, DIR+2, FILE+2*
>> DIRUT	DIR+5
>> DR	UPKG+10, UPKG+20
DT	CAT2S+7, CAT2S+17, CAT2L+8, UPKG+4, UPKG+6*, UPKG+20
>> DTOUT	DIR+5
>> DUOUT	DIR+5
DUZ	UPKG+1, UPKG+2*, UPKG+20
DUZ(0	UPKG+3*
I	START+3, INA+2, INA+3, INA+4, INA+5, INA+6, INA+8, INA+12, DESC+2~, DESC+3~ , DESC+4, DESC+6, FINISH+1, FINISH+3, FINISH+4, FINISH+5, FINISH+12, MSG+1*
IO	HREAD+9
IO(0	DOTS+1, HREAD+6, HREAD+7
>> POP	HREAD+6
X	DOTS~, DOTS+2, HREAD+9, HREAD+10, HREAD+13, HREAD+14, HREAD+26, FINISH+9, CAT2S+1, CAT2S+13 , CAT2L+1, CAT2L+4, CAT2L+14, UPKG+13
>> Y	DIR+7, DIR+8, DIR+9, DIR+11, DIR+12, DIR+13, DIR+14, FILE+4*, FILE+5, UPKG+17 , UPKG+18

Marked Items

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

Customize PDF page

Package: CPT Files

Routine: ACPT24P1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items