RE-INDEX 'AD' CROSS-REFERENCE ON SECONDARY MENU OPTIONS    ICR (5612)

The Laboratory System Re-engineering Project (LSRP)
Rollback Tool Kit (RTK) has a onetime request to re-index the 'AD'
cross-reference on the SECONDARY MENU OPTIONS field (#203) in the NEW PERSON
file (#200). The re-indexing will take place in the post-init for patch
LR*5.2*393 in routine LR393. The code is as follows:

REINDEX  ; -- index 'AD' xref on NEW PERSON file
D MES^XPDUTL("Re-indexing 'AD' Cross Reference on SECONDARY MENU
OPTIONS (#203) field")
D MES^XPDUTL("in the NEW PERSON (#200) file...")
N LRDUZ
S LRDUZ=0
F  S LRDUZ=$O(^VA(200,LRDUZ)) Q:'LRDUZ  D
. N DIK,DA
. Q:'$O(^VA(200,LRDUZ,203,0))
. S DA(1)=LRDUZ,DIK="^VA(200,"_DA(1)_",203,",DIK(1)=".01^AD" D
ENALL^DIK
D MES^XPDUTL("Done re-indexing.")
Q