PSN155E.m

PSN155E ;BIR/DMA-environment check for data updates ; 12 Oct 2007  8:48 AM

 ;;4.0; NATIONAL DRUG FILE;**155**; 30 Oct 98;Build 16

 ;

 I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0

 E  W !!,"You must be a valid user." S XPDQUIT=2

 I $$PATCH^XPDUTL(XPDNM) W !!,"This patch has already been installed." S XPDQUIT=1 Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN155E   344     printed  Dec 13, 2024@02:17:09                                                                                                                                                                                                      Page 2

PSN155E   ;BIR/DMA-environment check for data updates ; 12 Oct 2007  8:48 AM

 +1       ;;4.0; NATIONAL DRUG FILE;**155**; 30 Oct 98;Build 16

 +2       ;

 +3        IF $DATA(DUZ)#2

               NEW DIC,X,Y

               SET DIC=200

               SET DIC(0)="N"

               SET X="`"_DUZ

               DO ^DIC

               IF Y>0

 +4       IF '$TEST

               WRITE !!,"You must be a valid user."

               SET XPDQUIT=2

 +5        IF $$PATCH^XPDUTL(XPDNM)

               WRITE !!,"This patch has already been installed."

               SET XPDQUIT=1

               QUIT 

 +6        QUIT