Print Page as PDF
REINDEX APC CROSS REFERENCE IN FILE 120.8 ICR (4606)

REINDEX APC CROSS REFERENCE IN FILE 120.8    ICR (4606)

Name Value
NUMBER 4606
IA # 4606
DATE CREATED 2005/02/09
CUSTODIAL PACKAGE ADVERSE REACTION TRACKING
CUSTODIAL ISC Salt Lake City
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
NAME REINDEX APC CROSS REFERENCE IN FILE 120.8
GENERAL DESCRIPTION
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
STATUS Active
DURATION Till Otherwise Agreed
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
NATIONAL DRUG FILE Birmingham
MAIL MESSAGE 40320803
Generated from AUG 12, 2020@ IA Listing Descriptions