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

PSN529E.m

Go to the documentation of this file.

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

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