PSNPCH27.m

PSNPCH27 ;BIR/WRT-POST INSTALL routine ; 03/21/00 10:54

 ;;4.0; NATIONAL DRUG FILE;**27**; 30 Oct 98

 ;

 ;Reference to ^PSDRUG supported by DBIA #2352

 ;

 D START,KILL

 Q

START U IO W !,"Converting DRUG file (#50)" F IFN=0:0 S IFN=$O(^PSDRUG(IFN)) Q:'IFN  U IO W:'(IFN#100) "." S LINK=$P($G(^PSDRUG(IFN,"ND")),"^",3) I LINK D BRANCH1

 Q

BRANCH1 S FORMI=$P($G(^PSNDF(50.68,LINK,5)),"^") I FORMI]"" S $P(^PSDRUG(IFN,"ND"),"^",11)=FORMI

 Q

KILL K IFN,LINK,FORMI

 Q

PSNPCH27  ;BIR/WRT-POST INSTALL routine ; 03/21/00 10:54

 +1       ;;4.0; NATIONAL DRUG FILE;**27**; 30 Oct 98

 +2       ;

 +3       ;Reference to ^PSDRUG supported by DBIA #2352

 +4       ;

 +5        DO START

           DO KILL

 +6        QUIT 

START      USE IO

           WRITE !,"Converting DRUG file (#50)"

           FOR IFN=0:0

               SET IFN=$ORDER(^PSDRUG(IFN))

               IF 'IFN

                   QUIT 

               USE IO

               IF '(IFN#100)

                   WRITE "."

               SET LINK=$PIECE($GET(^PSDRUG(IFN,"ND")),"^",3)

               IF LINK

                   DO BRANCH1

 +1        QUIT 

BRANCH1    SET FORMI=$PIECE($GET(^PSNDF(50.68,LINK,5)),"^")

           IF FORMI]""

               SET $PIECE(^PSDRUG(IFN,"ND"),"^",11)=FORMI

 +1        QUIT 

KILL       KILL IFN,LINK,FORMI

 +1        QUIT