PSN4P77.m

PSN4P77 ;ISP/RLC;POST INSTALL TO REINDEX APD XREF FILE 56;10/08/03

 ;;4.0; NATIONAL DRUG FILE;**77,83**; 30 OCT 98

 ;

 ; This routine will automatically re-index the APD cross reference

 ; (on field 1 - Drug Ingredient1) in File 56 (Drug Interaction file).

 ;

EN ;

 S DIK="^PS(56,"

 S DIK(1)="1^APD"

 D ENALL^DIK

 K DIK

 Q

PSN4P77   ;ISP/RLC;POST INSTALL TO REINDEX APD XREF FILE 56;10/08/03

 +1       ;;4.0; NATIONAL DRUG FILE;**77,83**; 30 OCT 98

 +2       ;

 +3       ; This routine will automatically re-index the APD cross reference

 +4       ; (on field 1 - Drug Ingredient1) in File 56 (Drug Interaction file).

 +5       ;

EN        ;

 +1        SET DIK="^PS(56,"

 +2        SET DIK(1)="1^APD"

 +3        DO ENALL^DIK

 +4        KILL DIK

 +5        QUIT