PSN531E.m

PSN531E ;BHM/DB-Environment Check for PMI data updates ; 03 Aug 2017  2:07 PM

 ;;4.0;NATIONAL DRUG FILE;**531**; 30 Oct 98;Build 126

 ;

 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."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN531E   248     printed  Apr 23, 2025@18:37:21                                                                                                                                                                                                      Page 2

PSN531E   ;BHM/DB-Environment Check for PMI data updates ; 03 Aug 2017  2:07 PM

 +1       ;;4.0;NATIONAL DRUG FILE;**531**; 30 Oct 98;Build 126

 +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."

 +5        QUIT