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 ---[H[J[2J[HPSN151P 371 printed Dec 13, 2024@02:17:06 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^
