; Find unknown description in 0 node and kill X-references
; Leave 0 node in case of pointers in other files
; REVN=The real revenue code in the .01 field
; REV will be the bogus code set by chs
DIAG
;
ADA
REV
DIAG2
;
DIAG3
;
CK3
; Find unknown description in 0 node and kill X-references
; Leave 0 node in case of pointers in other files
; CPTN=The real revenue code in the .01 field
; CPT will be the bogus code set by chs
CK2
; Find unknown description in 0 node and kill X-references