Routine: ACPT24P2

Entry Points

Name	Comments	DBIA/ICR reference
ADD81	;ADD FILE 81 TO LOCAL LOOKUP FILE
UPKG	;update package file
MREAD	;READ AND UPDATE MODIFIERS AND P-CODES
XREFM	;RE-CROSS REFERENCE FILE
START	;START HERE
DOTS(X)	;EP - WRITE OUT A DOT EVERY HUNDRED
CAT(Z)	;SET CPT CATEGORY
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

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ACPTVDF("IOF") Line Location: START+3
Function Call: WRITE	Prompt: !!,"CPT Version 2.04 Install",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"INSTALL COMPLETE",!! Line Location: START+13
Function Call: WRITE	Prompt: !!,"Updating Year Deleted Field.",! Line Location: INA+1
Function Call: WRITE	Prompt: !!,"Reading MODIFIER file, file name ",ACPTFL,! Line Location: MREAD+3
Function Call: WRITE	Prompt: !,"Could not open modifier and p-code file." Line Location: MREAD+5
Function Call: WRITE	Prompt: ! Line Location: DIR+1
Function Call: WRITE	Prompt: ! Line Location: FILE+1
Function Call: WRITE	Prompt: !!,"ADDING CPT FILE TO LOCAL LOOKUP FILE" Line Location: ADD81+2
Function Call: WRITE	Prompt: !,"LOCAL LOOKUP FILE (FILE 8984.4) MISSING.",! Line Location: ADD81+3
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: ADD81+5 UPKG+11 UPKG+21
Routine Call	DIC Line Location: ADD81+4 UPKG+16
Routine Call	DIR Line Location: START+6 START+14 DIR+4 FILE+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	DIR+6, DIR+10
^AUTTCMOD - [#9999999.88]	MREAD+14, MREAD+15, MREAD+16
^DIC(81.1 - [#81.1]	CAT+2, CAT+3, CAT+4
^DIC(8984.4	ADD81+3
^DIC(9.4 - [#9.4]	UPKG+7
^ICPT - [#81]	INA+2, INA+3, INA+4, CAT+5
^XT(8984.4 - [#8984.4]	START+11

Name	Field # of Occurrence
>> %	UPKG+6
>> A	DESC+2*, DESC+3, DESC+4
ACPT	START+15!
ACPTCAT	CAT+1, CAT+3, CAT+4*, CAT+5, CAT+6!
>> ACPTCD	MREAD+9*, MREAD+13, MREAD+15
>> ACPTCDN	MREAD+13*, MREAD+14, MREAD+15, MREAD+16
>> ACPTCNT	MREAD+6*, MREAD+17
>> ACPTDESC	DESC+1, DESC+6, DESC+7*
>> ACPTFL	MREAD+2, MREAD+3, MREAD+4, FILE+5
>> ACPTPTH	MREAD+4, DIR+14*
ACPTTO	INA+2, INA+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+15!, INA+4
>> DA	ADD81+5, UPKG+7, UPKG+8, UPKG+12, UPKG+18*
>> DA(1	UPKG+12*
>> DESC	MREAD+10, MREAD+12, MREAD+16
>> DIC	ADD81+4, ADD81+5, UPKG+14, UPKG+19
>> DIC(0	ADD81+4, UPKG+15
>> DIE	ADD81+5, UPKG+9, UPKG+19*
>> DIK	XREFM+2*
DIR	START+6!, START+15!, DIR+4!, FILE+3!
DIR("A"	DIR+2*
DIR("B"	DIR+3*
DIR(0	START+6, START+14, DIR+2, FILE+2
>> DIRUT	DIR+5
DLAYGO	ADD81+1*, ADD81+7!
>> DR	ADD81+5, UPKG+10, UPKG+20*
DT	START+1, UPKG+4, UPKG+6, UPKG+20
>> DTOUT	DIR+5
>> DUOUT	DIR+5
DUZ	UPKG+1, UPKG+2*, UPKG+20
DUZ(0	UPKG+3*
I	INA+2, INA+3, INA+4, INA+5, DESC+2~, DESC+3~, DESC+4, DESC+6, MSG+1
IO	MREAD+7
IO(0	DOTS+1, MREAD+5
>> POP	MREAD+5
X	START+1, DOTS~, DOTS+2, MREAD+7, MREAD+8, MREAD+9, MREAD+10, ADD81+4, UPKG+13*
>> Y	START+6, DIR+7, DIR+8, DIR+9, DIR+11, DIR+12, DIR+13, DIR+14, FILE+4*, FILE+5 , ADD81+5, UPKG+17, UPKG+18
Z	CAT~, CAT+1, CAT+2, CAT+5

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