REINDEX APC CROSS REFERENCE IN FILE 120.8    ICR (4606)

During the course of data updates for the National Drug
file, the names some VA drug classes (entries in the VA DRUG CLASS file
(#50.605)) are changed.  This causes the APC cross reference in file 120.8 to
be incorrect.  To remedy this problem, we request permission to reindex this
cross reference as part of data updates.  Specifically, we ask to insert the
following code at the end of the post-install routine

;
REINDEX ;Make sure APC xref is correct
Q:$T(EN2^GMRAUIX0)']""
N SUB,DA,DIK,GMRAIEN,CLASS
S SUB=0 F  S SUB=$O(^GMR(120.8,SUB)) Q:'+SUB  I $D(^GMR(120.8,SUB,3)) D
.S GMRAIEN=+$P($G(^GMR(120.8,SUB,0)),U) Q:'GMRAIEN
.S CLASS="" F  S CLASS=$O(^GMR(120.8,"APC",GMRAIEN,CLASS)) Q:CLASS=""
K
^GMR(120.8,"APC",GMRAIEN,CLASS,SUB)
.S DA(1)=SUB
.S DIK="^GMR(120.8,DA(1),3,"
.S DIK(1)=".01^ADRG3"
.D ENALL^DIK ;Reset the drug class xref
Q