PSN151P.m

PSN151P ;BIR/DMA-RESET GNCSEQNO FOR 4 ENTRIES ; 08 Aug 2007  10:13 AM

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

 N DA,DATA,J,PSN

 F J=1:1 S PSN=$T(LIST+J) Q:PSN=""  S DA=$P(PSN," "),DATA=$P(PSN,";",3),$P(^PSNDF(50.68,DA,1),"^",5,7)=DATA

 K DA,DATA,J,PSN Q

LIST ;

15572 ;;000018^000018^

15573 ;;000019^000019^

15574 ;;000018^^

15575 ;;000019^000019^

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN151P   371     printed  Mar 13, 2025@21:21:50                                                                                                                                                                                                      Page 2

PSN151P   ;BIR/DMA-RESET GNCSEQNO FOR 4 ENTRIES ; 08 Aug 2007  10:13 AM

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

 +2        NEW DA,DATA,J,PSN

 +3        FOR J=1:1

               SET PSN=$TEXT(LIST+J)

               if PSN=""

                   QUIT 

               SET DA=$PIECE(PSN," ")

               SET DATA=$PIECE(PSN,";",3)

               SET $PIECE(^PSNDF(50.68,DA,1),"^",5,7)=DATA

 +4        KILL DA,DATA,J,PSN

           QUIT 

LIST      ;

15572     ;;000018^000018^

15573     ;;000019^000019^

15574     ;;000018^^

15575     ;;000019^000019^