Routine: ACPT29AD

Information

ACPT29AD ;IHS/SD/SDR - ACPT*2.09 activate/deactivate codes ; 12/21/2008 00:29

Source file <ACPT29AD.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
CPT Files	1	ACPT29

Name	Comments	DBIA/ICR reference
EN	;activate 2009 CPT codes, deactivate deleted ones ; input: ACPTYR = 3090000, to use as the flag value for the Date Deleted ; field. ; loop: traverse the entries for CPT codes in the CPT file (81)). ; For each, activate if new, inactivate if deleted.
ACTIV8(ACPTDA,ACPTYR)	; activate 2009 CPT codes ; called only by the main procedure above; only ACPTDA passed in (by ; value), though the major input is the corresponding CPT record; ; likewise the output is to the record: the Inactive Flag field (5) of ; the CPT record, the creation if missing of a new Effective Date ; subfile (60/81.02) record, and the Status field (.02) of that ; subrecord. The Status Field is a set of codes: 0 = INACTIVE, ; 1 = ACTIVE.
DEACTIV8(ACPTDA,ACPTYR)	; deactivate codes not in 2009 CPT ; called only by the main procedure above; only ACPTDA passed in (by ; value), though the major input is the corresponding CPT record; ; likewise the output is to the record: the Inactive Flag (5) and Date ; Deleted (8) fields of the CPT record, the creation if missing of a new ; Effective Date subfile (60/81.02) record, and the Status field (.02) ; of that subrecord. The Status Field is a set of codes: 0 = INACTIVE, ; 1 = ACTIVE.

Name	Field # of Occurrence
^DIC	DEACTIV8+23
^DIE	DEACTIV8+30

Name	Line Occurrences (* Changed, ! Killed)
^DD(81	DEACTIV8+20
^ICPT - [#81]	EN+8, ACTIV8+9, ACTIV8+21, DEACTIV8+9, DEACTIV8+13, DEACTIV8+14*

Name	Line Occurrences
ACTIV8	EN+9
DEACTIV8	EN+10

Name	Field # of Occurrence
ACPTADD	ACTIV8+12~*, ACTIV8+13
ACPTDA	EN+6~, EN+8, EN+9, EN+10, ACTIV8~, ACTIV8+9, ACTIV8+21, DEACTIV8~, DEACTIV8+9, DEACTIV8+13 , DEACTIV8+14, DEACTIV8+17
ACPTDEL	DEACTIV8+9~*, DEACTIV8+10
ACPTDOTS	EN+7~, EN+8*, EN+12
ACPTINAC	ACTIV8+15~*, ACTIV8+16
ACPTNODE	ACTIV8+9~, ACTIV8+10, ACTIV8+12, ACTIV8+15, ACTIV8+18, ACTIV8+19*, ACTIV8+21
ACPTYR	EN+9, EN+10, ACTIV8~, ACTIV8+13, DEACTIV8~, DEACTIV8+10
DA	DEACTIV8+17~, DEACTIV8+24*
DA(1	DEACTIV8+17*, DEACTIV8+18, DEACTIV8+27
DIC	DEACTIV8+18~*
DIC("P"	DEACTIV8+20*
DIC(0	DEACTIV8+19*
DIDEL	DEACTIV8+29~
DIE	DEACTIV8+27~*
DLAYGO	DEACTIV8+22~
DR	DEACTIV8+28~*
DTOUT	DEACTIV8+22~, DEACTIV8+29~
DUOUT	DEACTIV8+22~
U	ACTIV8+12, ACTIV8+15, ACTIV8+18, ACTIV8+19, DEACTIV8+9, DEACTIV8+13, DEACTIV8+14
X	DEACTIV8+21~*
Y	DEACTIV8+22~, DEACTIV8+24
>> ZTQUEUED	EN+11