;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.