- PSN544E ;BHM/LE-NDF PMI Data Updates ; 13 Dec 2017 1:38 PM
- ;;4.0;NATIONAL DRUG FILE;**544**; 30 Oct 98;Build 129
- ;
- E ;Environment Check for PMI 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."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN544E 727 printed Feb 18, 2025@23:49:30 Page 2
- PSN544E ;BHM/LE-NDF PMI Data Updates ; 13 Dec 2017 1:38 PM
- +1 ;;4.0;NATIONAL DRUG FILE;**544**; 30 Oct 98;Build 129
- +2 ;
- E ;Environment Check for PMI 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."
- +13 QUIT