; For CATEGORY x-refs (file 81.1, fields 4-BEGIN CPT RANGE, and
; 5-END CPT RANGE)
; CAT = category type; used to determine x-ref "M" or "R"
; where "M" is used only for Major categories, and
; "R" is used for all others (not major) categories.
CVAR
; set begin range x-ref variables.
; ICPTX = end range
CKIL(DA,CAT)
; x-ref kill on END range
MXKIL
; kill modifier x-ref
CXKIL
; kill of category x-ref
CBSET(DA,ICPTA)
; x-ref on begin range for categories
MXMKIL
; kill full file x-ref on range
MKIL(DA,ICPTX,M)
; x-ref kill on end range
MBSET(DA,ICPTA,M)
; modifier begin range x-ref
MBKIL(DA,ICPTA,M)
; modifier begin range x-ref kill
MXMSET
; set full file x-ref on range
CBKIL(DA,ICPTA)
; x-ref kill on begin range for categories
MSET(DA,ICPTX,M)
; x-ref on end range
MODIFIER
; Mod x-refs
; ICPTA = begin range
; ICPTX = end range
; M = If $G(M), do whole file x-ref,
; else, just x-ref within multiple