PSN533E.m

PSN533E ;BIR/DMA-environment check for data updates ; 12 Sep 2017  3:21 PM

 ;;4.0;NATIONAL DRUG FILE;**533**; 30 Oct 98;Build 130

 ;

E ;environment check for data updates

 N PSNF,PSNLEG

 S (PSNF,PSNLEG)="",PSNLEG=$$GET1^DIQ(57.23,1,45)

 I PSNLEG="NO" S PSNF=1 D  Q:PSNF

 .W !,"Pharmacy Product System - National (PPS-N) Update process must be used for"

 .W !,"National Drug File (NDF) updates.  Go to the National Drug File Menu and"

 .W !,"select the PPS-N Menu [PSN PPS MENU] option for retrieving and installing"

 .W !,"NDF updates from PPS-N.",!

 .R !!,"Press enter to continue...",PSENTER:120

 .S XPDQUIT=2

 ;

 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." S XPDQUIT=2

 I $$PATCH^XPDUTL(XPDNM) W !!,"This patch has already been installed." S XPDQUIT=1 Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN533E   837     printed  Apr 09, 2024@21:22:59                                                                                                                                                                                                      Page 2

PSN533E   ;BIR/DMA-environment check for data updates ; 12 Sep 2017  3:21 PM

 +1       ;;4.0;NATIONAL DRUG FILE;**533**; 30 Oct 98;Build 130

 +2       ;

E         ;environment check for data updates

 +1        NEW PSNF,PSNLEG

 +2        SET (PSNF,PSNLEG)=""

           SET PSNLEG=$$GET1^DIQ(57.23,1,45)

 +3        IF PSNLEG="NO"

               SET PSNF=1

               Begin DoDot:1

 +4                WRITE !,"Pharmacy Product System - National (PPS-N) Update process must be used for"

 +5                WRITE !,"National Drug File (NDF) updates.  Go to the National Drug File Menu and"

 +6                WRITE !,"select the PPS-N Menu [PSN PPS MENU] option for retrieving and installing"

 +7                WRITE !,"NDF updates from PPS-N.",!

 +8                READ !!,"Press enter to continue...",PSENTER:120

 +9                SET XPDQUIT=2

               End DoDot:1

               if PSNF

                   QUIT 

 +10      ;

 +11       IF $DATA(DUZ)#2

               NEW DIC,X,Y

               SET DIC=200

               SET DIC(0)="N"

               SET X="`"_DUZ

               DO ^DIC

               IF Y>0

 +12      IF '$TEST

               WRITE !!,"You must be a valid user."

               SET XPDQUIT=2

 +13       IF $$PATCH^XPDUTL(XPDNM)

               WRITE !!,"This patch has already been installed."

               SET XPDQUIT=1

               QUIT 

 +14       QUIT