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 ---[H[J[2J[HPSN531E 248 printed Dec 13, 2024@02:23:03 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