PSN137P.m

PSN137P ;BIR/DMA-reindex "T" cross reference ; 26 Mar 2007  10:48 AM

 ;;4.0; NATIONAL DRUG FILE;**137**; 30 Oct 98;Build 2

 ;

 N DA,X

 S DA=0 F  S DA=$O(^PSNDF(50.67,DA)) Q:'DA  S X=$P(^(DA,0),"^",5),^PSNDF(50.67,"T",X,DA)=""

 K DA,X

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN137P   244     printed  Dec 13, 2024@02:16:53                                                                                                                                                                                                      Page 2

PSN137P   ;BIR/DMA-reindex "T" cross reference ; 26 Mar 2007  10:48 AM

 +1       ;;4.0; NATIONAL DRUG FILE;**137**; 30 Oct 98;Build 2

 +2       ;

 +3        NEW DA,X

 +4        SET DA=0

           FOR 

               SET DA=$ORDER(^PSNDF(50.67,DA))

               if 'DA

                   QUIT 

               SET X=$PIECE(^(DA,0),"^",5)

               SET ^PSNDF(50.67,"T",X,DA)=""

 +5        KILL DA,X

 +6        QUIT