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

PSN137P.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN137P   244     printed  Apr 09, 2024@21:22:07                                                                                                                                                                                                      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