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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNPCH27 475 printed Dec 13, 2024@02:24:31 Page 2
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
