PSN100P ;BIR/DMA - set header nodes and protection ; 17 Jun 2009 7:30 AM
;;4.0; NATIONAL DRUG FILE;*100*;30 Oct 98;Build 5
;
N DA,PSN
S PSN("WR")="@",PSN("DEL")="@" D FILESEC^DDMOD(50.607,.PSN)
;
K ^TMP($J) M ^TMP($J)=@XPDGREF
S DA=0 F S DA=$O(^TMP($J,DA)) Q:'DA S PSN=^(DA) I $D(^PSNDF(50.68,DA)) S ^PSNDF(50.68,DA,2,0)=PSN
;
K DA,PSN,^TMP($J) Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN100P 369 printed Dec 13, 2024@02:16:27 Page 2
PSN100P ;BIR/DMA - set header nodes and protection ; 17 Jun 2009 7:30 AM
+1 ;;4.0; NATIONAL DRUG FILE;*100*;30 Oct 98;Build 5
+2 ;
+3 NEW DA,PSN
+4 SET PSN("WR")="@"
SET PSN("DEL")="@"
DO FILESEC^DDMOD(50.607,.PSN)
+5 ;
+6 KILL ^TMP($JOB)
MERGE ^TMP($JOB)=@XPDGREF
+7 SET DA=0
FOR
SET DA=$ORDER(^TMP($JOB,DA))
if 'DA
QUIT
SET PSN=^(DA)
IF $DATA(^PSNDF(50.68,DA))
SET ^PSNDF(50.68,DA,2,0)=PSN
+8 ;
+9 KILL DA,PSN,^TMP($JOB)
QUIT
