Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSN531E

PSN531E.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN531E   248     printed  Apr 09, 2024@21:24:55                                                                                                                                                                                                      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