Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSN4P77

PSN4P77.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN4P77   335     printed  Apr 09, 2024@21:25:11                                                                                                                                                                                                      Page 2

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