PSN100P.m

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 ---PSN100P   369     printed  Apr 09, 2024@21:19:26                                                                                                                                                                                                      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