Routine: ACPTPOST

Information

ACPTPOST ; IHS/ASDST/DMJ,SDR - CPT POST INIT ; [ 02/03/2004 11:05 AM ]

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC ^DIE IXALL^DIK ^DIR
CPT Files	4	^ACPTCXR ($$UPC,MOD)^ACPTPST2 ^ACPTSINF $$EN^ACPTVDF
Kernel	4	^%ZISC ($$STATUS,OPEN)^%ZISH ^%ZTLOAD ($$FMTE,$$HTFM)^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
CPT Files	2	ACPTPST2 ACPTSINF

Entry Points

Name	Comments	DBIA/ICR reference
ADD81	;ADD FILE 81 TO LOCAL LOOKUP FILE
XREF	;RE-CROSS REFERENCE FILE
FILE	;ASK FOR FILE NAME
SREAD	;READ AND UPDATE SHORT DESC.
HREAD	;READ HCPCS FILE
CAT2S	;
CAT2L	;
MREAD	;READ AND UPDATE MODIFIERS AND P-CODES
LREAD	;READ AND UPDATE LONG DESC.
UPKG	;update package file
START	;START HERE
DOTS(X)	;EP - WRITE OUT A DOT EVERY HUNDRED
QUE	;QUE JOB TO ACTIVATE/INACTIVATE CODES
CAT(Z)	;SET CPT CATEGORY
GROUPS	;
MSG	;display message
XREFM	;RE-CROSS REFERENCE FILE
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	START+1, UPKG+5
^%ZISC	SREAD+28, LREAD+30, HREAD+80, MREAD+14, GROUPS+17
$$STATUS^%ZISH	SREAD+5, SREAD+6, LREAD+5, LREAD+6, HREAD+9, HREAD+10, MREAD+5, MREAD+6, GROUPS+5, GROUPS+6
OPEN^%ZISH	SREAD+3, LREAD+3, HREAD+6, MREAD+3, GROUPS+3
^%ZTLOAD	QUE+7
^ACPTCXR	XREF+3
$$UPC^ACPTPST2	DESC+9
MOD^ACPTPST2	START+20
^ACPTSINF	START+30
$$EN^ACPTVDF	START+3, MSG+4, MSG+6
^DIC	SREAD+22, LREAD+23, HREAD+46, HREAD+76, ADD81+4, CAT2S+15, CAT2L+16, UPKG+16
^DIE	GROUPS+15, ADD81+5, UPKG+11, UPKG+21
IXALL^DIK	XREF+2, XREFM+2
^DIR	START+6, START+33, DIR+4, FILE+3
$$FMTE^XLFDT	QUE+6
$$HTFM^XLFDT	QUE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ACPTVDF("IOF") Line Location: START+3
Function Call: WRITE	Prompt: !!,"CPT Version 2.08 Install",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"INSTALL COMPLETE",!! Line Location: START+32
Function Call: WRITE	Prompt: !!,"Updating Year Deleted Field.",! Line Location: INA+1
Function Call: WRITE	Prompt: !!,"Reading SHORT description file, file name ",ACPTFL,! Line Location: SREAD+2
Function Call: WRITE	Prompt: !,"Could not open short description file." Line Location: SREAD+4
Function Call: WRITE	Prompt: !!,"Reading LONG description file, file name ",ACPTFL,! Line Location: LREAD+2
Function Call: WRITE	Prompt: !,"Could not open long description file." Line Location: LREAD+4
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+7
Function Call: WRITE	Prompt: !,"Reading HCPCS Codes File.",! Line Location: HREAD+8
Function Call: WRITE	Prompt: !!,"Reading MODIFIER file, file name ",ACPTFL,! Line Location: MREAD+2
Function Call: WRITE	Prompt: !,"Could not open modifier and p-code file." Line Location: MREAD+4
Function Call: WRITE	Prompt: !!,"Reading Group file, file name ",ACPTFL,! Line Location: GROUPS+2
Function Call: WRITE	Prompt: !,"Could not open group file." Line Location: GROUPS+4
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 CPT FILE (this will take awhile).",! Line Location: XREF+1
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: GROUPS+15 ADD81+5 UPKG+11 UPKG+21
Routine Call	DIC Line Location: SREAD+22 LREAD+23 HREAD+46 HREAD+76 ADD81+4 CAT2S+15 CAT2L+16 UPKG+16
Routine Call	DIR Line Location: START+6 START+33 DIR+4 FILE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls
^XT(8984.4 - [#8984.4]	Classic Fileman Calls
^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
^AUTTCMOD - [#9999999.88]	MREAD+10, MREAD+11, MREAD+12
^DD(81	SREAD+19, LREAD+20, HREAD+43, HREAD+73, CAT2S+12, CAT2L+13
^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, SREAD+11, SREAD+12, SREAD+13, SREAD+14, SREAD+23, SREAD+24, SREAD+25* , LREAD+12, LREAD+13, LREAD+14, LREAD+15, LREAD+25!, LREAD+26, LREAD+27, LREAD+28, HREAD+35, HREAD+37 , HREAD+38, HREAD+59, HREAD+60, HREAD+62, HREAD+63, HREAD+65, HREAD+67, HREAD+68, CAT+5, 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+33, HREAD+36*, HREAD+48, GROUPS+9
^XT(8984.4 - [#8984.4]	START+26

Label References

Name	Line Occurrences
ADD81	START+26
CAT	SREAD+26, CAT2S+19
CAT2L	LREAD+8
CAT2S	SREAD+8
DESC	SREAD+10, LREAD+11, HREAD+29, HREAD+31, CAT2S+1, CAT2L+4
DIR	START+7
DOTS	INA+5, SREAD+27, LREAD+29, HREAD+78, MREAD+13, GROUPS+16, CAT2L+22
INA	START+8, START+9
LREAD	START+16
MREAD	START+19
MSG	START+5
QUE	START+27
SREAD	START+15
UPKG	START+31
XREF	START+22
XREFM	START+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UPKG+6
>> A	SREAD+10, LREAD+11, HREAD+29, HREAD+31, DESC+2, DESC+3, DESC+4, CAT2S+1, CAT2L+4*
ACPT	START+34!
>> ACPTACDE	HREAD+16*, HREAD+17
ACPTCAT	CAT+1, CAT+3, CAT+4*, CAT+5, CAT+6!
ACPTCD	SREAD+7, SREAD+8, SREAD+9, SREAD+11, SREAD+12, SREAD+13, SREAD+14, SREAD+16, SREAD+23, SREAD+24 , SREAD+25, SREAD+26, LREAD+7, LREAD+8, LREAD+9, LREAD+12, LREAD+13, LREAD+14, LREAD+15, LREAD+17 , LREAD+25, LREAD+26, LREAD+27, LREAD+28, HREAD+1!, HREAD+11, HREAD+12, HREAD+13, HREAD+33, HREAD+34 , HREAD+35, HREAD+36, HREAD+48, HREAD+79, MREAD+7, MREAD+9, MREAD+11, GROUPS+7*, GROUPS+8, GROUPS+9 , CAT2S+3, CAT2S+5, CAT2L+3, CAT2L+6
>> ACPTCDC	CAT2S+3, CAT2L+3
>> ACPTCDN	MREAD+9, MREAD+10, MREAD+11, MREAD+12, 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	SREAD+5, SREAD+27, LREAD+5, LREAD+29, HREAD+9, HREAD+78, MREAD+5, MREAD+13, GROUPS+5*, GROUPS+16 , CAT2L+22
ACPTCSV	HREAD+2, HREAD+12, HREAD+79, HREAD+82!
ACPTCV	QUE+16, QUE+17!
>> ACPTDA	GROUPS+9*, GROUPS+10, GROUPS+14
ACPTDESC	SREAD+23, LREAD+27, HREAD+1!, HREAD+29, HREAD+31, DESC+1, DESC+6, DESC+7, DESC+9, CAT2S+16 , CAT2L+20
>> ACPTEDT	HREAD+65*, HREAD+66, HREAD+67
>> ACPTEIEN	HREAD+67*, HREAD+68
>> ACPTFL	SREAD+1, SREAD+2, SREAD+3, LREAD+1, LREAD+2, LREAD+3, HREAD+5, HREAD+6, MREAD+1, MREAD+2 , MREAD+3, GROUPS+1, GROUPS+2, GROUPS+3, FILE+5
ACPTFLAG	HREAD+1!, HREAD+12, HREAD+79, HREAD+82!
>> ACPTGRP	GROUPS+11*, GROUPS+12
ACPTIEN	HREAD+1!, HREAD+34, HREAD+35, HREAD+36, HREAD+37, HREAD+38, HREAD+40, HREAD+48, HREAD+49, HREAD+59 , HREAD+60, HREAD+62, HREAD+63, HREAD+65, HREAD+67, HREAD+68, HREAD+70
ACPTLD	HREAD+31*, HREAD+59, HREAD+81!
>> ACPTLN	LREAD+10, LREAD+24, LREAD+27, LREAD+28, CAT2L+1, CAT2L+17, CAT2L+20, CAT2L+21
ACPTLNE	HREAD+83!
>> ACPTPTH	SREAD+3, LREAD+3, HREAD+6, MREAD+3, GROUPS+3, DIR+14*
ACPTRDT	QUE+5, QUE+6, QUE+9, QUE+17!
ACPTSD	HREAD+29*, HREAD+62, HREAD+81!
ACPTTO	START+8, START+9, 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+27, START+28, START+34!, INA+4, SREAD+13, SREAD+14, LREAD+14, LREAD+15, HREAD+3 , HREAD+37, HREAD+38, CAT2S+6, CAT2S+7, CAT2L+7, CAT2L+8
>> DA	GROUPS+14, ADD81+5, UPKG+7, UPKG+8, UPKG+12, UPKG+18
>> DA(1	SREAD+16, SREAD+17, LREAD+17, LREAD+18, HREAD+40, HREAD+41, HREAD+70, HREAD+71, CAT2S+9, CAT2S+10 , CAT2L+10, CAT2L+11, UPKG+12*
>> DESC	MREAD+8*, MREAD+12
DIC	SREAD+15!, SREAD+17, LREAD+16!, LREAD+18, HREAD+39!, HREAD+41, HREAD+69!, HREAD+71, ADD81+4, ADD81+5 , CAT2S+8!, CAT2S+10, CAT2L+9!, CAT2L+11, UPKG+14, UPKG+19
DIC("DR"	SREAD+21, LREAD+22, HREAD+45, HREAD+75, CAT2S+14, CAT2L+15
DIC("P"	SREAD+19, LREAD+20, HREAD+43, HREAD+73, CAT2S+12, CAT2L+13
DIC(0	SREAD+18, LREAD+19, HREAD+42, HREAD+72, ADD81+4, CAT2S+11, CAT2L+12, UPKG+15
>> DIE	GROUPS+13, ADD81+5, UPKG+9, UPKG+19
>> DIK	XREF+2, XREFM+2
DIR	START+6!, START+34!, DIR+4!, FILE+3!
DIR("A"	DIR+2*
DIR("B"	DIR+3*
DIR(0	START+6, START+33, DIR+2, FILE+2
>> DIRUT	DIR+5
DLAYGO	ADD81+1*, ADD81+7!
>> DR	GROUPS+12, ADD81+5, UPKG+10, UPKG+20
DT	START+1, START+27, START+28, SREAD+14, SREAD+24, LREAD+15, HREAD+38, 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+8, START+9, INA+2, INA+3, INA+4, INA+5, DESC+2~, DESC+3~, DESC+4, DESC+6 , MSG+1
IO	SREAD+6, LREAD+6, HREAD+10, MREAD+6, GROUPS+6
IO(0	DOTS+1, SREAD+4, LREAD+4, HREAD+7, HREAD+8, MREAD+4, GROUPS+4
>> POP	SREAD+4, LREAD+4, HREAD+7, MREAD+4, GROUPS+4
U	HREAD+68
X	START+1, DOTS~, DOTS+2, SREAD+6, SREAD+7, SREAD+10, SREAD+20, LREAD+6, LREAD+7, LREAD+10 , LREAD+11, LREAD+21, HREAD+10, HREAD+11, HREAD+16, HREAD+29, HREAD+31, HREAD+44, HREAD+74, MREAD+6 , MREAD+7, MREAD+8, GROUPS+6, GROUPS+7, GROUPS+11, ADD81+4, CAT2S+1, CAT2S+13, CAT2L+1, CAT2L+4 , CAT2L+14, 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
>> ZTDESC	QUE+3*
>> ZTDTH	QUE+4*, QUE+5
>> ZTIO	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSK	QUE+8, QUE+9, QUE+13

Marked Items

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

Customize PDF page

Package: CPT Files

Routine: ACPTPOST

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items