PSN549E ;BHM/DB-Environment Check for PMI data updates ; 03 Jan 2018 2:06 PM
;;4.0;NATIONAL DRUG FILE;**549**; 30 Oct 98;Build 132
;
E ;Envirnment check
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."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN549E 723 printed Nov 22, 2024@17:33:33 Page 2
PSN549E ;BHM/DB-Environment Check for PMI data updates ; 03 Jan 2018 2:06 PM
+1 ;;4.0;NATIONAL DRUG FILE;**549**; 30 Oct 98;Build 132
+2 ;
E ;Envirnment check
+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."
+13 QUIT
