PSN548E ;BIR/DMA-environment check for data updates ; 03 Jan 2018 1:28 PM
;;4.0;NATIONAL DRUG FILE;**548**; 30 Oct 98;Build 134
;
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 ---[H[J[2J[HPSN548E 837 printed Dec 13, 2024@02:23:30 Page 2
PSN548E ;BIR/DMA-environment check for data updates ; 03 Jan 2018 1:28 PM
+1 ;;4.0;NATIONAL DRUG FILE;**548**; 30 Oct 98;Build 134
+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
