PSN529E.m

PSN529E ;BHM/DB-Environment Check for PMI data updates ; 03 Aug 2017  1:33 PM

 ;;4.0;NATIONAL DRUG FILE;**529**; 30 Oct 98;Build 125

 ;

 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 ---PSN529E   248     printed  Nov 22, 2024@17:33:01                                                                                                                                                                                                      Page 2

PSN529E   ;BHM/DB-Environment Check for PMI data updates ; 03 Aug 2017  1:33 PM

 +1       ;;4.0;NATIONAL DRUG FILE;**529**; 30 Oct 98;Build 125

 +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