PSN165P.m

PSN165P ;BIR/DMA-post install to set inactivation dates ; 08 Feb 2008  11:14 AM

 ;;4.0; NATIONAL DRUG FILE;**165**; 30 Oct 98;Build 4

 ;

 N DA,DIE,DR,NA

 K ^TMP($J) M ^TMP($J)=@XPDGREF

 S NA=0 F  S NA=$O(^TMP($J,NA)) Q:'NA  S DA=$P(NA,"^"),DIE=50.416,DR="3////"_$P(NA,"^",2) D ^DIE

 K DA,DIE,DR,NA,^TMP($J)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN165P   318     printed  Oct 16, 2024@18:18:01                                                                                                                                                                                                      Page 2

PSN165P   ;BIR/DMA-post install to set inactivation dates ; 08 Feb 2008  11:14 AM

 +1       ;;4.0; NATIONAL DRUG FILE;**165**; 30 Oct 98;Build 4

 +2       ;

 +3        NEW DA,DIE,DR,NA

 +4        KILL ^TMP($JOB)

           MERGE ^TMP($JOB)=@XPDGREF

 +5        SET NA=0

           FOR 

               SET NA=$ORDER(^TMP($JOB,NA))

               if 'NA

                   QUIT 

               SET DA=$PIECE(NA,"^")

               SET DIE=50.416

               SET DR="3////"_$PIECE(NA,"^",2)

               DO ^DIE

 +6        KILL DA,DIE,DR,NA,^TMP($JOB)

 +7        QUIT